commit c446a0860ff5fe6a52b1aa46b72866a851300323 Author: DESKTOP-E401PHE\Administrator Date: Wed Apr 30 16:04:42 2025 +0800 ~ diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..cbd176d --- /dev/null +++ b/.gitignore @@ -0,0 +1,16 @@ +**/layout +**/report +**/实施文件 +**/image +**/doc +**/wav +**/__history +**/__recovery +*.dll +*.exe +*.ddp +*.dcu +*.~pas +*.~dfm +*.~ddp +*.~dpr \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg b/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.dof b/坯布码单待检(PBMDDJ.dll)/CYZZ.dof new file mode 100644 index 0000000..baf79b8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/CYZZ.dof @@ -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:\selfware_83398\selfware\ֿ\Ŀ\self\֯(CYZZ.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 diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.res b/坯布码单待检(PBMDDJ.dll)/CYZZ.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/坯布码单待检(PBMDDJ.dll)/CYZZ.res differ diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.cfg b/坯布码单待检(PBMDDJ.dll)/DDMD.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/DDMD.cfg @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.dof b/坯布码单待检(PBMDDJ.dll)/DDMD.dof new file mode 100644 index 0000000..ffe9f30 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/DDMD.dof @@ -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:\selfware_83398\selfware\ֿ\Ŀ\self\뵥(DDMD.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 diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.res b/坯布码单待检(PBMDDJ.dll)/DDMD.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/坯布码单待检(PBMDDJ.dll)/DDMD.res differ diff --git a/坯布码单待检(PBMDDJ.dll)/Desktop.ini b/坯布码单待检(PBMDDJ.dll)/Desktop.ini new file mode 100644 index 0000000..7e19762 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/Desktop.ini @@ -0,0 +1,3 @@ +[.ShellClassInfo] +IconFile=C:\Program Files (x86)\360\360WangPan\new_desktop_win7.ico +IconIndex=0 diff --git a/坯布码单待检(PBMDDJ.dll)/File.INI b/坯布码单待检(PBMDDJ.dll)/File.INI new file mode 100644 index 0000000..e990552 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/File.INI @@ -0,0 +1,4 @@ +[] +̨־=99 +ƷDLLļ=CYZZ.dll +ƷDLLú=11 \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/FileHelp.ini b/坯布码单待检(PBMDDJ.dll)/FileHelp.ini new file mode 100644 index 0000000..495119d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/FileHelp.ini @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/JCYData.INI b/坯布码单待检(PBMDDJ.dll)/JCYData.INI new file mode 100644 index 0000000..2eaff97 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/JCYData.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com1 +=9600 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI b/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI new file mode 100644 index 0000000..0eb8ccd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com2 +=1200 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt b/坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt new file mode 100644 index 0000000..e69de29 diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof new file mode 100644 index 0000000..df55c26 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof @@ -0,0 +1,134 @@ +[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=E:\\Ŀ\С\뵥(PBMDDJ.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[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 diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr new file mode 100644 index 0000000..ec7df11 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -0,0 +1,61 @@ +library PBMDDJ; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_GetDllForm in 'U_GetDllForm.pas', + U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, + U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule}, + U_GYSList in 'U_GYSList.pas' {frmGYSList}, + U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, + U_iniParam in 'U_iniParam.pas', + U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp}, + U_GYSSelList in 'U_GYSSelList.pas' {frmGYSSelList}, + U_DJBRKList in 'U_DJBRKList.pas' {frmDJBRKList}, + U_DJBCKInPut in 'U_DJBCKInPut.pas' {frmDJBCKInPut}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}, + U_DJBCKOutPut in 'U_DJBCKOutPut.pas' {frmDJBCKOutPut}, + U_PBCKKCList in 'U_PBCKKCList.pas' {frmPBCKKCList}, + U_DJBCKOutList in 'U_DJBCKOutList.pas' {frmDJBCKOutList}, + U_WJGCKKCList in 'U_WJGCKKCList.pas' {frmWJGCKKCList}, + U_DJBCKKCList in 'U_DJBCKKCList.pas' {frmDJBCKKCList}, + U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP}, + U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas'; + +// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', + // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, + // U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField}, + // U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + //U_FormPas in '..\CommonPas\formPas\U_FormPas.pas', + //U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas'; + +//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas'; + +{$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. + diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.res b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.res differ diff --git a/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg b/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg @@ -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) + + diff --git a/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini b/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini new file mode 100644 index 0000000..3faae6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=172.168.1.246 +=֯ \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm new file mode 100644 index 0000000..28b702e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm @@ -0,0 +1,794 @@ +object frmBGCWEndManage: TfrmBGCWEndManage + Left = 17 + Top = 0 + Width = 1274 + Height = 717 + Caption = #25253#20851#31649#29702'('#36130#21153')' + 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 = 1258 + AutoSize = True + 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_CYZZ.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 TBEdit: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 22 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1258 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 262 + Top = 11 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 130 + Height = 20 + TabOrder = 2 + OnChange = BCOrderNoChange + end + end + object Panel6: TPanel + Left = 0 + Top = 390 + Width = 1258 + Height = 288 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid12: TcxGrid + Left = 2 + Top = 2 + Width = 654 + Height = 284 + Align = alLeft + TabOrder = 0 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn10 + end + item + Kind = skSum + Position = spFooter + Column = v12Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v12Column3: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + object cxGrid6: TcxGrid + Left = 656 + Top = 2 + Width = 600 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv19Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv19 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1258 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1258 + ClientRectTop = 23 + end + object cxGrid3: TcxGrid + Left = 0 + Top = 88 + Width = 593 + Height = 302 + Align = alClient + TabOrder = 4 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv11FocusedRecordChanged + DataController.DataSource = DataSource11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 100 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v11Column3: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v11Column4: TcxGridDBColumn + Caption = #30830#35748#20154 + DataBinding.FieldName = 'OKPerson' + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v11Column5: TcxGridDBColumn + Caption = #30830#35748#26102#38388 + DataBinding.FieldName = 'OKTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v11Column6: TcxGridDBColumn + Caption = #24050#30830#35748 + DataBinding.FieldName = 'OKFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid1: TcxGrid + Left = 601 + Top = 88 + Width = 657 + Height = 302 + Align = alRight + TabOrder = 5 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#27425 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column3: TcxGridDBColumn + Caption = #36816#25269#22269 + DataBinding.FieldName = 'YunDiG' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column8: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'ChuKouKA' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #36135#28304#22320 + DataBinding.FieldName = 'HuoYuanPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 593 + Top = 88 + Width = 8 + Height = 302 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1165 + Top = 522 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1195 + Top = 518 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1224 + Top = 519 + end + object DataSource11: TDataSource + DataSet = ClientDataSet11 + Left = 562 + Top = 38 + end + object ClientDataSet11: TClientDataSet + Aggregates = <> + Params = <> + Left = 593 + Top = 37 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 628 + Top = 39 + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 661 + Top = 37 + end + object cxGridPopupMenu11: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 792 + Top = 39 + end + object cxGridPopupMenu12: TcxGridPopupMenu + Grid = cxGrid12 + PopupMenus = <> + Left = 830 + Top = 37 + end + object DataSource19: TDataSource + DataSet = ClientDataSet19 + Left = 693 + Top = 38 + end + object ClientDataSet19: TClientDataSet + Aggregates = <> + Params = <> + Left = 727 + Top = 37 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 762 + Top = 38 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 365 + Top = 240 + 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 = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 200 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 472 + Top = 212 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = ClientDataSet19 + Left = 493 + Top = 249 + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 446 + Top = 249 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1065 + Top = 230 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1095 + Top = 226 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1124 + Top = 227 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas new file mode 100644 index 0000000..6908db6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas @@ -0,0 +1,467 @@ +unit U_BGCWEndManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit, + cxDropDownEdit, cxCheckBox, cxSplitter, RM_Dataset, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport; + +type + TfrmBGCWEndManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + BCOrderNo: TEdit; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + DataSource11: TDataSource; + ClientDataSet11: TClientDataSet; + DataSource12: TDataSource; + ClientDataSet12: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + cxGridPopupMenu12: TcxGridPopupMenu; + DataSource19: TDataSource; + ClientDataSet19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + Panel6: TPanel; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxGrid6: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v12Column3: TcxGridDBColumn; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_Print: TClientDataSet; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB19: TRMDBDataSet; + RMDB12: TRMDBDataSet; + v11Column4: TcxGridDBColumn; + v11Column5: TcxGridDBColumn; + v11Column6: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure BCOrderNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitGridMD(); + public + { Public declarations } + end; + +var + frmBGCWEndManage: TfrmBGCWEndManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput; + +{$R *.dfm} + +procedure TfrmBGCWEndManage.FormDestroy(Sender: TObject); +begin + frmBGCWEndManage:=nil; +end; + +procedure TfrmBGCWEndManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGCWEndManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڱϸ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGCWEndManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1s',Tv11,'ع'); + WriteCxGrid('Tv2s',Tv12,'ع'); + WriteCxGrid('Tv19s',Tv19,'ع'); + WriteCxGrid('Tv111s',Tv1,'ع'); + Close; +end; + +procedure TfrmBGCWEndManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + InitGrid(); + ReadCxGrid('Tv1s',Tv11,'ع'); + ReadCxGrid('Tv2s',Tv12,'ع'); + ReadCxGrid('Tv19s',Tv19,'ع'); + ReadCxGrid('Tv111s',Tv1,'ع'); + +end; + +procedure TfrmBGCWEndManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=A.BCOrderNo, '); + sql.Add(' LDFiller=(select Top 1 Filler from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' LDFillTime=(select Top 1 FillTime from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' HaiYunFee=(select Top 1 HaiYunFee from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' BaoFee=(select Top 1 BaoFee from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' ChengJiaoType=(select Top 1 ChengJiaoType from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' FValid=(select Top 1 Valid from JYOrder_BG BG where BG.BGID=A.BGID)'); + sql.Add(' from JYOrder_BG_CK A where 1=1 ');// where Valid=''Y'' + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and OKFlag=0'); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and OKFlag=1'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGCWEndManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=2 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and OKFlag=1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ȷϲٴˣ','ʾ',0); + Exit; + end; + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; +end; + +procedure TfrmBGCWEndManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.InitGridMD(); +var + fsj:string; +begin + +end; +procedure TfrmBGCWEndManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGCWEndManage.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.Tv11FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + //if ClientDataSet11.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet12); + SInitCDSData20(ADOQueryCmd,ClientDataSet12); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet19); + SInitCDSData20(ADOQueryCmd,ClientDataSet19); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet1); + SInitCDSData20(ADOQueryCmd,ClientDataSet1); +end; + +procedure TfrmBGCWEndManage.BCOrderNoChange(Sender: TObject); +begin + + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); +end; + +procedure TfrmBGCWEndManage.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and OKFlag=1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ȷϲܳˣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',ChkTime=Null,Chker=Null '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWEndManage.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice,FMPrice,FKgPrice,FHZPrice:String; +begin + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0]; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if StrToFloat(FMQty)>0 then + begin + FMPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty)))+'/M'; + end; + if StrToFloat(FKgQty)>0 then + begin + FKgPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty)))+'/Kg'; + end; + if Trim(FMPrice)='' then + begin + FHZPrice:=FKgPrice; + end else + begin + FHZPrice:=FMPrice; + if Trim(FKgPrice)<>'' then + begin + FHZPrice:=FHZPrice+#13+FKgPrice; + end; + end; + if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value; + RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0]; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['FMPrice']:=FMPrice; + RMVariables['FKgPrice']:=FKgPrice; + RMVariables['FHZPrice']:=FHZPrice; + RMVariables['HaiYunFee']:=ClientDataSet1.fieldbyname('HaiYunFee').Value; + RMVariables['ComTaiTou']:=ClientDataSet1.fieldbyname('ComTaiTou').Value; + RMVariables['BaoFee']:=ClientDataSet1.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=ClientDataSet1.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=ClientDataSet1.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=ClientDataSet1.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=ClientDataSet1.fieldbyname('ChengJiaoType').Value; + RMVariables['LDY']:=ClientDataSet1.fieldbyname('Filler').Value; + + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm new file mode 100644 index 0000000..f396fb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm @@ -0,0 +1,1240 @@ +object frmBGCWManage: TfrmBGCWManage + Left = 62 + Top = 26 + Width = 1180 + Height = 675 + Caption = #25253#20851#31649#29702'('#36130#21153')' + 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 = 1164 + AutoSize = True + 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_CYZZ.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 TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBView: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1164 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 262 + Top = 11 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#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 = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 328 + Top = 7 + Width = 126 + Height = 20 + TabOrder = 2 + OnChange = BCOrderNoChange + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1164 + Height = 569 + ActivePage = cxTabSheet2 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 569 + ClientRectRight = 1164 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #24453#30331#35760 + ImageIndex = 0 + object Panel2: TPanel + Left = 626 + Top = 0 + Width = 538 + Height = 550 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 2 + Top = 126 + Width = 534 + Height = 258 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 2 + Top = 2 + Width = 534 + Height = 124 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 384 + Width = 534 + Height = 164 + Align = alBottom + TabOrder = 2 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvFee + end + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 626 + Height = 550 + Align = alLeft + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 624 + Height = 548 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24050#30331#35760 + ImageIndex = 1 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 1164 + Height = 550 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 1160 + Height = 266 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxTabControl1: TcxTabControl + Left = 2 + Top = 2 + Width = 1156 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 0 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1156 + ClientRectTop = 23 + end + object cxGrid3: TcxGrid + Left = 2 + Top = 23 + Width = 1156 + Height = 241 + Align = alClient + TabOrder = 1 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv11FocusedRecordChanged + DataController.DataSource = DataSource11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 117 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v11Column3: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv11 + end + end + end + object Panel6: TPanel + Left = 2 + Top = 268 + Width = 1160 + Height = 280 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid12: TcxGrid + Left = 2 + Top = 2 + Width = 688 + Height = 276 + Align = alLeft + TabOrder = 0 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + object cxGrid19: TcxGrid + Left = 690 + Top = 2 + Width = 468 + Height = 276 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 204 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv19Column2: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQKgQty' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGridLevel10: TcxGridLevel + GridView = Tv19 + end + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 739 + Top = 331 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 710 + Top = 331 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 678 + Top = 334 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1165 + Top = 522 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1195 + Top = 518 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1224 + Top = 519 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 707 + Top = 524 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 678 + Top = 525 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 649 + Top = 529 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 193 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 1031 + Top = 166 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 812 + Top = 226 + end + object DataSource11: TDataSource + DataSet = ClientDataSet11 + Left = 562 + Top = 38 + end + object ClientDataSet11: TClientDataSet + Aggregates = <> + Params = <> + Left = 593 + Top = 37 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 628 + Top = 39 + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 661 + Top = 37 + end + object DataSource15: TDataSource + DataSet = ClientDataSet15 + Left = 697 + Top = 38 + end + object ClientDataSet15: TClientDataSet + Aggregates = <> + Params = <> + Left = 730 + Top = 40 + end + object DataSource16: TDataSource + DataSet = ClientDataSet16 + Left = 765 + Top = 39 + end + object ClientDataSet16: TClientDataSet + Aggregates = <> + Params = <> + Left = 796 + Top = 40 + end + object DataSource17: TDataSource + DataSet = ClientDataSet17 + Left = 833 + Top = 38 + end + object ClientDataSet17: TClientDataSet + Aggregates = <> + Params = <> + Left = 867 + Top = 38 + end + object DataSource18: TDataSource + DataSet = ClientDataSet18 + Left = 904 + Top = 39 + end + object ClientDataSet18: TClientDataSet + Aggregates = <> + Params = <> + Left = 939 + Top = 38 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 970 + Top = 36 + end + object cxGridPopupMenu12: TcxGridPopupMenu + PopupMenus = <> + Left = 1001 + Top = 38 + end + object cxGridPopupMenu15: TcxGridPopupMenu + PopupMenus = <> + Left = 1032 + Top = 36 + end + object cxGridPopupMenu16: TcxGridPopupMenu + PopupMenus = <> + Left = 1062 + Top = 37 + end + object cxGridPopupMenu17: TcxGridPopupMenu + PopupMenus = <> + Left = 1097 + Top = 36 + end + object cxGridPopupMenu18: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + Top = 36 + end + object DataSource19: TDataSource + DataSet = ClientDataSet19 + Left = 1160 + Top = 35 + end + object ClientDataSet19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1195 + Top = 34 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid19 + PopupMenus = <> + Left = 1226 + Top = 32 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 769 + Top = 529 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 800 + Top = 529 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 831 + Top = 531 + 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 = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 200 + ReportData = {} + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 446 + Top = 249 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = ClientDataSet19 + Left = 493 + Top = 249 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 472 + Top = 212 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas new file mode 100644 index 0000000..f14b7da --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas @@ -0,0 +1,703 @@ +unit U_BGCWManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit, + cxDropDownEdit, cxCheckBox, cxSplitter, cxTextEdit, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmBGCWManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + BCOrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + Panel7: TPanel; + Panel3: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel4: TPanel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + DataSource11: TDataSource; + ClientDataSet11: TClientDataSet; + DataSource12: TDataSource; + ClientDataSet12: TClientDataSet; + DataSource15: TDataSource; + ClientDataSet15: TClientDataSet; + DataSource16: TDataSource; + ClientDataSet16: TClientDataSet; + DataSource17: TDataSource; + ClientDataSet17: TClientDataSet; + DataSource18: TDataSource; + ClientDataSet18: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + cxGridPopupMenu12: TcxGridPopupMenu; + cxGridPopupMenu15: TcxGridPopupMenu; + cxGridPopupMenu16: TcxGridPopupMenu; + cxGridPopupMenu17: TcxGridPopupMenu; + cxGridPopupMenu18: TcxGridPopupMenu; + Panel6: TPanel; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxGrid19: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn43: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + cxGridLevel10: TcxGridLevel; + DataSource19: TDataSource; + ClientDataSet19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxTabControl1: TcxTabControl; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DS_Fee: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + RM1: TRMGridReport; + RMDB12: TRMDBDataSet; + RMDB19: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxPageControl2Change(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TV16CellClick(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 BCOrderNoChange(Sender: TObject); + procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TBPrintClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitGridMD(); + public + { Public declarations } + end; + +var + frmBGCWManage: TfrmBGCWManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput; + +{$R *.dfm} + +procedure TfrmBGCWManage.FormDestroy(Sender: TObject); +begin + frmBGCWManage:=nil; +end; + +procedure TfrmBGCWManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGCWManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڱϸ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGCWManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + if Order_Main.IsEmpty then Exit; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if ClientDataSet11.IsEmpty then Exit; + end; + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + if Self.cxPageControl1.ActivePageIndex=0 then + begin + FBGID:=Trim(Order_Main.fieldbyname('BGID').AsString); + FBCID:=''; + end else + if Self.cxPageControl1.ActivePageIndex=1 then + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=''; + end; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGCWManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + +end; + +procedure TfrmBGCWManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG A'); + sql.Add(' where isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(Valid,'''')=''Y'' '); + // ShowMessage(sql.Text); + sql.Add(' and not exists(select * from JYOrder_BG_KPFee B where B.BGID=A.BGID )'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end else + begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=A.BCOrderNo from JYOrder_BG_CK A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); + end; + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGCWManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(ClientDataSet11.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGCWManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.InitGridMD(); +var + fsj:string; +begin + +end; +procedure TfrmBGCWManage.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',SSTime=getdate() '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.TBDelClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add('delete JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add('delete JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',SSTime=Null '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGCWManage.cxPageControl2Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGCWManage.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.TV16CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + InitGridMD(); +end; + +procedure TfrmBGCWManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FMainId:String; +begin + if cxPageControl1.ActivePageIndex<>0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGCWManage.BCOrderNoChange(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); +end; + +procedure TfrmBGCWManage.Tv11FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + //if ClientDataSet11.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet12); + SInitCDSData20(ADOQueryCmd,ClientDataSet12); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet19); + SInitCDSData20(ADOQueryCmd,ClientDataSet19); +end; + +procedure TfrmBGCWManage.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice:String; +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0]; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+''''); + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸFee.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value; + RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0]; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['ComTaiTou']:=ADOQueryTemp.fieldbyname('ComTaiTou').Value; + {RMVariables['HaiYunFee']:=ADOQueryTemp.fieldbyname('HaiYunFee').Value; + RMVariables['BaoFee']:=ADOQueryTemp.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=ADOQueryTemp.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=ADOQueryTemp.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=ADOQueryTemp.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=ADOQueryTemp.fieldbyname('ChengJiaoType').Value; } + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm new file mode 100644 index 0000000..f718a3e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm @@ -0,0 +1,1060 @@ +object frmBGFeeChkList: TfrmBGFeeChkList + Left = 61 + Top = 128 + Width = 1259 + Height = 600 + Caption = #25253#20851#35013#31665#20449#24687#26356#26032 + 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 = 1243 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.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 TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20184#27454#26356#26032 + ImageIndex = 37 + OnClick = TBEditClick + end + object Panel3: TPanel + Left = 213 + Top = 0 + Width = 164 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object SFKDate: TDateTimePicker + Left = 4 + Top = 5 + Width = 100 + Height = 20 + Date = 41883.464530335640000000 + Time = 41883.464530335640000000 + TabOrder = 0 + end + object Button1: TButton + Left = 105 + Top = 4 + Width = 57 + Height = 21 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button1Click + end + end + object ToolButton2: TToolButton + Left = 377 + Top = 0 + Caption = #36864#21333'('#26680')'#26085#26399 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 484 + Top = 0 + Width = 165 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object TuiDanChkDate: TDateTimePicker + Left = 4 + Top = 5 + Width = 98 + Height = 20 + Date = 41883.464530335640000000 + Time = 41883.464530335640000000 + TabOrder = 0 + end + object Button2: TButton + Left = 105 + Top = 4 + Width = 57 + Height = 21 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button2Click + end + end + object ToolButton1: TToolButton + Left = 649 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 712 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 775 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 838 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1243 + Height = 219 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v1ConNo: TcxGridDBColumn + Caption = #25552#21333#36816#21495 + DataBinding.FieldName = 'BMNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 86 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 134 + end + object V1SFKDate: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'SFKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 97 + end + object V1TuiDanChkDate: TcxGridDBColumn + Caption = #36864#21333'('#26680')'#26085#26399 + DataBinding.FieldName = 'TuiDanChkDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 96 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column11: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'XiangType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #35013#31665#26085#26399 + DataBinding.FieldName = 'ZhuangXiangDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #33337#21517#33322#27425 + DataBinding.FieldName = 'ChuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column8: TcxGridDBColumn + Caption = #33337#20844#21496 + DataBinding.FieldName = 'ChuanGS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39044#24405#21333#26085#26399 + DataBinding.FieldName = 'YuLuDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #25552#21333#21495 + DataBinding.FieldName = 'TiDanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 65 + end + object v1Column15: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 58 + end + object v1Column16: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 67 + end + object v1Column12: TcxGridDBColumn + Caption = #25552#21333#31867#22411 + DataBinding.FieldName = 'TiDanType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #25552#21333#26085#26399 + DataBinding.FieldName = 'TiDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #39044#36864#21333#26085#26399 + DataBinding.FieldName = 'YuTuiDanDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #20132#36864#21333#26680#26085#26399 + DataBinding.FieldName = 'JiaoTuiDanDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1243 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label4: TLabel + Left = 405 + Top = 13 + 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 Label9: TLabel + Left = 226 + Top = 13 + Width = 52 + Height = 12 + Caption = #25552#21333#36816#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 = 406 + Top = 41 + Width = 39 + Height = 12 + Caption = #33337#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 226 + Top = 41 + Width = 52 + Height = 12 + Caption = #33337#21517#33322#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 576 + Top = 13 + Width = 54 + Height = 12 + Caption = #36135' '#20195 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 577 + Top = 41 + Width = 52 + Height = 12 + Caption = #36153#29992#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 125 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 125 + Top = 37 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoHZ: TEdit + Tag = 2 + Left = 447 + Top = 9 + Width = 104 + Height = 20 + TabOrder = 2 + OnChange = OrderNoHZChange + OnKeyPress = OrderNoHZKeyPress + end + object BMNo: TEdit + Tag = 2 + Left = 279 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 3 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ChuanGS: TEdit + Tag = 2 + Left = 447 + Top = 37 + Width = 103 + Height = 20 + TabOrder = 4 + OnChange = OrderNoHZChange + end + object ChuanNo: TEdit + Tag = 2 + Left = 280 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 5 + OnChange = OrderNoHZChange + end + object HDName: TEdit + Tag = 2 + Left = 629 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 6 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object FeeName: TEdit + Tag = 2 + Left = 630 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 7 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ComboBox1: TComboBox + Left = 12 + Top = 9 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #25353#30331#35760#26085#26399 + Items.Strings = ( + #25353#30331#35760#26085#26399 + #25353#35013#31665#26085#26399 + #25353#33337#26399 + #25353#39044#24405#21333#26085#26399 + #25353#25552#21333#26085#26399 + #25353#39044#36864#21333#26085#26399 + #25353#20132#36864#21333#26680#26085#26399 + #25353#36864#21333'('#26680')'#26085#26399 + #25353#20184#27454#26085#26399) + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1243 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20184#27454 + #24050#20184#27454 + #24453#36864#21333#26680#26597 + #24050#36864#21333#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1243 + ClientRectTop = 23 + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 339 + Width = 1243 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 347 + Width = 1243 + Height = 214 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 743 + Height = 210 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 95 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 45 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35013#31665#27611#37325 + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25253#20851#37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter2: TcxSplitter + Left = 745 + Top = 2 + Width = 8 + Height = 210 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid2 + end + object cxGrid3: TcxGrid + Left = 753 + Top = 2 + Width = 488 + Height = 210 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn19 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 416 + Top = 271 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 449 + Top = 273 + 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 239 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 484 + Top = 437 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 517 + Top = 439 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 774 + Top = 438 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 582 + Top = 450 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 880 + Top = 441 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas new file mode 100644 index 0000000..855dbdf --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas @@ -0,0 +1,819 @@ +unit U_BGFeeChkList; + +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, cxTextEdit, cxDropDownEdit; + +type + TfrmBGFeeChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + V1SFKDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label4: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoHZ: TEdit; + BMNo: TEdit; + ChuanGS: TEdit; + V1TuiDanChkDate: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + Label2: TLabel; + ChuanNo: TEdit; + Label3: TLabel; + HDName: TEdit; + Label5: TLabel; + FeeName: TEdit; + ComboBox1: TComboBox; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton2: TToolButton; + Panel3: TPanel; + Panel4: TPanel; + SFKDate: TDateTimePicker; + TuiDanChkDate: TDateTimePicker; + Button1: TButton; + Button2: TButton; + 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 TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoHZChange(Sender: TObject); + procedure BMNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char); + procedure TBEditClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGFeeChkList: TfrmBGFeeChkList; + +implementation +uses + U_DataLink,U_BGFeeInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGFeeChkList.FormDestroy(Sender: TObject); +begin + frmBGFeeChkList:=nil; +end; + +procedure TfrmBGFeeChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGFeeChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmBGFeeChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('طб1',Tv1,'ط'); + WriteCxGrid('طб2',Tv2,'ط'); + WriteCxGrid('طб3',Tv3,'ط'); +end; + +procedure TfrmBGFeeChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end else + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + end; + + if (cxTabControl1.TabIndex=1) or (cxTabControl1.TabIndex=3) or (cxTabControl1.TabIndex=4) then + begin + if Trim(ComboBox1.Text)='Ǽ' then + begin + SQL.Add('and A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='װ' then + begin + SQL.Add('and A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('and A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ¼' then + begin + SQL.Add('and A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='ᵥ' then + begin + SQL.Add('and A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ˵' then + begin + SQL.Add('and A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵' then + begin + SQL.Add('and A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵()' then + begin + SQL.Add('and A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('and B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + end; + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmBGFeeChkList.InitForm(); +begin + ReadCxGrid('طб1',Tv1,'ط'); + ReadCxGrid('طб2',Tv2,'ط'); + ReadCxGrid('طб3',Tv3,'ط'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + SFKDate.DateTime:=EndDate.DateTime; + TuiDanChkDate.DateTime:=EndDate.DateTime; + InitGrid(); +end; + +procedure TfrmBGFeeChkList.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 TfrmBGFeeChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmBGFeeChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGFeeChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmBGFeeChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmBGFeeChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeChkList.OrderNoHZChange(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 TfrmBGFeeChkList.BMNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(BMNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+''''); + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeChkList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmBGFeeChkList.OrderNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoHZ.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+''''); + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeChkList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('SFKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SFKDate.Date)); + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.Button1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('SFKDate').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('TuiDanChkDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',TuiDanChkDate.Date)); + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.Button2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('TuiDanChkDate').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm new file mode 100644 index 0000000..42a3776 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm @@ -0,0 +1,900 @@ +object frmBGFeeInPut: TfrmBGFeeInPut + Left = 138 + Top = 45 + Width = 1222 + Height = 656 + Align = alClient + Caption = #25253#20851#35013#31665#20449#24687#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 = 1214 + 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_CYZZ.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 ScrollBox11: TScrollBox + Left = 0 + Top = 29 + Width = 1214 + Height = 268 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 537 + Height = 266 + Align = alLeft + TabOrder = 0 + object Label7: TLabel + Left = 17 + Top = 240 + Width = 66 + Height = 12 + Caption = #25552' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 288 + Top = 98 + Width = 67 + Height = 12 + Caption = #25552' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 17 + Top = 212 + Width = 65 + Height = 12 + Caption = #25552#21333#36816#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 288 + Top = 70 + Width = 66 + Height = 12 + Caption = #39044' '#24405' '#21333#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 = 17 + Top = 13 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 17 + Top = 70 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#28207#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 = 288 + Top = 13 + Width = 65 + Height = 12 + Caption = #35013#31665#26085#26399#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 = 288 + Top = 41 + Width = 67 + Height = 12 + Caption = #33337' '#26399#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 = 17 + Top = 183 + Width = 66 + Height = 12 + Caption = #33337' '#20844' '#21496#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 17 + Top = 155 + Width = 65 + Height = 12 + Caption = #33337#21517#33322#27425#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 = 17 + Top = 98 + Width = 67 + Height = 12 + Caption = #31665' '#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 288 + Top = 180 + 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 Label16: TLabel + Left = 17 + Top = 41 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 17 + Top = 126 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#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 = 287 + Top = 126 + Width = 66 + Height = 12 + Caption = #39044' '#36864' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 288 + Top = 155 + Width = 65 + Height = 12 + Caption = #20132#36864#21333#26680#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TiDanDate: TDateTimePicker + Tag = 2 + Left = 425 + Top = 94 + Width = 99 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object TiDanNo: TEdit + Tag = 2 + Left = 78 + Top = 237 + Width = 180 + Height = 18 + CharCase = ecUpperCase + TabOrder = 1 + end + object BMNo: TEdit + Tag = 2 + Left = 78 + Top = 209 + Width = 180 + Height = 18 + CharCase = ecUpperCase + TabOrder = 2 + end + object YuLuDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 66 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 78 + Top = 9 + Width = 180 + Height = 20 + Hint = 'FromPlace/'#20986#21475#21475#23736 + TabOrder = 4 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 78 + Top = 66 + Width = 180 + Height = 20 + Hint = 'ToPlace/'#30446#30340#28207 + TabOrder = 5 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZhuangXiangDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 9 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 6 + end + object ChuanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 37 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 7 + end + object ChuanGS: TBtnEditC + Tag = 2 + Left = 78 + Top = 179 + Width = 180 + Height = 20 + Hint = 'ChuanGS/'#33337#20844#21496 + TabOrder = 8 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ChuanNo: TEdit + Tag = 2 + Left = 78 + Top = 152 + Width = 180 + Height = 18 + TabOrder = 9 + end + object XiangType: TBtnEditC + Tag = 2 + Left = 78 + Top = 94 + Width = 180 + Height = 20 + Hint = 'XiangType/'#31665#22411 + TabOrder = 10 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YunDiG: TBtnEditC + Tag = 2 + Left = 78 + Top = 37 + Width = 180 + Height = 20 + Hint = 'YunDiG/'#36816#25269#22269 + TabOrder = 11 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ChengJiaoType: TBtnEditC + Tag = 2 + Left = 78 + Top = 122 + Width = 180 + Height = 20 + Hint = 'ChengJiaoType/'#25104#20132#26041#24335 + TabOrder = 12 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YuTuiDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 122 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 13 + end + object JiaoTuiDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 151 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 14 + end + object TiDanType: TComboBox + Tag = 2 + Left = 348 + Top = 94 + Width = 77 + Height = 20 + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 15 + Text = #30005#25918 + Items.Strings = ( + #30005#25918 + #23492#27491#26412) + end + object Note: TRichEdit + Tag = 2 + Left = 287 + Top = 194 + Width = 240 + Height = 62 + ScrollBars = ssVertical + TabOrder = 16 + end + end + object Panel1: TPanel + Left = 537 + Top = 0 + Width = 675 + Height = 266 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 671 + Height = 31 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 33 + Width = 671 + Height = 231 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn3 + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 297 + Width = 1214 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 326 + Width = 1214 + Height = 299 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column6: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #35013#31665#20928#37325'Kg' + DataBinding.FieldName = 'JZQty' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35013#31665#27611#37325'Kg' + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #25253#20851#37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column1: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 342 + Top = 10 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 308 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 203 + Top = 355 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 174 + Top = 353 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 276 + Top = 6 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 868 + Top = 132 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 837 + Top = 130 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 806 + Top = 130 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 145 + Top = 355 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas new file mode 100644 index 0000000..f5a52a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas @@ -0,0 +1,565 @@ +unit U_BGFeeInPut; + +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 + TfrmBGFeeInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox11: TScrollBox; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ScrollBox1: TScrollBox; + TiDanDate: TDateTimePicker; + Label7: TLabel; + TiDanNo: TEdit; + Label3: TLabel; + Label10: TLabel; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label12: TLabel; + Label15: TLabel; + BMNo: TEdit; + YuLuDanDate: TDateTimePicker; + FromPlace: TBtnEditC; + ToPlace: TBtnEditC; + ZhuangXiangDate: TDateTimePicker; + ChuanDate: TDateTimePicker; + ChuanGS: TBtnEditC; + ChuanNo: TEdit; + XiangType: TBtnEditC; + Label16: TLabel; + YunDiG: TBtnEditC; + Label17: TLabel; + ChengJiaoType: TBtnEditC; + Label11: TLabel; + YuTuiDanDate: TDateTimePicker; + Label19: TLabel; + JiaoTuiDanDate: TDateTimePicker; + TiDanType: TComboBox; + Note: TRichEdit; + Panel1: TPanel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure FromPlaceBtnUpClick(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetBtnCText(Sender: TObject); + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmBGFeeInPut: TfrmBGFeeInPut; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_BGLDManage; + +{$R *.dfm} + +procedure TfrmBGFeeInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ط¼',Tv1,'ط'); +end; + +procedure TfrmBGFeeInPut.InitData(); +begin + ZhuangXiangDate.Date:=SGetServerDate(ADOTemp); + ChuanDate.Date:=ZhuangXiangDate.Date; + YuLuDanDate.Date:=ZhuangXiangDate.Date; + TiDanDate.Date:=ZhuangXiangDate.Date; + YuTuiDanDate.Date:=ZhuangXiangDate.Date; + JiaoTuiDanDate.Date:=ZhuangXiangDate.Date; + ZhuangXiangDate.Checked:=False; + ChuanDate.Checked:=False; + YuLuDanDate.Checked:=False; + TiDanDate.Checked:=False; + YuTuiDanDate.Checked:=False; + JiaoTuiDanDate.Checked:=False; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from BGFee_Sub '); + if PState=1 then + begin + sql.Add('where BMId='''+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 * from BGFee_Main where BMId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(FMainId)+''''); + open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + +procedure TfrmBGFeeInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmBGFeeInPut.FormShow(Sender: TObject); +begin + readCxGrid('ط¼',Tv1,'ط'); + InitData(); +end; + +function TfrmBGFeeInPut.SaveData():Boolean; +var + maxno,maxsubno,maxsubnoBH:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'BM','BGFee_Main',3,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 BGFee_Main where BMId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BMId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'BGFee_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMNo='''+Trim(BMNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ᵥ˺ظ!','ʾ',0); + Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where BMId='''+Trim(maxno)+''''); + ExecSQL; + end; + + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'BS','BGFee_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('BSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(maxno)+''''); + sql.Add(' and BSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then + Append + else + Edit; + FieldByName('BMID').Value:=Trim(maxno); + FieldByName('BSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'BGFee_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('BSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + //ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BHId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubnoBH,'BH','BGFee_HuoDai',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubnoBH:=Trim(ClientDataSet2.fieldbyname('BHId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(maxsubnoBH)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BHID').AsString)='' then + Append + else + Edit; + FieldByName('BMID').Value:=Trim(maxno); + FieldByName('BHID').Value:=Trim(maxsubnoBH); + RTSetSaveDataCDS(ADOCmd,Tv2,ClientDataSet2,'BGFee_HuoDai',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BHID').Value:=Trim(maxsubnoBH); + //Order_Sub.Post; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + + + +procedure TfrmBGFeeInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(BMNo.Text)='' then + begin + Application.MessageBox('ᵥ˺ŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmBGFeeInPut.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); +end; + +procedure TfrmBGFeeInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('BSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BSId='''+Trim(Order_Sub.fieldbyname('BSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmBGFeeInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmBGFeeInPut.FromPlaceBtnUpClick(Sender: TObject); +begin + GetBtnCText(Sender); +end; +procedure TfrmBGFeeInPut.GetBtnCText(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TBtnEditC(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TBtnEditC(Sender).Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGFeeInPut.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmBGLDManage:=TfrmBGLDManage.Create(Application); + with frmBGLDManage do + begin + FSel:='99'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=Trim(frmBGLDManage.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('BGName').Value:=Trim(frmBGLDManage.CDS_19.fieldbyname('BGName').AsString); + FieldByName('HSCode').Value:=Trim(frmBGLDManage.CDS_BGName.fieldbyname('HSCode').AsString); + FieldByName('PS').Value:=frmBGLDManage.CDS_BGName.fieldbyname('CangKuPS').Value; + FieldByName('JZQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQkgQty').Value; + FieldByName('MiQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQMQty').Value; + FieldByName('BGMoney').Value:=frmBGLDManage.CDS_19.fieldbyname('BGMoney').Value; + //Post; + end; + end; + end; + finally + frmBGLDManage.Free; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + with Order_Sub do + begin + Edit; + FieldByName('BGCF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + //Post; + end; +end; + +procedure TfrmBGFeeInPut.ToolButton3Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + + Post; + end; +end; + +procedure TfrmBGFeeInPut.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HDName'; + flagname:=''; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:='ϵ'; + V1ZdyStr2.Caption:='ϵʽ'; + V1ZdyStr3.Caption:='տ'; + V1ZdyStr4.Caption:='տ˺'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self .ClientDataSet2 do + begin + Edit; + FieldByName('HDName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('HDLXPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr1').AsString); + FieldByName('HDLXFS').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr2').AsString); + FieldByName('HDBankName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr3').AsString); + FieldByName('HDBankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr4').AsString); + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGFeeInPut.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HDFeeName'; + flagname:=''; + if ShowModal=1 then + begin + with Self .ClientDataSet2 do + begin + Edit; + FieldByName('FeeName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm new file mode 100644 index 0000000..08e5ba0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm @@ -0,0 +1,1002 @@ +object frmBGFeeList: TfrmBGFeeList + Left = 197 + Top = 42 + Width = 1094 + Height = 600 + Caption = #25253#20851#35013#31665#20449#24687 + 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 = 1078 + AutoSize = True + 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_CYZZ.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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1078 + Height = 219 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.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 = #25552#21333#36816#21495 + DataBinding.FieldName = 'BMNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 86 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 134 + end + object v1OrdDate: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'SFKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #36864#21333'('#26680')'#26085#26399 + DataBinding.FieldName = 'TuiDanChkDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column11: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'XiangType' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #35013#31665#26085#26399 + DataBinding.FieldName = 'ZhuangXiangDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #33337#21517#33322#27425 + DataBinding.FieldName = 'ChuanNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column8: TcxGridDBColumn + Caption = #33337#20844#21496 + DataBinding.FieldName = 'ChuanGS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39044#24405#21333#26085#26399 + DataBinding.FieldName = 'YuLuDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #25552#21333#21495 + DataBinding.FieldName = 'TiDanNo' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 65 + end + object v1Column15: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 58 + end + object v1Column16: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 67 + end + object v1Column12: TcxGridDBColumn + Caption = #25552#21333#31867#22411 + DataBinding.FieldName = 'TiDanType' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #25552#21333#26085#26399 + DataBinding.FieldName = 'TiDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #39044#36864#21333#26085#26399 + DataBinding.FieldName = 'YuTuiDanDate' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #20132#36864#21333#26680#26085#26399 + DataBinding.FieldName = 'JiaoTuiDanDate' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label4: TLabel + Left = 405 + Top = 13 + 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 Label9: TLabel + Left = 226 + Top = 13 + Width = 52 + Height = 12 + Caption = #25552#21333#36816#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 = 406 + Top = 41 + Width = 39 + Height = 12 + Caption = #33337#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 226 + Top = 41 + Width = 52 + Height = 12 + Caption = #33337#21517#33322#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 576 + Top = 13 + Width = 54 + Height = 12 + Caption = #36135' '#20195 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 577 + Top = 41 + Width = 52 + Height = 12 + Caption = #36153#29992#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 125 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 125 + Top = 37 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoHZ: TEdit + Tag = 2 + Left = 447 + Top = 9 + Width = 104 + Height = 20 + TabOrder = 2 + OnChange = OrderNoHZChange + OnKeyPress = OrderNoHZKeyPress + end + object BMNo: TEdit + Tag = 2 + Left = 279 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 3 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ChuanGS: TEdit + Tag = 2 + Left = 447 + Top = 37 + Width = 103 + Height = 20 + TabOrder = 4 + OnChange = OrderNoHZChange + end + object ChuanNo: TEdit + Tag = 2 + Left = 280 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 5 + OnChange = OrderNoHZChange + end + object HDName: TEdit + Tag = 2 + Left = 629 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 6 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object FeeName: TEdit + Tag = 2 + Left = 630 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 7 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ComboBox1: TComboBox + Left = 12 + Top = 9 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #25353#30331#35760#26085#26399 + Items.Strings = ( + #25353#30331#35760#26085#26399 + #25353#35013#31665#26085#26399 + #25353#33337#26399 + #25353#39044#24405#21333#26085#26399 + #25353#25552#21333#26085#26399 + #25353#39044#36864#21333#26085#26399 + #25353#20132#36864#21333#26680#26085#26399 + #25353#36864#21333'('#26680')'#26085#26399 + #25353#20184#27454#26085#26399) + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1078 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#20184#27454 + #24050#36864#21333#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1078 + ClientRectTop = 23 + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 339 + Width = 1078 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 347 + Width = 1078 + Height = 214 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 743 + Height = 210 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 95 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 45 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35013#31665#27611#37325 + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25253#20851#37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter2: TcxSplitter + Left = 745 + Top = 2 + Width = 8 + Height = 210 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid2 + end + object cxGrid3: TcxGrid + Left = 753 + Top = 2 + Width = 323 + Height = 210 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn19 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 416 + Top = 271 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 449 + Top = 273 + 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 239 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 484 + Top = 437 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 517 + Top = 439 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 774 + Top = 438 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 582 + Top = 450 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 880 + Top = 441 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas new file mode 100644 index 0000000..3f2b699 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas @@ -0,0 +1,742 @@ +unit U_BGFeeList; + +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, cxTextEdit, cxDropDownEdit; + +type + TfrmBGFeeList = 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; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label4: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoHZ: TEdit; + BMNo: TEdit; + ChuanGS: TEdit; + v1Column2: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + Label2: TLabel; + ChuanNo: TEdit; + Label3: TLabel; + HDName: TEdit; + Label5: TLabel; + FeeName: TEdit; + ComboBox1: TComboBox; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure 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 Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoHZChange(Sender: TObject); + procedure BMNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGFeeList: TfrmBGFeeList; + +implementation +uses + U_DataLink,U_BGFeeInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGFeeList.FormDestroy(Sender: TObject); +begin + frmBGFeeList:=nil; +end; + +procedure TfrmBGFeeList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGFeeList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmBGFeeList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('طб1',Tv1,'ط'); + WriteCxGrid('طб2',Tv2,'ط'); + WriteCxGrid('طб3',Tv3,'ط'); +end; + +procedure TfrmBGFeeList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + if Trim(ComboBox1.Text)='Ǽ' then + begin + SQL.Add('where A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='װ' then + begin + SQL.Add('where A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ¼' then + begin + SQL.Add('where A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='ᵥ' then + begin + SQL.Add('where A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ˵' then + begin + SQL.Add('where A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵' then + begin + SQL.Add('where A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵()' then + begin + SQL.Add('where A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + {if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where A.FKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; } + + if Trim(DParameters1)<>'Ȩ' then + begin + //sql.Add('and A.Filler='''+Trim(DName)+''''); + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(B.SFKDate,'''')='''' and isnull(TuiDanChkDate,'''')='''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(B.SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmBGFeeList.InitForm(); +begin + ReadCxGrid('طб1',Tv1,'ط'); + ReadCxGrid('طб2',Tv2,'ط'); + ReadCxGrid('طб3',Tv3,'ط'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmBGFeeList.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 TfrmBGFeeList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('ChkStatus').AsString)<>'' then + begin + Application.MessageBox('Ѳݣɾ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmBGFeeList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBGFeeList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmBGFeeList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmBGFeeList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGFeeList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmBGFeeList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmBGFeeList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.OrderNoHZChange(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 TfrmBGFeeList.BMNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(BMNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set SChkStatus='''',SChkTime=getdate(),SChker='''+Trim(DName)+''''); + sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGFeeList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set SChkStatus=Null,SChkTime=Null,SChker=Null'); + sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGFeeList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmBGFeeList.OrderNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoHZ.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm new file mode 100644 index 0000000..d44bb64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm @@ -0,0 +1,504 @@ +object frmBGHZSelList: TfrmBGHZSelList + Left = 83 + Top = 28 + Width = 1175 + Height = 697 + Align = alClient + Caption = #25253#20851#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 = 1159 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1159 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 360 + Width = 1159 + Height = 298 + Align = alBottom + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn16 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 63 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 55 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 52 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #24050#21040#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 352 + Width = 1159 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 73 + Width = 1159 + Height = 279 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PopupMenu1 + TabOrder = 4 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'FPDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'FPQty' + Options.Editing = False + Width = 116 + end + object v6Column9: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v6Column12: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#25968#37327 + DataBinding.FieldName = 'WXFPQty' + Options.Editing = False + Width = 112 + end + object v6Column13: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#37329#39069'$' + DataBinding.FieldName = 'WXFPMoney' + Options.Editing = False + Width = 116 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 376 + Top = 326 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 326 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 312 + Top = 326 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 326 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end + object DataSource2: TDataSource + DataSet = CDS_HZ + Left = 328 + Top = 230 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 230 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 392 + Top = 230 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas new file mode 100644 index 0000000..824462a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas @@ -0,0 +1,206 @@ +unit U_BGHZSelList; + +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, cxTextEdit, cxDropDownEdit; + +type + TfrmBGHZSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + ToolButton2: TToolButton; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column1: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + v6Column5: TcxGridDBColumn; + v6Column6: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGHZSelList: TfrmBGHZSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGHZSelList.FormDestroy(Sender: TObject); +begin + frmBGHZSelList:=nil; +end; + +procedure TfrmBGHZSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGHZSelList.FormCreate(Sender: TObject); +begin + //cxgrid1.Align:=alClient; +end; + +procedure TfrmBGHZSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ػбѡ',Tv1,'Ʊ'); + WriteCxGrid('ػбѡ1',Tv6,'Ʊ'); +end; +procedure TfrmBGHZSelList.InitForm(); +begin + ReadCxGrid('ػбѡ',Tv1,'Ʊ'); + ReadCxGrid('ػбѡ1',Tv6,'Ʊ'); +end; +procedure TfrmBGHZSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGHZSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGHZSelList.ToolButton2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmBGHZSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmBGHZSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmBGHZSelList.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm new file mode 100644 index 0000000..11093f5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm @@ -0,0 +1,1392 @@ +object frmBGJCKMXGYSInput: TfrmBGJCKMXGYSInput + Left = 77 + Top = 16 + Width = 1265 + Height = 690 + Align = alClient + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1249 + 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_CYZZ.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 Panel1: TPanel + Left = 0 + Top = 29 + Width = 604 + Height = 622 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 600 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 277 + Top = 15 + Width = 39 + Height = 12 + Caption = #26085#26399#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 = 21 + Top = 15 + Width = 78 + Height = 12 + Caption = #35746#21333#35782#21035#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGDate: TDateTimePicker + Tag = 2 + Left = 314 + Top = 11 + Width = 105 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 95 + Top = 11 + Width = 165 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + end + object Panel3: TPanel + Left = 2 + Top = 44 + Width = 600 + Height = 576 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 596 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25439#32791#35745#31639 + ImageIndex = 134 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton6Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 596 + Height = 359 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v2Column5: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v2Column6: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 47 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 49 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 52 + end + object v2Column7: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 394 + Width = 596 + Height = 33 + Align = alBottom + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 427 + Width = 596 + Height = 147 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 193 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQKgQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 69 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 69 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + end + end + object Panel4: TPanel + Left = 612 + Top = 29 + Width = 637 + Height = 622 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 633 + Height = 128 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label14: TLabel + Left = 143 + Top = 13 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 437 + Top = 14 + Width = 39 + Height = 12 + Caption = #27425#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 2 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#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 = 362 + Top = 14 + Width = 39 + Height = 12 + Caption = #31859#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 281 + Top = 40 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#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 = 4 + Top = 40 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 163 + Top = 40 + Width = 39 + Height = 12 + Caption = #20445#36153#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 = 139 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 262 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ComTaiTou: TEdit + Tag = 2 + Left = 209 + Top = 10 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object EditCount: TEdit + Tag = 2 + Left = 471 + Top = 10 + Width = 24 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 48 + Top = 11 + Width = 93 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 395 + Top = 10 + Width = 41 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object cxGrid5: TcxGrid + Left = 3 + Top = 60 + Width = 565 + Height = 64 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + object TVBGName: TcxGridDBTableView + OnDblClick = TVBGNameDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_BGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 174 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 339 + Top = 36 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object HaiYunFee: TEdit + Tag = 2 + Left = 49 + Top = 36 + Width = 86 + Height = 20 + TabOrder = 6 + end + object BaoFee: TEdit + Tag = 2 + Left = 195 + Top = 36 + Width = 66 + Height = 20 + TabOrder = 7 + end + end + object Panel6: TPanel + Left = 2 + Top = 130 + Width = 633 + Height = 490 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 345 + Width = 629 + Height = 143 + Align = alBottom + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel7: TPanel + Left = 2 + Top = 2 + Width = 629 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 625 + Height = 223 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv7FocusedRecordChanged + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn14 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + 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 + OptionsSelection.CellSelect = 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 cxGridDBColumn11: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv7 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 225 + Width = 625 + Height = 116 + Align = alBottom + TabOrder = 1 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn22 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn19: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel5: TcxGridLevel + GridView = TvFee + end + end + end + end + end + object cxSplitter1: TcxSplitter + Left = 604 + Top = 29 + Width = 8 + Height = 622 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel4 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 830 + Top = 265 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 864 + Top = 265 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 896 + Top = 264 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 397 + Top = 385 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 433 + Top = 387 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 533 + Top = 345 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 97 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 899 + Top = 98 + end + object DS_BGName: TDataSource + DataSet = CDS_BGName + Left = 840 + Top = 101 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 857 + Top = 458 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 891 + Top = 458 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 923 + Top = 457 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 956 + Top = 459 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 546 + Top = 502 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 529 + Top = 509 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 563 + Top = 510 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 945 + Top = 425 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 976 + Top = 425 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 1007 + Top = 427 + end + object ClientDataSetJS: TClientDataSet + Aggregates = <> + Params = <> + Left = 443 + Top = 287 + end + object ClientDataSetJS1: TClientDataSet + Aggregates = <> + Params = <> + Left = 490 + Top = 287 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas new file mode 100644 index 0000000..c37674f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas @@ -0,0 +1,977 @@ +unit U_BGJCKMXGYSInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxCheckBox, cxCalendar, cxDropDownEdit, cxPC, cxTextEdit, cxSplitter; + +type + TfrmBGJCKMXGYSInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + Panel5: TPanel; + Label14: TLabel; + Panel6: TPanel; + ComTaiTou: TEdit; + Label2: TLabel; + BGDate: TDateTimePicker; + v2Column1: TcxGridDBColumn; + Label4: TLabel; + EditCount: TEdit; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DS_BGName: TDataSource; + Label1: TLabel; + OrderNo: TEdit; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Tv6Column1: TcxGridDBColumn; + Label8: TLabel; + BCOrderNo: TEdit; + v2Column2: TcxGridDBColumn; + ClientDataSet6: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DataSource6: TDataSource; + Label12: TLabel; + MLenStr: TEdit; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel7: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + DS_Fee: TDataSource; + cxGridPopupMenu4: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + ToolButton5: TToolButton; + ClientDataSetJS: TClientDataSet; + v6Column1: TcxGridDBColumn; + ClientDataSetJS1: TClientDataSet; + ToolButton6: TToolButton; + Label3: TLabel; + ChengJiaoType: TBtnEditA; + Label5: TLabel; + HaiYunFee: TEdit; + Label6: TLabel; + BaoFee: TEdit; + Label7: TLabel; + Label9: TLabel; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure Tv7FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure TVBGNameDblClick(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + procedure InitGridMD(); + public + { Public declarations } + FOrderNo,FBGID,FBCID:String; + end; + +var + frmBGJCKMXGYSInput: TfrmBGJCKMXGYSInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGJCKMXGYSInput.FormDestroy(Sender: TObject); +begin + frmBGJCKMXGYSInput:=nil; +end; + +procedure TfrmBGJCKMXGYSInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv2',Tv2,'ϸ'); + WriteCxGrid('tv6',Tv6,'ϸ'); + Close; +end; + +procedure TfrmBGJCKMXGYSInput.FormShow(Sender: TObject); +begin + ReadCxGrid('tv2',Tv2,'ϸ'); + ReadCxGrid('tv6',Tv6,'ϸ'); + BGDate.DateTime:=SGetServerDate(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG_CK where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; +end; + +procedure TfrmBGJCKMXGYSInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('MLen').Value:=StrToFloat(MLenStr.Text); + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BFID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_KPFee where BFID='''+Trim(ClientDataSet2.fieldbyname('BFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGJCKMXGYSInput.SaveData():Boolean; +var + maxno,maxsubno,maxNQNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + /// + if Trim(FBCID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BC','JYOrder_BG_CK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBCID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG_CK where BCId='''+Trim(FBCID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBCID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('BGID').Value:=Trim(FBGID); + FieldByName('BCID').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_BG_CK',Panel2,2); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCorderno='''+Trim(BCOrderNo.Text)+''''); + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʶظ!','ʾ',0); + Exit; + end; + + ///濪Ʊӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BF','JYOrder_BG_KPFee',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BFId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BFId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + FieldByName('BCId').Value:=Trim(maxno); + FieldByName('BFId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_KPFee',0); + FieldByName('FactoryNo').Value:=ClientDataSet2.fieldbyname('FactoryNo').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BFId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨Ϣӱ + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxNQNo,'NQId','JYOrder_BG_CKName_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxNQNo:=Trim(ClientDataSet6.fieldbyname('NQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where NQId='''+Trim(maxNQNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + FieldByName('BCId').Value:=Trim(maxno); + FieldByName('NQId').Value:=Trim(maxNQNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_BG_CKName_Qty',0); + Post; + end; + ClientDataSet6.Edit; + ClientDataSet6.FieldByName('NQId').Value:=Trim(maxNQNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGJCKMXGYSInput.TBSaveClick(Sender: TObject); +var + FReal:Double;//a39978874 +begin + ToolBar1.SetFocus; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ʶŲΪգ','ʾ',0); + Exit; + end; + + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + + +end; + +procedure TfrmBGJCKMXGYSInput.Tv7FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGridMD(); +end; +procedure TfrmBGJCKMXGYSInput.InitGridMD(); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_BGMX :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet7.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet7.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxPageControl1Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGJCKMXGYSInput.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + if Trim(ClientDataSet7.fieldbyname('BQUnit').AsString)<>'M' then + begin + FieldByName('BFQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value*strtofloat(MLenStr.Text); + end; + end else + begin + FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + end; + FieldByName('BFUnit').Value:='M'; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('MLen').Value:=StrToFloat(MLenStr.Text); + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.TVBGNameDblClick(Sender: TObject); +begin + with ClientDataSet6 do + begin + Append; + FieldByName('BGName').Value:=CDS_BGName.fieldbyname('BGName').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BFName'; + flagname:='ط'; + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FMQty,FMoney,FMLen:string; +begin + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + if Trim(FQty)='' then + begin + FQty:='0'; + end; + FMLen:=Trim(ClientDataSet2.fieldbyname('MLen').AsString); + if Trim(FMLen)='' then + begin + FMLen:='0'; + end; + if (Trim(FName)='MLen') or (Trim(FName)='BFQty') then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('BFMQty').Value:=StrToFloat(FQty)*StrToFloat(FMLen); + Post; + end; + end; + FPrice:=Trim(ClientDataSet2.fieldbyname('BFPrice').AsString); + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + FMQty:=Trim(ClientDataSet2.fieldbyname('BFMQty').AsString); + FMoney:=Trim(ClientDataSet2.fieldbyname('BFMoney').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + if Trim(FMoney)='' then + begin + FMoney:='0'; + end; + with ClientDataSet2 do + begin + Edit; + if Trim(FName)='BFPrice' then + begin + if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then + begin + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FMQty); + end else + begin + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + end; + end else + begin + if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'0' then + FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FMQty) + else + FieldByName('BFPrice').Value:=0; + end else + begin + if Trim(FQty)<>'0' then + FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FQty) + else + FieldByName('BFPrice').Value:=0; + end; + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('NQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_CKName_Qty where NQID='''+Trim(ClientDataSet6.fieldbyname('NQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmBGJCKMXGYSInput.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton5Click(Sender: TObject); +var + Fqty1,Fqty2:string; + Qty1,Qty2:Double; + i:Integer; +begin + if ClientDataSet2.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSetJS); + SInitCDSData20(ADOQueryTemp,ClientDataSetJS); + SCreateCDS20(ADOQueryTemp,ClientDataSetJS1); + SInitCDSData20(ADOQueryTemp,ClientDataSetJS1); + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ClientDataSetJS do + begin + Append; + Post; + end; + with ClientDataSetJS1 do + begin + Append; + Post; + end; + for i:=0 to Tv2.ColumnCount-1 do + begin + with ClientDataSetJS do + begin + Edit; + FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value; + Post; + end; + with ClientDataSetJS1 do + begin + Edit; + FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value; + Post; + end; + end; + Next; + end; + end; + ClientDataSet2.EnableControls; + ClientDataSet2.DisableControls; + + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'' then + begin + if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'1' then + begin + Qty1:=0; + Qty2:=0; + with ClientDataSetJS do + begin + First; + while not Eof do + begin + if ClientDataSetJS.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger-1 then + begin + if Trim(ClientDataSetJS.fieldbyname('BFUnit').AsString)='M' then + Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFMQty').AsFloat + else + Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFQty').AsFloat; + end; + Next; + end; + end; + with ClientDataSetJS1 do + begin + First; + while not Eof do + begin + if ClientDataSetJS1.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger then + begin + if Trim(ClientDataSetJS1.fieldbyname('BFUnit').AsString)='M' then + Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFMQty').AsFloat + else + Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFQty').AsFloat; + end; + Next; + end; + end; + Edit; + FieldByName('PSSHQty').Value:=Qty1-Qty2; + Post; + end; + end; + Next; + end; + end; + ClientDataSet2.EnableControls; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton6Click(Sender: TObject); +begin + if Trim(EditCount.Text)='1' then Exit; + if Application.MessageBox('ȷҪִиƲִд˲,֮ǰݽ!','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='); + sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ClientDataSet2 do + begin + First; + while not eof do + begin + Edit; + FieldByName('BFID').Value:=''; + FieldByName('BCID').Value:=''; + FieldByName('BGID').Value:=''; + Post; + next; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='); + sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + with ClientDataSet6 do + begin + First; + while not eof do + begin + Edit; + FieldByName('NQID').Value:=''; + FieldByName('BCID').Value:=''; + FieldByName('BGID').Value:=''; + Post; + next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG_CK Set Valid=''N'' where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + ExecSQL; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm new file mode 100644 index 0000000..28505ae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm @@ -0,0 +1,1309 @@ +object frmBGJCKMXInput: TfrmBGJCKMXInput + Left = 7 + Top = 52 + Width = 1248 + Height = 675 + Align = alClient + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1232 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object TBSave: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 10 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 657 + Height = 607 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel77: TPanel + Left = 2 + Top = 2 + Width = 653 + Height = 220 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 37 + Width = 649 + Height = 181 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label14: TLabel + Left = 215 + Top = 13 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 560 + Top = 13 + Width = 39 + Height = 12 + Caption = #27425#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 26 + Top = 13 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#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 = 449 + Top = 13 + Width = 60 + Height = 12 + Caption = #31859' '#38271#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 = 449 + Top = 36 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#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 = 26 + Top = 36 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 215 + Top = 36 + Width = 60 + Height = 12 + Caption = #20445' '#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 189 + Top = 36 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 422 + Top = 36 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 26 + Top = 60 + Width = 52 + Height = 12 + Caption = #36135#28304#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 215 + Top = 60 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#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 = 449 + Top = 60 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid5: TcxGrid + Left = 27 + Top = 81 + Width = 592 + Height = 96 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_BGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn30 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object EditCount: TEdit + Tag = 2 + Left = 594 + Top = 9 + Width = 24 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 77 + Top = 9 + Width = 123 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 507 + Top = 9 + Width = 41 + Height = 20 + TabOrder = 3 + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 507 + Top = 32 + Width = 113 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = ChengJiaoTypeBtnClick + end + object HaiYunFee: TEdit + Tag = 2 + Left = 77 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 5 + end + object BaoFee: TEdit + Tag = 2 + Left = 279 + Top = 32 + Width = 140 + Height = 20 + TabOrder = 6 + end + object HuoYuanPlace: TBtnEditA + Tag = 2 + Left = 77 + Top = 56 + Width = 123 + Height = 20 + ReadOnly = True + TabOrder = 7 + OnBtnClick = HuoYuanPlaceBtnClick + end + object ChuKouKA: TBtnEditA + Tag = 2 + Left = 279 + Top = 56 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ChuKouKABtnClick + end + object YunDiG: TBtnEditA + Tag = 2 + Left = 507 + Top = 56 + Width = 113 + Height = 20 + ReadOnly = True + TabOrder = 9 + OnBtnClick = YunDiGBtnClick + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 279 + Top = 8 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 10 + OnBtnClick = ComTaiTouBtnClick + end + end + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 649 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label2: TLabel + Left = 215 + Top = 11 + Width = 39 + Height = 12 + Caption = #26085#26399#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 = 26 + Top = 11 + Width = 78 + Height = 12 + Caption = #35746#21333#35782#21035#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 346 + Top = 11 + Width = 52 + Height = 12 + Caption = #20844#26020#20215#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 = 461 + Top = 11 + Width = 39 + Height = 12 + Caption = #31859#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGDate: TDateTimePicker + Tag = 2 + Left = 249 + Top = 7 + Width = 97 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 0 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 98 + Top = 7 + Width = 115 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 1 + end + object Edit1: TEdit + Left = 394 + Top = 7 + Width = 56 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object Edit2: TEdit + Left = 495 + Top = 7 + Width = 56 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 3 + end + object CheckBox1: TCheckBox + Left = 570 + Top = 10 + Width = 49 + Height = 17 + Caption = #20840#37096 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + end + object Panel3: TPanel + Left = 2 + Top = 222 + Width = 653 + Height = 383 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid6: TcxGrid + Left = 2 + Top = 257 + Width = 649 + Height = 124 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 649 + Height = 255 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2BCOrderNo: TcxGridDBColumn + Tag = 55 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column5: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v2Column6: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 47 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 49 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 52 + end + object v2Column7: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 657 + Top = 29 + Width = 575 + Height = 607 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 571 + Height = 603 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 567 + Height = 318 + Align = alTop + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv7FocusedRecordChanged + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn14 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + 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 + OptionsSelection.CellSelect = 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 cxGridDBColumn11: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv7 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 320 + Width = 567 + Height = 281 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 826 + Top = 241 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 856 + Top = 240 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 887 + Top = 242 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 463 + Top = 387 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 495 + Top = 390 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 1005 + Top = 134 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 981 + Top = 136 + end + object DS_BGName: TDataSource + DataSet = CDS_BGName + Left = 1040 + Top = 140 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 857 + Top = 458 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 891 + Top = 458 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 923 + Top = 457 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 956 + Top = 459 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 263 + Top = 478 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 293 + Top = 481 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 325 + Top = 484 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas new file mode 100644 index 0000000..f69dbd0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas @@ -0,0 +1,1100 @@ +unit U_BGJCKMXInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxCheckBox, cxCalendar, cxDropDownEdit, cxPC, cxTextEdit; + +type + TfrmBGJCKMXInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel77: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + Panel3: TPanel; + Panel4: TPanel; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DS_BGName: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + ClientDataSet6: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DataSource6: TDataSource; + v6Column1: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2BCOrderNo: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + Panel5: TPanel; + Label14: TLabel; + Label4: TLabel; + Label1: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label13: TLabel; + Label15: TLabel; + Label16: TLabel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + EditCount: TEdit; + OrderNo: TEdit; + MLenStr: TEdit; + ChengJiaoType: TBtnEditA; + HaiYunFee: TEdit; + BaoFee: TEdit; + HuoYuanPlace: TBtnEditA; + ChuKouKA: TBtnEditA; + YunDiG: TBtnEditA; + Panel2: TPanel; + Label2: TLabel; + Label8: TLabel; + Label3: TLabel; + Label5: TLabel; + BGDate: TDateTimePicker; + BCOrderNo: TEdit; + Edit1: TEdit; + Edit2: TEdit; + CheckBox1: TCheckBox; + cxGrid1: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolButton1: TToolButton; + ComTaiTou: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBSaveClick(Sender: TObject); + procedure Tv7FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure TVBGNameDblClick(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure HuoYuanPlaceBtnClick(Sender: TObject); + procedure ChuKouKABtnClick(Sender: TObject); + procedure YunDiGBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + private + { Private declarations } + FInt:String; + function SaveData():Boolean; + procedure InitGridMD(); + public + { Public declarations } + FOrderNo,FBGID,FBCID:String; + end; + +var + frmBGJCKMXInput: TfrmBGJCKMXInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGJCKMXInput.FormDestroy(Sender: TObject); +begin + frmBGJCKMXInput:=nil; +end; + +procedure TfrmBGJCKMXInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv2',tv2,'ϸ'); + WriteCxGrid('tv6',tv6,'ϸ'); + Close; +end; + +procedure TfrmBGJCKMXInput.FormShow(Sender: TObject); +var + FMoney,FMQty,FKgQty:String; +begin + + BGDate.DateTime:=SGetServerDate(ADOQueryTemp); + ReadCxGrid('tv2',tv2,'ϸ'); + ReadCxGrid('tv6',tv6,'ϸ'); + v2BCOrderNo.Visible:=False; + v2BCOrderNo.Hidden:=True; + v6BCOrderNo.Visible:=False; + v6BCOrderNo.Hidden:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG_CK where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; +end; + +procedure TfrmBGJCKMXInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +function TfrmBGJCKMXInput.SaveData():Boolean; +var + maxno,maxsubno,maxNQNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYorder_BG',Panel5,2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + post; + end; + //SCSHDataNew(ADOQueryTemp,Panel5,2); + /// + if Trim(FBCID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BC','JYOrder_BG_CK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBCID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG_CK where BCId='''+Trim(FBCID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBCID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('BGID').Value:=Trim(FBGID); + FieldByName('BCID').Value:=Trim(maxno); + // RTSetsavedata(ADOQueryCmd,'JYOrder_BG_CK',Panel2,2); + //FieldByName('BGNote').Value:=Trim(BGNote.Text); + if Trim(FInt)<>'99' then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('Chktime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkStatus').Value:='ͨ'; + end; + + Post; + end; + + ///汨Ϣӱ + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxNQNo,'NQId','JYOrder_BG_CKName_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxNQNo:=Trim(ClientDataSet6.fieldbyname('NQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where NQId='''+Trim(maxNQNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + {if CheckBox1.Checked=False then + begin + FieldByName('BCId').Value:=Trim(maxno); + end;} + FieldByName('NQId').Value:=Trim(maxNQNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_BG_CKName_Qty',0); + Post; + end; + ClientDataSet6.Edit; + ClientDataSet6.FieldByName('NQId').Value:=Trim(maxNQNo); + //Order_Sub.Post; + Next; + end; + end; + if CheckBox1.Checked then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set Chker='''+Trim(DName)+''',ChkStatus=''ͨ'' '); + sql.Add(',ChkTime=Getdate()'); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + sql.Add(' and isnull(SSTIme,'''')<>'''' '); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGJCKMXInput.TBSaveClick(Sender: TObject); +var + FReal:Double;//a39978874 +begin + ToolBar1.SetFocus; + FInt:=''; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + + +end; + +procedure TfrmBGJCKMXInput.Tv7FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGridMD(); +end; +procedure TfrmBGJCKMXInput.InitGridMD(); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_BGMX :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet7.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet7.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGJCKMXInput.cxPageControl1Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGJCKMXInput.Tv7DblClick(Sender: TObject); +begin + {with ClientDataSet2 do + begin + Append; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + FieldByName('BFQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + FieldByName('BFUnit').Value:=ClientDataSet7.fieldbyname('BQUnit').Value; + Post; + end; } +end; + +procedure TfrmBGJCKMXInput.TVBGNameDblClick(Sender: TObject); +begin + with ClientDataSet6 do + begin + Append; + FieldByName('BGName').Value:=CDS_BGName.fieldbyname('BGName').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BFName'; + flagname:='ط'; + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet2.fieldbyname('BFPrice').AsString); + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; +end; + +procedure TfrmBGJCKMXInput.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXInput.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FMQty,FMoney,FMLen:string; +begin + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(ClientDataSet6.fieldbyname('NQkgQty').AsString); + if Trim(FQty)='' then + begin + FQty:='0'; + end; + FMQty:=Trim(ClientDataSet6.fieldbyname('NQMQty').AsString); + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + FPrice:=Trim(ClientDataSet6.fieldbyname('BGPrice').AsString); + FMoney:=Trim(ClientDataSet6.fieldbyname('BGMoney').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + if Trim(FMoney)='' then + begin + FMoney:='0'; + end; + with ClientDataSet6 do + begin + Edit; + if Trim(FName)='BGPrice' then + begin + if Trim(ClientDataSet6.fieldbyname('NQUnit').AsString)='M' then + begin + FieldByName('BGMoney').Value:=StrToFloat(FPrice)*StrToFloat(FMQty); + end else + begin + FieldByName('BGMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + end; + end else + begin + if Trim(ClientDataSet6.fieldbyname('NQUnit').AsString)='M' then + begin + if Trim(FMQty)<>'0' then + FieldByName('BGPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FMQty) + else + FieldByName('BGPrice').Value:=0; + end else + begin + if Trim(FQty)<>'0' then + FieldByName('BGPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FQty) + else + FieldByName('BGPrice').Value:=0; + end; + end; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.CheckBox1Click(Sender: TObject); +var + FMoney,FMQty,FKgQty:String; +begin + if CheckBox1.Checked=False then + begin + v2BCOrderNo.Visible:=False; + v2BCOrderNo.Hidden:=True; + v6BCOrderNo.Visible:=False; + v6BCOrderNo.Hidden:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + v2BCOrderNo.Visible:=True; + v2BCOrderNo.Hidden:=False; + v6BCOrderNo.Visible:=True; + v6BCOrderNo.Hidden:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.BCOrderNo '); + sql.Add(' from JYOrder_BG_KPFee A'); + sql.Add(' inner join JYOrder_BG_CK B on A.BCID=B.BCID'); + sql.Add(' where B.BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.BCOrderNo '); + sql.Add(' from JYOrder_BG_CKName_Qty A'); + sql.Add(' inner join JYOrder_BG_CK B on A.BCID=B.BCID'); + sql.Add(' where B.BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end; + + +end; + +procedure TfrmBGJCKMXInput.HuoYuanPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HuoYuanPlace'; + flagname:='Դ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + HuoYuanPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + {with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set HuoYuanPlace='''+Trim(HuoYuanPlace.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ChuKouKABtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + ChuKouKA.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + { with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set ChuKouKA='''+Trim(ChuKouKA.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.YunDiGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + YunDiG.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + {with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set YunDiG='''+Trim(YunDiG.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end; } + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ToolButton1Click(Sender: TObject); +begin + ToolBar1.SetFocus; + FInt:='99'; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; +end; + +procedure TfrmBGJCKMXInput.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm new file mode 100644 index 0000000..77ebf6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm @@ -0,0 +1,1316 @@ +object frmBGLDChk: TfrmBGLDChk + Left = 12 + Top = 34 + Width = 1271 + Height = 675 + Caption = #25253#20851#36164#26009#21333#23457#26680 + 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 = 1263 + 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_CYZZ.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 TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 375 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton3: TToolButton + Left = 462 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 549 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1263 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 262 + Top = 11 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 128 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1263 + Height = 577 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + ClientRectBottom = 577 + ClientRectRight = 1263 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object Panel2: TPanel + Left = 631 + Top = 21 + Width = 632 + Height = 537 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxPageControl2: TcxPageControl + Left = 2 + Top = 2 + Width = 628 + Height = 533 + ActivePage = cxTabSheet4 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 533 + ClientRectRight = 628 + ClientRectTop = 23 + object cxTabSheet2: TcxTabSheet + Caption = #25253#20851#26126#32454#20449#24687 + ImageIndex = 0 + object cxGrid11: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 279 + Align = alClient + TabOrder = 0 + object Tv11: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv11CellClick + DataController.DataSource = DS_11 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Bands = < + item + Caption = #22522#26412#20449#24687 + Width = 203 + end + item + Caption = #20986#21475 + Width = 138 + end + item + Caption = #25253#20851 + Width = 286 + end + item + Width = 62 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ChuKouPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 30 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20844#26020 + DataBinding.FieldName = 'ChuKouKgQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 39 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn4: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'ChuKouMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BGPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #27611#37325 + DataBinding.FieldName = 'BGKgMZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 64 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 51 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = #20928#37325 + DataBinding.FieldName = 'BGKgJZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BGMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 58 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BGNote' + Options.Moving = False + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel7: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid19: TcxGrid + Left = 0 + Top = 279 + Width = 628 + Height = 231 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 203 + end + object Tv19Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'NQQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv19Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel10: TcxGridLevel + GridView = Tv19 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #30721#21333#20449#24687 + ImageIndex = 1 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 510 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992 + ImageIndex = 2 + object cxGrid4: TcxGrid + Left = 0 + Top = 21 + Width = 628 + Height = 489 + Align = alClient + TabOrder = 0 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vFeeColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 36 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvFee + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 0 + Width = 628 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 628 + ClientRectTop = 23 + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1263 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1263 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 0 + Top = 21 + Width = 631 + Height = 537 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 629 + Height = 160 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid5: TcxGrid + Left = 1 + Top = 161 + Width = 629 + Height = 108 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TVBGName + end + end + object Panel3: TPanel + Left = 1 + Top = 269 + Width = 629 + Height = 267 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 303 + Top = 2 + Width = 324 + Height = 263 + Align = alRight + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TVPrice: TcxGridDBTableView + OnDblClick = TVPriceDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21512#21516#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #23545#36134#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VPriceColumn1: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object VPriceColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVPrice + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 293 + Height = 263 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn4 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 64 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 295 + Top = 2 + Width = 8 + Height = 263 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid3 + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 363 + Top = 189 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 193 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 430 + Top = 196 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1101 + Top = 227 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1160 + Top = 227 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1132 + Top = 226 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 238 + Top = 473 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 263 + Top = 471 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 306 + Top = 488 + end + object CDS_11: TClientDataSet + Aggregates = <> + Params = <> + Left = 1067 + Top = 396 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 1067 + Top = 424 + end + object DS_11: TDataSource + DataSet = CDS_11 + Left = 1068 + Top = 452 + end + object CDS_19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1109 + Top = 522 + end + object cxGridPopupMenu19: TcxGridPopupMenu + PopupMenus = <> + Left = 1171 + Top = 522 + end + object DS_19: TDataSource + DataSet = CDS_19 + Left = 1140 + Top = 521 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 390 + Top = 315 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 369 + Top = 312 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 326 + Top = 303 + end + object CDS_Price: TClientDataSet + Aggregates = <> + Params = <> + Left = 434 + Top = 471 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 469 + Top = 474 + end + object DataSource3: TDataSource + DataSet = CDS_Price + Left = 499 + Top = 474 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 917 + Top = 468 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 916 + Top = 440 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 916 + Top = 412 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas new file mode 100644 index 0000000..55e787b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas @@ -0,0 +1,674 @@ +unit U_BGLDChk; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit, + cxButtonEdit, cxTextEdit, cxCheckBox, cxSplitter; + +type + TfrmBGLDChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBView: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_11: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + DS_11: TDataSource; + CDS_19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + DS_19: TDataSource; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxPageControl2: TcxPageControl; + cxTabSheet2: TcxTabSheet; + cxGrid11: TcxGrid; + Tv11: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn4: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridLevel7: TcxGridLevel; + cxGrid19: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn43: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + cxGridLevel10: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton4: TToolButton; + Panel3: TPanel; + cxGrid3: TcxGrid; + TVPrice: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + CDS_Price: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource3: TDataSource; + cxTabSheet4: TcxTabSheet; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + vFeeColumn1: TcxGridDBColumn; + DS_Fee: TDataSource; + cxGridPopupMenu4: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + cxTabControl2: TcxTabControl; + VPriceColumn1: TcxGridDBColumn; + VPriceColumn2: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton4Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TVPriceDblClick(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBGLDChk: TfrmBGLDChk; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_CWMDOtherFeeList; + +{$R *.dfm} + +procedure TfrmBGLDChk.FormDestroy(Sender: TObject); +begin + frmBGLDChk:=nil; +end; + +procedure TfrmBGLDChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGLDChk.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ϵ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGLDChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGLDChk.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + cxPageControl2.ActivePageIndex:=1; +end; + +procedure TfrmBGLDChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGLDChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_Fee where Mainid='''+Trim(FMainId)+''''); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee);} + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+''''); + sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')='''' )'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_11); + SInitCDSData20(ADOQueryTemp,CDS_11); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGLDChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDChk.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus=''ͨ'',ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + if cxPageControl2.ActivePageIndex=2 then + begin + if cxTabControl2.TabIndex=0 then + begin + with CDS_Fee do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus=''ͨ'',QTChkTime=getdate(),QTChker='''+Trim(DName)+''''); + sql.Add(',BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('QTChkStatus').Value:='ͨ'; + FieldByName('QTChkTime').Value:=Now; + FieldByName('QTChker').Value:=Trim(DName); + Post; + CDS_Fee.Delete; + end; + end; + end; + end; + + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus=''˲ͨ'',ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGLDChk.Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); +end; + +procedure TfrmBGLDChk.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_11.IsEmpty=False then + begin + Application.MessageBox('Ѳݣܳ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then + begin + Application.MessageBox('ݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',ChkTime=Null,Chker=Null '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + if cxPageControl2.ActivePageIndex=2 then + begin + if cxTabControl2.TabIndex=1 then + begin + with CDS_Fee do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus='''',QTChkTime=NUll,QTChker='''' '); + sql.Add(',BGID='''' '); + SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + CDS_Fee.Delete; + end; + end; + end; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.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 TfrmBGLDChk.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBGLDChk.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + //fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet2.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet2.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Price); + SInitCDSData20(ADOQueryTemp,CDS_Price); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGLDChk.TVPriceDblClick(Sender: TObject); +begin + try + frmCWMDOtherFeeList:=TfrmCWMDOtherFeeList.Create(Application); + with frmCWMDOtherFeeList do + begin + orderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + PSName.Text:=Trim(Self.ClientDataSet2.fieldbyname('PSName').AsString); + MDFactoryName.Text:=Trim(Self.ClientDataSet2.fieldbyname('FactoryName').AsString); + FFPInt:=9; + if ShowModal=1 then + begin + + end; + end; + finally + frmCWMDOtherFeeList.Free; + end; +end; + +procedure TfrmBGLDChk.cxTabControl2Change(Sender: TObject); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+''''); + sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')='''' )'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm new file mode 100644 index 0000000..4914caa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm @@ -0,0 +1,1227 @@ +object frmBGLDManage: TfrmBGLDManage + Left = 36 + Top = 82 + Width = 1271 + Height = 675 + Caption = #25253#20851#31649#29702 + 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 = 1255 + AutoSize = True + 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_CYZZ.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 ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 28 + OnClick = ToolButton4Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #30830#35748 + ImageIndex = 75 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 654 + Top = 0 + Caption = #30830#35748#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBPrint: TToolButton + Left = 737 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object ToolButton3: TToolButton + Left = 800 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 887 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1255 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 262 + Top = 11 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 139 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CheckBox1: TCheckBox + Left = 478 + Top = 9 + Width = 140 + Height = 17 + Caption = #26174#31034#23457#26680#19981#36890#36807#25968#25454 + TabOrder = 3 + OnClick = CheckBox1Click + end + object CheckBox2: TCheckBox + Left = 650 + Top = 9 + Width = 110 + Height = 17 + Caption = #26174#31034#26080#25928#25968#25454 + TabOrder = 4 + OnClick = CheckBox2Click + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1255 + Height = 569 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + ClientRectBottom = 569 + ClientRectRight = 1255 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object Panel2: TPanel + Left = 623 + Top = 21 + Width = 632 + Height = 529 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxPageControl2: TcxPageControl + Left = 2 + Top = 2 + Width = 628 + Height = 525 + ActivePage = cxTabSheet2 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 525 + ClientRectRight = 628 + ClientRectTop = 23 + object cxTabSheet2: TcxTabSheet + Caption = #36130#21153#21453#39304#20449#24687 + ImageIndex = 0 + object cxGrid6: TcxGrid + Left = 0 + Top = 368 + Width = 628 + Height = 134 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv19CellDblClick + DataController.DataSource = DS_19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv19Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv19 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 136 + Align = alTop + PopupMenu = PopupMenu2 + TabOrder = 1 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv11CellClick + DataController.DataSource = DS_11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 92 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v11Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30830#35748#20154 + DataBinding.FieldName = 'OKPerson' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #30830#35748#26102#38388 + DataBinding.FieldName = 'OKTime' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #24050#30830#35748 + DataBinding.FieldName = 'OKFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid12: TcxGrid + Left = 0 + Top = 136 + Width = 654 + Height = 232 + Align = alLeft + TabOrder = 2 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn15 + end + item + Kind = skSum + Position = spFooter + Column = v12Column2 + end> + DataController.Summary.FooterSummaryItems = < + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v12Column3: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #30721#21333#20449#24687 + ImageIndex = 1 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 502 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1255 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24453#30830#35748 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1255 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 0 + Top = 21 + Width = 623 + Height = 529 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 621 + Height = 200 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#27425 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel8: TPanel + Left = 1 + Top = 309 + Width = 621 + Height = 219 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 617 + Height = 215 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGrid5: TcxGrid + Left = 1 + Top = 201 + Width = 621 + Height = 108 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1ty: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TVBGName + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 637 + Top = 309 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 668 + Top = 309 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 697 + Top = 309 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1083 + Top = 5 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1023 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1101 + Top = 227 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1160 + Top = 227 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1132 + Top = 226 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 393 + Top = 525 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 424 + Top = 525 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 457 + Top = 528 + end + object CDS_11: TClientDataSet + Aggregates = <> + Params = <> + Left = 1067 + Top = 396 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 1067 + Top = 424 + end + object DS_11: TDataSource + DataSet = CDS_11 + Left = 1068 + Top = 452 + end + object CDS_19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1109 + Top = 522 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 1171 + Top = 522 + end + object DS_19: TDataSource + DataSet = CDS_19 + Left = 1140 + Top = 521 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 630 + Top = 524 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 659 + Top = 526 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 688 + Top = 526 + end + object PopupMenu1: TPopupMenu + Left = 799 + Top = 422 + object N1: TMenuItem + Caption = #23548#20986 + OnClick = N1Click + end + end + object PopupMenu2: TPopupMenu + Left = 773 + Top = 180 + object MenuItem1: TMenuItem + Caption = #25171#21360 + OnClick = MenuItem1Click + end + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 1166 + Top = 385 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 1133 + Top = 387 + end + object cxGridPopupMenu12: TcxGridPopupMenu + Grid = cxGrid12 + PopupMenus = <> + Left = 1204 + Top = 386 + 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 = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 804 + Top = 181 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 843 + Top = 181 + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 875 + Top = 179 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = CDS_19 + Left = 908 + Top = 180 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas new file mode 100644 index 0000000..d34ca21 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas @@ -0,0 +1,817 @@ +unit U_BGLDManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit, + cxCheckBox, Menus, RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System, + RM_GridReport; + +type + TfrmBGLDManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_11: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + DS_11: TDataSource; + CDS_19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + DS_19: TDataSource; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Panel8: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1ty: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxPageControl2: TcxPageControl; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid6: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolButton5: TToolButton; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolButton6: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + v12Column3: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet12: TClientDataSet; + DataSource12: TDataSource; + cxGridPopupMenu12: TcxGridPopupMenu; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB12: TRMDBDataSet; + RMDB19: TRMDBDataSet; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv19CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + public + FSel:String; + { Public declarations } + end; + +var + frmBGLDManage: TfrmBGLDManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput; + +{$R *.dfm} + +procedure TfrmBGLDManage.FormDestroy(Sender: TObject); +begin + frmBGLDManage:=nil; +end; + +procedure TfrmBGLDManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGLDManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˵'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGLDManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGLDManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + if Trim(FSel)='99' then + begin + cxTabControl1.TabIndex:=3; + frmBGLDManage.Align:=alClient; + end else + begin + cxTabControl1.TabIndex:=0; + end; + InitGrid(); + cxPageControl2.ActivePageIndex:=0; +end; + +procedure TfrmBGLDManage.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG A where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + //sql.Add(' and Filler='''+Trim(DName)+''''); + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + SQL.Add(fsj); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' )'); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' and B.OKFlag=0 )'); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' and B.OKFlag=0 )'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if CheckBox1.Checked=False then + begin + sql.Add('and isnull(ChkStatus,'''')<>''˲ͨ'' '); + end; + if CheckBox2.Checked=False then + begin + + sql.Add('and isnull(Valid,'''')<>''N'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGLDManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_11); + SInitCDSData20(ADOQueryTemp,CDS_11); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet12); + SInitCDSData20(ADOQueryTemp,ClientDataSet12); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGLDManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',SSTime=getdate() '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.TBDelClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>0 then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add('delete JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add('delete JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + {if CDS_11.IsEmpty=False then + begin + Application.MessageBox('ѵǼݣܳ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣܳ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then + begin + Application.MessageBox('ݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',SSTime=Null '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>2 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' and isnull(BatchNo,'''')='''+Trim(Order_Main.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('˶δݣִиƲ!','ʾ',0); + Exit; + end; + if Application.MessageBox(Pchar('ȷҪִд˲ִд˲'+#13+'֮ǰ¼ݽ!'),'ʾ',32+4)<>IDYES then Exit; + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FCopyInt:=1; + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; +end; + +procedure TfrmBGLDManage.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGLDManage.Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet12); + SInitCDSData20(ADOQueryTemp,ClientDataSet12); +end; + +procedure TfrmBGLDManage.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 TfrmBGLDManage.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBGLDManage.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if CDS_11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if cxPageControl2.ActivePageIndex<>0 then exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set OKFlag=1,OKTime=getdate(),OKPerson='''+Trim(DName)+''''); + sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + with CDS_11 do + begin + Edit; + FieldByName('OKFlag').Value:=True; + FieldByName('OKTime').Value:=Now; + FieldByName('OKPerson').Value:=Trim(DName); + Post; + end; +end; + +procedure TfrmBGLDManage.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if CDS_11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>3 then Exit; + if cxPageControl2.ActivePageIndex<>0 then exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set OKFlag=0,OKTime=NUll,OKPerson=Null'); + sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + with CDS_11 do + begin + Edit; + FieldByName('OKFlag').Value:=False; + FieldByName('OKTime').Value:=Null; + FieldByName('OKPerson').Value:=''; + Post; + end; +end; + +procedure TfrmBGLDManage.N1Click(Sender: TObject); +begin + if CDS_19.IsEmpty then Exit; + TcxGridToExcel('Ϣ',cxGrid6); +end; + +procedure TfrmBGLDManage.MenuItem1Click(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice:String; +begin + FBCID:=Trim(CDS_11.fieldbyname('BCID').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸLD.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=CDS_11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=CDS_11.fieldbyname('BGDate').Value; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['HaiYunFee']:=Order_Main.fieldbyname('HaiYunFee').Value; + RMVariables['BaoFee']:=Order_Main.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=Order_Main.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=Order_Main.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=Order_Main.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=Order_Main.fieldbyname('ChengJiaoType').Value; + RMVariables['ComTaiTou']:=Order_Main.fieldbyname('ComTaiTou').Value; + + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸLD.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmBGLDManage.Tv19CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_19.IsEmpty then Exit; + if Trim(FSel)='99' then + begin + CDS_BGName.Locate('BGName',Trim(CDS_19.fieldbyname('BGName').AsString),[]); + ModalResult:=1; + end; +end; + +procedure TfrmBGLDManage.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.CheckBox2Click(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm new file mode 100644 index 0000000..3a4df0e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm @@ -0,0 +1,355 @@ +object frmBGMXSelList: TfrmBGMXSelList + Left = 68 + Top = 11 + Width = 1175 + Height = 697 + Align = alClient + Caption = #25253#20851#26126#32454#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 = 1159 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1159 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1159 + Height = 585 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v2Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 63 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 55 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#21040#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 376 + Top = 326 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 326 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 312 + Top = 326 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 326 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end + object DataSource2: TDataSource + DataSet = CDS_HZ + Left = 328 + Top = 230 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 230 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 392 + Top = 230 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas new file mode 100644 index 0000000..e765a2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas @@ -0,0 +1,158 @@ +unit U_BGMXSelList; + +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, cxTextEdit, cxDropDownEdit; + +type + TfrmBGMXSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + ToolButton2: TToolButton; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + DataSource2: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v2Column5: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGMXSelList: TfrmBGMXSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGMXSelList.FormDestroy(Sender: TObject); +begin + frmBGMXSelList:=nil; +end; + +procedure TfrmBGMXSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGMXSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmBGMXSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϸбѡ1',Tv1,'Ʊ'); +end; +procedure TfrmBGMXSelList.InitForm(); +begin + ReadCxGrid('ϸбѡ1',Tv1,'Ʊ'); +end; +procedure TfrmBGMXSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGMXSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGMXSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmBGMXSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmBGMXSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm new file mode 100644 index 0000000..f642da9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm @@ -0,0 +1,1904 @@ +object frmBGManage: TfrmBGManage + Left = 46 + Top = 33 + Width = 1271 + Height = 698 + Caption = #25253#20851#31649#29702 + 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 = 1255 + AutoSize = True + 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_CYZZ.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 + 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 + ImageIndex = 55 + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1255 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 262 + Top = 11 + 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 Label8: TLabel + Left = 397 + Top = 11 + Width = 52 + Height = 12 + Caption = #20013#25991#21697#21517 + 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 = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 77 + Height = 20 + TabOrder = 2 + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 450 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 3 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1255 + Height = 28 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#25253#20851) + OnChange = cxTabControl1Change + ClientRectBottom = 28 + ClientRectRight = 1255 + ClientRectTop = 25 + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 95 + Width = 1255 + Height = 564 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 3 + ClientRectBottom = 564 + ClientRectRight = 1255 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 782 + Height = 545 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 103 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 200 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column1: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 782 + Top = 0 + Width = 473 + Height = 545 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 284 + Width = 469 + Height = 259 + Align = alBottom + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 469 + Height = 282 + Align = alClient + TabOrder = 1 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 147 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 98 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 102 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 42 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#34920 + ImageIndex = 1 + object Panel6: TPanel + Left = 728 + Top = 0 + Width = 527 + Height = 545 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 523 + Height = 253 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label20: TLabel + Left = 21 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 21 + Top = 42 + Width = 65 + Height = 12 + Caption = #20013#25991#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 279 + Top = 98 + Width = 65 + Height = 12 + Caption = #20179#24211#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 21 + Top = 123 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 21 + Top = 69 + Width = 67 + Height = 12 + Caption = #31859' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 21 + Top = 98 + Width = 65 + Height = 12 + Caption = #20179#24211#20214#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 279 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 279 + Top = 69 + Width = 65 + Height = 12 + Caption = #25968#37327#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo10: TEdit + Tag = 9 + Left = 87 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object Note: TMemo + Tag = 2 + Left = 87 + Top = 123 + Width = 426 + Height = 116 + TabOrder = 1 + end + object BGName10: TEdit + Tag = 9 + Left = 87 + Top = 37 + Width = 426 + Height = 20 + TabOrder = 2 + end + object CangKuQty: TEdit + Tag = 2 + Left = 341 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 3 + end + object MLenStr: TEdit + Tag = 2 + Left = 87 + Top = 64 + Width = 171 + Height = 20 + TabOrder = 4 + end + object CangKuPS: TEdit + Tag = 2 + Left = 87 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 5 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 341 + Top = 10 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object QtyUnit: TEdit + Tag = 2 + Left = 341 + Top = 64 + Width = 171 + Height = 20 + TabOrder = 7 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 255 + Width = 523 + Height = 288 + Align = alClient + TabOrder = 1 + object TvZLD: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_ZLD + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvZLD + end + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 728 + Height = 545 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 724 + Height = 266 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 720 + Height = 262 + Align = alClient + TabOrder = 0 + object TvJCK: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = TvJCKFocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Bands = < + item + Caption = #22522#26412#20449#24687 + Width = 367 + end + item + Caption = #20986#21475 + Width = 192 + end + item + Caption = #25253#20851 + Width = 367 + end + item + Width = 142 + end> + object vJCKColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn2: TcxGridDBBandedColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn3: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ChuKouPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn4: TcxGridDBBandedColumn + Caption = #20844#26020 + DataBinding.FieldName = 'ChuKouKgQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn5: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'ChuKouMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 67 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn6: TcxGridDBBandedColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn7: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BGPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn8: TcxGridDBBandedColumn + Caption = #27611#37325 + DataBinding.FieldName = 'BGKgMZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn9: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 64 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object vJCKColumn10: TcxGridDBBandedColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object vJCKColumn11: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 51 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object vJCKColumn12: TcxGridDBBandedColumn + Caption = #20928#37325 + DataBinding.FieldName = 'BGKgJZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn13: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BGMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 58 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object vJCKColumn14: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BGNote' + Options.Moving = False + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvJCK + end + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 268 + Width = 724 + Height = 275 + Align = alClient + TabOrder = 1 + object TvJCKMX: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_JCKMX + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TvJCKMX + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #37319#36141#21512#21516 + ImageIndex = 2 + object Label28: TLabel + Left = 39 + Top = 23 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 381 + Top = 23 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 381 + Top = 43 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 39 + Top = 47 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 37 + Top = 227 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 37 + Top = 255 + Width = 65 + Height = 12 + Caption = #20215#26684#26465#27454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 37 + Top = 287 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA1: TBtnEditA + Tag = 2 + Left = 106 + Top = 18 + Width = 247 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object Edit15: TEdit + Tag = 2 + Left = 447 + Top = 19 + Width = 112 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + object DateTimePicker1: TDateTimePicker + Tag = 2 + Left = 447 + Top = 39 + Width = 113 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object BtnEditA2: TBtnEditA + Tag = 2 + Left = 106 + Top = 42 + Width = 247 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object cxGrid5: TcxGrid + Left = 40 + Top = 72 + Width = 521 + Height = 137 + TabOrder = 4 + object cxGridDBTableView3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBTableView3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #26631#35760#19982#21787#22836 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21333#20215'(USD)' + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBTableView3Column1: TcxGridDBColumn + Caption = #24635#20215'(USD)' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 88 + end + end + object cxGridLevel4: TcxGridLevel + GridView = cxGridDBTableView3 + end + end + object DateTimePicker2: TDateTimePicker + Tag = 2 + Left = 103 + Top = 223 + Width = 113 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 5 + end + object BtnEditA3: TBtnEditA + Tag = 2 + Left = 103 + Top = 250 + Width = 458 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object BtnEditA4: TBtnEditA + Tag = 2 + Left = 103 + Top = 282 + Width = 458 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + end + object cxTabSheet4: TcxTabSheet + Caption = #30003#25253#35201#32032 + ImageIndex = 3 + object Label35: TLabel + Left = 85 + Top = 39 + Width = 65 + Height = 12 + Caption = #21830#21697#32534#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 85 + Top = 78 + Width = 60 + Height = 12 + Caption = #21697' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 85 + Top = 116 + Width = 65 + Height = 12 + Caption = #32455#36896#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 85 + Top = 155 + Width = 65 + Height = 12 + Caption = #26579#25972#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 85 + Top = 193 + Width = 65 + Height = 12 + Caption = #25104#20221#21547#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 85 + Top = 232 + Width = 39 + Height = 12 + Caption = #24133#23485#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 85 + Top = 270 + Width = 39 + Height = 12 + Caption = #21697#29260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 85 + Top = 309 + Width = 65 + Height = 12 + Caption = #29983#20135#21378#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit16: TEdit + Tag = 2 + Left = 151 + Top = 35 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object Edit17: TEdit + Tag = 2 + Left = 151 + Top = 74 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + object BtnEditA5: TBtnEditA + Tag = 2 + Left = 151 + Top = 112 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + object BtnEditA6: TBtnEditA + Tag = 2 + Left = 151 + Top = 151 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object BtnEditA7: TBtnEditA + Tag = 2 + Left = 151 + Top = 189 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 4 + end + object BtnEditA9: TBtnEditA + Tag = 2 + Left = 151 + Top = 266 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object BtnEditA10: TBtnEditA + Tag = 2 + Left = 151 + Top = 305 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object Edit18: TEdit + Tag = 2 + Left = 151 + Top = 228 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 7 + end + end + object cxTabSheet5: TcxTabSheet + Caption = #20986#21475#36135#29289#25253#20851#21333 + ImageIndex = 4 + object Label43: TLabel + Left = 30 + Top = 25 + Width = 65 + Height = 12 + Caption = #36816#36755#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 294 + Top = 25 + Width = 65 + Height = 12 + Caption = #21457#36135#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 566 + Top = 25 + Width = 65 + Height = 12 + Caption = #36152#26131#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 30 + Top = 73 + Width = 65 + Height = 12 + Caption = #32467#27719#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 294 + Top = 73 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 566 + Top = 73 + Width = 66 + Height = 12 + Caption = #25351' '#36816' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label49: TLabel + Left = 30 + Top = 113 + Width = 66 + Height = 12 + Caption = #36135' '#28304' '#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label50: TLabel + Left = 294 + Top = 113 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label51: TLabel + Left = 566 + Top = 113 + Width = 66 + Height = 12 + Caption = #21327' '#35758' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA8: TBtnEditA + Tag = 2 + Left = 96 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object BtnEditA11: TBtnEditA + Tag = 2 + Left = 360 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 1 + end + object BtnEditA12: TBtnEditA + Tag = 2 + Left = 632 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + object BtnEditA13: TBtnEditA + Tag = 2 + Left = 96 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object BtnEditA14: TBtnEditA + Tag = 2 + Left = 360 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 4 + end + object BtnEditA15: TBtnEditA + Tag = 2 + Left = 632 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object BtnEditA16: TBtnEditA + Tag = 2 + Left = 96 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object BtnEditA17: TBtnEditA + Tag = 2 + Left = 360 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object BtnEditA18: TBtnEditA + Tag = 2 + Left = 632 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 8 + end + end + object cxTabSheet6: TcxTabSheet + Caption = 'COMMERCIAL INVOICE' + ImageIndex = 5 + end + object cxTabSheet7: TcxTabSheet + Caption = 'PACKING LIST' + ImageIndex = 6 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 244 + Top = 65 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 206 + Top = 63 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 172 + Top = 66 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 917 + Top = 263 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 955 + Top = 262 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 992 + Top = 268 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 938 + Top = 499 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 976 + Top = 498 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1013 + Top = 504 + end + object CDS_JCKMX: TClientDataSet + Aggregates = <> + Params = <> + Left = 410 + Top = 584 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 448 + Top = 583 + end + object DS_JCKMX: TDataSource + DataSet = CDS_JCKMX + Left = 485 + Top = 589 + end + object CDS_ZLD: TClientDataSet + Aggregates = <> + Params = <> + Left = 949 + Top = 567 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 987 + Top = 566 + end + object DS_ZLD: TDataSource + DataSet = CDS_ZLD + Left = 1024 + Top = 572 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas new file mode 100644 index 0000000..847debb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas @@ -0,0 +1,476 @@ +unit U_BGManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmBGManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label8: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + MPRTCodeHZ: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxTabControl1: TcxTabControl; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + cxTabSheet7: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel6: TPanel; + Panel5: TPanel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + OrderNo10: TEdit; + Note: TMemo; + BGName10: TEdit; + CangKuQty: TEdit; + MLenStr: TEdit; + CangKuPS: TEdit; + ComTaiTou: TBtnEditA; + QtyUnit: TEdit; + Panel7: TPanel; + Panel3: TPanel; + cxGrid4: TcxGrid; + TvZLD: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label28: TLabel; + BtnEditA1: TBtnEditA; + Label30: TLabel; + Label31: TLabel; + Edit15: TEdit; + DateTimePicker1: TDateTimePicker; + Label29: TLabel; + BtnEditA2: TBtnEditA; + cxGrid5: TcxGrid; + cxGridDBTableView3: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGridDBTableView3Column1: TcxGridDBColumn; + Label32: TLabel; + DateTimePicker2: TDateTimePicker; + Label33: TLabel; + BtnEditA3: TBtnEditA; + Label34: TLabel; + BtnEditA4: TBtnEditA; + Label35: TLabel; + Edit16: TEdit; + Label36: TLabel; + Edit17: TEdit; + Label38: TLabel; + BtnEditA5: TBtnEditA; + Label37: TLabel; + BtnEditA6: TBtnEditA; + Label39: TLabel; + BtnEditA7: TBtnEditA; + Label40: TLabel; + Label41: TLabel; + BtnEditA9: TBtnEditA; + Label42: TLabel; + BtnEditA10: TBtnEditA; + Edit18: TEdit; + Label43: TLabel; + BtnEditA8: TBtnEditA; + Label44: TLabel; + BtnEditA11: TBtnEditA; + Label45: TLabel; + BtnEditA12: TBtnEditA; + Label46: TLabel; + BtnEditA13: TBtnEditA; + Label47: TLabel; + BtnEditA14: TBtnEditA; + Label48: TLabel; + BtnEditA15: TBtnEditA; + Label49: TLabel; + BtnEditA16: TBtnEditA; + Label50: TLabel; + BtnEditA17: TBtnEditA; + Label51: TLabel; + BtnEditA18: TBtnEditA; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + cxGrid3: TcxGrid; + cxGridLevel2: TcxGridLevel; + TvJCK: TcxGridDBBandedTableView; + vJCKColumn1: TcxGridDBBandedColumn; + vJCKColumn2: TcxGridDBBandedColumn; + vJCKColumn3: TcxGridDBBandedColumn; + vJCKColumn4: TcxGridDBBandedColumn; + vJCKColumn5: TcxGridDBBandedColumn; + vJCKColumn6: TcxGridDBBandedColumn; + vJCKColumn7: TcxGridDBBandedColumn; + vJCKColumn8: TcxGridDBBandedColumn; + vJCKColumn9: TcxGridDBBandedColumn; + vJCKColumn10: TcxGridDBBandedColumn; + vJCKColumn11: TcxGridDBBandedColumn; + vJCKColumn12: TcxGridDBBandedColumn; + vJCKColumn13: TcxGridDBBandedColumn; + vJCKColumn14: TcxGridDBBandedColumn; + cxGrid6: TcxGrid; + TvJCKMX: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + CDS_JCKMX: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DS_JCKMX: TDataSource; + CDS_ZLD: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + DS_ZLD: TDataSource; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure TvJCKFocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBGManage: TfrmBGManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput; + +{$R *.dfm} + +procedure TfrmBGManage.FormDestroy(Sender: TObject); +begin + frmBGManage:=nil; +end; + +procedure TfrmBGManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˵'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + WriteCxGrid('Tv7',Tv7,'ع'); + Close; +end; + +procedure TfrmBGManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + ReadCxGrid('Tv7',Tv7,'ع'); +end; + +procedure TfrmBGManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); +end; + +procedure TfrmBGManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGManage.TvJCKFocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JCKMX); + SInitCDSData20(ADOQueryTemp,CDS_JCKMX); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JCKMX); + SInitCDSData20(ADOQueryTemp,CDS_JCKMX); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_ZLD); + SInitCDSData20(ADOQueryTemp,CDS_ZLD); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + OrderNo10.Text:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + BGName10.Text:=Trim(ADOQueryTemp.fieldbyname('BGName').AsString); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm new file mode 100644 index 0000000..cb71365 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm @@ -0,0 +1,857 @@ +object frmBGZLInput: TfrmBGZLInput + Left = 116 + Top = 99 + Width = 1181 + Height = 609 + Align = alClient + Caption = #25253#20851#36164#26009#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + 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_CYZZ.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 Panel1: TPanel + Left = 0 + Top = 29 + Width = 593 + Height = 541 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 589 + Height = 249 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 585 + Height = 89 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 10 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#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 = 507 + Top = 15 + Width = 39 + Height = 12 + Caption = #31859#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 287 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#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 = 187 + Top = 15 + Width = 39 + Height = 12 + Caption = #25209#27425#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 287 + Top = 40 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 10 + Top = 40 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 169 + Top = 40 + Width = 39 + Height = 12 + Caption = #20445#36153#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 = 145 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 268 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 10 + Top = 63 + Width = 52 + Height = 12 + Caption = #36135#28304#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 198 + Top = 63 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#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 = 396 + Top = 63 + Width = 52 + Height = 12 + Caption = #36816#25269#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 55 + Top = 11 + Width = 129 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object MLenStr: TEdit + Tag = 2 + Left = 541 + Top = 11 + Width = 42 + Height = 20 + TabOrder = 1 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 345 + Top = 11 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = ComTaiTouBtnClick + end + object BatchNo: TEdit + Tag = 2 + Left = 219 + Top = 11 + Width = 66 + Height = 20 + TabOrder = 3 + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 345 + Top = 36 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = ChengJiaoTypeBtnClick + end + object HaiYunFee: TEdit + Tag = 2 + Left = 55 + Top = 36 + Width = 86 + Height = 20 + TabOrder = 5 + end + object BaoFee: TEdit + Tag = 2 + Left = 201 + Top = 36 + Width = 66 + Height = 20 + TabOrder = 6 + end + object HuoYuanPlace: TBtnEditA + Tag = 2 + Left = 55 + Top = 59 + Width = 130 + Height = 20 + ReadOnly = True + TabOrder = 7 + OnBtnClick = HuoYuanPlaceBtnClick + end + object ChuKouKA: TBtnEditA + Tag = 2 + Left = 257 + Top = 59 + Width = 130 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ChuKouKABtnClick + end + object YunDiG: TBtnEditA + Tag = 2 + Left = 442 + Top = 59 + Width = 141 + Height = 20 + ReadOnly = True + TabOrder = 9 + OnBtnClick = YunDiGBtnClick + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 91 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 124 + Width = 585 + Height = 123 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid6: TcxGrid + Left = 57 + Top = 35 + Width = 345 + Height = 116 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object Panel3: TPanel + Left = 2 + Top = 251 + Width = 589 + Height = 288 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 585 + Height = 251 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 49 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 593 + Top = 29 + Width = 572 + Height = 541 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 568 + Height = 537 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 435 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 700 + Top = 442 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 781 + Top = 439 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 473 + Top = 388 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 509 + Top = 384 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 213 + Top = 4 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 243 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 932 + Top = 136 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 975 + Top = 139 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 768 + Top = 171 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas new file mode 100644 index 0000000..4159792 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas @@ -0,0 +1,838 @@ +unit U_BGZLInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxDropDownEdit; + +type + TfrmBGZLInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel5: TPanel; + Label1: TLabel; + Label7: TLabel; + Label18: TLabel; + OrderNo: TEdit; + MLenStr: TEdit; + ComTaiTou: TBtnEditA; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Label2: TLabel; + BatchNo: TEdit; + Label3: TLabel; + ChengJiaoType: TBtnEditA; + Label4: TLabel; + HaiYunFee: TEdit; + Label5: TLabel; + BaoFee: TEdit; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + HuoYuanPlace: TBtnEditA; + Label10: TLabel; + ChuKouKA: TBtnEditA; + Label11: TLabel; + YunDiG: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure HuoYuanPlaceBtnClick(Sender: TObject); + procedure ChuKouKABtnClick(Sender: TObject); + procedure YunDiGBtnClick(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + FOrderNo,FBGID,FMainId:String; + FCopyInt:Integer; + end; + +var + frmBGZLInput: TfrmBGZLInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGZLInput.FormDestroy(Sender: TObject); +begin + frmBGZLInput:=nil; +end; + +procedure TfrmBGZLInput.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmBGZLInput.FormShow(Sender: TObject); +var + fsj:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + if FCopyInt=1 then + begin + OrderNo.ReadOnly:=True; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BNID').Value:=''; + Post; + Next; + end; + end; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BQID').Value:=''; + Post; + Next; + end; + end; + FBGID:=''; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGZLInput.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; +end; + +procedure TfrmBGZLInput.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmBGZLInput.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set QtyFlag=1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')='''' '); + sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')<>'''' '); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7);} + cxGrid6.Visible:=false; +end; + +procedure TfrmBGZLInput.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGZLInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGZLInput.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGZLInput.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if FCopyInt=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + ExecSQL; + end; + end; + + /// + if Trim(FBGID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBGID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBGID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BGId').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel5,2); + if Trim(FBGID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + //FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+''''); + if Trim(BatchNo.Text)<>'' then + begin + SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+''''); + end; + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set EditCount='); + sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')'); + sql.Add(' where BGID='''+Trim(maxno)+''''); + SQL.Add(' Update JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + if Trim(BatchNo.Text)<>'' then + begin + SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+''''); + end; + sql.Add(' and BGID<>'''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BQId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨 + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BNId').Value:=Trim(maxBgNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0); + Post; + end; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FBGID:=Trim(maxno); + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGZLInput.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('˶Ų!','ʾ',0); + Exit; + end; + if Trim(ComTaiTou.Text)='' then + begin + Application.MessageBox('صλΪգ','ʾ',0); + Exit; + end; + if ClientDataSet1.IsEmpty then + begin + Application.MessageBox('ƷϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('BGName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Trim(MLenStr.Text)<>'' then + begin + if TryStrToFloat(MLenStr.Text,FReal)=False then + begin + Application.MessageBox('׳ַǷ!','ʾ',0); + Exit; + end; + end; + if Trim(HaiYunFee.Text)<>'' then + begin + if TryStrToFloat(HaiYunFee.Text,FReal)=False then + begin + Application.MessageBox('˷ַǷ!','ʾ',0); + Exit; + end; + end; + if Trim(BaoFee.Text)<>'' then + begin + if TryStrToFloat(BaoFee.Text,FReal)=False then + begin + Application.MessageBox('ַǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQPS',Null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FactoryName',Null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQUnit',Null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('PSName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + + +end; + +procedure TfrmBGZLInput.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Append; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmBGZLInput.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value; + FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value; + Post; + end; +end; + +procedure TfrmBGZLInput.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + Post; + end; +end; + +procedure TfrmBGZLInput.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.HuoYuanPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HuoYuanPlace'; + flagname:='Դ'; + if ShowModal=1 then + begin + HuoYuanPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.ChuKouKABtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + ChuKouKA.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.YunDiGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + YunDiG.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm new file mode 100644 index 0000000..89587c6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm @@ -0,0 +1,737 @@ +object frmBGZLInputNew: TfrmBGZLInputNew + Left = 44 + Top = 87 + Width = 1181 + Height = 575 + Align = alClient + Caption = #25253#20851#36164#26009#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1173 + 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_CYZZ.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 Panel1: TPanel + Left = 0 + Top = 29 + Width = 593 + Height = 515 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 589 + Height = 254 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 21 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#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 = 279 + Top = 86 + Width = 65 + Height = 12 + Caption = #20179#24211#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 21 + Top = 119 + 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 Label7: TLabel + Left = 21 + Top = 51 + Width = 67 + Height = 12 + Caption = #31859' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 21 + Top = 86 + Width = 65 + Height = 12 + Caption = #20179#24211#20214#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 279 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 279 + Top = 51 + Width = 65 + Height = 12 + Caption = #25968#37327#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 87 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Note: TMemo + Tag = 2 + Left = 87 + Top = 119 + Width = 426 + Height = 125 + TabOrder = 1 + end + object CangKuQty: TEdit + Tag = 2 + Left = 341 + Top = 82 + Width = 173 + Height = 20 + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 87 + Top = 46 + Width = 171 + Height = 20 + TabOrder = 3 + end + object CangKuPS: TEdit + Tag = 2 + Left = 87 + Top = 82 + Width = 170 + Height = 20 + TabOrder = 4 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 341 + Top = 10 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ComTaiTouBtnClick + end + object QtyUnit: TEdit + Tag = 2 + Left = 341 + Top = 46 + Width = 171 + Height = 20 + TabOrder = 6 + end + object cxGrid6: TcxGrid + Left = 87 + Top = 31 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object Panel3: TPanel + Left = 2 + Top = 256 + Width = 589 + Height = 257 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 585 + Height = 220 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 593 + Top = 29 + Width = 580 + Height = 515 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 35 + Width = 576 + Height = 108 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 190 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + HeaderAlignmentHorz = taCenter + Width = 76 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 576 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid7: TcxGrid + Left = 2 + Top = 143 + Width = 576 + Height = 370 + Align = alClient + TabOrder = 2 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 435 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 700 + Top = 442 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 781 + Top = 439 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 473 + Top = 388 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 509 + Top = 384 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 163 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 206 + Top = 107 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 932 + Top = 136 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 975 + Top = 139 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 768 + Top = 171 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas new file mode 100644 index 0000000..714f29f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas @@ -0,0 +1,740 @@ +unit U_BGZLInputNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxDropDownEdit; + +type + TfrmBGZLInputNew = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + Label1: TLabel; + Label6: TLabel; + Label4: TLabel; + Label7: TLabel; + Label9: TLabel; + Label18: TLabel; + OrderNo: TEdit; + Note: TMemo; + CangKuQty: TEdit; + MLenStr: TEdit; + CangKuPS: TEdit; + ComTaiTou: TBtnEditA; + Label3: TLabel; + QtyUnit: TEdit; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + FOrderNo,FBGID,FMainId:String; + FCopyInt:Integer; + end; + +var + frmBGZLInputNew: TfrmBGZLInputNew; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGZLInputNew.FormDestroy(Sender: TObject); +begin + frmBGZLInput:=nil; +end; + +procedure TfrmBGZLInputNew.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmBGZLInputNew.FormShow(Sender: TObject); +var + fsj:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + if FCopyInt=1 then + begin + OrderNo.ReadOnly:=True; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BNID').Value:=''; + Post; + Next; + end; + end; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BQID').Value:=''; + Post; + Next; + end; + end; + FBGID:=''; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGZLInputNew.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; +end; + +procedure TfrmBGZLInputNew.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmBGZLInputNew.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set QtyFlag=1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')='''' '); + sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')<>'''' '); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7);} + cxGrid6.Visible:=false; +end; + +procedure TfrmBGZLInputNew.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInputNew.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGZLInputNew.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('BQUnit').Value:=Trim(QtyUnit.Text); + Post; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGZLInputNew.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if FCopyInt=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + ExecSQL; + end; + end; + + /// + if Trim(FBGID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBGID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBGID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BGId').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel2,2); + if Trim(FBGID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+''''); + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set EditCount='); + sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')'); + sql.Add(' where BGID='''+Trim(maxno)+''''); + SQL.Add(' Update JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' and BGID<>'''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BQId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨 + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BNId').Value:=Trim(maxBgNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0); + Post; + end; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FBGID:=Trim(maxno); + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGZLInputNew.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('˶Ų!','ʾ',0); + Exit; + end; + if Trim(ComTaiTou.Text)='' then + begin + Application.MessageBox('ƷΪգ','ʾ',0); + Exit; + end; + if Trim(QtyUnit.Text)='' then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + if Trim(CangKuPS.Text)<>'' then + begin + if TryStrToFloat(CangKuPS.Text,FReal)=False then + begin + Application.MessageBox('ֿǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ֿΪ!','ʾ',0); + Exit; + end; + if Trim(CangKuQty.Text)<>'' then + begin + if TryStrToFloat(CangKuQty.Text,FReal)=False then + begin + Application.MessageBox('ֿǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ֿΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQPS',Null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FactoryName',Null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQUnit',Null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('PSName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + + +end; + +procedure TfrmBGZLInputNew.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Append; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmBGZLInputNew.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value; + FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm new file mode 100644 index 0000000..ebf8f95 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm @@ -0,0 +1,671 @@ +object frmBHList: TfrmBHList + Left = 28 + Top = 106 + Width = 1382 + Height = 547 + Caption = #22791#36135#31649#29702 + 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 = 1366 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22791#36135 + ImageIndex = 29 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22791#36135#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + 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 Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTCode: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + Column = v1Column22 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column21: TcxGridDBColumn + Tag = 999 + Caption = #22791#36135#26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column22: TcxGridDBColumn + Caption = #22791#36135#21305#25968 + DataBinding.FieldName = 'BHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#36135#25968#37327 + DataBinding.FieldName = 'BHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column17: TcxGridDBColumn + Caption = #22791#36135#22791#27880 + DataBinding.FieldName = 'BHNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column19: TcxGridDBColumn + Caption = #22791#36135#20154 + DataBinding.FieldName = 'BHPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22791#36135 + #24050#22791#36135 + #24050#25209#20934#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BHList.pas b/坯布码单待检(PBMDDJ.dll)/U_BHList.pas new file mode 100644 index 0000000..e61f50a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BHList.pas @@ -0,0 +1,665 @@ +unit U_BHList; + +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, cxCheckBox; + + +type + TfrmBHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBHList: TfrmBHList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmBHList.FormDestroy(Sender: TObject); +begin + frmBHList:=nil; +end; + +procedure TfrmBHList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBHList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmBHList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(BHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmBHList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBHList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmBHList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBHList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmBHList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmBHList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBHList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(D.PRTCOde)+isnull(D.PRTGY) '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(BHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmBHList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmBHList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.WorkerChange(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 TfrmBHList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmBHList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmBHList.ToolButton1Click(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 TfrmBHList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmBHList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmBHList.TBAddClick(Sender: TObject); +var + FBHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;BHQty',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FBHDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('BHPerson').Value:=Trim(DName); + if Trim(Order_Main.fieldbyname('BHDate').AsString)='' then + FieldByName('BHDate').Value:=FBHDate + else + FieldByName('BHDate').Value:=Trim(Order_Main.fieldbyname('BHDate').AsString); + FieldByName('BHPS').Value:=Order_Main.fieldbyname('BHPS').Value; + FieldByName('BHQty').Value:=Order_Main.fieldbyname('BHQty').Value; + FieldByName('BHNote').Value:=Order_Main.fieldbyname('BHNote').Value; + FieldByName('BHStatus').Value:='ѱ'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmBHList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('˲ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('BHPerson').Value:=Null; + FieldByName('BHDate').Value:=Null; + FieldByName('BHPS').Value:=Null; + FieldByName('BHQty').Value:=Null; + FieldByName('BHNote').Value:=Null; + FieldByName('BHStatus').Value:=Null; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm new file mode 100644 index 0000000..a96b297 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm @@ -0,0 +1,266 @@ +object frmBPCGDZInPut: TfrmBPCGDZInPut + Left = 224 + Top = 101 + Width = 1293 + Height = 502 + Align = alClient + Caption = #24067#21305#37319#36141#23545#36134#24405#20837 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'DZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22383#24067 + #25104#21697) + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas new file mode 100644 index 0000000..0f5b3a9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas @@ -0,0 +1,369 @@ +unit U_BPCGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPCGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPCGDZInPut: TfrmBPCGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPCGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPCGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPCGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PC','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + // FieldByName('DZType').Value:='ɴ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPCGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥɹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPCGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥɹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPCGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPCGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('DZType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPCGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPCGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_Sub.fieldbyname('DZType').AsString)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + if Trim(CDS_Sub.fieldbyname('DZType').AsString)='' then + begin + flag:='PBName'; + flagname:=''; + end else + begin + flag:='CPPBName'; + flagname:='Ʒ'; + end; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPCGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +procedure TfrmBPCGDZInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('DZType').Value:=Trim(mvalue); + FieldByName('MPRTCodeName').Value:=Null; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm new file mode 100644 index 0000000..3dd46cd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm @@ -0,0 +1,482 @@ +object frmBPCGDZList: TfrmBPCGDZList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#37319#36141#23545#36134#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 = 1114 + 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_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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + 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 = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 593 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 734 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 441 + Top = 12 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 620 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 771 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object DZType: TComboBox + Tag = 1 + Left = 467 + Top = 8 + Width = 105 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = FactoryNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas new file mode 100644 index 0000000..bd8335f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas @@ -0,0 +1,596 @@ +unit U_BPCGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPCGDZList = 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_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + DZType: TComboBox; + Label5: TLabel; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPCGDZList: TfrmBPCGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_BPCGDZInPut; + +{$R *.dfm} + +procedure TfrmBPCGDZList.FormDestroy(Sender: TObject); +begin + frmBPCGDZList:=nil; +end; + +procedure TfrmBPCGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPCGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPCGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')in('''',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(DZType.Text)<>'' then + begin + SQL.Add(' and isnull(A.DZType,'''')='''+Trim(DZType.Text)+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPCGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPCGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPCGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥɹб',Tv1,''); + Close; +end; + +procedure TfrmBPCGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥɹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPCGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥɹб',cxGrid1); +end; + +procedure TfrmBPCGDZList.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 TfrmBPCGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPCGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPCGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPCGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application); + with frmBPCGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPCGDZInPut.Free; + end; +end; + +procedure TfrmBPCGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application); + with frmBPCGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPCGDZInPut.Free; + end; +end; + +procedure TfrmBPCGDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPCGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPCGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPCGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'PC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',YFName=(select DZType from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPCGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPCGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm new file mode 100644 index 0000000..c066034 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm @@ -0,0 +1,254 @@ +object frmBPJGDZInPut: TfrmBPJGDZInPut + Left = 66 + Top = 92 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24067#21305#21152#24037#23545#36134#24405#20837 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas new file mode 100644 index 0000000..57deaae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas @@ -0,0 +1,439 @@ +unit U_BPJGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPJGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPJGDZInPut: TfrmBPJGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPJGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPJGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ƥӹ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPJGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPJGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPJGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPJGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPJGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BPJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPJGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; + if Trim(FName)='Qty' then + begin + { if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end; } + end; +end; + +procedure TfrmBPJGDZInPut.v1( + Sender: TObject); +var + mvalue:String; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('FZQtyUnit').Value:=Trim(mvalue); + end; + if Trim(mvalue)='' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('QtyToFZQtyXS').Value:=Null; + FieldByName('FZQty').Value:=Null; + end; + end; } +end; + +procedure TfrmBPJGDZInPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FName:string; +begin + {FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FName)='QtyToFZQtyXS' then + begin + if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1QtyToFZQtyXS.Options.Editing:=True; + end; + if Trim(FName)='FZQty' then + begin + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1FZQty.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1FZQty.Options.Editing:=True; + end; } +end; + +procedure TfrmBPJGDZInPut.v1QtyToFZQtyXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty:String; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + //if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName('QtyToFZQtyXS').Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=Null; + end; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm new file mode 100644 index 0000000..127c8b3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm @@ -0,0 +1,453 @@ +object frmBPJGDZList: TfrmBPJGDZList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#21152#24037#23545#36134#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 = 1114 + 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_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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + 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 = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 438 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 579 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 616 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas new file mode 100644 index 0000000..98d23e9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas @@ -0,0 +1,588 @@ +unit U_BPJGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPJGDZList = 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_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPJGDZList: TfrmBPJGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_BPJGDZInPut; + +{$R *.dfm} + +procedure TfrmBPJGDZList.FormDestroy(Sender: TObject); +begin + frmBPJGDZList:=nil; +end; + +procedure TfrmBPJGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPJGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ƥӹ'' and isnull(ZSType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPJGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPJGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPJGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹб',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPJGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥӹб',cxGrid1); +end; + +procedure TfrmBPJGDZList.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 TfrmBPJGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPJGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPJGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPJGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application); + with frmBPJGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZInPut.Free; + end; +end; + +procedure TfrmBPJGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application); + with frmBPJGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZInPut.Free; + end; +end; + +procedure TfrmBPJGDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPJGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPJGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPJGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƥӹӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ƥӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPJGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPJGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm new file mode 100644 index 0000000..24e52a6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm @@ -0,0 +1,285 @@ +object frmBPJGDZZSInPut: TfrmBPJGDZZSInPut + Left = 66 + Top = 92 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24067#21305#21152#24037#23545#36134#24405#20837'('#26377#25240#31639')' + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + '') + Properties.OnEditValueChanged = v1 + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1QtyToFZQtyXS: TcxGridDBColumn + Tag = 2 + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'QtyToFZQtyXS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyToFZQtyXSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1FZQty: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas new file mode 100644 index 0000000..ca80dae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas @@ -0,0 +1,458 @@ +unit U_BPJGDZZSInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPJGDZZSInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1QtyToFZQtyXS: TcxGridDBColumn; + v1FZQty: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPJGDZZSInPut: TfrmBPJGDZZSInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPJGDZZSInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZZSInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPJGDZZSInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ƥӹ'; + FieldByName('Status').Value:=''; + FieldByName('ZSType').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPJGDZZSInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZZSInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPJGDZZSInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPJGDZZSInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FZQtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyToFZQtyXS',null,[])=True then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FZQty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPJGDZZSInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BPJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPJGDZZSInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; + if Trim(FName)='Qty' then + begin + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('FZQtyUnit').Value:=Trim(mvalue); + end; + if Trim(mvalue)='' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('QtyToFZQtyXS').Value:=Null; + FieldByName('FZQty').Value:=Null; + end; + end; +end; + +procedure TfrmBPJGDZZSInPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FName:string; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FName)='QtyToFZQtyXS' then + begin + if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1QtyToFZQtyXS.Options.Editing:=True; + end; + if Trim(FName)='FZQty' then + begin + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1FZQty.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1FZQty.Options.Editing:=True; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1QtyToFZQtyXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + //if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName('QtyToFZQtyXS').Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=Null; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm new file mode 100644 index 0000000..7683d28 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm @@ -0,0 +1,478 @@ +object frmBPJGDZZSList: TfrmBPJGDZZSList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#21152#24037#23545#36134#21015#34920'('#25240#31639')' + 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 = 1114 + 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_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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + 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 = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 438 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 579 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 616 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'QtyToFZQtyXS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas new file mode 100644 index 0000000..2cee0a9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas @@ -0,0 +1,591 @@ +unit U_BPJGDZZSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPJGDZZSList = 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_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPJGDZZSList: TfrmBPJGDZZSList; + +implementation +uses + U_DataLink,U_RTFun,U_BPJGDZZSInPut; + +{$R *.dfm} + +procedure TfrmBPJGDZZSList.FormDestroy(Sender: TObject); +begin + frmBPJGDZZSList:=nil; +end; + +procedure TfrmBPJGDZZSList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZZSList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPJGDZZSList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ƥӹ'' and isnull(ZSType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPJGDZZSList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPJGDZZSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPJGDZZSList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹб',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZZSList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPJGDZZSList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥӹб()',cxGrid1); +end; + +procedure TfrmBPJGDZZSList.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 TfrmBPJGDZZSList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPJGDZZSList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPJGDZZSList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPJGDZZSList.ToolButton1Click(Sender: TObject); +begin + try + frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application); + with frmBPJGDZZSInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZZSInPut.Free; + end; +end; + +procedure TfrmBPJGDZZSList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application); + with frmBPJGDZZSInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZZSInPut.Free; + end; +end; + +procedure TfrmBPJGDZZSList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPJGDZZSList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPJGDZZSList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPJGDZZSList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƥӹӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ƥӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPJGDZZSList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPJGDZZSList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm new file mode 100644 index 0000000..7047e5e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm @@ -0,0 +1,853 @@ +object frmCICXList: TfrmCICXList + Left = 62 + Top = 108 + Width = 1281 + Height = 667 + Caption = #24212#25910#27454#26597#35810 + 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 = 1265 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1265 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 65 + Height = 12 + Caption = #38144#21806#21457#31080#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 = 569 + Top = 18 + 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 Label7: TLabel + Left = 731 + 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 = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object CINO: TEdit + Tag = 2 + Left = 447 + Top = 14 + Width = 105 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = CINOKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 609 + Top = 14 + Width = 106 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = ConNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 758 + Top = 14 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object CheckBox1: TCheckBox + Left = 896 + Top = 16 + Width = 161 + Height = 17 + Caption = #26174#31034#24212#25910#20313#27454#20026'0'#30340#25968#25454 + TabOrder = 6 + OnClick = CheckBox1Click + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 425 + Width = 1265 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 433 + Width = 1265 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label4: TLabel + Left = 646 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid3: TcxGrid + Left = 659 + Top = 2 + Width = 604 + Height = 191 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn18 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #21512#21516#23450#37329#37329#39069 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 15 + Top = 2 + Width = 631 + Height = 191 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + 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 + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #20313#27454 + #20840#27454 + #20323#37329) + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20998#37197#37329#39069 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1265 + Height = 346 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #38144#21806#21457#31080#21495 + DataBinding.FieldName = 'CINO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 999 + Caption = #26085#26399 + DataBinding.FieldName = 'CIDate' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21457#36135#37329#39069 + DataBinding.FieldName = 'FHMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20854#23427#36153#29992#21517#31216 + DataBinding.FieldName = 'OtherFeeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20854#23427#36153#29992#37329#39069 + DataBinding.FieldName = 'OtherFee' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'YKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'QKMoney' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column3: TcxGridDBColumn + Caption = #24212#25910#20313#27454 + DataBinding.FieldName = 'YSMoney' + HeaderAlignmentHorz = taCenter + Width = 84 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 784 + Top = 168 + 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 = 712 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 744 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 687 + Top = 159 + 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 = 454 + Top = 201 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + 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 = 423 + Top = 200 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 1061 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 365 + Top = 203 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 485 + Top = 203 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 685 + Top = 323 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 759 + Top = 495 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 728 + Top = 496 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 184 + Top = 512 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 512 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 264 + Top = 512 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas b/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas new file mode 100644 index 0000000..039182c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas @@ -0,0 +1,600 @@ +unit U_CICXList; + +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, cxCheckBox, cxDropDownEdit; + + +type + TfrmCICXList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Panel2: TPanel; + Label4: TLabel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + Label6: TLabel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label8: TLabel; + Label5: TLabel; + Label7: TLabel; + CINO: TEdit; + ConNo: TEdit; + CustomerNoName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CheckBox1: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CINOKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCICXList: TfrmCICXList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp,U_CIInPut, + U_SKCRFenPei,U_ConDJFenPei; + +{$R *.dfm} + +procedure TfrmCICXList.FormDestroy(Sender: TObject); +begin + frmCICXList:=nil; +end; + +procedure TfrmCICXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCICXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('CIList',Tv1,'CI'); +end; + +procedure TfrmCICXList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if CheckBox1.Checked=True then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end else + begin + sql.Add(' and isnull(YSMoney,0)<>0'); + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmCICXList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('CIList',Tv1,'CI'); + //InitGrid(); +end; + +function TfrmCICXList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add('delete JYOrder_CI_Sub where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmCICXList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧտѯ',cxGrid1); +end; + +procedure TfrmCICXList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmCICXList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧտѯ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCICXList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmCICXList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + // sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmCICXList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmCICXList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.WorkerChange(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 TfrmCICXList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCICXList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCICXList.ToolButton1Click(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 TfrmCICXList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmCICXList.CINOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(CINO.Text))<3 then Exit; + fsj:=' and AA.CINO like '''+'%'+Trim(CINO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmCICXList.ConNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmCICXList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and isnull(FPType,'''')<>''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.PriceUnit,YS.DJMoney,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join JYOrderCon_Sub YS on FP.YFID=YS.SubId'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + sql.Add(' and FPType=''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmCICXList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCICXList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm new file mode 100644 index 0000000..a6ab5ad --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm @@ -0,0 +1,456 @@ +object frmCIInPut: TfrmCIInPut + Left = 100 + Top = 77 + Width = 1029 + Height = 591 + Align = alClient + Caption = 'CI'#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 = 1013 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 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 = 1013 + Height = 72 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 12 + Width = 78 + Height = 12 + Caption = #38144#21806#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 Label2: TLabel + Left = 36 + Top = 44 + Width = 81 + Height = 12 + Caption = #26085' '#26399#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 = 543 + Top = 44 + Width = 65 + Height = 12 + Caption = #36153#29992#37329#39069#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 295 + Top = 44 + Width = 65 + Height = 12 + Caption = #36153#29992#21517#31216#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 = 295 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CINO: TEdit + Left = 110 + Top = 9 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + end + object CIDate: TDateTimePicker + Left = 110 + Top = 40 + Width = 123 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object OtherFeeName: TBtnEditA + Left = 356 + Top = 40 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = OtherFeeNameBtnClick + end + object CustomerNoName: TEdit + Left = 357 + Top = 9 + Width = 120 + Height = 18 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 3 + end + object OtherFee: TEdit + Left = 605 + Top = 41 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 4 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 101 + Width = 1013 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 130 + Width = 1013 + Height = 422 + Align = alClient + TabOrder = 3 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + 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 = v1ShipDate + 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 + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v2Column4: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v2Column3: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'CSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v2Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'CSMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #25187#27454#37329#39069 + DataBinding.FieldName = 'SKKMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 598 + Top = 3 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 519 + Top = 1 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 434 + Top = 394 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 394 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 1 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas new file mode 100644 index 0000000..791a4ce --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas @@ -0,0 +1,477 @@ +unit U_CIInPut; + +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, cxDropDownEdit; + +type + TfrmCIInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + CINO: TEdit; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + Label2: TLabel; + CIDate: TDateTimePicker; + Label11: TLabel; + Label15: TLabel; + OtherFeeName: TBtnEditA; + CustomerNoName: TEdit; + Label7: TLabel; + OtherFee: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OtherFeeNameBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmCIInPut: TfrmCIInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel,U_FHOKSelList; + +{$R *.dfm} + +procedure TfrmCIInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmCIInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, '); + sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,C.CustomerNo,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,'); + sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),'); + sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), '); + sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,'); + sql.Add(' F.MainId,F.SubId,D.FHID,B.CSPrice,B.CSMoney,B.SKKMoney'); + sql.Add(' from JYOrder_CI A'); + sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId'); + sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID'); + sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId'); + sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId'); + sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId'); + sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId'); + sql.Add(' where A.CIID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + CIDate.DateTime:=Now; + end; +end; + +procedure TfrmCIInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmCIInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmCIInPut.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CI','JYOrder_CI',3,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 JYOrder_CI where CIID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('CIID').Value:=Trim(maxno); + FieldByName('CINO').Value:=Trim(CINO.Text); + FieldByName('CIDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',CIDate.Date)); + FieldByName('OtherFeeName').Value:=Trim(OtherFeeName.Text); + if Trim(OtherFee.Text)<>'' then + FieldByName('OtherFee').Value:=Trim(OtherFee.Text) + else + FieldByName('OtherFee').Value:=Null; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CI where CINO='''+Trim(CINO.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('۷Ʊظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','JYOrder_CI_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('CSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CI_Sub where '); + sql.Add(' CSId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then + Append + else + Edit; + FieldByName('CIID').Value:=Trim(maxno); + FieldByName('CSId').Value:=Trim(maxSubNo); + FieldByName('PIMainId').Value:=Order_Sub.fieldbyname('PIMainId').Value; + FieldByName('PISubId').Value:=Order_Sub.fieldbyname('PISubId').Value; + FieldByName('FHID').Value:=Order_Sub.fieldbyname('FHID').Value; + FieldByName('CSBZType').Value:=Order_Sub.fieldbyname('PriceUnit').Value; + FieldByName('CSQtyUnit').Value:=Order_Sub.fieldbyname('QtyUnit').Value; + FieldByName('CSPrice').Value:=Order_Sub.fieldbyname('CSPrice').Value; + FieldByName('CSPS').Value:=Order_Sub.fieldbyname('FHPS').Value; + FieldByName('CSQty').Value:=Order_Sub.fieldbyname('FHQty').Value; + FieldByName('CSMoney').Value:=Order_Sub.fieldbyname('CSMoney').Value; + FieldByName('SKKMoney').Value:=Order_Sub.fieldbyname('SKKMoney').Value; + Post; + end; + + Order_Sub.Edit; + Order_Sub.FieldByName('CSId').Value:=Trim(maxSubNo); + Next; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set CustomerNoName='''+Trim(Order_Sub.fieldbyname('CustomerNoName').AsString)+''''); // + sql.Add(',CustomerNo='''+Trim(Order_Sub.fieldbyname('CustomerNo').AsString)+''''); // + sql.Add(',FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(',KKMoney=(select Sum(SKKMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(',BZType='''+Trim(Order_Sub.fieldbyname('PriceUnit').AsString)+''''); + sql.Add(' where CIID='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add(' where CIID='''+Trim(maxno)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIInPut.TBSaveClick(Sender: TObject); +var + PIMainId:String; +begin + CINO.SetFocus; + if Trim(CINO.Text)='' then + begin + Application.MessageBox('۷ƱŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + PIMainId:=''; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not eof do + begin + if PIMainId='' then + begin + PIMainId:=Trim(Order_Sub.fieldbyname('CustomerNoName').AsString); + end else + begin + if Trim(PIMainId)<>Trim(Order_Sub.fieldbyname('CustomerNoName').AsString) then + begin + Order_Sub.EnableControls; + Application.MessageBox('ͻܱͬ!','ʾ',0); + Exit; + end; + end; + if Trim(Order_Sub.fieldbyname('SKKMoney').AsString)<>'' then + begin + if Order_Sub.fieldbyname('SKKMoney').Value>0 then + begin + Order_Sub.EnableControls; + Application.MessageBox('ۿΪ','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + Order_Sub.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmCIInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('CSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI_Sub where CSId='''+Trim(Order_Sub.fieldbyname('CSId').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set '); + sql.Add(' FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(' where CIID='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add(' where CIID='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmCIInPut.OtherFeeNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CIOtherFeeName'; + flagname:=''; + if ShowModal=1 then + begin + OtherFeeName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCIInPut.ToolButton1Click(Sender: TObject); +begin + try + frmFHOKSelList:=TfrmFHOKSelList.Create(Application); + with frmFHOKSelList do + begin + if ShowModal=1 then + begin + with frmFHOKSelList.Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('PIMainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PIMainId').Value; + FieldByName('PISubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PISubId').Value; + FieldByName('MainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('SubId').Value; + FieldByName('FHID').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHID').Value; + FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + FieldByName('PRTCode').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTCode').Value; + FieldByName('PRTColor').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTColor').Value; + FieldByName('PRTHX').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('QtyUnit').Value; + FieldByName('FHType').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHType').Value; + FieldByName('FHDate').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHDate').Value; + FieldByName('FHPS').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHPS').Value; + FieldByName('FHQty').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHQty').Value; + FieldByName('PriceUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('PriceUnit').Value; + FieldByName('CSPrice').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTPrice').Value; + FieldByName('CSMoney').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHMoney').Value; + FieldByName('ConNO').Value:=frmFHOKSelList.Order_Main.fieldbyname('ConNO').Value; + FieldByName('CustomerNoName').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + Post; + end; + frmFHOKSelList.Order_Main.Delete; + end; + end; + + end; + end; + finally + frmFHOKSelList.Free; + end; +end; + +procedure TfrmCIInPut.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName('CSPrice').Value:=mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('CSMoney').Value:=FieldByName('CSPrice').Value*FieldByName('FHQty').Value; + end; +end; + +procedure TfrmCIInPut.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(DParameters1)='Ȩ' then + begin + v2Column1.Options.Editing:=True; + end else + begin + v2Column1.Options.Editing:=False; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm new file mode 100644 index 0000000..aaa3e92 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm @@ -0,0 +1,943 @@ +object frmCIList: TfrmCIList + Left = 37 + Top = 47 + Width = 1281 + Height = 667 + Caption = #38144#21806#21457#31080#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 = 1265 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1265 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 65 + Height = 12 + Caption = #38144#21806#21457#31080#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 = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 569 + Top = 18 + 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 Label7: TLabel + Left = 731 + 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 = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CINO: TEdit + Tag = 2 + Left = 447 + Top = 14 + Width = 105 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = CINOKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object ConNo: TEdit + Tag = 2 + Left = 609 + Top = 14 + Width = 106 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = ConNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 758 + Top = 14 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1265 + Height = 346 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #38144#21806#21457#31080#21495 + DataBinding.FieldName = 'CINO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 999 + Caption = #26085#26399 + DataBinding.FieldName = 'CIDate' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21457#36135#37329#39069 + DataBinding.FieldName = 'FHMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20854#23427#36153#29992#21517#31216 + DataBinding.FieldName = 'OtherFeeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20854#23427#36153#29992#37329#39069 + DataBinding.FieldName = 'OtherFee' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'YKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'QKMoney' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column3: TcxGridDBColumn + Caption = #24212#25910#20313#27454 + DataBinding.FieldName = 'YSMoney' + HeaderAlignmentHorz = taCenter + Width = 84 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 425 + Width = 1265 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 433 + Width = 1265 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label4: TLabel + Left = 695 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Panel3: TPanel + Left = 15 + Top = 2 + Width = 49 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 28 + Width = 41 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 68 + Width = 41 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 108 + Width = 41 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid2: TcxGrid + Left = 64 + Top = 2 + Width = 631 + Height = 191 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + 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 + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #20313#27454 + #20840#27454 + #20323#37329) + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20998#37197#37329#39069 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 708 + Top = 2 + Width = 53 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button4: TButton + Left = 4 + Top = 28 + Width = 44 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 68 + Width = 44 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 108 + Width = 44 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button6Click + end + end + object cxGrid3: TcxGrid + Left = 761 + Top = 2 + Width = 502 + Height = 191 + Align = alClient + TabOrder = 3 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn18 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #21512#21516#23450#37329#37329#39069 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 776 + Top = 160 + 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 = 720 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 744 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 687 + Top = 159 + 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 = 454 + Top = 201 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + 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 = 423 + Top = 200 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 365 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 485 + Top = 203 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 549 + Top = 459 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 503 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 840 + Top = 496 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 184 + Top = 512 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 512 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 328 + Top = 520 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIList.pas b/坯布码单待检(PBMDDJ.dll)/U_CIList.pas new file mode 100644 index 0000000..66523ee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIList.pas @@ -0,0 +1,1138 @@ +unit U_CIList; + +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, cxCheckBox, cxDropDownEdit; + + +type + TfrmCIList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + CINO: TEdit; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + ConNo: TEdit; + Label7: TLabel; + CustomerNoName: TEdit; + ADOQueryPrint: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Panel2: TPanel; + Label4: TLabel; + Panel3: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + VYB: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + Label6: TLabel; + Panel4: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CINOKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCIList: TfrmCIList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp,U_CIInPut, + U_SKCRFenPei,U_ConDJFenPei; + +{$R *.dfm} + +procedure TfrmCIList.FormDestroy(Sender: TObject); +begin + frmCIList:=nil; +end; + +procedure TfrmCIList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCIList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('۷Ʊб',Tv1,'CI'); +end; + +procedure TfrmCIList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + //sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+''')))'); + end; + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmCIList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('۷Ʊб',Tv1,'CI'); + //InitGrid(); +end; + +procedure TfrmCIList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SK_Money_FP where WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and FPType in('''',''CI'') '); + 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 + Order_Main.Delete; + end; +end; + +function TfrmCIList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add('delete JYOrder_CI_Sub where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmCIList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('۷Ʊ',cxGrid1); +end; + +procedure TfrmCIList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.TBAddClick(Sender: TObject); +begin + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmCIList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='CI¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCIList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmCIList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + //sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmCIList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmCIList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.WorkerChange(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 TfrmCIList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCIList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCIList.ToolButton1Click(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 TfrmCIList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmCIList.CINOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(CINO.Text))<3 then Exit; + fsj:=' and AA.CINO like '''+'%'+Trim(CINO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmCIList.ConNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmCIList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, '); + sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,'); + sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),'); + sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), '); + sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,'); + sql.Add(' F.MainId,F.SubId,D.FHID'); + sql.Add(' from JYOrder_CI A'); + sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId'); + sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID'); + sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId'); + sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId'); + sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId'); + sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId'); + sql.Add(' where A.CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); } +end; + +procedure TfrmCIList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and isnull(FPType,'''')<>''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.PriceUnit,YS.DJMoney,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join JYOrderCon_Sub YS on FP.YFID=YS.SubId'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + sql.Add(' and FPType=''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmCIList.Button1Click(Sender: TObject); +begin + try + frmSKCRFenPei:=TfrmSKCRFenPei.Create(Application); + with frmSKCRFenPei do + begin + KHName:=Trim(Order_Main.fieldbyname('CustomerNo').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('YFID').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('YFID').Value; + FieldByName('CRTime').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('BZType').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('BZType').Value; + FieldByName('Money').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('Money').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmSKCRFenPei.Free; + end; +end; + +procedure TfrmCIList.Button3Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPType',Null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet2.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:=ClientDataSet2.fieldbyname('FPTYpe').Value; + FieldByName('FPDate').Value:=ClientDataSet2.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('CIID').AsString); + if Trim(ClientDataSet2.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet2.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet2.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set YKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType='''' )'); + sql.Add(', QKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''ȫ'' )'); + sql.Add(', YJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''Ӷ'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPYKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add(',FPQKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''ȫ'' )'); + sql.Add(',FPYJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''Ӷ'' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)'); + sql.Add('-isnull(FPYKMoney,0)-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIList.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet2.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPYKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add(',FPQKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''ȫ'' )'); + sql.Add(',FPYJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''Ӷ'' )'); + sql.Add(' where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)'); + sql.Add('-isnull(FPYKMoney,0)-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)'); //-isnull(FPKKMoney,0) + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set YKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType='''' )'); + sql.Add(', QKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''ȫ'' )'); + sql.Add(', YJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''Ӷ'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmCIList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.Button4Click(Sender: TObject); +begin + try + frmConDJFenPei:=TfrmConDJFenPei.Create(Application); + with frmConDJFenPei do + begin + FCIID:=Trim(Order_Main.fieldbyname('CIID').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Append; + FieldByName('YFID').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('SubId').Value; + // FieldByName('CRTime').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('PriceUnit').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('PriceUnit').Value; + FieldByName('DJMoney').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('DJMoney').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmConDJFenPei.Free; + end; +end; + +procedure TfrmCIList.Button6Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('䶨Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet3.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet3.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:='CI'; + FieldByName('FPDate').Value:=ClientDataSet3.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('CIID').AsString); + if Trim(ClientDataSet3.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet3.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet3.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''CI'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=JYOrderCon_Sub.SubID and A.FPType=''CI'' )'); + sql.Add('where SubID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIList.Button5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet3.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=JYOrderCon_Sub.SubId and A.FPType=''CI'' )'); + sql.Add('where SubId='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubId='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''CI'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm new file mode 100644 index 0000000..baadb09 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm @@ -0,0 +1,539 @@ +object frmCKProductBCPInList: TfrmCKProductBCPInList + Left = 128 + Top = 152 + Width = 1027 + Height = 511 + Caption = #25104#21697#20837#24211#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 = 1011 + Height = 33 + 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_CYZZ.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 = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 339 + Top = 0 + Caption = #25171#21360'('#20449#24687#20840#37096')' + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1011 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object AOrdDefStr1: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1011 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + 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 v1Column12: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 59 + 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 v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 107 + end + object v2Column5: TcxGridDBColumn + Caption = #20837#24211#20844#26020#25968 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #20837#24211#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 55 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + 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 + 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 = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 472 + Top = 224 + 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 = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas new file mode 100644 index 0000000..0cd10ba --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas @@ -0,0 +1,456 @@ +unit U_CKProductBCPInList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus; + +type + TfrmCKProductBCPInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + AOrdDefStr1: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPInList: TfrmCKProductBCPInList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPInList:=nil; +end; + +procedure TfrmCKProductBCPInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPInList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',E.AOrdDefStr1,D.MJQty2'); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRType='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPInList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPInList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPInList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒֿ',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPInList.FormShow(Sender: TObject); +begin + + ReadCxGrid('Ʒֿ',Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPInList.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 TfrmCKProductBCPInList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.* from (select A.*,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),'); + sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + sql.Add(' and CRType='''''); + SQL.Add(' and CPType=''Ʒ'' )AA '); + sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from('); + sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS '); + SQL.Add('from (select A.Qty,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + sql.Add(' and CRType='''''); + SQL.Add(' and CPType=''Ʒ'' )AA '); + sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX )AAA'); + //sql.add(' order by SOrddefstr4,PRTHX,Cast(gangno as int)'); + sql.add(' order by SOrddefstr4,PRTHX,gangno '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HZ); + SInitCDSData20(ADOQueryTemp,CDS_HZ); + 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\뵥.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',E.AOrdDefStr1'); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where B.OrderNo like :OrderNo'); + SQL.Add(' and CRType='''' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmCKProductBCPInList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPInList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPInList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ѳⲻܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2=''δ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\뵥ȫ.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.* from (select A.*,MJ.MJMaoZ,MJJingZ=MJ.MJQty4,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),'); + sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId'); + //sql.Add(' inner join JYOrder_Sub JYS on A.SubId=JYS.SubId'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CPType=''Ʒ'''); + sql.Add(' and CRType='''')AA '); + sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from ('); + sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS,Sum(MJMaoZ) MJMaoZ,sum(MJJingZ) MJJingZ '); + SQL.Add('from (select A.Qty,MJMaoZ=A.KgQty,MJJingZ=MJ.MJQty4,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CPType=''Ʒ'''); + sql.Add(' and CRType='''')AA '); + sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX'); + sql.Add(')AAA order by SOrddefstr4,PRTHX,GangNo'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HZ); + SInitCDSData20(ADOQueryTemp,CDS_HZ); + 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\뵥ȫ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm new file mode 100644 index 0000000..2257dff --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm @@ -0,0 +1,296 @@ +object frmCPAdd: TfrmCPAdd + Left = 134 + Top = 162 + Width = 1167 + Height = 399 + Align = alClient + 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 = 1151 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Panel1: TPanel + Left = 126 + Top = 0 + Width = 131 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object CheckBox1: TCheckBox + Left = 10 + Top = 7 + Width = 97 + Height = 17 + Caption = #38376#24133#21333#20301#33521#23544 + TabOrder = 0 + OnClick = CheckBox1Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 33 + Width = 1151 + Height = 327 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 112 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column13: TcxGridDBColumn + Tag = 3 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column41: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column20PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column15: TcxGridDBColumn + Tag = 3 + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 91 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 208 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 209 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 491 + Top = 211 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 589 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 573 + Top = 121 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 216 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas new file mode 100644 index 0000000..94380fc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas @@ -0,0 +1,651 @@ +unit U_CPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit, + StdCtrls, ExtCtrls; + +type + TfrmCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource2: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column41: TcxGridDBColumn; + Panel1: TPanel; + CheckBox1: TCheckBox; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column8PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column26PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column27PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column20PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + canshu1:string; + Fint:Integer; + procedure InitSubGrid(); + function SaveData():Boolean; + { Private declarations } + public + FCYID,FCYCode,FCPID,FCPNO:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmCPAdd: TfrmCPAdd; + +implementation +uses + U_DataLink,U_RTFun,U_iniParam,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCPAdd.FormShow(Sender: TObject); +var + fsj,FFSj,FFQZSj,FFFSj,FFType:String; + FFInt,i,j:Integer; + ii:LongInt; +begin + //canshu1:=Trim(DParameters1); + ReadCxGrid('Ʒ༭YT',Tv1,'Ʒ'); + InitSubGrid(); + if CopyInt=1 then + begin + FCYID:=''; + end; + {if Trim(YPCodeType)<>'' then + begin + if Trim(FCYID)='' then + begin + //ȡǰ׺ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYNO AA from CP_YDang '); + SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')'); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then + begin + FFQZSj:=Trim(FCPNO); + end else + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring); + FFInt:=0; + i:=0; + FFFSj:=Trim(Copy(fsj,Length(FCPNO)+1,Length(fsj))); + while FFInt<=0 do + begin + FFSj:=Trim(Copy(fsj,Length(FCPNO)+1+i,Length(fsj))); + if TryStrToInt(FFSj,ii) then + begin + if StrToInt(FFSj)>=0 then + begin + i:=i+1; + end else + begin + FFInt:=1; + FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//ǰ׺ַ + end; + if i=Length(FFFSj) then + begin + FFInt:=1; + FFQZSj:=Trim(FCPNO); + end; + end else + begin + FFInt:=1; + FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//ǰ׺ַ + end; + end; + end; + //ȡǰ׺ + //ȡ׺ + if Trim(YPCodeType)='' then + begin + i:=99; + while i>=1 do + begin + if i=99 then + begin + FFType:=Trim(FCPID); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(FFType)+''''); + Open; + i:=fieldbyname('CPLevel').AsInteger; + if i>1 then + FFType:=Trim(fieldbyname('CPParent').AsString) + else + if i=1 then + begin + FFType:=Trim(fieldbyname('CPID').AsString); + i:=0; + end; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Select_CP_YDang_MaxNo :CPType'); + Parameters.ParamByName('CPType').Value:=Trim(FFType); + Open; + end; + end else + if Trim(YPCodeType)='С' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYNO AA from CP_YDang '); + SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')'); + Open; + end; + end; + if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then + begin + FFFSj:='0001'; + end else + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring); + FFInt:=0; + i:=0; + FFFSj:=''; + fsj:=Trim( Copy( fsj,Length(FFQZSj)+1,Length(fsj) ) ); + while FFInt<=0 do + begin + FFSj:=Trim(Copy(fsj,(Length(fsj)-i),(Length(fsj)))); + if TryStrToInt(FFSj,ii) then + begin + if StrToInt(FFSj)>=0 then + begin + FFFSj:=Trim(FFSj);//׺ַ + end else + begin + FFInt:=1; + end; + i:=i+1; + if i=Length(fsj) then + begin + FFInt:=1; + end; + end else + begin + FFInt:=1; + end; + end; + i:=Length(FFFSj); //ֱų 3 + FFInt:=StrToInt(FFFSj)+1;// + j:=Length(Trim(IntToStr(FFInt))); //λ 1 + FFFSj:=Trim(IntToStr(FFInt));//׺ַ + while j1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_Sub do + begin + Edit; + FieldByName('CYID').Value:=Trim(maxId); + FieldByName('CYType').Value:=Trim(FCPID); + Post; + end; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCPAdd.ToolButton1Click(Sender: TObject); +var + FFFFCPNO:string; +begin + if CDS_Sub.Locate('CYNo',null,[])=True then + begin + Application.MessageBox('ƷŲΪգ','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('CYName',null,[])=True then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; } + FFFFCPNO:=Trim(CDS_Sub.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmCPAdd.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FieldName,PriceKg,MF,KZ:string; + FReal:Double; +begin + {mvalue:=Trim(TcxTextEdit(Sender).EditingText); + with CDS_Sub do + begin + Edit; + if TryStrToFloat(mvalue,FReal)=False then + FieldByName('CYMF').Value:=mvalue + else + begin + if Trim(canshu1)='Ӣ' then + FieldByName('CYMF').Value:=mvalue+'"' + else + FieldByName('CYMF').Value:=mvalue+'CM'; + end; + Post; + end; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; } +end; + +procedure TfrmCPAdd.v1Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FieldName,PriceKg,MF,KZ:string; + FReal:Double; +begin + {mvalue:=Trim(TcxTextEdit(Sender).EditingText); + with CDS_Sub do + begin + Edit; + if TryStrToFloat(mvalue,FReal)=False then + FieldByName('CYKZ').Value:=mvalue + else + FieldByName('CYKZ').Value:=mvalue+'g/O'; + Post; + end; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; } +end; + +procedure TfrmCPAdd.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName('CYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column26PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYStr'; + flagname:=''; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column27PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPJGFactory'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column20PropertiesEditValueChanged(Sender: TObject); +var + FieldName,mvalue,MF,KZ,PriceKg:string; + FReal:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(FieldName).Value:=mvalue; + Post; + end; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; + +end; + +procedure TfrmCPAdd.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked=True then + begin + canshu1:='Ӣ'; + end else + begin + canshu1:=''; + end; +end; + +procedure TfrmCPAdd.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPWeiZhi'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('DefStr2').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm new file mode 100644 index 0000000..c155a15 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm @@ -0,0 +1,808 @@ +object frmCPManage: TfrmCPManage + Left = 75 + Top = 90 + Width = 1148 + Height = 618 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 528 + Top = 0 + Width = 72 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 3 + Top = 9 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 29 + Top = 6 + Width = 38 + Height = 20 + TabOrder = 0 + end + end + object Panel4: TPanel + Left = 600 + Top = 0 + Width = 173 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 104 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton8: TToolButton + Left = 773 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + OnClick = ToolButton8Click + end + object ToolButton5: TToolButton + Left = 856 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 18 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 943 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 1030 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 904 + Height = 490 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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 + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 108 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 490 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + 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 Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 833 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 720 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + end + object Label15: TLabel + Left = 840 + Top = 23 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 720 + Top = 39 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + 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 = 1 + OnChange = CYNameChange + OnKeyPress = CYNameKeyPress + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + OnKeyPress = CYENameKeyPress + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYSpecChange + OnKeyPress = CYSpecKeyPress + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = CYMFChange + OnKeyPress = CYKZKeyPress + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = CYNameChange + OnKeyPress = CYCFKeyPress + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + OnKeyPress = CYECFKeyPress + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = CYMFChange + OnKeyPress = CYMFKeyPress + end + object OldCYNo: TEdit + Tag = 2 + Left = 755 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 9 + OnChange = CYNoChange + OnKeyPress = OldCYNoKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 755 + Top = 35 + Width = 73 + Height = 20 + TabOrder = 10 + OnChange = CYNoChange + OnKeyPress = OrderNoKeyPress + 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 = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 490 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 301 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 299 + 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_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.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 DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 957 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.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 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas new file mode 100644 index 0000000..5ac08a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas @@ -0,0 +1,1047 @@ +unit U_CPManage; //2 + +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, BtnEdit; + +type + TfrmCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton8: TToolButton; + v1Column17: TcxGridDBColumn; + Label14: TLabel; + OldCYNo: TEdit; + Panel3: TPanel; + Label6: TLabel; + Edit1: TEdit; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label15: TLabel; + Label16: TLabel; + OrderNo: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(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 FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure OldCYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNameKeyPress(Sender: TObject; var Key: Char); + procedure CYSpecKeyPress(Sender: TObject; var Key: Char); + procedure CYCFKeyPress(Sender: TObject; var Key: Char); + procedure CYENameKeyPress(Sender: TObject; var Key: Char); + procedure CYECFKeyPress(Sender: TObject; var Key: Char); + procedure CYMFKeyPress(Sender: TObject; var Key: Char); + procedure CYKZKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure InitGridSql(fsj:string); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPManage: TfrmCPManage; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.InitGridSql(fsj:string); +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_Sql :WSql'); + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPManage.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPManage.FormDestroy(Sender: TObject); +begin + frmCPManage:=nil; +end; + +procedure TfrmCPManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбYT',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',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; + +procedure TfrmCPManage.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбYT',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.TBAddClick(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + if CDS_Main.Active=False then Exit; + Self.CDS_Main.Append; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.ToolButton3Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton5Click(Sender: TObject); +var + FFFFCPNO:String; +begin + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath,FFFFCPNO:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManage.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 TfrmCPManage.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPManage.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 TfrmCPManage.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManage.ToolButton7Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.CDS_Main.Append; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.CYSpecChange(Sender: TObject); +begin + {if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; } +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.CYNameChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<2 then Exit; + + +end; + +procedure TfrmCPManage.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 TfrmCPManage.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCPManage.OldCYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OldCYNo.Text)='' then Exit; + if Length(Trim(OldCYNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,8,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(OldCYNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYName like '''+'%'+Trim(CYName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYSpecKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYCFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYENameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYEName like '''+'%'+Trim(CYEName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYECFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYMFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYKZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + TJGS(); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm new file mode 100644 index 0000000..e52e8f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm @@ -0,0 +1,610 @@ +object frmCPManageCX: TfrmCPManageCX + Left = 85 + Top = 108 + Width = 1148 + Height = 618 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton8: TToolButton + Left = 528 + Top = 0 + Caption = #26679#21697#20837#24211 + ImageIndex = 103 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton9: TToolButton + Left = 611 + Top = 0 + Caption = #26679#21697#20986#24211 + ImageIndex = 107 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton5: TToolButton + Left = 694 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 781 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 868 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 72 + Width = 121 + Height = 507 + Align = alLeft + 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_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.Red + TabOrder = 1 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxGrid1: TcxGrid + Left = 129 + Top = 72 + Width = 1003 + Height = 507 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + 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' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 55 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#23494#24230 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #22383#24067#20215 + DataBinding.FieldName = 'CYPrice1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column10: TcxGridDBColumn + Caption = #25104#21697#20215 + DataBinding.FieldName = 'CYPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 62 + end + object v1Column18: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPrice2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 49 + end + object v1Column13: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'CYPBZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 56 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 121 + Top = 72 + Width = 8 + Height = 507 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxDBTreeList1 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + 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 = 361 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 479 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 603 + Top = 15 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 882 + Top = 16 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 723 + Top = 15 + Width = 24 + Height = 12 + Caption = #20811#37325 + 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 = 411 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 528 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 629 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = CYSpecChange + end + object CYNO: TEdit + Tag = 2 + Left = 262 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object Edit1: TEdit + Left = 840 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + end + object CYKZ: TEdit + Tag = 2 + Left = 749 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYSpecChange + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 193 + 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 DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 909 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 877 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 185 + 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 + 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 = 485 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas new file mode 100644 index 0000000..ff67fac --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas @@ -0,0 +1,630 @@ +unit U_CPManageCX; + +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; + +type + TfrmCPManageCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + v1Column20: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label3: TLabel; + Label6: TLabel; + CYName: TEdit; + CYEName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + Edit1: TEdit; + Label7: TLabel; + CYKZ: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(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 FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + + public + { Public declarations } + end; + +var + frmCPManageCX: TfrmCPManageCX; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR; + +{$R *.dfm} + +procedure TfrmCPManageCX.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageCX.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 TfrmCPManageCX.FormDestroy(Sender: TObject); +begin + frmCPManageCX:=nil; +end; + +procedure TfrmCPManageCX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPManageCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageCX.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',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; + +procedure TfrmCPManageCX.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if SGetServerDate(ADOQueryTemp)>StrToDate('2015-10-26') then //2013-10-26(,) + begin + ToolBar1.Visible:=False; + Panel1.Visible:=False; + cxDBTreeList1.Visible:=False; + cxGrid1.Visible:=False; + Application.MessageBox('ϵӦ̣','ʾ',0); + Exit; + end; + if DParameters1='1' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton3.Visible:=False; + ToolButton5.Visible:=False; + end; + //InitGrid(); +end; + +procedure TfrmCPManageCX.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.TBAddClick(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.ToolButton3Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton2Click(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 TfrmCPManageCX.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageCX.CYNoChange(Sender: TObject); +begin + if Length(Trim(CYNO.Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageCX.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageCX.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +procedure TfrmCPManageCX.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManageCX.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 TfrmCPManageCX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPManageCX.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,[]); +end; + +procedure TfrmCPManageCX.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 TfrmCPManageCX.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManageCX.ToolButton7Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton8Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton9Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + frmYPCR.cxGridDBColumn1.Caption:=''; + frmYPCR.cxGridDBColumn5.Caption:=''; + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm new file mode 100644 index 0000000..69901c8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm @@ -0,0 +1,1109 @@ +object frmCPManageTPCX: TfrmCPManageTPCX + Left = 1 + Top = 1 + Width = 1364 + Height = 726 + Caption = #26679#21697#20449#24687#26597#35810 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1348 + Height = 31 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBSel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + OnClick = TBSelClick + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object ToolButton11: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #39044#35272 + ImageIndex = 39 + OnClick = ToolButton11Click + end + object ToolButton6: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 9 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 598 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1348 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label2: TLabel + Left = 13 + Top = 20 + Width = 26 + Height = 24 + Caption = #25195#25551#13#10#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 460 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label5: TLabel + Left = 965 + Top = 15 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label3: TLabel + Left = 262 + Top = 20 + Width = 26 + Height = 24 + Caption = #20135#21697#13#10#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 876 + Top = 39 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 571 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 460 + Top = 39 + Width = 48 + Height = 12 + Caption = #25104' '#20998 + end + object Label10: TLabel + Left = 571 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label4: TLabel + Left = 656 + Top = 15 + Width = 24 + Height = 12 + Caption = #31995#21015 + end + object Label9: TLabel + Left = 965 + Top = 39 + Width = 24 + Height = 12 + Caption = #24037#33402 + end + object Label11: TLabel + Left = 876 + Top = 15 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object CYID: TEdit + Tag = 3 + Left = 40 + Top = 11 + Width = 218 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 510 + Top = 11 + Width = 52 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + end + object CYSpec: TEdit + Tag = 2 + Left = 990 + Top = 11 + Width = 55 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 290 + Top = 11 + Width = 160 + Height = 50 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 902 + Top = 35 + Width = 54 + Height = 20 + TabOrder = 4 + end + object CYKZ: TEdit + Tag = 2 + Left = 599 + Top = 35 + Width = 45 + Height = 20 + TabOrder = 5 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 52 + Height = 20 + TabOrder = 6 + OnChange = CYCFChange + end + object CYMF: TEdit + Tag = 2 + Left = 599 + Top = 11 + Width = 45 + Height = 20 + TabOrder = 7 + OnChange = CYMFChange + end + object CYXLType: TEdit + Tag = 2 + Left = 683 + Top = 10 + Width = 148 + Height = 20 + TabOrder = 8 + OnChange = CYMFChange + end + object Button1: TButton + Left = 832 + Top = 10 + Width = 31 + Height = 20 + Caption = '- - -' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -7 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Button1Click + end + object GYStr: TComboBox + Tag = 1 + Left = 990 + Top = 35 + Width = 57 + Height = 20 + ItemHeight = 12 + TabOrder = 10 + OnChange = GYStrChange + Items.Strings = ( + 'PD' + 'PR' + 'YD' + 'TD' + 'H' + 'M' + 'O' + 'P' + '') + end + object HX: TEdit + Tag = 2 + Left = 902 + Top = 11 + Width = 53 + Height = 20 + TabOrder = 11 + OnChange = CYNoChange + end + object Button2: TButton + Left = 656 + Top = 35 + Width = 65 + Height = 20 + Caption = #19968#38190#26367#25442 + TabOrder = 12 + Visible = False + OnClick = Button2Click + end + object Edit2: TEdit + Left = 722 + Top = 35 + Width = 141 + Height = 20 + TabOrder = 13 + Visible = False + 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 = 3 + Visible = False + end + object Panel3: TPanel + Left = 228 + Top = 89 + Width = 1120 + Height = 598 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1116 + Height = 396 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Tag = 77 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column1: TcxGridDBColumn + Tag = 77 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Tag = 77 + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column7: TcxGridDBColumn + Tag = 77 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #31995#21015 + DataBinding.FieldName = 'CYXLType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 87 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Tag = 77 + Caption = #24037#33402 + DataBinding.FieldName = 'GYStr' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column13: TcxGridDBColumn + Caption = #37319#26679#20154 + DataBinding.FieldName = 'CYPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #37319#26679#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'1' + DataBinding.FieldName = 'GYStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column29: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'2' + DataBinding.FieldName = 'GYStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column32: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'3' + DataBinding.FieldName = 'GYStr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'1' + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object v1Column3: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'2' + DataBinding.FieldName = 'CYHX2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column18: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'3' + DataBinding.FieldName = 'CYHX3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 54 + end + object v1Column20: TcxGridDBColumn + Caption = #26368#21518#20462#25913#20154 + DataBinding.FieldName = 'Editer' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column21: TcxGridDBColumn + Caption = #26368#21518#20462#25913#26102#38388 + DataBinding.FieldName = 'EditTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 398 + Width = 1116 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel4 + end + object Panel4: TPanel + Left = 2 + Top = 406 + Width = 1116 + Height = 190 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Tag = 2 + Left = 749 + Top = 2 + Width = 365 + Height = 186 + Align = alRight + TabOrder = 0 + Visible = False + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSGY + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + 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 + Column = cxGridDBColumn10 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Tag = 5 + Caption = #24037#33402#21517#31216 + DataBinding.FieldName = 'GYName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 72 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 5 + Caption = #37329#39069 + DataBinding.FieldName = 'GYMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 65 + end + object v3Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'GYLX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #35745#37327#21333#20301 + DataBinding.FieldName = 'JLunit' + Options.Editing = False + Styles.Header = DataLink_CYZZ.FonePurple + Width = 60 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 5 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 95 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid62: TcxGrid + Tag = 2 + Left = 2 + Top = 2 + Width = 747 + Height = 186 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSCB + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + 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 = skAverage + Column = cxGridDBColumn49 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column1: TcxGridDBColumn + Caption = #26680#31639#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn40: TcxGridDBColumn + Tag = 5 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 80 + end + object cxGridDBColumn41: TcxGridDBColumn + Tag = 5 + Caption = #24065#31181 + DataBinding.FieldName = 'ADefStr1' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #65509 + '$' + #8364) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 53 + end + object cxGridDBColumn42: TcxGridDBColumn + Tag = 5 + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'ADefStr3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Kg' + 'Y') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object cxGridDBColumn49: TcxGridDBColumn + Tag = 5 + Caption = #25104#26412 + DataBinding.FieldName = 'JYPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn51: TcxGridDBColumn + Tag = 5 + Caption = #22791#27880 + DataBinding.FieldName = 'AdefStr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 598 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 409 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 407 + 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_CYZZ.Red + Styles.Selection = DataLink_CYZZ.Red + Styles.IncSearch = DataLink_CYZZ.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 DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree10: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 217 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.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 CDS_CB: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 464 + end + object DSCB: TDataSource + DataSet = CDS_CB + Left = 523 + Top = 467 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 464 + Top = 528 + end + object CDS_GY: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 472 + end + object DSGY: TDataSource + DataSet = CDS_GY + Left = 971 + Top = 475 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 912 + Top = 536 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 669 + Top = 193 + end + object PopupMenu1: TPopupMenu + Left = 585 + Top = 217 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 56 + Top = 216 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas new file mode 100644 index 0000000..c50142e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas @@ -0,0 +1,787 @@ +unit U_CPManageTPCX; + +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, BtnEdit, cxButtonEdit, + cxDropDownEdit, cxTextEdit, cxCalendar, Menus,jpeg; + +type + TfrmCPManageTPCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree10: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + Label3: TLabel; + CYNO: TEdit; + Panel2: TPanel; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + CYCF: TEdit; + Label10: TLabel; + CYMF: TEdit; + Label4: TLabel; + CYXLType: TEdit; + Button1: TButton; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column19: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter2: TcxSplitter; + Panel4: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_CB: TClientDataSet; + DSCB: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_GY: TClientDataSet; + DSGY: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + v1Column17: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + ToolButton11: TToolButton; + Label9: TLabel; + GYStr: TComboBox; + Label11: TLabel; + HX: TEdit; + v1Column18: TcxGridDBColumn; + Button2: TButton; + Edit2: TEdit; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + TBSel: TToolButton; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Image2: TImage; + cxGrid62: TcxGrid; + Tv2: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn49: TcxGridDBColumn; + cxGridDBColumn51: TcxGridDBColumn; + cxGridLevel5: 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 ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYCFChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton11Click(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure GYStrChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBSelClick(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 + frmCPManageTPCX: TfrmCPManageTPCX; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmCPManageTPCX.InitTree(); +var + i:Integer; +begin + with ADOQueryTree10 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree10,ADOQueryTree); + SInitCDSData20(ADOQueryTree10,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageTPCX.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 TfrmCPManageTPCX.FormDestroy(Sender: TObject); +begin + frmCPManageTPCX:=nil; +end; + +procedure TfrmCPManageTPCX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; + // Action:=caHide; +end; + +procedure TfrmCPManageTPCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбSF',Tv1,'Ʒ'); + WriteCxGrid('ƷбSF1a',Tv2,'Ʒ'); + WriteCxGrid('ƷбSF2',Tv3,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageTPCX.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбSF',Tv1,'Ʒ'); + ReadCxGrid('ƷбSF1a',Tv2,'Ʒ'); + ReadCxGrid('ƷбSF2',Tv3,'Ʒ'); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPManageTPCX.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageTPCX.TBRafreshClick(Sender: TObject); +var + DWCYID:String; +begin + InitTree(); + if CDS_Main.IsEmpty=False then + DWCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + InitGrid(); + CDS_Main.Locate('CYID',DWCYID,[]); +end; + +procedure TfrmCPManageTPCX.ToolButton2Click(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 TfrmCPManageTPCX.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType) '); + sql.Add(' from CP_YDang A where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + end; +end; + +procedure TfrmCPManageTPCX.CYNoChange(Sender: TObject); +begin + if Trim(Trim(TEdit(Sender).Text))<>'' then + 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); + end; +end; + +procedure TfrmCPManageTPCX.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + //RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManageTPCX.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPManageTPCX.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManageTPCX.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 TfrmCPManageTPCX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //ToolButton6.Click; + if CDS_Main.FieldByName('CostFlag').AsBoolean=False then + ModalResult:=1; +end; + +procedure TfrmCPManageTPCX.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.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 TfrmCPManageTPCX.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); + end; +end; + +procedure TfrmCPManageTPCX.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); + end; +end; + +procedure TfrmCPManageTPCX.CYCFChange(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 TfrmCPManageTPCX.Button1Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CYXLType'; + flagname:='ϵ'; + FGStr:=' '; + if ShowModal=1 then + begin + CYXLType.Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; + //if Length(Trim(CYXLType.Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.Tv2FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost_HGY where PSID='''+Trim(CDS_CB.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_GY); + SInitCDSData20(ADOQueryTemp,CDS_GY); +end; + +procedure TfrmCPManageTPCX.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,[]); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + InitImage(); +end; + +procedure TfrmCPManageTPCX.ToolButton11Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + with CDS_Main do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.PrintReport; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + +end; + +procedure TfrmCPManageTPCX.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYNO.Text)='' then Exit; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType) '); + sql.Add(' ,HX=isnull(CYHX,'''')+isnull(CYHX2,'''')+isnull(CYHX3,'''')'); + sql.Add(' from CP_YDang A where CYNO='''+Trim(CYNO.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString); + + //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + CYNO.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageTPCX.GYStrChange(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 TfrmCPManageTPCX.Button2Click(Sender: TObject); +var + FColumn,FColumnName,Fsj:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + FColumn:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FColumnName:=Tv1.Controller.FocusedColumn.Caption; + if Trim(Edit2.Text)='' then + begin + Application.MessageBox('ݲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox(Pchar('ȷҪһ滻<'+FColumnName+'>'),'ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + if Trim(fsj)='' then + begin + fsj:='('''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''; + end else + begin + Fsj:=fsj+','''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName(FColumn).Value:=Trim(Edit2.Text); + Post; + + end; + if Trim(Fsj)<>'' then + begin + Fsj:=Fsj+')'; + end; + end; + CDS_Main.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set '+FColumn+'='''+Trim(Edit2.Text)+''''); + sql.Add(',Editer='''+Trim(DName)+''',EditTime=getdate()'); + sql.Add(' where CYID in '+fsj); + ExecSQL; + end; +end; + +procedure TfrmCPManageTPCX.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCPManageTPCX.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCPManageTPCX.TBSelClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm new file mode 100644 index 0000000..9484f64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm @@ -0,0 +1,682 @@ +object frmCPSel: TfrmCPSel + Left = 75 + Top = 75 + Width = 1175 + Height = 635 + Caption = #20135#21697#26597#35810 + 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 = 1159 + Height = 31 + 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 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 = #26631#31614#25171#21360 + ImageIndex = 4 + Visible = False + end + object Panel4: TPanel + Left = 213 + Top = 0 + Width = 174 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 105 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton3: TToolButton + Left = 387 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton6: TToolButton + Left = 470 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 557 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 931 + Height = 507 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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 + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 507 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1159 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + 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 Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 773 + Top = 15 + Width = 24 + Height = 12 + Caption = #20221#25968 + Visible = False + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 832 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = 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 = 1 + OnChange = CYNameChange + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 731 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + Visible = False + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 8 + OnChange = CYNameChange + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + 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 = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 507 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 318 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 316 + 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_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.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 DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.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 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas b/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas new file mode 100644 index 0000000..d69cdb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas @@ -0,0 +1,578 @@ +unit U_CPSel; // + +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, BtnEdit; + +type + TfrmCPSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton3: TToolButton; + 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 ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(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 FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPSel: TfrmCPSel; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPSel.FormDestroy(Sender: TObject); +begin + frmCPSel:=nil; +end; + +procedure TfrmCPSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбCX1',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPSel.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбCX1',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPSel.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPSel.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPSel.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 TfrmCPSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmCPSel.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 TfrmCPSel.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPSel.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 TfrmCPSel.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.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 TfrmCPSel.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPSel.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm new file mode 100644 index 0000000..bf51340 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm @@ -0,0 +1,189 @@ +object frmCPType: TfrmCPType + Left = 281 + Top = 184 + Width = 870 + Height = 505 + Caption = #20135#21697#31867#21035 + 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 = 854 + 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 = 3 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 433 + Align = alLeft + 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 + TabOrder = 1 + OnClick = cxDBTreeList1Click + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 270 + Top = 54 + Width = 315 + Height = 150 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 66 + Top = 24 + Width = 48 + Height = 12 + Caption = #29238' '#31867 + end + object Label2: TLabel + Left = 66 + Top = 65 + Width = 48 + Height = 12 + Caption = #31867#21035#21517#31216 + end + object Label3: TLabel + Left = 66 + Top = 105 + Width = 48 + Height = 12 + Caption = #31867#21035#32534#30721 + end + object CPTopName: TEdit + Left = 129 + Top = 21 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object CPName: TEdit + Left = 129 + Top = 61 + Width = 121 + Height = 20 + TabOrder = 1 + OnKeyPress = CPNameKeyPress + end + object CPNo: TEdit + Left = 129 + Top = 101 + Width = 121 + Height = 20 + TabOrder = 2 + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree10: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 125 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 709 + Top = 209 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 677 + Top = 137 + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 160 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPType.pas b/坯布码单待检(PBMDDJ.dll)/U_CPType.pas new file mode 100644 index 0000000..e03da98 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPType.pas @@ -0,0 +1,242 @@ +unit U_CPType; //1 + +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; + +type + TfrmCPType = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree10: TADOQuery; + ToolButton1: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + CPTopName: TEdit; + CPName: TEdit; + CPNo: TEdit; + ADOQueryTree: TClientDataSet; + 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 CPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmCPType: TfrmCPType; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmCPType.InitTree(); +var + i:Integer; +begin + with ADOQueryTree10 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree10,ADOQueryTree); + SInitCDSData20(ADOQueryTree10,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPType.FormDestroy(Sender: TObject); +begin + frmCPType:=nil; +end; + +procedure TfrmCPType.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPType.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmCPType.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmCPType.TBAddClick(Sender: TObject); +begin + PState:=11; + CPTopName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + CPName.Text:=''; + CPNo.Text:=''; + CPName.SetFocus; +end; + +procedure TfrmCPType.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + CPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('CPName').AsString); + CPName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CPNo.Text:=Trim(ADOQueryTree.fieldbyname('CPNo').AsString); +end; + +procedure TfrmCPType.ToolButton1Click(Sender: TObject); +var + maxId:String; +begin + if Trim(CPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if Trim(CPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'CP','CP_Type',4,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 CP_Type where CPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.Text); + FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FieldByName('CPLevel').Value:=ADOQueryTree.fieldbyname('CPLevel').AsInteger+1; + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.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 TfrmCPType.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('CPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ಻ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYType='''+Trim(ADOQueryTree.fieldbyname('CPID').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 CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + sql.Add('delete CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmCPType.CPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + CPNo.SetFocus; +end; + +procedure TfrmCPType.FormShow(Sender: TObject); +begin + InitTree(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm new file mode 100644 index 0000000..71c418d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm @@ -0,0 +1,745 @@ +object frmCPView: TfrmCPView + Left = 75 + Top = 75 + Width = 1148 + Height = 618 + Caption = #20135#21697#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 276 + Top = 0 + Width = 72 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 3 + Top = 9 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 29 + Top = 6 + Width = 38 + Height = 20 + TabOrder = 0 + end + end + object Panel4: TPanel + Left = 348 + Top = 0 + Width = 174 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 105 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton3: TToolButton + Left = 522 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + OnClick = ToolButton3Click + end + object ToolButton6: TToolButton + Left = 605 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 692 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 904 + Height = 490 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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 + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 490 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + 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 Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 832 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 720 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + end + object Label16: TLabel + Left = 720 + Top = 39 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + 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 = 1 + OnKeyPress = CYNameKeyPress + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnKeyPress = CYENameKeyPress + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnKeyPress = CYSpecKeyPress + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnKeyPress = CYNOKeyPress + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnKeyPress = CYENameKeyPress + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnKeyPress = CYCFKeyPress + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 7 + OnKeyPress = CYENameKeyPress + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnKeyPress = CYENameKeyPress + end + object OldCYNo: TEdit + Tag = 2 + Left = 755 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 9 + OnKeyPress = OldCYNoKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 755 + Top = 35 + Width = 73 + Height = 20 + TabOrder = 10 + OnKeyPress = OrderNoKeyPress + 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 = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 490 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 301 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 299 + 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_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.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 DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.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 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPView.pas b/坯布码单待检(PBMDDJ.dll)/U_CPView.pas new file mode 100644 index 0000000..5f12b00 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPView.pas @@ -0,0 +1,745 @@ +unit U_CPView; //3 + +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, BtnEdit; + +type + TfrmCPView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton3: TToolButton; + Panel3: TPanel; + Label6: TLabel; + Edit1: TEdit; + Label15: TLabel; + OldCYNo: TEdit; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label16: TLabel; + OrderNo: TEdit; + 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 ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(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 FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OldCYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYSpecKeyPress(Sender: TObject; var Key: Char); + procedure CYNameKeyPress(Sender: TObject; var Key: Char); + procedure CYCFKeyPress(Sender: TObject; var Key: Char); + procedure CYENameKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure InitGridSql(fsj:string); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPView: TfrmCPView; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPView.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 TfrmCPView.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 TfrmCPView.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPView.FormDestroy(Sender: TObject); +begin + frmCPView:=nil; +end; + +procedure TfrmCPView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбCX',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPView.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбCX',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPView.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPView.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPView.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 TfrmCPView.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 TfrmCPView.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPView.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPView.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath,FFFFCPNO:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPView.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 TfrmCPView.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPView.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 TfrmCPView.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPView.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 TfrmCPView.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPView.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 TfrmCPView.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 TfrmCPView.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPView.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCPView.OldCYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OldCYNo.Text)='' then Exit; + if Length(Trim(OldCYNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,8,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(OldCYNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPView.CYSpecKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPView.CYNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYName like '''+'%'+Trim(CYName.Text)+'%'+''''); + TJGS(); + end; +end; +procedure TfrmCPView.InitGridSql(fsj:string); +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_Sql :WSql'); + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPView.CYCFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPView.CYENameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYEName like '''+'%'+Trim(CYEName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + TJGS(); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm new file mode 100644 index 0000000..dfb3a4f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm @@ -0,0 +1,1294 @@ +object frmCWMDList: TfrmCWMDList + Left = 23 + Top = 126 + Width = 1185 + Height = 572 + Caption = #30721#21333#26597#35810 + 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 = 1177 + 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_CYZZ.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 = #29366#24577#26356#25913 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ComboBox1: TComboBox + Left = 209 + Top = 3 + Width = 145 + Height = 24 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Items.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758) + end + object TBExport: TToolButton + Left = 354 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 417 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1177 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 635 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 635 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 788 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 686 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 686 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object MDFactoryName: TEdit + Tag = 2 + Left = 825 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 10 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 117 + Width = 1177 + Height = 424 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 424 + ClientRectRight = 1177 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Position = spFooter + Column = v3Column18 + end + item + Format = '0' + Position = spFooter + Column = v3Column19 + end + item + Format = '0' + Position = spFooter + Column = v3Column20 + end + item + Format = '0' + Position = spFooter + Column = v3Column21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column18 + end + item + Kind = skSum + Column = v3Column19 + end + item + Kind = skSum + Column = v3Column21 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 41 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object v3Column22: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column23: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column16: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column18: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21305#25968 + DataBinding.FieldName = 'JSPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column19: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v3Column20: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v3Column21: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column15: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 142 + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column13: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CWStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 472 + Top = 103 + Width = 219 + 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 = 1 + Visible = False + end + object Panel3: TPanel + Left = 473 + Top = 147 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#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 = 2 + Visible = False + end + end + object cxTabSheet2: TcxTabSheet + Caption = #35843#33410#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 152 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 160 + Width = 1177 + Height = 241 + Align = alBottom + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 620 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 152 + Width = 1177 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1177 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1177 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 485 + Top = 189 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 408 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 408 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 265 + Top = 409 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 824 + Top = 384 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 384 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 889 + Top = 385 + end + object PopupMenu1: TPopupMenu + Left = 415 + Top = 303 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #36171#20540 + OnClick = N3Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas new file mode 100644 index 0000000..13761cd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas @@ -0,0 +1,1746 @@ +unit U_CWMDList; //17 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxSplitter, cxGridBandedTableView, + cxGridDBBandedTableView, cxTextEdit, Menus; + +type + TfrmCWMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + AOrdDefStr1: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ComboBox1: TComboBox; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Label11: TLabel; + MDFactoryName: TEdit; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + v3Column18: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + Panel2: TPanel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + Panel3: TPanel; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure v3Column19PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + function UPdateData():Boolean; + function JSMDData():Boolean; + function JSTJMDData(FJSType:String):Boolean; + function UPdateDataKK():Boolean; + function YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFData(CRID:String):Boolean; + function JSMDHZData():Boolean; + function YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFHZData(CRID:String):Boolean; + public + { Public declarations } + FFPInt:Integer; + end; + +var + frmCWMDList: TfrmCWMDList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmCWMDList.FormDestroy(Sender: TObject); +begin + frmCWMDList:=nil; +end; + +procedure TfrmCWMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCWMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; + Panel2.Visible:=False; +end; + +procedure TfrmCWMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmCWMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥ѯCW',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + Close; +end; + +procedure TfrmCWMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmCWMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmCWMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmCWMDList.FormShow(Sender: TObject); +var + fsj:string; +begin + READCxGrid('뵥ѯCW',Tv3,'뵥'); + READCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + if FFPInt=9 then + begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; + end; +end; + +procedure TfrmCWMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmCWMDList.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; + +end; + +procedure TfrmCWMDList.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬δѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex=0 then + begin + if Trim(ComboBox1.Text)='' then Exit; + end; + if cxTabControl1.TabIndex=3 then exit; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Panel3.Visible:=True; + Panel3.Refresh; + if cxPageControl1.ActivePageIndex=0 then + begin + if JSMDHZData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + begin + if UPdateDataKK() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end; + Panel3.Visible:=False; +end; +function TfrmCWMDList.UPdateData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSMDData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSMDHZData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet3.fieldbyname('ORDMainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFHZData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSTJMDData(FJSType:String):Boolean; +var + maxno,FJSID:string; +begin + Result:=False; + //д + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and JSType='''+Trim(FJSType)+''''); + Open; + end; + FJSID:=Trim(ADOQueryTemp.fieldbyname('JSID').AsString); + if ComboBox1.ItemIndex=1 then + begin + if Trim(FJSID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FJSID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FJSID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('KKID').Value:=Trim(ClientDataSet4.fieldbyname('KKID').AsString); + FieldByName('JSType').Value:=Trim(FJSType); + if FJSType='' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + end else + if FJSType='ι' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZFactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZFactoryName').Value; + end; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmCWMDList.UPdateDataKK():Boolean; +var + maxno,maxjsno,maxkkno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + // sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('CWStatusNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + JSTJMDData('ι'); + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + JSTJMDData(''); + end; + Next; + end; + end; + //д + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if ClientDataSet4.IsEmpty then Exit; + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryNo').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryName').AsString), + 'ι')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=1,CWHXDate=getdate(),CWHXPerson='''+Trim(DName)+''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + end else + begin + //ɾӦ + with ClientDataSet4 do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType=''ι'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=0,CWHXDate=Null,CWHXPerson='''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and CRTime='''+Trim(ClientDataSet3.fieldbyname('MDDate').AsString)+''''); + SQL.Add(' and Price='+Trim(ClientDataSet3.fieldbyname('JSPrice').AsString)); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + //FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + FieldByName('PSName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString); + FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MDID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '); + sql.Add(' PS=(select isnull(Sum(JSPS),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' ,Qty=(select isnull(Sum(JSQty),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + + Result:=True; +end; +function TfrmCWMDList.YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(KFType,'''')='''+Trim(KFType)+''''); + end; + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if cxPageControl1.ActivePageIndex=0 then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if GetLSNo(ADOQueryCmd,YFID,'KK','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡڲֿ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + if cxPageControl1.ActivePageIndex=0 then + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value + else + FieldByName('CRTime').Value:=ClientDataSet4.fieldbyname('KKDate').Value; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + end else + begin + FieldByName('Qty').Value:=1; + if Trim(KFType)='ι' then + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value*-1 + else + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value*-1; + end; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + end else + begin + FieldByName('YFName').Value:='۷'; + FieldByName('KFType').Value:=Trim(KFType); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYorder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where KKID='''+Trim(YFTYpeId)+''''); + sql.Add(' and FactoryNo='''+Trim(CWFactoryNo)+''''); + ExecSQL; + end; + end; + + Result:=True; +end; +function TfrmCWMDList.DelYFHZData(CRID:String):Boolean; +begin + Result:=False; + 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='+Trim(CRID)); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where not exists(select * from JYOrder_Main_MD_JS A where '); + sql.Add(' A.YFID=YF_Money_CR.YFID and YF_Money_CR.YFType=''Զ'' )'); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + Result:=True; +end; +function TfrmCWMDList.DelYFData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MDId='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + sql.Add(' and YFType=''Զ'' '); + 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='+Trim(CRID)); + ExecSQL; + end; + Result:=True; +end; + +procedure TfrmCWMDList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmCWMDList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˹'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCWMDList.v3Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet3.fieldbyname('JSPrice').AsString); + FQty:=Trim(ClientDataSet3.fieldbyname('JSQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'JSMoney' then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmCWMDList.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmCWMDList.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmCWMDList.N3Click(Sender: TObject); +begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('Qty').Value; + FieldByName('JSPrice').Value:=FieldByName('Price').Value; + FieldByName('JSMoney').Value:=FieldByName('Money').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmCWMDList.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='Э' then + frmTJCKRKOK.cxTabControl1.TabIndex:=2 + else + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='' then + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm new file mode 100644 index 0000000..97fff97 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm @@ -0,0 +1,1530 @@ +object frmCWMDOtherFeeList: TfrmCWMDOtherFeeList + Left = 23 + Top = 126 + Width = 1185 + Height = 572 + Caption = #30721#21333#26597#35810 + 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 = 1177 + 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_CYZZ.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 = #29366#24577#26356#25913 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ComboBox1: TComboBox + Left = 209 + Top = 3 + Width = 145 + Height = 24 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Items.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758) + end + object TBExport: TToolButton + Left = 354 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 417 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1177 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 635 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 635 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 788 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 686 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 686 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object MDFactoryName: TEdit + Tag = 2 + Left = 825 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 10 + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 117 + Width = 1177 + Height = 424 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 424 + ClientRectRight = 1177 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Position = spFooter + Column = v3Column18 + end + item + Format = '0' + Position = spFooter + Column = v3Column19 + end + item + Format = '0' + Position = spFooter + Column = v3Column20 + end + item + Format = '0' + Position = spFooter + Column = v3Column21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column18 + end + item + Kind = skSum + Column = v3Column19 + end + item + Kind = skSum + Column = v3Column21 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 41 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object v3Column22: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column23: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column16: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column18: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21305#25968 + DataBinding.FieldName = 'JSPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column19: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v3Column20: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v3Column21: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column15: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 142 + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column13: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CWStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 472 + Top = 103 + Width = 219 + 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 = 1 + Visible = False + end + object Panel3: TPanel + Left = 473 + Top = 147 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#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 = 2 + Visible = False + end + end + object cxTabSheet2: TcxTabSheet + Caption = #35843#33410#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 152 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 160 + Width = 1177 + Height = 241 + Align = alBottom + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 620 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 152 + Width = 1177 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + end + object cxTabSheet3: TcxTabSheet + Caption = #20854#23427#36153#29992 + ImageIndex = 2 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu2 + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 102 + end + object v7Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v7Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v7Column10: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'JFQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.handBlack + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 131 + end + object v7Column8: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'JFFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v7Column9: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'JFFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v7Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v7Column5: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v7Column3: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object v7Column4: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + end + object v7Column6: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 94 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1177 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1177 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 485 + Top = 189 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 408 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 408 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 265 + Top = 409 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 824 + Top = 384 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 384 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 889 + Top = 385 + end + object PopupMenu1: TPopupMenu + Left = 415 + Top = 303 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #36171#20540 + OnClick = N3Click + end + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 902 + Top = 7 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1027 + Top = 191 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1055 + Top = 191 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1085 + Top = 193 + end + object PopupMenu2: TPopupMenu + Left = 624 + Top = 209 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + object MenuItem3: TMenuItem + Caption = #36171#20540 + OnClick = MenuItem3Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas new file mode 100644 index 0000000..9ebc22e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas @@ -0,0 +1,2212 @@ +unit U_CWMDOtherFeeList; //17 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxSplitter, cxGridBandedTableView, + cxGridDBBandedTableView, cxTextEdit, Menus, cxButtonEdit; + +type + TfrmCWMDOtherFeeList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + AOrdDefStr1: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ComboBox1: TComboBox; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Label11: TLabel; + MDFactoryName: TEdit; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + v3Column18: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + Panel2: TPanel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + Panel3: TPanel; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column2: TcxGridDBColumn; + v7Column3: TcxGridDBColumn; + v7Column4: TcxGridDBColumn; + v7Column5: TcxGridDBColumn; + v7Column6: TcxGridDBColumn; + v7Column7: TcxGridDBColumn; + v7Column8: TcxGridDBColumn; + v7Column9: TcxGridDBColumn; + ADOQuery2: TADOQuery; + cxGridPopupMenu7: TcxGridPopupMenu; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + MenuItem3: TMenuItem; + v7Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure v3Column19PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure MenuItem3Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + function UPdateData():Boolean; + function JSMDData():Boolean; + function JSTJMDData(FJSType:String):Boolean; + function UPdateDataKK():Boolean; + function YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFData(CRID:String):Boolean; + function JSMDHZData():Boolean; + function YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFHZData(CRID:String):Boolean; + procedure InitGridMD(); + procedure InitGridOtherFee(); + function JSOtherFeeData():Boolean; + function YFOtherFeeData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + public + { Public declarations } + FFPInt:Integer; + end; + +var + frmCWMDOtherFeeList: TfrmCWMDOtherFeeList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmCWMDOtherFeeList.FormDestroy(Sender: TObject); +begin + frmCWMDOtherFeeList:=nil; +end; + +procedure TfrmCWMDOtherFeeList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCWMDOtherFeeList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + Panel2.Visible:=True; + Panel2.Refresh; + if cxPageControl1.ActivePageIndex<>2 then + InitGridMD() + else + InitGridOtherFee(); + TBFind.Click; + Panel2.Visible:=False; +end; +procedure TfrmCWMDOtherFeeList.InitGridMD(); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; +end; +procedure TfrmCWMDOtherFeeList.InitGridOtherFee(); +var + fsj:string; +begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_OtherFee_JS :begdate,:enddate,:orderno,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMF.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + finally + ADOQuery3.EnableControls; + end; +end; +procedure TfrmCWMDOtherFeeList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmCWMDOtherFeeList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥ѯCW',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + WriteCxGrid('',Tv7,'뵥'); + Close; +end; + +procedure TfrmCWMDOtherFeeList.cxPageControl1Change(Sender: TObject); +begin + //TBRafresh.Click; +end; + +procedure TfrmCWMDOtherFeeList.TBFindClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=2 then Exit; + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmCWMDOtherFeeList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + if cxPageControl1.ActivePageIndex<>2 then + begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end else + begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_OtherFee_JS :begdate,:enddate,:orderno,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMF.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + finally + ADOQuery3.EnableControls; + end; + end; + + end; + +end; + +procedure TfrmCWMDOtherFeeList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDOtherFeeList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmCWMDOtherFeeList.FormShow(Sender: TObject); +var + fsj:string; +begin + READCxGrid('뵥ѯCW',Tv3,'뵥'); + READCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + READCxGrid('',Tv7,'뵥'); + if FFPInt=9 then + begin + InitGridMD(); + TBFind.Click; + end; +end; + +procedure TfrmCWMDOtherFeeList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmCWMDOtherFeeList.cxTabControl1Change(Sender: TObject); +begin + //TBRafresh.Click; + +end; + +procedure TfrmCWMDOtherFeeList.ToolButton1Click(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>2 then + begin + if ClientDataSet3.IsEmpty then Exit; + end else + begin + if ClientDataSet7.IsEmpty then Exit; + end; + + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬δѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex=0 then + begin + if Trim(ComboBox1.Text)='' then Exit; + end; + if cxTabControl1.TabIndex=3 then exit; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + if ClientDataSet7.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Panel3.Visible:=True; + Panel3.Refresh; + if cxPageControl1.ActivePageIndex=0 then + begin + if JSMDHZData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if UPdateDataKK() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + if JSOtherFeeData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end; + Panel3.Visible:=False; +end; +function TfrmCWMDOtherFeeList.UPdateData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSMDData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSMDHZData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet3.fieldbyname('ORDMainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFHZData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSOtherFeeData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet7.DisableControls; + with ClientDataSet7 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //Ѳ״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_Fee Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet7.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + //Ѳ״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet7.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet7.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet7.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet7.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(ClientDataSet7.fieldbyname('JFID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet7.fieldbyname('JFQtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet7.fieldbyname('JFDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet7.fieldbyname('MainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv7,ClientDataSet7,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet7.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=2 then + begin + if YFOtherFeeData(Trim(ClientDataSet7.fieldbyname('JFID').AsString), + Trim(ClientDataSet7.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet7.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet7.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet7.Delete; + end else + begin + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('SSel').Value:=False; + ClientDataSet7.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet7.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet7.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSTJMDData(FJSType:String):Boolean; +var + maxno,FJSID:string; +begin + Result:=False; + //д + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and JSType='''+Trim(FJSType)+''''); + Open; + end; + FJSID:=Trim(ADOQueryTemp.fieldbyname('JSID').AsString); + if ComboBox1.ItemIndex=1 then + begin + if Trim(FJSID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FJSID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FJSID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('KKID').Value:=Trim(ClientDataSet4.fieldbyname('KKID').AsString); + FieldByName('JSType').Value:=Trim(FJSType); + if FJSType='' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + end else + if FJSType='ι' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZFactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZFactoryName').Value; + end; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmCWMDOtherFeeList.UPdateDataKK():Boolean; +var + maxno,maxjsno,maxkkno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + // sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('CWStatusNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + JSTJMDData('ι'); + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + JSTJMDData(''); + end; + Next; + end; + end; + //д + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if ClientDataSet4.IsEmpty then Exit; + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryNo').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryName').AsString), + 'ι')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=1,CWHXDate=getdate(),CWHXPerson='''+Trim(DName)+''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + end else + begin + //ɾӦ + with ClientDataSet4 do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType=''ι'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=0,CWHXDate=Null,CWHXPerson='''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and CRTime='''+Trim(ClientDataSet3.fieldbyname('MDDate').AsString)+''''); + SQL.Add(' and Price='+Trim(ClientDataSet3.fieldbyname('JSPrice').AsString)); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + //FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + FieldByName('PSName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString); + FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MDID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '); + sql.Add(' PS=(select isnull(Sum(JSPS),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' ,Qty=(select isnull(Sum(JSQty),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + + Result:=True; +end; +function TfrmCWMDOtherFeeList.YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(KFType,'''')='''+Trim(KFType)+''''); + end; + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if cxPageControl1.ActivePageIndex=0 then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if GetLSNo(ADOQueryCmd,YFID,'KK','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡڲֿ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + if cxPageControl1.ActivePageIndex=0 then + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value + else + FieldByName('CRTime').Value:=ClientDataSet4.fieldbyname('KKDate').Value; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + end else + begin + FieldByName('Qty').Value:=1; + if Trim(KFType)='ι' then + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value*-1 + else + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value*-1; + end; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + end else + begin + FieldByName('YFName').Value:='۷'; + FieldByName('KFType').Value:=Trim(KFType); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYorder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where KKID='''+Trim(YFTYpeId)+''''); + sql.Add(' and FactoryNo='''+Trim(CWFactoryNo)+''''); + ExecSQL; + end; + end; + + Result:=True; +end; +function TfrmCWMDOtherFeeList.YFOtherFeeData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'OF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet7.fieldbyname('MainId').AsString); + FieldByName('JFID').Value:=Trim(ClientDataSet7.fieldbyname('JFID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet7.fieldbyname('JFDate').Value; + FieldByName('Qty').Value:=ClientDataSet7.fieldbyname('JFQty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet7.fieldbyname('JFPrice').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet7.fieldbyname('JFQtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet7.fieldbyname('JFName').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where JFID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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 ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update '); + ExecSQL; + end;} + Result:=True; +end; +function TfrmCWMDOtherFeeList.DelYFHZData(CRID:String):Boolean; +begin + Result:=False; + 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='+Trim(CRID)); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where not exists(select * from JYOrder_Main_MD_JS A where '); + sql.Add(' A.YFID=YF_Money_CR.YFID and YF_Money_CR.YFType=''Զ'' )'); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + Result:=True; +end; +function TfrmCWMDOtherFeeList.DelYFData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MDId='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + sql.Add(' and YFType=''Զ'' '); + 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='+Trim(CRID)); + ExecSQL; + end; + Result:=True; +end; + +procedure TfrmCWMDOtherFeeList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmCWMDOtherFeeList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˹'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCWMDOtherFeeList.v3Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet3.fieldbyname('JSPrice').AsString); + FQty:=Trim(ClientDataSet3.fieldbyname('JSQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'JSMoney' then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmCWMDOtherFeeList.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmCWMDOtherFeeList.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmCWMDOtherFeeList.N3Click(Sender: TObject); +begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('Qty').Value; + FieldByName('JSPrice').Value:=FieldByName('Price').Value; + FieldByName('JSMoney').Value:=FieldByName('Money').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmCWMDOtherFeeList.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='Э' then + frmTJCKRKOK.cxTabControl1.TabIndex:=2 + else + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='' then + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +procedure TfrmCWMDOtherFeeList.orderNoChange(Sender: TObject); +var + fsj:string; +begin + if cxPageControl1.ActivePageIndex<>2 then + begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + end else + begin + if ADOQuery2.Active=False then Exit; + if Trim(orderNo.Text)<>'' then + begin + fsj:=' orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and MDFactoryName like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + end else + begin + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=' MDFactoryName like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + end; + SDofilter(ADOQuery2,fsj); + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + end; + +end; + +procedure TfrmCWMDOtherFeeList.MenuItem1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet7,True); +end; + +procedure TfrmCWMDOtherFeeList.MenuItem2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet7,False); +end; + +procedure TfrmCWMDOtherFeeList.MenuItem3Click(Sender: TObject); +begin + ClientDataSet7.DisableControls; + with ClientDataSet7 do + begin + while ClientDataSet7.Locate('SSel',True,[])=True do + begin + Edit; + //FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('JFQty').Value; + FieldByName('JSPrice').Value:=FieldByName('JFPrice').Value; + FieldByName('JSMoney').Value:=FieldByName('JFMoney').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet7.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm new file mode 100644 index 0000000..b7c9e2c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm @@ -0,0 +1,645 @@ +object frmClothContractInPutHZ: TfrmClothContractInPutHZ + Left = 198 + Top = 90 + Width = 831 + Height = 622 + Caption = #32433#32447#21152#24037#21512#21516#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 = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 815 + Height = 220 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 290 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 511 + Top = 222 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 552 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 290 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 552 + Top = 42 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 68 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 552 + Top = 68 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 118 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 290 + Top = 80 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 154 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 190 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Tag = 77 + Left = 575 + Top = 218 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 614 + Top = 10 + Width = 162 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 353 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 86 + Top = 43 + Width = 179 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 614 + Top = 38 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 614 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 162 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 114 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 691 + end + object ConTK4: TcxButtonEdit + Left = 353 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 177 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 150 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 563 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 186 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 669 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 249 + Width = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 278 + Width = 815 + Height = 305 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 117 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 103 + end + object v1Price: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 456 + Top = 5 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas new file mode 100644 index 0000000..9e85ac8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas @@ -0,0 +1,878 @@ +unit U_ClothContractInPutHZ; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutHZ = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,CPFlag,CPFlagName,FactoryFlag,FConType:String; + { Public declarations } + end; + +var + frmClothContractInPutHZ: TfrmClothContractInPutHZ; + +implementation +uses + U_DataLink,U_RTZDYHelp,U_RTFun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractInPutHZ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutHZ.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from ContractHZ_Main where ConType='''+Trim(FConType)+'''order by FillTime desc '); + Open; + end; + ConTK1.Text:=Trim(ADOTemp.fieldbyname('ConTK1').AsString); + ConTK2.Text:=Trim(ADOTemp.fieldbyname('ConTK2').AsString); + ConTK3.Text:=Trim(ADOTemp.fieldbyname('ConTK3').AsString); + ConTK4.Text:=Trim(ADOTemp.fieldbyname('ConTK4').AsString); + ConTK5.Text:=Trim(ADOTemp.fieldbyname('ConTK5').AsString); + ConTK6.Text:=Trim(ADOTemp.fieldbyname('ConTK6').AsString); + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + + QDPalce.Text:=''; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutHZ.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutHZ.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutHZ.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +function TfrmClothContractInPutHZ.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'HM','ContractHZ_Main',2,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 ContractHZ_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString); + FieldByName('ConType').Value:=Trim(FConType); + Post; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'HS','ContractHZ_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractHZ_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutHZ.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryNoName',null,[]) then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutHZ.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(CPFlag); + flagname:=Trim(CPFlagName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutHZ.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:=Trim(FactoryFlag); + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm new file mode 100644 index 0000000..010005d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm @@ -0,0 +1,568 @@ +object frmClothContractInPutJY: TfrmClothContractInPutJY + Left = 155 + Top = 3 + Width = 870 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#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 = 854 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 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 = 854 + Height = 249 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 401 + Top = 14 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 397 + Top = 73 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#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 = 225 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 73 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#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 = 224 + Top = 43 + Width = 65 + Height = 12 + Caption = #28155#21152#21407#22240#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 104 + Width = 65 + Height = 12 + Caption = #21512#21516#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 579 + Top = 14 + Width = 65 + Height = 12 + Caption = #24037#24207#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 24 + Top = 43 + Width = 65 + Height = 12 + Caption = #21512#21516#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 87 + Top = 11 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + OnExit = ConNoExit + OnKeyPress = ConNoKeyPress + end + object DLYDate: TDateTimePicker + Left = 462 + Top = 10 + Width = 101 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object QDTime: TDateTimePicker + Left = 287 + Top = 10 + Width = 99 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object JYNote: TRichEdit + Left = 86 + Top = 101 + Width = 675 + Height = 96 + Lines.Strings = ( + '') + TabOrder = 3 + end + object FactoryNoName: TBtnEditA + Left = 462 + Top = 69 + Width = 298 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 4 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 87 + Top = 69 + Width = 298 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 5 + OnBtnClick = CompanyNameBtnClick + end + object JYType: TBtnEditA + Left = 285 + Top = 39 + Width = 475 + Height = 20 + TabOrder = 6 + OnBtnClick = JYTypeBtnClick + end + object ConType: TComboBox + Left = 639 + Top = 10 + Width = 121 + Height = 20 + Style = csDropDownList + DropDownCount = 20 + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516) + end + object ConTypeOther: TBtnEditA + Left = 87 + Top = 39 + Width = 122 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ConTypeOtherBtnClick + end + object Panel1: TPanel + Left = 86 + Top = 200 + Width = 674 + Height = 25 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 9 + object Label30: TLabel + Left = 70 + Top = 7 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 147 + Top = 7 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 5 + Top = 7 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 95 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 221 + Top = 3 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 172 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 2 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 278 + Width = 854 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 307 + Width = 854 + Height = 351 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + Column = v1Column5 + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + Column = v1Column7 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column4: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325'(GSM)' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #21305'/'#21253#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + #21305) + HeaderAlignmentHorz = taCenter + Width = 35 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 598 + Top = 3 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 519 + Top = 1 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 434 + Top = 394 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 394 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 1 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas new file mode 100644 index 0000000..bbf23a0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas @@ -0,0 +1,936 @@ +unit U_ClothContractInPutJY; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutJY = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DLYDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + v1Column2: TcxGridDBColumn; + Label13: TLabel; + JYNote: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + JYType: TBtnEditA; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label15: TLabel; + ConTypeOther: TBtnEditA; + Panel1: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column4: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure JYTypeBtnClick(Sender: TObject); + procedure ConTypeOtherBtnClick(Sender: TObject); + procedure ConNoExit(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmClothContractInPutJY: TfrmClothContractInPutJY; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmClothContractInPutJY.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutJY.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + ConTypeOther.Text:=Trim(ADOQuery1.FieldByName('ConTypeOther').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + DLYDate.DateTime:=QDTime.DateTime; + QDTime.Checked:=True; + DLYDate.Checked:=False; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutJY.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); +end; + +procedure TfrmClothContractInPutJY.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutJY.FormShow(Sender: TObject); +var + FSJ:String; +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + + + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' '; + SInitComBoxBySql(ADOTemp,ConType,False,Fsj); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + FieldByName('ConPrice').Value:=Null; + FieldByName('Price').Value:=Null; + Post; + Next; + end; + end; + end; + if PCopyInt=1 then + begin + PState:=0; + end; + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ConMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.RecordCount>0 then + begin + ConNo.ReadOnly:=True; + end; + end; +end; + +function TfrmClothContractInPutJY.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,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 Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutJY.TBSaveClick(Sender: TObject); +begin + DLYDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪգ','ʾ',0); + Exit; + end; + if Trim(JYType.Text)='' then + begin + Application.MessageBox('ԭΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutJY.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; + if Order_Sub.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +procedure TfrmClothContractInPutJY.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + MainType:=Trim(ConType.Text); + fnote:=True; + V1Note.Caption:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutJY.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutJY.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + FactoryNoName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKId').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmClothContractInPutJY.JYTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConJYType'; + flagname:='ͬԭ'; + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + if ShowModal=1 then + begin + JYType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConNoExit(Sender: TObject); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutJY.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where RTrim(MPRTCode)+RTrim(MPRTGY)='''+Trim(mvalue)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + {FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString);} + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm new file mode 100644 index 0000000..703fdb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm @@ -0,0 +1,733 @@ +object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX + Left = 34 + Top = 24 + Width = 1055 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#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 = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 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 = 1039 + Height = 428 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 304 + Top = 52 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 304 + Top = 90 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#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 = 24 + Top = 52 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 90 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#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 = 24 + Top = 129 + Width = 65 + Height = 12 + Caption = #32467#31639#35828#26126#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 = 24 + Top = 167 + Width = 65 + Height = 12 + Caption = #20135#21697#36136#37327#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 = 24 + Top = 205 + Width = 65 + Height = 12 + Caption = #25968#37327#35828#26126#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 = 611 + Top = 12 + Width = 52 + Height = 12 + Caption = #20132#26399#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label7DblClick + end + object Label8: TLabel + Left = 24 + Top = 243 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 610 + Top = 119 + Width = 117 + Height = 12 + Caption = #19981#21487#25239#21147#21450#39118#38505#25215#25285 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label9DblClick + end + object Label10: TLabel + Left = 610 + Top = 257 + Width = 52 + Height = 12 + Caption = #36829#32422#36131#20219 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label10DblClick + end + object Label13: TLabel + Left = 24 + Top = 273 + 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 + OnDblClick = Label13DblClick + end + object Label14: TLabel + Left = 304 + Top = 14 + Width = 65 + Height = 12 + Caption = #24037#24207#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 463 + Top = 14 + Width = 52 + Height = 12 + Caption = #21512#21516#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 209 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + OnExit = ConNoExit + OnKeyPress = ConNoKeyPress + end + object DLYDate: TDateTimePicker + Left = 365 + Top = 48 + Width = 226 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object QDTime: TDateTimePicker + Left = 86 + Top = 47 + Width = 211 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object JiaoHuoNote: TRichEdit + Left = 611 + Top = 30 + Width = 412 + Height = 83 + TabOrder = 3 + end + object NoKangLiNote: TRichEdit + Left = 610 + Top = 135 + Width = 412 + Height = 110 + TabOrder = 4 + end + object WeiYueNote: TRichEdit + Left = 610 + Top = 273 + Width = 412 + Height = 120 + TabOrder = 5 + end + object Note: TRichEdit + Left = 86 + Top = 273 + Width = 504 + Height = 96 + Lines.Strings = ( + '') + TabOrder = 6 + end + object FactoryNoName: TBtnEditA + Left = 365 + Top = 86 + Width = 225 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 7 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 86 + Top = 86 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 8 + OnBtnClick = CompanyNameBtnClick + end + object JieSuanNote: TBtnEditA + Left = 86 + Top = 126 + Width = 504 + Height = 20 + TabOrder = 9 + OnBtnClick = JieSuanNoteBtnClick + end + object PRTZhiLiang: TBtnEditA + Left = 86 + Top = 164 + Width = 504 + Height = 20 + TabOrder = 10 + OnBtnClick = PRTZhiLiangBtnClick + end + object QtyNote: TBtnEditA + Left = 86 + Top = 202 + Width = 504 + Height = 20 + TabOrder = 11 + OnBtnClick = QtyNoteBtnClick + end + object PayMent: TBtnEditA + Left = 86 + Top = 240 + Width = 504 + Height = 20 + TabOrder = 12 + OnBtnClick = PayMentBtnClick + end + object ConType: TComboBox + Left = 364 + Top = 10 + Width = 98 + Height = 20 + Style = csDropDownList + DropDownCount = 20 + ItemHeight = 12 + TabOrder = 13 + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516) + end + object ConTypeOther: TBtnEditA + Left = 516 + Top = 10 + Width = 76 + Height = 20 + ReadOnly = True + TabOrder = 14 + OnBtnClick = ConTypeOtherBtnClick + end + object Panel1: TPanel + Left = 86 + Top = 368 + Width = 503 + Height = 25 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 15 + object Label30: TLabel + Left = 70 + Top = 7 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 147 + Top = 7 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 5 + Top = 7 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 95 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 221 + Top = 3 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 172 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 2 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 457 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 486 + Width = 1039 + Height = 172 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + Column = v1Price + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + Column = v1Column5 + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + Column = v1Column7 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 119 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 98 + end + object v1Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133#35828#26126 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325'(GSM)' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325#35828#26126 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #21305'/'#21253#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + #21305 + #32568 + #22871) + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column9: TcxGridDBColumn + Caption = #20854#20182#35201#27714 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 488 + Top = 560 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas new file mode 100644 index 0000000..8332377 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas @@ -0,0 +1,1249 @@ +unit U_ClothContractInPutSXMX; + +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, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmClothContractInPutSXMX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DLYDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + Label12: TLabel; + v1Column2: TcxGridDBColumn; + Label6: TLabel; + Label7: TLabel; + JiaoHuoNote: TRichEdit; + Label8: TLabel; + Label9: TLabel; + NoKangLiNote: TRichEdit; + Label10: TLabel; + WeiYueNote: TRichEdit; + Label13: TLabel; + Note: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + JieSuanNote: TBtnEditA; + PRTZhiLiang: TBtnEditA; + QtyNote: TBtnEditA; + PayMent: TBtnEditA; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label15: TLabel; + ConTypeOther: TBtnEditA; + Panel1: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JieSuanNotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTZhiLiangPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure QtyNotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure JieSuanNoteBtnClick(Sender: TObject); + procedure PRTZhiLiangBtnClick(Sender: TObject); + procedure QtyNoteBtnClick(Sender: TObject); + procedure PayMentBtnClick(Sender: TObject); + procedure Label7DblClick(Sender: TObject); + procedure Label9DblClick(Sender: TObject); + procedure Label10DblClick(Sender: TObject); + procedure Label13DblClick(Sender: TObject); + procedure ConTypeOtherBtnClick(Sender: TObject); + procedure ConNoExit(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt,EditInt:Integer; + FMainId,FConNo,FConType,canshu1:String; + + { Public declarations } + end; + +var + frmClothContractInPutSXMX: TfrmClothContractInPutSXMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ɹӹͬ¼11',Tv1,'ɹӹͬ'); +end; + +procedure TfrmClothContractInPutSXMX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + ConTypeOther.Text:=Trim(ADOQuery1.FieldByName('ConTypeOther').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + DLYDate.DateTime:=QDTime.DateTime; + QDTime.Checked:=True; + DLYDate.Checked:=False; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); +end; + +procedure TfrmClothContractInPutSXMX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject); +var + FSJ:String; +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + ReadCxGrid('ɹӹͬ¼11',Tv1,'ɹӹͬ'); + + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' '; + SInitComBoxBySql(ADOTemp,ConType,False,Fsj); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + FieldByName('ConPrice').Value:=Null; + FieldByName('Price').Value:=Null; + Post; + Next; + end; + end; + end; + if PCopyInt=1 then + begin + PState:=0; + end; + if Trim(canshu1)<>'Ȩ' then + begin + if PState=1 then + begin + + v1Price.Options.Editing:=False; + end; + if EditInt=9 then + begin + + v1Price.Options.Editing:=True; + end; + end; + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ConMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.RecordCount>0 then + begin + ConNo.ReadOnly:=True; + end; + end; +end; + +function TfrmClothContractInPutSXMX.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,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 Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + {with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; } + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject); +begin + DLYDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + {if Order_Sub.Locate('ConQty',null,[]) then + begin + Application.MessageBox('ͬΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ConUnit',null,[]) then + begin + Application.MessageBox('ͬλΪ!','ʾ',0); + Exit; + end; } + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if PState=0 then + begin + if Application.MessageBox('ȷҪݱ޸!','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; + if Order_Sub.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString);//+ + // Trim(ADOTemp.fieldbyname('MPRTGY').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('C_Note').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + + Post; + end; + end; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + MainType:=Trim(ConType.Text); + fnote:=True; + V1Note.Caption:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JieSuanNotePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JieSuanNote'; + flagname:='˵'; + if ShowModal=1 then + begin + JieSuanNote.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.QtyNotePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='QtyNote'; + flagname:='˵'; + if ShowModal=1 then + begin + QtyNote.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + FactoryNoName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKId').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JieSuanNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JieSuanNote'; + flagname:='˵'; + if ShowModal=1 then + begin + JieSuanNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.QtyNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='QtyNote'; + flagname:='˵'; + if ShowModal=1 then + begin + QtyNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PayMentBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMentZW'; + flagname:='ʽ'; + if ShowModal=1 then + begin + PayMent.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label7DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JiaoHuoNote'; + flagname:='˵'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(JiaoHuoNote.Text)='' then + JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + JiaoHuoNote.Text:=JiaoHuoNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label9DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='NoKangLiNote'; + flagname:='ɿճе'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(NoKangLiNote.Text)='' then + NoKangLiNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + NoKangLiNote.Text:=NoKangLiNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label10DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WeiYueNote'; + flagname:='ΥԼ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(WeiYueNote.Text)='' then + WeiYueNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + WeiYueNote.Text:=WeiYueNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label13DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='ConMainNote'; + flagname:='ͬע'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(Note.Text)='' then + Note.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + Note.Text:=Note.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoExit(Sender: TObject); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where RTrim(MPRTCode)+RTrim(MPRTGY)='''+Trim(mvalue)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + {FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString);} + // FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + //FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('C_Note').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm new file mode 100644 index 0000000..ef8f748 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm @@ -0,0 +1,748 @@ +object frmClothContractListHZ: TfrmClothContractListHZ + Left = 25 + Top = 102 + Width = 1341 + Height = 536 + Caption = #37319#36141#21512#21516 + 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 = 1325 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + 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 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 ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton7: TToolButton + Left = 441 + Top = 0 + Caption = #32039#24613#21512#21516#21407#22240 + ImageIndex = 22 + OnClick = ToolButton7Click + end + object TBSSOk: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 16 + OnClick = TBSSOkClick + end + object TBSSNO: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 17 + OnClick = TBSSNOClick + end + object TBChkOk: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 50 + Wrap = True + OnClick = TBChkOkClick + end + object TBExport: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object TBChkNO: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + OnClick = TBChkNOClick + end + object ToolButton4: TToolButton + Left = 150 + Top = 30 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 18 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 30 + AutoSize = True + Caption = #19978#20256#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 300 + Top = 30 + AutoSize = True + Caption = #19979#36733 + ImageIndex = 19 + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 363 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 426 + Top = 35 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')' + #20215#26684#30830#35748#20070) + end + object ToolButton8: TToolButton + Left = 530 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 593 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 680 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 439 + 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 Label4: TLabel + Left = 595 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 740 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 492 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 634 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 794 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 137 + Width = 1325 + Height = 360 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column13: TcxGridDBColumn + Caption = #25991#20214#19978#20256 + DataBinding.FieldName = 'FileFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #32039#24613#21512#21516#21407#22240 + DataBinding.FieldName = 'JYType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #21512#21516#35828#26126 + DataBinding.FieldName = 'JYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #26368#21518#20462#25913#20154 + DataBinding.FieldName = 'Editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column17: TcxGridDBColumn + Caption = #26368#21518#20462#25913#26102#38388 + DataBinding.FieldName = 'EditTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 126 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel16: TPanel + Left = 531 + Top = 229 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#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 = 3 + Visible = False + end + object Panel2: TPanel + Left = 530 + Top = 195 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19979#36733#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clPurple + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 116 + Width = 1325 + Height = 21 + ActivePage = cxTabSheet1 + Align = alTop + Style = 8 + TabOrder = 5 + OnChange = cxPageControl1Change + ClientRectBottom = 23 + ClientRectRight = 1325 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#21512#21516 + ImageIndex = 0 + end + object cxTabSheet2: TcxTabSheet + Caption = #32039#24613#21512#21516 + ImageIndex = 1 + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 0 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + end + object cxTabSheet3: TcxTabSheet + Caption = #20840#37096 + ImageIndex = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas new file mode 100644 index 0000000..01aad48 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas @@ -0,0 +1,884 @@ +unit U_ClothContractListHZ; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmClothContractListHZ = 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_Code: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column13: TcxGridDBColumn; + Panel16: TPanel; + Panel2: TPanel; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabControl1: TcxTabControl; + TBSSOk: TToolButton; + TBSSNO: TToolButton; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure TBSSOkClick(Sender: TObject); + procedure TBSSNOClick(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListHZ: TfrmClothContractListHZ; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmClothContractListHZ.FormDestroy(Sender: TObject); +begin + frmClothContractListHZ:=nil; +end; + +procedure TfrmClothContractListHZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListHZ.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹͬ1',Tv1,'ͬ'); + FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); +end; + +procedure TfrmClothContractListHZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice from Contract_Main A inner join Contract_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 Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add(' and isnull(A.JYType,'''')='''' '); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(A.JYType,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end; + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListHZ.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹͬ1',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); + if Trim(canshu1)='Ȩ' then + begin + TBSSOk.Visible:=False; + TBSSNO.Visible:=False; + TBChkNO.Visible:=True; + TBChkOk.Visible:=True; + ToolButton7.Visible:=True; + end else + begin + TBChkNO.Visible:=False; + TBChkOk.Visible:=False; + TBSSOk.Visible:=True; + TBSSNO.Visible:=True; + ToolButton7.Visible:=False; + end; +end; + +procedure TfrmClothContractListHZ.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 TfrmClothContractListHZ.TBEditClick(Sender: TObject); +var + FInt:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if cxPageControl1.ActivePageIndex<>1 then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end else + begin + if cxTabControl1.TabIndex<>0 then Exit; + FInt:=9; + end; + end; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + EditInt:=FInt; + frmClothContractInPutSXMX.canshu1:=Trim(self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty 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 JYOrder_Main_MD where COnMainId='''+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 + Order_Main.Delete; + end; +end; + +function TfrmClothContractListHZ.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListHZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.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 TfrmClothContractListHZ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListHZ.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_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 TfrmClothContractListHZ.cxPageControl1Change(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=1 then + begin + cxPageControl1.Height:=46; + if Trim(canshu1)='Ȩ' then + begin + cxTabControl1.TabIndex:=1; + end; + end else + begin + cxPageControl1.Height:=23; + end; + InitGrid(); +end; + +procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmClothContractListHZ.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + canshu1:=Trim(DParameters1); + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmClothContractListHZ.ToolButton4Click(Sender: TObject); +var + i,j: Integer; + PatFile,HZStr: String; + FTPPath,FConNo,MaxNo:string; +begin + {if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + 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 else + begin + Exit; + end; + Panel16.Visible:=True; + Panel16.Refresh; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select isnull(Count(*),0) MM from XD_File where '); + SQL.Add(' filetype=''NXHT'''); + Open; + j:=fieldbyname('MM').AsInteger; + end; + try + ADOQueryCmd.Connection.BeginTrans; + for i := 0 to lstPat.Count - 1 do + begin + PatFile := ExtractFileName(lstPat[i]); + HZStr:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ; + if IdFTP1.Connected then + begin + try + {if not DirectoryExists('D:\ͼƬ\'+Trim(gDef1)) then + ForceDirectories('D:\ͼƬ\'+Trim(gDef1)); } + // IdFTP1.Put(lstPat[i], Trim('\SC')+'\'+Trim(PatFile)); + if GetLSNo(ADOQueryCmd,MaxNo,'NH','XD_File',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡļʧܣ','ʾ',0); + Exit; + end; + IdFTP1.Put(lstPat[i], Trim('\NH')+'\'+Trim(MaxNo)+'.'+Trim(HZStr)); + 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(Order_Main.fieldbyname('MainId').AsString); + FieldByName('CYNO').Value:=Trim(Order_Main.fieldbyname('ConNo').AsString); + FieldByName('filename').Value:=Trim(PatFile); + FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp); + fieldbyname('FileType').value:=Trim('NXHT'); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('HZStr').Value:='.'+Trim(HZStr); + Post; + end; + except + //ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=1 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if IdFTP1.Connected then IdFTP1.Quit; + Panel16.Visible:=False; + Application.MessageBox('ϴɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ϴʧܣ','ʾ',0); + end; +end; +procedure TfrmClothContractListHZ.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 TfrmClothContractListHZ.ToolButton5Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.fieldbyname('FileFlag').AsBoolean=False then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + { } + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFName:=Trim(ADOQueryTemp.fieldbyname('XFID').AsString)+Trim(ADOQueryTemp.fieldbyname('HZStr').AsString); + if FileExists(FPath+FFName)=false then + begin + IdFTP1.Get('NH\'+FFName,FPath+FFName); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + if FileExists(FPath+FFName) then + begin + ShellExecute(Handle, 'open',PChar(FPath+FFName),'', '', SW_SHOWNORMAL); + end; + {FFName:=Trim(CDS_SC.fieldbyname('FileName').AsString); + + FFName:=FPath+FFName; + if FileExists(FFName)=false then + begin + IdFTP1.Get('SC\'+Trim(CDS_SC.fieldbyname('FileName').AsString), + FPath+Trim(CDS_SC.fieldbyname('FileName').AsString) + ); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); } + +end; + +procedure TfrmClothContractListHZ.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=0 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' delete XD_File where CYID='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + +end; + +procedure TfrmClothContractListHZ.ToolButton7Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConJYType'; + flagname:='ͬԭ'; + if Trim(canshu1)<>'Ȩ' then + begin + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListHZ.TBSSOkClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',SSPerson='''+Trim(DName)+''''); + sql.Add(',SSTime=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBSSNOClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͬͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',SSPerson='''' '); + sql.Add(',SSTime=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBChkOkClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBChkNOClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',Chker='''' '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm new file mode 100644 index 0000000..fcf3b4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm @@ -0,0 +1,509 @@ +object frmClothContractListHZCX: TfrmClothContractListHZCX + Left = 88 + Top = 120 + Width = 1242 + Height = 536 + Caption = #37319#36141#21512#21516 + 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 = 1226 + 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 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 563 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1226 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 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 = 425 + 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 Label4: TLabel + Left = 581 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 726 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#31867#22411 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 323 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 478 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 620 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 780 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1226 + Height = 411 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + 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 = 1096 + Top = 8 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas new file mode 100644 index 0000000..1aafdc5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas @@ -0,0 +1,399 @@ +unit U_ClothContractListHZCX; + +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 + TfrmClothContractListHZCX = 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; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + Label5: TLabel; + Label4: TLabel; + Label14: TLabel; + C_Code: TEdit; + FactoryNoName: TEdit; + ConType: TComboBox; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListHZCX: TfrmClothContractListHZCX; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}; + +{$R *.dfm} + +procedure TfrmClothContractListHZCX.FormDestroy(Sender: TObject); +begin + frmClothContractListHZCX:=nil; +end; + +procedure TfrmClothContractListHZCX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListHZCX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ɹͬ',Tv1,'ͬ'); +end; + +procedure TfrmClothContractListHZCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_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))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListHZCX.InitForm(); +var + FSJ:string; +begin + ReadCxGrid('ɹͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmClothContractListHZCX.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 TfrmClothContractListHZCX.TBEditClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=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 + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractListHZCX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListHZCX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListHZCX.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').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\Ӧĺͬ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListHZCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZCX.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.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 TfrmClothContractListHZCX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListHZCX.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_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 TfrmClothContractListHZCX.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmClothContractListHZCX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm new file mode 100644 index 0000000..f320fd7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm @@ -0,0 +1,617 @@ +object frmClothContractListJY: TfrmClothContractListJY + Left = 76 + Top = 121 + Width = 1250 + Height = 536 + Caption = #32039#24613#21512#21516 + 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 = 1234 + AutoSize = True + 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_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 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 ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 18 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 567 + Top = 0 + Caption = #19978#20256#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 650 + Top = 0 + AutoSize = True + Caption = #19979#36733 + ImageIndex = 19 + Visible = False + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 713 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 776 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #37319#36141#21152#24037#21512#21516 + Visible = False + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')' + #37319#36141#21152#24037#21512#21516'('#33457#36793')' + #20215#26684#30830#35748#20070) + end + object ToolButton3: TToolButton + Left = 880 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 967 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1234 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 439 + 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 Label4: TLabel + Left = 595 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 740 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 492 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 634 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 794 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1234 + Height = 411 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #28155#21152#21407#22240 + DataBinding.FieldName = 'JYType' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #21512#21516#35828#26126 + DataBinding.FieldName = 'JYNote' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel16: TPanel + Left = 531 + Top = 229 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#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 = 3 + Visible = False + end + object Panel2: TPanel + Left = 530 + Top = 195 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19979#36733#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clPurple + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 986 + Top = 38 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 912 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 8 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 532 + Top = 149 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 598 + Top = 154 + end + object SaveDialog1: TSaveDialog + Left = 566 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas new file mode 100644 index 0000000..974d14e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas @@ -0,0 +1,694 @@ +unit U_ClothContractListJY; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmClothContractListJY = 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_Code: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + Panel16: TPanel; + Panel2: TPanel; + ToolButton6: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListJY: TfrmClothContractListJY; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutJY,U_ModuleNote; + +{$R *.dfm} + +procedure TfrmClothContractListJY.FormDestroy(Sender: TObject); +begin + frmClothContractListJY:=nil; +end; + +procedure TfrmClothContractListJY.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListJY.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ͬ',Tv1,'ͬ'); + {FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); } +end; + +procedure TfrmClothContractListJY.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* from Contract_Main A inner join Contract_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 isnull(A.JYType,'''')<>'''' '); + sql.Add(' and A.Filler='''+Trim(DName)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListJY.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmClothContractListJY.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 TfrmClothContractListJY.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=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 + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty 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 JYOrder_Main_MD where COnMainId='''+Trim(Order_Main.fieldbyname('MainId').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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + 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 + Order_Main.Delete; + end; +end; + +function TfrmClothContractListJY.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListJY.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListJY.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListJY.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListJY.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.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 TfrmClothContractListJY.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListJY.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_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 TfrmClothContractListJY.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmClothContractListJY.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmClothContractListJY.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + canshu1:=Trim(DParameters1); +end; + +procedure TfrmClothContractListJY.ToolButton4Click(Sender: TObject); +var + i,j: Integer; + PatFile,HZStr: String; + FTPPath,FConNo,MaxNo:string; +begin + {if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + 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 else + begin + Exit; + end; + Panel16.Visible:=True; + Panel16.Refresh; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select isnull(Count(*),0) MM from XD_File where '); + SQL.Add(' filetype=''NXHT'''); + Open; + j:=fieldbyname('MM').AsInteger; + end; + try + ADOQueryCmd.Connection.BeginTrans; + for i := 0 to lstPat.Count - 1 do + begin + PatFile := ExtractFileName(lstPat[i]); + HZStr:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ; + if IdFTP1.Connected then + begin + try + {if not DirectoryExists('D:\ͼƬ\'+Trim(gDef1)) then + ForceDirectories('D:\ͼƬ\'+Trim(gDef1)); } + // IdFTP1.Put(lstPat[i], Trim('\SC')+'\'+Trim(PatFile)); + if GetLSNo(ADOQueryCmd,MaxNo,'NH','XD_File',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡļʧܣ','ʾ',0); + Exit; + end; + IdFTP1.Put(lstPat[i], Trim('\NH')+'\'+Trim(MaxNo)+'.'+Trim(HZStr)); + 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(Order_Main.fieldbyname('MainId').AsString); + FieldByName('CYNO').Value:=Trim(Order_Main.fieldbyname('ConNo').AsString); + FieldByName('filename').Value:=Trim(PatFile); + FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp); + fieldbyname('FileType').value:=Trim('NXHT'); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('HZStr').Value:='.'+Trim(HZStr); + Post; + end; + except + //ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=1 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if IdFTP1.Connected then IdFTP1.Quit; + Panel16.Visible:=False; + Application.MessageBox('ϴɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ϴʧܣ','ʾ',0); + end; +end; +procedure TfrmClothContractListJY.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 TfrmClothContractListJY.ToolButton5Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.fieldbyname('FileFlag').AsBoolean=False then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + { } + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFName:=Trim(ADOQueryTemp.fieldbyname('XFID').AsString)+Trim(ADOQueryTemp.fieldbyname('HZStr').AsString); + if FileExists(FPath+FFName)=false then + begin + IdFTP1.Get('NH\'+FFName,FPath+FFName); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + if FileExists(FPath+FFName) then + begin + ShellExecute(Handle, 'open',PChar(FPath+FFName),'', '', SW_SHOWNORMAL); + end; + {FFName:=Trim(CDS_SC.fieldbyname('FileName').AsString); + + FFName:=FPath+FFName; + if FileExists(FFName)=false then + begin + IdFTP1.Get('SC\'+Trim(CDS_SC.fieldbyname('FileName').AsString), + FPath+Trim(CDS_SC.fieldbyname('FileName').AsString) + ); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); } + +end; + +procedure TfrmClothContractListJY.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=0 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' delete XD_File where CYID='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm new file mode 100644 index 0000000..ea0f152 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm @@ -0,0 +1,391 @@ +object frmConDJFenPei: TfrmConDJFenPei + Left = 225 + Top = 103 + Width = 1028 + Height = 618 + Caption = #21512#21516#23450#37329#20998#37197 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1012 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + 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 = 31 + Width = 1012 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + Visible = False + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 720 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 858 + Top = 13 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + Visible = False + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 757 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 906 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 70 + Width = 1012 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #21512#21516#37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #21512#21516#23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Width = 74 + end + object v1Column1: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'PRTGY' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 62 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #36741#21161#24037#33402 + DataBinding.FieldName = 'PRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 50 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 44 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 349 + Top = 185 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 381 + Top = 185 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 408 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 251 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas new file mode 100644 index 0000000..4730a74 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas @@ -0,0 +1,168 @@ +unit U_ConDJFenPei; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmConDJFenPei = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label4: TLabel; + OrderNo: TEdit; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1ConNo: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + ConNo,FCIID:String; + + end; + +var + frmConDJFenPei: TfrmConDJFenPei; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + + + +procedure TfrmConDJFenPei.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId in('); + sql.Add(' select PIMainId from JYOrder_CI where CIID='''+Trim(FCIID)+''')'); + SQL.Add(' and isnull(B.WFPDJMoney,0)<>0 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmConDJFenPei.FormDestroy(Sender: TObject); +begin + frmConDJFenPei:=nil; +end; + +procedure TfrmConDJFenPei.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmConDJFenPei.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͬ',Tv1,''); + Close; +end; +procedure TfrmConDJFenPei.FormShow(Sender: TObject); +begin + ReadCxGrid('ͬ',Tv1,''); + InitGrid(); +end; + +procedure TfrmConDJFenPei.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmConDJFenPei.ToolButton2Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmConDJFenPei.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmConDJFenPei.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm new file mode 100644 index 0000000..9ef61da --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm @@ -0,0 +1,713 @@ +object frmConInPut: TfrmConInPut + Left = 241 + Top = 32 + Width = 1111 + Height = 656 + Align = alClient + Caption = #35746#21333#21512#21516#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 = 1095 + 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_DDMD.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 = 1095 + Height = 156 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label3: TLabel + Left = 290 + Top = 12 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 27 + Top = 12 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 290 + Top = 97 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 553 + Top = 68 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#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 = 27 + Top = 97 + Width = 65 + Height = 12 + Caption = #20215#26684#26465#27454#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 = 553 + Top = 40 + Width = 65 + Height = 12 + Caption = #35013#33337#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 706 + Top = 40 + Width = 52 + Height = 12 + Caption = #30446#30340#22320#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 = 27 + Top = 40 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 27 + Top = 68 + Width = 65 + Height = 12 + Caption = #25968#37327#35828#26126#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 = 290 + Top = 68 + Width = 65 + Height = 12 + Caption = #25903#20184#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 553 + Top = 97 + Width = 65 + Height = 12 + Caption = #25910#27454#38134#34892#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 = 27 + Top = 126 + Width = 65 + Height = 12 + Caption = #38134#34892#36134#21495#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 = 553 + Top = 126 + 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 Label13: TLabel + Left = 290 + Top = 126 + Width = 62 + Height = 12 + Caption = 'PO NO'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 290 + Top = 40 + Width = 65 + Height = 12 + Caption = #20132#26399#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 352 + Top = 8 + Width = 185 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 88 + Top = 9 + Width = 185 + Height = 18 + CharCase = ecUpperCase + TabOrder = 1 + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 615 + Top = 8 + Width = 230 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 2 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRName: TBtnEditC + Tag = 2 + Left = 352 + Top = 93 + Width = 185 + Height = 20 + TabOrder = 3 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PayMent: TBtnEditC + Tag = 2 + Left = 615 + Top = 64 + Width = 230 + Height = 20 + Hint = 'PayMentHT/'#20184#27454#26041#24335 + TabOrder = 4 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PriceTK: TBtnEditC + Tag = 2 + Left = 88 + Top = 93 + Width = 185 + Height = 20 + Hint = 'PriceTKHT/'#20215#26684#26465#27454 + TabOrder = 5 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 615 + Top = 36 + Width = 84 + Height = 20 + Hint = 'FromPlace/'#35013#33337#21475#23736 + TabOrder = 6 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 752 + Top = 36 + Width = 93 + Height = 20 + Hint = 'ToPlace/'#30446#30340#22320 + TabOrder = 7 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 88 + Top = 36 + Width = 185 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 8 + end + object OrdConQtyNote: TBtnEditC + Tag = 2 + Left = 88 + Top = 64 + Width = 185 + Height = 20 + Hint = 'OrdConQtyNote/'#25968#37327#35828#26126 + TabOrder = 9 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZFPayment: TBtnEditC + Tag = 2 + Left = 352 + Top = 64 + Width = 185 + Height = 20 + Hint = 'ZFPayment/'#25903#20184#26041#24335 + TabOrder = 10 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNameHZ: TBtnEditC + Tag = 2 + Left = 615 + Top = 93 + Width = 230 + Height = 20 + Hint = 'BankNameHZ/'#25910#27454#38134#34892 + TabOrder = 11 + OnBtnUpClick = BankNameHZBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNo: TBtnEditC + Tag = 2 + Left = 88 + Top = 122 + Width = 185 + Height = 20 + Hint = 'BankNo/'#38134#34892#36134#21495 + TabOrder = 12 + OnBtnUpClick = BankNoBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TEdit + Tag = 2 + Left = 615 + Top = 123 + Width = 231 + Height = 18 + CharCase = ecUpperCase + TabOrder = 13 + end + object PONO: TEdit + Tag = 2 + Left = 352 + Top = 123 + Width = 185 + Height = 18 + CharCase = ecUpperCase + TabOrder = 14 + end + object DlyDateNote: TBtnEditC + Tag = 2 + Left = 352 + Top = 36 + Width = 185 + Height = 20 + Hint = 'DlyDateNote/'#20132#26399#22791#27880 + TabOrder = 15 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 185 + Width = 1095 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 214 + Width = 1095 + Height = 403 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = 'S/M' + DataBinding.FieldName = 'SM' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column8: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Caption = #39068#33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column11: TcxGridDBColumn + Caption = #39068#33394#21517 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'KG' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 67 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + '$' + #8364 + #65509) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #21253#32568#36153 + DataBinding.FieldName = 'BaoGangFee' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 968 + Top = 101 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 912 + Top = 101 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 520 + Top = 304 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 304 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 872 + Top = 109 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 304 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas new file mode 100644 index 0000000..302a1b6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas @@ -0,0 +1,959 @@ +unit U_ConInPut; + +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 + TfrmConInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + OrdDate: TDateTimePicker; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label10: TLabel; + ConNo: TEdit; + Label14: TLabel; + Label20: TLabel; + CustomerNoName: TBtnEditC; + SYRName: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label1: TLabel; + PayMent: TBtnEditC; + Label2: TLabel; + PriceTK: TBtnEditC; + cxGridPopupMenu1: TcxGridPopupMenu; + Label7: TLabel; + Label4: TLabel; + FromPlace: TBtnEditC; + ToPlace: TBtnEditC; + Label5: TLabel; + DlyDate: TDateTimePicker; + Label6: TLabel; + OrdConQtyNote: TBtnEditC; + Label8: TLabel; + ZFPayment: TBtnEditC; + Label9: TLabel; + BankNameHZ: TBtnEditC; + Label11: TLabel; + BankNo: TBtnEditC; + Label12: TLabel; + Note: TEdit; + Label13: TLabel; + PONO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label15: TLabel; + DlyDateNote: TBtnEditC; + v1Column12: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); + procedure PayMentBtnUpClick(Sender: TObject); + procedure PriceTKBtnUpClick(Sender: TObject); + procedure FromPlaceBtnUpClick(Sender: TObject); + procedure BankNameHZBtnUpClick(Sender: TObject); + procedure BankNoBtnUpClick(Sender: TObject); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmConInPut: TfrmConInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_ZHKHListNewCX, + U_CPSel; + +{$R *.dfm} + +procedure TfrmConInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ¼1',Tv1,'ָʾ'); +end; + +procedure TfrmConInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderCon_Sub '); + if PState=1 then + begin + sql.Add('where MainId='''+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 * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + //MoneyDate.Date:=OrdDate.Date; + //DlyDate.DateTime:=SGetServerDateTime(ADOTemp); + //ConPerson1.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //ConPerson1.Text:=Trim(DName); + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmConInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmConInPut.FormShow(Sender: TObject); +begin + readCxGrid('ͬ¼1',Tv1,'ָʾ'); + InitData(); +end; + +function TfrmConInPut.SaveData():Boolean; +var + maxno,maxsubno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JC','JYOrderCon_Main',3,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 JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrderCon_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where MainId='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SYRAddress=(select Top 1 ZdyStr4 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',SYRTel=(select Top 1 ZdyStr2 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',SYRFax=(select Top 1 ZdyStr3 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',KHAddress=(select Top 1 ZKAddress from ZH_KH_Info A where A.KHNameJC=JYOrderCon_Main.CustomerNoName)'); + sql.Add(',KHTel=(select Top 1 ZKTelNo from ZH_KH_Info A where A.KHNameJC=JYOrderCon_Main.CustomerNoName)'); + sql.Add(',BankFastNoHZ=(select Top 1 Note from KH_Zdy where ZdyName=JYOrderCon_Main.BankNameHZ and Type=''BankNameHZ'' )'); + sql.Add(',BankName=(select Top 1 ZdyStr1 from KH_Zdy where ZdyName=JYOrderCon_Main.BankNo and Type=''BankNoHT'' )'); + sql.Add(',BankFastNo=(select Top 1 ZdyStr2 from KH_Zdy where ZdyName=JYOrderCon_Main.BankNo and Type=''BankNoHT'' )'); + sql.Add(' where MainId='''+Trim(maxno)+''''); + ExecSQL; + end; + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JB','JYOrderCon_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderCon_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0; + end else + begin + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').Value; + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0; + end else + begin + fieldbyname('PRTPrice').Value:=Order_Sub.fieldbyname('PRTPrice').Value; + end; + if Trim(fieldbyname('PRTMoney').AsString)='' then + begin + fieldbyname('PRTMoney').Value:=0; + end else + begin + fieldbyname('PRTMoney').Value:=Order_Sub.fieldbyname('PRTMoney').Value; + end; + if Trim(fieldbyname('BaoGangFee').AsString)='' then + begin + fieldbyname('BaoGangFee').Value:=0; + end else + begin + fieldbyname('BaoGangFee').Value:=Order_Sub.fieldbyname('BaoGangFee').Value; + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmConInPut.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(CustomerNoName.Text)='' then + begin + Application.MessageBox('ͻΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmConInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + MainType:=Trim(DName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr1').Value:=null; + FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmConInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmConInPut.CustomerNoNameBtnUpClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmConInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmConInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with Order_Sub do + begin + Edit; + FieldByName('SLbName').Value:=labname; + FieldByName('SLbInt').Value:=LabInt; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmConInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.SYRNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + SYRName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmConInPut.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + try + frmCPSel:=TfrmCPSel.Create(Application); + with frmCPSel do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PRTCode').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYNO').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYEName').AsString); + FieldByName('PRTSpec').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('PRTCF').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYECF').AsString); + if Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString)<>'' then + begin + FieldByName('PRTMF').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString); + end; + if Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString)<>'' then + begin + FieldByName('PRTKZ').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString); + end; + //Post; + end; + end; + end; + finally + frmCPSel.Free; + end; + +end; + +procedure TfrmConInPut.v1PRTOrderQtyPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FBaoGangFee:string; +begin + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(Order_Sub.fieldbyname('PRTPrice').AsString); + FQty:=Trim(Order_Sub.fieldbyname('PRTOrderQty').AsString); + FBaoGangFee:=Trim(Order_Sub.fieldbyname('BaoGangFee').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FBaoGangFee)='' then + begin + FBaoGangFee:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName('PRTMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty)+StrToFloat(FBaoGangFee); + Post; + end; +end; + +procedure TfrmConInPut.PayMentBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PIPayMent'; + flagname:='ʽ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + PayMent.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.PriceTKBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceTK'; + flagname:='۸'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + PriceTK.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.FromPlaceBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.BankNameHZBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BankNameHZ'; + flagname:='տ'; + fnote:=True; + V1Name.Caption:='տ'; + V1Note.Caption:='Ѹٴ'; + if ShowModal=1 then + begin + BankNameHZ.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.BankNoBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BankNoHT'; + flagname:='˺'; + V1Name.Caption:='˺'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='Ѹٴ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + BankNo.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm new file mode 100644 index 0000000..87d588b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm @@ -0,0 +1,631 @@ +object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX + Left = 155 + Top = 3 + Width = 1055 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#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 = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_KangChi.ThreeImgList + List = True + 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 = 1039 + Height = 302 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#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 = 320 + Top = 48 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#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 = 320 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 48 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 24 + Top = 117 + Width = 65 + Height = 12 + Caption = #36153#29992#25215#25285#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 = 24 + Top = 83 + Width = 65 + Height = 12 + Caption = #36136#37327#26631#20934#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 = 24 + Top = 152 + Width = 104 + Height = 12 + Caption = #20132#36135#26041#27861#21450#22320#28857#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 = 611 + Top = 12 + Width = 104 + Height = 12 + Caption = #21253#35013#12289#35013#28514#21450#26631#35760 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label7DblClick + end + object Label8: TLabel + Left = 24 + Top = 186 + Width = 65 + Height = 12 + Caption = #39564#25910#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 610 + Top = 129 + Width = 52 + Height = 12 + Caption = #36816#36755#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label9DblClick + end + object Label4: TLabel + Left = 24 + Top = 221 + Width = 65 + Height = 12 + Caption = #25439#32791#36131#20219#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 255 + Width = 65 + Height = 12 + Caption = #21512#21516#20221#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 225 + Top = 255 + Width = 65 + Height = 12 + Caption = #21103#26412#20221#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 395 + Top = 255 + Width = 104 + Height = 12 + Caption = #21457#31080#24320#20986#20043#26085#36215#31532 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 553 + Top = 255 + Width = 39 + Height = 12 + Caption = #22825#20184#27454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 611 + Top = 255 + Width = 39 + 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 ConNo: TEdit + Left = 86 + Top = 11 + Width = 208 + Height = 18 + ReadOnly = True + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object QDTime: TDateTimePicker + Left = 382 + Top = 10 + Width = 210 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object BaoZuangNote: TRichEdit + Left = 609 + Top = 30 + Width = 412 + Height = 91 + TabOrder = 2 + end + object YunShuType: TRichEdit + Left = 609 + Top = 146 + Width = 412 + Height = 92 + TabOrder = 3 + end + object FactoryNoName: TBtnEditA + Left = 382 + Top = 44 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 4 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 86 + Top = 44 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 5 + OnBtnClick = CompanyNameBtnClick + end + object FeeNote: TBtnEditA + Left = 88 + Top = 113 + Width = 504 + Height = 20 + TabOrder = 6 + OnBtnClick = FeeNoteBtnClick + end + object PRTZhiLiang: TBtnEditA + Left = 88 + Top = 78 + Width = 504 + Height = 20 + TabOrder = 7 + OnBtnClick = PRTZhiLiangBtnClick + end + object JiaoHuoNote: TBtnEditA + Left = 130 + Top = 148 + Width = 462 + Height = 20 + TabOrder = 8 + OnBtnClick = JiaoHuoNoteBtnClick + end + object YanShouNote: TBtnEditA + Left = 88 + Top = 183 + Width = 504 + Height = 20 + TabOrder = 9 + OnBtnClick = YanShouNoteBtnClick + end + object SunHaoNote: TBtnEditA + Left = 88 + Top = 217 + Width = 504 + Height = 20 + TabOrder = 10 + OnBtnClick = SunHaoNoteBtnClick + end + object ConFenShu: TEdit + Left = 86 + Top = 252 + Width = 83 + Height = 18 + TabOrder = 11 + end + object ConFuBen: TEdit + Left = 286 + Top = 252 + Width = 60 + Height = 18 + TabOrder = 12 + end + object DayBegFK: TEdit + Left = 501 + Top = 252 + Width = 47 + Height = 18 + TabOrder = 13 + end + object Note: TEdit + Left = 646 + Top = 252 + Width = 372 + Height = 18 + TabOrder = 14 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 331 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_KangChi.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 360 + Width = 1039 + Height = 298 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + Column = v1Price + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column3: TcxGridDBColumn + Caption = #22806#38144#21512#21516#21495 + DataBinding.FieldName = 'JYConNo' + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column13: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'JYStyleNo' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #22411#21495#12289#35268#26684 + DataBinding.FieldName = 'C_Spec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTSpecPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215'('#21547#31246')' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column14: TcxGridDBColumn + Caption = #24635#20215'('#20803')' + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #20132#36135#26102#38388 + DataBinding.FieldName = 'C_DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Width = 197 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 412 + Top = 448 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 353 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 560 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 506 + Top = 446 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas new file mode 100644 index 0000000..0eda5ba --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas @@ -0,0 +1,1051 @@ +unit U_ContractBCInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmClothContractInPutSXMX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + Label12: TLabel; + v1Column2: TcxGridDBColumn; + Label6: TLabel; + Label7: TLabel; + BaoZuangNote: TRichEdit; + Label8: TLabel; + Label9: TLabel; + YunShuType: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + FeeNote: TBtnEditA; + PRTZhiLiang: TBtnEditA; + JiaoHuoNote: TBtnEditA; + YanShouNote: TBtnEditA; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Label4: TLabel; + SunHaoNote: TBtnEditA; + ConFenShu: TEdit; + ConFuBen: TEdit; + Label10: TLabel; + Label13: TLabel; + Label14: TLabel; + DayBegFK: TEdit; + Label15: TLabel; + Label16: TLabel; + Note: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTZhiLiangPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure FeeNoteBtnClick(Sender: TObject); + procedure PRTZhiLiangBtnClick(Sender: TObject); + procedure JiaoHuoNoteBtnClick(Sender: TObject); + procedure YanShouNoteBtnClick(Sender: TObject); + procedure Label7DblClick(Sender: TObject); + procedure Label9DblClick(Sender: TObject); + procedure SunHaoNoteBtnClick(Sender: TObject); + procedure v1PRTSpecPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmClothContractInPutSXMX: TfrmClothContractInPutSXMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ¼',Tv1,'ͬ'); +end; + +procedure TfrmClothContractInPutSXMX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + end; +end; + +procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject); +begin + ReadCxGrid('ͬ¼',Tv1,'ͬ'); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; +procedure TfrmClothContractInPutSXMX.GetMaxConNO(); +begin + +end; +function TfrmClothContractInPutSXMX.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,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 Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + if Trim(ConNo.Text)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Update_NXConNo :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(maxno); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + {if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; } + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JYConNo',null,[]) then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JYStyleNo',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.RecordCount>6 then + begin + Application.MessageBox('ϸݲܶ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('ͬ<'+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub A'); + sql.Add(' where A.StyleNo='''+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('<'+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub A'); + sql.Add(' inner join JYorderCon_Main B on A.Mainid=B.Mainid'); + sql.Add(' where A.StyleNo='''+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+''''); + sql.Add(' and B.ConNo='''+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('ͬ<'+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+ + '>вڿ<'+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + Next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='׼'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='跽'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYS'; + flagname:=''; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FeeNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FeeNote'; + flagname:='ø'; + if ShowModal=1 then + begin + FeeNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='׼'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JiaoHuoNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JiaoHuoNote'; + flagname:='ص'; + if ShowModal=1 then + begin + JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.YanShouNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YanShouNote'; + flagname:='շ'; + if ShowModal=1 then + begin + YanShouNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label7DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BaoZuangNote'; + flagname:='װװ꼰'; + if ShowModal=1 then + begin + BaoZuangNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label9DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunShuType'; + flagname:='䷽ʽ'; + if ShowModal=1 then + begin + YunShuType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.SunHaoNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SunHaoNote'; + flagname:=''; + if ShowModal=1 then + begin + SunHaoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTSpecPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='C_Spec'; + flagname:='ͺš'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Spec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothUnitPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(Order_Sub.fieldbyname('Price').AsString); + FQty:=Trim(Order_Sub.fieldbyname('C_Qty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end{ else + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=mvalue; + Post; + end; + end}; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm new file mode 100644 index 0000000..3f8da85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm @@ -0,0 +1,647 @@ +object frmContractCGJGChkList: TfrmContractCGJGChkList + Left = 39 + Top = 151 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + 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 = 1325 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBChkOk: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = TBChkOkClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #23457#26680#19981#21516#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 371 + Top = 0 + Width = 351 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 48 + Height = 12 + Caption = #23457#26680#22791#27880 + end + object ChkNote: TEdit + Left = 57 + Top = 5 + Width = 289 + Height = 20 + TabOrder = 0 + end + end + object TBChkNO: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 872 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 976 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 1039 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 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 = 424 + 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 Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 126 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 110 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas new file mode 100644 index 0000000..0377fd4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas @@ -0,0 +1,515 @@ +unit U_ContractCGJGChkList; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + ToolButton1: TToolButton; + Panel2: TPanel; + Label6: TLabel; + ChkNote: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGChkList: TfrmContractCGJGChkList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGChkList.FormDestroy(Sender: TObject); +begin + frmContractCGJGChkList:=nil; +end; + +procedure TfrmContractCGJGChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGChkList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + end; + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGChkList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGChkList.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 TfrmContractCGJGChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGChkList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGChkList.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 TfrmContractCGJGChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGChkList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + begin + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + end; + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGChkList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGChkList.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 TfrmContractCGJGChkList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGChkList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(PChker,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=NUll,Chker=NUll,ChkNote=Null '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGChkList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +procedure TfrmContractCGJGChkList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(PChker,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿ˲ͨ','ʾ',0); + Exit; + end; + if Trim(ChkNote.Text)='' then + begin + Application.MessageBox('˱עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲ͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''˲ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=getdate(),ChkNote='''+Trim(ChkNote.Text)+''''); + sql.add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //ChkNote.Text:=''; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm new file mode 100644 index 0000000..57a03f7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm @@ -0,0 +1,667 @@ +object frmContractCGJGList: TfrmContractCGJGList + Left = 13 + Top = 120 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + 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 = 1325 + AutoSize = True + 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_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 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 ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBSSOk: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 16 + OnClick = TBSSOkClick + end + object TBSSNO: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 17 + OnClick = TBSSNOClick + end + object TBChkOk: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 50 + Visible = False + OnClick = TBChkOkClick + end + object TBChkNO: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + Visible = False + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 765 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 828 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 932 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1082 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 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 = 425 + 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 Label4: TLabel + Left = 581 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 726 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 323 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 478 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 620 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 780 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 101 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #23457#25209#36890#36807 + #23457#25209#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas new file mode 100644 index 0000000..e357634 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas @@ -0,0 +1,629 @@ +unit U_ContractCGJGList; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGList = 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; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBSSOk: TToolButton; + TBSSNO: TToolButton; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure 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 ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBSSOkClick(Sender: TObject); + procedure TBSSNOClick(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGList: TfrmContractCGJGList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGList.FormDestroy(Sender: TObject); +begin + frmContractCGJGList:=nil; +end; + +procedure TfrmContractCGJGList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬ',Tv1,'ͬ'); + FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); +end; + +procedure TfrmContractCGJGList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_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 Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SSPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(PChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + sql.Add(' and isnull(PChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=4 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=5 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGList.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 TfrmContractCGJGList.TBEditClick(Sender: TObject); +var + FInt:Integer; +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; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + EditInt:=FInt; + frmClothContractInPutSXMX.canshu1:=Trim(self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.TBDelClick(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 JYOrder_Main_MD where COnMainId='''+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 + Order_Main.Delete; + end; +end; + +function TfrmContractCGJGList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGList.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.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 TfrmContractCGJGList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SSPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGList.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 TfrmContractCGJGList.TBSSOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set SSPerson='''+Trim(DName)+''''); + sql.Add(',SSTime=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBSSNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͬͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set SSPerson='''' '); + sql.Add(',SSTime=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',Chker='''' '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm new file mode 100644 index 0000000..96a4344 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm @@ -0,0 +1,647 @@ +object frmContractCGJGSPList: TfrmContractCGJGSPList + Left = 13 + Top = 120 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516#23457#25209 + 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 = 1325 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBChkOk: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#25209#36890#36807 + ImageIndex = 22 + OnClick = TBChkOkClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #23457#25209#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 371 + Top = 0 + Width = 351 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 48 + Height = 12 + Caption = #23457#25209#22791#27880 + end + object PChkNote: TEdit + Left = 57 + Top = 5 + Width = 289 + Height = 20 + TabOrder = 0 + end + end + object TBChkNO: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #23457#25209#25764#38144 + ImageIndex = 52 + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 872 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 976 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 1039 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 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 = 424 + 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 Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#25209 + #23457#25209#36890#36807 + #23457#25209#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas new file mode 100644 index 0000000..e0fc4d3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas @@ -0,0 +1,492 @@ +unit U_ContractCGJGSPList; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGSPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + Panel2: TPanel; + Label6: TLabel; + PChkNote: TEdit; + ToolButton1: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGSPList: TfrmContractCGJGSPList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGSPList.FormDestroy(Sender: TObject); +begin + frmContractCGJGSPList:=nil; +end; + +procedure TfrmContractCGJGSPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGSPList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬPChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGSPList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(PChker,'''')='''' '); + end else + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(PChker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + end; + + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGSPList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬPChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGSPList.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 TfrmContractCGJGSPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGSPList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGSPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSPList.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 TfrmContractCGJGSPList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGSPList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(PChker,'''')='''' '); + end else + begin + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(PChker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + end; + + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGSPList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGSPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGSPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGSPList.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 TfrmContractCGJGSPList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set PChkStatus=''ͨ'',PChker='''+Trim(DName)+''''); + sql.Add(',PChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGSPList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set PChkStatus=NUll,PChker=NUll,PChkNote=NULL '); + sql.Add(',PChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGSPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSPList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +procedure TfrmContractCGJGSPList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(PChkNote.Text)='' then + begin + Application.MessageBox('עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update Contract_Main Set PChkStatus=''ͨ'',PChker='''+Trim(DName)+''''); + sql.Add(',PChkTime=getdate(),PChkNote='''+Trim(PChkNote.Text)+''''); + sql.add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //ChkNote.Text:=''; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm new file mode 100644 index 0000000..5372892 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm @@ -0,0 +1,542 @@ +object frmContractCGJGSXSelList: TfrmContractCGJGSXSelList + Left = 34 + Top = 132 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + 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 = 1325 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 252 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Visible = False + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object TBClose: TToolButton + Left = 356 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + 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 Label5: TLabel + Left = 424 + 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 Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433 + #26579#32433 + #32455#36896 + '' + '' + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1325 + Height = 411 + 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 = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + 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 = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas new file mode 100644 index 0000000..5be877b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas @@ -0,0 +1,368 @@ +unit U_ContractCGJGSXSelList; + +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, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGSXSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGSXSelList: TfrmContractCGJGSXSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGSXSelList.FormDestroy(Sender: TObject); +begin + frmContractCGJGSXSelList:=nil; +end; + +procedure TfrmContractCGJGSXSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGSXSelList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('SXɹӹͬChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGSXSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' '); + sql.Add(' and 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 isnull(Chker,'''')<>'''' and isnull(PChker,'''')<>'''' '); + sql.Add(' and ConType in(''ɴ'',''Ⱦɴ'',''֯'')'); + sql.Add(' and not exists(select * from JYOrder_Main JM where JM.OrderNO=A.ConNo)'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGSXSelList.InitForm(); + +begin + ReadCxGrid('SXɹӹͬChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmContractCGJGSXSelList.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 TfrmContractCGJGSXSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGSXSelList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + 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)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGSXSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSXSelList.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 TfrmContractCGJGSXSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGSXSelList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + sql.Add(' and isnull(Chker,'''')<>'''' and isnull(PChker,'''')<>'''' '); + sql.Add(' and ConType in(''ɴ'',''Ⱦɴ'',''֯'')'); + sql.Add(' and not exists(select * from JYOrder_Main JM where JM.OrderNO=A.ConNo)'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGSXSelList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGSXSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmContractCGJGSXSelList.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 TfrmContractCGJGSXSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSXSelList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm new file mode 100644 index 0000000..4a19c6f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm @@ -0,0 +1,706 @@ +object frmContractChkList: TfrmContractChkList + Left = 42 + Top = 129 + Width = 1244 + Height = 600 + Caption = #35746#21333#21512#21516#23457#26680 + 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 = 1233 + AutoSize = True + 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_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 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 = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 363 + Top = 0 + Caption = #23457#25209#36890#36807 + ImageIndex = 114 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 446 + Top = 0 + Caption = #23457#25209#25764#38144 + ImageIndex = 129 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 529 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 655 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 718 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + 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 = 177 + Top = 39 + Width = 40 + 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 Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + 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 Label2: TLabel + Left = 311 + Top = 40 + 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 Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + 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 Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + 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 = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1233 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24453#23457#25209 + #24050#23457#25209 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1233 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 9 + Top = 133 + Width = 1224 + Height = 220 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.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_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + 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_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column18: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column20: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column21: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas new file mode 100644 index 0000000..d24a401 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas @@ -0,0 +1,618 @@ +unit U_ContractChkList; + +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; + +type + TfrmContractChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + PRTCode: TEdit; + PRTSpec: TEdit; + PRTCF: TEdit; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractChkList: TfrmContractChkList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractChkList.FormDestroy(Sender: TObject); +begin + frmContractChkList:=nil; +end; + +procedure TfrmContractChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(PChker,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractChkList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractChkList.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 TfrmContractChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_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 JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractChkList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice+isnull(BaoGangFee,0),BaoGangFee10=isnull(B.BaoGangFee,0) '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; +procedure TfrmContractChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractChkList.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 TfrmContractChkList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(PChker,'''')<>'''' '); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractChkList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton2Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set PChker='''+Trim(DName)+''''); + SQL.Add(',PChkTime=getdate(),PChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton5Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set PChker=NUll'); + SQL.Add(',PChkTime=NUll,PChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm new file mode 100644 index 0000000..9a47c6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm @@ -0,0 +1,942 @@ +object frmContractList: TfrmContractList + Left = 39 + Top = 71 + Width = 1249 + Height = 594 + Caption = #35746#21333#21512#21516 + 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 = 1233 + AutoSize = True + 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_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 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 ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20316#24223#36865#23457 + ImageIndex = 32 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20316#24223#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBExport: TToolButton + Left = 765 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 828 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 891 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 954 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object cxGrid1: TcxGrid + Left = -7 + Top = 125 + Width = 1224 + Height = 220 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.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_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + 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_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column21: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column18: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + 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 = 177 + Top = 39 + Width = 40 + 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 Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + 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 Label2: TLabel + Left = 311 + Top = 40 + 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 Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + 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 Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + 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 = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1233 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#20316#24223 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1233 + ClientRectTop = 23 + end + object Panel2: TPanel + Left = 0 + Top = 360 + Width = 1233 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label7: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Panel3: TPanel + Left = 15 + Top = 2 + Width = 66 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 28 + Width = 57 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 68 + Width = 57 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 108 + Width = 57 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid2: TcxGrid + Left = 81 + Top = 2 + Width = 1150 + Height = 191 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + 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 + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v2Column3: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v2Column2: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 352 + Width = 1233 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 248 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 400 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 368 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 424 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas new file mode 100644 index 0000000..d96aa1d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas @@ -0,0 +1,999 @@ +unit U_ContractList; + +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, cxDropDownEdit, cxTextEdit; + +type + TfrmContractList = 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; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + v1Column2: TcxGridDBColumn; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label2: TLabel; + PRTCode: TEdit; + Label3: TLabel; + Label5: TLabel; + PRTSpec: TEdit; + PRTCF: TEdit; + v1Column13: TcxGridDBColumn; + Panel2: TPanel; + cxSplitter1: TcxSplitter; + Label7: TLabel; + Panel3: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column3: TcxGridDBColumn; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + v1Column14: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure 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 Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + + { Public declarations } + end; + +var + frmContractList: TfrmContractList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun,U_SKCRFenPei; + +{$R *.dfm} + +procedure TfrmContractList.FormDestroy(Sender: TObject); +begin + frmContractList:=nil; +end; + +procedure TfrmContractList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + canshu1:=Trim(DParameters1); +end; + +procedure TfrmContractList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ1',Tv1,'ָʾ'); + WriteCxGrid('1',Tv1,'ָʾ'); +end; + +procedure TfrmContractList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + // sql.Add(' ,DJMoney=(select isnull(Sum(FPMoney),0) from SK_Money_FP FP where FP.WBID=B.Subid and FP.FPType='''' )'); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and ZuoFeiFlag=1 '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractList.InitForm(); +begin + ReadCxGrid('ͬбѡ1',Tv1,'ָʾ'); + ReadCxGrid('1',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractList.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 TfrmContractList.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.TBDelClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SK_Money_FP where WBID='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FPType='''' '); + 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 + Order_Main.Delete; + end; +end; + +function TfrmContractList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_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 JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice+isnull(BaoGangFee,0),BaoGangFee10=isnull(B.BaoGangFee,0) '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContractList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.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 TfrmContractList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(A.SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and ZuoFeiFlag=1 '); + end; + sql.Add(' and A.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderCon_Main '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SChker=NUll'); + SQL.Add(',SChkTime=NUll '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FPType='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmContractList.Button1Click(Sender: TObject); +begin + try + frmSKCRFenPei:=TfrmSKCRFenPei.Create(Application); + with frmSKCRFenPei do + begin + KHName:=Trim(Order_Main.fieldbyname('CustomerNoName').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('YFID').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('YFID').Value; + FieldByName('CRTime').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('BZType').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('BZType').Value; + FieldByName('Money').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('Money').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmSKCRFenPei.Free; + end; +end; + +procedure TfrmContractList.Button3Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('䶨Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet2.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:=''; + FieldByName('FPDate').Value:=ClientDataSet2.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + if Trim(ClientDataSet2.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet2.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet2.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrderCon_Sub.SubID and A.FPType='''' )'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPHKMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmContractList.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet2.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrderCon_Sub.SubID and A.FPType='''' )'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPHKMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmContractList.ToolButton5Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrderCon_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('Chker').AsString='' then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set ZuoFeiPerson='''+Trim(DName)+''''); + SQL.Add(',ZuoFeiTime=getdate(),ZuoFeiFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.ToolButton6Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrderCon_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then + begin + Application.MessageBox('Ѿͨܳ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString='' then Exit; + if Application.MessageBox('ȷҪִϳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set ZuoFeiPerson=Null'); + SQL.Add(',ZuoFeiTime=Null,ZuoFeiFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm new file mode 100644 index 0000000..7e76dbc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm @@ -0,0 +1,651 @@ +object frmContractSelList: TfrmContractSelList + Left = 49 + Top = 122 + Width = 1244 + Height = 600 + Align = alClient + Caption = #35746#21333#21512#21516#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 = 1233 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 31 + OnClick = ToolButton2Click + end + object Panel2: TPanel + Left = 185 + Top = 0 + Width = 97 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object CheckBox1: TCheckBox + Left = 14 + Top = 8 + Width = 74 + Height = 17 + Caption = #35843#29992#25968#25454 + Checked = True + State = cbChecked + TabOrder = 0 + end + end + object ToolButton1: TToolButton + Left = 282 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 345 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 408 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 471 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 534 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object cxGrid1: TcxGrid + Left = 9 + Top = 101 + Width = 1224 + Height = 369 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.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_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + 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_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'PRTGY' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #36741#21161#24037#33402 + DataBinding.FieldName = 'PRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + 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 = 319 + 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 Label6: TLabel + Left = 479 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + 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 = 40 + Width = 52 + Height = 12 + Caption = #36741#21161#24037#33402 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + 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 Label10: TLabel + Left = 319 + Top = 40 + Width = 26 + Height = 12 + Caption = #24037#33402 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 177 + Top = 40 + Width = 40 + Height = 12 + Caption = #32534' '#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 = 647 + Top = 15 + Width = 26 + 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 Label5: TLabel + Left = 647 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + 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 = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 348 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 532 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object PRTGYHZ: TEdit + Tag = 2 + Left = 532 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTGY: TEdit + Tag = 2 + Left = 348 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCode: TEdit + Tag = 2 + Left = 218 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 673 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 673 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas new file mode 100644 index 0000000..c7e14d5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas @@ -0,0 +1,491 @@ +unit U_ContractSelList; + +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; + +type + TfrmContractSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + SYRName: TEdit; + PRTGYHZ: TEdit; + ConNo: TEdit; + PRTGY: TEdit; + v1Column2: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label2: TLabel; + PRTCode: TEdit; + Label3: TLabel; + Label5: TLabel; + PRTSpec: TEdit; + PRTCF: TEdit; + Panel2: TPanel; + CheckBox1: TCheckBox; + ToolButton2: TToolButton; + 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 TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractSelList: TfrmContractSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractSelList.FormDestroy(Sender: TObject); +begin + frmContractSelList:=nil; +end; + +procedure TfrmContractSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractSelList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractSelList.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 TfrmContractSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_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 JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractSelList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractSelList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContractSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractSelList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractSelList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractSelList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractSelList.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 TfrmContractSelList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(ConNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + {if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; } + sql.Add(' and A.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractSelList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +procedure TfrmContractSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm new file mode 100644 index 0000000..ed0f322 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm @@ -0,0 +1,665 @@ +object frmContractViewList: TfrmContractViewList + Left = 126 + Top = 114 + Width = 1244 + Height = 600 + Caption = #35746#21333#21512#21516#26597#35810 + 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 = 1228 + AutoSize = True + 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_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 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 = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 552 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1228 + Height = 67 + 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 = 177 + Top = 39 + Width = 40 + 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 Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + 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 Label2: TLabel + Left = 311 + Top = 40 + 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 Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + 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 Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + 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 = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1228 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1228 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 1 + Top = 133 + Width = 1224 + Height = 220 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.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_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + 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_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas new file mode 100644 index 0000000..9eeb37f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas @@ -0,0 +1,538 @@ +unit U_ContractViewList; + +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; + +type + TfrmContractViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + PRTCode: TEdit; + PRTSpec: TEdit; + PRTCF: TEdit; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + 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 TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractViewList: TfrmContractViewList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractViewList.FormDestroy(Sender: TObject); +begin + frmContractViewList:=nil; +end; + +procedure TfrmContractViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractViewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractViewList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractViewList.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 TfrmContractViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_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 JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractViewList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; +procedure TfrmContractViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractViewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractViewList.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 TfrmContractViewList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractViewList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractViewList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractViewList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm new file mode 100644 index 0000000..b3617a7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm @@ -0,0 +1,365 @@ +object frmDJBCKInPut: TfrmDJBCKInPut + Left = 55 + Top = 111 + Width = 1283 + Height = 502 + Align = alClient + Caption = #24453#26816#24067#20837#24211 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1267 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1267 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas new file mode 100644 index 0000000..8dc35f7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -0,0 +1,694 @@ +unit U_DJBCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmDJBCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmDJBCKInPut: TfrmDJBCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmDJBCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; + end; + + + +end; +function TfrmDJBCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'DR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:='첼'; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼Ǽ',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('첼Ǽ',Tv1,'첼ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + // v1Column15.Options.Focusing:=False; + v1Column13.Options.Focusing:=False; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + v1Column11.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + //v1Column15.Options.Focusing:=True; + v1Column13.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + v1Column11.Options.Focusing:=True; + end; +end; + +procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('OrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + begin + Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('SPSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); + FieldByName('SPCF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString); + FieldByName('SPMF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString); + FieldByName('SPKZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm new file mode 100644 index 0000000..47148ea --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm @@ -0,0 +1,637 @@ +object frmDJBCKKCList: TfrmDJBCKKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #24453#26816#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 = 1165 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 646 + Top = 36 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 646 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 774 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 774 + Top = 12 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 879 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 694 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 694 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 799 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 799 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 927 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas new file mode 100644 index 0000000..8848214 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas @@ -0,0 +1,238 @@ +unit U_DJBCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmDJBCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + PRTColor: TEdit; + Label11: TLabel; + SOrddefstr1: TEdit; + Label13: TLabel; + PRTHX: TEdit; + ToolButton2: TToolButton; + 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmDJBCKKCList: TfrmDJBCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmDJBCKKCList.FormDestroy(Sender: TObject); +begin + frmDJBCKKCList:=nil; +end; + +procedure TfrmDJBCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''첼'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDJBCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼б',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('첼б',Tv1,'첼ֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKKCList.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 TfrmDJBCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmDJBCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmDJBCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('첼',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm new file mode 100644 index 0000000..c4b080a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm @@ -0,0 +1,656 @@ +object frmDJBCKKCSelList: TfrmDJBCKKCSelList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Align = alClient + Caption = #24453#26816#24067#24211#23384#36873#25321#21015#34920 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + 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 = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 646 + Top = 36 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 646 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 774 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 774 + Top = 12 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 879 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 694 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 694 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 799 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 799 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 927 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column20: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + Options.Editing = False + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas new file mode 100644 index 0000000..e2318d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas @@ -0,0 +1,237 @@ +unit U_DJBCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmDJBCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + PRTColor: TEdit; + Label11: TLabel; + SOrddefstr1: TEdit; + Label13: TLabel; + PRTHX: TEdit; + v1Column20: 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmDJBCKKCSelList: TfrmDJBCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmDJBCKKCSelList.FormDestroy(Sender: TObject); +begin + frmDJBCKKCSelList:=nil; +end; + +procedure TfrmDJBCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''첼'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDJBCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼ѡб',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('첼ѡб',Tv1,'첼ֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKKCSelList.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 TfrmDJBCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmDJBCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm new file mode 100644 index 0000000..5060e02 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm @@ -0,0 +1,782 @@ +object frmDJBCKOutList: TfrmDJBCKOutList + Left = 191 + Top = 137 + Width = 1322 + Height = 634 + Caption = #24453#26816#24067#20986#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 107 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1306 + Height = 33 + 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_PBMDDJ.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 = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #25171#21360#26816#39564#25351#31034#21333 + ImageIndex = 4 + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1306 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 30 + Top = 13 + Width = 52 + Height = 13 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 69 + Top = 39 + Width = 13 + Height = 13 + Caption = #33267 + end + object Label3: TLabel + Left = 321 + Top = 13 + Width = 26 + Height = 13 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 425 + Top = 13 + Width = 39 + Height = 13 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 193 + Top = 13 + Width = 52 + Height = 13 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 321 + Top = 39 + Width = 26 + Height = 13 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 194 + Top = 39 + Width = 52 + Height = 13 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 425 + Top = 39 + Width = 40 + Height = 13 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 542 + Top = 13 + Width = 65 + Height = 13 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 542 + Top = 39 + Width = 65 + Height = 13 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 683 + Top = 13 + Width = 65 + Height = 13 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 683 + Top = 39 + Width = 65 + Height = 13 + Caption = #20986#21040#21152#24037#21378 + end + object Label9: TLabel + Left = 826 + Top = 13 + Width = 52 + Height = 13 + Caption = #26579#21378#32568#21495 + end + object Label14: TLabel + Left = 826 + Top = 39 + Width = 52 + Height = 13 + Caption = #26412#21378#32568#21495 + end + object Label15: TLabel + Left = 957 + Top = 13 + Width = 26 + Height = 13 + Caption = #39068#33394 + end + object Label16: TLabel + Left = 957 + Top = 39 + Width = 26 + Height = 13 + Caption = #33394#21495 + end + object Label17: TLabel + Left = 1063 + Top = 13 + Width = 26 + Height = 13 + Caption = #33457#22411 + end + object BegDate: TDateTimePicker + Left = 83 + Top = 10 + Width = 95 + Height = 21 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 83 + Top = 36 + Width = 95 + Height = 21 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 350 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 466 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 3 + end + object SPID: TEdit + Tag = 2 + Left = 247 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 350 + Top = 35 + Width = 65 + Height = 21 + TabOrder = 5 + end + object CRType: TComboBox + Tag = 2 + Left = 247 + Top = 35 + Width = 65 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #26816#39564#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 466 + Top = 35 + Width = 65 + Height = 21 + TabOrder = 7 + end + object QCorderNo: TEdit + Tag = 2 + Left = 607 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 8 + OnChange = ConNoMChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 607 + Top = 36 + Width = 65 + Height = 21 + TabOrder = 9 + OnChange = ConNoMChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 748 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 10 + end + object ToFactoryName: TEdit + Tag = 2 + Left = 748 + Top = 36 + Width = 65 + Height = 21 + TabOrder = 11 + end + object RCGangNo: TEdit + Tag = 2 + Left = 879 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 12 + end + object GangNo: TEdit + Tag = 2 + Left = 879 + Top = 36 + Width = 65 + Height = 21 + TabOrder = 13 + end + object PRTColor: TEdit + Tag = 2 + Left = 984 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 14 + OnChange = PRTColorChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 984 + Top = 36 + Width = 65 + Height = 21 + TabOrder = 15 + OnChange = SOrddefstr1Change + end + object PRTHX: TEdit + Tag = 2 + Left = 1090 + Top = 10 + Width = 65 + Height = 21 + TabOrder = 16 + OnChange = PRTHXChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 98 + Width = 1306 + Height = 496 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column21: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKorderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1QSJHNo: TcxGridDBColumn + Caption = #36215#22987#21367#21495 + DataBinding.FieldName = 'QSJHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 984 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1048 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 792 + Top = 232 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 550 + Top = 232 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas new file mode 100644 index 0000000..942713f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas @@ -0,0 +1,530 @@ +unit U_DJBCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, RM_BarCode; + +type + TfrmDJBCKOutList = 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_Main: TClientDataSet; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + Label9: TLabel; + Label14: TLabel; + RCGangNo: TEdit; + GangNo: TEdit; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + ToolButton3: TToolButton; + ADOQueryPrint: TADOQuery; + v1Column21: TcxGridDBColumn; + Label15: TLabel; + PRTColor: TEdit; + Label16: TLabel; + SOrddefstr1: TEdit; + Label17: TLabel; + PRTHX: TEdit; + RM1: TRMGridReport; + RMBarCodeObject1: TRMBarCodeObject; + v1QSJHNo: TcxGridDBColumn; + 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 SPNameChange(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure PRTColorChange(Sender: TObject); + procedure SOrddefstr1Change(Sender: TObject); + procedure PRTHXChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmDJBCKOutList: TfrmDJBCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKOutPut; + +{$R *.dfm} + +procedure TfrmDJBCKOutList.FormDestroy(Sender: TObject); +begin + frmDJBCKOutList:=nil; +end; + +procedure TfrmDJBCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmDJBCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.add(' where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRFlag='''' '); + SQL.Add(' and isnull(CKName,'''')=''첼'' '); + + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹбPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmDJBCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹбPMD',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmDJBCKOutList.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 TfrmDJBCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKOutList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBCKOutList.N1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not eof do + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='' then + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmDJBCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from WFB_MJJY where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmDJBCKOutList.TBAddClick(Sender: TObject); +begin + try + frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + with frmDJBCKOutPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKOutPut.Free; + end; +end; + +procedure TfrmDJBCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼޸!','ʾ',0); + Exit; + end; + try + frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + with frmDJBCKOutPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKOutPut.Free; + end; + +end; + +procedure TfrmDJBCKOutList.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + +begin + if CDS_Main.IsEmpty then Exit; + //if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while CDS_Main.Locate('SSel',True,[]) do + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX,C.OrderNo,C.MPRTCodeName'); + sql.Add(',C.CustomerNoName,C.ConNo'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.Add(' left join JYOrder_Main C on A.ORDMainIdCK=C.MainId'); + sql.Add(' where A.SPId='''+Trim(CDS_Main.fieldbyname('SPId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_PRT); + SInitCDSData20(ADOQueryPrint,CDS_PRT); + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_PRT.fieldbyname('SPID').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 + CDS_Main.EnableControls; + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + Delete; + end; + end; + CDS_Main.EnableControls; + +end; + +procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then + begin + Tv1.OptionsSelection.CellSelect:=False; + end else + begin + Tv1.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmDJBCKOutList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKOutList.SOrddefstr1Change(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKOutList.PRTHXChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm new file mode 100644 index 0000000..bd99de3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm @@ -0,0 +1,374 @@ +object frmDJBCKOutPut: TfrmDJBCKOutPut + Left = 190 + Top = 136 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24453#26816#24067#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 107 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 429 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26816#39564#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKOrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1QSJHNo: TcxGridDBColumn + Tag = 2 + Caption = #36215#22987#21367#21495 + DataBinding.FieldName = 'QSJHNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 336 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas new file mode 100644 index 0000000..5535091 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas @@ -0,0 +1,588 @@ +unit U_DJBCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmDJBCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column5: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1QSJHNo: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmDJBCKOutPut: TfrmDJBCKOutPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_DJBCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmDJBCKOutPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmDJBCKKCSelList:=TfrmDJBCKKCSelList.Create(Application); + with frmDJBCKKCSelList do + begin + ToolButton1.Visible:=True; + if ShowModal=1 then + begin + frmDJBCKKCSelList.CDS_Main.DisableControls; + with frmDJBCKKCSelList.CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('ORDMainIdRK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('CKOrderNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('SOrddefstr1').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SOrddefstr1').AsString; + FieldByName('PRTColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('PRTColor').AsString; + FieldByName('PRTHX').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('PRTHX').AsString; + FieldByName('FactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPCF').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('RCGangNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('RCGangNo').Value; + FieldByName('FromFactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('FromFactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('ToFactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmDJBCKKCSelList.CDS_Main.Delete; + end; + end; + frmDJBCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmDJBCKKCSelList.Free; + end; +end; +function TfrmDJBCKOutPut.SaveCKData():Boolean; +var + FCRID,Maxno,FSPID,MaxPYNo,FPYID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('QSJHNo').Value:=CDS_Sub.fieldbyname('QSJHNo').AsInteger; + FieldByName('CKName').Value:='첼'; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + FieldByName('PYID').Value:=Trim(Maxno); + end; + if Trim(FSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID='''+Trim(Maxno)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxPYNo,'YR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹƽʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxPYNo:=Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value:=Trim(MaxPYNo); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + FieldByName('CRType').Value:='ƽ'; + FieldByName('PYID').Value:=Trim(Maxno); + if Trim(FPYID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(MaxPYNo)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //Post; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼ǼPMD',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('첼ǼPMD',Tv1,'첼ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmDJBCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); } + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmDJBCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CKOrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + if (Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString)=Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString)) + and (Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString)=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString)) + then + begin + CDS_Sub.EnableControls; + Application.MessageBox('ͬһţͬһƽ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmDJBCKOutPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)<>'' then + begin + v1CRType.Options.Editing:=False; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm new file mode 100644 index 0000000..4b4af91 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm @@ -0,0 +1,702 @@ +object frmDJBRKList: TfrmDJBRKList + Left = 68 + Top = 109 + Width = 1238 + Height = 511 + Caption = #24453#26816#24067#20837#24211#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 = 1222 + 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_PBMDDJ.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 = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1222 + Height = 72 + 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 Label3: TLabel + Left = 318 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 435 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 318 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 435 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 36 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 702 + Top = 12 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 703 + Top = 36 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 843 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label14: TLabel + Left = 843 + Top = 36 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label15: TLabel + Left = 959 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + 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 = 1 + end + object SPName: TEdit + Tag = 2 + Left = 345 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 472 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 345 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 472 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 754 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 754 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 868 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 868 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 984 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1222 + Height = 368 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 584 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 616 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 584 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas new file mode 100644 index 0000000..57090c0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -0,0 +1,400 @@ +unit U_DJBRKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmDJBRKList = 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_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + v1Column18: TcxGridDBColumn; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + PRTColor: TEdit; + Label14: TLabel; + SOrddefstr1: TEdit; + Label15: TLabel; + PRTHX: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmDJBRKList: TfrmDJBRKList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut; + +{$R *.dfm} + +procedure TfrmDJBRKList.FormDestroy(Sender: TObject); +begin + frmDJBRKList:=nil; +end; + +procedure TfrmDJBRKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBRKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmDJBRKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''첼'''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBRKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼б',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('첼б',Tv1,'첼ֿ'); + //InitGrid(); +end; + +procedure TfrmDJBRKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('첼б',cxGrid2); +end; + +procedure TfrmDJBRKList.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 TfrmDJBRKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmDJBRKList.TBAddClick(Sender: TObject); +begin + try + frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + with frmDJBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end; +end; + +procedure TfrmDJBRKList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + try + frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + with frmDJBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end; +end; + +procedure TfrmDJBRKList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBRKList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmDJBRKList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm new file mode 100644 index 0000000..464dd27 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm @@ -0,0 +1,17983 @@ +object DataLink_PBMDDJ: TDataLink_PBMDDJ + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 343 + Top = 231 + Height = 349 + Width = 482 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 96 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 000000000000000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 00000000000000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 000000000000000000000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB0000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 0000000000008080800050505000808080000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 0000000000008080800055555500808080000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E0000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A00000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB8002638730000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC002839770000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F42850000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D0000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A20000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC0000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB100000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B7000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 0000000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 0000000000000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB3000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF10000000000000000004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A2000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F70000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C300000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F7000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF00000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F100000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E0000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA2000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD000000000000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C7600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC0031438300000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C90000000000000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D0000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C3000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D900000000000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A30000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC5000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD0000000000000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA0000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF60000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE100000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B90000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E90000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF0000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA0000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC0000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC50000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B90000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F00000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B8000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F10000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC7000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F10000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD8000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C8000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D300000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A40000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F400000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA00000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE00000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E200000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B1000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF0000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F00000000000000000000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A99000000000000000000000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B9300000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F100000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F9900000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F2000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A100000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B9000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC8000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF600000000000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D000314384000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E000000000000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 0000000000000000000000000000000000000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 00000000000000000000000000000000000000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 00000000000000000000000000000000000000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF700000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF8000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F500000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF50000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C60023336700000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF7000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB0003249100293972000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA003042820000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB0003346870000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C920000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A50970000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D0000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA70000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B30000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF0000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C90000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A8000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 00000000000000000000000000000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 0000000000000000000000000000000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED5000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C00000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 00000000000000000000000000000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF50000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB6000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E9000000000000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 000000000000000000000000000000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 000000000000000000000000000000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 000000000000000000000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 000000000000000000000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D810000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D0000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 000000000000000000000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB00314792000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 000000000000000000000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A30000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 000000000000000000000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 000000000000000000000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 00000000000000000000000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B70000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 000000000000000000000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C10000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 000000000000000000000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 8200000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 880000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F00000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B8000000000000000000000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F700000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD00000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB000000000000000000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC00000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD000000000000000000000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA00000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE0000000000000000000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD00000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE0000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC10000000000000000000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC4000000000000000000000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC60000000000000000000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C500000000000000000000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C70000000000000000000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C600000000000000000000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C900000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E0000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E400000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF000000000000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F3000000000000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 00000000000000000000000000000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF5000000000000000000445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 00000000000000000000000000000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 00000000000000000000000000000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF3000000000000000000445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 00000000000000000000000000000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 00000000000000000000000000000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC500000000000000000000000000748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 00000000000000000000000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E8000000000000000000000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED0000000000000000000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF600000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 00000000000000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 00000000000000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F2000000000000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F800000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F20000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F51920000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F00000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA00000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A40000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA0000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB0000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C10000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD30000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E90000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F20000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC500000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A000000000000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F4180000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C900314487000000000000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D6000000000000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D95000000000000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB0000000000000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D000000000000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E0000000000000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A4000000000000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB3000000000000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F10000000000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB000000000000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F20000000000000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD000000000000000000000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF300000000000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF000000000000000000000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF300000000000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C1000000000000000000000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF300000000000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC2000000000000000000000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF300000000000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC4000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F400000000000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC6000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C7000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E900000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E100000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC200000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA00000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B200000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 000000000000000000000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 000000000000000000000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA003248940000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C0000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC70000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B7000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A50000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB2000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB10000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC100000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D200000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB70000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C600000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B90000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB0000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B300000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC0000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD0000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA00000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C00000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C0000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD0000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B100283871000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 000000000000000000000000000000000000000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D003446820000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D00000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A700000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA90000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F449100000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF00000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 71000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC003249990000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D0000000000000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 720000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 740000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA100000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE0000000000000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A900000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE10000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC00000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF0000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B00000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB3000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB0000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D0000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F100000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD700000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E6000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 000000000000000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A200000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 000000000000000000000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 000000000000000000000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A6000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB40000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E100000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 000000000000000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E1000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F700000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 00000000000000000000000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 00000000000000000000000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 000000000000000000000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D20000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F100000000000000000000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 0000000000000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB0000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 000000000000000000000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 000000000000000000000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB0000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB40000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F700000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD0000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA00000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A6200465690000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA0000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B5002637740000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B20000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B2000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D41860000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB0031479200000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A300000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB300000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB600000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF50000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B500000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF50000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE0000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC600000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D710000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D4187000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A00000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C87000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C00000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B96000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C300324790000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD0000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C40033489300000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A90000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D10000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A95000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B0000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB0000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F99000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A00000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE0000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E20000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E00000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A2000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B80000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A5000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD0000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA8000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C00000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F3000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC10000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC20000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE0000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB0000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB9000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000013131300121212001111 + 1100111111001111110011111100111111001111110011111100111111001111 + 1100111111001111110011111100111111001111110011111100121212001212 + 120013131300141414001111110000000000031D3D00093C7B00093C7B00093C + 7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C + 7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C + 7B00093C7B00093C7B00010D1D00000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB00000000000000000000000000000000003B3B3B003C3C3C003C3C + 3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C + 3C003C3C3C003C3C3C003C3C3C003D3D3D003D3D3D003D3D3D003D3D3D003D3D + 3D003D3D3D003D3D3D001B1B1B00000000000C458B001D54AB001E54A9001E54 + A9001E54AA001E54AA001E54AA001E54AA001E54AA001E54AA001E54AA001E54 + AA001E54AB001E54AB001E54AB001E54AB001E54AB001E54AB001D54AB001D54 + AB001D54AB001C54AE000D468C000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE0000000000000000000000000002A2A2A002E2E2E003939 + 39003939390039393900393939003939390039393900393939003A3A3A003A3A + 3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A + 3A003B3B3B00323232001F1F1F00000000000F47910014439D0014439D001544 + 9E0015449E0015449E0015449E0015449E0015449E0015449E0015449E001544 + 9E0015449E0015449E0015449E0015449E0015449E0015449E0015449E001544 + 9E0015449E003E8AD8000C458B00000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB0000000000000000000000000032323200343434003C3C + 3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003D3D3D003D3D + 3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D + 3D003E3E3E003838380012121200000000000F47920015459F001546A0001546 + A0001647A1001647A1001647A1001647A1001647A1001647A1001647A1001647 + A1001647A1001647A1001647A1001647A1001647A1001647A1001647A1001647 + A1001647A1001D55AF000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 000000000000000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000272727004E4E4E004040 + 40003F3F3F003F3F3F003F3F3F003F3F3F003F3F3F003F3F3F00404040004040 + 4000404040004040400040404000404040004040400040404000404040004040 + 4000424242004B4B4B0005050500000000000F4892001749A300184CA600194D + A7001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9001B4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001B51AB00448EDA000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 00000000000000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE00000000000000000000000000121212002C2C + 2C00686868006161610055555500464646004646460046464600464646004646 + 46004646460046464600464646004747470049494900535353005E5E5E004A4A + 4A00303030001313130000000000000000000F4893001A4EA8001B51AB001C54 + AE001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57 + B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57 + B1001E57B1004C92DC000B448A000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD000000000000000000000000000202 + 02002F2F2F003C3C3C00525252006A6A6A004F4F4F00494949004A4A4A004A4A + 4A004A4A4A004A4A4A004A4A4A00515151006D6D6D0058585800434343001C1C + 1C0002020200000000000000000000000000104894001A4EA8001B52AC001C55 + AF001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2000B448A0000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA000000000000000000000000000000 + 0000020202000F0F0F001E1E1E003A3A3A0065656500585858004D4D4D004D4D + 4D004D4D4D004D4D4D00606060006A6A6A0033333300202020000F0F0F000000 + 000000000000000000000000000000000000104894001A4EA8001B52AC001C55 + AF001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2001E58B2001E58B200053D8200053D82000D418700053D + 8200053D8200053D8200053D820003254F00000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 000000000000000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC000000000000000000000000000000 + 0000000000000000000000000000000000000101010031313100545454005454 + 5400545454004646460026262600010101000000000000000000000000000000 + 000000000000000000000000000000000000114995001A4EA8001C53AD001D56 + B0001F59B3001F59B3001F59B3001F59B3001F59B3001F59B3001F59B3001F59 + B3001F59B3001F59B3001F59B3001F59B3001C54AE003D5978006C715C003458 + 88001C54AE001C54AE001A4FA900053D820000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282800595959005959 + 590059595900444444001B1B1B00000000000000000000000000000000000000 + 000000000000000000000000000000000000114A9600194FA9001C53AD001D57 + B1001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5A + B4001F5AB4001F5AB4001F5AB4001F5AB4001C54AE003F463C0032372C003B45 + 42001A4FA9001A4FA9001A4FA900053D8200000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC000000000000000000000000000000 + 000000000000000000000000000000000000040404003F3F3F005D5D5D005D5D + 5D005D5D5D005A5A5A003B3B3B00030303000000000000000000000000000000 + 000000000000000000000000000000000000114A97001A4FA9001D54AE001E58 + B200205BB500205BB500205BB500205BB500205BB500205BB500205BB500205B + B500205BB500205BB500205BB500205BB5001C54AE0043586C00D3D6B6003956 + 7B001A4FA9001A4FA9001A4FA900053D820000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 00000000000000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF000000000000000000000000000000 + 000000000000000000000000000000000000434343005F5F5F00636363006363 + 6300636363006363630060606000333333000000000000000000000000000000 + 000000000000000000000000000000000000114B97001A50AA001D55AF001E59 + B300205CB600205CB600205CB600205CB600205CB600205CB600205CB600205C + B600205CB600205CB600205CB600205CB6005495DE003786D500327DCE00327D + CE00327DCE00327DCF002D77C400032F6500000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E3000000000000000000000000000000 + 0000000000000000000000000000020202004E4E4E0065656500666666006666 + 6600666666006666660066666600414141000000000000000000000000000000 + 000000000000000000000000000000000000124B98001A4FA9001D55AF001F59 + B300215CB600215CB600215CB600215CB600215CB600215CB600215CB600215C + B600215CB600215CB600215CB600215CB600215CB600215CB600215CB600215C + B600215CB6006EA7E8000B4489000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC000000000000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000131313005151510068686800696969006969 + 69006969690069696900696969004A4A4A000000000000000000000000000000 + 000000000000000000000000000000000000124C99001A50AA001D56B0001F59 + B300215DB700215DB700215DB700215DB700215DB700215DB700215DB700215D + B700215DB700215DB700215DB700215DB700215DB700215DB700215DB700215D + B700215DB70070A9EA000B44890000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D8000000000000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC800000000000000000000000000000000000000 + 0000000000000000000000000000222222005B5B5B006F6F6F00707070007070 + 7000707070007070700070707000585858000000000000000000000000000000 + 000000000000000000000000000000000000134C99002661B5003071C2003479 + C900377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377D + CD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377C + CD00387ECE002360B9000B448A00000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE20000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D005A5A5A0072727200737373007373 + 7300737373007373730073737300555555000000000000000000000000000000 + 000000000000000000000000000000000000134C9A002D6ABC00377ACB003B81 + CF003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84 + D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84 + D2003D84D20074ABEB000B448A00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C70000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D005E5E5E0075757500767676007676 + 7600767676007676760076767600565656000000000000000000000000000000 + 000000000000000000000000000000000000134D9B001E57B1006AA0E30070A6 + E700225FB90074ABEB0074ABEB00225FB90074ABEB0074ABEB00225FB90074AB + EB0074ABEB00225FB90074ABEB0074ABEB00225FB90074ABEB0074ABEB00225F + B90074ABEB0074ABEB000C458A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000039393900696969007C7C7C007C7C + 7C007C7C7C008181810067676700191919000000000000000000000000000000 + 0000000000000000000000000000000000001A529A007FB5F200337ECF003481 + D1003786D5003786D5003786D5003786D5003786D5003786D5003786D5003786 + D5003786D5003786D5003786D5003786D5003786D5003786D5003786D5003786 + D5003786D5007FB5F2000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020200494949008F8F8F008A8A + 8A00898989007070700044444400020202000000000000000000000000000000 + 0000000000000000000000000000000000000D468B001A4FA9001A4FA9001A4F + A9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9000C458B00010D1C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070700525252005D5D + 5D005D5D5D003535350007070700000000000000000000000000000000000000 + 000000000000000000000000000000000000031C3B000D468B000D468B000D46 + 8B000D468B000D468B000D468C000D468C000D468C000D468C000D478C000D46 + 8C000D468C000D468C000D468C000D468C000D468C000D468C000D468C000D46 + 8C000D468C000D468C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000319F700032A07100319F + 700031A07000319F710032A0710032A0700031A0710032A07000D58F6A00D58F + 6A00D58F6A00D58F6A00D58F6A00D58F6A00D58F6A00000000001560BC001560 + BD001560BD001660BD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BD8B6B00D39E7A00D39E + 7B00D39E7A00D39E7A00D39E7A00D49E7A00D49E7A00D49E7A00D49E7A00D49E + 7A00D49E7A00D49F7A00D49F7A00D49F7A00D49F7A00D59F7A00D59F7A00D59F + 7A00D59F7A00D59F7A0073513D000000000000000000CC886500EEA97A00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A001361DF001361 + DF001361DF001361DF000F3EB000EEA97A00EEA97A00EEA97A00EEA97A00EEA9 + 7A00EEA97A00EEA97A00CC88650000000000000000000DC9920013B98C0013B9 + 8C0013B98C0013B98C0013B98C0013B98C000EC992002FA17100D58F6A00EBA5 + 7D00E19D7900E19D7900E19D7900E19D7900D58F6A00000000001661BE00076E + E600076EE6000578EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000002A9C75002A9C75002A9C7500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C2937200F5C49C00F3BD + 9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD + 9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD + 9400F3BD9400F5C49C00D09775000201010000000000CC886500EEA97A00E59E + 7500DF977200DF977200DF977200DF977200DF977200DC936F000353DC000353 + DC000352DB000353DB000F3FB100DD946F00DF977200DF977200DF977200DF97 + 7200DF977200E59E7500CC88650000000000000000000DCA930013B98C000DCA + 93000DCA93000DCA94000DCA930013B98C000DCA93002FA27200D58F6A00ECA5 + 7D00E29E7900ECA57D00ECA57C00E29E7900D58F6B00000000001662C000057A + EB000388F000057BEA0000000000000000000000000000000000000000000000 + 000000000000040F0B000000000035CD980015B0810038D19B000D3427000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DDAB8600C5967400F5C9 + A300E8B69000E8B69000E8B69000E8B69000E8B69000E8B69000E8B69000E8B6 + 9000E8B69000E8B68F00E8B68F00E8B68F00E8B68F00E8B68F00E8B68F00E8B6 + 8F00F5C9A300CF9D7A00D09775000202010000000000CD896500EEA97A00DF97 + 7200DF977200DF977200DF977200DF977200DF977200DB916E000455DC000455 + DC000454DC000454DC000E40B300DC926E00DF977200DF977200DF977200DF97 + 7200DF977200DF977200CD89650000000000000000000DCB950013BA8D000DCB + 95000DCC94000DCB94000DCB940013B98C000ECB94002EA27300D68F6A00ECA5 + 7E00E39E7A00ECA67D00ECA67D00E39E7A00D5906B00000000001764C300057C + EB000389F000057CEB0000000000000000000000000000000000000000000000 + 000002090600000000002A9C750013B0820013B0820017B6870025977100030C + 0900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F4C49B00F0C19800E7B8 + 9100F7D3B400EBBD9600F5C89F00F5C79E00F5C79E00F5C79E00F5C79E00F5C7 + 9E00F5C79E00F5C79E00F5C79E00F5C79E00F5C79E00F5C79E00EBBC9600D8A6 + 8200ECB89000F2BD9400D09775000202010000000000CE8A6600EEA97B00E19A + 7400ECA77F00ECA77E00ECA77E00ECA87F00ECA87E00E09873000657DE000657 + DE000657DF000657DF000E42B700E2997400ECA77F00ECA77F00ECA77F00ECA7 + 7F00ECA87F00E1997400CE8A660000000000000000000DCD970013BD8F000ECE + 97000ECE97000DCE97000ECE980013BC8E000ECD97002CA57500D6906B00EDA7 + 7F00E5A17B00ECA77E00ECA77E00E6A17B00D6906B00000000001A66C7000581 + ED00038DF1000581ED0000000000000000000000000000000000000000000000 + 00002A9C750032D59F0014B1830010CF9E0010CF9D0012C1910031D39D0023A0 + 78000D3225000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F5C89E00F5C89E00F4C7 + 9D00D3A58200F8D9BC00F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F5CA + A100F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F8D9BC00F1BE + 9600F4C19800F4C19800D09775000202010000000000CF8A6700EEA97C00E39C + 7600EDA98100ECA98000ECA98000ECA98000ECA98000DE9671000759E0000759 + E0000759DF000759E0000D44BA00E0977200ECA88000EDA98000ECA98000EDA9 + 8000EDA98000E39C7600CF8B670000000000000000000ECF990012C090000ECF + 98000ECF99000ECF99000ECF990012BF8F000ECF99002BA67500D6906C00EDA8 + 7F00E7A27C00ECA87F00ECA87F00E7A27C00D6906B00000000001A68CB000482 + ED00038EF1000483EE0000000000000000000000000000000000000000000223 + 1A002BD19C0014B2840013B2840016D2A10011D09E0010D09E0016B6870027CB + 9900259670000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F5C89E00F5C89E00F5C8 + 9E00F3C59C00DBAD8800F9DFC500F2C59D00F2C59D00F2C59D00F2C59D00F2C5 + 9D00F2C59D00F2C59D00F2C59D00F2C59D00F2C59D00F9DFC700E2B38D00F4C4 + 9B00F4C49B00F4C49B00D09775000302010000000000D08B6800EEA97D00E49F + 7800EEAA8100EEAB8200EDAA8200EDAB8200EDAA8200DC936F00095AE100095A + E100085AE100095AE1000D45BD00DD947000EEAB8100EDAA8200EEAA8100EDAB + 8200EEAA8100E49F7800CF8B670000000000000000000ED09A0011C392000ED0 + 9A000ED09A000ED09A000ED09A0011C191000FD09A002AA67700D7906C00EDA9 + 8000E8A47D00EDA98000EDA98000E8A47D00D7906B00000000001B6ACD000486 + EF00038FF2000486EE000000000000000000000000000000000001150F002AA0 + 750015B3840013B283000FCE9B0080EFD0006EE5BF000FD19E0013B7880024C9 + 96001FB78A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F6CDA400F6CDA400F6CD + A400F5CCA300F5CCA300F5CCA300FBE8D400E9B79000E9B79000E9B79000E9B7 + 9000E9B79000E9B79000E9B79000E9B79000ECBF9700F5C89F00F5C89F00F5C8 + 9E00F5C89E00F5C89E00D09775000302010000000000D28E6900EFAE8200ECA9 + 8100F0B08600F0B08600F0B08600F0AF8600F0AF8600D68A68000D60E4000D60 + E4000D60E4000D60E5000E4DC800D78B6900F0B08600F0B08600F0B08600F0AF + 8600F0AF8600ECAA8100D28D6900000000000000000013D59F0010CB97000ED3 + 9C000FD39D000ED39D000ED39D0010C9960014D5A00027AA7800D7916D00EDAB + 8100EBA88000EDAA8200EEAA8200ECA88000D8926C00000000001E6ED200048C + F1000391F300048BF1000000000000000000000000002AA078001BD09D001DD2 + 9F000FD09E0016D4A3005DE7BF0040AC890033A37E0055DCB3000FD29F0011C0 + 90001ACC99002598710002090700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F6D0A700F6D0A700F6D0 + A700F6CFA600F6CFA600F6CFA600FDF2E600FDF4EA00FBEBD900FBEBD900FBEB + D900FBEBD900FBEBD900FDF4EA00FDF4EA00F5CBA200F5CBA200F5CBA200F5CA + A100F5CAA100F5CAA100D09775000302010000000000D38E6900EAA77D00E8A5 + 7E00EBA88000EBA88000EBA88000EBA88000EBA88000D38564000E62E6000E62 + E6000E61E5000E62E6000E50CC00D3866500EBA88100EAA98100EBA88000EBA8 + 8000EBA88000E8A57D00D38E6A00000000000000000016D7A20010CE9A000FD4 + 9E000ED59E000FD59E000ED49E0010CC990017D7A20026AA7900D8926D00EDAB + 8300EDAC8200EEAC8200EEAB8300EEAC8200D8926D00000000001F6FD400038E + F1000393F200038EF10000000000000000000001010018CF9C001CD4A00010D3 + A00016D5A3005CE8C00046CFA80000000000071E1600269F770047E4B9000FD3 + A0000FD3A0001DB78A001B725500000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D3AA00F7D3AA00F7D3 + AA00F6D2A900F6D2A900F6D3AA003786A9000685C4000685C5000299E8000299 + EC000299EF00038FE300038FE3004FA4D400F6D0A800F6CEA500F6CEA500F6CD + A400F6CDA400F6CDA400D09775000302010000000000D48F6A00DB926E00DA90 + 6E00DB926E00DB926E00DB926E00DB926E00DB926E00CE7F5F001064E7001064 + E7001064E7001064E7001054D000CE806000DB916E00DB926E00DB926E00DB92 + 6E00DB916E00DB926E00D48F6B0000000000000000001AD9A5000FD29D000ED5 + A0000FD5A0000FD6A0000FD69F0010D19C001BD9A60025AC7A00D9936D00EEAE + 8400EDAC8300EEAC8300EEAC8300EEAC8300D9926D00000000002071D7000393 + F3000393F3000393F30000000000000000002AA379001AD5A10010D4A1000FD4 + A1005BEAC1004CD7B1002CAA7F000000000000000000071E160051DCB30044E4 + B8000FD3A1001DD3A10023A178000C2F23000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00F7D5 + AD00F7D7B100F9E2CA000C8ABA00069AD60004AFF20003AFF50003ACF60002AA + F60002A8F60002A3F60001A2F70001A0F700019DF700F9E2CA00F2D7B600F7D3 + AA00F7D3AA00F7D3AA00D09775000302010000000000D6916C00CC7C5D00CC7C + 5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D001368E9001368 + E9001367EA001367EA00125BD900CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C + 5D00CC7C5D00CC7C5D00D6906C00000000000000000022DDAB000ED9A3000FD9 + A3000FD9A3000ED8A3000ED9A2000FD8A30025DFAC0022B07E00D9946E00F0B2 + 8A00EFAE8500EEAE8500EFAE8400EFAE8400D9946E00000000001584EA005DC7 + FB005DC7FB005DC7FB00000000000000000006140F003BCDA1003EE2B60056E9 + C0002EAF830000020100000000000000000000000000000000000820180027A4 + 7A004DDCB2000FD5A10015D5A1001CB88B000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00F7D5 + AD00F8DFC3000997CA000999CE0005B5F40005B5F50004B4F50004B1F50003AE + F50003ACF60002A8F60002A7F60002A5F60001A0F700019FF700F8DFC300F7D8 + B200F7D5AD00F7D5AD00D09775000302010000000000F4B78D00F5B88D00F4B8 + 8D00F4B78D00F4B78D00F4B88D00F4B88D00F4B88D00F0AF86001469EB001469 + EB00166BEB001369EB00135EDD00F2B28900F4B78D00F4B78D00F4B88D00F4B8 + 8D00F4B88D00F5B78D00F5BC9300D7916C000000000027E0AE000EDAA4000EDA + A5000FDBA4000FDAA4000FDAA5000FDAA40029E0AE0022B17F00D9946E00EFB4 + 8C00EFAF8600EEAF8500EFAF8500EFAF8600DA936E0000000000000000001584 + EA001584EA001584EA00000000000000000000000000259E760087EBCD00FFFF + FF00010504000000000000000000000000000000000000000000000000000821 + 180027A67A0036E0B30010D5A20013D4A1000C2E230000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00EED2 + B0000B9BCA000AA5D60009AFE40006B9F50006B8F50005B6F50005B5F50004B2 + F50004B1F50003ACF50002ABF60002AAF60002A5F60002A3F60001A2F700F5D7 + B500F4D6B400F7D5AD00D09775000302010000000000F5B98F00EFB08700EFB0 + 8700EFB08700EFB08700EFB08700EFAF8700EFB08700E8A57E00146BEC00146B + EC002073EE00156AEC001462E000EAA78000EFB08700EFB08700EFB08700EFB0 + 8700EFB08700EFB08700F5BD9400D8926D00000000002CE2B1000FDBA6000FDC + A5000FDBA6000FDBA6000FDCA6000FDCA6002EE3B10021B38100DA946E00F0B7 + 8F00EFAF8600EFB08600EFB08600EFB08600DA946F0000000000000000000000 + 0000000000000000000000000000000000000000000004100C0028A1790028A2 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000822190049DCB10033E0B2000FD6A300259C740002090600000000000000 + 00000000000000000000000000000000000000000000F1D3B300F5D8B700C9A5 + 8A0035C4E7000BC3F4000BC3F4000AC1F40009C0F40008BEF40007BCF50006B9 + F50006B8F50005B5F50004B4F50004B2F50036AAD700A89D9000C3A28900E1B5 + 9300F5D8B700F5D8B700DFB090000302010000000000F7C79F00F2B58C00F6BB + 9000F6BC9000F6BB9000F6BB9100F6BB9000F6BB9000EAA78000176DEE00176D + EE005196F400176EED001568E700EAA78000F6BB9000F7BB9100F6BB9100F6BB + 9100F6BB9000F6BB9000F7C7A000D9936E000000000037E6B5000FDEA9000FDE + A8000FDEA9000FDEA90010DEA9000FDEA90039E6B60020B88500DB956F00F1BD + 9400F0B18800EFB18800EFB18700EFB18700DB956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A0027A77E0046DDB10010D6A30026A97E000C2E22000000 + 00000000000000000000000000000000000000000000E8C2A200E6BA9600E0B2 + 90009EA5980055D2EA000CC5F3000BC3F4000BC3F4000AC2F40009C0F40008BD + F40007BCF50006B8F50005B6F5000AB6F300BE9F8800CDA88C00DEB59300E8BB + 9700E8BC9700E8BC9700C39071000000000000000000F8CCA600F3B78D00F6BC + 9100F7BC9100F7BC9100F7BC9100F6BC9100F6BD9100EAA88100176EEE001970 + EE0069A8F700176FEE00166BEA00E6A27C00F7BC9100F7BD9100F7BC9100F6BC + 9100F6BC9200F6BC9100F8CCA600DA946E00000000003DE8B8000FE0A9000FDF + AA000FDFAA0010E0A9000FE0AA000FDFA9003EE8B9001FB98600DB957000F2C0 + 9700F0B18800F0B18700EFB28800F0B18800DB956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B0028AA7F002BDFAF0014D09E0027A177000000 + 00000000000000000000000000000000000000000000DAA88600ECCAAC00E7BB + 9800D7AE9000B3A7930074D9EA000CC5F3000BC3F3000BC3F4000BC3F4000AC1 + F40009C0F40007BCF40021B7E60097A49D00D8B29200E4B99600E9BD9900E9BE + 9900E9BE9A00EECFB100564235000000000000000000F9DFC700F7BE9300F7BE + 9300F7BE9300F7BE9300F7BE9300F7BE9300F7BE9300E7A47E00186FEF00277A + F1007AB4F900186FEF00186EEE00E7A47E00F7BE9300F7BE9300F7BE9300F7BE + 9300F7BE9300F7BE9300FAE8D800DA946F000000000041E9BA000FE1AB000FE1 + AC000FE0AB0010E0AB0010E1AB000FE1AB0043EABB001EBB8800DC956F00F2C2 + 9900F0B28800EFB38900EFB28800F0B28800DC956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B0044DDB10028DFAF001DBC8E000000 + 000000000000000000000000000000000000000000000000000055413400DAA8 + 8600EAC09B00E9BE9900E5BB98009CE8F30011CDF2000FCAF3000DC8F3000CC5 + F3000EC9F400C1A78F00DAB59500E8BF9C00ECC29D00ECC29D00ECC39D00F2D6 + B900DEAE8D0056423500000000000000000000000000DA957000AE8989003648 + 99001E359200454C910061517800B67E6200BF82600095654A00146BEC00146B + EC00146BEC00146BEC00BF82600095654A00B67E63008C6B70007F708E00203E + 9A001A3B9B00374E9D00DA9570008D654A00000000004CECBE0010E3AE000FE3 + AD0010E2AE000FE2AD000FE3AE0010E3AD004EECBF001DBE8B00DC967000F5F9 + F700F7E1BA00F7E1BA00F7E1BA00F7E1BA00DC96700000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C002AAC7F0040DCB00029A4 + 7A00020806000000000000000000000000000000000000000000000000005541 + 3400F2D8BD00ECC19E00EBC19C00CBB99E00AFEEF80012CEF20010CCF30013CE + F3005CBFC800E3BD9A00ECC39E00EEC59F00EEC59F00EEC59F00EEC5A000DFB0 + 8E00574335000000000000000000000000000000000017234F000E33A0001F5D + CE000D46BB000B4ECB000A44BB000C2890001C3796005B568400062E9E00062E + 9E00062E9E00062E9E00947272005C5984000F379E000D3FAD000C4CC4000E48 + BE001662DF002063D400615A7500000000000000000051EDC0000FE3AF0010E4 + AF0010E4AE0010E4AF0010E3AF0010E4AE0053EDC1001DC18D0054392B00D796 + 7000F2AF8500F3AE8500F2AE8500F2AE850035261D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D002BAC800026C1 + 94001B7256000000000000000000000000000000000000000000000000000000 + 0000DCAA8800F5DBC100EDC59F00ECC39D00CDC2A600BFF1FA0015D3F2005AC7 + CE00DCB99800EEC7A100EEC7A100EFC8A200EFC8A200EFC8A200F4DBC0005844 + 360000000000000000000000000000000000000000000C317F001653C5003880 + ED000E50CC000C5FE3000448CE000E35A5000E34A4000D35A600103CAD004990 + F1004990F100103CAD001345B2000E36A3000E35A5000E35A5000D40B5000E50 + CC00387BEC003880ED000C317F00000000000000000056EEC20010E5AF000FE5 + B00010E5B00010E4AF0010E5B00010E5B00058EEC2001CC28F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D003ADB + AD002BB285000B2C210000000000000000000000000000000000000000000000 + 00000000000058443600DDAD8B00F0CAA300F1CBA400F1CBA400F0CBA400F1CC + A400F2CCA500F2CDA500F2CDA500F3CEA600F5DDC300E1B593005B4637000000 + 000000000000000000000000000000000000000000000B317F00215BCA005195 + F8000C5BDD000C5FE3000E60E3002672E6002A6CDD00124FCB00123AA300173F + A5001241AE001241AB000E45B6000D4CCB00206CE4002270E7000E60E3000C5B + DD005091F6005195F8000B317F0000000000000000005FEFC40010E7B10010E7 + B10010E6B10010E7B10010E6B10010E6B10061EFC5001CC59100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E002CAF840032C0930000000000000000000000000000000000000000000000 + 000000000000000000005A453700F7DFC600F7DEC200F7DEC200F7DEC200F7DE + C200F7DFC200F7DFC300F7DFC300F8DFC300E2B695005D473800000000000000 + 00000000000000000000000000000000000000000000092869002158C700579B + FD001C6CE6003781EC00478AEB000D48C8000D40B8000D34A000000001000000 + 00000000000000000200061B48000F3EA5000D49C8002464D800478AEB001C6C + E6005698FC00579BFD0009286900000000000000000063F0C50010E7B20010E7 + B20010E7B20010E7B20010E7B20010E7B20065F0C5001CC79200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F002CB1850013392C00000000000000000000000000000000000000 + 0000000000000000000000000000B28B6F00E8BC9800E8BC9800E8BC9800E8BD + 9800E8BD9900E8BE9900E8BE9900E9BE99005E48380000000000000000000000 + 00000000000000000000000000000000000000000000061C4A001B50BE00599C + FD0097C3FA001859D4000D47C7000D36A4000820620000030B00000000000000 + 000000000000000000000000000001040B000F40A9000E46BC000D48C70097C3 + FA009BC8FD00599CFD00061C4A00000000000000000068F0C70010E7B20010E7 + B20010E7B20010E7B20010E7B20010E7B20068F0C7001DC89400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B20002FAE8400020806000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963001143 + B8000C329600071C570001030C00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C000C3A + 9A000E42B0001249BB000000020000000000000000001BCB970020CA970021CB + 980021CB980021CB980021CB98001FCB970018C3900000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B20002EAE83000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E0000000000000000000000000000000000000000000534 + 6A0012589F0012589F0012589F0012589F0012589F0012589F0012589F001258 + 9F0012589F0012589F0012589F0012589F0012589F0012589F0012589F001258 + 9F0005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4003569DC003569DC003569DC003569DC00173BB60006338400093889000938 + 8900093889000C3C8F0006338400173BB6003568DC003568DC003568DC003568 + DC002E54D40000000000000000000000000000000000CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A000F509400073B7500073A7400073973000739720007387100063770000637 + 6F0006376F0006366E0006356D0005356D0005356C0005346B0005346B000E50 + 940005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D400366DDD00366DDD00366DDD00366CDD00173BB6000633840013469D001346 + 9D0013469D000E3E920006338400173BB600366CDD00366CDD00366CDD00366C + DD002E54D40000000000000000000000000000000000CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A000F519500F6DDB600F6DDB500F6DDB400F6DDB400F6DCB300F6DCB300F6DC + B300F6DCB200F6DCB200F6DCB200F9E9C100FAEDD200F9E9CD00F7E1BD000F51 + 950005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4005799EB005799EB005799EB0072B7FF00173BB600063384001548A0001448 + A00014489F001142970006338400173BB6005799EB005799EB005799EB005799 + EB002E54D40000000000000000000000000000000000CDCDCD00CCCCCC00DF98 + 7100EBA27900EBA27900EAA27900EAA27900EAA27900EAA27900EAA27900FCC8 + A500EAA27900EAA27900EBA27900EAA27900EAA27900EAA27900EAA27900DF98 + 7100CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A0011549900F6DFB900F6DFB800F6DEB700F6DEB700F6DDB500F6DDB400F6DD + B400F6DDB400F6DDB400F6DDB400F6DDB400F8E5BB00FCF5D300FDF6DD001154 + 990005346A0000000000000000000000000000000000BD846200E8A97F00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00D595 + 7000140E0B000000000000000000000000000000000000000000000000000000 + 0000D4D4D400BFBFBF00BFBFBF00BFBFBF009C9C9C0006338400194FA700184E + A700184EA700184EA500063384009C9C9C00BFBFBF00BFBFBF00C3C3C300B3B3 + B3000000000000000000000000000000000000000000CECECE00CDCDCD00DE97 + 7100EBA37A00EBA27A00EAA37A00E9A17800EAA17900EBA37A00EAA27A00FCC8 + A500EAA27A00EAA27900EBA37900EBA27A00EAA37A00EBA37A00EBA27A00DF98 + 7100CDCDCD00CDCDCD0000000000000000000000000000000000000000000535 + 6B0011559B00F6E0BB00F6DFB900F6DFB800F6DEB800F6DEB700F6DDB600F6DD + B600F6DDB500F6DDB400F6DDB400F6DDB400F6DDB400F7DFB700FBF1CC001155 + 9A0005356B0000000000000000000000000000000000B57D5B00F6BB9100E09B + 7300D5916A00D6926B00D8946C00D8956D00D9956D00DA966F00DB976F00DB97 + 6F00DB976F00DD997100DE997100DE997100E09A7200E09A7200E09B7300E09C + 7400B07C5E000000000000000000000000000000000000000000000000000000 + 0000D4D5D500BFBFBF00CBCBCB00CDCDCD009C9C9C0006338400093889000938 + 8900093889001951AA00063384009C9C9C00CBCBCB00CBCBCB00BFBFBF00B3B3 + B3000000000000000000000000000000000000000000CFCFCF00CECECE00DB94 + 6E00EBA37A00EAA37A00E8A17800DC977000E0997100E8A07900EAA37A00FCC8 + A500EBA47A00EBA37A00EBA37B00EBA37A00EBA37A00EBA37A00EAA47B00DF98 + 7100CECECE00CECECE0000000000000000000000000000000000000000000535 + 6C0012569D00F6E0BC00F6E0BB00F6E0BA00F6E0BA00F6DFB900F6DEB700F6DE + B700F6DEB700F6DDB600F6DDB500F6DDB500F6DDB500F6DDB500F6DEB5001256 + 9D0006356C0000000000000000000000000000000000B67E5C00FDEFE200EDAC + 8300E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A3 + 7A00E9A47A00E9A47A00E9A47B00E9A47B00E9A47B00E9A47B00E9A47B00E19C + 7400D3946F000000000000000000000000000000000000000000000000000000 + 0000D6D6D600C3C3C300D3D3D300D6D6D6009C9C9C00063384001D58B0001D57 + B0001D57AF0011449800063384009C9C9C00D6D6D600D3D3D300BFBFBF00B3B3 + B3000000000000000000000000000000000000000000D1D1D100D0D0D000CC87 + 6300D18C6800CF896500CA856200CE9B8100C7825F00D18C6800EBA47B00FCC8 + A500ECA57C00ECA57C00E8A37B00E9A27A00EBA57C00EBA57C00ECA57C00DF9A + 7300D0D0D000D0D0D00000000000000000000000000000000000000000000637 + 6F001359A000F7E2C000F7E2BF00F7E2BE00F7E2BE00F6E0BD00F6E0BB00F6E0 + BB00F6E0BB00F6DFBA00F6DFB900F6DFB900F6DFB900F6DEB800F6DEB8001359 + A10006366F0000000000000000000000000000000000B67E5D00F4C19600EDB1 + 8700E19C7400EAA57C00EAA57C00EAA67D00EAA67D00EAA67D00EAA67D00EAA6 + 7D00EAA67D00EBA77D00EBA77E00EBA77E00EBA87E00EBA87E00EBA87E00EAA7 + 7E00E6A57B00C88D6B0000000000000000000000000000000000000000000000 + 0000D9D9D900D0CFCF00D8D8D900D8D9D9009C9C9C0006338400215EB800205D + B700205EB7001952A900063384009C9C9C00D9D8D800D9D8D800C4C4C400B3B3 + B3000000000000000000000000000000000000000000D2D2D200D1D1D100D7A7 + 8E00C7836000CD8E6F00DBBCAC00E4E2E100D49E8100C9846100E59F7800FBC7 + A400EBA67D00E6A27900DE9A7300DC977000EAA57D00ECA67D00ECA67D00DF9A + 7300D1D1D100D1D1D10000000000000000000000000000000000000000000737 + 7000135AA300F7E3C100F7E2C000F7E2C000F7E2C000F7E2BF00F7E1BE00F7DF + BC00F7E0BA00F7E1BB00F7E0BA00F7E0BA00F7E0BB00F7E0BA00F7E0BA00135B + A3000737710000000000000000000000000000000000B7805E00F3C29700CC8F + 6900E19E7600EAA67D00EBA87E00EBA87E00EBA87E00EBA87F00ECA97F00ECA9 + 7F00ECA97F00ECA97F00ECAA8000ECAA8000ECAA8000ECAA8000EDAA8000EDAB + 8100E9A77E00DB9C760000000000000000000000000000000000000000000000 + 0000DADADA00D6D6D600DADADA00DADADB009C9C9C00063384003786D5003786 + D5003786D5001E5AB200063384009C9C9C00DADADA00DADADA00CCCCCC00B3B3 + B3000000000000000000000000000000000000000000D3D3D300D2D2D200E6E4 + E300DFC4B500E6E4E300E6D6CC00E8BBA100E5DED900CE906F00DA956F00F5BF + 9D00EAA57D00D9946D00CB876300CA866300E8A37A00EBA77E00ECA77E00E09B + 7400D2D2D200D2D2D20000000000000000000000000000000000000000000738 + 7200145BA400F8E3C300F7E3C200F7E3C100F7E3C100F7E2C000F7E2BF00F7E1 + BD00F6DFBA00F7DFBA00F7E1BB00F7E1BC00F7E1BC00F7E0BB00F7E0BB00145C + A5000738720000000000000000000000000000000000B77F5E00F3C39700C286 + 6100E8AB8200E5A47A00ECAA8000EDAA8000EDAB8100EDAB8100EDAB8100EDAB + 8100EDAC8200EDAC8200EDAC8200EEAC8300EEAD8300EEAD8300EEAD8400EEAD + 8400EDAD8300E9AA800000000000000000000000000000000000000000000606 + 0600DCDBDB00DCDCDB00DBDCDB00DBDBDC009C9C9C00063384002260BA002260 + BA002260BA002260BA00063384009C9C9C00DBDBDB00DBDBDC00D3D3D300ADAD + AD002C2C2C0000000000000000000000000000000000D5D5D500D4D4D400E19C + 7500ECA98000ECA98000EDA98000EDA98000ECAA8200E9DAD100CA866200CE8D + 6B00CB876400E4D5CE00E9E5E300DFBFAE00D08D6800E29F7700ECA87F00E09C + 7500D4D4D400D4D4D4000000000000000000000000000000000000000000073A + 7600155EA900F8E5C400F8E4C300F8E4C300F8E4C300F8E4C300F7E3C200F7E2 + C100F6E1BE00F5DAB400F5DCB300F6DEB900F7E3C000F7E2BF00F7E2BE00155F + A900083A760000000000000000000000000000000000B7806000F2C49900CC90 + 6A00EEC49900EBAC8300EDAD8400F0B08600F0B18700F0B18700F1B18800F1B1 + 8800F1B28800F1B38800F1B38900F1B38900F1B48900F1B48900F2B48A00F2B4 + 8B00F2B48B00F3B58B00936A5000000000000000000000000000000000001935 + BF009F9F9F00D4D4D500DEDFDE00DFDEDE009C9C9C003786D5003786D5003786 + D5003786D5003786D5003786D5009C9C9C00DEDEDF00DEDEDF00D1D0D000A3A3 + A3001226AD0000000000000000000000000000000000D7D7D700D6D6D600EBB1 + 8F00FCC9A600FCC9A600FCC9A600FCC9A600FCC9A600F9CAAB00DEB49D00C887 + 6500D6A99100EBCDBA00F4C4A600ECE7E400CC8B6900DCA07E00F3BD9B00EBB1 + 8F00D5D5D500D5D5D5000000000000000000000000000000000000000000083B + 78001660AB00F8E5C700F8E5C500F8E5C400F8E5C400F8E4C300F8E4C300F8E4 + C300F8E3C200F5DFB700F5DBB200F5DCB400F7E1BE00F7E3C000F7E3C0001660 + AB00083C780000000000000000000000000000000000B8816000F2C79A00D195 + 6E00E5B28700EFC09400ECAF8500F2B48A00F2B48A00F2B48B00F3B58B00F3B6 + 8B00F3B68B00F3B68B00F3B68C00F3B68C00F4B78D00F4B78D00F4B78D00F4B8 + 8E00F4B88E00F4B88E00CA926F00000000000000000000000000000000001935 + BF00A1A1A1009F9F9F00D5D5D500E0DFDF00DFE0E000E0DFE0002A8F60000CC7 + 90002A8F6000E0E0E000E0DFE000E0E0DF00DFE0E000D2D2D2009C9C9C004275 + DB001226AD0000000000000000000000000000000000D8D8D800D7D7D700E19E + 7700EDAB8200EEAB8200EEAB8200EDAB8200EDAB8200EDAB8200EEE9E700E7D1 + C300ECE3DE00EBA98100EDAB8200EBB99A00D29B7E00CA866300DB977200E19E + 7700D7D7D700D7D7D7000000000000000000000000000000000000000000093C + 7A001662AD00F8E6C900F8E5C800F8E5C700F8E5C700F8E5C500F8E4C400F8E4 + C300F8E4C300F8E1BF00F5DFB800F4DAB000F5DFBA00F7E1BF00F7E3C2001661 + AD00093D7A0000000000000000000000000000000000B8826100F1C89B00D69A + 7200D79B7300F0C99C00F2B58B00F4B78D00F4B88D00F4B88E00F4B88E00F4B9 + 8E00F4B98E00F5B98F00F5B98F00F5BA8F00F6BA9000F6BB9000F6BB9000F6BB + 9000F6BB9000F6BB9000E8AD8500624836000000000000000000000000001935 + BF004275DB00A2A2A2009F9F9F00E1E1E100E1E1E100E1E1E1000CC790002A8F + 60002E54D4002A8F6000E1E1E100E1E1E100D2D2D2009D9D9D00A4A5A5004A8D + EB001226AD0000000000000000000000000000000000DADADA00D9D9D900E19F + 7800EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400FCC8 + A500EEAD8500EEAD8400EEAD8400EEAD8400EFD7C800ECD9CF00CA866300DA98 + 7200D9D9D900D9D9D90000000000000000000000000000000000000000000A3F + 7E001864B200F8E7CB00F8E7CA00F8E7CA00F8E7CA00F8E6C900F8E5C800F8E5 + C800F8E5C800F8E5C500F8E4C400F8E2C100F6DBB400F5DBB300F7E0BD001864 + B1000A3F7E0000000000000000000000000000000000B8836200EFC99C00DFA3 + 7B00DFA37B00E2A77F00FFFAF100FDF1DF00FDEFDB00FDEDD900FCEAD200FBE9 + CF00FAE7CC00F9E2C400F9E1C100F8DFBE00F8DDBA00F7DCB800F7DCB800F6DB + B700F6DAB600F6DAB600F5D9B500D7A481000000000000000000000000001935 + BF003562DA005092EF004275DB00A0A0A000D8D9D900E4E3E300154BA300F1B1 + 8700F1B18700E4E4E300E3E3E300D5D5D500A4A4A5004275DB004B8EEC001934 + BF001226AD0000000000000000000000000000000000DBDBDB00DADADA00E2A0 + 7900EFAE8500EEAE8500EFAE8500EEAE8500EFAE8500EFAE8500EEAE8500FCC9 + A600EEAE8500EFAE8500EEAE8500EFAE8500ECAE8700F2E4DC00E5C7B500D28E + 6A00DADADA00DADADA0000000000000000000000000000000000000000000A41 + 81001965B300F8E8CC00F8E7CB00F8E7CB00F8E7CB00F8E7CA00F8E6C900F8E6 + C900F8E6C900F8E5C800F8E5C700F8E5C700F6E0BB00F5DAB300F6DCB6001865 + B3000A40810000000000000000000000000000000000B9836300EFCA9C00E3A8 + 7F00E3A87F00E3A87F00E7AE8700E9AF8500E9AF8500E9AF8500E9AF8500E9AF + 8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500DBA0 + 790091674E008A624A00886149003D2C21000000000000000000000000000C17 + 3A002E54D4003563DA005699F100A1A1A300A0A0A000DADAD900154BA300F1B1 + 8700F1B18700E5E5E500D5D5D6009D9D9D004275DB004B8EEC002447CA001226 + AD00060E340000000000000000000000000000000000DCDCDC00DBDBDB00E2A1 + 7900EFAF8600EEAF8600EEAE8500EFAF8600EFAF8600EFAF8600EFAF8600FCC9 + A600EEAE8600EEAF8600EFAF8600EFAF8600EFAF8600ECB58F00F5EFEB00CC88 + 6400DBDBDB00DBDBDB0000000000000000000000000000000000000000000B41 + 82001966B500F8E8CE00F8E8CD00F8E8CC00F8E8CC00F8E7CB00F8E7CA00F8E7 + CA00F8E7CA00F8E6C900F8E5C800F8E5C800F8E2C300F6E0BC00F5DDB5001967 + B5000B42820000000000000000000000000000000000B8846300EFCA9D00E8AD + 8400EFB58A00EFB58B00EFB58B00EFB48A00EEB48A00EEB48A00EDB38900EDB3 + 8900EDB38900ECB28800ECB18800ECB18700EBB08600EAB08600EAAF8600DCA0 + 790017100B000000000000000000000000000000000000000000000000000000 + 00001935BF002E54D4003664DA004275DB00A1A1A300A0A0A000063384000633 + 840006338400D6D6D6009D9D9D00A4A5A5005093EF00244ACB001934BF00060E + 33000000000000000000000000000000000000000000DEDEDE00DDDDDD00E3A1 + 7A00EFB18700EFB18800EFB08700EFB08800EFB18700EFB18700EFB18800FCCA + A700EFB18700EFB18700EFB18800F0B18800EFB18800EFB08800EFB08800F5EA + E300DDDDDD00DDDDDD0000000000000000000000000000000000000000000C44 + 87001B69B900F9E9D000F8E9CF009B9280009B9280009B927F009B927F009B92 + 7F009B927E009B917E009B917D009B917D009B917D00BFB29900F8E5C7001B69 + B8000C44870000000000000000000000000000000000BA866500EECC9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100E2A7 + 7F00140E0A000000000000000000000000000000000000000000000000000000 + 0000000000000B1535001935BF003664DB00579BF2004275DB00A0A0A000DBDC + DB00D8D7D800A3A4A7004275DB00579AF100878CA6001226AD00060D2F000000 + 00000000000000000000000000000000000000000000DFDFDF00DEDEDE00E3A3 + 7B00EFB28800F0B18800EFB28800F0B18800EFB18800EFB18800F0B28800FCCA + A700EFB28800F0B18800EFB28800EFB28900F0B18800EFB18800F0B18800EFD1 + BD00DEDEDE00DEDEDE0000000000000000000000000000000000000000000D45 + 8A001B6AB900F9EAD100F9E9D000565544005755450057554400575644005755 + 44005655440057554500575544005756440086806C009B917D00F8E7CA001B69 + BA000D45890000000000000000000000000000000000BC886700EDCC9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100FADDB800FADD + B800FADDB800FADDB800FADDB800FADDB800FADDB800FADDB800FADDB800D198 + 7300050302000000000000000000000000000000000000000000000000000000 + 000000000000000000000B1432002E54D4003664DB00589BF200A0A1A400A0A0 + A0009D9D9D004275DB00579BF200061D9400ABABAB00050C2D00000000000000 + 00000000000000000000000000000000000000000000E1E1E100E0E0E000E2A3 + 7B00EFB28900F0B28900F0B28900F0B28900F0B28800F0B28900EFB28900FCCA + A700F0B28900EFB28900EFB28900EFB28900EFB28900EFB28900F0B28900E9B7 + 9800DFDFDF00DFDFDF0000000000000000000000000000000000000000000D47 + 8C001C6BBB00F9EAD200F9EAD100908974009089740090897400908974009089 + 7400908974009089740090897400908974005A5A48009B917E00F8E7CB001C6A + BB000D468C0000000000000000000000000000000000BF8A6900EDCD9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F3D2AE00DDAC8E00DDAC + 8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E003B2B + 2000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BF002E54D4003664DB004275DB009FA1 + A5009D9FA700589CF200061D9400A0A5BF00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000E3E3E300E2E2E200E3A3 + 7C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00EBB2 + 9000E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A3 + 7C00E2E2E200E2E2E20000000000000000000000000000000000000000000E49 + 90003786D5003786D5003786D500F5F6EF00E3E5D200D3D6B600D3D6B600D3D6 + B600D3D6B600D3D6B600D3D6B600DDDFC70064634F002F5B83003786D5003786 + D5000E4990000000000000000000000000000000000087634C00D9A68600D89D + 7800D69C7700D69B7700D69B7700D49A7500C18B6900271C1500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E001935BF003563DA0072B7 + FF0072B7FF001934BF00ABABAB00CCCCCC00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000E4E4E400E3E3E300E3E3 + E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3 + E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3 + E300E3E3E300E3E3E30000000000000000000000000000000000000000000B39 + 71000E4A93000E4B92000F4A920068675400686754006867540072725E007272 + 5E0072725E0072725E006868540068675400455C6D00183A5E000E4B92000F4A + 92000B3971000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C002E54D4003F82 + E6003F82E6001226AD00ABABAB00CCCCCC00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B5700646351006463 + 510064635100646351006D6C5800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BF003F82 + E6003F82E600050A2600ABABAB00E4EBEB00ABABAB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545380073725D007372 + 5D0073725D0073725D0045453800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 1800020616000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000000000000034343300232323002222 + 220022222200212121002121210020202000202020001F1F1F001F1F1F001E1E + 1E001E1E1E001D1D1D001D1D1D001D1D1D001C1C1C001C1C1C001B1B1B001B1B + 1B001B1B1B001A1A1A0034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000000000000036363500F4E0BD00F7E2 + BF00F7E2BE00F7E2BE00F7E1BD00F7E1BC00F7E1BC00F7E0BB00F7E0BB00F7E0 + BA00F7E0BA00F7E0BA00F7E0BA00F7E0BA00FAEFCC00F9EED000F7EBCF00F5E5 + C900F2DFC000F2DAB60034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A4000000000000000000000000000000000039393700F7E3C100F7E3 + C100F7E2C000F7E2BF00F7E2BE00F7E2BE00F7E2BE00F7E1BD00F7E1BC00F7E0 + BB00F7E0BB00F7E0BA00F7E0BA00F7E0BA00F8E3BC00FCF3CE00FDF7D800FEF9 + E400FEF9E700F3DEBB0034343300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A00000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003E3D3B00F8E4C400F8E4 + C400F7E4C300F7E4C300F7E3C200F7E3C100D8C7A9008C817100F7E2BF00F7E2 + BE00F7E2BE00B4A48C00756C5D00736A5C00F5DEBA00F7E0BB00F7E0BB00FCF5 + D300FDF7DB00F8EBD00034343300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C90000000000000000000000000000000000040403C00F8E5C700F8E5 + C700F8E4C500F8E4C400F7E4C300F7E4C300B7AA940026262600F7E3C100F7E2 + C000F7E2C0001D1D1D001C1C1C001F1F1E00615A4E00F5DFBB00F7E1BC00F7E1 + BC00FBEFCC00FAF1D20034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC0000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C000000000000000000000000000000000042423E00F8E6C900F8E6 + C900F8E5C800F8E5C700F8E4C500F8E4C400B9AB950029292900F7E4C300F7E3 + C200E2D0B20025252400C9B79D00EDD9B7001B1B1B00AA9C8500F7E2BE00F7E1 + BD00F7E1BC00F9E9C30034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E0000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA000000000000000000000000000000000047474200F8E7CC00F8E7 + CC00F8E7CB00F8E7CB00F8E6CA00F8E6C900BBAF9A0030303000F8E5C700F8E4 + C500F8E4C500F7E4C300F7E4C300F7E4C30022222200766E6100F7E3C100F7E2 + C000F7E2BF00F7E2BF0034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA5000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF800000000000000000000000000000000004A494400F8E8CE00F8E8 + CE00F8E7CD00F8E7CC00F8E7CB00F8E7CB00BCB09D0033333300F8E6C900F8E5 + C800F6E3C50056524C00BDAF9900C9B9A10026262600AB9F8B00F7E4C300F7E3 + C200F7E3C100F7E3C10034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD0000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC0000000000000000000000000000000000000000004C4C4600F9E9CF00F9E9 + CF00F8E8CE00F8E8CE00F8E7CD00F6E5CA00BDB19F0037373700F8E7CB00F8E6 + CA00F8E6CA002E2E2E002D2D2D002C2C2C006E685E00F7E3C300F8E4C400F7E4 + C300F7E4C300F7E4C30034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D50000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000051514900F9EAD200F9EA + D200F9E9D100F9E9D100F9E9D000464544003E3E3E003D3D3D00F8E8CE00F8E7 + CD00F8E7CD00353535009E948500E2D3B900E2D2B800F3E2C400F8E6C900F8E5 + C800F8E5C700F8E5C70036363400000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB0000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000053534B00F9EBD400F9EB + D400F9EAD300F9EAD200F9E9D100E1D3BD005D5B570041414100F9E9CF00F8E8 + CE00F8E8CE0039393900383838003636360033333300CBBDA700F8E7CB00F8E6 + CA00F8E6C900F8E6C90036363500000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000053534B00F9ECD500F9EC + D500F9EBD400F9EBD400F9EAD300F9EAD200DACEB900504F4D00F9E9D100F9E9 + D000F9E9D0006B6760006A66600069655F0067635C00D7C9B100F8E7CC00F8E7 + CB00F8E7CB00F8E7CB0038383600000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D60000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000058584F000C5DDD000B5C + DC000A5ADA000959D9000958D8000855D6000754D5000653D4000551D2000550 + D100044FD100034DCF00034DCE00024CCE00024BCD00024BCD00024BCD00024B + CD00024BCD00024BCD003A3A3800000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C80000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 000000000000000000000000000000000000000000005A5A50000C5EDE000C5D + DE000B5BDC000A5ADB000A59DA000957D8000856D7000755D6000653D4000652 + D3000551D200044FD000044ED000034DCF00024CCE00024BCD00024BCD00024B + CD00024BCD00024BCD003C3C3900000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 000000000000000000000000000000000000000000005D5C52000D5FE0000D5F + DF000C5DDD000B5CDD000B5BDC000A59DA000958D9000857D8000754D6000753 + D5000652D4000550D200044FD100044ED000034DCE00034CCE00024BCD00024B + CD00024BCD00024BCD003E3E3B000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC700000000000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF20000000000000000000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 00000000000000000000000000000000000000000000626156000E61E1000E61 + E1000D60E0002A70E4003D79E6003270E0000B5BDC000A5ADB000958D9000857 + D8000856D7000753D5000652D4002769DF003B77E500306CDD00044ECF00034C + CE00024BCD00024BCD0043433F0000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF6000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D2000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 00000000000000000000000000000000000000000000646458000E61E1000E61 + E1001F6BE4002E65D00013389600133896002A5CBF000B5CDC000A5ADA000959 + D9000957D8000855D6001B62DC002D63CE0017327100133896002A5EC500034D + CF00034CCE00024CCE004545400000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000067665A000E61E1000E61 + E1001565E200133CA000526D9700506C9700163A8B000C59D5000B5BDC000A5A + DB000A59DA000957D800115BD900123BA0004774C500506C97001742A400044E + D000034ECF00034DCF004848420000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C900000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 000000000000000000000000000000000000000000006B6B5D00579BF000579B + F000579BF000579BF00046453D0048473F00345E98004C89D600579BF000579B + F000579BF000579BF000579BF000579BF0003D3C360048473F00345E9800579B + F000579BF000579BF0004B4B45000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C900000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5F004078AF002380 + E4002380E4002380E4003D3C36003D3C3600164883001F6EC5002380E4002380 + E4002380E4002380E4002380E4002380E4003D3C36003D3C3600164883002380 + E4002380E4003770A9004F4E470000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5F006C6C5E006B6B + 5D006A695C0069685B00A9A98A00B8B9980032363F0052544F00636257006261 + 5600626156005F5F54005E5E53005E5D5300D4D4AB00B8B998002C313B005858 + 4F0058584F0057564E0079786D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000051504400515044000000000000000000000000000000 + 0000000000000000000000000000000000006867580051504400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F400000000000000000000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 000000000000000000000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF50000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB100000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF8000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB500000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA00000000000000000000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB00000000000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 000000000000000000000000000000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC00000000000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 00000000000000000000000000000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C000000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD00000000000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C00000000000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC30000000000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF000000000000000000000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D70000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB10000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C500000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE100000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB00000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE3000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD8000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE00000000000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E400000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F6000000000000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF3000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F7000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB00000000000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F3000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF8000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D100000000000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC200000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 000000000000000000000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F900000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF300000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 00000000000000000000000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 00000000000000000000000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F9000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA0000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 00000000000000000000000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 00000000000000000000000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 000000000000000000000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 000000000000000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000339F7000339F7000339F7000339F7000339F7000339F + 7000339F7000339F7000339F7000339F7000339F7000339F7000000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E332400339F + 70000E3324000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000032A0720012BC8E0012BC8E0012BC8E0012BC8E0012BC + 8E0012BC8D0012BC8E0012BC8D0012BC8E003CD7A70032A17200000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424003AD6A60013BA + 8C003AD6A6000F34240000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 00000000000000000000000000000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A1720012BD8E0012BC8E0012BD8E0012BC8E0012BD + 8E0012BC8E0012BD8E0012BD8E0012BD8E003CD7A70031A17200000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34240032A1710013BA8C0013BA + 8C0013BA8C0031A071000F342400000402000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A2730011C090000DCB95000CCA94000DCB94000CCB + 95000CCB94000CCB95000CCA95000CCB95003CD7A70030A27300000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34240030A1720035D5A50011BE8E0012BD + 8E0013BB8D0035D5A50030A172000F3424000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA5750011C291000CCD97000DCD97000CCC96000CCC + 96000CCC97000DCC96000DCC96000DCC97003BD7A7002EA57400000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34240030D4A30012BD8E0012BD8E000DCB95000DCB + 96000DCB950012BD8E0012BD8E0030D4A3000F34240000040200000000000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002CA6760011C392000DCE98000DCE98000DCD97000DCE + 97000DCD98000DCE98000DCD97000CCE97003BD7A7002CA67600011C14000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000F3424002DA5750012BE8F0012BE8F000ECC97000ECC96000DCC + 96000ECC96000ECD970012BE8E0012BF8F002DA575000F342400000000000000 + 0000000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002BA7760010C492000DCE98000DCF99000DCF99000DCE + 98000DCF99000DCE99000DCE99000DCF99003AD7A6002BA87700000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F3424002CA676002AD3A20011C090000ECD98000ECD98000ECE97000ECD + 98000DCE97000ECE98000ECD980011C190002AD4A1002CA676000F3424000000 + 0000000000000000000000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD0000000000000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA790010C794000DD19B000DD19B000ED19B000DD1 + 9B000ED19B000DD19B000ED19B000DD19A0038D7A60028AA7900000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000F34 + 240024D4A10010C9950010C995000ED09B000ED09A000ED09A000ED09B000ED0 + 9A000ED09A000ED09A000ED09A000ED09A0010C9960010C9950024D4A1000F34 + 24000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D400000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7A0010C795000DD29C000ED29C000ED29C000ED2 + 9C000ED29C000DD29D000DD29D000DD29C0037D6A60026AB7A00000E0B000000 + 00000000000000000000000000000000000000000000000000000F34240027AB + 7A000FCC98000FCC97000ED19C000ED19C000ED19C000ED19B000FD19C000ED2 + 9C000ED19C000ED29B000ED19C000ED29C000ED19B000FCB97000FCC980027AA + 7A000F342400000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7B0011C996000ED39D000DD39D000ED39E000DD3 + 9E000ED39D000DD39E000ED39D000DD49D0036D6A60025AD7B00000E0B000000 + 000000000000000000000000000000000000000000000F34240026AC7B001ED4 + A1000FCF9A000ED39D000ED39D000ED29D000ED39D000ED29D000FD39D000ED3 + 9D000ED29D000ED39D000ED39D000ED39D000FD29D000ED39C0010CE99001ED4 + A10026AC7A000F3424000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A200000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000022B17E0010CB98000ED6A0000ED69F000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A00033D7A60022B07D00000000000000 + 0000000000000000000000000000000000000F342400D0F5EB0057E7BE0057E7 + BE0056E9BF0057EABF00CEF5EB000ED59F000ED5A0000ED5A0000ED5A0000ED6 + A0000ED5A0000FD6A0000ED59F000ED59F0023DBA900CEF5EB0056EABF0057E7 + BE0057E7BE00D0F5EB000F34240000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 00000000000000000000000000000000000020B27F0021B27F0021B27F0021B2 + 7F0020B27F0021B27F0021B27F0010CC99000ED7A2000ED7A1000FD7A1000ED7 + A1000ED8A1000ED7A1000ED7A1000ED7A10031D7A60021B27F0020B27F0021B2 + 7F0020B27F0020B27F0021B27F000000000021B17E0021B17F0021B17F0020B1 + 7F0021B17F0021B17F0019B885000FD7A2000ED7A1000ED7A1000FD7A1000FD6 + A1000FD7A2000FD6A1000FD7A1000ED7A10027DEAC0018B9850021B07E0021B1 + 7F0021B17E0021B17E0021B17F000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB00000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000005291D0042E6B8003EDCB0003EDC + B0003EDCB0003EDCB0003EDCB00011CE9B000ED9A3000ED8A2000ED8A3000ED8 + A3000ED8A2000ED8A2000ED8A3000FD9A2003EDCB0003EDCB0003EDCB0003EDC + B0003EDCB00038E3B40005291D00000000000000000000000000000000000000 + 0000000000000000000017BB87000FD8A3000FD8A3000FD8A3000FD8A2000FD9 + A3000FD8A2000FD8A2000ED9A3000ED8A3002CE0AE0017BA8700000000000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB400000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 0000000000000000000000000000000000000000000005291D001CB7830052EB + C0000FDAA5000EDBA5000EDAA4000FDBA5000EDBA5000FDAA5000EDBA5000FDB + A5000FDBA5000EDBA5000FDBA5000FDBA5000FDBA4000EDBA5000EDBA50049E9 + BC001CB7830005291D0000000000000000000000000000000000000000000000 + 0000000000000000000014BD8A000FDBA5000FDBA6000FDBA6000FDBA6000FDA + A5000FDBA6000FDBA5000FDAA6000FDBA50035E4B40014BD8A00000000000000 + 000000000000000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000000000000005291D001AB8 + 84000FDCA6000FDCA6000FDCA6000EDCA7000EDCA6000FDCA6000FDCA6000FDC + A6000EDCA6000FDCA6000EDDA6000FDCA6000FDCA6000FDCA6000FDCA6001AB8 + 840005291D000000000000000000000000000000000000000000000000000000 + 0000000000000000000013BF8B000FDCA7000FDCA7000FDCA7000FDCA7000FDC + A6000FDCA60010DCA7000FDCA6000FDCA70039E6B70013BF8B00000000000000 + 00000000000000000000000000000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE0000000000000000000000000000000000000000000529 + 1D0060F0C7000FDDA7000EDDA7000FDDA7000FDDA7000EDDA7000FDEA7000FDD + A7000FDDA7000EDDA8000FDEA7000FDDA7000FDDA7000EDDA8005AEEC4000529 + 1D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000012C08C000FDDA8000FDDA80010DDA8000FDDA8000FDD + A8000FDDA8000FDEA8000FDEA8000FDDA8003DE7BA0012C08C00000000000000 + 00000000000000000000000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F00686769005557690000000000000000000000000000000000000000000000 + 000005291D0017BD87006FF3CD000FE0AA000FDFAA000FE0AA000FDFA90010DF + AA000FDFAA000FDFA9000FE0A9000FE0A9006AF2CB0017BD880005291D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010C28D0010E0AB0010E0AB000FE0AB000FE0AA0010E0 + AA0010E0AA000FDFAA000FE0AB000FDFAA0045EBBD0010C28D00000000000000 + 000000000000000000000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC200000000000000000000000000000000000000 + 00000000000005291D0015BE880010E0AA000FE0AA000FE1AB000FE0AA000FE1 + AB000FE0AA0010E1AB000FE1AA000FE1AB0015BE880005291D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38E000FE1AC000FE1AB000FE1AC0010E1AC000FE1 + AC000FE1AC000FE1AB0010E1AB000FE1AC004AECC0000FC38E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A638700000000000000000000000000000000000000 + 0000000000000000000005291D007BF6D2000FE1AC0010E1AB000FE1AC000FE1 + AB000FE2AB000FE1AB000FE2AC0078F5D10005291D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38E000FE2AD0010E2AD000FE2AD000FE2AD000FE2 + AD0010E2AD0010E2AD0010E2AD0010E2AD004DEDC1000FC38E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000000000 + 000000000000000000000000000005291D0013C28B0086F8D60010E4AD000FE3 + AD000FE4AE0084F7D50012C18B0005291D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F0010E4AF0010E4AF0010E4AF0010E4AF0010E4 + AE0010E4AF0010E4AF0010E4AF000FE4AF0053EFC5000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D0012C38C0010E4AE0010E4 + AE0010E4AE0011C38C0005291D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F0010E5B00010E5B00010E5B00010E5B00010E5 + B00010E5B00010E5B0000FE5B0000FE4B00055F0C5000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D008DF9D80010E4 + AF008DF9D80005291D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F000FE5B10010E6B00010E6B00010E5B0000FE5 + B10010E6B10010E5B00010E6B10010E6B10057F0C8000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D000FC5 + 8E0005291D000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F000EC48F000EC48F000EC48F000EC48F000EC4 + 8F000EC48F000EC48F000EC48F000EC48F000EC48F000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000339F70000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000F342400339F + 7000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AE00FED6AE00FED6AE00FED7B000FED7 + B000FED8B100FED9B400FEDAB600FEDAB600FEDCB900FEDCB900000000000000 + 0000000000000000000000000000000000000000000025242200262624002625 + 23000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86 + F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86 + F200262524002625240000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A0710032A071000F342400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424003CD7A70032A0 + 7100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001111110014141400FED4AA00FED4AA00FED4AA00FED5AC00FED5 + AE00FED6AF00FED8B200FED8B200FED9B400FEDAB700FFDBB900111111000000 + 0000000000000000000000000000000000000000000026252300282724002727 + 2400037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00272625000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172003BD7A70030A271000F3424000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34240030A2710017CA950031A1 + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F3F3F00ACAC + AC00ACACAC00ACACAC0063626200FFCD9D00FFCD9D00FFCE9F00FFD0A300FFD2 + A600FFD4AA00FFD7AF00FFD8B100FFD9B500FFDDBC00FFDDBC0063636300ACAC + AC00ACACAC004B4B4B0000000000000000000000000027262400292826002929 + 2600037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE002A2927002928260000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A3730010BF8E0039D6A60030A373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34240030A3730039D6A6001FCE9A0030A3 + 7300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ACACAC00D1D1D100D1D1 + D100D1D1D100D1D1D10032323200C49F7B00C4A07E00C4A17F00C4A38300C4A5 + 8700C4A68800C4A78B00C4A88E00C4A99100C4AC9600C4AC960032323200CCCC + CC00CCCCCC00CCCCCC00000000000000000000000000292927002E2D2A002E2D + 2A00FBE7D000FBE6D000FBE7CF00FCE6CF00FBE7D000FBE7D000FBE6D000FCE7 + D000FBE6CF00FBE6CF00FBE7D000FCE7CF00FBE6D000FBE6CF00FBE7CF00FBE6 + CF002D2C2A002D2C2A0000000000000000000003020000040300000403000004 + 0300000403000004030000090600000403000004030000040300000403000000 + 00002DA5750010BF8E0010BF8E0010BF8E002DA575000F342400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34240034D5A40010BF8E0010BF8E0030D4A2002DA5 + 7500000000000004030000040300000403000004030000090600000403000004 + 03000004030000040300000403000003020000000000ACACAC00D4D4D400D4D4 + D400D4D4D400D4D4D400333131009E8373009E8373009E8373009E8474009E84 + 74009E8475009E8576009E8576009E8577009E8577009E85770033313100C8CC + CA00CECECE00CECECE000000000000000000000000002B292700302E2C00302E + 2D00FBE7D000FCE7D000FCE7D000FBE7D100FBE7D100FCE7D000FBE7D100FBE7 + D100FBE7D000FBE7D100FBE7D000FBE7D000FCE7D100FBE7D100FCE7D000FBE7 + D000302E2C00302F2C0000000000000000002CA676002CA776002CA676002CA6 + 75002CA675002BA676002BA675002CA675002BA676002CA676002CA676002CA6 + 76002BA7760010BF8E000DCA940010C08E0031D4A3002CA675000F3424000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000805000F3424002CA6750010C08F0010C08E000DCA940037D6A5002BA7 + 76002CA676002CA676002CA676002BA676002BA676002BA675002BA676002CA6 + 76002CA675002CA676002BA675002CA6760000000000ACACAC00D7D7D700D7D7 + D700D7D7D700D7D7D700D6D6D600D6D6D600D5D5D500D5D5D500D5D5D500D4D4 + D400D4D4D400D4D4D400D3D3D300D3D3D300D3D3D300D2D2D200D2D2D20039A4 + 7600C4CDCA00D1D1D1000000000000000000000000002C2A290033312E003231 + 2F00C4D1D700C4D0D700C4D0D700C4D0D700C4D0D800C4D0D700C4D1D700C4D1 + D800C4D1D700C4D1D700C4D1D800C4D0D800C4D0D800C4D1D700C4D0D800C4D0 + D70033302F0033302F0000000000000000002AA777003CD7A7003CD7A7003CD7 + A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7 + A7003CD7A70010BF8E000DCB95000DCC95000FC18F002ED4A2002BA777000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F3424002BA777002ED4A20010C18F000DCC95000DCB95000DCB95003CD7 + A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7 + A7003CD7A7003CD7A7003CD7A7002AA7770000000000ACACAC00DCDCDC00EDED + ED00269B6A00279B6A00279B6A00279B6900279A6900289A6900289A6800289A + 6800289A6800289968002899680028996800289968002899680028996800CBE8 + DC00EAEAEA00D7D7D7000000000000000000000000002F2E2B00373534003735 + 3400FBE8D400FBE9D300FCE9D400FBE8D400FCE9D300FCE8D400FBE8D300FCE9 + D400FBE9D400FBE8D300FBE9D300FBE8D300FCE9D300FBE9D400FCE8D400FCE8 + D4003836340037363300000000000000000028AA7A0010C18F0010C18F0010C1 + 8F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C1 + 8F0010C18F000FC793000ECE98000DCE98000DCE98000DCE98000FC4920027AA + 7A000F3424000006040000000000000000000000000000000000000604000F34 + 240019C895000FC492000DCE98000DCF98000DCE98000ECE980010C18F0010C1 + 8F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C1 + 8F0010C18F0010C18F0019D29F0028AA7A0000000000A3A3A300E0E0E000F9FC + FB004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC + 9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F002899 + 6800FFFFFF00DADADA00000000000000000000000000302E2C003A3836003A38 + 3600C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D3DA00C4D2DA00C4D2DA00C4D2 + DA00C4D2DA00C4D3DA00C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D2 + DA003A3836003A383600000000000000000026AB7B000FC3900010C18F000EC9 + 95000ECF99000DD099000DD09A000DD099000DCF9A000DD09A000DD099000DD0 + 99000ED099000DCF9A000ED09A000ED099000ED09A000ECF9A000DCF990019C9 + 970026AC7B000F342400000000000000000000000000000000000F34240026AC + 7B000FC793000DCF99000ECF9A000DD099000ED099000ED09A000DD099000ED0 + 99000DD099000ED099000DD09A000DCF9A000DCF9A000DD09A000DD099000DD0 + 9A000EC9950010C18F0020D6A20026AB7B0000000000A1A1A100EAEAEA00F4FA + F70047CA9D0023A6740023A6740024A4720024A4720024A4720024A4720024A4 + 720024A4720024A4720024A4720024A4720024A4720024A4720023A67400279B + 6B00FFFFFF00E5E5E500000000000000000000000000312F2E003D3B38003C3A + 3900FCE9D500FCEAD500FCE9D500FBEAD600FCEAD500FCE9D500FCE9D600FCEA + D500FCEAD600FCEAD500FCEAD500FCEAD600FBEAD600FCE9D500FCEAD600FBE9 + D5003D3B39003D3B3900000000000000000024AD7C000FC492000ECA96000DD1 + 9B000DD29B000ED29B000DD19B000ED19A000DD19B000DD19B000ED29B000ED1 + 9B000DD29B000ED19B000DD19A000DD19B000DD19B000ED19B000ED19B000FC9 + 950019CB990024AD7C000004030000000000000000000F34240024AD7C0019CB + 99000DD19B000ED19B000ED19B000ED19B000DD19B000DD19A000DD19B000DD2 + 9B000ED19B000ED19B000DD19B000DD19B000DD29B000DD19B000ED29B000ED1 + 9B000DD19B000ECA960027D9A60024AD7C0000000000A7A7A700FFFFFF00EEFA + F5005AE0B60026C18F0026C8950026C8950026C8950026C8950026C8950026C8 + 950026C8950026C8950026C8950026C8950026C8950026C8950026C08E0023A2 + 7000FFFFFF00FFFFFF000000000000000000000000003533310043403E004240 + 3E00C4D3DC00C4D4DC00C4D4DC00C4D4DC00C4D4DB00C4D3DC00C4D4DC00C4D4 + DC00C4D4DC00C4D3DC00C4D3DC00C4D4DC00C4D4DC00C4D4DC00C4D3DB00C4D3 + DC0042403E0043403E00000000000000000021B17F000FC995000ED49E000ED4 + 9E000DD49E000DD49E000ED49E000ED49E000ED49E000DD49E000ED49E000ED4 + 9D000ED49E000ED49E000ED49E000ED49E000ED49E000DD49E000ED49E000ED5 + 9E000ED49E000FCF9A0022B07F000F3424000F34240017D09C000FCF9A000ED4 + 9E000DD49E000ED49E000DD49E000ED49E000ED49E000ED49E000ED49E000ED4 + 9E000ED49D000ED49E000DD49E000ED49E000ED49E000ED49E000DD49E000ED4 + 9E000ED49E000ED49E0034DFB00021B17F0000000000A8A8A800FFFFFF00E6F8 + F2006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEE + C8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC80021A7 + 7400FFFFFF00FFFFFF0000000000000000000000000036343200454341004643 + 4000FBEAD700FCEBD800FCEBD800FCEBD700FCEBD800FCEBD800FCEBD700FCEB + D700FCEBD700FCEBD700FCEBD800FCEBD800FCEBD800FCEBD800FCEAD800FCEB + D8004543410045434100000000000000000020B280000FCC98000ED5A0000ED6 + A0000ED69F000ED5A0000ED59F000ED6A0000ED69F000ED59F000ED5A0000ED6 + 9F000ED5A0000ED69F000ED69F000ED69F000ED69F000ED59F000ED6A0000ED5 + A0000ED69F000ED5A0002ADEAC0020B27F0020B27F000ED6A0000ED5A0000ED6 + 9F000ED69F000ED6A0000ED59F000ED69F000ED69F000ED69F000ED5A0000ED5 + A0000ED69F000ED59F000ED59F000ED69F000ED5A0000ED59F000ED5A0000ED6 + 9F000ED6A0000ED5A0003CE2B40020B2800000000000A0A0A000FFFFFF00DDF7 + EF006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEE + C8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8001EAB + 7800FFFFFF00FFFFFF0000000000000000000000000038363400484643004846 + 4300FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEB + D800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800B2A6 + 9A00484543004845430000000000000000001FB381000FCF9A000ED7A1000ED7 + A1000ED7A1000ED7A1000ED7A1000ED6A1000ED7A2000ED7A1000ED7A1000ED7 + A1000ED7A1000ED7A1000ED6A1000ED7A1000ED7A1000ED7A1000ED7A1000ED7 + A1000ED7A1000FD7A1001EB38100063C2C00063C2C0033E1B1000FD7A1000ED7 + A1000FD7A1000ED7A1000ED7A1000ED7A1000ED7A1000ED6A1000ED7A1000ED7 + A1000ED7A1000ED7A1000ED7A1000ED7A2000ED7A1000ED7A1000ED7A1000FD6 + A1000ED7A1000ED7A10042E5B7001FB38100000000007B7B7B00EFEFEF00F6FC + FA005CE7BD0023C08D00ECBD9600ECBE9700ECBE9700ECBE9700ECBE9700ECBE + 9700ECBE9700ECBE9700ECBE9700ECBE9700ECBE9700ECBE970024BD8B0019B3 + 7F00FFFFFF00F3F3F3000000000000000000000000003B3836004E4B49004E4A + 49004E4B49004E4B49004E4B48003D3A39003C3A39003C3A39003C3A38003D3A + 39003C3A39003D3A38003C3A39003C3A39003D3A38003D3A39003C3A39004E4B + 49004E4A48004D4A490000000000000000001BB783000FD5A1000FDAA4000EDA + A4000EDAA4000FDAA4000FDAA4000FDAA4000EDAA4000EDAA4000EDAA4000FDA + A4000EDAA4000FD9A4000ED9A4000EDAA5000FDAA4000EDAA4000FDAA4000EDA + A40046E7BA001BB68400000000000000000000000000063C2C001BB6840046E7 + BA000FDAA4000FDAA4000EDAA4000EDAA4000EDAA5000ED9A4000FDAA4000EDA + A4000FDAA4000EDAA4000EDAA4000EDAA4000FDAA4000FDAA4000FDAA4000FDA + A4000EDAA4000FDAA4004EE9BE001BB78300000000000D0D0D0095959500C3CE + CA0054BF9E0048B48F00F1C9A000F3CCA300F3CCA300F3CCA300F3CCA300F3CC + A300F3CCA300F3CCA300F3CCA300F3CCA300F3CCA300F3CBA20046B28C0018B7 + 8300BDBDBD009B9B9B000000000000000000000000003C393800504D4B00504E + 4B006D6B6A005F5B58005F5B5800E8E8C200E8E8C200E8E8C200E8E8C200E8E8 + C200E8E8C200E8E8C200E8E8C200E8E8C200E8E8C200E8E8C2003E3C3A00504D + 4B00504D4B00504D4B00000000000000000019B884000ED8A3000EDBA6000FDB + A6000EDBA6000FDBA6000EDBA5000FDCA6000EDCA6000EDBA5000FDBA5000FDC + A5000EDBA6000EDBA6000FDCA6000FDCA5000FDBA6000FDBA6000FDBA6004FEA + BF001AB88500063C2C0000000000000000000000000000000000063C2C001AB8 + 85000EDBA5000FDBA6000FDBA6000FDBA5000FDCA5000FDCA6000EDBA5000EDB + A6000FDCA5000FDBA6000EDBA5000EDCA6000FDCA6000EDBA5000FDBA6000FDB + A6000FDBA6000EDBA60053EBC10019B884000000000000000000000000002222 + 22001616160000000000F5D1AB00F9D8B200F8D8B200F9D8B200F8D8B100F9D8 + B200F9D8B200F8D8B100F9D8B100F9D8B200F9D8B100F7D5AF00161817001616 + 160010101000000000000000000000000000000000003D3A3900534F4D005350 + 4D005F5B58004A4645004A464500E9E8C400E9E9C400E9E9C400E9E9C500E8E9 + C400E8E9C400E9E8C4002F2E2C0047434100E9E9C500E9E9C500413D3C00534F + 4D0053504D0053504E00000000000000000018B985000FDCA6000FDDA7000EDD + A7000FDDA7000EDDA7000FDCA7000FDDA7000EDDA7000FDDA7000FDCA7000FDD + A7000EDDA7000FDDA7000FDCA7000FDDA7000FDCA7000FDDA7000FDCA70018BA + 8500063C2C00000000000000000000000000000000000000000000000000063C + 2C0058EDC3000FDCA7000FDDA7000FDDA7000FDDA7000FDCA7000EDCA7000EDD + A7000FDDA7000EDDA7000FDDA7000EDDA7000FDCA7000FDCA7000EDDA7000FDD + A7000EDDA7000FDDA70056EDC20018B985000000000000000000000000000000 + 00000000000000000000F3CEA900FADBB700FADBB700F9DAB700FADBB700F9DB + B700F9DBB700F9DBB700F9DAB700FADBB700F9DBB700F5D2AE00000000000000 + 00000000000000000000000000000000000000000000403E3C00575452005754 + 52005F5B58004A46450057545200EBEBCD00EBEBCC00EBEBCC00EBEBCC00EBEC + CC00EBEBCC00EBEBCC002F2E2C0047434100EBEBCC00EBEBCC00444140005754 + 52005754520057545200000000000000000013C08A0013C08A0013C08A0013C0 + 8A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C0 + 8A0016BC89000FE0AA000FDFAA000FE0AA000FE0A9006BF2CC0016BC88000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C0016BC88006BF2CC000FDFA9000FE0AA000FDFAA0021E3B10016BC + 890013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C0 + 8A0013C08A0013C08A0013C08A0013C08A000000000000000000000000000000 + 00000000000000000000F2CCA800FADDBA00FADCBA00FADCBA00FADDBA00F9DC + BA00FADDBA00FADCBA00F9DCBA00FADCBA00FADCB900F4D0AD00000000000000 + 00000000000000000000000000000000000000000000413E3D005A5654005A56 + 54005F5B58004A4645005A565400EDECD000EDEDD100EDEDD000EDEDD100ECEC + D000EDEDD000ECEDD0002F2E2C0047434100ECEDD000ECECD100464341005A56 + 54005A5654005955540000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89000FE1AB0010E0AB0010E1AB0073F4CF0014BD8900063C2C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C0014BD890010E0AB0010E1AB0010E0AB002DE6B60014BD + 8900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA600FADEBC00FADEBD00FADDBC00FADDBC00FADE + BD00FADEBD00FADDBD00FADEBC00FADEBD00FADDBD00F3CFAC00000000000000 + 0000000000000000000000000000000000000000000042403E005B5855005B57 + 56005F5B58004A4645005C585500EEEED500EEEED500EEEED500EEEED500EEEE + D500EEEED500EEEED5002F2E2C0047434100EEEED500EEEED500484442005B57 + 56005C5856005B58560000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8B000FE2AC0010E1AD000FE2AC0013BF8A00063C2C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C007CF5D2000FE2AC0010E1AD003AEABB0013BE + 8B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A400FAE0C100FBE0C200FAE0C100FBE0C200FAE0 + C200FAE0C200FAE0C200FAE0C100FBE0C100FAE0C200F1CBA800000000000000 + 00000000000000000000000000000000000000000000444140005F5A58005F5B + 58005F5B58004A4645005E5B5900F0F1DE00F1F1DD00F1F1DE00F1F1DE00F0F1 + DE00F1F1DE00F0F1DE002F2E2C002F2E2C00F1F1DD00F0F1DE00494645005F5A + 59005F5B59006D6B6A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18C0010E3AF0089F8D70011C18C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C0011C18C0089F8D70050EEC40012C1 + 8C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A400FBE2C300FAE1C400FBE1C300FAE2C300FBE1 + C400FAE1C400FBE1C400FBE1C300FBE1C300FBE1C400EFC8A600000000000000 + 00000000000000000000000000000000000000000000454241008D8C8B006D6B + 6A005F5B58004A4645006D6B6A00FBFBF500FBFBF500FBFBF500FBFBF500FBFB + F500FBFBF500FBFBF500FBFBF500FBFBF500FBFBF500FBFBF500555353006D6B + 6A008D8C8B004542400000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28D008EF9D80010C28D00063C2C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C0010C28D0057F0C70011C2 + 8D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7 + A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7A500000000000000 + 000000000000000000000000000000000000000000003A373600454241004542 + 40005F5B58004A46450045424100C3C3B500C3C3B500C3C3B500C3C3B500C3C3 + B500C3C3B500C3C3B500C3C3B500C3C3B500C3C3B500F4F3E400363333004542 + 4100454240001F1D1D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28D000FC28D00063C2C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C00F5F9F70010C2 + 8D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202000A0A0900000000000000000000000000000000000000 + 0000000000000000000000000000000000000A0A090002020200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82008E8F82008E8F82008E8F82008E8F + 82008E8F82008E8F82008E8F82008E8F82001313120002020200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000349E6F00349E6F00349E6F00349E6F00349E + 6F00349E6F00349E6F00349E6F00349E6F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000A5A69B00C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400A5A69B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E2B79800E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B6 + 9600E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B6 + 9600E1B69600E1B6960000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070003CD7A70013B98C0013B98C0013B9 + 8C0013B98C0013B98C003CD7A700329F70000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A5A5A500CECECE00E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700CCCCCC002525 + 2500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C2C3B400F0F0EC00F0F0EC00F0F0EC00F0F0 + EC00F0F0EC00F0F0EC00F0F0EC00C2C3B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5 + C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5 + C400F9E5C400E2B7970000000000000000000000000000000000000000000000 + 000000000000000000000000000031A1710039D7A6000CC78F000CC78F000CC7 + 8F000CC78F000CC78F0039D7A60032A171000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F00B3B3B300CECECE00E4E4E400E4E4E400E4E4E400E3E3E300E3E3 + E300E3E3E300F2F2F200D4DDD900E2E2E200E1E1E100EFEFEF00CCCCCC005B5B + 5B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A5A69B00C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400A5A69B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F8E2BB00F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6 + B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6 + B100F8E0BA00E2B8980000000000000000000000000000000000000000000000 + 000000000000000000000000000030A2720034D5A4000CC790000CC790000CC7 + 90000CC790000CC7900034D6A50031A272000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333300C2C2C200D5D5D500E4E4E400F3F3F300F3F3F300F3F3F300F3F3 + F300E3E3E3005DB59100BFD7CD00F3F3F300F2F2F200EDEDED00D5D5D5008383 + 8300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008182770081827700818277008182 + 7700818277008182770081827700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F8E1BE00F3D6B100F5DAB500F8E1BB00F8E0BB00F8E1BB00F8E1BB00F8E1 + BB00F8E1BB00F8E1BC00F8E1BB00F8E1BB00F9E1BC00F8E1BB00F8E1BB00F4D7 + B200F8E1BB00E3B99A0000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA4740029D3A1000DCA92000DCA92000DCA + 92000DCA92000DCA920029D3A1002EA473000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8C00CFCFCF00E8E8E8006CC0A00038B2840039B083003BB083003AAE + 820078C0A4003EAC80003BAC81003DAB7F003DAA7D00D1DFD800E9E9E900ACAC + AC0000000000000000000000000000000000A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B000000000000000000000000000000 + 0000F8E2BF00F3D7B200F8E2BC00F8E1BC00F8E1BC00F8E1BC00F8E2BC00F8E1 + BC00F8E1BC00F8E1BC00F8E2BC00F8E1BC00F8E1BC00F9E1BC00F8E1BC00F5DA + B500F8E1BC00E3BA9B0000000000000000000000000000000000000000000000 + 00000000000000000000000000002CA6750023D29F000DCB93000DCB93000DCB + 93000DCB93000DCB930023D19F002DA574000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9D00D0D0D000EFEFEF0039B2850039B184005DBC980064BC9B0058B8 + 9400DEE3E1003CAB800092CAB30084C4AA003EAA7E0096C9B300EEEEEE00B9B9 + B90002020200000000000000000000000000A5A69B00C3C4B500C2C3B500C2C4 + B500C3C4B400C2C4B500C3C4B500C3C3B500C2C4B500C3C4B500C3C3B400C3C3 + B500C3C3B500C3C4B500C3C3B500C2C4B500C3C4B500C3C3B400C3C4B400C3C4 + B500C3C3B400C2C4B500C3C3B500A5A69B000000000000000000000000000000 + 0000F8E3BF00F4D8B300F8E2BD00F8E2BD00F8E2BD00F8E1BD00F9E2BC00F8E2 + BD00F8E2BD00F8E2BD00F8E2BD00F8E2BC00F8E1BD00F8E1BC00F8E2BD00F5DB + B600F8E1BD00E3BC9C0000000000000000000000000000000000000000000000 + 00000000000000000000000000002BA676001DD09D000DCC94000DCC94000DCC + 94000DCC94000DCC94001DD19C002BA676000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACAC00D0D0D000F1F1F10044B98E0038B2850041B28800CFDFD900E6E6 + E600E6E6E60058B69100A5D0BE00B9D7CC003BAA7D00AED1C200F0F0F000C4C4 + C40025252500000000000000000000000000A5A69B00E4E3DB00E4E3DB00E5E6 + DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6 + DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6 + DF00E5E6DF00E5E6DF00C7C7B800A5A69B000000000000000000000000000000 + 0000F9E4C300F4DAB500F8E2BF00F8E3BF00F8E3BF00F9E3BF00F8E2BE00F8E3 + BE00F9E3BF00F8E2BF00F8E2BF00F8E3BF00F8E2BF00F8E2BE00F8E3BE00F5DC + B800F8E2BF00E5BE9F00000000000000000028AA7A0028AA7A0027AA790028AA + 790028AA790028AA790028AA790027AA790014CE99000DCF98000DCF98000DCF + 98000DCF98000DCF980013CF990028A9790029A9780028A9790028A9780029A9 + 780028A9780029A9780029A97800000000000000000000000000000000000000 + 0000CACACA00DADADA00F2F2F200E0E7E40045B98F0035B486008DCDB500E8E8 + E800E8E8E800E6E6E6006FC0A1003BAE8200D7E1DC00E5E5E500EEEEEE00CDCD + CD0083838300000000000000000000000000A5A69B00D6977300D7977400D797 + 7400D7977400D7977400D7977400D7977400D7977400D7977400D7977400D797 + 7400D7977400D7977400D7977400D7977400D7977400D7977400D7977400D797 + 7400D7977400D7977400C7C9B900A5A69B000000000000000000000000000000 + 0000F8E4C500F6DEBA00F9E3BF00F8E2BF00F8E3C000F8E3C000F8E3C000F9E3 + C000F8E2C000F8E3C000F8E3BF00F8E3C000F9E3C000F7E2BE00F9E1BE00F6DD + B900F7E1BD00E5BFA000000000000000000026AC7B003EDCB0003EDCB0003EDC + B0003EDCB0003EDCB0003EDCB0003EDCB00011CE98000DD099000DD099000DD0 + 99000DD099000DD0990011CE98003EDCB0003EDCB0003EDCB0003EDCB0003EDC + B0003EDCB0003EDCB00027AA7900000000000000000000000000000000000000 + 0000D0D0D000E5E5E500EFEFEF0059C09C0039B88B0035B58700E7E9E800E6E8 + E700E8E8E800E8E8E800E5E6E60080C7AC00E6E6E600E6E6E600EBEBEB00CFCF + CF009A9A9A00000000000000000000000000A5A69B00E6A47E00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00C9CABB00A5A69B000000000000000000000000000000 + 0000F9E5C500F7DFBD00F8E3C000F9E3C000F9E3C100F8E3C000F8E3C000F9E3 + C000F9E3C000F8E2C000F9E3C100F9E4C100F7E2C000F8E3BF00F7E2BF00F5DD + BA00F7E0BE00E6C0A300000000000000000024AE7C0011C9960011C9960011C9 + 960011C9960011C9960011C9960011C9960011C996000DD29B000DD29B000DD2 + 9B000DD29B000DD29B000DD29B0011C9960011C9960011C9960011C9960011C9 + 960011C9960011C9960026AC7B00000000000000000000000000000000000000 + 0000D2D2D200EDEDED00EDEDED00EAEAEA00EAEAEA00DCE6E2003EB88C0081CB + AF00E5E8E70048B78E0037AF82007FC5AA00E7E7E700E6E6E600E8E8E800CFCF + CF00A8A8A800000000000000000000000000A5A69B00E6A37D00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00CCCDBE00A5A69B000000000000000000000000000000 + 0000F9E6C900F7E1BF00F9E4C200F8E4C300F8E4C200F9E4C200F8E4C200F9E4 + C200F7E3C200F7E1BF00F5DEBD00F5DFBD00F5DFBE00F5DEBE00F5DEBD00F3DC + BA00F3DCBC00E8C3A500000000000000000021B17F000ED59E000ED59E000ED5 + 9E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED5 + 9E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED5 + 9E000ED59E000ED59E0022AF7D00000000000000000000000000000000000B0B + 0B00D3D3D300F4F4F400EBEBEB00EBEBEB00EBEBEB00EBEBEB0031B6860035B5 + 870094D1BA0036B385003DB388002EAE8000E9E9E900E8E8E800E8E8E800D0D0 + D000C6C6C6002C2C2C000000000000000000A5A69B00E5A37D00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00CCCEBF00A5A69B000000000000000000000000000000 + 0000F9E7CA00F7E2C000F9E5C400F8E4C300F9E5C400F8E5C400F9E5C300F9E4 + C400F8E3C100F4DEBE00F2DCBC00F3DDBD00F4DDBE00F5DEBE00F4DEBD00F4DD + BA00F4DEBD00E8C5A70000000000000000001FB280000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A00020B17F00000000000000000000000000000000002C2C + 2C00D6D6D600F5F5F500ECECEC00EBEBEB00EBEBEB00EBEBEB007CCCAF0034B6 + 880035B5870038B58700CEE2DA0096D0B800E9E9E900E9E9E900E9E9E900D6D6 + D600CDCDCD005C5C5C000000000000000000A5A69B00E5A37E00E9A68000E8A6 + 8000E9A68000E8A68000E8A68000E9A68000E9A68000E9A68000E8A68000E8A6 + 8000E8A78000E8A68000E8A78000E9A68000E9A78000E9A68000E9A68100E8A6 + 8000E8A78000E8A68000CECFC000A5A69B000000000000000000000000000000 + 0000F9E8CC00F8E5C400F9E5C500F9E5C500F9E5C500F9E5C400F8E5C400F8E4 + C400F8E3C200F2DCBD00F3DCBD00F2DBBA00F2DBBB00F2DCBC00F3DCBC00F3DD + BC00F3DCBD00E9C7A90000000000000000001EB4820010D8A10010D8A10010D8 + A10010D8A1000FD8A1000FD8A1000FD8A1000FD8A1000FD8A1000ED8A1000ED8 + A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8 + A1000ED8A1000ED8A10020B28000000000000000000000000000000000005B5B + 5B00D1D1D100E4E4E400DDDDDD00DCDCDC00DCDCDC00DCDCDC00D9DBDA0030AB + 800030AA7F002AA77B00DADBDA00DBDBDB00DADADA00D9D9D900D9D9D900D1D1 + D100C2C2C200797979000000000000000000A5A69B00E6A68100EAAA8400EAA9 + 8400EBA98300EBA98300EBA98400EAAA8300EAAA8300EBA98300EAAA8300EBAA + 8300EAAA8400EAAA8300EBA98300EAA98300EAAA8400EBAA8300EBA98300EAAA + 8300EAAA8400EAAA8300D1D2C300A5A69B000000000000000000000000000000 + 0000F9E8CD00F8E6C700F9E6C800F9E5C800F8E6C800F9E5C700F9E6C800F7E4 + C500F6E1C300EDD5B700EACFB100E8CCAF00E7CBAC00E6CBAD00E7CBAC00E8CC + AF00DEBEA300E7C3A80001010100000000001AB7840016DBA60016DBA60016DB + A60016DBA60015DBA60015DBA60015DBA60014DBA60014DBA60014DBA60014DB + A60013DBA60013DBA60013DBA60013DBA60013DBA60013DBA60013DBA60013DB + A50013DBA50012DBA5001CB68300000000000000000000000000000000007171 + 7100A4A4A4009494940092929200929292009292920092929200929292009191 + 910091919100909090009090900090909000909090009090900090909000A3A3 + A3008B8B8B00767676000000000000000000A5A69B00E6A88100ECAB8500ECAC + 8600EBAC8500EBAB8500EBAB8500ECAB8500EBAC8500ECAC8500EBAC8500EBAC + 8500ECAB8500EBAC8500EBAC8500ECAC8500EBAB8500ECAC8500ECAB8500ECAC + 8500ECAC8500EBAC8500D3D4C500A5A69B000000000000000000000000000000 + 0000F9E9CF00F8E6C800F9E7C800F9E6C800F9E6C800F8E6C900F9E7C900F8E5 + C700F5E1C300EACFB300E4C5AA00E2C0A500DBB89C00DBB89C00D9B69B00D9B7 + 9B00E8CDAE00E7C3A800000000000000000018B8850090F9D90090F9D90090F9 + D90090F9D90090F9D90090F9D900F5F9F7001FDDA90019DCA70019DCA70019DC + A70018DCA70018DCA7001DDDA900F5F9F70090F9D90090F9D90090F9D90090F9 + D90090F9D90090F9D9001AB7840000000000000000000E7C5A0021B17F0021B1 + 7F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B1 + 7F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B1 + 7F0021B17F0021B17F000E7C5A0000000000A5A69B00E8A98300ECAE8700ECAE + 8700EDAE8700EDAE8700ECAE8700ECAD8700ECAE8700EDAE8700EDAE8800EDAE + 8700ECAE8800EDAE8700EDAE8700ECAD8700EDAE8700ECAE8700ECAE8700ECAE + 8700ECAE8800ECAE8700D4D5C800A5A69B000000000000000000000000000000 + 0000F9E9CF00F8E7C900F8E7C900F9E7C900F8E6C900F9E7CA00F9E6C900F8E5 + C800F4E0C100E8CBAF00E2C2A700E4C7AE00DFBFA600E1C3A800EAD2B600F5DF + BC00E8C5AA00483B3200000000000000000017BA870017BB870017BA860017BA + 860018BA870017B9860017BA870017BA86002AE0AD001DDDA9001DDDA9001DDD + A9001CDDA9001CDDA90028E0AD0018B9860018B9860018B9860018B9860018B9 + 860018B9860019B9850019B98500000000000000000021B17F001AC995001AC9 + 95001AC995001AC995001AC995001AC995001AC995001AC995001AC995001AC9 + 95001AC995001AC995001AC995001AC995001AC995001AC995001AC995001AC9 + 95001AC995001AC9950021B17F0000000000A5A69B00E8AC8600EFB38C00EFB3 + 8C00EFB28C00EFB28C00EFB28C00EFB38C00EFB28C00EFB38B00EFB28C00EFB3 + 8C00EFB28B00EFB28C00EFB28C00EFB28C00EFB38C00EFB38B00EFB28C00EFB3 + 8B00EFB38B00EFB28C00D7D7CB00A5A69B000000000000000000000000000000 + 0000F9EAD100F9E7CB00F9E8CB00F9E8CB00F9E7CC00F9E8CB00F9E8CB00F6E6 + C900F1DDC000FCF9F700F8F2EC00FDF7EE00FAECD500F8E3C300F7E0BB00483D + 3300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000014BC88003FE4B30026DEAB0025DEAB0025DE + AB0025DEAB0024DEAB003CE3B20015BC88000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0012C28E0012C2 + 8E0013C28D0013C38E0012C28E0012C28E0012C28D0013C28E0012C28E0012C2 + 8E0012C38D0013C28E0012C38E0012C38E0012C38E0012C28E0013C28E0013C2 + 8E0012C38E0013C38E0021B17F0000000000A5A69B00E9AD8700F1B58E00F1B5 + 8E00F1B58E00F0B58E00F0B58D00F0B58E00F0B58E00F1B58E00F1B58E00F0B5 + 8E00F1B58E00F1B58D00F1B58E00F1B58E00F0B58D00F1B58D00F0B58D00F0B5 + 8D00F0B58E00F1B58E00D7D8CC00A5A69B000000000000000000000000000000 + 0000F9EBD200F9E8CC00F8E7CC00F9E8CC00F9E7CC00F9E8CC00F8E7CB00F7E4 + C800F2DDC000FEFAF500FCF6EC00FBF0DD00F8E3C200F7DFBA00EDD0B4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000013BE8A0046E5B5002ADEAB0029DEAB0029DE + AB0029DEAB0029DEAB0045E5B50014BE89000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0012C4900011C4 + 8F0012C48F0012C48F0011C48F0011C48F0011C48F0012C48F0012C48F0012C4 + 8F0011C48F0012C48F0012C48F0012C48F0011C48F0011C38F0012C48F0012C4 + 8F0011C48F0011C48F0021B17F0000000000A5A69B00EAAF8900F1B78F00F1B7 + 9000F1B89000F1B79000F2B79000F2B89000F1B79000F1B79000F1B89000F1B8 + 9000F2B89000F2B89000F2B79000F1B79000F2B79000F2B89000F2B78F00F2B7 + 8F00F2B79000F1B79000D8DACE00A5A69B000000000000000000000000000000 + 0000F9EBD200F9E8CD00F9E8CD00F9E8CC00F9E8CD00F8E8CD00F9E7CB00F6E4 + C900F1DCBF00FCF4E700FBEFDC00F9E8CE00F7DFB900EFD3B700493E35000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000013BF8B004CE6B7002EDEAB002EDEAB002DDE + AB002DDEAB002DDEAC004BE6B70013BF8B000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0011C5900011C5 + 900011C5900011C5900011C5900011C5900011C5900011C5900011C5900011C5 + 900011C5900011C5900011C5900011C5900011C5900011C5900011C5900011C5 + 900011C5900011C5900021B17F0000000000A5A69B00EBB18B00F4BB9300F3BB + 9400F3BB9400F3BB9400F4BB9300F4BB9400F4BB9300F4BB9400F3BB9400F3BB + 9400F3BC9400F4BB9400F3BB9400F3BB9300F4BC9300F3BB9400F4BB9300F4BB + 9400F4BB9400F4BB9400DBDBD000A5A69B000000000000000000000000000000 + 0000F9EBD400F9E8CE00F9E8CE00F9E8CE00F9E9CE00F9E9CE00F7E6CD00F5E1 + C800F0DABE00F7E2C000F7E1BE00F7DFB90051463C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000011C28C0053E8B90035DDAB0034DDAB0034DD + AB0034DEAB0034DEAB0053E8B90011C18C000000000000000000000000000000 + 0000000000000000000000000000000000000000000016BD880017E8B40017E8 + B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8 + B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8 + B40017E8B40017E8B40016BD880001060400A5A69B00EBB28C00F4BD9400F4BC + 9500F4BC9500F4BC9500F5BD9500F4BD9500F4BC9500F4BD9500F4BD9500F5BD + 9500F4BC9500F4BD9500F4BD9500F5BD9500F5BD9500F4BD9500F4BD9500F4BD + 9500F4BD9400F5BD9400DBDCD000A5A69B000000000000000000000000000000 + 0000FAECD400F9E8CE00F9E9CF00F9E9CE00F9E9CF00F9E8CD00F7E5CC00F4E2 + C700F0DABF00F7DFB900F7DFB900F1D8BC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000FC38D0054E9BA0037DDAB0037DDAB0037DD + AB0037DDAB0037DDAB0054E9BA0010C28D000000000000000000000000000000 + 000000000000000000000000000000000000000000000E382C0016BD880017E8 + B400299065002892660025A1710025A1710025A1710025A1710025A1710025A1 + 710025A1710025A1710025A1710025A1710025A1710025A1710025A171000CBE + 890046E7B50017E8B4000E372A0000000000A5A69B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00DCDDD100A5A69B000000000000000000000000000000 + 0000FAECD500F9E9CF00F9E9CF00F9E9CF00F9E9CF00F9E9CE00F7E6CC00F6E3 + C900F1DDC200F4DCB800F1D8BC006A5E50000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000EC38E0079EDC8003ADCAB0039DCAB0039DC + AB0039DCAB0039DDAB0079EDC8000FC38E000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000F3C2E0016BD + 880048E6B5002990650025A1710025A1710025A1710025A1710025A1710025A1 + 710025A1710025A1710025A1710025A1710025A1710025A1710025A171004DEC + BA0017E8B40016BD88000000000000000000C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B4000000000000000000000000000000 + 0000F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8 + BC00F1D8BC007266580000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000EC48F000EC48F000EC48F000EC48F000EC4 + 8F000EC48F000EC48F000EC48F000EC48F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000001 + 010017DCA70010D1970010D1970010D1970010D1970010D1970010D1970010D1 + 970010D1970010D1970010D1970010D1970010D1970010D1970010D1970016CE + 99000F3A2D00000101000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FF00003F000000FFFFFF80FFFF8000FF000000010101807FFF + 8000FF000000010101803FFF8000FF800001010101801FFF8000FF8000030101 + 01800FFF8000FFC000030101018007FF8000FFE00007010101E003FF8000FFE0 + 0007010101F001FF8000FFF0000FEFEFEFF000FF8000F8F0001FEFEFEFFC007F + 8000F8F0001FE0000FFE00078000F8F8001FFFEFFFFE0003FFE3F8FC003FFE00 + FFFF8001FFE3F8FE007FFE00FFFFC000FFE3F8FE007FFE00FFFFC000FFE1F0FE + 00FFFE00FFFFF020FFE1F0FF00FFFE00FFFFF070FFE0E0FF00FFFE00FFFFF038 + FFF001FFC1FFFE00FFFFF01CFFF803FFC3FFFE00FFFFF81FFFFC07FFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFC00007FFFFFFFFFFFFC0000FE0001F800001000000C0000FE0001F000000 + 800003C0000FE0001F000000800003C0000FE0001F000000800003C0000FE000 + 1F000000800003C0000FE0001F000000800003C0FC0FE0001F000000800003C0 + FC0FE0001F000000800003C0FC0FE0001F000000800001C0FC0FE0001F000000 + 800001C0FC0FE0001F000000800001C0FC0FE0001F000000800001C0C000E000 + 1F000000800001C0C000E0001F000000800001C0C000E0001F000000FE007FC0 + F003E0001F000000FE007FC0F803800007000000FE007FC0F807800007000000 + FFFFFFC0FE1F800007800003FFFFFFE1FF1F800007FFFFFFFFFFFFFFFF1FC000 + 0FFFFFFFFFFFFFFFFFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF801FFFFFFFFFFFFFC00001FFE0FFFE003FFFFFFFC00001FFC07FFE003F + FFFFFFC00001FFC03FFFC0FFFFFFFFC00001FF001FFFC1FFFFFFFFC00001FE00 + 0FFFC1FFFFFFFFC00001FE0007FFC1FFFFFFFFC00001F80003FFC1FF800003C0 + 0001F00001FFC1FF800003C00001F00000FFC1FF800003C00001C00001FFC1FF + E00007C00001800003FFC1FFE00007C00001800003FFC1FFF0000FC000018000 + 0FFFC1FFF0000FC0000180001FFFC1FFF0000FC0000180001FFFC1FFF0000FC0 + 000182007FF3C1E3F0001FC000018200FFF1C1E3F8001FC000018000FFF1C1C3 + FFFFFFFFFFFFC003FFF00003FFFFFFFFFFFFE007FFF00003FFFFFFFFFFFFF007 + FFF00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFF + 000FF01C07F8001FFF87FFFFFC3FF07F0FF0000FFF87FFFFF83FF83E1FE00007 + FF87FFFFF83FF8181FC00003F8007FFFE03FFC001F800001F8007FFFC03FFC00 + 1F000000F8007FFC003FFC001F000000FF03FFF0001FFE003F000000FE00FFF0 + 001FFE001F000000FC00FFF0000FF8001F000000F0003FF0000FE00003000000 + F0303FF0000FC00003000000F0781FF0000F800000000000F0FC1FF0001F8000 + 00000000F1FE1FF0001FFF80FF000000F1FE1FF0003FFF80FF000000F0FC1FFF + C03FFFC1FF000000F0781FFFE03FFFC1FF800001F0303FFFF03FFFC3FF800003 + F8007FFFF83FFFC3FFE00007FC00FFFFFC3FFFE7FFF0000FFE00FFFFFE3FFFE7 + FFF0001FFFFFFFFFFFFFFFFFFFFC003FFFFFFFFFFFFFFE00FFFFFFFFC0000FE0 + 0007FF81FFFFFFFF80001FF8003FFE00FFFC0FFF80001FF8003FFE007FF007FF + 80001FF8003FFE007FF003FF80001FF8003FF8001FC000FFF0001FF8003FF000 + 1FC0C0FFF0001FF8003FF0001F81E0FFF0001FF8003FF0000F83F0FFF0001FF8 + 003FE0000787F8FFF0001FF8003FE0000787F8FFF0001FF8003FC0000383F0FF + F0001FF8003FC0000381E0FFF0001FF8003FC00003C0C0C7F0001FF8003FC000 + 03E00047F0001FF8003FC00003F00007F0001FF8003FC00003F00007F00003F8 + 003FC00003FFF807F00003F8003FC00003FFF807F00003F8003FC00003FFE007 + F00003F8003FFF81FFFFE007F00003F8003FFFC3FFFFE007F80003F8003FFFC7 + FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC3FFC00003FFFFFFFFFFFFFF80E3800003 + FFFFFFFFFFFFFF00C38000039FFFFFFFFFFFFE00018000039FE001FFFFFFFC00 + 018000038FE001FFFFFFF800018000038FF001800001F0000380000387F80180 + 0001E0000380000383F801800001E00003800003806001800001800001800003 + C00001800001800001800003C00001800001800001800003E000018000018000 + 01800003F00001800001800001800003F00001800001800001800003F80019FF + FFFF800001800003FC003FFFFFFF800001800003FE007FFFFFFF800001800003 + FFFFFFFFFFFF801803800003FFFFFFFFFFFFC03803C00003FFFFFFFFFFFFF03E + 07E00007FFFFFFFFFFFFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0000780 + 0001FFFFFFFFFFFFF00007C00003F07FFF80007FF00007C00003E03FFF80007F + F00007C00003C01FFF80007FF00007C000038007FF800063F00007C000038007 + FF800043F00007C000038003FF800041F00007C000038000FFC20001F00007C0 + 00038000FFE30001F00007C00003C0007FFF0001F00007C00003E0001FC20001 + F00007C00003F0001F800001F00007C00003F0000F800001F00007C00003FC00 + 07800063F00007C00003FE000380007FF00007C00003FE000380007FF00007C0 + 0003FF800380007FF00007C00003FFC003FE07FFF00007C00003FFC003FC03FF + F00007C00003FFF007F801FFF00007C00003FFF80FF801FFFE493FC00003FFFC + 1FF801FFFE493FFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFE001FFFFFFFFFFFFF800003FFF8FFFE0003FFFFFF800003FFF0FFFC0003 + FC003F800003FFE0FFF80003000000800003FFC0FFF00003000000800003FF80 + C7E00003000000800003F00083E00003000000800003C00003E00003FC003F80 + 0003C00003E00003FF00FF800003C00003E00003FF00FF800003C00007E00003 + FF00FF800003C00007E00003FF00FFFC0003C00003E00003FFC3FFFC0003C000 + 03E00003FFC3FFFC0003C00003E00003FFC3FFFC0003E00003E00003FFC3FFFC + 0003FF80C7E00003FFC3FFFC0003FFC0FFE00003FFC3FFFC0003FFC0FFE00003 + FFC3FFFC0003FFF0FFE00003FFFFFFFFFFFFFFF8FFFFFFFFFFFFFFFFFFFFFFF8 + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FC00FFFF00007FF + FFFFFFC3FFC07FFFFC001FFFFFFFFF00FF807FFFFC001FFFFFFFFE00FF807FFF + FC001FF8000FFE007F807E1FFC001FFF181FFE007F807807FC001FFF181FFF81 + FFC07807FC001FFE101FF381CFE07807FC001FFE007FE381C3F87807FC001FFE + 00FFC00003F87807FC001FFC00FF800001F87C07FC001FF8007F000000F87F07 + FC001FF8003F000000F87F87FC001FF0003F000000F87F87FC001FF000FF8000 + 03F87F87FC001FF003FFC381C3F80F87FC001FF007FFE381C7F80187FC001FE0 + 3FFFFF81FFF80007FC001FC0FFFFFE007FF80007FC001FC3FFFFFE007FF80007 + FC001FFFFFFFFE00FFFC0007FC001FFFFFFFFF00FFFF0007FC001FFFFFFFFF81 + FFFFE007FFFFFFFFFFFFFFC7FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFF80000383FFFFFFFFFFFFFFFF80000381FFFFFFFFFF + FFFFFF80000381FFFFFFFFFFFFFFFF800003C07FFF800001800001800003E03F + FF800001800001800003F03FFF800001800001800003F80FFF80000180000180 + 0003FC07FF800001800001800003FE07FF800001800001800003FF00CF800001 + 800001800003FF8007800001800001800003FFC007800001800001800003FFE0 + 03800001800001800003FFE001800001EFFFFF800003FFE001800001E0000380 + 0003FFF803800001FFFFFF800003FFF803800001FFFFFF800003FFF003800001 + FFFFFFFFFFFFFFF003800001FFFFFFFFFFFFFFFE1FFFFFFFFFFFFFFFFFFFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 00FFFFBFFFF0001F807E03F1FFFFFF8FFFF8001F807E03F1FFFFFF8FFFF8001F + 80FF03F1FFFFFF87FFF8001F807E03F1FFFFFF87FFC00003803C03F1FFFFFF83 + FF800003803803F1FFFFFFC3FF800003880013F1FFFFFFC0FFC03C03FC003FF1 + FFFFFFC0FFC07E03FE007FF1FFFFFFC0FF80FF03FF00FFF00003FE007F81FF01 + FF00FFF00003FE003F81FF01FE00FFF00003FE003F80FF01FC003FF00003FE00 + 1FC07E03880013F00003FE001FC03C03801803F00003FE01FF801803803C03F0 + 0003FE00FF800003807E03F00003FE00FFC0000380FF03F00003FE00FFF8001F + 807E03F00003FE007FF8001F807E03F001F3FE003FF8001F807E03F0FFFFFE00 + 3FFCC33FFFFFFFF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFFFFFF03E0780 + 0001F0001FFFFFFFE07E07E00007F0001F800001C03C03E00007F0001F800001 + 803803E00007F0001F800001800001E00007F0001F800001800001E00007F000 + 1F800001800001E00007F0001F800001C00003E00007F0001F800001E00007E0 + 0007F0001F800001F0000FE00007F0001F800001F8001FE00007F0001F800001 + F8001FE00007F0001F800001F0001FE00007F0001F800001E00007E00007F000 + 1F800001C00003E00007F0001F800001800003E00007F0001F800001800001E0 + 0007F0001F800001800001E00007F0001F803FFF801801E00007F0001F803FFF + C03C03E00007F0001F80FFFFE07E07E0000FF0001FFFFFFFF0FF0FE0001FF000 + 1FFFFFFFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF800001FF + F0E3FF00FFFFFFFFE00007FFF003FC001FE0000FE00007FFF003F0000FE0000F + E00007FFF003F00007E0000FE00007FE001FE00003E0000FE00007FE001FC000 + 03E0000FE00007FE001FC00003E0000FE00007C0021F800001E0000FE00007C0 + 021F800001E0000FE00007C0021F800001E0000FE00007C0021F800001E0000F + E00007C0021F800001E0000FE00007C0021F800001E0000FE00007C0021F8000 + 01E0000FE00007C0021F800001E0000FE00007C0021FC00003E0000FE00007C0 + 021FE00003E0000FE00007C0021FF00007E0000FE00007C0021FF00007E0000F + E00007FE001FFC001FE0000FF0000FFE001FFE003FE0000FFE00FFFE001FFF00 + FFF0001FFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF + FFFFFC003FFFFFFFFFFFFF800003F0000FFC03FF840023800003E00007F803FF + 840021800003C00003F003FF840021800003800003E001FF8E00618000038000 + 01C001FF840021800003800001C001FF800001800003000000E000FF80000180 + 0003000000F040FF800001800003000800F0C0FF800001800003003800FFE07F + 800001800003003C00FFE03F800001800003003800FFF03F8000018000030000 + 00FFF81F800001E00007000000FFF81F800001E00007000000FFFC0F800001E0 + 0007800001FFFF03800001FFFFFF800003FFFF03800001FFFFFF800003FFFF83 + FFFFFFFFFFFFE00007FFFFE1FFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF000 + 1FFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003FFFFFFF8001F80001FC00007FFFFFFF8001F80000FC00007800003F0000F + 800007C00007800001F00007800003C00007800001E00003800003C000078000 + 01C01E03800003C00007800001C00F03800003C00007800001800781800003C0 + 00078000018003C1800003C000078000018001C1800003C000078000018100C1 + 800003C00007800001818041800003C0000780000181C001800003C000078000 + 0181E001800003C0000780000181F001800003C00007800003C0F803800003C0 + 0007E00007E00003800003C00007F8001FE00007800003C00007FFC01FF00007 + 800003C00007FFFFFFF8001F800003C00007FFFFFFFE003FFFFFFFC00007FFFF + FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFF80001FF9F3FFFF + FFFFFFFFFFC00003F8E3FF000000FFFFFFC00007F843FF000000800003C00007 + F803FF000000800003C00007F803FF000000800003C00007F803FF0000008000 + 03C00007F803FF000000800003C00007F803FF000000800003C00007F803FF00 + 0000800003C00007F803FF000000800003C00007F803FF000000800003C00007 + F803FF000000800003C00007F8001F000000800003C00007F8001F0000008000 + 03C00007F8001F000000800003C00007F8001F000000800003C00007F8001F00 + 0000800003C0001FF8001F800001800003C0001FF8001FFE3CFF800003C001FF + F8001FFE00FFFFFFFFC001FFF8001FFE00FFFFFFFFC001FFF8001FFE00FFFFFF + FFC001FFFE007FFFFFFFFFFFFFF007FFFFF7FFFFFFFFFFFFFFFFFFFFFFC1FFFF + FFFFF8001FFFFFFFFE003FFE7E7FFE00FFE00007FC001FF83C1FFE18FFC00003 + F8000FF03C1FFE38FFC00003F00003F0181FFE3CFFC00003C0C181F8181FFC38 + FFC00003C1C1C1F8001FFC38FFC00003C1C1C1FE007FFC38FFC00003C1C1E1FE + 007FFC38FFC00003C3E3E1FE00FFFC38FFC00003CFE3F9800001FC38FF800001 + CFE3FD800001FC38FF800001FF80FF800001FC38FF800001FF80FF800001FC38 + FF800001FFE3FFFE00FFFC30FFFFC7FFFFC1FFFE007FFC30FFFFC7FFFF80FFFC + 003FFC00FFFFC7FFFF80FFFC001FFC84FFFFC7FFFF88FFF8181FFCFCFFFFC7FF + FF80FFF0381FFC38FFFFC7FFFF80FFF03C1FFC00FFFFC7FFFFC0FFF83C1FFE00 + FFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FC + 001FC0001FE0000FFFFF01FF00FFC00007E0000FFFFF01FF00FFC00007E0000F + FFFE01FF00FFC00007E0000FFFF801FF00FFC00007C00007FFF803FF00FFC000 + 07C00007FFF003FF00FFC00007800003FFE00F800000C00007800003F0001F80 + 0000C00007800003E0001F800000C0000780000380007F800000C00007800003 + 8000FF800000C000078000038001FF800000C000078000030001FF800000C000 + 078000030001FF800000C000078000030001FF800000C0000780000300001FFF + 00FFC0000780000300001FFF00FFC0000780000300001FFF00FFC00007800003 + 8003FFFF00FFC000078000038007FFFF00FFC00007C06C07C007FFFF00FFC000 + 07F0C60FF03FFFFF00FFFFFFFFFFFFFFFFFFFFC0000FFFFFFFFFFFFFFFFFFFE0 + 7FFFFFFFFFFFFFFFFFFFFF803FFF800003F0001FFFFFFF801FFFE0000FFC003F + FFFFFF860FFFE0000FFC003F8007F98F07FFE0000FFF00FF8007F18707FFE000 + 0F0000008007F18207FFE0000F000000801FE1C007FFE0000F000000803FC3E0 + 07FFE0000F000000801F03F003FFE0000F000000800003F8001FE0000F000000 + 800003FC000FE0000F000000800007FFC007F0001F00000080000FFFE003F8FE + 3F00000080000FFFE001F8FE3F00000080001FFFE061F8FE3F000000FC003FFF + F0F0F87C3F000000FE00FFFFF070F87C3F000000FF01FFFFF820F8383F000000 + FFFFFFFFFC01FC007F000000FFFFFFFFFE03FE00FF000000FFFFFFFFFF03FF01 + FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003F0 + 3E0FE00003E00003FC001FF07F07FC001FFC001FF0000FF07F07F0000FF0000F + F00007F03E07F00007F00007E00003F03C27E00003E00003C00003F01847C000 + 03C00003C00003F00807C00003C00003800001F0000F800001800001800001F8 + 001F800001800001800001FE003F800001800001800001FF80FF800001800001 + 800001FF80FF800001800001800001FF00FF800001800001800001FE087F8000 + 01800001800001FE183F800001800001C00003FE183FC00003C00003E00003FC + 3E1FE00003E00003F00007F87F1FF00007F00007F00007F07F0FF00007F00007 + FC001FF1FF8FFC001FFC001FFE003FF1FFCFFE003FFE003FFF00FFF3FFEFFF00 + FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF8007FFE00003FFFFFFFFFFFF83FFFFFC001F800000800001C1FFFFF0000F + 800000800003E0FFFFF00007900081800003F03E7FE00003900081800003F03C + 7FC00003900081800003F0187FC00003900081800003FC007F80000190008180 + 0003FE007F800001900081800003FE007F8000019000FF800003FF803F800001 + 9000FF800003FF001F8000019000FF800003FE001F8000019000FF800003FC00 + 078000019FC0FF800003FC00038000019FC0FF800003FC0000C000039FC0FF80 + 0003FFF800E000039FC0FF800003FFF801F000079FC0FF800003FFFC03F00007 + 9FC0FFFFFFFFFFFF07FC001F9FC0FFFFFFFFFFFF0FFE003F9FFFFFFFFFFFFFFF + 1FFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFF03FFFFFE00300000080007FC01FFFFFFF0180000183FFFF800FFFFFFF01 + 80000183FFFF8207FFFFFE0180000181FFFF8F87FFFFF801800001807FFF8FC7 + FFFFF803800001C03FFF8FC7FFFFF003800001F00FFF8F07FFFFE00F800001F0 + 00FF8207FFF0001F800001F8003F8003FFE0001F800001FE001FE000FF80007F + 800001FE0007F000FF8000FF800001FF0003FFC07F8001FF800001FF0003FFF0 + 1F0001FF800001FF0003FFF81F0001FF800001FF0203FFF80F0001FF800001FF + 8703FFFE030001FF800001FF8707FFFF030001FF803FFFFFC20FFFFF010001FF + 807FFFFFE01FFFFF008003FF80FFFFFFE03FFFFF008007FFFFFFFFFFF07FFFFF + 00C007FFFFFFFFFFFFFFFFFFC7F03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF800003800001FFF1FFC00003E00007CC0033FFE1FF800003E00007CC0033 + FFE1FF800003E00007C00003FFC1FF800003E00007C00003C00003800003E000 + 07CC0033800003800003E00007CC0033800001800003E00007C0000380000180 + 0003E00007C00003800001800003E00007CC0033800001800003E00007C00003 + 800001800003E00007C00003800001800003E00007C00003800001800003E000 + 07CC0033800001800003E00007C00003800001800003E00007C0000380000180 + 0003E00007CC0033800001800003E00007CC0033800001800003E00007C00003 + 800001800003E00007C00003800001C00003E0000FCC0033800003E00007E000 + 1FCC0033FFFFFFFFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFF + FFFFFFFFFFFE003F000000000000C1F0FFF0000F000001000001C0007FF00007 + 800001000001C000FFE00003800001000001E3F8FFC00003800001000001FFFC + 7F800001800001000001FFFC7F800001C0000300000180003F800000E0000700 + 000180003F800000F0000F00000080003F800000FF00FF00000080001F800000 + FF81FF00000080001F800000FF00FF00000080001F800000FF00FF0000008000 + 1F800000FE00FF00000180000F800000FE00FF00000180000F800001FE00FF00 + 0001C00007C00003FE00FF000001FFE007C00003FE00FF000001FFFFC1E00003 + FF00FF000001FFFFE1F0000FFF00FF000001FFFFFFF8001FFF81FF000001FFFF + FFFE003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000001FFFFFF00000000 + 0000000041FE000F800001800001800041FC0007800000800001800041FA000F + 800000800001800041F00FFF800000800001800041F007FF8000008000018000 + 41E003FF8000008000018000418003FF8000008000018000418001FF80000080 + 00018000410001FF80000080000180004101807F80000080000180004103C07F + 80000080000080006387E07F80000080000080007F87F03F8000008000008000 + 7FFFF81F80000180000080007FFFFC0F80000180000080007FFFFE0FC0000380 + 000080007FFFFF07E0000780000080007FFFFF87F0000F800001803FFFFFFFC1 + F8001F800001803FFFFFFFE1FC003F801801803FFFFFFFF1FE007F803E01803F + FFFFFFF8FFFFFFC1FFC1807FFFFFFFFCFFFFFFFFFFFFFFFFFFFFFFFF00000180 + 0001FFFFFF800001000001E00007FFFFFFE00007800001E00007FFFFFFE00007 + 800001E00007000001E00007800001E00007000001F0000F800001E000078000 + 07F0000F800001E00007800003F0000F800001E00007800003F0000F800001E0 + 0007800001F0000F800001E00007800001E00007800001E00007800001E00007 + 800001E00007800001E00007800001E00007800000E00007800001E000078000 + 00E00007800001E00007800000E00007800001E00007800007F0000F800001E0 + 0007800007F8001F800001E00007800007FC003F800001E0000780000FFE007F + 800001E00007803FFFFF007F800001E00007FFFFFFFF807F800001FF81FFFFFF + FFFFC07FFFFFFFFF81FFFFFFFFFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFF9FFFFF + FFFFFFFFFF000000FF87FFFC007FE00007800001FF87FFF8003FC00007800001 + FF83FFF0001FE00007800001FF81FFE0000FE00007800001FF81FFC00007E000 + 07800001FF81FF800003E00007800001FF81FF800003E00007800001FF81FF80 + 0003E00007800001FF81FF800003F0000F800001FF00FF800003F8001F800001 + FE007F800003FE00FF800001FE003F800003FF00FF800001F8001F800003FE00 + FF800001F0000F800003FE007F800001F00007800003FE007F800001C0000380 + 0003FE007F800001800001C00007FE007F800001800001E0000FFE007F800001 + 800001F0001FFE00FF800001800001F8003FFE00FF800001800001FC007FFF00 + FF800001FFFFFFFFFFFFFFFFFFFCFF3FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFF + FFFFFE00FFFFC7FFFFF8FFFF3FFFFE00FFFF81FFFFF8FFFE3FFFFE00FFFF00FF + FFF87FFE3FFFFE00FFFE00FFFFF81FF83FFFFE00FFFC003FFFF81FF03FFFFE00 + FFF8001F80000FF00001FE00FFF0001F800003C00001FE00FFE0000780000380 + 0001FE00FFE00003800001800001FE00FFE00007800001800001FE00FFFE00FF + 800001800001FE00FFFE00FF800003800001FE00FFFE00FF800007E00001E000 + 03FE00FF80000FF00001E00007FE00FFFFF81FF03FFFF0000FFE00FFFFF83FFC + 3FFFF8001FFE00FFFFF87FFE3FFFFC003FFE00FFFFF8FFFE3FFFFE007FFE00FF + FFFFFFFFFFFFFF00FFFE00FFFFFFFFFFFFFFFF81FFFE00FFFFFFFFFFFFFFFFC3 + FFFE00FFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFC003FFFFFFFFC007FFC007FFC003FE00003F8003FF8003FF0001FC00003 + F0001FF0001FF0000F800003E0000FE0000F800003800003C00007C000078000 + 0380000380000380000380000380000380000380000380000380000380000380 + 0003800003800003800003800003800003800003800003800003800003800003 + 800003800003800003800003800003800003800003800003800003800003C000 + 03800003800003800003E00007800003800003800003F0001F80000380000380 + 0003F0001F800003C00007C00007F0001F800003E0000FE0000FF0001F800003 + F0001FF0001FFC003F800003F8003FF8003FFC003F800003FC007FFC007FFC00 + 3F800003FFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFC001FF0 + 000FE00003FFFFFFFC001FFF83FFFC001FC1FFFFFC001FFF00FFF0000FC0FFFF + FC001FFE007FF00007E03FFFFC001FFC003FE00003F00FFFFC001FF8003FC000 + 03F007FFFC001FF0000FC00003F007FFFC001FE0000F800001F001FFFC001FC0 + 0007800001F800FFFC001F800001800001F800FFFC003F000001800001FE003F + 000001000001800001FE001F000001FC003F800001FF001F800003FC003F8000 + 01FFC007C00007FC003F800001FFC003E0000FFC003FC00003FFE003F0001FFC + 003FE00003FFF801F8003FFC003FF00007FFF801FC007FFC003FF00007FFFC01 + FE00FFFC003FFC001FFFFF01FF01FFFC003FFE003FFFFF83FF83FFFC003FFF00 + FFFFFFC3FFC7FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFF0000FE0001FF8000F00 + 0000F0000FE0001FFE003F800001FFF1FFFF8FFF000000800005FFF0FFFF0FFF + 000000800001FFF07FFE0FFF80000180000100103FFC08008000018000010000 + 0FF00000800001800001000007E00000800001800001000003C0000080000180 + 0001000003C00000800001800001000000000000800001800001000000000000 + 8000018000010000000000008000018000010000000000008000018000010000 + 01800000800001800001000003C00000E40007800001000007E00000FC003F80 + 000100000FF00000FC003F800001FFF01FF80FFFFC003F800001FFF03FFC0FFF + FC003F800001FFF07FFE0FFFFC003F800001FFF0FFFF0FFFFC003F800001FFF1 + FFFF8FFFFFFFFFFFFFFFFFF7FFFFEFFFF8003FFFFFFF88007FFFFFFFFE003FE0 + 0001800000000000FE00FFC00001FE00FF000000FE00FFF00003FE00FFF0000F + FF01FFF00003FE00FFF0000FFF01FFF00003FE00FFF0000F000000F00003FE00 + FFF00007000000F00003FE00FFF00007000000F00003000001F00007000000F0 + 0003000001F00007000000F00003000001F00003000000F00003000001E00003 + 000000F00003000001E00003000000F00001000001E00003000000F000010000 + 01E00001000000F00001000001800001000000F00003000001800001000000F0 + 000FFE00FF800001000000F0000FFE00FF800001000000F0001FFE00FF800001 + 000000F0007FFE00FF800000000000F0007FFE00FF800001000000F000FFFE00 + FF800001000000F003FFFE00FFE0000300000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 147 + Top = 80 + 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, svTextColor] + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBlack + 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 = clOlive + 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 = clPurple + 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 = clWindowText + 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 + object SHuangSeCu: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas b/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas new file mode 100644 index 0000000..c0443f8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas @@ -0,0 +1,70 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils; +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; //˾ +type + TDataLink_PBMDDJ = 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_PBMDDJ: TDataLink_PBMDDJ; + +implementation +{$R *.dfm} + + +procedure TDataLink_PBMDDJ.DataModuleDestroy(Sender: TObject); +begin + DataLink_PBMDDJ:=nil; +end; + +end. + + + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm new file mode 100644 index 0000000..e8e9206 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm @@ -0,0 +1,645 @@ +object frmFHChkList: TfrmFHChkList + Left = 139 + Top = 108 + Width = 1382 + Height = 547 + Caption = #21457#36135#25209#20934 + 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 = 1366 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25209#20934#21457#36135 + ImageIndex = 77 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25209#20934#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 513 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + 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 Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25209#20934 + #24050#25209#20934 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + 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 = 382 + Top = 217 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 320 + Top = 216 + 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 = 351 + Top = 216 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 413 + Top = 219 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 445 + Top = 219 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 216 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas new file mode 100644 index 0000000..904bf16 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas @@ -0,0 +1,648 @@ +unit U_FHChkList; + +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, cxCheckBox, Menus; + + +type + TfrmFHChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHChkList: TfrmFHChkList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmFHChkList.FormDestroy(Sender: TObject); +begin + frmFHChkList:=nil; +end; + +procedure TfrmFHChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmFHChkList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHChkList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHChkList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHChkList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('׼б',cxGrid1); +end; + +procedure TfrmFHChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHChkList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='׼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHChkList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHChkList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.WorkerChange(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 TfrmFHChkList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHChkList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHChkList.ToolButton1Click(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 TfrmFHChkList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHChkList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmFHChkList.TBAddClick(Sender: TObject); +var + FBHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkStatus').Value:='׼'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('׼쳣!','ʾ',0); + end; +end; + +procedure TfrmFHChkList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('ѷܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Chker').Value:=NUll; + FieldByName('ChkTime').Value:=NUll; + FieldByName('ChkStatus').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmFHChkList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHChkList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm new file mode 100644 index 0000000..9c8e503 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm @@ -0,0 +1,263 @@ +object frmFHInPut: TfrmFHInPut + Left = 150 + Top = 90 + Width = 1356 + Height = 573 + Align = alClient + 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 = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Tag = 99 + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column1: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Tag = 99 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column10: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 145 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas new file mode 100644 index 0000000..5648880 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas @@ -0,0 +1,308 @@ +unit U_FHInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmFHInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmFHInPut: TfrmFHInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList; + +{$R *.dfm} + +procedure TfrmFHInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,''); +end; + +procedure TfrmFHInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' where A.FHId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmFHInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmFHInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('¼',Tv1,''); + InitData(); +end; +procedure TfrmFHInPut.GetMaxConNO(); +begin + +end; +function TfrmFHInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','JYOrder_FH',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FHID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Sub.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_FH',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmFHInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('SQDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SQQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmFHInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmOrderSunSelList:=TfrmOrderSunSelList.Create(Application); + with frmOrderSunSelList do + begin + if ShowModal=1 then + begin + with frmOrderSunSelList.Order_Main do + begin + First; + while frmOrderSunSelList.Order_Main.Locate('SSel',True,[]) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('MainId').Value:=frmOrderSunSelList.Order_Main.FieldByName('MainId').Value; + FieldByName('SubId').Value:=frmOrderSunSelList.Order_Main.FieldByName('SubId').Value; + FieldByName('OrderNo').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('PRTName').Value:=Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTCodeName').AsString); + FieldByName('PRTColor').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTColor').Value; + FieldByName('PRTHX').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderUnit').Value; + FieldByName('SQPS').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCPS').Value; + FieldByName('SQQty').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCQty').Value; + FieldByName('SQDate').Value:=FSQDate; + Post; + end; + frmOrderSunSelList.Order_Main.Delete; + end; + + end; + end; + end; + finally + frmOrderSunSelList.Free; + end; + ToolBar1.SetFocus; +end; + +procedure TfrmFHInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FHId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Sub.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmFHInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm new file mode 100644 index 0000000..fbcb457 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm @@ -0,0 +1,280 @@ +object frmFHJJInPut: TfrmFHJJInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #32039#24613#21457#36135#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 = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Tag = 99 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column1: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Tag = 99 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 145 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas new file mode 100644 index 0000000..3d21f73 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas @@ -0,0 +1,313 @@ +unit U_FHJJInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmFHJJInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmFHJJInPut: TfrmFHJJInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList; + +{$R *.dfm} + +procedure TfrmFHJJInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,''); +end; + +procedure TfrmFHJJInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' where A.FHId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmFHJJInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmFHJJInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('¼',Tv1,''); + InitData(); +end; +procedure TfrmFHJJInPut.GetMaxConNO(); +begin + +end; +function TfrmFHJJInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','JYOrder_FH',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FHID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Sub.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_FH',0) ; + FieldByName('FHType').Value:=''; + FieldByName('FHPerson').Value:=Trim(DName); + FieldByName('FHStatus').Value:='ѷ'; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmFHJJInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FHDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FHQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmFHJJInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmOrderSunSelList:=TfrmOrderSunSelList.Create(Application); + with frmOrderSunSelList do + begin + if ShowModal=1 then + begin + with frmOrderSunSelList.Order_Main do + begin + First; + while not Eof do + begin + if frmOrderSunSelList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('MainId').Value:=frmOrderSunSelList.Order_Main.FieldByName('MainId').Value; + FieldByName('SubId').Value:=frmOrderSunSelList.Order_Main.FieldByName('SubId').Value; + FieldByName('OrderNo').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('PRTCode').Value:=Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTCode').AsString)+ + Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTGY').AsString); + FieldByName('PRTColor').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTColor').Value; + FieldByName('PRTHX').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderUnit').Value; + FieldByName('FHPS').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCPS').Value; + FieldByName('FHQty').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCQty').Value; + FieldByName('FHDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmOrderSunSelList.Free; + end; +end; + +procedure TfrmFHJJInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FHId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Sub.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmFHJJInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm new file mode 100644 index 0000000..115949c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm @@ -0,0 +1,632 @@ +object frmFHList: TfrmFHList + Left = 26 + Top = 140 + Width = 1378 + Height = 547 + Caption = #21457#36135#30003#35831 + 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 = 1362 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + 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 Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25209#20934 + #24050#25209#20934#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHList.pas new file mode 100644 index 0000000..4a74dd6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHList.pas @@ -0,0 +1,590 @@ +unit U_FHList; + +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, cxCheckBox; + + +type + TfrmFHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHList: TfrmFHList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmFHList.FormDestroy(Sender: TObject); +begin + frmFHList:=nil; +end; + +procedure TfrmFHList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmFHList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' or isnull(FHTYpe,'''')='''') '); + end; + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(BHStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѱ޸!','ʾ',0); + Exit; + end; + try + frmFHInPut:=TfrmFHInPut.Create(Application); + with frmFHInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FHID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmFHInPut.Free; + end; +end; + +procedure TfrmFHList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('',cxGrid1); +end; + +procedure TfrmFHList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.TBAddClick(Sender: TObject); +begin + try + frmFHInPut:=TfrmFHInPut.Create(Application); + with frmFHInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmFHInPut.Free; + end; +end; + +procedure TfrmFHList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.WorkerChange(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 TfrmFHList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHList.ToolButton1Click(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 TfrmFHList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm new file mode 100644 index 0000000..2f5e4e1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm @@ -0,0 +1,647 @@ +object frmFHOKList: TfrmFHOKList + Left = 124 + Top = 87 + Width = 1378 + Height = 547 + Caption = #30830#35748#21457#36135 + 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 = 1362 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21457#36135 + ImageIndex = 34 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21457#36135#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + Caption = #32039#24613#21457#36135 + ImageIndex = 67 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 509 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 572 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + 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 Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS10' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty10' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas new file mode 100644 index 0000000..4beadb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas @@ -0,0 +1,681 @@ +unit U_FHOKList; + +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, cxCheckBox, Menus; + + +type + TfrmFHOKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton2: TToolButton; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHOKList: TfrmFHOKList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmFHOKList.FormDestroy(Sender: TObject); +begin + frmFHOKList:=nil; +end; + +procedure TfrmFHOKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHOKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʵʷ',Tv1,''); +end; + +procedure TfrmFHOKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 '); + sql.Add(',A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHOKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('ʵʷ',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHOKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHOKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHOKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʵʷб',cxGrid1); +end; + +procedure TfrmFHOKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHOKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʵʷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHOKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHOKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHOKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHOKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.WorkerChange(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 TfrmFHOKList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKList.ToolButton1Click(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 TfrmFHOKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHOKList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmFHOKList.TBAddClick(Sender: TObject); +var + FFHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FHQty10',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FFHDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + {if Order_Main.FieldByName('FHQty').Value>Order_Main.FieldByName('BHQty').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('ڱ!','ʾ',0); + Exit; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('FHPerson').Value:=Trim(DName); + if Trim(Order_Main.fieldbyname('FHDate').AsString)='' then + FieldByName('FHDate').Value:=FFHDate + else + FieldByName('FHDate').Value:=Trim(Order_Main.fieldbyname('FHDate').AsString); + FieldByName('FHPS').Value:=Order_Main.fieldbyname('FHPS10').Value; + FieldByName('FHQty').Value:=Order_Main.fieldbyname('FHQty10').Value; + FieldByName('FHNote').Value:=Order_Main.fieldbyname('FHNote').Value; + FieldByName('FHStatus').Value:='ѷ'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('׼쳣!','ʾ',0); + end; +end; + +procedure TfrmFHOKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(Order_Main.FieldByName('FHType').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('FHPerson').Value:=Null; + FieldByName('FHDate').Value:=Null; + FieldByName('FHPS').Value:=Null; + FieldByName('FHQty').Value:=Null; + FieldByName('FHNote').Value:=Null; + FieldByName('FHStatus').Value:=Null; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmFHOKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHOKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmFHOKList.ToolButton2Click(Sender: TObject); +begin + try + frmFHJJInPut:=TfrmFHJJInPut.Create(Application); + with frmFHJJInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmFHJJInPut.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm new file mode 100644 index 0000000..e0e1072 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm @@ -0,0 +1,669 @@ +object frmFHOKSelList: TfrmFHOKSelList + Left = 87 + Top = 106 + Width = 1382 + Height = 547 + Caption = #21457#36135#35760#24405 + 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 = 1366 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + 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 Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTCode: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v1Column22 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column21: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'FHMoney' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1Column23: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #21487#36873#25321 + #24050#36873#25321 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas new file mode 100644 index 0000000..c1fafa9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas @@ -0,0 +1,586 @@ +unit U_FHOKSelList; + +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, cxCheckBox, Menus; + + +type + TfrmFHOKSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column8: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHOKSelList: TfrmFHOKSelList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmFHOKSelList.FormDestroy(Sender: TObject); +begin + frmFHOKSelList:=nil; +end; + +procedure TfrmFHOKSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHOKSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,'CI'); +end; + +procedure TfrmFHOKSelList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 '); + sql.Add(',A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(' ,E.PRTPrice,E.PriceUnit,F.ConNo,F.CustomerNoName,F.CustomerNo,PIMainId=E.Mainid,PISubId=E.SubId,FHMoney=E.PRTPrice*A.FHQty'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' inner join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' left join JYOrderCon_Sub E on D.PISubId=E.SubId'); + sql.Add(' left join JYorderCon_Main F on E.Mainid=F.MainId'); + sql.Add(' where not exists(select * from JYOrder_CI_Sub JCS where JCS.FHID=A.FHID)'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHOKSelList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('¼',Tv1,'CI'); + //InitGrid(); +end; + +procedure TfrmFHOKSelList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHOKSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHOKSelList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʵʷб',cxGrid1); +end; + +procedure TfrmFHOKSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHOKSelList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʵʷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHOKSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHOKSelList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select '); //isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 + sql.Add(' A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(' ,E.PRTPrice,E.PriceUnit,F.ConNo,F.CustomerNoName,PIMainId=E.Mainid,PISubId=E.SubId,FHMoney=E.PRTPrice*A.FHQty'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' inner join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' left join JYOrderCon_Sub E on D.PISubId=E.SubId'); + sql.Add(' left join JYorderCon_Main F on E.Mainid=F.MainId'); + sql.Add(' where not exists(select * from JYOrder_CI_Sub JCS where JCS.FHID=A.FHID)'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHOKSelList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHOKSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.WorkerChange(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 TfrmFHOKSelList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKSelList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKSelList.ToolButton1Click(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 TfrmFHOKSelList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHOKSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); + end; + +end; + +procedure TfrmFHOKSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHOKSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmFHOKSelList.ToolButton2Click(Sender: TObject); +var + FConNO:String; +begin + if Order_Main.IsEmpty then exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + exit; + end; + if Order_Main.Locate('SSel;ConNo',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox(PChar(Trim(Order_Main.fieldbyname('OrderNo').AsString)+ + Trim(Order_Main.fieldbyname('PRTColor').AsString)+ + Trim(Order_Main.fieldbyname('PRTHX').AsString)+ + 'δָ!'),'ʾ',0); + Exit; + end; + FConNO:=''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + if Trim(FConNO)='' then + begin + FConNO:=Trim(Order_Main.fieldbyname('ConNo').AsString); + end else + begin + if FConNO<>Trim(Order_Main.fieldbyname('ConNo').AsString) then + begin + Order_Main.EnableControls; + Application.MessageBox('ͬŲͬ!','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm b/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm new file mode 100644 index 0000000..a401970 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas b/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas new file mode 100644 index 0000000..4b8f99f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm new file mode 100644 index 0000000..a94ce83 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm @@ -0,0 +1,172 @@ +object frmFjList: TfrmFjList + Left = 154 + Top = 62 + Width = 1049 + Height = 540 + BorderIcons = [biSystemMenu, biMinimize] + Caption = #38468#20214#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ListView1: TListView + Left = 36 + Top = 88 + Width = 141 + Height = 137 + Columns = <> + TabOrder = 0 + OnDblClick = ListView1DblClick + end + object Panel1: TPanel + Left = 882 + Top = 0 + Width = 151 + Height = 501 + Align = alRight + TabOrder = 1 + object FileName: TcxButton + Left = 30 + Top = 60 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152 + TabOrder = 0 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 30 + Top = 96 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #21024#38500 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 30 + Top = 132 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20445#23384 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton3: TcxButton + Left = 30 + Top = 172 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20851#38381 + TabOrder = 3 + Visible = False + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton4: TcxButton + Left = 30 + Top = 220 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152#25991#20214#22841 + TabOrder = 4 + OnClick = cxButton4Click + LookAndFeel.Kind = lfOffice11 + end + end + object Panel2: TPanel + Left = 24 + Top = 124 + Width = 193 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel2' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnDblClick = Panel2DblClick + end + object ShellListView1: TShellListView + Left = 177 + Top = 0 + Width = 705 + Height = 501 + ObjectTypes = [otFolders, otNonFolders] + Root = 'rfDesktop' + ShellTreeView = ShellTreeView1 + Sorted = True + Align = alClient + ReadOnly = False + TabOrder = 3 + end + object ShellTreeView1: TShellTreeView + Left = 0 + Top = 0 + Width = 177 + Height = 501 + ObjectTypes = [otFolders] + Root = 'rfDesktop' + ShellListView = ShellListView1 + UseShellImages = True + Align = alLeft + AutoRefresh = False + Indent = 19 + ParentColor = False + RightClickSelect = True + ShowRoot = False + TabOrder = 4 + end + object ADOQueryTmp: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 512 + Top = 28 + end + object ADOQueryCmd: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 560 + Top = 24 + end + object ImageList1: TImageList + Left = 520 + Top = 212 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 340 + Top = 190 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 484 + Top = 240 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FjList.pas b/坯布码单待检(PBMDDJ.dll)/U_FjList.pas new file mode 100644 index 0000000..616b67e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FjList.pas @@ -0,0 +1,436 @@ +unit U_FjList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, + cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP, ShlObj, cxShellCommon, cxControls, + cxContainer, cxShellTreeView, cxShellListView, ShellCtrls; + +type + TfrmFjList = class(TForm) + ListView1: TListView; + Panel1: TPanel; + FileName: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + ImageList1: TImageList; + Panel2: TPanel; + IdFTP1: TIdFTP; + ADOConnection1: TADOConnection; + cxButton4: TcxButton; + ShellListView1: TShellListView; + ShellTreeView1: TShellTreeView; + procedure cxButton3Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ListView1DblClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Panel2DblClick(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + private + procedure InitData(); + { Private declarations } + public + fkeyNO:string; + fType:string; + fId:integer; + + fstatus:integer; + + { Public declarations } + end; + +var +frmFjList: TfrmFjList; + +implementation + uses + U_DataLink,U_RTFun; +{$R *.dfm} +procedure TfrmFjList.InitData(); +var + ListItem: TListItem; + Flag: Cardinal; + info: SHFILEINFOA; + Icon: TIcon; +begin + ListView1.Items.Clear; + try + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select fileName from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + open; + if not IsEmpty then + begin + while not eof do + begin + with ListView1 do + begin + LargeImages := ImageList1; + Icon := TIcon.Create; + ListItem := Items.Add; + Listitem.Caption := trim(fieldbyname('fileName').AsString); + // Listitem.SubItems.Add(OpenDiaLog.FileName); + Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); + SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag); + Icon.Handle := info.hIcon; + ImageList1.AddIcon(Icon); + ListItem.ImageIndex := ImageList1.Count - 1; + end; + next; + end; + end; + end; + except + end; +end; + +procedure TfrmFjList.cxButton3Click(Sender: TObject); +begin + ADOQueryTmp.Close; + ADOQuerycmd.Close; + ListView1.Items.Free; + ModalResult:=-1; +end; + +procedure TfrmFjList.FormDestroy(Sender: TObject); +begin + frmFjList:=nil; +end; + +procedure TfrmFjList.FileNameClick(Sender: TObject); +var + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; + maxNo:string; +// myStream: TADOBlobStream; +// FJStream : TMemoryStream; +begin + + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select TFId from TP_File '); + sql.Add('where WBID<>'+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + IF not adoqueryCmd.IsEmpty then + begin + application.MessageBox('˸Ѵڣ޸ļϴ','ʾϢ',MB_ICONERROR); + exit; + end; + end; + + Panel2.Caption:='ϴݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + + if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + adoqueryCmd.Connection.BeginTrans; + + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + try + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + append; + fieldbyname('TFID').Value:=trim(maxNO); + fieldbyname('WBID').Value:=trim(fkeyNO); + fieldbyname('TFType').Value:=trim(fType); + fieldbyname('FileName').Value:=trim(fFileName); + // tblobfield(FieldByName('Filesother')).LoadFromFile(fFilePath); + post; + end; + + if fFilePath <> '' then + begin + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName)); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; + + Panel2.Visible:=false; + initdata(); + finally + // FJStream.Free; + end; + + end; + adoqueryCmd.Connection.CommitTrans; + except + adoqueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFjList.FormCreate(Sender: TObject); +begin + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + ListView1.Align:=alclient; + fstatus:=0; +end; + +procedure TfrmFjList.FormShow(Sender: TObject); +begin + IF fstatus=0 then Panel1.Visible:=true + else Panel1.Visible:=false; + //initdata(); +end; + +procedure TfrmFjList.ListView1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; +begin + if ListView1.Items.Count<1 THEN EXIT; + + if listView1.SelCount<1 then exit; + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=ListView1.Selected.Caption; + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + +end; + +procedure TfrmFjList.cxButton1Click(Sender: TObject); +var + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + fFileName:=ListView1.Selected.Caption; + // ADOQueryTmp.Locate('fileName',fFileName,[]); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + initData(); + + except + end; + +end; + +procedure TfrmFjList.cxButton2Click(Sender: TObject); +var + SaveDialog: TSaveDialog; + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + + fFileName:=ListView1.Selected.Caption; + + SaveDialog := TSaveDialog.Create(Self); + + SaveDialog.FileName:=fFileName; + if SaveDialog.Execute then + begin + Panel2.Caption:='ڱݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + fFilePath:=SaveDialog.FileName; + try + IdFTP1.Host := '127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + end; + except + Panel2.Visible:=false; + end; +end; + +procedure TfrmFjList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if fId=10 then Action:=cafree + else + Action:=cahide; +end; + +procedure TfrmFjList.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmFjList.cxButton4Click(Sender: TObject); +var + fFilePath,FName:string; +begin + if Assigned(ShellListView1.Selected) then + begin + if ShellListView1.Selected.Selected then + begin + if ShellListView1.SelectedFolder.IsFolder then + begin + ShowMessage(ShellListView1.SelectedFolder.PathName); + end + else + begin + ShowMessage(ShellListView1.SelectedFolder.PathName); + end; + end; + end; + + //if fFilePath <> '' then + //fFilePath:=ShellListView1.SelectedFolder.PathName; + // FName:=ShellListView1.SelectedFolder.DisplayName; + begin + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(ShellListView1.SelectedFolder.PathName, 'FJ\' +ShellListView1.SelectedFolder.PathName); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm new file mode 100644 index 0000000..a437d95 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm @@ -0,0 +1,312 @@ +object frmGYSFPInPut: TfrmGYSFPInPut + Left = 42 + Top = 67 + Width = 1191 + Height = 573 + Align = alClient + Caption = #20379#24212#21830#21457#31080#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 = 1175 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 64 + end + object ToolButton3: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1175 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas new file mode 100644 index 0000000..8659fb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas @@ -0,0 +1,401 @@ +unit U_GYSFPInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmGYSFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmGYSFPInPut: TfrmGYSFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGMXSelList; + +{$R *.dfm} + +procedure TfrmGYSFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmGYSFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmGYSFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmGYSFPInPut.GetMaxConNO(); +begin + +end; +function TfrmGYSFPInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('BFID').Value:=Order_Sub.fieldbyname('BFID').Value; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='GYS'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmGYSFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGMXSelList:=TfrmBGMXSelList.Create(Application); + with frmBGMXSelList do + begin + if ShowModal=1 then + begin + with frmBGMXSelList.Order_Main do + begin + First; + while not Eof do + begin + if frmBGMXSelList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGMXSelList.Order_Main.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGMXSelList.Order_Main.FieldByName('BCID').Value; + FieldByName('BFID').Value:=frmBGMXSelList.Order_Main.FieldByName('BFID').Value; + FieldByName('OrderNo').Value:=frmBGMXSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('BFName').Value:=frmBGMXSelList.Order_Main.FieldByName('BFName').Value; + //FieldByName('GHDanWei').Value:=Trim(frmBGMXSelList.Order_Main.FieldByName('ComTaiTou').AsString); + FieldByName('XHDanWei').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('FactoryName').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryNo').Value; + FieldByName('QtyUnit').Value:=frmBGMXSelList.Order_Main.FieldByName('BFUnit').Value; + if Trim(frmBGMXSelList.Order_Main.FieldByName('BFUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGMXSelList.Order_Main.FieldByName('BFMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGMXSelList.Order_Main.FieldByName('BFQty').Value; + end; + FieldByName('Price').Value:=frmBGMXSelList.Order_Main.FieldByName('BFPrice').Value; + FieldByName('Money').Value:=FieldByName('Price').Value*FieldByName('Qty').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGMXSelList.Free; + end; +end; + +procedure TfrmGYSFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmGYSFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmGYSFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm new file mode 100644 index 0000000..800c678 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm @@ -0,0 +1,305 @@ +object frmGYSFPInPutWGL: TfrmGYSFPInPutWGL + Left = 42 + Top = 67 + Width = 1191 + Height = 625 + Align = alClient + Caption = #20379#24212#21830#21457#31080#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 = 1175 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1175 + Height = 557 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 131 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#20844#21496#25260#22836 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21457#31080#20379#24212#21830 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taLeftJustify + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 100 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 472 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 549 + Top = 147 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 543 + Top = 184 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 478 + Top = 180 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 581 + Top = 149 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 514 + Top = 182 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 514 + Top = 147 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas new file mode 100644 index 0000000..2348205 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas @@ -0,0 +1,464 @@ +unit U_GYSFPInPutWGL; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter, cxCheckBox; + +type + TfrmGYSFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + ADOQueryMain: TADOQuery; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmGYSFPInPutWGL: TfrmGYSFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGMXSelList, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmGYSFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmGYSFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmGYSFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmGYSFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmGYSFPInPutWGL.SaveData():Boolean; +var + maxno,LSFMID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + { if Trim(Order_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox(PChar(':'+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+'!'),'ʾ',0); + Exit; + end; + end; } + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + LSFMID:=Trim(ADOTemp.fieldbyname('FMID').AsString); + if Trim(LSFMID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(LSFMID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(LSFMID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('BFID').Value:=Order_Sub.fieldbyname('BFID').Value; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('OrderNo').Value:=Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('FMType').Value:='GYS'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(LSFMID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Post; + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('˾̧ͷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BFName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + +end; + +procedure TfrmGYSFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + if Order_Sub.IsEmpty=False then + begin + CopyAddRowCDS(Order_Sub); + end else + begin + with Order_Sub do + begin + Append; + FieldByName('FPDate').Value:=FSQDate; + FieldByName('QtyUnit').Value:='M'; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('FMID').Value:=Null; + FieldByName('FPNO').Value:=Null; + Post; + end; +end; + +procedure TfrmGYSFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmGYSFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column18PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYSFPName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + FieldByName('XHDanWei').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm new file mode 100644 index 0000000..24f3259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm @@ -0,0 +1,737 @@ +object frmGYSFPKCList: TfrmGYSFPKCList + Left = 119 + Top = 123 + Width = 1174 + Height = 547 + Caption = #20379#24212#21830#21457#31080#24211#23384#26597#35810 + 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 = 1158 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 18 + Top = 14 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#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 = 188 + Top = 14 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 319 + Top = 14 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 461 + Top = 14 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 20 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 137 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 270 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 430 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 603 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 763 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BCOrderNo: TEdit + Tag = 2 + Left = 83 + Top = 10 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 229 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 372 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 501 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 47 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object Money: TEdit + Tag = 3 + Left = 165 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object HXQty: TEdit + Tag = 3 + Left = 337 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HXMoney: TEdit + Tag = 3 + Left = 497 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object DHXQty: TEdit + Tag = 3 + Left = 670 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object DHXMoney: TEdit + Tag = 3 + Left = 830 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object Button1: TButton + Left = 940 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 10 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1158 + Height = 409 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 336 + Top = 184 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas new file mode 100644 index 0000000..3faf7c1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas @@ -0,0 +1,622 @@ +unit U_GYSFPKCList; + +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, cxCheckBox, Menus; + + +type + TfrmGYSFPKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column16: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPKCList: TfrmGYSFPKCList; + +implementation +uses + U_DataLink,U_RTFun,U_GYSFPInPut,U_ModuleNote, U_ZDYHelp,U_GYSFPInPutWGL; + +{$R *.dfm} + +procedure TfrmGYSFPKCList.FormDestroy(Sender: TObject); +begin + frmGYSFPKCList:=nil; +end; + +procedure TfrmGYSFPKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPKCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPKCList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(FMType,'''')=''GYS'' '); + sql.Add(' and (A.Money-isnull(A.HXMoney,0)<>0'); + sql.Add(' or A.Qty-isnull(A.HXQty,0)<>0)'); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + //if cxTabControl1.TabIndex<>0 then + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPKCList.InitForm(); +begin + + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmGYSFPKCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPKCList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmGYSFPKCList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSFPKCList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̿淢Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPKCList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; + +procedure TfrmGYSFPKCList.TBAddClick(Sender: TObject); +begin + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPKCList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + +end; + +procedure TfrmGYSFPKCList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPKCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̿淢Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPKCList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPKCList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmGYSFPKCList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmGYSFPKCList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPKCList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPKCList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPKCList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPKCList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; +procedure TfrmGYSFPKCList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmGYSFPKCList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPKCList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPKCList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmGYSFPKCList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm new file mode 100644 index 0000000..9afdcdc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm @@ -0,0 +1,795 @@ +object frmGYSFPList: TfrmGYSFPList + Left = 119 + Top = 123 + Width = 1174 + Height = 547 + Caption = #20379#24212#21830#21457#31080#30331#35760 + 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 = 1158 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 13 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 13 + 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 Label3: TLabel + Left = 30 + Top = 13 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 13 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 527 + Top = 13 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 658 + Top = 13 + Width = 65 + Height = 12 + Caption = #26412#20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 812 + Top = 13 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 9 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 422 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = BCOrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 9 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object FPNO: TEdit + Tag = 2 + Left = 568 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 723 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 852 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + Visible = False + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 13 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1158 + Height = 411 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column3 + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#20844#21496#25260#22836 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #21457#31080#20379#24212#21830 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Visible = False + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas new file mode 100644 index 0000000..e01b8ee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas @@ -0,0 +1,687 @@ +unit U_GYSFPList; + +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, cxCheckBox, Menus; + + +type + TfrmGYSFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Button1: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure BCOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure HZClear(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPList: TfrmGYSFPList; + +implementation +uses + U_DataLink,U_RTFun,U_GYSFPInPut,U_ModuleNote, U_ZDYHelp,U_GYSFPInPutWGL; + +{$R *.dfm} + +procedure TfrmGYSFPList.FormDestroy(Sender: TObject); +begin + frmGYSFPList:=nil; +end; + +procedure TfrmGYSFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where isnull(FMType,'''')=''GYS'' '); + //if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmGYSFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0),HXQty=isnull(HXQty,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('HXQty').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0),HXQty=isnull(HXQty,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('HXQty').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪɾѡ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmGYSFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Qty.Text:=''; + Money.Text:=''; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̷Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; +procedure TfrmGYSFPList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; + +procedure TfrmGYSFPList.TBAddClick(Sender: TObject); +begin + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmGYSFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̷Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmGYSFPList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmGYSFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPList.BCOrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BCOrderNo.Text))<3 then Exit; + fsj:=' and AA.BCOrderNo like '''+'%'+Trim(BCOrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmGYSFPList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmGYSFPList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +procedure TfrmGYSFPList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm new file mode 100644 index 0000000..30a6eae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm @@ -0,0 +1,541 @@ +object frmGYSFPSelList: TfrmGYSFPSelList + Left = 145 + Top = 102 + Width = 1174 + Height = 547 + Align = alClient + Caption = #20379#24212#21830#21457#31080#30331#35760 + 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 = 1158 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 29 + Top = 18 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#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 = 201 + Top = 18 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 332 + Top = 18 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 474 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BCOrderNo: TEdit + Tag = 2 + Left = 96 + Top = 14 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 242 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 385 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 514 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1158 + Height = 429 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + Options.Editing = False + Width = 72 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 200 + Top = 176 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas new file mode 100644 index 0000000..f2d02de --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas @@ -0,0 +1,271 @@ +unit U_GYSFPSelList; + +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, cxCheckBox, Menus; + + +type + TfrmGYSFPSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton2: TToolButton; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPSelList: TfrmGYSFPSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote; + +{$R *.dfm} + +procedure TfrmGYSFPSelList.FormDestroy(Sender: TObject); +begin + frmGYSFPSelList:=nil; +end; + +procedure TfrmGYSFPSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPSelList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where (isnull(A.Money,0)<>isnull(A.HXMoney,0)'); + sql.Add(' or isnull(A.Qty,0)<>isnull(A.HXQty,0))'); + sql.Add(' and isnull(A.FMType,'''')=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPSelList.InitForm(); +begin + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + InitGrid(); +end; + +procedure TfrmGYSFPSelList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̷Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSFPSelList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̷Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPSelList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGYSFPSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.WorkerChange(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 TfrmGYSFPSelList.ToolButton1Click(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 TfrmGYSFPSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSFPSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSFPSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm new file mode 100644 index 0000000..8281796 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm @@ -0,0 +1,302 @@ +object frmGYSInPutTab: TfrmGYSInPutTab + Left = 189 + Top = 34 + Width = 1048 + Height = 728 + Align = alClient + Caption = #20379#24212#21830#20449#24687#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 = 1032 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1032 + Height = 660 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 658 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 26 + Top = 89 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#21517#31216#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 = 26 + Top = 191 + Width = 65 + Height = 12 + Caption = #32852#31995#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 26 + Top = 140 + Width = 65 + Height = 12 + Caption = #30005#35805#21495#30721#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 = 306 + Top = 140 + Width = 65 + Height = 12 + Caption = #20256#30495#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 306 + Top = 89 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 26 + Top = 37 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 306 + Top = 37 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#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 = 26 + Top = 287 + Width = 91 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 26 + Top = 239 + Width = 66 + Height = 12 + Caption = #32852' '#31995' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 306 + Top = 239 + Width = 78 + Height = 12 + Caption = #32852#31995#20154#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHName: TEdit + Left = 101 + Top = 86 + Width = 160 + Height = 18 + TabOrder = 0 + end + object ZKAddress: TEdit + Left = 101 + Top = 188 + Width = 439 + Height = 18 + TabOrder = 1 + end + object ZKTelNo: TEdit + Left = 101 + Top = 137 + Width = 160 + Height = 18 + TabOrder = 2 + end + object ZKFax: TEdit + Left = 384 + Top = 137 + Width = 153 + Height = 18 + TabOrder = 3 + end + object KHNameJC: TEdit + Left = 384 + Top = 86 + Width = 153 + Height = 18 + TabOrder = 4 + end + object KHCode: TEdit + Left = 101 + Top = 34 + Width = 160 + Height = 18 + TabOrder = 5 + end + object KHType: TBtnEditA + Left = 384 + Top = 32 + Width = 153 + Height = 20 + TabOrder = 6 + OnBtnClick = KHTypeBtnClick + end + object TJKHName: TEdit + Left = 112 + Top = 284 + Width = 273 + Height = 18 + TabOrder = 7 + end + object LXR: TEdit + Left = 101 + Top = 236 + Width = 160 + Height = 18 + TabOrder = 8 + end + object LXRTel: TEdit + Left = 384 + Top = 236 + Width = 153 + Height = 18 + TabOrder = 9 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 536 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 480 + Top = 65533 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 504 + Top = 65533 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas new file mode 100644 index 0000000..a6caa0d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas @@ -0,0 +1,349 @@ +unit U_GYSInPutTab; + +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,jpeg, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmGYSInPutTab = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + TBSave: TToolButton; + Panel3: TPanel; + Label1: TLabel; + Label7: TLabel; + Label10: TLabel; + Label11: TLabel; + Label13: TLabel; + Label33: TLabel; + Label34: TLabel; + KHName: TEdit; + ZKAddress: TEdit; + ZKTelNo: TEdit; + ZKFax: TEdit; + KHNameJC: TEdit; + KHCode: TEdit; + KHType: TBtnEditA; + Label2: TLabel; + TJKHName: TEdit; + Label3: TLabel; + LXR: TEdit; + Label4: TLabel; + LXRTel: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure SKBankBtnDnClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure KHTypeBtnClick(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + { Private declarations } + public + canshu1:String; + PState,CopyInt:Integer; + FMainId:String; + { Public declarations } + end; + +var + frmGYSInPutTab: TfrmGYSInPutTab; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSInPutTab.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmGYSInPutTab.InitData(); +begin + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,0); + KHCode.SetFocus; + {if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD_DuiZhang '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_PaiKuan '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_CR '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + end; + end; } + +end; + + +procedure TfrmGYSInPutTab.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmGYSInPutTab.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'GS','ZH_KH_Info',3,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 ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('ZKId').Value:=Trim(maxno); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + RTSetsavedata(ADOCmd,'ZH_KH_Info',Panel3,0); + FieldByName('Valid').Value:='Y'; + FieldByName('Type').Value:='GYS'; + Post; + end; + if Trim(KHName.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧظ!','ʾ',0); + Exit; + end; + end; + if Trim(KHCode.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHCode='''+Trim(KHCode.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧ̱ظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHNameJC.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameJC='''+Trim(KHNameJC.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧ̼ظ!','ʾ',0); + Exit; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSInPutTab.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSInPutTab.SKBankBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + + + +procedure TfrmGYSInPutTab.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(KHName.Text)='' then + begin + Application.MessageBox('ӦƲΪգ','ʾ',0); + Exit; + end; + if Trim(KHType.Text)='' then + begin + Application.MessageBox('ӦͲΪ!','ʾ',0); + Exit; + end; + if Trim(KHCode.Text)='' then + begin + Application.MessageBox('Ӧ̱ŲΪ!','ʾ',0); + Exit; + end; + if Trim(KHNameJC.Text)='' then + begin + Application.MessageBox('Ӧ̼ƲΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmGYSInPutTab.KHTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KHType'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + Self.KHType.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm new file mode 100644 index 0000000..ae97a14 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm @@ -0,0 +1,396 @@ +object frmGYSList: TfrmGYSList + Left = 47 + Top = 37 + Width = 1182 + Height = 606 + Caption = #20379#24212#21830#30331#35760 + 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 = 1166 + 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_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 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 ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + Caption = #20379#24212#21830#38145#23450 + ImageIndex = 35 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #35299#38145 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 599 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 468 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column7: TcxGridDBColumn + Caption = #20379#24212#21830#20840#31216 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 139 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column4: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'TJKHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column9: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'ZKTelNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column10: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'ZKFax' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column11: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'ZKAddress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column12: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column13: TcxGridDBColumn + Caption = #32852#31995#20154#30005#35805 + DataBinding.FieldName = 'LXRTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #24050#38145#23450 + DataBinding.FieldName = 'LockFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 27 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 27 + Top = 39 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 261 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 253 + Top = 39 + Width = 78 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameJC: TEdit + Tag = 2 + Left = 94 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHCode: TEdit + Tag = 2 + Left = 94 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TEdit + Tag = 2 + Left = 332 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object TJKHName: TEdit + Tag = 2 + Left = 332 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object CheckBox1: TCheckBox + Left = 480 + Top = 37 + Width = 97 + Height = 17 + Caption = #26174#31034#26080#25928#25968#25454 + TabOrder = 4 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 464 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 432 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 392 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 152 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 192 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas new file mode 100644 index 0000000..e31f4bd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas @@ -0,0 +1,441 @@ +unit U_GYSList; + +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, cxButtonEdit, cxDropDownEdit; + +type + TfrmGYSList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + Label9: TLabel; + KHNameJC: TEdit; + v1Column2: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + v1Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + KHType: TEdit; + v1Column4: TcxGridDBColumn; + Label1: TLabel; + TJKHName: TEdit; + CheckBox1: TCheckBox; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N1: TMenuItem; + v1Column8: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(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 ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmGYSList: TfrmGYSList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_GYSInPutTab, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSList.FormDestroy(Sender: TObject); +begin + frmGYSList:=nil; +end; + +procedure TfrmGYSList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGYSList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + +end; + +procedure TfrmGYSList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from ZH_KH_Info A '); + sql.Add(' where Type=''GYS'' '); + if CheckBox1.Checked=false then + begin + sql.Add(' and Valid=''Y'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmGYSList.InitForm(); +begin + ReadCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + InitGrid(); +end; + +procedure TfrmGYSList.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 TfrmGYSList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + frmGYSInPutTab.canshu1:=Trim(Self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD_DuiZhang '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('жݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_PaiKuan '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ʽݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('뵥ݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_CR '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').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 + Order_Main.Delete; + end; +end; + +function TfrmGYSList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Ӧб',cxGrid1); +end; + +procedure TfrmGYSList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGYSList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + TBSave.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.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 TfrmGYSList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update ZH_KH_Info Set '); + sql.Add(' LockFlag=1'); + sql.Add(' where ZKID='''+Order_Main.fieldbyname('ZKID').AsString+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('LockFlag').Value:=True; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmGYSList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update ZH_KH_Info Set '); + sql.Add(' LockFlag=0'); + sql.Add(' where ZKID='''+Order_Main.fieldbyname('ZKID').AsString+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('LockFlag').Value:=False; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm new file mode 100644 index 0000000..58686bc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm @@ -0,0 +1,304 @@ +object frmGYSSelList: TfrmGYSSelList + Left = 206 + Top = 98 + Width = 906 + Height = 606 + Caption = #20379#24212#21830#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 = 890 + 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_PBMDDJ.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 = 10 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 890 + Height = 468 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column7: TcxGridDBColumn + Caption = #20379#24212#21830#20840#31216 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 139 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column4: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'TJKHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column9: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'ZKTelNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column10: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'ZKFax' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column11: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'ZKAddress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 890 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 27 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 27 + Top = 39 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 261 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 253 + Top = 39 + Width = 78 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameJC: TEdit + Tag = 2 + Left = 94 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHCode: TEdit + Tag = 2 + Left = 94 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TEdit + Tag = 2 + Left = 332 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object TJKHName: TEdit + Tag = 2 + Left = 332 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 464 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 432 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 392 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 152 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 192 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas new file mode 100644 index 0000000..5bcec87 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas @@ -0,0 +1,221 @@ +unit U_GYSSelList; + +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, cxButtonEdit, cxDropDownEdit; + +type + TfrmGYSSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + Label9: TLabel; + KHNameJC: TEdit; + v1Column2: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + KHType: TEdit; + v1Column4: TcxGridDBColumn; + Label1: TLabel; + TJKHName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N1: TMenuItem; + TBFind: TToolButton; + 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 ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmGYSSelList: TfrmGYSSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_GYSInPutTab, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSSelList.FormDestroy(Sender: TObject); +begin + frmGYSSelList:=nil; +end; + +procedure TfrmGYSSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGYSSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + +end; + +procedure TfrmGYSSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from ZH_KH_Info A '); + sql.Add(' where Type=''GYS'' '); + sql.Add(' and Valid=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmGYSSelList.InitForm(); +begin + ReadCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + InitGrid(); +end; + +procedure TfrmGYSSelList.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 TfrmGYSSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSSelList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSSelList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGYSSelList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmGYSSelList.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 TfrmGYSSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas new file mode 100644 index 0000000..2a76f3c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas @@ -0,0 +1,315 @@ + + +unit U_GetDllForm; +interface +uses + Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB; +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_GYSList,U_SXCKList,U_SXCKOutList,U_SXKCList,U_PBCKChkList,U_SXCKNewList,U_PBCKKCList + ,U_WJGMDList,U_WJGCKOutList,U_WJGCKKCList,U_DJBRKList,U_DJBCKOutList,U_DJBCKKCList; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + 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; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + + server:='47.101.61.158,7781'; //202.96.107.70,7781 haoyuedata + dtbase:='leixiaofudata'; // + user:='sa'; + pswd:='rightsoft@123'; + 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 + 1: // + begin + if frmSXCKNewList=nil then + begin + frmSXCKNewList:= TfrmSXCKNewList.Create(application.MainForm); + with frmSXCKNewList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKNewList.BringToFront; + // + mNewHandle:=frmSXCKNewList.Handle; + end ; + 2: // + begin + if frmSXCKOutList=nil then + begin + frmSXCKOutList:= TfrmSXCKOutList.Create(application.MainForm); + with frmSXCKOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKOutList.BringToFront; + // + mNewHandle:=frmSXCKOutList.Handle; + end ; + 3: // + begin + if frmPBCKKCList=nil then + begin + frmPBCKKCList:= TfrmPBCKKCList.Create(application.MainForm); + with frmPBCKKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmPBCKKCList.BringToFront; + // + mNewHandle:=frmPBCKKCList.Handle; + end ; + 5: //ӹ + begin + if frmWJGMDList=nil then + begin + frmWJGMDList:= TfrmWJGMDList.Create(application.MainForm); + with frmWJGMDList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGMDList.BringToFront; + // + mNewHandle:=frmWJGMDList.Handle; + end ; + 6: //ӹ + begin + if frmWJGCKOutList=nil then + begin + frmWJGCKOutList:= TfrmWJGCKOutList.Create(application.MainForm); + with frmWJGCKOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGCKOutList.BringToFront; + // + mNewHandle:=frmWJGCKOutList.Handle; + end ; + 7: //ӹ + begin + if frmWJGCKKCList=nil then + begin + frmWJGCKKCList:= TfrmWJGCKKCList.Create(application.MainForm); + with frmWJGCKKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGCKKCList.BringToFront; + // + mNewHandle:=frmWJGCKKCList.Handle; + end ; + 8: //첼б + begin + if frmDJBRKList=nil then + begin + frmDJBRKList:= TfrmDJBRKList.Create(application.MainForm); + with frmDJBRKList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBRKList.BringToFront; + // + mNewHandle:=frmDJBRKList.Handle; + end ; + 9: //첼б + begin + if frmDJBCKOutList=nil then + begin + frmDJBCKOutList:= TfrmDJBCKOutList.Create(application.MainForm); + with frmDJBCKOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBCKOutList.BringToFront; + // + mNewHandle:=frmDJBCKOutList.Handle; + end ; + 10: //첼б + begin + if frmDJBCKKCList=nil then + begin + frmDJBCKKCList:= TfrmDJBCKKCList.Create(application.MainForm); + with frmDJBCKKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBCKKCList.BringToFront; + // + mNewHandle:=frmDJBCKKCList.Handle; + end ; + end ; // end case + + Result:= mnewHandle; + NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +begin + if not Assigned(DataLink_PBMDDJ) then + DataLink_PBMDDJ:=TDataLink_PBMDDJ.Create(Application); + Try + with DataLink_PBMDDJ.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 + OldDllApp:= Application; + +FINALIZATION + DataLink_PBMDDJ.Free; + Application := OldDllApp; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm new file mode 100644 index 0000000..9c6bc27 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm @@ -0,0 +1,691 @@ +object frmHCJYView: TfrmHCJYView + Left = 35 + Top = 108 + Width = 1260 + Height = 571 + Caption = #36827#20179#19982#26816#39564#23545#27604#20998#26512 + 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 = 1244 + 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_CYZZ.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 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 = 1244 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 277 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 407 + Top = 9 + 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 Label19: TLabel + Left = 560 + Top = 9 + 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 Label2: TLabel + Left = 721 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object MPRTCode: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object PRTColor: TEdit + Tag = 2 + Left = 750 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 62 + Width = 1244 + Height = 470 + Align = alClient + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = v6Column2 + end + item + Kind = skSum + Column = v6Column20 + end + item + Kind = skSum + Column = v6Column21 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + end + item + Kind = skSum + Column = v6Column6 + end + item + Kind = skSum + Column = v6Column7 + end + item + Kind = skSum + Column = Tv6Column2 + end + item + Kind = skSum + Column = v6Column22 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column10 + end + item + Kind = skSum + Column = v6Column11 + end + item + Kind = skSum + Column = v6Column12 + end + item + Kind = skSum + Column = v6Column13 + end + item + Kind = skSum + Column = v6Column23 + end + item + Kind = skSum + Column = v6Column18 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.handBlack + Bands = < + item + Caption = #22522#26412#20449#24687 + Styles.Header = DataLink_CYZZ.FonePurple + Width = 496 + end + item + Caption = #36827#20179#25968#37327 + Styles.Header = DataLink_CYZZ.FoneRed + Width = 792 + end + item + Caption = #26816#39564#25968#37327 + Styles.Header = DataLink_CYZZ.FontBlue + Width = 556 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#21333#20301 + DataBinding.FieldName = 'HCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 57 + Position.BandIndex = 1 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 57 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 62 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #27491#21697#21305#25968 + DataBinding.FieldName = 'JYPSZP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 65 + Position.BandIndex = 1 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #25104#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #36827#20179#35843#33410#21305#25968 + DataBinding.FieldName = 'HCTJPS' + Styles.Header = DataLink_CYZZ.handBlack + Width = 91 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #36827#20179#35843#33410#25968#37327 + DataBinding.FieldName = 'HCTJQty' + Styles.Header = DataLink_CYZZ.handBlack + Width = 85 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #27491#21697#31859#25968 + DataBinding.FieldName = 'JYMQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #27491#21697#20844#26020#25968 + DataBinding.FieldName = 'JYKgQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 79 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Caption = #25104#21697#35843#33410#21305#25968 + DataBinding.FieldName = 'CPTJPS' + Styles.Header = DataLink_CYZZ.handBlack + Width = 88 + Position.BandIndex = 1 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Caption = #25104#21697#35843#33410#25968#37327 + DataBinding.FieldName = 'CPTJQty' + Styles.Header = DataLink_CYZZ.handBlack + Width = 83 + Position.BandIndex = 1 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Caption = #38656#26816#39564#21305#25968 + DataBinding.FieldName = 'XJYPS' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 73 + Position.BandIndex = 1 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Caption = #38656#26816#39564#25968#37327 + DataBinding.FieldName = 'XJYQty' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 71 + Position.BandIndex = 1 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Footer = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Caption = #24046#39069 + DataBinding.FieldName = 'ChaE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.SHuangSeCu + Styles.Footer = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.SHuangSeCu + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #27491#21697#30721#25968 + DataBinding.FieldName = 'JYMAQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 71 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'JYPSCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #27425#21697#20844#26020#25968 + DataBinding.FieldName = 'JYKgQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 82 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #27425#21697#30721#25968 + DataBinding.FieldName = 'JYMAQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 63 + Position.BandIndex = 2 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #27425#21697#31859#25968 + DataBinding.FieldName = 'JYMQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 67 + Position.BandIndex = 2 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object Panel2: TPanel + Left = 480 + Top = 183 + Width = 272 + 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 = 3 + Visible = False + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 616 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas new file mode 100644 index 0000000..3a3171e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas @@ -0,0 +1,213 @@ +unit U_HCJYView; //25 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmHCJYView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid6: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + v6Column22: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + Label2: TLabel; + PRTColor: TEdit; + Panel2: TPanel; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + v6Column23: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmHCJYView: TfrmHCJYView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmHCJYView.FormDestroy(Sender: TObject); +begin + frmHCJYView:=nil; +end; + +procedure TfrmHCJYView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmHCJYView.TBRafreshClick(Sender: TObject); +begin + Panel2.Visible:=True; + Panel2.Refresh; + InitGrid(); + Panel2.Visible:=False; +end; +procedure TfrmHCJYView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_ORDHuiCangJianYan :begdate,:endate,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmHCJYView.InitGridKK(); +begin + + +end; +procedure TfrmHCJYView.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv611',Tv6,'ڲֿ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-7; +end; + +procedure TfrmHCJYView.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv611',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmHCJYView.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmHCJYView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_ORDHuiCangJianYan '''','''',:OrderNo '); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + Panel2.Visible:=False; + end; + +end; + +procedure TfrmHCJYView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmHCJYView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmHCJYView.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm new file mode 100644 index 0000000..b5bc430 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm @@ -0,0 +1,753 @@ +object frmJYDJ: TfrmJYDJ + Left = 44 + Top = 9 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 918 + Top = 143 + Width = 360 + Height = 526 + Align = alRight + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end + item + Kind = skSum + Column = cxGridDBColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 84 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'MJZS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 85 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 0 + Top = 143 + Width = 495 + Height = 526 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label4: TLabel + Left = 393 + Top = 30 + Width = 93 + Height = 72 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 38 + Width = 114 + Height = 56 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 20 + Top = 144 + Width = 114 + Height = 56 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 393 + Top = 136 + Width = 93 + Height = 72 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 16 + Top = 259 + Width = 114 + Height = 56 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MJMaoZ: TEdit + Left = 136 + Top = 13 + Width = 255 + Height = 105 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 73 + Top = 388 + Width = 165 + Height = 102 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 288 + Top = 390 + Width = 171 + Height = 96 + Caption = #20462#25913 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button5Click + end + object MJZS: TEdit + Left = 136 + Top = 120 + Width = 254 + Height = 105 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = MJZSKeyPress + end + object ComboBox1: TComboBox + Left = 136 + Top = 228 + Width = 90 + Height = 117 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 109 + ItemIndex = 1 + ParentFont = False + TabOrder = 4 + Text = '2' + Items.Strings = ( + '1' + '2') + end + end + object Panel7: TPanel + Left = 495 + Top = 143 + Width = 423 + Height = 526 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 419 + Height = 522 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object RMPreview1: TRMPreview + Left = 2 + Top = 2 + Width = 415 + Height = 518 + Align = alClient + 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 = 0 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1278 + Height = 143 + Align = alTop + TabOrder = 3 + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1276 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26631#31614#35774#32622 + ImageIndex = 38 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 150 + Top = 0 + Caption = #26816#39564#20449#24687#26597#35810 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 257 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1276 + Height = 111 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 1029 + Top = 19 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label1: TLabel + Left = 8 + Top = 14 + Width = 108 + Height = 35 + Caption = #35746#21333#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 485 + Top = 14 + Width = 72 + Height = 35 + Caption = #39068#33394 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 8 + Top = 63 + Width = 91 + Height = 35 + Caption = #33457' '#22411 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 485 + Top = 63 + Width = 72 + Height = 35 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BTEdit: TButton + Left = 976 + Top = 14 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 0 + Visible = False + OnClick = BTEditClick + end + object BTAdd: TButton + Left = 1081 + Top = 13 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object OrderNo: TEdit + Left = 113 + Top = 11 + Width = 365 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnDblClick = OrderNoDblClick + end + object Color: TEdit + Left = 559 + Top = 11 + Width = 394 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnDblClick = ColorDblClick + OnKeyPress = MJZSKeyPress + end + object HX: TEdit + Left = 113 + Top = 60 + Width = 365 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnDblClick = HXDblClick + OnKeyPress = MJZSKeyPress + end + object GangNo: TEdit + Left = 558 + Top = 60 + Width = 57 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Text = '1' + OnKeyPress = MJZSKeyPress + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 247 + Top = 2 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 459 + 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 = 676 + Top = 450 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas new file mode 100644 index 0000000..f484345 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas @@ -0,0 +1,647 @@ +unit U_JYDJ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmJYDJ = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label4: TLabel; + MJMaoZ: TEdit; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + v3Column1: TcxGridDBColumn; + MJZS: TEdit; + Panel7: TPanel; + ComboBox1: TComboBox; + v3Column4: TcxGridDBColumn; + Panel1: TPanel; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + RMGridReport1: TRMGridReport; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Panel5: TPanel; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + Panel6: TPanel; + Label16: TLabel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BTEdit: TButton; + BTAdd: TButton; + OrderNo: TEdit; + Color: TEdit; + HX: TEdit; + GangNo: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJZSKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoDblClick(Sender: TObject); + procedure ColorDblClick(Sender: TObject); + procedure HXDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FFFMJID,LabName:String; + procedure InitCDGridID(); + + function SaveData():Boolean; + + procedure PrtData(FMJID:String); + + public + { Public declarations } + + end; + +var + frmJYDJ: TfrmJYDJ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut, U_LabelList,U_PRTJYDJList; + +{$R *.dfm} + +procedure TfrmJYDJ.FormDestroy(Sender: TObject); +begin + frmJYDJ:=nil; +end; + + +procedure TfrmJYDJ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYDJ.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add(' A.* from DJ_JY A '); + sql.Add(' where isnull(OrderNo,'''')='''+Trim(OrderNo.Text)+''''); + sql.Add(' and isnull(Color,'''')='''+Trim(Self.Color.Text)+''''); + sql.Add(' and isnull(HX,'''')='''+Trim(Self.HX.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmJYDJ.FormShow(Sender: TObject); +begin + + if IsINIFile() then + ReadINIFile() +end; +procedure TfrmJYDJ.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmJYDJ.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmJYDJ.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; + InitCDGridID(); +end; + +procedure TfrmJYDJ.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; + PState:=0; + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from DJ_JY where DJID='''+Trim(CDS_MJID.fieldbyname('DJID').AsString)+''''); + Open; + end; + MJZS.Text:=Trim(ADOTmp.fieldbyname('MJZS').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label16.Caption:=''; +end; + + +procedure TfrmJYDJ.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +function TfrmJYDJ.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('DJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from DJ_JY where DJID='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,'','DJ_JY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(OrderNo.Text); + FieldByName('Color').Value:=Trim(Self.Color.Text); + FieldByName('HX').Value:=Trim(HX.Text); + FieldByName('LBName').Value:=Trim(LabName); + FieldByName('GangNo').Value:=Trim(GangNo.Text); + if Trim(MJZS.Text)<>'' then + begin + FieldByName('MJZS').Value:=StrToFloat(MJZS.Text); + end else + begin + FieldByName('MJZS').Value:=Null; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + Post; + end; + if PState=1 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate DJ_JY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from DJ_JY A '); + sql.Add(' where A.OrderNo=DJ_JY.OrderNo'); + sql.Add(' and isnull(A.Color,'''')=isnull(DJ_JY.Color,'''')'); + sql.Add(' and isnull(A.HX,'''')=isnull(DJ_JY.HX,'''')'); + sql.Add(' )where DJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from DJ_JY where DJID='''+Trim(maxno)+''''); + Open; + end; + if PState=1 then + begin + with CDS_MJID do + begin + Append; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('MJXH').Value:=ADOTmp.fieldbyname('MJXH').Value; + FieldByName('MJMaoZ').Value:=ADOTmp.fieldbyname('MJMaoZ').Value; + FieldByName('MJZS').Value:=ADOTmp.fieldbyname('MJZS').Value; + Post; + end; + end else + begin + CDS_MJID.Locate('DJID',maxno,[]); + with CDS_MJID do + begin + Edit; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('MJXH').Value:=ADOTmp.fieldbyname('MJXH').Value; + FieldByName('MJMaoZ').Value:=ADOTmp.fieldbyname('MJMaoZ').Value; + FieldByName('MJZS').Value:=ADOTmp.fieldbyname('MJZS').Value; + Post; + end; + end; + + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmJYDJ.BTAddClick(Sender: TObject); +begin + PState:=1; + InitCDGridID(); + Label16.Caption:=''; +end; + +procedure TfrmJYDJ.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + FInt:=1; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmJYDJ.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢޸ġ','ʾ',0); + Exit; + end; + end; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if (Trim(Self.Color.Text)='') and (Trim(Self.HX.Text)='') then + begin + Application.MessageBox('ɫͲͬʱΪ!','ʾ',0); + Exit; + end; + if trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزܶΪ!','ʾ',0); + Exit; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('ëطǷ!','ʾ',0); + Exit; + end; + end; + + if Trim(MJZS.Text)<>'' then + begin + if TryStrToFloat(MJZS.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + MJMaoZ.Text:=''; + MJZS.Text:=''; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + Label16.Caption:=''; + BTAdd.Click; + MJMaoZ.SetFocus; +end; +procedure TfrmJYDJ.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,ROLLNO=MJXH ,'); + sql.Add('Qty=MJMaoZ-isnull(MJZS,0),'); + sql.Add('Case when isnull(MJZS,-99)=-99 then Cast('''' as varchar(20)) else ''+''+Cast(MJZS as varchar(20)) end as ZengSong '); + sql.Add(' from DJ_JY A where DJID='''+Trim(FMJID)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString+'.rmf') + else begin + Application.MessageBox('ǩδ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; +end; + + +procedure TfrmJYDJ.ToolButton1Click(Sender: TObject); +begin + + MJMaoZ.Text:=''; + MJZS.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmJYDJ.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + {if CDS_MJID.IsEmpty then Exit; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + PState:=1; + MJMaoZ.Text:=''; + MJZS.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; } + BTEdit.Click; +end; + +procedure TfrmJYDJ.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmJYDJ.MJZSKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + end; +end; + +procedure TfrmJYDJ.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJZS.SetFocus; + end; +end; + +procedure TfrmJYDJ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmJYDJ.OrderNoDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderNo'; + flagname:=''; + fnote:=True; + V1Note.Caption:='ǩ'; + if ShowModal=1 then + begin + OrderNo.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + LabName:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Color.Text:=''; + Self.HX.Text:=''; + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; + with Self.ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label where labelCaption='''+Trim(LabName)+'.rmf'+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOTmp.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select Cast(''0x'' as image) labelFile '); + open; + end; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOTmp.fieldbyname('labelFile'))); + ShowReport ; + end; + end; +end; + +procedure TfrmJYDJ.ColorDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DJColor'; + flagname:='ɫ'; + MainType:=Trim(OrderNo.Text); + if ShowModal=1 then + begin + Self.Color.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJYDJ.HXDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DJHX'; + flagname:=''; + MainType:=Trim(OrderNo.Text); + if ShowModal=1 then + begin + HX.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJYDJ.ToolButton2Click(Sender: TObject); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + {if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; } + if ShowModal=1 then + begin + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmJYDJ.ToolButton3Click(Sender: TObject); +begin + try + frmPRTJYDJList:=TfrmPRTJYDJList.Create(Application); + with frmPRTJYDJList do + begin + if ShowModal=1 then + begin + + + end; + end; + finally + frmPRTJYDJList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm new file mode 100644 index 0000000..c7d57d9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm @@ -0,0 +1,537 @@ +object frmJYOrderBGChk: TfrmJYOrderBGChk + Left = 78 + Top = 138 + Width = 1133 + Height = 547 + Caption = #25253#20851#21333#23457#26680 + 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 = 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_KangChi.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 ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 32 + OnClick = ToolButton4Click + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1117 + Height = 50 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label3: TLabel + Left = 413 + Top = 22 + Width = 39 + Height = 12 + Caption = #21457#31080#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 = 545 + Top = 22 + Width = 65 + Height = 12 + Caption = #22806#38144#21512#21516#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 = 708 + Top = 22 + Width = 26 + Height = 12 + Caption = #27454#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 832 + Top = 22 + Width = 65 + Height = 12 + Caption = #20869#38144#21512#21516#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 = 267 + Top = 21 + Width = 52 + Height = 12 + Caption = #28023#20851#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 = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 163 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FPNo: TEdit + Tag = 2 + Left = 454 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = FPNoChange + OnKeyPress = conPress + end + object JYConNo: TEdit + Tag = 2 + Left = 613 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 3 + OnChange = FPNoChange + OnKeyPress = JYConNoKeyPress + end + object JYStyleNo: TEdit + Tag = 2 + Left = 739 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 4 + OnChange = FPNoChange + OnKeyPress = JYStyleNoKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 897 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = FPNoChange + OnKeyPress = ConNoKeyPress + end + object BGNO: TEdit + Tag = 2 + Left = 320 + Top = 17 + Width = 81 + Height = 20 + TabOrder = 6 + OnChange = FPNoChange + OnKeyPress = BGNOKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 82 + Width = 1117 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1117 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 106 + Width = 1117 + Height = 402 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTSpec + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_KangChi.SHuangSeCu + Styles.IncSearch = DataLink_KangChi.SHuangSeCu + Styles.Selection = DataLink_KangChi.SHuangSeCu + Styles.Header = DataLink_KangChi.Default + object v1Column1: TcxGridDBColumn + Caption = #28023#20851#32534#21495 + DataBinding.FieldName = 'BGNO' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1OrderNo: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'FPNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 82 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 70 + end + object v1Column8: TcxGridDBColumn + Caption = #20869#38144#21512#21516#21495 + DataBinding.FieldName = 'ConNO' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #22806#38144#21512#21516#21495 + DataBinding.FieldName = 'JYConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_KangChi.Default + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'JYStyleNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column13: TcxGridDBColumn + Caption = #21830#21697#21517#31216#12289#35268#26684#22411#21495 + DataBinding.FieldName = 'BGPRTName' + HeaderAlignmentHorz = taCenter + Width = 147 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BGQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 73 + end + object v1Column14: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BGUnit' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24065#21046 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BSNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 85 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 981 + Top = 1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1010 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 909 + 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 = 352 + Top = 192 + 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 = 958 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 602 + Top = 259 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas new file mode 100644 index 0000000..7bf525a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas @@ -0,0 +1,529 @@ +unit U_JYOrderBGChk; + +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 + TfrmJYOrderBGChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + FPNo: TEdit; + Label5: TLabel; + JYConNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label6: TLabel; + JYStyleNo: TEdit; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + cxGridPopupMenu2: TcxGridPopupMenu; + Label4: TLabel; + ConNo: TEdit; + Label2: TLabel; + BGNO: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FPNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure JYConNoKeyPress(Sender: TObject; var Key: Char); + procedure JYStyleNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure BGNOKeyPress(Sender: TObject; var Key: Char); + private + FInt,PFInt:Integer; + canshu1:string; + procedure InitGrid(); + procedure InitGridWSql(fsj:string); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmJYOrderBGChk: TfrmJYOrderBGChk; + +implementation +uses + U_DataLink,U_RTFun,U_JYOrderBGInPut + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmJYOrderBGChk.FormDestroy(Sender: TObject); +begin + frmJYOrderBGChk:=nil; +end; + +procedure TfrmJYOrderBGChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYOrderBGChk.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ص',Tv1,'ͬ'); +end; + +procedure TfrmJYOrderBGChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.* '); + SQL.Add(' from JYOrder_BG A inner join JYOrder_BG_Sub FS on A.BGID=FS.BGID'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.BGDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.BGDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and isnull(A.ChkStatus,'''')=''ͨ'' '); + end else + begin + sql.Add(' and A.BGDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.BGDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + end; + sql.Add(' order by A.BGNO'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; +procedure TfrmJYOrderBGChk.InitGridWSql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.* '); + SQL.Add(' from JYOrder_BG A inner join JYOrder_BG_Sub FS on A.BGID=FS.BGID'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')=''ͨ'' '); + end else + begin + end; + sql.Add(fsj); + sql.Add(' order by A.BGNO'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmJYOrderBGChk.InitForm(); +begin + ReadCxGrid('ص',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmJYOrderBGChk.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 TfrmJYOrderBGChk.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmJYOrderBGChk.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Эб',cxGrid1); +end; + +procedure TfrmJYOrderBGChk.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + i:Integer; +begin + if Order_Main.IsEmpty then Exit; + {if Trim(Order_Main.FieldByName('ChkStatus').AsString)<>'ͨ' then + begin + RM1.PreviewButtons:=[pbExit]; + end else + begin + RM1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; + end; } + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Э.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from ContractBC_Main A inner join ContractBC_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmJYOrderBGChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJYOrderBGChk.FPNoChange(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 TfrmJYOrderBGChk.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmJYOrderBGChk.conPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(FPNo.Text))<3 then Exit; + fsj:=' and A.FPNo like '''+'%'+Trim(FPNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmJYOrderBGChk.ToolButton1Click(Sender: TObject); +var + FFFId:string; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where BGId='''+Trim(Order_Main.fieldbyname('BGId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('BGId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('BGId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmJYOrderBGChk.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmJYOrderBGInPut:=TfrmJYOrderBGInPut.Create(Application); + with frmJYOrderBGInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('BGNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmJYOrderBGInPut.Free; + end; +end; + +procedure TfrmJYOrderBGChk.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ص'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmJYOrderBGChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmJYOrderBGChk.JYConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(JYConNo.Text))<3 then Exit; + fsj:=' and JYConNo like '''+'%'+Trim(JYConNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.JYStyleNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(JYStyleNo.Text))<3 then Exit; + fsj:=' and JYStyleNo like '''+'%'+Trim(JYStyleNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + // +end; + +procedure TfrmJYOrderBGChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJYOrderBGChk.ToolButton4Click(Sender: TObject); +var + FFFId:string; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set Chker=Null'); + SQL.Add(',ChkTime=null,ChkStatus=null '); + sql.Add(' where BGId='''+Trim(Order_Main.fieldbyname('BGId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('BGId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('BGId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmJYOrderBGChk.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + + +procedure TfrmJYOrderBGChk.BGNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(BGNo.Text))<3 then Exit; + fsj:=' and A.BGNo like '''+'%'+Trim(BGNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm new file mode 100644 index 0000000..17bf880 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm @@ -0,0 +1,298 @@ +object frmKDInPut: TfrmKDInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #23492#20214#20449#24687#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 = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column10: TcxGridDBColumn + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21253#35065 + #24555#36882#34955 + #25991#20214) + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32463 + #20248) + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas new file mode 100644 index 0000000..74ebab4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas @@ -0,0 +1,381 @@ +unit U_KDInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmKDInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType,canshu1:String; + + { Public declarations } + end; + +var + frmKDInPut: TfrmKDInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList, + U_ZHKHListNewCX; + +{$R *.dfm} + +procedure TfrmKDInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ļϢ¼',Tv1,'ļ'); +end; + +procedure TfrmKDInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*'); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where A.KDID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmKDInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmKDInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ļϢ¼',Tv1,'ļ'); + InitData(); +end; +procedure TfrmKDInPut.GetMaxConNO(); +begin + +end; +function TfrmKDInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('KDID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'KD','KuaiDi_Money',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('KDID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Sub.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('KDID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('KDID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'KuaiDi_Money',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('KDID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmKDInPut.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('KDDate',null,[]) then + begin + Application.MessageBox('ļڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDComName',null,[]) then + begin + Application.MessageBox('ݹ˾Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDNO',null,[]) then + begin + Application.MessageBox('浥ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KHName',null,[]) then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Country',null,[]) then + begin + Application.MessageBox('ҲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDType',null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDFangShi',null,[]) then + begin + Application.MessageBox('ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KgQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmKDInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + with Order_Sub do + begin + Append; + FieldByName('KDDate').Value:=FSQDate; + Post; + end; +end; + +procedure TfrmKDInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('KDId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete KuaiDi_Money where KDId='''+Trim(Order_Sub.fieldbyname('KDId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmKDInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +procedure TfrmKDInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KDComName'; + flagname:='ݹ˾'; + if Trim(canshu1)<>'Ȩ' then + begin + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KDComName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKDInPut.v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Country'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('Country').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKDInPut.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KHName').Value:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm new file mode 100644 index 0000000..851447d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm @@ -0,0 +1,657 @@ +object frmKDList: TfrmKDList + Left = 67 + Top = 128 + Width = 1378 + Height = 547 + Caption = #23492#20214#20449#24687#30331#35760 + 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 = 1362 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #38754#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 = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 904 + Top = 18 + Width = 26 + Height = 12 + Caption = #22269#23478 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 18 + Width = 39 + Height = 12 + Caption = #25910#20214#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 680 + Top = 18 + 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 Label4: TLabel + Left = 792 + Top = 18 + Width = 26 + Height = 12 + Caption = #26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KDNO: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 113 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = KDNOKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object Country: TEdit + Tag = 2 + Left = 932 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object KHName: TEdit + Tag = 2 + Left = 592 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object KDType: TEdit + Tag = 2 + Left = 708 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object KDFangShi: TEdit + Tag = 2 + Left = 820 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column5: TcxGridDBColumn + Caption = #23492#20214#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column2: TcxGridDBColumn + Caption = #36153#29992 + DataBinding.FieldName = 'KDMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#20154 + DataBinding.FieldName = 'SSPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 664 + Top = 264 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDList.pas b/坯布码单待检(PBMDDJ.dll)/U_KDList.pas new file mode 100644 index 0000000..567e30a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDList.pas @@ -0,0 +1,574 @@ +unit U_KDList; + +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, cxCheckBox, Menus; + + +type + TfrmKDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + KDNO: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + Country: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + KHName: TEdit; + Label9: TLabel; + KDType: TEdit; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + KDFangShi: TEdit; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure KDNOKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmKDList: TfrmKDList; + +implementation +uses + U_DataLink,U_RTFun,U_KDInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKDList.FormDestroy(Sender: TObject); +begin + frmKDList:=nil; +end; + +procedure TfrmKDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKDList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϢǼ',Tv1,'ļ'); +end; + +procedure TfrmKDList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' )'); + end; + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and A.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.MoneyPerson,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmKDList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=SGetServerDateMEnd(ADOQueryTemp); + BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); + ReadCxGrid('ϢǼ',Tv1,'ļ'); + //InitGrid(); +end; + +procedure TfrmKDList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + sql.Add(' and isnull(MoneyPerson,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѷ˲޸!','ʾ',0); + Exit; + end; + try + frmKDInPut:=TfrmKDInPut.Create(Application); + with frmKDInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('KDID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmKDInPut.Free; + end; +end; + +procedure TfrmKDList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + sql.Add(' and isnull(MoneyPerson,'''')<>'''' '); + 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 + Order_Main.Delete; + end; +end; + +function TfrmKDList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KuaiDi_Money where KDId='''+Trim(Order_Main.fieldbyname('KDId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmKDList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ļϢ',cxGrid1); +end; + +procedure TfrmKDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.TBAddClick(Sender: TObject); +begin + try + frmKDInPut:=TfrmKDInPut.Create(Application); + with frmKDInPut do + begin + frmKDInPut.canshu1:=Self.canshu1; + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmKDInPut.Free; + end; +end; + +procedure TfrmKDList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmKDList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ļϢǼ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmKDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmKDList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' )'); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.MoneyPerson,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKDList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.WorkerChange(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 TfrmKDList.ToolButton1Click(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 TfrmKDList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmKDList.KDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNo.Text))<3 then Exit; + fsj:=' and A.KDNo like '''+'%'+Trim(KDNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmKDList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmKDList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmKDList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate KuaiDi_Money Set Status='''',SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmKDList.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate KuaiDi_Money Set Status=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm new file mode 100644 index 0000000..5a0d815 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm @@ -0,0 +1,749 @@ +object frmKDOKList: TfrmKDOKList + Left = 64 + Top = 104 + Width = 1378 + Height = 547 + Caption = #23492#20214#23545#36134 + 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 = 1362 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 34 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #38754#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 = 904 + Top = 18 + Width = 26 + Height = 12 + Caption = #22269#23478 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 18 + Width = 39 + Height = 12 + Caption = #25910#20214#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 680 + Top = 18 + 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 Label4: TLabel + Left = 792 + Top = 18 + Width = 26 + Height = 12 + Caption = #26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 1016 + Top = 18 + Width = 52 + Height = 12 + Caption = #24555#36882#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object KDNO: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 113 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = KDNOKeyPress + end + object Country: TEdit + Tag = 2 + Left = 932 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object KHName: TEdit + Tag = 2 + Left = 592 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object KDType: TEdit + Tag = 2 + Left = 708 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object KDFangShi: TEdit + Tag = 2 + Left = 820 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + object KDComName: TEdit + Tag = 2 + Left = 1068 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 8 + OnChange = WorkerChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column13 + end + item + Kind = skSum + Position = spFooter + Column = v1Column14 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column5: TcxGridDBColumn + Caption = #23492#20214#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column13: TcxGridDBColumn + Caption = #25240#25187#20215 + DataBinding.FieldName = 'ZheKouMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 70 + end + object v1Column14: TcxGridDBColumn + Caption = #27966#36865#36153 + DataBinding.FieldName = 'PaiSongMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 72 + end + object v1Column15: TcxGridDBColumn + Caption = #29123#27833'%' + DataBinding.FieldName = 'RanYou' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #29123#27833#36153 + DataBinding.FieldName = 'RanYouMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 74 + end + object v1Column2: TcxGridDBColumn + Caption = #21512#35745 + DataBinding.FieldName = 'KDMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v1Column21: TcxGridDBColumn + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'DuiZhangNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 173 + end + object v1Column19: TcxGridDBColumn + Tag = 999 + Caption = #23545#36134#26102#38388 + DataBinding.FieldName = 'MoneyTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#20154 + DataBinding.FieldName = 'SSPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas new file mode 100644 index 0000000..511d65d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas @@ -0,0 +1,740 @@ +unit U_KDOKList; + +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, cxCheckBox, Menus; + + +type + TfrmKDOKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + cxTabControl1: TcxTabControl; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label8: TLabel; + Label5: TLabel; + Label7: TLabel; + Label9: TLabel; + KDNO: TEdit; + Country: TEdit; + KHName: TEdit; + KDType: TEdit; + Label4: TLabel; + KDFangShi: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column11: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton2: TToolButton; + Label6: TLabel; + KDComName: TEdit; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure v1Column13PropertiesEditValueChanged(Sender: TObject); + procedure KDNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmKDOKList: TfrmKDOKList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmKDOKList.FormDestroy(Sender: TObject); +begin + frmKDOKList:=nil; +end; + +procedure TfrmKDOKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKDOKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ļ˵',Tv1,'ļ'); +end; + +procedure TfrmKDOKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and A.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmKDOKList.InitForm(); +begin + EndDate.Date:=SGetServerDateMEnd(ADOQueryTemp); + BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); + ReadCxGrid('ļ˵',Tv1,'ļ'); + //InitGrid(); +end; + +procedure TfrmKDOKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmKDOKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmKDOKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ļб',cxGrid1); +end; + +procedure TfrmKDOKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmKDOKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ļ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmKDOKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmKDOKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')<>'''''); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmKDOKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmKDOKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.WorkerChange(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 TfrmKDOKList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmKDOKList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmKDOKList.ToolButton1Click(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 TfrmKDOKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmKDOKList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNO.Text))<3 then Exit; + fsj:=' and A.KDNO like '''+'%'+Trim(KDNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmKDOKList.TBAddClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;KDMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ϼƲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('MoneyPerson').Value:=Trim(DName); + FieldByName('MoneyTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ZheKouMoney').Value:=Order_Main.fieldbyname('ZheKouMoney').Value; + FieldByName('PaiSongMoney').Value:=Order_Main.fieldbyname('PaiSongMoney').Value; + FieldByName('RanYou').Value:=Order_Main.fieldbyname('RanYou').Value; + FieldByName('RanYouMoney').Value:=Order_Main.fieldbyname('RanYouMoney').Value; + FieldByName('KDMoney').Value:=Order_Main.fieldbyname('KDMoney').Value; + FieldByName('DuiZhangNote').Value:=Order_Main.fieldbyname('DuiZhangNote').Value; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmKDOKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('MoneyPerson').Value:=Null; + FieldByName('MoneyTime').Value:=Null; + //FieldByName('ZheKouMoney').Value:=Null; + //FieldByName('PaiSongMoney').Value:=Null; + //FieldByName('RanYou').Value:=Null; + //FieldByName('RanYouMoney').Value:=Null; + //FieldByName('KDMoney').Value:=Null; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmKDOKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmKDOKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmKDOKList.v1Column13PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,ZheKouMoney,PaiSongMoney,RanYou,RanYouMoney,KDMoney:string; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingValue; + {if Trim(mvalue)='' then + begin + mvalue:='0'; + end; } + with Order_Main do + begin + Edit; + if Trim(mvalue)<>'' then + FieldByName(FName).Value:= mvalue + else + FieldByName(FName).Value:=Null; + Post; + end; + ZheKouMoney:=Order_Main.fieldbyname('ZheKouMoney').AsString; + if Trim(ZheKouMoney)='' then ZheKouMoney:='0'; + PaiSongMoney:=Order_Main.fieldbyname('PaiSongMoney').AsString; + if Trim(PaiSongMoney)='' then PaiSongMoney:='0'; + RanYou:=Order_Main.fieldbyname('RanYou').AsString; + if Trim(RanYou)='' then RanYou:='0'; + with Order_Main do + begin + Edit; + if (StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01<>0 then + FieldByName('RanYouMoney').Value:=(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01 + else + FieldByName('RanYouMoney').Value:=Null; + if StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney)+(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01<>0 then + FieldByName('KDMoney').Value:=StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney)+(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01 + else + FieldByName('KDMoney').Value:=Null; + Post; + end; + +end; + +procedure TfrmKDOKList.KDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNO.Text))<3 then Exit; + fsj:=' and A.KDNO like '''+'%'+Trim(KDNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; +procedure TfrmKDOKList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Order_Main.Locate('SSel;KDMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ϼƲΪ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + //FieldByName('MoneyPerson').Value:=Trim(DName); + //FieldByName('MoneyTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ZheKouMoney').Value:=Order_Main.fieldbyname('ZheKouMoney').Value; + FieldByName('PaiSongMoney').Value:=Order_Main.fieldbyname('PaiSongMoney').Value; + FieldByName('RanYou').Value:=Order_Main.fieldbyname('RanYou').Value; + FieldByName('RanYouMoney').Value:=Order_Main.fieldbyname('RanYouMoney').Value; + FieldByName('KDMoney').Value:=Order_Main.fieldbyname('KDMoney').Value; + FieldByName('DuiZhangNote').Value:=Order_Main.fieldbyname('DuiZhangNote').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm new file mode 100644 index 0000000..234c23a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm @@ -0,0 +1,978 @@ +object frmKHGetCPAdd: TfrmKHGetCPAdd + Left = 40 + Top = 107 + Width = 1254 + Height = 625 + Align = alClient + Caption = #25343#26679#30331#35760 + 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 = 1238 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 105 + Width = 1238 + Height = 343 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = v1Column16 + end + item + Format = '0' + Position = spFooter + Column = v1Column10 + end + item + Format = '0' + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 1 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 102 + end + object v1Column2: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Tag = 1 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column5: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Tag = 1 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column8: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #20215#26684#31867#22411 + DataBinding.FieldName = 'PriceType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20844#26020#20215 + #31859#20215 + #30721#20215) + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + DataBinding.FieldName = 'CIF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 50 + end + object v1Column17: TcxGridDBColumn + Tag = 3 + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 48 + end + object v1Column18: TcxGridDBColumn + Tag = 3 + Caption = #31995#25968 + DataBinding.FieldName = 'LiRunLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 3 + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 96 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1238 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 51 + Top = 16 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TLabel + Left = 288 + Top = 16 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label3: TLabel + Left = 528 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26102#38388 + end + object TLabel + Left = 51 + Top = 48 + Width = 18 + Height = 12 + Caption = 'CIF' + end + object TLabel + Left = 288 + Top = 48 + Width = 48 + Height = 12 + Caption = #27719' '#29575 + end + object TLabel + Left = 528 + Top = 48 + Width = 48 + Height = 12 + Caption = #31995' '#25968 + end + object TLabel + Left = 776 + Top = 16 + Width = 48 + Height = 12 + Caption = #20215#26684#31867#22411 + end + object TLabel + Left = 776 + Top = 48 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CYID: TEdit + Left = 105 + Top = 12 + Width = 131 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object KHName: TEdit + Left = 340 + Top = 12 + Width = 126 + Height = 20 + TabOrder = 1 + end + object CKDate: TcxDateEdit + Left = 578 + Top = 12 + TabOrder = 2 + Width = 147 + end + object CIF: TEdit + Left = 105 + Top = 44 + Width = 131 + Height = 20 + TabOrder = 3 + end + object HuiLv: TEdit + Left = 340 + Top = 44 + Width = 126 + Height = 20 + TabOrder = 4 + end + object LiRunLv: TEdit + Left = 578 + Top = 44 + Width = 146 + Height = 20 + TabOrder = 5 + end + object PriceType: TComboBox + Left = 830 + Top = 12 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #20844#26020#20215 + Items.Strings = ( + #20844#26020#20215 + #31859#20215 + #30721#20215) + end + object CKNO: TEdit + Left = 828 + Top = 44 + Width = 146 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object Button1: TButton + Left = 976 + Top = 12 + Width = 56 + Height = 20 + Caption = #19968#38190#26367#25442 + TabOrder = 8 + OnClick = Button1Click + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 448 + Width = 1238 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 456 + Width = 1238 + Height = 130 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 46 + Top = 131 + Width = 1027 + Height = 302 + TabOrder = 5 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 1025 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #26679#21697#24211#23384 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 1003 + Top = 3 + Width = 20 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid3: TcxGrid + Left = 1 + Top = 24 + Width = 1025 + Height = 240 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = Tv3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object Tv3Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 42 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 58 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 45 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 99 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn23: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object Tv3Column2: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 60 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 38 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 99 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 99 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 38 + end + object cxGridDBColumn29: TcxGridDBColumn + Tag = 99 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KCNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 1 + Top = 264 + Width = 1025 + Height = 37 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button2: TButton + Left = 354 + Top = 6 + Width = 50 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button2Click + end + object Button3: TButton + Left = 530 + Top = 6 + Width = 50 + Height = 25 + Caption = #21462#28040 + TabOrder = 1 + OnClick = Button3Click + end + end + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1168 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 1 + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 1163 + Top = 203 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1160 + Top = 168 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 648 + Top = 256 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 683 + Top = 259 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 712 + Top = 256 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 488 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 699 + Top = 491 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 728 + Top = 488 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas new file mode 100644 index 0000000..831c87a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas @@ -0,0 +1,954 @@ +unit U_KHGetCPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxTextEdit, + cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls, cxSplitter, + cxButtonEdit, cxCheckBox; + +type + TfrmKHGetCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + Panel1: TPanel; + CYID: TEdit; + Label1: TLabel; + KHName: TEdit; + Label3: TLabel; + CKDate: TcxDateEdit; + v1Column13: TcxGridDBColumn; + CIF: TEdit; + HuiLv: TEdit; + LiRunLv: TEdit; + v1Column14: TcxGridDBColumn; + PriceType: TComboBox; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + CKNO: TEdit; + Button1: TButton; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Panel2: TPanel; + Button2: TButton; + Button3: TButton; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + Fint:Integer; + LCYID:String; + procedure InitSubGrid(); + function SaveData():Boolean; + function SaveDataOne():Boolean; + { Private declarations } + public + FCYID,FCYCode,FCPID,FCPNO:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmKHGetCPAdd: TfrmKHGetCPAdd; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmKHGetCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(FCYID); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.FormShow(Sender: TObject); +var + fsj:String; +begin + + ReadCxGrid('ͻIN',Tv1,'Ʒ'); + InitSubGrid(); + KHName.Text:=Trim(CDS_Sub.fieldbyname('KHName').AsString); + CKDate.Date:=CDS_Sub.fieldbyname('CKdate').AsDateTime; + CKNO.Text:=Trim(CDS_Sub.fieldbyname('CKNO').AsString); + if Trim(FCYID)='' then + begin + CKDate.Date:=SGetServerDate(ADOQueryTemp); + end; + if CopyInt=99 then + begin + CKNO.Text:=''; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('CKID').Value:=''; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻIN',Tv1,'Ʒ'); + Close; +end; +function TfrmKHGetCPAdd.SaveData():Boolean; +var + maxId,FCKNO:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CKNO.Text)='' then + begin + if GetLSNo(ADOQueryCmd,FCKNO,'','CP_YDang_KHGet',3,1) =False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + FCKNO:=Trim(CKNO.Text); + end; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'CK','CP_YDang_KHGet',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CKID').Value:=Trim(maxId); + FieldByName('CKNO').Value:=Trim(FCKNO); + FieldByName('CYID').Value:=Trim(CDS_Sub.fieldbyname('CYID').AsString); + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('CKdate').Value:=CKDate.Date; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang_KHGet',3); + FieldByName('CostPrice').Value:=CDS_Sub.fieldbyname('CostPrice').Value; + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +function TfrmKHGetCPAdd.SaveDataOne():Boolean; +var + maxId,FCKNO,SubId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CKNO.Text)='' then + begin + if GetLSNo(ADOQueryCmd,FCKNO,'','CP_YDang_KHGet',3,1) =False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + FCKNO:=Trim(CKNO.Text); + end; + CKNO.Text:=Trim(FCKNO); + with CDS_Sub do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'CK','CP_YDang_KHGet',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CKID').Value:=Trim(maxId); + FieldByName('CKNO').Value:=Trim(FCKNO); + FieldByName('CYID').Value:=Trim(CDS_Sub.fieldbyname('CYID').AsString); + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('CKdate').Value:=CKDate.Date; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang_KHGet',3); + FieldByName('CostPrice').Value:=CDS_Sub.fieldbyname('CostPrice').Value; + Post; + end; + Edit; + FieldByName('CKID').Value:=Trim(maxId); + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOQueryCmd,SubId,'BC','CK_YP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YP_CR where BCId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCId').Value:=Trim(SubId); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'CK_YP_CR',99); + FieldByName('QYCKID').Value:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + FieldByName('CRTime').Value:=CKDate.Date; + FieldByName('CYID').Value:=Trim(LCYID); + FieldByName('CYColor').Value:=ClientDataSet3.fieldbyname('CYColor').Value; + FieldByName('CYType').Value:=ClientDataSet3.fieldbyname('CYType').Value; + FieldByName('QtyUnit').Value:=ClientDataSet3.fieldbyname('KCQtyUnit').Value; + + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('CKQty').Value; + FieldByName('QtyFlag').Value:=-1; + FieldByName('CRID').Value:=ClientDataSet3.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:='ͻȡ'; + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID)'); + sql.Add(' where CRID='+Trim(ClientDataSet3.fieldbyname('CRID').AsString)); + ExecSQL; + end; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmKHGetCPAdd.ToolButton1Click(Sender: TObject); +begin + + if CDS_Sub.IsEmpty then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmKHGetCPAdd.CYIDKeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + FFCYID:string; +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + sql.Add(' or CYNo='''+Trim(CYID.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ʒ!','ʾ',0); + Exit; + end; + LCYID:=Trim(ADOQueryTemp.fieldbyname('CYID').AsString); + CYID.Text:=''; + Panel4.Visible:=True; + Panel4.Refresh; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRID,A.BCID,A.KCQty,A.KCQtyUnit,A.CYColor,A.KCNote,A.CYType '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID)'); + sql.Add(',CKQty=Cast(NUll as decimal(18,2))'); + sql.Add(' from CK_YP_KC A '); + sql.Add(' left join CP_YDang B on A.CYID=B.CYID '); + sql.add('where A.CYID='''+Trim(LCYID)+''' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + + {if Trim(CIF.Text)<>'' then + begin + if TryStrToFloat(Trim(CIF.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('CIFַǷ!','',0); + Exit; + end; + end; + if Trim(HuiLv.Text)<>'' then + begin + if TryStrToFloat(Trim(HuiLv.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + if Trim(LiRunLv.Text)<>'' then + begin + if TryStrToFloat(Trim(LiRunLv.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + sql.Add(' or CYNo='''+Trim(CYID.Text)+''''); + Open; + CYID.Text:=''; + end; + if ADOQueryTemp.IsEmpty then Exit; + with CDS_Sub do + begin + Append; + FieldByName('CYID').Value:=Trim(ADOQueryTemp.fieldbyname('CYID').AsString); + FieldByName('CYNo').Value:=Trim(ADOQueryTemp.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(ADOQueryTemp.fieldbyname('CYName').AsString); + FieldByName('CYEName').Value:=Trim(ADOQueryTemp.fieldbyname('CYEName').AsString); + FieldByName('CYSpec').Value:=Trim(ADOQueryTemp.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(ADOQueryTemp.fieldbyname('CYCF').AsString); + FieldByName('CYECF').Value:=Trim(ADOQueryTemp.fieldbyname('CYECF').AsString); + FieldByName('CYMF').Value:=Trim(ADOQueryTemp.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(ADOQueryTemp.fieldbyname('CYKZ').AsString); + FieldByName('CYColor').Value:=Trim(ADOQueryTemp.fieldbyname('CYColor').AsString); + FieldByName('PriceType').Value:=Trim(PriceType.Text); + FieldByName('CYColorEng').Value:=Trim(ADOQueryTemp.fieldbyname('CYColorEng').AsString); + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + if Trim(CIF.Text)='' then + begin + FieldByName('CIF').Value:=0; + end else + begin + FieldByName('CIF').Value:=StrToFloat(CIF.Text); + end; + FieldByName('HuiLv').Value:=StrToFloat(HuiLv.Text); + FieldByName('LiRunLv').Value:=StrToFloat(LiRunLv.Text); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; } + end; +end; + +procedure TfrmKHGetCPAdd.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('CKID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾѱ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID'); + sql.Add(' and isnull(A.QYCKID,'''')<>'''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''')'); + sql.Add(' where CRID in'); + sql.Add('(select CRID from CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Sub.Delete; + +end; + +procedure TfrmKHGetCPAdd.v1Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=Trim(TcxComboBox(Sender).EditingText); + with CDS_Sub do + begin + Edit; + FieldByName('PriceType').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='׼' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + +end; + +procedure TfrmKHGetCPAdd.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,MFieldName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + MFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Sub do + begin + Edit; + FieldByName(MFieldName).Value:=mvalue; + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; +end; + +procedure TfrmKHGetCPAdd.Button1Click(Sender: TObject); +begin + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PriceType').Value:=Trim(PriceType.Text); + Post; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + Next; + end; + end; + +end; + +procedure TfrmKHGetCPAdd.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmKHGetCPAdd.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmKHGetCPAdd.Button3Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmKHGetCPAdd.Button2Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet3.IsEmpty then + begin + if Application.MessageBox('Ʒûп棬ȷֻ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + if Application.MessageBox('ȷֻ,','ʾ',32+4)<>IDYES then Exit; + end else + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet3.fieldbyname('CKQty').AsString)='' then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value=0 then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value<0 then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('С!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value>ClientDataSet3.fieldbyname('KCQty').Value then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('ܴڿ!','ʾ',0); + Exit; + end; + end; + next; + end; + end; + ClientDataSet3.EnableControls; + end; + end; + + if Trim(KHName.Text)='' then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + if Trim(CIF.Text)<>'' then + begin + if TryStrToFloat(Trim(CIF.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('CIFַǷ!','',0); + Exit; + end; + end; + if Trim(HuiLv.Text)<>'' then + begin + if TryStrToFloat(Trim(HuiLv.Text),FReal)=False then + begin + // CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + //CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + if Trim(LiRunLv.Text)<>'' then + begin + if TryStrToFloat(Trim(LiRunLv.Text),FReal)=False then + begin + //CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + //CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(LCYID)+''''); + sql.Add(' or CYNo='''+Trim(LCYID)+''''); + Open; + + end; + if ADOQueryTemp.IsEmpty then Exit; + with CDS_Sub do + begin + Append; + FieldByName('CYID').Value:=Trim(LCYID); + FieldByName('CYNo').Value:=Trim(ADOQueryTemp.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(ADOQueryTemp.fieldbyname('CYName').AsString); + FieldByName('CYEName').Value:=Trim(ADOQueryTemp.fieldbyname('CYEName').AsString); + FieldByName('CYSpec').Value:=Trim(ADOQueryTemp.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(ADOQueryTemp.fieldbyname('CYCF').AsString); + FieldByName('CYECF').Value:=Trim(ADOQueryTemp.fieldbyname('CYECF').AsString); + FieldByName('CYMF').Value:=Trim(ADOQueryTemp.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(ADOQueryTemp.fieldbyname('CYKZ').AsString); + FieldByName('CYColor').Value:=Trim(ADOQueryTemp.fieldbyname('CYColor').AsString); + FieldByName('PriceType').Value:=Trim(PriceType.Text); + FieldByName('CYColorEng').Value:=Trim(ADOQueryTemp.fieldbyname('CYColorEng').AsString); + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + if Trim(CIF.Text)='' then + begin + FieldByName('CIF').Value:=0; + end else + begin + FieldByName('CIF').Value:=StrToFloat(CIF.Text); + end; + FieldByName('HuiLv').Value:=StrToFloat(HuiLv.Text); + FieldByName('LiRunLv').Value:=StrToFloat(LiRunLv.Text); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + if SaveDataOne() then + begin + Panel4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + end; +end; + +procedure TfrmKHGetCPAdd.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm new file mode 100644 index 0000000..af6b5b9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm @@ -0,0 +1,795 @@ +object frmKHGetCPManage: TfrmKHGetCPManage + Left = 162 + Top = 71 + Width = 1099 + Height = 657 + Caption = #25343#26679#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 = 1083 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton3Click + end + object ToolButton9: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton9Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel4: TPanel + Left = 528 + Top = 0 + Width = 176 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 108 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton7: TToolButton + Left = 704 + Top = 0 + Caption = #25171#21360#25343#26679#28165#21333 + ImageIndex = 68 + OnClick = ToolButton7Click + end + object ToolButton8: TToolButton + Left = 811 + Top = 0 + AutoSize = True + Caption = #31354#30333#20449#31546#32440 + ImageIndex = 76 + OnClick = ToolButton8Click + end + object TBClose: TToolButton + Left = 910 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 193 + Width = 1083 + Height = 287 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object v1Column20: TcxGridDBColumn + Caption = #25343#26679#32534#21495 + DataBinding.FieldName = 'CKNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 98 + end + object v1Column19: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 83 + end + object v1Column18: TcxGridDBColumn + Caption = #25343#26679#26102#38388 + DataBinding.FieldName = 'CKDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 106 + end + object v1Column12: TcxGridDBColumn + Caption = #26679#21697#31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column14: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column10: TcxGridDBColumn + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column15: TcxGridDBColumn + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column16: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #31995#25968 + DataBinding.FieldName = 'LiRunLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1Column13: TcxGridDBColumn + DataBinding.FieldName = 'CIF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1083 + Height = 162 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label2: TLabel + Left = 184 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label1: TLabel + Left = 184 + Top = 67 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 184 + Top = 92 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 184 + Top = 41 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 184 + Top = 118 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label6: TLabel + Left = 16 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26085#26399 + end + object Label7: TLabel + Left = 184 + Top = 143 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Image2: TImage + Left = 377 + Top = 2 + Width = 192 + Height = 159 + end + object CYNo: TEdit + Tag = 2 + Left = 235 + Top = 12 + Width = 101 + Height = 20 + TabOrder = 0 + OnChange = CYNoChange + OnKeyPress = CYNoKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 235 + Top = 63 + Width = 101 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 235 + Top = 88 + Width = 101 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 235 + Top = 37 + Width = 101 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object KHName: TEdit + Tag = 2 + Left = 235 + Top = 114 + Width = 101 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object BegDate: TDateTimePicker + Left = 64 + Top = 12 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 5 + end + object EndDate: TDateTimePicker + Left = 64 + Top = 35 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 6 + end + object CKNO: TEdit + Tag = 2 + Left = 235 + Top = 139 + Width = 101 + Height = 20 + TabOrder = 7 + OnKeyPress = CKNOKeyPress + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 488 + Width = 1083 + Height = 130 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 480 + Width = 1083 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object DataSource1: TDataSource + DataSet = ADOQueryPrint + Left = 395 + Top = 91 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 341 + Top = 265 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 933 + Top = 73 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 965 + Top = 81 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 528 + Top = 216 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 491 + Top = 211 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 209 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 368 + Top = 256 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 296 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 900 + Top = 189 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 901 + Top = 228 + end + object SaveDialog1: TSaveDialog + Left = 905 + Top = 277 + end + object RM2: 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 488 + Top = 312 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 528 + Top = 304 + 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 = 640 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 536 + end + object DataSource3: TDataSource + DataSet = ClientDataSet2 + Left = 675 + Top = 539 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 704 + Top = 536 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas new file mode 100644 index 0000000..e059d23 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas @@ -0,0 +1,546 @@ +unit U_KHGetCPManage; //4 + +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, RM_e_Xls,jpeg, BtnEdit, + cxButtonEdit, cxDropDownEdit; + +type + TfrmKHGetCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryPrint: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Panel1: TPanel; + Label2: TLabel; + CYNo: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label3: TLabel; + KHName: TEdit; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label7: TLabel; + CKNO: TEdit; + ToolButton7: TToolButton; + RM2: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton8: TToolButton; + Image2: TImage; + ToolButton9: TToolButton; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CKNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton9Click(Sender: TObject); + procedure LabNameBtnClick(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + + public + { Public declarations } + end; + +var + frmKHGetCPManage: TfrmKHGetCPManage; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_KHGetCPAdd,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKHGetCPManage.InitTree(); +var + i:Integer; +begin + {with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); } + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmKHGetCPManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=''; + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('PState').Value:=0; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPManage.FormDestroy(Sender: TObject); +begin + frmKHGetCPManage:=nil; +end; + +procedure TfrmKHGetCPManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKHGetCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('E:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmKHGetCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID'); + sql.Add(' and isnull(A.QYCKID,'''')<>'''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''')'); + sql.Add(' where CRID in'); + sql.Add('(select CRID from CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmKHGetCPManage.FormShow(Sender: TObject); +begin + //InitTree(); + ReadCxGrid('Ʒб',Tv1,'Ʒ'); + + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-7; +end; + +procedure TfrmKHGetCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.TBAddClick(Sender: TObject); +begin + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=''; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton2Click(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 TfrmKHGetCPManage.CYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYNo.Text)+''''); + Open; + CYNo.Text:=Trim(fieldbyname('CYNo').AsString); + end; + end; +end; + +procedure TfrmKHGetCPManage.CYNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmKHGetCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('ͻ',cxGrid1); +end; + +procedure TfrmKHGetCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.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 TfrmKHGetCPManage.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // ToolButton6.Click; +end; + +procedure TfrmKHGetCPManage.CKNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CKNO.Text)='' then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CKNO.Text); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CKNO.Text:=''; + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +procedure TfrmKHGetCPManage.ToolButton7Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryPrint do + begin + Close; + sql.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CDS_Main.fieldbyname('CKNO').AsString); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\嵥.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['printer']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\嵥.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile:string; +begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\հżֽ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\հżֽ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmKHGetCPManage.ToolButton9Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + CopyInt:=99; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm new file mode 100644 index 0000000..df72523 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm @@ -0,0 +1,793 @@ +object frmKKList: TfrmKKList + Left = 29 + Top = 82 + Width = 1236 + Height = 592 + Caption = #25187#27454#31649#29702 + 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 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1220 + Height = 31 + 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_CYZZ.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 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + end + object TBRKCX: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1220 + Height = 66 + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #36131#20219#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 3 + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 97 + Width = 1220 + Height = 456 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + ClientRectBottom = 456 + ClientRectRight = 1220 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #24453#30331#35760 + ImageIndex = 0 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1220 + Height = 433 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = 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 v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 36 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 63 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24050#30331#35760 + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1220 + Height = 225 + Align = alTop + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + end + item + Format = '0' + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = 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 = #35746#21333#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v2Column6: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#27454#21407#22240 + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + Width = 78 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 99 + Caption = #21327#21830#25187#27454#37329#39069 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v2Column1: TcxGridDBColumn + Caption = #26368#32456#25187#27454#37329#39069 + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #22788#29702#20154 + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 99 + Caption = #36130#21153#26680#38144 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 99 + Caption = #22791#27880 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 117 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 8 + Top = 240 + Width = 1153 + Height = 185 + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = 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 cxGridDBColumn11: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn29: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v3Column1: TcxGridDBColumn + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'DutyPerMoney' + Width = 76 + end + object cxGridDBColumn30: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378#25187#27454 + DataBinding.FieldName = 'DutyFtyMoney' + Width = 86 + end + object cxGridDBColumn31: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn32: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn33: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn35: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn36: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKList.pas b/坯布码单待检(PBMDDJ.dll)/U_KKList.pas new file mode 100644 index 0000000..5081fb4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKList.pas @@ -0,0 +1,126 @@ +unit U_KKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxPC, cxControls, ComCtrls, StdCtrls, ExtCtrls, ToolWin, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCheckBox, cxCalendar, cxDropDownEdit, + cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid; + +type + TfrmKKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton2: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBRKCX: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + MJID: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKKList: TfrmKKList; + +implementation + +{$R *.dfm} + +procedure TfrmKKList.FormDestroy(Sender: TObject); +begin + frmKKList:=nil; +end; + +procedure TfrmKKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm b/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm new file mode 100644 index 0000000..18b19a0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm @@ -0,0 +1,884 @@ +object frmKKView: TfrmKKView + Left = 88 + Top = 59 + Width = 1196 + Height = 669 + Caption = 'frmKKView' + 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 = 1188 + 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_CYZZ.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 = #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 = 1188 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 490 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 617 + Top = 12 + Width = 84 + Height = 12 + Caption = #21327#21830#20013#25187#27454#24037#21378 + end + object Label8: TLabel + Left = 617 + Top = 36 + Width = 72 + Height = 12 + Caption = #26368#32456#25187#27454#24037#21378 + end + object Label9: TLabel + Left = 816 + Top = 12 + Width = 96 + Height = 12 + Caption = #21327#21830#20013#25187#27454#36131#20219#20154 + end + object Label10: TLabel + Left = 818 + Top = 36 + Width = 84 + Height = 12 + Caption = #26368#32456#25187#27454#36131#20219#20154 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 74 + Height = 20 + TabOrder = 0 + OnChange = orderNoChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 74 + Height = 20 + TabOrder = 5 + OnChange = orderNoChange + end + object MDFactoryName: TEdit + Tag = 2 + Left = 527 + Top = 8 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object TJXSInfo: TEdit + Tag = 2 + Left = 701 + Top = 8 + Width = 104 + Height = 20 + TabOrder = 7 + OnChange = orderNoChange + end + object TJJGInfo: TEdit + Tag = 2 + Left = 701 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 8 + OnChange = orderNoChange + end + object TJXSPonInfo: TEdit + Tag = 2 + Left = 913 + Top = 8 + Width = 55 + Height = 20 + TabOrder = 9 + OnChange = orderNoChange + end + object TJJGPonInfo: TEdit + Tag = 2 + Left = 913 + Top = 32 + Width = 55 + Height = 20 + TabOrder = 10 + OnChange = orderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1188 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #21327#21830#20013 + #21327#21830#23436#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1188 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 117 + Width = 1188 + Height = 272 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#24037#21378 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 107 + end + object v1Column2: TcxGridDBColumn + Caption = #21327#21830#20013#24037#21378#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 113 + end + object v1Column5: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#36131#20219#20154 + DataBinding.FieldName = 'TJXSPonInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 111 + end + object v1Column6: TcxGridDBColumn + Caption = #21327#21830#20013#36131#20219#20154#25187#27454 + DataBinding.FieldName = 'TJXSPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 113 + end + object v1Column3: TcxGridDBColumn + Caption = #26368#32456#25187#27454#24037#21378 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 98 + end + object v1Column4: TcxGridDBColumn + Caption = #26368#32456#24037#21378#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 97 + end + object v1Column7: TcxGridDBColumn + Caption = #26368#32456#25187#27454#36131#20219#20154 + DataBinding.FieldName = 'TJJGPonInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 100 + end + object v1Column8: TcxGridDBColumn + Caption = #26368#32456#36131#20219#20154#25187#27454 + DataBinding.FieldName = 'TJJGPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 102 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 397 + Width = 1188 + Height = 241 + Align = alBottom + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 631 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 389 + Width = 1188 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 483 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 235 + Top = 473 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 284 + Top = 480 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 793 + Top = 500 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 863 + Top = 498 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 904 + Top = 488 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 485 + Top = 189 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKView.pas b/坯布码单待检(PBMDDJ.dll)/U_KKView.pas new file mode 100644 index 0000000..2b863be --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKView.pas @@ -0,0 +1,440 @@ +unit U_KKView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + cxSplitter, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, cxPC, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, DBClient; + +type + TfrmKKView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label11: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + MDNO: TEdit; + MPRTCode: TEdit; + MDFactoryName: TEdit; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox1: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ADOQuery3: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label4: TLabel; + TJXSInfo: TEdit; + Label8: TLabel; + TJJGInfo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label9: TLabel; + TJXSPonInfo: TEdit; + Label10: TLabel; + TJJGPonInfo: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKKView: TfrmKKView; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmKKView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKKView.FormDestroy(Sender: TObject); +begin + frmKKView:=nil; +end; + +procedure TfrmKKView.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.Status,'''')<>'''' '; + end; + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmKKView.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmKKView.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmKKView.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.Status,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmKKView.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.Status,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmKKView.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmKKView.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmKKView.FormShow(Sender: TObject); +begin + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxTabControl1.TabIndex:=0; + ReadCxGrid('tv1',Tv1,'ۿѯ'); + ReadCxBandedGrid('tv2',Tv2,'ۿѯ'); + ReadCxBandedGrid('tv4',Tv4,'ۿѯ'); +end; + +procedure TfrmKKView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv1',Tv1,'ۿѯ'); + WriteCxBandedGrid('tv2',Tv2,'ۿѯ'); + WriteCxBandedGrid('tv4',Tv4,'ۿѯ'); + Close; +end; + +procedure TfrmKKView.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + TcxGridToExcel('ڲֿۿ뵥',cxGrid1); +end; + +procedure TfrmKKView.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + if Self.cxTabControl1.TabIndex=0 then + begin + frmTJCKRKOK.cxTabControl1.TabIndex:=2; + end else + if Self.cxTabControl1.TabIndex=1 then + begin + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + end; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + + if Self.cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if Self.cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + ClientDataSet6.Locate('MDNO',Trim(Self.ClientDataSet3.fieldbyname('MDNO').AsString),[]); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + {if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end;} + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm new file mode 100644 index 0000000..0f4e785 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas new file mode 100644 index 0000000..d003c58 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm new file mode 100644 index 0000000..90fcebd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas b/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas new file mode 100644 index 0000000..23a768f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm new file mode 100644 index 0000000..7018661 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm @@ -0,0 +1,1622 @@ +object frmMDChkFL: TfrmMDChkFL + Left = 19 + Top = 75 + Width = 1225 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + 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_CYZZ.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 ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 647 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 746 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 833 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 896 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 983 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneClMaroon + Styles.Header = DataLink_CYZZ.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object Panel4: TPanel + Left = 524 + Top = 226 + Width = 549 + Height = 269 + TabOrder = 5 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 547 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 523 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 547 + Height = 244 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = v5Column12 + end + item + Kind = skSum + Column = v5Column11 + end + item + Kind = skSum + Column = v5Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v5Column13: TcxGridDBColumn + Caption = #26412#26399#26680#38144#37329#39069 + DataBinding.FieldName = 'BQHXMoney' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v5Column12: TcxGridDBColumn + Caption = #24635#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 1 + TabOrder = 6 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas new file mode 100644 index 0000000..b8b745d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas @@ -0,0 +1,2330 @@ +unit U_MDChkFL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v5Column8: TcxGridDBColumn; + v5Column11: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmMDChkFL: TfrmMDChkFL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFL.FormDestroy(Sender: TObject); +begin + frmMDChkFL:=nil; +end; + +procedure TfrmMDChkFL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFL.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFL.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFL.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFL.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + SaveData(); +end; + +procedure TfrmMDChkFL.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFL.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFL.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFL.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFL.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + Label15.Caption:=Trim(ClientDataSet1.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFL.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFL.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFL.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFL.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFL.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFL.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFL.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + 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='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFL.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFL.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' )AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmMDChkFL.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFL.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFL.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFL.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFL.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFL.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFL.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFL.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFL.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFL.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFL.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmMDChkFL.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm new file mode 100644 index 0000000..1f45716 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm @@ -0,0 +1,1650 @@ +object frmMDChkFLFK: TfrmMDChkFLFK + Left = 38 + Top = 85 + Width = 1225 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 623 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 959 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v2Column1: TcxGridDBColumn + Caption = #21512#21516#20132#26399 + DataBinding.FieldName = 'DLYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #19981#24320#31080 + DataBinding.FieldName = 'BuKPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 88 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 380 + Top = 88 + Width = 525 + Height = 212 + TabOrder = 6 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 523 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 499 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 523 + Height = 187 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v5Column13: TcxGridDBColumn + Caption = #25903#20184#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v5Column12: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'Payment' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 158 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 286 + Top = 155 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas new file mode 100644 index 0000000..448bfee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas @@ -0,0 +1,2587 @@ +unit U_MDChkFLFK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLFK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v2Column1: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmMDChkFLFK: TfrmMDChkFLFK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLFK.FormDestroy(Sender: TObject); +begin + frmMDChkFLFK:=nil; +end; + +procedure TfrmMDChkFLFK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLFK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFLFK.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFLFK.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFLFK.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFLFK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + if Trim(FactoryName.Text)<>'' then + begin + sql.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFLFK.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('δ!','',0); + Exit; + end; + SaveData(); +end; + +procedure TfrmMDChkFLFK.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFLFK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLFK.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFLFK.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFLFK.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFLFK.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(Money*QtyFlag) KCMoney from YF_Money_CR '); + sql.Add(' where Factoryname='''+Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+''''); + Open; + end; + Label15.Caption:=Trim(ADOQueryTemp.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if (Trim(FName)='Ssel') or (Trim(FName)='BuKPFlag') then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFLFK.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFLFK.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFLFK.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFLFK.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //ToolButton8.Click; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + if ClientDataSet1.FieldByName('Money').Value<>ClientDataSet1.FieldByName('FtyMoney').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + if ClientDataSet1.FieldByName('ChaEMoney').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)<>'' then + begin + SQL.Add(',Qty='+Trim(ClientDataSet1.fieldbyname('Qty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Price').AsString)<>'' then + begin + SQL.Add(',Price='+Trim(ClientDataSet1.fieldbyname('Price').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)<>'' then + begin + SQL.Add(',Money='+Trim(ClientDataSet1.fieldbyname('Money').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChaEMoney=isnull(Money,0)-isnull(FtyMoney,0)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFLFK.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + 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='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFLFK.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ſ¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFLFK.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' and isnull(FXType,'''')<>'''')AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmMDChkFLFK.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFLFK.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFLFK.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFLFK.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFLFK.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl2.TabIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:=''; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + end; + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFLFK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLFK.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLFK.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLFK.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLFK.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLFK.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFLFK.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFLFK.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmMDChkFLFK.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.YFID,A.CRTime,A.FactoryName,A.Money,A.CRID '); + sql.Add(' ,PSName=isnull(A.PSName,D.PSName),C.OrderNo'); + sql.Add(' ,YFName=isnull(A.YFName,D.PKYongTu)'); + sql.Add(' ,ComTaiTou=isnull(A.ComTaiTou,D.ComTaiTou)'); + sql.Add(' ,PayMent=isnull(A.PayMent,D.PayMent)'); + sql.Add(' ,Note=isnull(A.Note,D.FKNote)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join YF_Money_PaiKuan D on A.YFID=D.FKID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' '); + sql.Add(' and A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + SQL.Add(' order by A.CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5);} +end; + +procedure TfrmMDChkFLFK.FactoryNameKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(FactoryName.Text)='' then Exit; + if Length(Trim(FactoryName.Text))<2 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm new file mode 100644 index 0000000..08f1be6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm @@ -0,0 +1,1588 @@ +object frmMDChkFLView: TfrmMDChkFLView + Left = 158 + Top = 97 + Width = 1146 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867#26597#35810 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + Height = 33 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 647 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 746 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 833 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 896 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 983 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 627 + Top = 1 + Width = 347 + Height = 39 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 196 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 88 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 221 + Top = 10 + Width = 118 + Height = 20 + TabOrder = 2 + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object Button2: TButton + Left = 976 + Top = 11 + Width = 75 + Height = 21 + Caption = #37325#26032#35745#31639 + TabOrder = 6 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 1052 + Top = 13 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 7 + OnClick = CheckBox1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 176 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 744 + Top = 2 + Width = 384 + Height = 172 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 734 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 736 + Top = 2 + Width = 8 + Height = 172 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1130 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1130 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1078 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1128 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 1 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1128 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object Panel4: TPanel + Left = 514 + Top = 356 + Width = 387 + Height = 145 + TabOrder = 5 + Visible = False + object Label6: TLabel + Left = 21 + Top = 35 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label4: TLabel + Left = 21 + Top = 86 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label8: TLabel + Left = 199 + Top = 35 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 199 + Top = 60 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label3: TLabel + Left = 199 + Top = 86 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label10: TLabel + Left = 23 + Top = 110 + Width = 42 + Height = 12 + Caption = #33457' '#22411 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 385 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#26597#35810#31383#20307 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 355 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object MDNO: TEdit + Tag = 2 + Left = 72 + Top = 31 + Width = 113 + Height = 20 + TabOrder = 1 + end + object MDType: TComboBox + Tag = 2 + Left = 257 + Top = 31 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 257 + Top = 56 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object ComboBox1: TComboBox + Tag = 2 + Left = 257 + Top = 82 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + end + object ComboBox2: TComboBox + Tag = 2 + Left = 72 + Top = 82 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + end + object ComboBox3: TComboBox + Tag = 2 + Left = 72 + Top = 107 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + end + object Edit1: TEdit + Tag = 2 + Left = 72 + Top = 56 + Width = 113 + Height = 20 + TabOrder = 7 + end + object Button1: TButton + Left = 199 + Top = 108 + Width = 56 + Height = 19 + Caption = #26597#35810 + TabOrder = 8 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 6 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas new file mode 100644 index 0000000..8016dbb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas @@ -0,0 +1,2044 @@ +unit U_MDChkFLView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + Panel4: TPanel; + Label6: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label3: TLabel; + Label10: TLabel; + Panel10: TPanel; + Image2: TImage; + MDNO: TEdit; + MDType: TComboBox; + PSName: TComboBox; + ComboBox1: TComboBox; + ComboBox2: TComboBox; + ComboBox3: TComboBox; + Edit1: TEdit; + Button1: TButton; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + Button2: TButton; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + public + { Public declarations } + end; + +var + frmMDChkFLView: TfrmMDChkFLView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLView.FormDestroy(Sender: TObject); +begin + frmMDChkFLView:=nil; +end; + +procedure TfrmMDChkFLView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFLView.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFLView.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFLView.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFLView.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFLView.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + SaveData(); +end; + +procedure TfrmMDChkFLView.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=1; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFLView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLView.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFLView.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFLView.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFLView.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFLView.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFLView.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFLView.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFLView.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFLView.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFLView.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFLView.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + 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='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFLView.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFLView.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFLView.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFLView.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFLView.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFLView.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFLView.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFLView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLView.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLView.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLView.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLView.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLView.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFLView.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFLView.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm new file mode 100644 index 0000000..2dbbb6f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm @@ -0,0 +1,995 @@ +object frmMDChkFLZhengYiCL: TfrmMDChkFLZhengYiCL + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#22788#29702 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1138 + 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_CYZZ.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 ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22788#29702 + ImageIndex = 36 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1138 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1138 + Height = 483 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1134 + Height = 247 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 257 + Width = 1134 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1132 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 249 + Width = 1134 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1138 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22788#29702 + #24050#22788#29702 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1138 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas new file mode 100644 index 0000000..7050c2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas @@ -0,0 +1,448 @@ +unit U_MDChkFLZhengYiCL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCL: TfrmMDChkFLZhengYiCL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCL.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCL:=nil; +end; + +procedure TfrmMDChkFLZhengYiCL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in('''',''˲ͨ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCL.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLQty',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLPrice',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Getdate(),'); + SQL.Add('CLPerson='''+Trim(DName)+''',ChkStatus=''Ѵ'' ' ); + if Trim(ClientDataSet1.fieldbyname('CLQty').AsString)<>'' then + begin + SQL.Add(',CLQty='+Trim(ClientDataSet1.fieldbyname('CLQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)<>'' then + begin + SQL.Add(',CLPrice='+Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)<>'' then + begin + SQL.Add(',CLMoney='+Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + {Edit; + FieldByName('CLPerson').Value:=Trim(DName); + FieldByName('CLTime').Value:=Now; + Post; } + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'ͨ']),[loPartialKey]) then + begin + Application.MessageBox('ִͨв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Null,'); + SQL.Add('CLPerson=Null,ChkStatus='''',CLQty=Null,CLPrice=Null,CLMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCL.cxTabControl2Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCL.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm new file mode 100644 index 0000000..cb1d99c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm @@ -0,0 +1,1002 @@ +object frmMDChkFLZhengYiCLChk: TfrmMDChkFLZhengYiCLChk + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#23457#26680 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1138 + Height = 33 + 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_CYZZ.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 ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object ToolButton7: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 395 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 545 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1138 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1138 + Height = 483 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1134 + Height = 247 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 257 + Width = 1134 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1132 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 249 + Width = 1134 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1138 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1138 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas new file mode 100644 index 0000000..110c265 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas @@ -0,0 +1,486 @@ +unit U_MDChkFLZhengYiCLChk; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCLChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton1: TToolButton; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCLChk: TfrmMDChkFLZhengYiCLChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCLChk.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCLChk:=nil; +end; + +procedure TfrmMDChkFLZhengYiCLChk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCLChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''˲ͨ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCLChk.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_HZ Set ChkTime=Getdate(),'); + SQL.Add(' Chker='''+Trim(DName)+''',ChkStatus=''ͨ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' ,Qty='+ClientDataSet1.fieldbyname('CLQty').AsString); + sql.Add(' ,Price='+ClientDataSet1.fieldbyname('CLPrice').AsString); + sql.Add(' ,Money='+ClientDataSet1.fieldbyname('CLMoney').AsString); + sql.Add(' ,BBMoney='+ClientDataSet1.fieldbyname('CLMoney').AsString); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set Qty=CLQty,Price=CLPrice,Money=CLMoney'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChkTime=Null,'); + SQL.Add('Chker=Null,ChkStatus=''Ѵ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.cxTabControl2Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCLChk.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLChk.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLChk.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_HZ Set ChkTime=Getdate(),'); + SQL.Add(' Chker='''+Trim(DName)+''',ChkStatus=''˲ͨ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm new file mode 100644 index 0000000..38c468a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm @@ -0,0 +1,997 @@ +object frmMDChkFLZhengYiCLList: TfrmMDChkFLZhengYiCLList + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#22788#29702#26597#35810 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + 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_CYZZ.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 ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22788#29702 + ImageIndex = 36 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 475 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1126 + Height = 239 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 249 + Width = 1126 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1124 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 241 + Width = 1126 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22788#29702 + #24050#22788#29702 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas new file mode 100644 index 0000000..3d81eb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas @@ -0,0 +1,464 @@ +unit U_MDChkFLZhengYiCLList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCLList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCLList: TfrmMDChkFLZhengYiCLList; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCLList.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCLList:=nil; +end; + +procedure TfrmMDChkFLZhengYiCLList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCLList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCLList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in('''',''˲ͨ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCLList.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLList.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLQty',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLPrice',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Getdate(),'); + SQL.Add('CLPerson='''+Trim(DName)+''',ChkStatus=''Ѵ'' ' ); + if Trim(ClientDataSet1.fieldbyname('CLQty').AsString)<>'' then + begin + SQL.Add(',CLQty='+Trim(ClientDataSet1.fieldbyname('CLQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)<>'' then + begin + SQL.Add(',CLPrice='+Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)<>'' then + begin + SQL.Add(',CLMoney='+Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + {Edit; + FieldByName('CLPerson').Value:=Trim(DName); + FieldByName('CLTime').Value:=Now; + Post; } + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'ͨ']),[loPartialKey]) then + begin + Application.MessageBox('ִͨв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Null,'); + SQL.Add('CLPerson=Null,ChkStatus='''',CLQty=Null,CLPrice=Null,CLMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.cxTabControl2Change(Sender: TObject); +var + fsj:string; +begin + InitGrid(); + if ClientDataSet1.IsEmpty=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:='www324567'; + fsj:=' and isnull(MHID,'''')=''1234567ytrty'' '; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCLList.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLList.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + fsj:String; +begin + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm new file mode 100644 index 0000000..b9f884d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm @@ -0,0 +1,1347 @@ +object frmMDChkKKFL: TfrmMDChkKKFL + Left = 32 + Top = 100 + Width = 1146 + Height = 608 + Caption = #25187#27454#30721#21333#19982#20998#31867 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + Height = 33 + 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_CYZZ.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 ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton1: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 402 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + Caption = #21327#21830#20070#22686#21152 + ImageIndex = 66 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 592 + Top = 0 + Caption = #25171#21360#21327#21830#20070 + ImageIndex = 4 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 750 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 837 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 627 + Top = 1 + Width = 347 + Height = 39 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 196 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 88 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 221 + Top = 10 + Width = 118 + Height = 20 + TabOrder = 2 + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object Button2: TButton + Left = 976 + Top = 11 + Width = 75 + Height = 21 + Caption = #37325#26032#35745#31639 + TabOrder = 6 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 1052 + Top = 13 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 7 + OnClick = CheckBox1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 176 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 744 + Top = 2 + Width = 384 + Height = 172 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 734 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = 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 v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25187#27454#24037#24207 + DataBinding.FieldName = 'KKNote' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #25187#27454#21407#22240 + DataBinding.FieldName = 'KKReason' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column8: TcxGridDBColumn + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 81 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 736 + Top = 2 + Width = 8 + Height = 172 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1130 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1130 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1078 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1128 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1128 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 831 + Top = 436 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 317 + Top = 126 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 346 + Top = 127 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 371 + Top = 128 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 286 + Top = 123 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 504 + Top = 184 + ReportData = {} + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 216 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 504 + Top = 120 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 468 + Top = 184 + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 302 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas new file mode 100644 index 0000000..fb12a23 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas @@ -0,0 +1,1852 @@ +unit U_MDChkKKFL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmMDChkKKFL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + Button2: TButton; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column18: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + v1Column9: TcxGridDBColumn; + RM1: TRMGridReport; + CDS_PRT: TClientDataSet; + RMDBMain: TRMDBDataSet; + RMXLSExport2: TRMXLSExport; + ADOQuery2: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure v72Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + public + { Public declarations } + end; + +var + frmMDChkKKFL: TfrmMDChkKKFL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkKKFL.FormDestroy(Sender: TObject); +begin + frmMDChkKKFL:=nil; +end; + +procedure TfrmMDChkKKFL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkKKFL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'KK뵥˲'); + WriteCxGrid('Tv2',Tv2,'KK뵥˲'); + WriteCxGrid('Tv3',Tv3,'KK뵥˲'); + close; +end; + +procedure TfrmMDChkKKFL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where isnull(A.MDType,'''')=''ۿ'' '); + + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + sql.Add(' and isnull(A.Status,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkKKFL.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + with ClientDataSet1 do + begin + Append; + //FieldByName('MHID').Value:=''; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + //SaveData(); +end; + +procedure TfrmMDChkKKFL.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'KK뵥˲'); + ReadCxGrid('Tv2',Tv2,'KK뵥˲'); + ReadCxGrid('Tv3',Tv3,'KK뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkKKFL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkKKFL.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkKKFL.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); + Exit; + end; + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + fsj:=fsj+' '+ //and isnull(PF.CKName,'''')<>''ڲֿ'' + ' and exists(select * from JYOrder_Main_MD_KK JMMK where JMMK.MDID=JMM.MDID)'; + + //Parameters.ParamByName('WSql').Value:=fsj; + // ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); +end; +procedure TfrmMDChkKKFL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton1Click(Sender: TObject); +var + maxNo:string; +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + if Trim(ClientDataSet1.fieldbyname('MHID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + end else + begin + maxNo:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('MHID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MHID').Value:=Trim(maxNo); + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + FieldByName('MDType').Value:='ۿ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + Edit; + FieldByName('MHID').Value:=Trim(maxNo); + Post; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(maxNo)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + {if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; } + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkKKFL.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + +end; + +procedure TfrmMDChkKKFL.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('TJXSMoney').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('TJXSMoney').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkKKFL.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkKKFL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkKKFL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +function TfrmMDChkKKFL.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + 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='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkKKFL.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkKKFL.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkKKFL.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkKKFL.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('TJXSMoney').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkKKFL.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + FieldByName('MDType').Value:='ۿ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkKKFL.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); } +end; + +procedure TfrmMDChkKKFL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkKKFL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkKKFL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkKKFL.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkKKFL.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkKKFL.v72Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice,Money,FtyMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Money:=Trim(ClientDataSet1.fieldbyname('Money').AsString); + if Trim(Money)='' then + begin + Money:='0'; + end; + FtyMoney:=Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString); + if Trim(FtyMoney)='' then + begin + FtyMoney:='0'; + end; + FtyMoney:=Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString); + if Trim(FtyMoney)='' then + begin + FtyMoney:='0'; + end; + with ClientDataSet1 do + begin + Edit; + if StrToFloat(Qty)<>0 then + begin + FieldByName('Price').Value:=StrToFloat(Money)*1.00/StrToFloat(Qty); + end; + {if StrToFloat(FtyQty)<>0 then + begin + FieldByName('FtyPrice').Value:=StrToFloat(FtyMoney)*1.00/StrToFloat(FtyQty); + end;} + FieldByName('ChaEMoney').Value:=StrToFloat(Money)-StrToFloat(FtyMoney); + Post; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton4Click(Sender: TObject); +var + maxno:String; +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHID',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'XS','JYOrder_Main_MD_HZ',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡЭʧ!','ʾ',0); + Exit; + end; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set XSSNO='''+Trim(maxno)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('XSSNO').Value:=Trim(maxno); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDChkKKFL.ToolButton7Click(Sender: TObject); +var + fPrintFile:string; +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('XSSNO').AsString)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Э.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,B.MPRTKZ,B.MPRTCodeName '); + SQL.Add(',KHName=(select KHName from ZH_KH_Info where ZKID=A.FactoryNo)'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy AA where AA.ZdyName=A.TaiTou)'); + sql.Add(' from JYOrder_Main_MD_HZ A'); + sql.Add(' inner join JYOrder_Main B on A.ORDMainid=B.MainId'); + sql.Add(' where A.XSSNO='''+Trim(ClientDataSet1.fieldbyname('XSSNO').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Э.rmf'),'ʾ',0); + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm new file mode 100644 index 0000000..7fcc956 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm @@ -0,0 +1,1057 @@ +object frmMDList: TfrmMDList + Left = 39 + Top = 102 + Width = 1235 + Height = 572 + Caption = #30721#21333#26597#35810 + 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 = 1219 + 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_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 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 = 1219 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 42 + Height = 12 + Caption = #21697' '#21517 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label9: TLabel + Left = 536 + Top = 12 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object PSName: TComboBox + Tag = 2 + Left = 587 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 105 + Width = 1219 + Height = 428 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 428 + ClientRectRight = 1219 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column15 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column16: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column17: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #26080#21333#32433#32447#30721#21333 + ImageIndex = 2 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn27: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #26080#21333#22383#24067#30721#21333 + ImageIndex = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn41 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn42 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn31: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 521 + Top = 313 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 457 + Top = 305 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDList.pas b/坯布码单待检(PBMDDJ.dll)/U_MDList.pas new file mode 100644 index 0000000..c070b76 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDList.pas @@ -0,0 +1,444 @@ +unit U_MDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox; + +type + TfrmMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + ConName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label6: TLabel; + MDNO: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + PSName: TComboBox; + Label9: TLabel; + Label11: TLabel; + FactoryName: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn27: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + v3Column2: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + public + { Public declarations } + end; + +var + frmMDList: TfrmMDList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmMDList.FormDestroy(Sender: TObject); +begin + frmMDList:=nil; +end; + +procedure TfrmMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('CWTV1',Tv1,'뵥'); + WriteCxGrid('CWTV2',Tv2,'뵥'); + WriteCxGrid('CWTV3',Tv3,'뵥'); + WriteCxGrid('CWTV5',Tv5,'뵥'); + Close; +end; + +procedure TfrmMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if cxPageControl1.ActivePageIndex>1 then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + SQL.Add(' and CRFlag='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else if cxPageControl1.ActivePageIndex=1 then + TcxGridToExcel('ֿ뵥',cxGrid1) + else if cxPageControl1.ActivePageIndex=2 then + TcxGridToExcel('޵ɴ뵥',cxGrid2) + else if cxPageControl1.ActivePageIndex=5 then + TcxGridToExcel('޵뵥',cxGrid1); +end; + +procedure TfrmMDList.FormShow(Sender: TObject); +begin + READCxGrid('CWTV1',Tv1,'뵥'); + READCxGrid('CWTV2',Tv2,'뵥'); + READCxGrid('CWTV3',Tv3,'뵥'); + READCxGrid('CWTV5',Tv5,'뵥'); +end; + +procedure TfrmMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDList.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmMDList.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm new file mode 100644 index 0000000..f1f807f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm @@ -0,0 +1,1654 @@ +object frmMDManage: TfrmMDManage + Left = 27 + Top = 83 + Width = 1185 + Height = 627 + Caption = #30721#21333#31649#29702 + 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 = 1169 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #37325#26032#25351#23450 + ImageIndex = 134 + Visible = False + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1169 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#21378#32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 664 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 664 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColorHZ: TEdit + Tag = 2 + Left = 579 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object gangNo: TEdit + Tag = 2 + Left = 579 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object ConCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 715 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 715 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object CheckBox1: TCheckBox + Left = 831 + Top = 34 + Width = 97 + Height = 17 + Caption = #26080#21512#21516#30721#21333 + TabOrder = 10 + Visible = False + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 93 + Width = 664 + Height = 495 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 495 + ClientRectRight = 664 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 472 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Styles.Header = DataLink_DDMD.FontBlue + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 44 + end + object v3Column2: TcxGridDBColumn + Tag = 99 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 58 + end + object v3Column13: TcxGridDBColumn + Tag = 99 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'selfGangNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 71 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column20: TcxGridDBColumn + Caption = #24050#26680#26597 + DataBinding.FieldName = 'HCFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v3Column21: TcxGridDBColumn + Caption = #26680#26597#26102#38388 + DataBinding.FieldName = 'HCDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v3Column22: TcxGridDBColumn + Caption = #26680#26597#20154 + DataBinding.FieldName = 'HCPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 472 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 48 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v1Column8: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Options.Editing = False + Width = 59 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Options.Editing = False + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #24050#26680#26597 + DataBinding.FieldName = 'HCFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26680#26597#26102#38388 + DataBinding.FieldName = 'HCDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #26680#26597#20154 + DataBinding.FieldName = 'HCPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 664 + Top = 93 + Width = 505 + Height = 495 + Align = alRight + TabOrder = 3 + Visible = False + object Panel3: TPanel + Left = 0 + Top = 23 + Width = 501 + Height = 19 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 2 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid71: TcxGrid + Left = 0 + Top = 42 + Width = 501 + Height = 109 + Align = alTop + TabOrder = 1 + object Tv71: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource71 + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object V2XH: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 180 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv71 + end + end + object Panel7: TPanel + Left = 0 + Top = 151 + Width = 501 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid72: TcxGrid + Left = 0 + Top = 172 + Width = 501 + Height = 100 + Align = alClient + TabOrder = 3 + object Tv72: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource72 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + DataBinding.FieldName = 'WCL' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv72 + end + end + object Panel2: TPanel + Left = 0 + Top = 272 + Width = 501 + Height = 20 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid77: TcxGrid + Left = 0 + Top = 292 + Width = 501 + Height = 199 + Align = alBottom + TabOrder = 5 + object Tv77: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource77 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv77 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 501 + Height = 23 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label11: TLabel + Left = 176 + Top = 5 + 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 Button1: TButton + Left = 40 + Top = 2 + Width = 53 + Height = 18 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 102 + Top = 2 + Width = 53 + Height = 18 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Edit1: TEdit + Tag = 2 + Left = 218 + Top = 1 + Width = 209 + Height = 20 + TabOrder = 2 + OnChange = Edit1Change + end + end + object cxGrid6: TcxGrid + Left = 219 + Top = 20 + Width = 207 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 195 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 219 + Top = 247 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource71: TDataSource + DataSet = ClientDataSet71 + Left = 720 + Top = 184 + end + object ClientDataSet71: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 184 + end + object cxGridPopupMenu71: TcxGridPopupMenu + Grid = cxGrid71 + PopupMenus = <> + Left = 761 + Top = 185 + end + object DataSource72: TDataSource + DataSet = ClientDataSet72 + Left = 880 + Top = 304 + end + object ClientDataSet72: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 304 + end + object cxGridPopupMenu72: TcxGridPopupMenu + Grid = cxGrid72 + PopupMenus = <> + Left = 945 + Top = 305 + end + object DataSource77: TDataSource + DataSet = ClientDataSet77 + Left = 872 + Top = 440 + end + object ClientDataSet77: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 440 + end + object cxGridPopupMenu77: TcxGridPopupMenu + Grid = cxGrid77 + PopupMenus = <> + Left = 961 + Top = 441 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 144 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 1048 + Top = 144 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas b/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas new file mode 100644 index 0000000..2a248c2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas @@ -0,0 +1,1549 @@ +unit U_MDManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxButtonEdit; + +type + TfrmMDManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + ConName: TEdit; + PRTColorHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + gangNo: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + ConCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v3Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid71: TcxGrid; + Tv71: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + V2XH: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel7: TPanel; + Label23: TLabel; + cxGrid72: TcxGrid; + Tv72: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid77: TcxGrid; + Tv77: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel4: TPanel; + Button1: TButton; + Button2: TButton; + DataSource71: TDataSource; + ClientDataSet71: TClientDataSet; + cxGridPopupMenu71: TcxGridPopupMenu; + DataSource72: TDataSource; + ClientDataSet72: TClientDataSet; + cxGridPopupMenu72: TcxGridPopupMenu; + DataSource77: TDataSource; + ClientDataSet77: TClientDataSet; + cxGridPopupMenu77: TcxGridPopupMenu; + Label11: TLabel; + Edit1: TEdit; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + v77Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton2: TToolButton; + v3Column15: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + ClientDataSet8: TClientDataSet; + v1Column13: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + ADOTemp: TADOQuery; + v3Column19: TcxGridDBColumn; + CheckBox1: TCheckBox; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + canshu1,canshu2,FMainId,FOrderNo:string; + procedure UPMDWCdata(FQtyUnit,FPFID:String); + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMDManage: TfrmMDManage; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDManage.FormDestroy(Sender: TObject); +begin + frmMDManage:=nil; +end; + +procedure TfrmMDManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDManage.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥',Tv1,'뵥'); + Close; +end; + +procedure TfrmMDManage.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManage.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDManage.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + + end; + +end; + +procedure TfrmMDManage.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDManage.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmMDManage.FormShow(Sender: TObject); +begin + READCxGrid('뵥',Tv3,'뵥'); + READCxGrid('ڲֿ뵥',Tv1,'뵥'); +end; + +procedure TfrmMDManage.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + if cxPageControl1.ActivePageIndex=0 then + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',99) + else + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet3,'JYOrder_Main_MD',99); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet3.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet3.fieldbyname('QtyUnit').Value; + Post; + end; + + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select Sum(PS) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select Sum(Qty) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select Sum(DiaoYongCKPS) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select Sum(DiaoYongCKQty) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString))=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Exit; + end; } + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)) then + begin + + end else + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end;} + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDManage.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + if Application.MessageBox('ڵ,ȷҪ¼뵥','ʾ',32+4)<>IDYES then + begin + Result:=False; + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Result:=True; +end; +function TfrmMDManage.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMDManage.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + ' where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManage.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManage.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=true do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(CKQty,0) from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('CKQty').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('еݲɾ!','ʾ',0); + Exit; + end; + end ; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + end; + ClientDataSet3.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDManage.Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManage.Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDManage.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + 'where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManage.Tv1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv1Column2.Properties as TcxComboBoxProperties).Items.Objects[(Tv1Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManage.ToolButton3Click(Sender: TObject); +begin + ScrollBox1.Visible:=True; + ScrollBox1.Refresh; + + +end; + +procedure TfrmMDManage.Button2Click(Sender: TObject); +begin + ScrollBox1.Visible:=False; +end; + +procedure TfrmMDManage.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet71.fieldbyname('PSID').AsString); + with ClientDataSet71 do + begin + while ClientDataSet71.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet71.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet71.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet72); + SInitCDSData20(ADOQuery1,ClientDataSet72); + if Mvalue=True then + begin + ClientDataSet71.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet71.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); +end; + +procedure TfrmMDManage.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet72.fieldbyname('PFID').AsString); + with ClientDataSet72 do + begin + while ClientDataSet72.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet72.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet72.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end; +end; + +procedure TfrmMDManage.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet77.fieldbyname('SubID').AsString); + with ClientDataSet77 do + begin + while ClientDataSet77.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet77.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; +end; + +procedure TfrmMDManage.Button1Click(Sender: TObject); +var + FQtyUnit,FPFID:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet71.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet72.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if ClientDataSet77.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet71.Locate('SSel',True,[]); + ClientDataSet72.Locate('SSel',True,[]); + ClientDataSet77.Locate('SSel',True,[]); + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=True do + begin + FQtyUnit:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FPFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + {if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ⲻָ!','',0); + Exit; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate JYOrder_Main_MD Set Editer='''+Trim(DName)+''',EditTime=getdate(),'); + sql.Add(' ORDMainId='''+Trim(ClientDataSet72.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ORDSubId='''+Trim(ClientDataSet72.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,PSId='''+Trim(ClientDataSet72.fieldbyname('PSId').AsString)+''''); + sql.Add(' ,PFId='''+Trim(ClientDataSet72.fieldbyname('PFId').AsString)+''''); + sql.Add(' ,ConMainId='''+Trim(ClientDataSet77.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ConSubId='''+Trim(ClientDataSet77.fieldbyname('SubId').AsString)+''''); + SQL.Add(' ,PSName='''+Trim(ClientDataSet71.fieldbyname('PSName').AsString)+''''); + SQL.Add(' ,FactoryNo='''+Trim(ClientDataSet77.fieldbyname('FactoryNo').AsString)+''''); + SQL.Add(' ,FactoryName='''+Trim(ClientDataSet77.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + UPMDWCdata(FQtyUnit,FPFID); + UPMDWCdata(FQtyUnit,Trim(ClientDataSet72.fieldbyname('PFId').AsString)); + if cxPageControl1.ActivePageIndex=0 then + UpdateTJCKQty(FPFID); + Edit; + FieldByName('SSel').Value:=false; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmMDManage.UPMDWCdata(FQtyUnit,FPFID:String); +begin + if Trim(FQtyUnit)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID),0)'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end; +end; + +procedure TfrmMDManage.Edit1Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit1.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMDManage.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + Edit1.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + //sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(Edit1.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Edit1.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet72); + SInitCDSData20(ADOQueryTemp,ClientDataSet72); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit1.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet71); + SInitCDSData20(ADOQueryTemp,ClientDataSet71); +end; + +procedure TfrmMDManage.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDManage.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManage.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('Ѻ˲鲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManage.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('Ѻ˲鲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm new file mode 100644 index 0000000..ff8a279 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm @@ -0,0 +1,1660 @@ +object frmMDManageChk: TfrmMDManageChk + Left = 62 + Top = 44 + Width = 1185 + Height = 627 + Caption = #25968#25454#20973#35777#26680#26597 + 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 = 1169 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26680#26597#36890#36807 + ImageIndex = 22 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26680#26597#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object ToolButton4: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #37325#26032#25351#23450 + ImageIndex = 134 + Visible = False + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 513 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1169 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#21378#32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 664 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 664 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColorHZ: TEdit + Tag = 2 + Left = 579 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object gangNo: TEdit + Tag = 2 + Left = 579 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object ConCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 715 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 715 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 120 + Width = 664 + Height = 468 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 468 + ClientRectRight = 664 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 445 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column2: TcxGridDBColumn + Tag = 99 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object v3Column13: TcxGridDBColumn + Tag = 99 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'selfGangNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 70 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 445 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 48 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v1Column8: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 664 + Top = 120 + Width = 505 + Height = 468 + Align = alRight + TabOrder = 3 + Visible = False + object Panel3: TPanel + Left = 0 + Top = 23 + Width = 501 + Height = 19 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 2 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid71: TcxGrid + Left = 0 + Top = 42 + Width = 501 + Height = 109 + Align = alTop + TabOrder = 1 + object Tv71: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource71 + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object V2XH: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 180 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv71 + end + end + object Panel7: TPanel + Left = 0 + Top = 151 + Width = 501 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid72: TcxGrid + Left = 0 + Top = 172 + Width = 501 + Height = 73 + Align = alClient + TabOrder = 3 + object Tv72: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource72 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + DataBinding.FieldName = 'WCL' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv72 + end + end + object Panel2: TPanel + Left = 0 + Top = 245 + Width = 501 + Height = 20 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid77: TcxGrid + Left = 0 + Top = 265 + Width = 501 + Height = 199 + Align = alBottom + TabOrder = 5 + object Tv77: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource77 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv77 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 501 + Height = 23 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label11: TLabel + Left = 176 + Top = 5 + 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 Button1: TButton + Left = 40 + Top = 2 + Width = 53 + Height = 18 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 102 + Top = 2 + Width = 53 + Height = 18 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Edit1: TEdit + Tag = 2 + Left = 218 + Top = 1 + Width = 209 + Height = 20 + TabOrder = 2 + OnChange = Edit1Change + end + end + object cxGrid6: TcxGrid + Left = 219 + Top = 20 + Width = 207 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 195 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 94 + Width = 1169 + Height = 26 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 26 + ClientRectRight = 1169 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 219 + Top = 247 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource71: TDataSource + DataSet = ClientDataSet71 + Left = 720 + Top = 184 + end + object ClientDataSet71: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 184 + end + object cxGridPopupMenu71: TcxGridPopupMenu + Grid = cxGrid71 + PopupMenus = <> + Left = 761 + Top = 185 + end + object DataSource72: TDataSource + DataSet = ClientDataSet72 + Left = 880 + Top = 304 + end + object ClientDataSet72: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 304 + end + object cxGridPopupMenu72: TcxGridPopupMenu + Grid = cxGrid72 + PopupMenus = <> + Left = 945 + Top = 305 + end + object DataSource77: TDataSource + DataSet = ClientDataSet77 + Left = 872 + Top = 440 + end + object ClientDataSet77: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 440 + end + object cxGridPopupMenu77: TcxGridPopupMenu + Grid = cxGrid77 + PopupMenus = <> + Left = 961 + Top = 441 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 144 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 1048 + Top = 144 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas new file mode 100644 index 0000000..97973d8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas @@ -0,0 +1,1572 @@ +unit U_MDManageChk; //29 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxButtonEdit; + +type + TfrmMDManageChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + ConName: TEdit; + PRTColorHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + gangNo: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + ConCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v3Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid71: TcxGrid; + Tv71: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + V2XH: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel7: TPanel; + Label23: TLabel; + cxGrid72: TcxGrid; + Tv72: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid77: TcxGrid; + Tv77: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel4: TPanel; + Button1: TButton; + Button2: TButton; + DataSource71: TDataSource; + ClientDataSet71: TClientDataSet; + cxGridPopupMenu71: TcxGridPopupMenu; + DataSource72: TDataSource; + ClientDataSet72: TClientDataSet; + cxGridPopupMenu72: TcxGridPopupMenu; + DataSource77: TDataSource; + ClientDataSet77: TClientDataSet; + cxGridPopupMenu77: TcxGridPopupMenu; + Label11: TLabel; + Edit1: TEdit; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + v77Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton2: TToolButton; + v3Column15: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + ClientDataSet8: TClientDataSet; + v1Column13: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + ADOTemp: TADOQuery; + v3Column19: TcxGridDBColumn; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + cxTabControl1: TcxTabControl; + v3Column20: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2,FMainId,FOrderNo:string; + procedure UPMDWCdata(FQtyUnit,FPFID:String); + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMDManageChk: TfrmMDManageChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDManageChk.FormDestroy(Sender: TObject); +begin + frmMDManageChk:=nil; +end; + +procedure TfrmMDManageChk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDManageChk.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' + +' and JMM.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1))+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFlag=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDManageChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDManageChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥',Tv1,'뵥'); + Close; +end; + +procedure TfrmMDManageChk.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManageChk.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDManageChk.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFlag=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + + end; + +end; + +procedure TfrmMDManageChk.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFalg=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFalg=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDManageChk.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmMDManageChk.FormShow(Sender: TObject); +begin + READCxGrid('뵥',Tv3,'뵥'); + READCxGrid('ڲֿ뵥',Tv1,'뵥'); +end; + +procedure TfrmMDManageChk.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + if cxPageControl1.ActivePageIndex=0 then + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',99) + else + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet3,'JYOrder_Main_MD',99); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet3.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet3.fieldbyname('QtyUnit').Value; + Post; + end; + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)) then + begin + + end else + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end;} + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDManageChk.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +function TfrmMDManageChk.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMDManageChk.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + ' where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManageChk.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManageChk.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=true do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ⲻɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + ClientDataSet3.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDManageChk.Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManageChk.Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDManageChk.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + 'where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManageChk.Tv1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv1Column2.Properties as TcxComboBoxProperties).Items.Objects[(Tv1Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManageChk.ToolButton3Click(Sender: TObject); +begin + ScrollBox1.Visible:=True; + ScrollBox1.Refresh; + + +end; + +procedure TfrmMDManageChk.Button2Click(Sender: TObject); +begin + ScrollBox1.Visible:=False; +end; + +procedure TfrmMDManageChk.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet71.fieldbyname('PSID').AsString); + with ClientDataSet71 do + begin + while ClientDataSet71.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet71.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet71.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet72); + SInitCDSData20(ADOQuery1,ClientDataSet72); + if Mvalue=True then + begin + ClientDataSet71.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet71.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); +end; + +procedure TfrmMDManageChk.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet72.fieldbyname('PFID').AsString); + with ClientDataSet72 do + begin + while ClientDataSet72.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet72.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet72.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end; +end; + +procedure TfrmMDManageChk.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet77.fieldbyname('SubID').AsString); + with ClientDataSet77 do + begin + while ClientDataSet77.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet77.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; +end; + +procedure TfrmMDManageChk.Button1Click(Sender: TObject); +var + FQtyUnit,FPFID:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet71.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet72.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if ClientDataSet77.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet71.Locate('SSel',True,[]); + ClientDataSet72.Locate('SSel',True,[]); + ClientDataSet77.Locate('SSel',True,[]); + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=True do + begin + FQtyUnit:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FPFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + {if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ⲻָ!','',0); + Exit; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate JYOrder_Main_MD Set Editer='''+Trim(DName)+''',EditTime=getdate(),'); + sql.Add(' ORDMainId='''+Trim(ClientDataSet72.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ORDSubId='''+Trim(ClientDataSet72.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,PSId='''+Trim(ClientDataSet72.fieldbyname('PSId').AsString)+''''); + sql.Add(' ,PFId='''+Trim(ClientDataSet72.fieldbyname('PFId').AsString)+''''); + sql.Add(' ,ConMainId='''+Trim(ClientDataSet77.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ConSubId='''+Trim(ClientDataSet77.fieldbyname('SubId').AsString)+''''); + SQL.Add(' ,PSName='''+Trim(ClientDataSet71.fieldbyname('PSName').AsString)+''''); + SQL.Add(' ,FactoryNo='''+Trim(ClientDataSet77.fieldbyname('FactoryNo').AsString)+''''); + SQL.Add(' ,FactoryName='''+Trim(ClientDataSet77.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + UPMDWCdata(FQtyUnit,FPFID); + UPMDWCdata(FQtyUnit,Trim(ClientDataSet72.fieldbyname('PFId').AsString)); + if cxPageControl1.ActivePageIndex=0 then + UpdateTJCKQty(FPFID); + Edit; + FieldByName('SSel').Value:=false; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmMDManageChk.UPMDWCdata(FQtyUnit,FPFID:String); +begin + if Trim(FQtyUnit)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID),0)'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end; +end; + +procedure TfrmMDManageChk.Edit1Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit1.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMDManageChk.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + Edit1.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + //sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(Edit1.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Edit1.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet72); + SInitCDSData20(ADOQueryTemp,ClientDataSet72); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit1.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet71); + SInitCDSData20(ADOQueryTemp,ClientDataSet71); +end; + +procedure TfrmMDManageChk.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDManageChk.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManageChk.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManageChk.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManageChk.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManageChk.ToolButton5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ClientDataSet3 do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; +end; + +procedure TfrmMDManageChk.ToolButton6Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ClientDataSet3 do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set HCFlag=0,HCDate=Null,HCPerson=Null '); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm new file mode 100644 index 0000000..ca8244d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm @@ -0,0 +1,418 @@ +object frmMJEdit: TfrmMJEdit + Left = 204 + Top = 180 + Width = 870 + Height = 500 + Caption = #24067#21305#31649#29702 + 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 = 854 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20316#24223 + ImageIndex = 3 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 854 + Height = 83 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 25 + Top = 16 + Width = 52 + Height = 12 + Caption = #24067#21305#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 33 + Top = 48 + 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 Label4: TLabel + Left = 443 + Top = 48 + Width = 24 + Height = 12 + Caption = #27611#37325 + end + object M: TLabel + Left = 413 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label6: TLabel + Left = 332 + Top = 16 + Width = 24 + Height = 12 + Caption = #38271#24230 + end + object Ma: TLabel + Left = 524 + Top = 16 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label7: TLabel + Left = 443 + Top = 16 + Width = 24 + Height = 12 + Caption = #30382#37325 + end + object Label5: TLabel + Left = 292 + Top = 48 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label8: TLabel + Left = 219 + Top = 48 + Width = 24 + Height = 12 + Caption = #24133#23485 + end + object Label9: TLabel + Left = 300 + Top = 48 + Width = 12 + Height = 12 + Caption = 'cm' + end + object Label10: TLabel + Left = 524 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label3: TLabel + Left = 331 + Top = 48 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 412 + Top = 48 + Width = 24 + Height = 12 + Caption = 'g/'#13217 + end + object Label13: TLabel + Left = 220 + Top = 16 + Width = 24 + Height = 12 + Caption = #36192#36865 + end + object Label12: TLabel + Left = 547 + Top = 48 + Width = 24 + Height = 12 + Caption = #20928#37325 + end + object Label14: TLabel + Left = 628 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object MJID: TEdit + Left = 80 + Top = 10 + Width = 110 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object MJMaoZ: TEdit + Left = 468 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 1 + OnChange = MJMaoZChange + OnExit = MJMaoZExit + end + object MJLen: TEdit + Left = 357 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 2 + end + object RadioGroup1: TRadioGroup + Left = 664 + Top = -5 + Width = 153 + Height = 88 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340) + TabOrder = 3 + end + object MJQty3: TEdit + Left = 468 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 4 + end + object MJFK: TEdit + Left = 244 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 5 + end + object MJSJKZ: TEdit + Left = 356 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 6 + end + object MJQty2: TEdit + Left = 245 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 7 + end + object MJQty4: TEdit + Left = 572 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 8 + OnChange = MJQty4Change + OnExit = MJQty4Exit + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 854 + Height = 348 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.TextSHuangSe + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = tv2CDTypePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 144 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = tv2CDWZPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 96 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.Default + Width = 93 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 93 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 832 + Top = 72 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 200 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 832 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 528 + Top = 200 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 200 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas new file mode 100644 index 0000000..1432394 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas @@ -0,0 +1,686 @@ +unit U_MJEdit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, + ComCtrls, ToolWin, cxButtonEdit; + +type + TfrmMJEdit = class(TForm) + ToolBar1: TToolBar; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + MJID: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOTmp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Label2: TLabel; + MJMaoZ: TEdit; + Label4: TLabel; + M: TLabel; + Label6: TLabel; + MJLen: TEdit; + RadioGroup1: TRadioGroup; + Ma: TLabel; + Label7: TLabel; + MJQty3: TEdit; + Label5: TLabel; + Label8: TLabel; + MJFK: TEdit; + Label9: TLabel; + Label10: TLabel; + Label3: TLabel; + Label11: TLabel; + MJSJKZ: TEdit; + ToolButton4: TToolButton; + Label13: TLabel; + MJQty2: TEdit; + Label12: TLabel; + Label14: TLabel; + MJQty4: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + private + { Private declarations } + + function SaveData():Boolean; + public + KgZMiXS:String; + { Public declarations } + end; + +var + frmMJEdit: TfrmMJEdit; + +implementation +uses + U_RTFun,U_ZDYHelp,U_DataLink; + +{$R *.dfm} + +procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMJEdit.FormDestroy(Sender: TObject); +begin + frmMJEdit:=nil; +end; + +procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); + sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + if Trim(m.Caption)='' then + begin + m.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + end; + if Trim(Ma.Caption)='' then + begin + Ma.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + end; + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + + end; +end; + +procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + if ShowModal=1 then + begin + Self.Order_MJ.Edit; + Self.Order_MJ.FieldByName('CDName').value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject); +var + mvalue,CDBeg,CDEnd:string; + FFReal:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_MJ do + begin + Edit; + FieldByName('CDBeg').Value:=mvalue; + Post; + end; + CDBeg:=Trim(Order_MJ.fieldbyname('CDBeg').AsString); + CDEnd:=Trim(Order_MJ.fieldbyname('CDEnd').AsString); + if (Trim(CDBeg)<>'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY_CD where MCID='''+Trim(Order_MJ.fieldbyname('MCID').AsString)+''''); + ExecSQL; + end; + end; + Order_MJ.Delete; +end; +function TfrmMJEdit.SaveData():Boolean; +var + maxno,KgZMiXs,KgZMaXs:String; + FFreal:Double; +begin + try + ADOCmd.Connection.BeginTrans; + ///õ + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_MJ.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(Label2.Caption); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,Order_MJ,'WFB_MJJY_CD',0); + Post; + end; + + Order_MJ.Edit; + Order_MJ.FieldByName('MCID').Value:=Trim(maxno); + Order_MJ.FieldByName('MJID').Value:=Trim(Label2.Caption); + Next; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if TryStrToFloat(MJLen.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty4.Text)<>'' then + begin + if TryStrToFloat(MJQty4.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set MJTypeOther='''+Trim(M.Caption)+''''); + sql.Add(',MJStr1='''+Trim(Ma.Caption)+''''); + if Trim(MJLen.Text)<>'' then + begin + sql.Add(',MJLen='+Trim(MJLen.Text)); + end else + begin + sql.Add(',MJLen=0'); + end; + if Trim(MJQty3.Text)<>'' then + begin + sql.Add(',MJQty3='+Trim(MJQty3.Text)); + end else + begin + sql.Add(',MJQty3=0'); + end; + if Trim(MJQty2.Text)<>'' then + begin + sql.Add(',MJQty2='+Trim(MJQty2.Text)); + end else + begin + sql.Add(',MJQty2=0'); + end; + if Trim(MJFK.Text)<>'' then + begin + sql.Add(',MJFK='+Trim(MJFK.Text)); + end else + begin + sql.Add(',MJFK=0'); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + sql.Add(',MJMaoZ='+Trim(MJMaoZ.Text)); + end else + begin + sql.Add(',MJMaoZ=0'); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + sql.Add(',MJSJKZ='+Trim(MJSJKZ.Text)); + end else + begin + sql.Add(',MJSJKZ=0'); + end; + if Trim(MJQty4.Text)<>'' then + begin + sql.Add(',MJQty4='+Trim(MJQty4.Text)); + end else + begin + sql.Add(',MJQty4=0'); + end; + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=2 then + begin + sql.Add(',MJType=''ƴ'' '); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLenMa=MJLen*1.0936'); + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_main where Mainid=('); + sql.Add('select Mainid from WFB_MJJY where MJID='''+Trim(Label2.Caption)+''')'); + Open; + end; + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + if Trim(KgZMiXs)='' then + begin + KgZMiXs:='0'; + end; + if Trim(KgZMaXs)='' then + begin + KgZMaXs:='0'; + end; + with ADOCmd do + begin + if Trim(KgZMiXs)<>'0' then + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLen=MJQty4*'+KgZMiXs); + if Trim(KgZMaXs)='0' then + begin + SQL.Add(' ,MJLenMa=MJQty4*1.0936*'+KgZMiXs); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + end; + with ADOCmd do + begin + if Trim(KgZMaXs)<>'0' then + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLenMa=MJQty4*'+KgZMaXs); + if Trim(KgZMiXs)='0' then + begin + SQL.Add(',MJLen=MJQty4*0.9144*'+KgZMaXs); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJEdit.ToolButton2Click(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmMJEdit.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.ToolButton4Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end else + begin + if Application.MessageBox('ȷҪϺݲָܻ','ʾ',32+4)=IDYES then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(Label2.Caption)+''''); + sql.Add('delete WFB_MJJY_CD where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + Label2.Caption:=''; + end; + end; +end; + +procedure TfrmMJEdit.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + { if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); } + if Trim(KgZMiXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else begin + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + end; +end; + +procedure TfrmMJEdit.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(KgZMiXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else begin + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + end; +end; + +procedure TfrmMJEdit.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJEdit.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm new file mode 100644 index 0000000..1b564e8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm @@ -0,0 +1,2670 @@ +object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF + Left = 36 + Top = 28 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 609 + Top = 81 + Width = 360 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 92 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 405 + Height = 580 + Align = alLeft + TabOrder = 1 + Visible = False + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 287 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 343 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 7 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 63 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 119 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 175 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 231 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 287 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 343 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 7 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 63 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 119 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 175 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 287 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 343 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 7 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 63 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 119 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 175 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 231 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 287 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 343 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 7 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 63 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 119 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 175 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 231 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 287 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 343 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 63 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 119 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 175 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 231 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 287 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton67: TSpeedButton + Left = 343 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 7 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 63 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 119 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 175 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 231 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 287 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 343 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 7 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 63 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 119 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 175 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 231 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 287 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 343 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 7 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 63 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 119 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 175 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton68: TSpeedButton + Left = 231 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton69: TSpeedButton + Left = 287 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton76: TSpeedButton + Left = 343 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton77: TSpeedButton + Left = 7 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton78: TSpeedButton + Left = 63 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton79: TSpeedButton + Left = 119 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton80: TSpeedButton + Left = 175 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton81: TSpeedButton + Left = 231 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton82: TSpeedButton + Left = 287 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton83: TSpeedButton + Left = 343 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 405 + Top = 81 + Width = 204 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 160 + Top = 159 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 246 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 155 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 339 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 339 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 282 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 289 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 288 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 201 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 390 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 390 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 438 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 237 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 146 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 492 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 492 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 329 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 329 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 279 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 192 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 380 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 380 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 430 + Width = 122 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel3: TPanel + Left = 6 + Top = 426 + Width = 383 + Height = 231 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 78 + Top = 3 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 152 + Top = 3 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 226 + Top = 3 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 75 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 78 + Top = 75 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 152 + Top = 75 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 226 + Top = 75 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 4 + Top = 150 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 78 + Top = 150 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 152 + Top = 150 + Width = 70 + Height = 70 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 226 + Top = 150 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 303 + Top = 81 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1270 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1266 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1264 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 653 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 509 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 997 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 805 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 968 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + Visible = False + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 776 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1264 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + Visible = False + OnClick = TBCDClick + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + Caption = #25351#31034#21333#20449#24687 + ImageIndex = 25 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 7 + Top = 88 + Width = 391 + Height = 337 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 178 + Top = 27 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 0 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 272 + Top = 25 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 293 + Top = 25 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 61 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 61 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 14 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 172 + Top = 277 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 278 + Top = 277 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 196 + Top = 15 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 51 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object RadioGroup1: TRadioGroup + Left = 0 + Top = 83 + Width = 389 + Height = 185 + Columns = 2 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + Items.Strings = ( + '0-9CM' + '9CM-18CM' + '18CM-27CM' + #8805'28CM' + #30772#27934 + '1'#31859#20869#36830#32493#20986#29616#29781#30133) + ParentFont = False + TabOrder = 5 + end + object Button2: TButton + Left = 14 + Top = 277 + Width = 75 + Height = 42 + Caption = #21462#28040#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button2Click + end + end + object Panel7: TPanel + Left = 969 + Top = 81 + Width = 301 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 297 + Height = 251 + Align = alTop + TabOrder = 0 + Visible = False + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 75 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 52 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 51 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 55 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel8: TPanel + Left = 2 + Top = 253 + Width = 297 + Height = 41 + Align = alTop + Caption = 'A<=25 2533' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object BZNote: TRichEdit + Left = 2 + Top = 294 + Width = 297 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 2 + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas new file mode 100644 index 0000000..6210867 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas @@ -0,0 +1,2210 @@ +unit U_MJManageNewFDNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmMJManageNewFDNewSF = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + RadioGroup1: TRadioGroup; + Button2: TButton; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel8: TPanel; + Button3: TButton; + BZNote: TRichEdit; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton68: TSpeedButton; + SpeedButton69: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton77: TSpeedButton; + SpeedButton78: TSpeedButton; + SpeedButton79: TSpeedButton; + SpeedButton80: TSpeedButton; + SpeedButton81: TSpeedButton; + SpeedButton82: TSpeedButton; + SpeedButton83: TSpeedButton; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewSF:=nil; +end; +procedure TfrmMJManageNewFDNewSF.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); +end; + +procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + {if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; } + +end; +procedure TfrmMJManageNewFDNewSF.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewSF.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + {if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; } +end; +procedure TfrmMJManageNewFDNewSF.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>69 then + begin + i:=69; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewSF.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewSF.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + {strsql:=' UPdate WFB_MJJY Set MJXH=(select isnull(max(X1.MJXH),0)+1 '+ + ' from WFB_MJJY X1,JYorder_sub X2 '+ + ' where X1.mainID=X2.mainID and X1.subID=X2.SubID '+ + ' and X1.MainID=A.MainID and X2.PrTColor=B.PrTColor '+ + ' and isnull(X1.MJstr3,'''')='+quotedstr(trim(MJstr3.Text)); + if Trim(Edit3.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit4.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit5.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + strsql:=strsql+' )FROM WFB_MJJY A '+ + ' inner join JYorder_sub B on B.MainID=A.MainID and B.subID=A.subID '+ + ' where MJID ='+quotedstr(trim(maxno)); } + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewSF.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewSF.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + // InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject); +var + i:Integer; +begin + {Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); +begin + RadioGroup1.ItemIndex:=-1; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; +end; + +procedure TfrmMJManageNewFDNewSF.APIDClick(Sender: TObject); +var + i:Integer; +begin + { Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + + +procedure TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; +end; + +procedure TfrmMJManageNewFDNewSF.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); +begin + {if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)) + else begin + Exit; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject); +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + frmOrderInPut.FMainId:=Trim(Self.FMainId); + frmOrderInPut.PState:=1; + frmOrderInPut.cxPageControl1.Pages[2].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[3].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[4].TabVisible:=False; + frmOrderInPut.ToolBar2.Visible:=False; + frmOrderInPut.ToolButton18.Visible:=False; + frmOrderInPut.ToolButton13.Visible:=False; + frmOrderInPut.TBSave.Visible:=False; + frmOrderInPut.ToolBar7.Visible:=False; + frmOrderInPut.JYInt:=99; + frmOrderInPut.Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm new file mode 100644 index 0000000..a7edf3d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm @@ -0,0 +1,2404 @@ +object frmMJManageNewFDNewCD: TfrmMJManageNewFDNewCD + Left = 87 + Top = 27 + Width = 1026 + Height = 700 + Caption = #25104#21697#26816#39564'('#30133#28857')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 493 + Top = 81 + Width = 260 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 76 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 43 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 39 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 40 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 289 + Height = 580 + Align = alLeft + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 7 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 63 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 119 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 175 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 231 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 7 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 63 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 119 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 175 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 231 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 7 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 63 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 119 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 175 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 231 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 7 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 63 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 119 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 175 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 7 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 63 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 119 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 175 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 231 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 7 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 63 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 119 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 175 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 231 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 7 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 63 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 119 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 175 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 231 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 7 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 63 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 119 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 175 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 231 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 63 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 119 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 175 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 231 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 289 + Top = 81 + Width = 204 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 160 + Top = 152 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 287 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 197 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 283 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 380 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 380 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 323 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 330 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 329 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 431 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 431 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 479 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 19 + Top = 153 + Width = 40 + Height = 23 + Caption = #30721#34920 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 278 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 189 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 513 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 513 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 370 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 370 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 320 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 233 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 421 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 421 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 471 + Width = 122 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object Edit9: TEdit + Left = 63 + Top = 143 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object Button2: TButton + Left = 152 + Top = 190 + Width = 49 + Height = 37 + Caption = #32467#26463 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = Button2Click + end + end + object Panel3: TPanel + Left = -2 + Top = 330 + Width = 291 + Height = 259 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 11 + Top = 3 + Width = 60 + Height = 60 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 76 + Top = 3 + Width = 60 + Height = 60 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 141 + Top = 3 + Width = 60 + Height = 60 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 11 + Top = 67 + Width = 60 + Height = 60 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 76 + Top = 67 + Width = 60 + Height = 60 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 141 + Top = 67 + Width = 60 + Height = 60 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 11 + Top = 130 + Width = 60 + Height = 60 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 76 + Top = 130 + Width = 60 + Height = 60 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 141 + Top = 130 + Width = 60 + Height = 60 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 11 + Top = 194 + Width = 60 + Height = 60 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 76 + Top = 194 + Width = 60 + Height = 60 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 141 + Top = 194 + Width = 60 + Height = 60 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 216 + Top = 97 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1010 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1006 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1004 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 588 + Top = 15 + Width = 40 + Height = 19 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 60 + Height = 19 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 482 + Top = 15 + Width = 40 + Height = 19 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 825 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 695 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 775 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 651 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1004 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 3 + Top = 88 + Width = 290 + Height = 241 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 158 + Top = 24 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 0 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 238 + Top = 22 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 208 + Top = 102 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 101 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 102 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 60 + Top = 149 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 142 + Top = 149 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 177 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 94 + Width = 77 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = CDQtyChange + OnClick = Edit1Click + end + object BitBtn1: TBitBtn + Left = 176 + Top = 56 + Width = 57 + Height = 33 + Caption = #32456#27490 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = BitBtn1Click + end + end + object Panel7: TPanel + Left = 753 + Top = 81 + Width = 257 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 253 + Height = 251 + Align = alTop + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 72 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 48 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 48 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel8: TPanel + Left = 2 + Top = 253 + Width = 253 + Height = 41 + Align = alTop + Caption = 'A<=25 2533' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object BZNote: TRichEdit + Left = 2 + Top = 294 + Width = 253 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 2 + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas new file mode 100644 index 0000000..aad1c12 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas @@ -0,0 +1,2347 @@ +unit U_MJManageNewFDNewCD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; + + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + //function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; + + +type + TfrmMJManageNewFDNewCD = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel8: TPanel; + Button3: TButton; + BZNote: TRichEdit; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + Edit9: TEdit; + Button2: TButton; + Label37: TLabel; + BitBtn1: TBitBtn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure BitBtn1Click(Sender: TObject); + procedure CDQtyChange(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK,FCKCheng:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,NewFlag:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + procedure On1301(Var Message:Tmessage);Message 1301; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewCD: TfrmMJManageNewFDNewCD; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewCD.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewCD:=nil; +end; +procedure TfrmMJManageNewFDNewCD.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + edit9.Text:= floattostr(i1/100000 ); +end; +procedure TfrmMJManageNewFDNewCD.On1301(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + MJMaoZ.Text:= floattostr(i1/100000 ); +end; + +procedure TfrmMJManageNewFDNewCD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; + if FCKCheng=9 then + begin + CommClose1301(pchar(PortNoStr)); + end; + +end; +procedure TfrmMJManageNewFDNewCD.InitCDGrid(); +begin + if PState=1 then + begin + if CDS_MJCD.IsEmpty=False then Exit; + end; + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + begin + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + end + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewCD.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewCD.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewCD.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewCD.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewCD.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + //{if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; + if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + end else + begin + FCKCheng:=9; + end; + NewFlag:=''; +end; +procedure TfrmMJManageNewFDNewCD.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CD where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + end; + + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>49 then + begin + i:=49; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewCD.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewCD.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewCD.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewCD.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + {strsql:=' UPdate WFB_MJJY Set MJXH=(select isnull(max(X1.MJXH),0)+1 '+ + ' from WFB_MJJY X1,JYorder_sub X2 '+ + ' where X1.mainID=X2.mainID and X1.subID=X2.SubID '+ + ' and X1.MainID=A.MainID and X2.PrTColor=B.PrTColor '+ + ' and isnull(X1.MJstr3,'''')='+quotedstr(trim(MJstr3.Text)); + if Trim(Edit3.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit4.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit5.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + strsql:=strsql+' )FROM WFB_MJJY A '+ + ' inner join JYorder_sub B on B.MainID=A.MainID and B.subID=A.subID '+ + ' where MJID ='+quotedstr(trim(maxno)); } + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('SFlag').AsString)='' then + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + // FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Delete; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('SFlag').Value:=''; + Next; + end; + + //CDS_MJCD.Edit; + //CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + //Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + NewFlag:=''; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCD.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewCD.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewCD.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewCD.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewCD.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewCD.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + if Trim(Edit7.Text)<>'' then + Edit1.Text:=Trim(Edit9.Text); + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewCD.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + {if Trim(Edit7.Text)<>'' then + Edit2.Text:=Trim(Edit9.Text); } + + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + FieldByName('SFlag').Value:=NewFlag; + {if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; } + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.ToolButton1Click(Sender: TObject); +begin + + InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + InitCDGridID(); + InitCDGrid(); + if Trim(FAPID)<>'' then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + FInt:=11; + end; + end; + + //BTAdd.Click; + + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewCD.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + InitJP(); + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewCD.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewCD.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.APIDClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +procedure TfrmMJManageNewFDNewCD.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); +end; + +procedure TfrmMJManageNewFDNewCD.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + {if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + if FCKCheng=9 then + begin + if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + Exit; + end + else + begin + FCKCheng:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)); + if FCKCheng=9 then + CommClose1301(pchar(PortNoStr)); + end; +end; + +procedure TfrmMJManageNewFDNewCD.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Button2Click(Sender: TObject); +begin + MJLen.Text:=Trim(Edit9.Text); + NewFlag:='1'; +end; + +procedure TfrmMJManageNewFDNewCD.BitBtn1Click(Sender: TObject); +var + mvalue:Double; +begin + Edit2.Text:=Trim(Edit9.Text); + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.CDQtyChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(CDQty.Text)<>'' then + begin + if TryStrToFloat(CDQty.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + Edit2.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloat(CDQty.Text)) ); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm new file mode 100644 index 0000000..decafc6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm @@ -0,0 +1,2572 @@ +object frmMJManageNewFDNewCDLable: TfrmMJManageNewFDNewCDLable + Left = 74 + Top = 28 + Width = 1225 + Height = 700 + Caption = #25104#21697#26816#39564'('#30133#28857#26631#31614')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 472 + Top = 81 + Width = 225 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 82 + end + object v3Column2: TcxGridDBColumn + Caption = #31859 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = 'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 34 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 34 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 34 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 289 + Height = 580 + Align = alLeft + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 7 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 63 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 119 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 175 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 231 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 7 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 63 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 119 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 175 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 231 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 7 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 63 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 119 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 175 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 231 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 7 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 63 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 119 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 175 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 7 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 63 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 119 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 175 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 231 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 7 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 63 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 119 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 175 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 231 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 7 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 63 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 119 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 175 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 231 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 7 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 63 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 119 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 175 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 231 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 63 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 119 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 175 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 231 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 289 + Top = 81 + Width = 183 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 146 + Top = 152 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 146 + Top = 287 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 146 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 5 + Top = 197 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 5 + Top = 283 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 5 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 5 + Top = 380 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 90 + Top = 380 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 67 + Top = 323 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 146 + Top = 330 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 5 + Top = 329 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 5 + Top = 242 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 5 + Top = 431 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 89 + Top = 479 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 5 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 146 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 5 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 146 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 5 + Top = 479 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 5 + Top = 153 + Width = 40 + Height = 23 + Caption = #30721#34920 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 49 + Top = 278 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 49 + Top = 189 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 49 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 57 + Top = 513 + Width = 81 + Height = 51 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 151 + Top = 513 + Width = 81 + Height = 51 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + Visible = False + OnClick = Button5Click + end + object Edit3: TEdit + Left = 50 + Top = 370 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 128 + Top = 370 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 49 + Top = 320 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 49 + Top = 233 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 50 + Top = 421 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 128 + Top = 469 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 49 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 49 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 50 + Top = 470 + Width = 41 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object Edit9: TEdit + Left = 49 + Top = 143 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object Button2: TButton + Left = 138 + Top = 190 + Width = 41 + Height = 37 + Caption = #32467#26463 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + Visible = False + OnClick = Button2Click + end + object ZSUnit: TComboBox + Left = 137 + Top = 235 + Width = 44 + Height = 29 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 21 + ItemIndex = 0 + ParentFont = False + TabOrder = 18 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + object DuoPinNote: TEdit + Left = 88 + Top = 427 + Width = 80 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial Narrow' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 19 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object MJLenMa: TEdit + Left = 67 + Top = 210 + Width = 68 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 20 + Visible = False + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + end + object Panel3: TPanel + Left = -2 + Top = 330 + Width = 291 + Height = 259 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 11 + Top = 3 + Width = 60 + Height = 60 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 76 + Top = 3 + Width = 60 + Height = 60 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 141 + Top = 3 + Width = 60 + Height = 60 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 11 + Top = 67 + Width = 60 + Height = 60 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 76 + Top = 67 + Width = 60 + Height = 60 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 141 + Top = 67 + Width = 60 + Height = 60 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 11 + Top = 130 + Width = 60 + Height = 60 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 76 + Top = 130 + Width = 60 + Height = 60 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 141 + Top = 130 + Width = 60 + Height = 60 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 11 + Top = 194 + Width = 60 + Height = 60 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 76 + Top = 194 + Width = 60 + Height = 60 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 141 + Top = 194 + Width = 60 + Height = 60 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 216 + Top = 97 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1209 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1205 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1203 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 660 + Top = 15 + Width = 40 + Height = 19 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 60 + Height = 19 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 524 + Top = 15 + Width = 40 + Height = 19 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 923 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 793 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1027 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 873 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 749 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1203 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + 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 = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 3 + Top = 88 + Width = 284 + Height = 241 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 158 + Top = 24 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 6 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 238 + Top = 22 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 208 + Top = 102 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 101 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 102 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 29 + Top = 138 + Width = 70 + Height = 16 + Caption = #25187' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 60 + Top = 187 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 142 + Top = 187 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 177 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 94 + Width = 77 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = CDQtyChange + OnClick = Edit1Click + end + object BitBtn1: TBitBtn + Left = 176 + Top = 56 + Width = 57 + Height = 33 + Caption = #32456#27490 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = BitBtn1Click + end + object KouFen: TComboBox + Left = 100 + Top = 132 + Width = 77 + Height = 32 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 24 + ParentFont = False + TabOrder = 6 + Items.Strings = ( + '0' + '1' + '2' + '3' + '4') + end + end + object Panel7: TPanel + Left = 697 + Top = 81 + Width = 512 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object RMPreview1: TRMPreview + Left = 2 + Top = 227 + Width = 508 + Height = 351 + Align = alClient + 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 = 0 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 508 + Height = 225 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 183 + Height = 221 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end + item + Format = '0' + Kind = skSum + Column = v2Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 38 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 34 + end + object v2Column2: TcxGridDBColumn + Caption = #27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 35 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 40 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v2Column4: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFen' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 32 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object BZNote: TRichEdit + Left = 185 + Top = 2 + Width = 321 + Height = 221 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 1 + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 416 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 435 + 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 = 876 + Top = 474 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas new file mode 100644 index 0000000..75ad798 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas @@ -0,0 +1,2534 @@ +unit U_MJManageNewFDNewCDLable; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; + + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + //function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; + + +type + TfrmMJManageNewFDNewCDLable = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + Button3: TButton; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + Edit9: TEdit; + Button2: TButton; + Label37: TLabel; + BitBtn1: TBitBtn; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + ZSUnit: TComboBox; + DuoPinNote: TEdit; + Panel1: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + BZNote: TRichEdit; + RMGridReport1: TRMGridReport; + MJLenMa: TEdit; + Label38: TLabel; + KouFen: TComboBox; + v2Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure BitBtn1Click(Sender: TObject); + procedure CDQtyChange(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK,FCKCheng:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,NewFlag,KgZMiXS,KgZMaXS:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + procedure On1301(Var Message:Tmessage);Message 1301; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewCDLable: TfrmMJManageNewFDNewCDLable; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewCDLable.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewCDLable:=nil; +end; +procedure TfrmMJManageNewFDNewCDLable.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + edit9.Text:= floattostr(i1/100000 ); +end; +procedure TfrmMJManageNewFDNewCDLable.On1301(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + MJMaoZ.Text:= floattostr(i1/100000 ); +end; + +procedure TfrmMJManageNewFDNewCDLable.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; + if FCKCheng=9 then + begin + CommClose1301(pchar(PortNoStr)); + end; + +end; +procedure TfrmMJManageNewFDNewCDLable.InitCDGrid(); +begin + if PState=1 then + begin + if CDS_MJCD.IsEmpty=False then + begin + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + CDS_MJCD.Delete; + end else + begin + Next; + end; + end; + end; + Exit; + end; + end; + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + begin + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + end + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewCDLable.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + {if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); } + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewCDLable.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewCDLable.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + //{if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + if CommOpen(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; + if CommOpen1301(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + end else + begin + FCKCheng:=9; + end; + NewFlag:=''; +end; +procedure TfrmMJManageNewFDNewCDLable.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CD where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + end; + + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>49 then + begin + i:=49; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewCDLable.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewCDLable.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + ReadINIFile(); + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + FieldByName('MJLenMa').Value:=StrToFloat(MJLen.Text)*1.0936; + end; } + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJLenMa.Text)<>'' then + begin + FieldByName('MJLenMa').Value:=StrToFloat(MJLenMa.Text); + end; } + if Trim(KgZMiXS)<>'' then + begin + FieldByName('MiXS').Value:=StrToFloat(KgZMiXS); + end; + if Trim(KgZMaXS)<>'' then + begin + FieldByName('MaXS').Value:=StrToFloat(KgZMaXS); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + FieldByName('ZSUnit').Value:=Trim(ZSUnit.Text); + DuoPinNote.Text:=Trim(DuoPinNote.Text); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + if Trim(KgZMiXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MiXS'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MiXS*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if Trim(KgZMaXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MAXS*0.9144'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MAXS as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if (Trim(KgZMiXS)='') and (Trim(KgZMaXS)='') then + begin + if Trim(MJLen.Text)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*100*1000*1.00/(MJFK*MJSJKZ)'); + sql.Add(' ,MJLenMa=Cast(MJQty4*100*1000*1.00/(MJFK*MJSJKZ)*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen='+Trim(MJLen.Text)); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set '); + sql.Add(' MJLenMa=Cast(MJLen*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + end; + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select isnull(max(MJXH),0)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'') '); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'') '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('SFlag').AsString)='' then + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + // FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Delete; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('SFlag').Value:=''; + Next; + end; + + //CDS_MJCD.Edit; + //CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + //Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set KouFenHZ='); + SQL.Add('(select Sum(isnull(KouFen,0)) from WFB_MJJY_CD A where A.MJID=WFB_MJJY.MJID)'); + sql.Add(' where MJID='''+Trim(FMJID)+''''); + ExecSQL; + end; + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + NewFlag:=''; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزΪ!','ʾ',0); + Exit; + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end else + begin + if StrToFloat(MJMaoZ.Text)=0 then + begin + Application.MessageBox('ëزΪ!','ʾ',0); + Exit; + end; + end; + if trim(MJQty4.Text)='' then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + //MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end else + begin + if StrToFloat(MJQty4.Text)=0 then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if StrToFloat(MJLen.Text)=0 then + begin + Application.MessageBox('ȲΪ!','ʾ',0); + Exit; + end; + end; + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + {if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + //MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + begin + if Trim(MJLen.Text)<>'' then + begin + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJLen.Text)*1.0936); + end; + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add(' and isnull(C.PiTiaoQty,0)>0'); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FFFMJID); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; + end; + + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewCDLable.PrtData(FMJID:String); +var + fPrintFile,LabName:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('CPTYpe').AsString)<>'Ʒ' then + begin + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + LabName:=Trim(ADOQueryPrint.fieldbyname('SLBName').AsString); + end else + begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'; + LabName:='Ʒǩ.rmf'; + end; + + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewCDLable.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewCDLable.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + if Trim(Edit7.Text)<>'' then + Edit1.Text:=Trim(Edit9.Text); + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewCDLable.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + {if Trim(Edit7.Text)<>'' then + Edit2.Text:=Trim(Edit9.Text); } + + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(KouFen.Text)='' then + begin + Application.MessageBox('۷ֲΪ!','ʾ',0); + Exit; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + FieldByName('KouFen').Value:=Trim(KouFen.Text); + FieldByName('SFlag').Value:=NewFlag; + {if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; } + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + KouFen.ItemIndex:=-1; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.ToolButton1Click(Sender: TObject); +begin + + InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + InitCDGridID(); + InitCDGrid(); + if Trim(FAPID)<>'' then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + FInt:=11; + end; + end; + + //BTAdd.Click; + + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.APIDKeyPress(Sender: TObject; var Key: Char); +var + fPrintFile:string; +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXs,B.KgZMaXs'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(FSubId)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.APIDClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +procedure TfrmMJManageNewFDNewCDLable.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXS,B.KgZMaXS'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); +end; + +procedure TfrmMJManageNewFDNewCDLable.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + {if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + if FCKCheng=9 then + begin + if CommOpen1301(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + Exit; + end + else + begin + FCKCheng:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)); + if FCKCheng=9 then + CommClose1301(pchar(PortNoStr)); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button2Click(Sender: TObject); +begin + MJLen.Text:=Trim(Edit9.Text); + NewFlag:='1'; +end; + +procedure TfrmMJManageNewFDNewCDLable.BitBtn1Click(Sender: TObject); +var + mvalue:Double; +begin + Edit2.Text:=Trim(Edit9.Text); + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.CDQtyChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(CDQty.Text)<>'' then + begin + if TryStrToFloat(CDQty.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + Edit2.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloat(CDQty.Text)) ); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm new file mode 100644 index 0000000..5cce77e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm @@ -0,0 +1,1290 @@ +object frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable + Left = 76 + Top = 32 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 203 + Top = 81 + Width = 360 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 92 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 0 + Top = 81 + Width = 203 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 160 + Top = 159 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 246 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 155 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 339 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 339 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 282 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 289 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 288 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 201 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 390 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 437 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 438 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 237 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 146 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = MJLenChange + OnClick = MJLenMaClick + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = MJLenMaClick + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 492 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 492 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 329 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 329 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 279 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 192 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = MJQty2Change + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 380 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 427 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = MJLenMaClick + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 430 + Width = 39 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object MJLenMa: TEdit + Left = 181 + Top = 146 + Width = 68 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + Visible = False + OnClick = MJLenMaClick + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object DuoPinNote: TEdit + Left = 102 + Top = 387 + Width = 80 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial Narrow' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = MJLenMaClick + OnKeyPress = MJQty2KeyPress + end + object ZSUnit: TComboBox + Left = 151 + Top = 195 + Width = 53 + Height = 37 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 29 + ItemIndex = 0 + ParentFont = False + TabOrder = 18 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1270 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1266 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1264 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 653 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 509 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 997 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 805 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 968 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + Visible = False + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 776 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1264 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + Visible = False + OnClick = TBCDClick + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + Caption = #25351#31034#21333#20449#24687 + ImageIndex = 25 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object Panel7: TPanel + Left = 563 + Top = 81 + Width = 707 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 703 + Height = 576 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object BZNote: TRichEdit + Left = 2 + Top = 2 + Width = 699 + Height = 259 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object RMPreview1: TRMPreview + Left = 2 + Top = 261 + Width = 699 + Height = 313 + Align = alClient + 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 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 459 + 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 = 676 + Top = 450 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas new file mode 100644 index 0000000..9426fc7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas @@ -0,0 +1,2029 @@ +unit U_MJManageNewFDNewLable; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmMJManageNewFDNewLable = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + Button3: TButton; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + ToolButton2: TToolButton; + Panel1: TPanel; + BZNote: TRichEdit; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + RMGridReport1: TRMGridReport; + MJLenMa: TEdit; + DuoPinNote: TEdit; + ZSUnit: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure MJLenMaClick(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure MJLenChange(Sender: TObject); + procedure MJQty2Change(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,KgZMiXS,KgZMaXS:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewLable.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewLable:=nil; +end; +procedure TfrmMJManageNewFDNewLable.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); +end; + +procedure TfrmMJManageNewFDNewLable.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + {if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; } + +end; +procedure TfrmMJManageNewFDNewLable.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewLable.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + {if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); } + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewLable.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewLable.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewLable.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewLable.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + {if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; } + if IsINIFile() then + ReadINIFile() +end; +procedure TfrmMJManageNewFDNewLable.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.AddSL(Fbtn:TButton); +begin + +end; +procedure TfrmMJManageNewFDNewLable.AddSLNew(Fbtn:TSpeedButton); +begin + +end; + +procedure TfrmMJManageNewFDNewLable.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewLable.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewLable.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + DuoPinNote.Text:=Trim(ADOTmp.fieldbyname('DuoPinNote').AsString); + ZSUnit.Text:=Trim(ADOTmp.fieldbyname('ZSUnit').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewLable.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.Button12Click(Sender: TObject); +var + fsj:string; +begin + +end; + +function TfrmMJManageNewFDNewLable.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + ReadINIFile(); + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + FieldByName('DuoPinNote').Value:=Trim(DuoPinNote.Text); + FieldByName('ZSunit').Value:=Trim(ZSunit.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJLenMa.Text)<>'' then + begin + FieldByName('MJLenMa').Value:=StrToFloat(MJLenMa.Text); + end; } + if Trim(KgZMiXS)<>'' then + begin + FieldByName('MiXS').Value:=StrToFloat(KgZMiXS); + end; + if Trim(KgZMaXS)<>'' then + begin + FieldByName('MaXS').Value:=StrToFloat(KgZMaXS); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end else + begin + FieldByName('MJQty2').Value:=0; + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + if Trim(KgZMiXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MiXS'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MiXS*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if Trim(KgZMaXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MAXS*0.9144'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MAXS as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if (Trim(KgZMiXS)='') and (Trim(KgZMaXS)='') then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*100*1000*1.00/(MJFK*MJSJKZ)'); + sql.Add(' ,MJLenMa=Cast(MJQty4*100*1000*1.00/(MJFK*MJSJKZ)*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select isnull(max(MJXH),0)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'')'); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'')'); + end; + {if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; } + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + //SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewLable.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewLable.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewLable.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJLenMa.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + DuoPinNote.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewLable.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(Edit4.Text)='' then + begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf' ; + end else + begin + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + end; + + if FileExists(fPrintFile) then + begin + + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewLable.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewLable.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + + +end; + +procedure TfrmMJManageNewFDNewLable.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewLable.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + // InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + DuoPinNote.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewLable.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewLable.APIDKeyPress(Sender: TObject; var Key: Char); +var + fPrintFile:String; +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXs,B.KgZMaXs'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(FSubId)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenMaClick(Sender: TObject); +var + i:Integer; +begin + {Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZExit(Sender: TObject); +begin + {if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + if MJQty2.Text<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJQty4.Text),0)-strtofloatdef(trim(MJQty2.Text),0) ); + end; + end; + exit; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.MJLenExit(Sender: TObject); +begin + //MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4Exit(Sender: TObject); +begin + {if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + {if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); } +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJQty2.Text)<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJQty4.Text),0)-strtofloatdef(trim(MJQty2.Text),0) ); + end; + end else + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); +end; + +procedure TfrmMJManageNewFDNewLable.APIDClick(Sender: TObject); +var + i:Integer; +begin + { Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + + +procedure TfrmMJManageNewFDNewLable.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXS,B.KgZMaXS'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; +end; + +procedure TfrmMJManageNewFDNewLable.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit7Click(Sender: TObject); +begin + {if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)) + else begin + Exit; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.ToolButton2Click(Sender: TObject); +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + frmOrderInPut.FMainId:=Trim(Self.FMainId); + frmOrderInPut.PState:=1; + frmOrderInPut.cxPageControl1.Pages[2].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[3].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[4].TabVisible:=False; + frmOrderInPut.ToolBar2.Visible:=False; + frmOrderInPut.ToolButton18.Visible:=False; + frmOrderInPut.ToolButton13.Visible:=False; + frmOrderInPut.TBSave.Visible:=False; + frmOrderInPut.ToolBar7.Visible:=False; + frmOrderInPut.JYInt:=99; + frmOrderInPut.Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenChange(Sender: TObject); +begin + MJLenMa.Text:=''; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty2Change(Sender: TObject); +var + FReal:Double; +begin + // if TryStrToFloat(MJQty2.Text,FReal)=False then Exit; + if Trim(MJMaoZ.Text)='' then Exit; + if Trim(MJQty2.Text)<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=FloatToStr(StrToFloat(MJQty4.Text)-StrToFloat(MJQty2.Text)) ; + end; + end else + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)) ; + end; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm new file mode 100644 index 0000000..40c6d19 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm @@ -0,0 +1,1122 @@ +object frmMaDanManage: TfrmMaDanManage + Left = 64 + Top = 47 + Width = 1287 + Height = 701 + Caption = #30721#21333#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 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1271 + 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_CYZZ.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 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + 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 = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#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 = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 76 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 0 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 70 + Top = 5 + Width = 120 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 8 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 70 + Top = 72 + Width = 120 + Height = 20 + TabOrder = 9 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#26126#32454#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + Width = 60 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + Width = 73 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v5Column3: TcxGridDBColumn + Caption = #21517#31216 + HeaderAlignmentHorz = taCenter + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + Width = 57 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + Width = 68 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEl' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 85 + end + object v1PRTColor: 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_CYZZ.handBlack + Width = 103 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 333 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 329 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + end + object Button2: TButton + Left = 4 + Top = 57 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + end + object Button3: TButton + Left = 4 + Top = 93 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 744 + Height = 329 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 740 + Height = 193 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + Width = 63 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 101 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + Width = 56 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20379#24212#21830 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21305#25968 + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21333#20301 + Width = 37 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + Width = 57 + end + object Tv3Column1: TcxGridDBColumn + Caption = #21069#36947#20379#24212#21830 + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + HeaderAlignmentHorz = taCenter + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + HeaderAlignmentHorz = taCenter + Width = 51 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 195 + Width = 740 + Height = 132 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#35299#20179#24211 + Width = 730 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #22320#28857 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 148 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Caption = #25968#37327 + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #36131#20219#20154 + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #36131#20219#24037#21378 + HeaderAlignmentHorz = taCenter + Width = 120 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21407#22240 + HeaderAlignmentHorz = taCenter + Width = 213 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + object ScrollBox2: TScrollBox + Left = 800 + Top = 1 + Width = 361 + Height = 194 + TabOrder = 2 + object Label4: TLabel + Left = 2 + Top = 6 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 53 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 111 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 82 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 140 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 169 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxRichEdit1: TcxRichEdit + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 163 + Width = 210 + end + object Button4: TButton + Left = 263 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object ComboBox1: TComboBox + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox2: TComboBox + Left = 59 + Top = 49 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox3: TComboBox + Left = 59 + Top = 107 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox4: TComboBox + Left = 59 + Top = 78 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox5: TComboBox + Left = 59 + Top = 136 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox6: TComboBox + Left = 59 + Top = 165 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas new file mode 100644 index 0000000..d2f3276 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas @@ -0,0 +1,169 @@ +unit U_MaDanManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit; + +type + TfrmMaDanManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label21: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + MPRTCode: TBtnEditA; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + ScrollBox2: TScrollBox; + Label4: TLabel; + Label5: TLabel; + cxRichEdit1: TcxRichEdit; + Button4: TButton; + Label10: TLabel; + ComboBox1: TComboBox; + Label11: TLabel; + ComboBox2: TComboBox; + Label14: TLabel; + ComboBox3: TComboBox; + Label19: TLabel; + ComboBox4: TComboBox; + Label20: TLabel; + ComboBox5: TComboBox; + Label22: TLabel; + ComboBox6: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmMaDanManage: TfrmMaDanManage; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmMaDanManage.FormDestroy(Sender: TObject); +begin + frmMaDanManage:=nil; +end; + +procedure TfrmMaDanManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManage.TBCloseClick(Sender: TObject); +begin + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm new file mode 100644 index 0000000..99f51ff --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm @@ -0,0 +1,2215 @@ +object frmMaDanManageST: TfrmMaDanManageST + Left = 44 + Top = 26 + Width = 1287 + Height = 686 + Caption = #30721#21333#24405#20837'('#23454#20307')' + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 472 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 33 + Width = 1271 + Height = 318 + Align = alTop + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1267 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1263 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1263 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#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 = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#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 = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 121 + Height = 20 + TabOrder = 9 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 10 + end + end + object ScrollBox6: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 3 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 20 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Options.Sorting = False + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 114 + Width = 606 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 134 + Width = 606 + Height = 96 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v5Column12: TcxGridDBColumn + Caption = #32039#24613#21512#21516 + DataBinding.FieldName = 'JYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Options.Sorting = False + Width = 61 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox8: TScrollBox + Left = 610 + Top = 76 + Width = 653 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 649 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button15: TButton + Left = 127 + Top = 0 + Width = 103 + Height = 20 + Caption = #35843#29992#30003#35831#19982#23433#25490 + TabOrder = 0 + OnClick = Button15Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 21 + Width = 649 + Height = 209 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 43 + end + object v1Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'APType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object v1Column12: TcxGridDBColumn + Caption = #35843#29992#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #35843#29992#21305#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column10: TcxGridDBColumn + Caption = #23458#20154#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #23458#20154#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + Options.Sorting = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 58 + Top = 27 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 351 + Width = 1271 + Height = 296 + ActivePage = cxTabSheet2 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabOrder = 3 + ClientRectBottom = 296 + ClientRectRight = 1271 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #20179#24211#30721#21333#24405#20837 + ImageIndex = 0 + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 46 + Height = 273 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Button1: TButton + Left = 1 + Top = 21 + Width = 40 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 1 + Top = 53 + Width = 40 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 1 + Top = 84 + Width = 40 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid3: TcxGrid + Left = 46 + Top = 0 + Width = 874 + Height = 273 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column10 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v3Column10: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column11: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v3Column13: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 58 + end + object v3Column14: TcxGridDBColumn + Caption = #22836#32568#24067 + DataBinding.FieldName = 'FirstGangFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column7: TcxGridDBColumn + Tag = 2 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object v3Column9: TcxGridDBColumn + Caption = #21021#26816#32467#26524 + DataBinding.FieldName = 'ChkResult' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v3Column12: TcxGridDBColumn + Caption = #19981#25171#21360 + DataBinding.FieldName = 'NotPrint' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxPageControl2: TcxPageControl + Left = 928 + Top = 0 + Width = 343 + Height = 273 + ActivePage = cxTabSheet3 + Align = alRight + TabOrder = 2 + ClientRectBottom = 271 + ClientRectLeft = 2 + ClientRectRight = 341 + ClientRectTop = 22 + object cxTabSheet3: TcxTabSheet + Caption = #21021#26816 + ImageIndex = 0 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 339 + Height = 249 + Align = alClient + TabOrder = 0 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 39 + Height = 12 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 3 + Top = 144 + Width = 65 + Height = 12 + Caption = #21021#26816#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 54 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 44 + Width = 54 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 84 + Width = 53 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 64 + Width = 54 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 104 + Width = 52 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 125 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 136 + Top = 5 + Width = 65 + Height = 12 + Caption = #21021#26816#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 40 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 80 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 60 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 100 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 121 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 65 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 6 + OnClick = Button8Click + end + object CJNote: TcxRichEdit + Left = 137 + Top = 23 + Lines.Strings = ( + '') + TabOrder = 7 + Height = 117 + Width = 184 + end + object ChkNote: TMemo + Tag = 2 + Left = 5 + Top = 160 + Width = 314 + Height = 73 + TabOrder = 8 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #32568#26465#30721'/'#33337#26679' '#30041#26679' '#38646#24067' '#22823#22359 + ImageIndex = 1 + object Label26: TLabel + Left = 9 + Top = 49 + Width = 65 + Height = 12 + Caption = #33337#26679#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 9 + Top = 97 + Width = 65 + Height = 12 + Caption = #38646#24067#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 9 + Top = 121 + Width = 65 + Height = 12 + Caption = #22823#22359#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 9 + Top = 72 + Width = 65 + Height = 12 + Caption = #30041#26679#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button7: TButton + Left = 3 + Top = 12 + Width = 68 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 0 + OnClick = Button7Click + end + object ChuanYangQty: TEdit + Tag = 2 + Left = 70 + Top = 45 + Width = 91 + Height = 20 + TabOrder = 1 + end + object ChuanYangUnit: TComboBox + Left = 160 + Top = 46 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 2 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object Button11: TButton + Left = 11 + Top = 148 + Width = 54 + Height = 20 + Caption = #20445#23384 + TabOrder = 3 + OnClick = Button11Click + end + object LingBuQty: TEdit + Tag = 2 + Left = 70 + Top = 93 + Width = 91 + Height = 20 + TabOrder = 4 + end + object LingBuUnit: TComboBox + Left = 160 + Top = 94 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object DaKuaiQty: TEdit + Tag = 2 + Left = 70 + Top = 117 + Width = 91 + Height = 20 + TabOrder = 6 + end + object DaKuaiUnit: TComboBox + Left = 160 + Top = 118 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object LiuYangQty: TEdit + Tag = 2 + Left = 70 + Top = 68 + Width = 91 + Height = 20 + TabOrder = 8 + end + object LiuYangUnit: TComboBox + Left = 160 + Top = 69 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 9 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + end + end + object cxSplitter1: TcxSplitter + Left = 920 + Top = 0 + Width = 8 + Height = 273 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxPageControl2 + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#24405#20837 + ImageIndex = 1 + object Panel10: TPanel + Left = 0 + Top = 0 + Width = 46 + Height = 273 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Button4: TButton + Left = 1 + Top = 21 + Width = 40 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 1 + Top = 53 + Width = 40 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 1 + Top = 84 + Width = 40 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button6Click + end + end + object ScrollBox1: TScrollBox + Left = 46 + Top = 0 + Width = 1225 + Height = 273 + Align = alClient + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 0 + Top = 0 + Width = 1221 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Styles.Header = DataLink_DDMD.FoneRed + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 32 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 105 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Tag = 2 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 79 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Tag = 2 + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v6Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 72 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 704 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1120 + Top = 216 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1152 + Top = 224 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 240 + Top = 208 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 288 + Top = 232 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 784 + Top = 464 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 752 + Top = 464 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 680 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 409 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 833 + Top = 617 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 721 + Top = 465 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 345 + Top = 337 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 1088 + Top = 544 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 1064 + Top = 552 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1024 + Top = 543 + end + object PopupMenu1: TPopupMenu + Left = 232 + Top = 454 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 464 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas new file mode 100644 index 0000000..1f36f72 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas @@ -0,0 +1,2556 @@ +unit U_MaDanManageST; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, Menus, cxSplitter; + +type + TfrmMaDanManageST = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGYHZ: TEdit; + ScrollBox6: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel7: TPanel; + Label23: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Button9: TButton; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + Panel9: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel10: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxPageControl2: TcxPageControl; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + ScrollBox2: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + Button7: TButton; + Label24: TLabel; + CJNote: TcxRichEdit; + v5Column6: TcxGridDBColumn; + RMDBMain: TRMDBDataSet; + RM1: TRMGridReport; + ADOQueryPrint: TADOQuery; + Button10: TButton; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v3Column9: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ChkNote: TMemo; + ChuanYangQty: TEdit; + Label26: TLabel; + ChuanYangUnit: TComboBox; + Button11: TButton; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + Label27: TLabel; + LingBuQty: TEdit; + LingBuUnit: TComboBox; + Label28: TLabel; + DaKuaiQty: TEdit; + DaKuaiUnit: TComboBox; + ClientDataSet8: TClientDataSet; + v3Column12: TcxGridDBColumn; + Button15: TButton; + ScrollBox1: TScrollBox; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column17: TcxGridDBBandedColumn; + Label29: TLabel; + LiuYangQty: TEdit; + LiuYangUnit: TComboBox; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure v6Column8PropertiesEditValueChanged(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button15Click(Sender: TObject); + procedure v6Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxTabControl1Change(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMaDanManageST: TfrmMaDanManageST; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ModuleNote,U_ZDYHelp, U_ZDYHelpSel,U_OrderInPutPrice, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmMaDanManageST.FormDestroy(Sender: TObject); +begin + frmMaDanManageST:=nil; + +end; + +procedure TfrmMaDanManageST.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageST.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageST.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; +function TfrmMaDanManageST.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + if Application.MessageBox('ڵ,ȷҪ¼뵥','ʾ',32+4)<>IDYES then + begin + Result:=False; + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMaDanManageST.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('JSFlag').AsBoolean=True then + begin + Panel10.Visible:=False; + Panel9.Visible:=False; + + Button11.Visible:=False; + Button15.Visible:=False; + end else + begin + Panel10.Visible:=True; + Panel9.Visible:=True; + + Button11.Visible:=True; + Button15.Visible:=True; + end; + CJNote.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTMFNote').AsString)+#13+ + Trim(ADOQueryTemp.fieldbyname('MPRTKZNote').AsString)+#13+ + Trim(ADOQueryTemp.fieldbyname('CJNote').AsString); + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + ChuanYangQty.Text:=Trim(ADOQueryTemp.fieldbyname('ChuanYangQty').AsString); + ChuanYangUnit.Text:=Trim(ADOQueryTemp.fieldbyname('ChuanYangUnit').AsString); + LiuYangQty.Text:=Trim(ADOQueryTemp.fieldbyname('LiuYangQty').AsString); + LiuYangUnit.Text:=Trim(ADOQueryTemp.fieldbyname('LiuYangUnit').AsString); + LingBuQty.Text:=Trim(ADOQueryTemp.fieldbyname('LingBuQty').AsString); + LingBuUnit.Text:=Trim(ADOQueryTemp.fieldbyname('LingBuUnit').AsString); + DaKuaiQty.Text:=Trim(ADOQueryTemp.fieldbyname('DaKuaiQty').AsString); + DaKuaiUnit.Text:=Trim(ADOQueryTemp.fieldbyname('DaKuaiUnit').AsString); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + //SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column8,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,''''),B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + //sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageST.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + {if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ClotheType,'''')<>''Ʒ'' '); + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + sql.Add(' and isnull(ClotheType,'''')=''Ʒ'' '); + end; } + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageST.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end else + begin + if Trim(ClientDataSet1.fieldbyname('DataType').AsString)='Χ' then + begin + Application.MessageBox('Χݣֹʵ뵥!','ʾ',0); + Exit; + end; + end; + + + + + with ClientDataSet3 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + FieldByName('BatchNo').Value:=ClientDataSet1.fieldbyname('BatchNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageST.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType,fsj:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub A'+ + ' inner join JYOrder_Process B on A.PSID=B.PSID'+ + ' where A.MainId='''+Trim(FMainId)+''' and B.PSXH in('+ + Trim(ClientDataSet2.fieldbyname('PSXH').AsString)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+1)+ + ' ) group by FactoryNo,FactoryName'; //and isnull(FactoryNo,'''')<>'''' + //ShowMessage(fsj); + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,''''),B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + //sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); + if Mvalue=True then + begin + ClientDataSet2.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag , '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +procedure TfrmMaDanManageST.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageST.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID,maxCJNO,FAPType:string; +begin + Panel9.SetFocus; + if ClientDataSet3.IsEmpty then Exit; + if Tv3.GroupedItemCount<>0 then + begin + Application.MessageBox('˸ʽܱ!ѻܿеĿ!','ʾ',0); + Exit; + end; + //if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + if ClientDataSet3.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {f ClientDataSet3.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end;} + if ClientDataSet3.Locate('FromFactoryName',null,[])=True then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + {if ClientDataSet3.Locate('SelfGangNo',null,[])=True then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end;} + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FAPType:=Trim(ClientDataSet1.fieldbyname('APType').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + {if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; } + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + if Trim(ClientDataSet3.fieldbyname('FZQty').AsString)='' then + begin + FieldByName('FZQty').Value:=0; + end else + begin + FieldByName('FZQty').Value:=ClientDataSet3.fieldbyname('FZQty').Value; + end; + + if ClientDataSet3.FieldByName('NotPrint').AsBoolean=True then + begin + FieldByName('NotPrint').Value:=1; + end else + begin + FieldByName('NotPrint').Value:=0; + end; + if ClientDataSet3.FieldByName('FirstGangFlag').AsBoolean=True then + begin + FieldByName('FirstGangFlag').Value:=1; + end else + begin + FieldByName('FirstGangFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if Trim(FAPType)='' then + begin + FieldByName('MDNO').Value:='DC'+Trim(maxno); + end else + begin + FieldByName('MDNO').Value:='MD'+Trim(maxno); + end; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + FieldByName('BatchNo').Value:=Trim(ClientDataSet3.fieldbyname('BatchNo').AsString); + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + if Trim(ClientDataSet1.fieldbyname('BatchNo').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConSpec=(select ConSpec from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConCF=(select ConCF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConMF=(select ConMF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConKZ=(select ConKZ from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + //sql.Add('ConPrice=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select Top 1 SPName from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConSpec=(select Top 1 SPSpec from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConCF=(select Top 1 SPCF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConMF=(select Top 1 SPMF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConKZ=(select Top 1 SPKZ from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConPrice=(select Top 1 CostPrice from CK_SXPB_CR A '); + sql.Add(' where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''' order by CRTime desc)'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where OrdSubId='''+Trim(OrdSubId)+''''); + sql.Add(' and SelfGangNo='''+Trim(ClientDataSet3.fieldbyname('SelfGangNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + if Application.MessageBox(Pchar('׺<'+Trim(ClientDataSet3.fieldbyname('SelfGangNo').AsString)+'>ظȷҪ'),'ʾ',32+4)<>IDYES then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + + Edit; + FieldByName('MDID').Value:=Trim(maxno); + if Trim(FAPType)='' then + begin + FieldByName('MDNO').Value:='DC'+Trim(maxno); + end else + begin + FieldByName('MDNO').Value:='MD'+Trim(maxno); + end; + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''''); + sql.Add(' and Qty'' then + begin + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + {if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; + end else + begin + ClientDataSet3.Delete; + end; +end; + +procedure TfrmMaDanManageST.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end; + with ClientDataSet6 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + end else + begin + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + end; + + + + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + FieldByName('BatchNo').Value:=ClientDataSet1.fieldbyname('BatchNo').Value; + { if cxTabControl1.TabIndex=0 then + begin + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + FieldByName('ClotheType').Value:='Ʒ'; + end;} + Post; + end; +end; + +procedure TfrmMaDanManageST.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿòɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if ClientDataSet6.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageST.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Tv6.GroupedItemCount<>0 then + begin + Application.MessageBox('˸ʽܱ!ѻܿеĿ!','ʾ',0); + Exit; + end; + //if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + { if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; } + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + if ClientDataSet6.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {if ClientDataSet6.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; } + if ClientDataSet6.Locate('ToFactoryName','',[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('DutyReason',null,[])=True then + begin + Application.MessageBox('ԭΪ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + {if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; } + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('ToFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('DutyFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet6.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet6.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet6.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet6.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet6.fieldbyname('QtyUnit').Value; + if Trim(ClientDataSet6.fieldbyname('ClotheType').AsString)<>'Ʒ' then + begin + FieldByName('Status').Value:='ȷ'; + FieldByName('LiYongXS').Value:=1; + end; + FieldByName('BatchNo').Value:=ClientDataSet6.fieldbyname('BatchNo').Value; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')<>'''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet6.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmMaDanManageST.Button8Click(Sender: TObject); +var + maxCJNO:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox2,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + //ű + if Trim(ChkResult.Text)='ϸ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_CJ where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxCJNO,'CJ','JYOrder_Main_MD_CJ',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD_CJ where CJID='''+Trim(maxCJNO)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CJID').Value:=Trim(maxCJNO); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + + end; + //ű + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet3 do + begin + Edit; + FieldByName('ChkResult').Value:=Trim(ChkResult.Text); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox2,2); + with ScrollBox2 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); + +end; + +procedure TfrmMaDanManageST.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag, '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'װ' then + begin + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + sql.Add(' and (A.MainId not like ''CM%'' or isnull(A.JYType,'''')<>'''') '); + end else + begin + //sql.Add(' and A.MainId like ''CM%'' '); + end; + end; + + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag, '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end; + InitGrid(); +end; + +procedure TfrmMaDanManageST.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet6.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv6.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageST.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + i:Integer; +begin + if ClientDataSet3.fieldbyname('HCFlag').AsBoolean=True then + begin + v3Column1.Options.Focusing:=False; + cxGridDBColumn2.Options.Focusing:=False; + cxGridDBColumn3.Options.Focusing:=False; + cxGridDBColumn7.Options.Focusing:=False; + cxGridDBColumn11.Options.Focusing:=False; + cxGridDBColumn14.Options.Focusing:=False; + cxGridDBColumn12.Options.Focusing:=False; + Tv3Column1.Options.Focusing:=False; + //v3Column5.Options.Focusing:=False; + // v3Column7.Options.Focusing:=False; + Exit; + end else + begin + v3Column1.Options.Focusing:=True; + cxGridDBColumn2.Options.Focusing:=True; + cxGridDBColumn3.Options.Focusing:=True; + cxGridDBColumn7.Options.Focusing:=True; + cxGridDBColumn11.Options.Focusing:=True; + cxGridDBColumn14.Options.Focusing:=True; + cxGridDBColumn12.Options.Focusing:=True; + Tv3Column1.Options.Focusing:=True; + v3Column5.Options.Focusing:=True; + v3Column7.Options.Focusing:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + v3Column1.Options.Focusing:=False; + cxGridDBColumn2.Options.Focusing:=False; + cxGridDBColumn3.Options.Focusing:=False; + cxGridDBColumn7.Options.Focusing:=False; + cxGridDBColumn11.Options.Focusing:=False; + cxGridDBColumn14.Options.Focusing:=False; + cxGridDBColumn12.Options.Focusing:=False; + Tv3Column1.Options.Focusing:=False; + //v3Column5.Options.Focusing:=False; + //v3Column7.Options.Focusing:=False; + end else + begin + v3Column1.Options.Focusing:=True; + cxGridDBColumn2.Options.Focusing:=True; + cxGridDBColumn3.Options.Focusing:=True; + cxGridDBColumn7.Options.Focusing:=True; + cxGridDBColumn11.Options.Focusing:=True; + cxGridDBColumn14.Options.Focusing:=True; + cxGridDBColumn12.Options.Focusing:=True; + Tv3Column1.Options.Focusing:=True; + v3Column5.Options.Focusing:=True; + v3Column7.Options.Focusing:=True; + end; +end; + +procedure TfrmMaDanManageST.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv111',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + cxPageControl1.ActivePageIndex:=0; + cxPageControl2.ActivePageIndex:=0; +end; + +procedure TfrmMaDanManageST.Button9Click(Sender: TObject); +begin + WriteCxGrid('Tv111',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageST.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageST.v6Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column8.Properties as TcxComboBoxProperties).Items.Objects[(v6Column8.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmMaDanManageST.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column2.Properties as TcxComboBoxProperties).Items.Objects[(v6Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageST.Button7Click(Sender: TObject); +var + fPrintFile:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('ChkResult').AsString)<>'ϸ' then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('鲻ϸܴӡ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + ClientDataSet3.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmMaDanManageST.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ֿ뵥¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmMaDanManageST.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmMaDanManageST.Button11Click(Sender: TObject); +var + FReal:Double; +begin + if Trim(FMainId)='' then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if Trim(ChuanYangQty.Text)='' then + begin + ChuanYangQty.Text:='0'; + end; + if TryStrToFloat(ChuanYangQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if Trim(LiuYangQty.Text)='' then + begin + LiuYangQty.Text:='0'; + end; + if TryStrToFloat(LiuYangQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if Trim(LingBuQty.Text)='' then + begin + LingBuQty.Text:='0'; + end; + if TryStrToFloat(LingBuQty.Text,FReal)=False then + begin + Application.MessageBox('㲼Ƿ!','ʾ',0); + Exit; + end; + if Trim(DaKuaiQty.Text)='' then + begin + DaKuaiQty.Text:='0'; + end; + if TryStrToFloat(DaKuaiQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Main Set ChuanYangQty='+Trim(ChuanYangQty.Text)); + sql.Add(',ChuanYangUnit='''+Trim(ChuanYangUnit.Text)+''''); + sql.Add(',LiuYangQty='+Trim(LiuYangQty.Text)); + sql.Add(',LiuYangUnit='''+Trim(LiuYangUnit.Text)+''''); + sql.Add(',LingBuQty='+Trim(LingBuQty.Text)); + sql.Add(',LingBuUnit='''+Trim(LingBuUnit.Text)+''''); + sql.Add(',DaKuaiQty='+Trim(DaKuaiQty.Text)); + sql.Add(',DaKuaiUnit='''+Trim(DaKuaiUnit.Text)+''''); + sql.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.Button15Click(Sender: TObject); +begin + if Trim(OrderNo.Text)='' then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.FMainId); + FOrderNo:=Trim(Self.OrderNo.Text); + {cxTabSheet1.Caption:=''; + cxTabSheet1.Enabled:=False; + cxTabSheet2.Caption:=''; + cxTabSheet2.Enabled:=False; } + FST:='ֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column16PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column17PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CDName'; + flagname:='õ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('CDName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.cxTabControl1Change(Sender: TObject); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + {if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ClotheType,'''')<>''Ʒ'' '); + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + sql.Add(' and isnull(A.ClotheType,'''')=''Ʒ'' '); + end; } + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm new file mode 100644 index 0000000..00c2d4c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm @@ -0,0 +1,1693 @@ +object frmMaDanManageSTBAK: TfrmMaDanManageSTBAK + Left = 113 + Top = 48 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#23454#20307')' + 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 = 1271 + 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_CYZZ.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 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + 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 = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#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 = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 7 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 8 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 9 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#26126#32454#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 2 + Top = 171 + Width = 1206 + Height = 170 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 119 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox5: TScrollBox + Left = 2 + Top = 2 + Width = 1206 + Height = 169 + Align = alTop + TabOrder = 1 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 876 + Height = 165 + Align = alLeft + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 872 + Height = 161 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox7: TScrollBox + Left = 876 + Top = 0 + Width = 326 + Height = 165 + Align = alClient + TabOrder = 1 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 48 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 96 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 72 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 120 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 144 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChkNote: TcxRichEdit + Tag = 2 + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 139 + Width = 169 + end + object Button7: TButton + Left = 224 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 44 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 92 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 68 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 116 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 140 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 59 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 8 + OnClick = Button8Click + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 456 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas new file mode 100644 index 0000000..7a3d39e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas @@ -0,0 +1,1223 @@ +unit U_MaDanManageSTBAK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageSTBAK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + ScrollBox5: TScrollBox; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column5: TcxGridDBColumn; + ScrollBox7: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + ChkNote: TcxRichEdit; + Button7: TButton; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + MPRTCode: TEdit; + MPRTGY: TEdit; + PFGenDanPerson: TEdit; + Label18: TLabel; + Label21: TLabel; + LiDanPerson: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageSTBAK: TfrmMaDanManageSTBAK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageSTBAK.FormDestroy(Sender: TObject); +begin + frmMaDanManageSTBAK:=nil; + +end; + +procedure TfrmMaDanManageSTBAK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageSTBAK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageSTBAK.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageSTBAK.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageSTBAK.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageSTBAK.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBAK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageSTBAK.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageSTBAK.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageSTBAK.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PSID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button8Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox7,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox7,2); + with ScrollBox7 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + +{ if Trim(ADOQuery1.fieldbyname('MFChk').AsString)<>'' then + begin + MFChk.ItemIndex:=MFChk.Items.IndexOf(ADOQuery1.fieldbyname('MFChk').AsString) + end else + begin + MFChk.ItemIndex:=-1; + end; } + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); +end; + +procedure TfrmMaDanManageSTBAK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBAK.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBAK.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm new file mode 100644 index 0000000..03824d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm @@ -0,0 +1,1742 @@ +object frmMaDanManageSTBak2: TfrmMaDanManageSTBak2 + Left = 4 + Top = 13 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#23454#20307')' + 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 = 1271 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + 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 = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 383 + Width = 1271 + Height = 293 + Align = alClient + TabOrder = 2 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 289 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label24: TLabel + Left = 4 + Top = 164 + Width = 48 + Height = 12 + Caption = '--------' + end + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 289 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 2 + Top = 171 + Width = 1206 + Height = 116 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 119 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox5: TScrollBox + Left = 2 + Top = 2 + Width = 1206 + Height = 169 + Align = alTop + TabOrder = 1 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 876 + Height = 165 + Align = alLeft + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 872 + Height = 161 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox7: TScrollBox + Left = 876 + Top = 0 + Width = 326 + Height = 165 + Align = alClient + TabOrder = 1 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 48 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 96 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 72 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 120 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 144 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChkNote: TcxRichEdit + Tag = 2 + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 139 + Width = 169 + end + object Button7: TButton + Left = 224 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 44 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 92 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 68 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 116 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 140 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 59 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 8 + OnClick = Button8Click + end + end + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 318 + Align = alTop + TabOrder = 3 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1267 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1263 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1263 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#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 = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#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 = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object Edit1: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 11 + end + end + object ScrollBox6: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 5 + Width = 52 + Height = 12 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 26 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 120 + Width = 606 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label21: TLabel + Left = 5 + Top = 6 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 146 + Width = 606 + Height = 84 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox8: TScrollBox + Left = 610 + Top = 76 + Width = 653 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 649 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 12 + Top = 6 + Width = 78 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 26 + Width = 649 + Height = 204 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 704 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 448 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 409 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 833 + Top = 617 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 721 + Top = 465 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 345 + Top = 337 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas new file mode 100644 index 0000000..60d1b0c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas @@ -0,0 +1,1238 @@ +unit U_MaDanManageSTBak2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageSTBak2 = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + ScrollBox5: TScrollBox; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column5: TcxGridDBColumn; + ScrollBox7: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + ChkNote: TcxRichEdit; + Button7: TButton; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + Edit1: TEdit; + ScrollBox6: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel7: TPanel; + Label23: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label24: TLabel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Button9: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button9Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageSTBak2: TfrmMaDanManageSTBak2; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageSTBak2.FormDestroy(Sender: TObject); +begin + frmMaDanManageSTBak2:=nil; + +end; + +procedure TfrmMaDanManageSTBak2.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageSTBak2.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageSTBak2.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageSTBak2.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageSTBak2.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageSTBak2.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBak2.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageSTBak2.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageSTBak2.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageSTBak2.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PSID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button8Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox7,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox7,2); + with ScrollBox7 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + +{ if Trim(ADOQuery1.fieldbyname('MFChk').AsString)<>'' then + begin + MFChk.ItemIndex:=MFChk.Items.IndexOf(ADOQuery1.fieldbyname('MFChk').AsString) + end else + begin + MFChk.ItemIndex:=-1; + end; } + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); +end; + +procedure TfrmMaDanManageSTBak2.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBak2.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBak2.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); +end; + +procedure TfrmMaDanManageSTBak2.Button9Click(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm new file mode 100644 index 0000000..6d3f925 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm @@ -0,0 +1,1686 @@ +object frmMaDanManageWW: TfrmMaDanManageWW + Left = 64 + Top = 22 + Width = 1247 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1231 + Height = 32 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button7: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button7Click + end + object Button10: TButton + Left = 472 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 32 + Width = 1231 + Height = 318 + Align = alTop + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1227 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1223 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1223 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#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 = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#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 = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 121 + Height = 20 + TabOrder = 9 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 10 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label2: TLabel + Left = 5 + Top = 3 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 21 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Options.Sorting = False + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 115 + Width = 606 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label1: TLabel + Left = 5 + Top = 4 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 136 + Width = 606 + Height = 94 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 46 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox5: TScrollBox + Left = 610 + Top = 76 + Width = 613 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 609 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 20 + Width = 609 + Height = 210 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 43 + end + object v1Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'APType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column10: TcxGridDBColumn + Caption = #35843#29992#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 79 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column8: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + Width = 84 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 27 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 350 + Width = 1231 + Height = 326 + ActivePage = cxTabSheet1 + Align = alClient + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Style = 8 + TabOrder = 3 + ClientRectBottom = 326 + ClientRectRight = 1231 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22806#22260#30721#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImageIndex = 0 + ParentColor = False + ParentFont = False + object cxGrid3: TcxGrid + Left = 47 + Top = 0 + Width = 1184 + Height = 303 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column6 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column6: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column7: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column8: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MDNote' + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 47 + Height = 303 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 1 + object Button1: TButton + Left = 2 + Top = 20 + Width = 39 + Height = 21 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 72 + Width = 39 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 2 + Top = 128 + Width = 39 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button3Click + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#24405#20837 + ImageIndex = 1 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 47 + Height = 303 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Button4: TButton + Left = 2 + Top = 20 + Width = 39 + Height = 21 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 2 + Top = 72 + Width = 39 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 2 + Top = 128 + Width = 39 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button6Click + end + end + object cxGrid4: TcxGrid + Left = 47 + Top = 0 + Width = 1184 + Height = 303 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Styles.Header = DataLink_DDMD.FoneRed + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 31 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Tag = 2 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MDNote' + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 104 + Top = 136 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 72 + Top = 136 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 39 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 696 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 184 + Top = 280 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 152 + Top = 280 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 689 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 721 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 761 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 793 + Top = 257 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 833 + Top = 257 + end + object ADOQuery2: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 808 + Top = 47 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas new file mode 100644 index 0000000..b1306d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas @@ -0,0 +1,1796 @@ +unit U_MaDanManageWW; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC; + +type + TfrmMaDanManageWW = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + Button7: TButton; + ScrollBox2: TScrollBox; + Panel3: TPanel; + Label2: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label1: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox5: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label5: TLabel; + MPRTGYHZ: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel9: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxTabSheet2: TcxTabSheet; + Panel8: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v5Column6: TcxGridDBColumn; + Button10: TButton; + v5Column10: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v6Column8: TcxGridDBBandedColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + ADOQuery2: TADOQuery; + ClientDataSet8: TClientDataSet; + v6Column16: TcxGridDBBandedColumn; + v1Column9: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v6Column17: TcxGridDBBandedColumn; + v1Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure v6Column8PropertiesEditValueChanged(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure v6Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMaDanManageWW: TfrmMaDanManageWW; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ModuleNote,U_ZDYHelp, U_ZDYHelpSel, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmMaDanManageWW.FormDestroy(Sender: TObject); +begin + frmMaDanManageWW:=nil; + +end; + +procedure TfrmMaDanManageWW.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWW.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWW.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWW.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + if ADOQueryTemp.FieldByName('JSFlag').AsBoolean=True then + begin + Panel8.Visible:=False; + Panel9.Visible:=False; + + end else + begin + Panel8.Visible:=True; + Panel9.Visible:=True; + + end; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + // SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column8,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''')'); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(',B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWW.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + //ShowMessage(ADOQuery1.SQL.Text); + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); +end; + +procedure TfrmMaDanManageWW.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + Application.MessageBox('Χݣֹ뵥!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>Trim(ClientDataSet5.fieldbyname('FactoryNoName').AsString) then + begin + Application.MessageBox('ŹӦͬӦ̲ͬ!','ʾ',0); + Exit; + end; + with ClientDataSet3 do + begin + Append; + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWW.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType,fsj:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub A'+ + ' inner join JYOrder_Process B on A.PSID=B.PSID'+ + ' where A.MainId='''+Trim(FMainId)+''' and B.PSXH in('+ + Trim(ClientDataSet2.fieldbyname('PSXH').AsString)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+1)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+2)+ + ' )and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + //ShowMessage(fsj); + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''')'); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(',B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + + if Mvalue=True then + begin + ClientDataSet2.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + InitGrid(); +end; + +procedure TfrmMaDanManageWW.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWW.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + // if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + { } + + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + + end; + if ClientDataSet3.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('FromFactoryName',null,[])=True then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + if Trim(ClientDataSet3.fieldbyname('FZQty').AsString)='' then + begin + FieldByName('FZQty').Value:=0; + end else + begin + FieldByName('FZQty').Value:=ClientDataSet3.fieldbyname('FZQty').Value; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if Trim(ClientDataSet3.FieldByName('MDNO').AsString)='' then + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + //UpdateTJCKQty(PFID);//µڲֿеĿ(Զ) + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMaDanManageWW.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMaDanManageWW.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWW.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + Application.MessageBox('Χݣ뵽ָʾŽɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + //UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWW.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end; + { if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end;} + + + + with ClientDataSet6 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + + + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWW.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if ClientDataSet6.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWW.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + //if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet6.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {if ClientDataSet6.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; } + if ClientDataSet6.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('ToFactoryName','',[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('DutyReason',null,[])=True then + begin + Application.MessageBox('ԭΪ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('ToFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('DutyFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet6.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet6.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet6.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet6.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet6.fieldbyname('QtyUnit').Value; + if Trim(ClientDataSet6.fieldbyname('ClotheType').AsString)<>'Ʒ' then + begin + FieldByName('Status').Value:='ȷ'; + FieldByName('LiYongXS').Value:=1; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')<>'''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet6.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWW.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + sql.Add(' and A.MainId not like ''CM%'' '); + end else + begin + //sql.Add(' and A.MainId like ''CM%'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end; + + InitGrid(); +end; + +procedure TfrmMaDanManageWW.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet6.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv6.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + + end; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWW.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if ClientDataSet3.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv3.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + + end; + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWW.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv11',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMaDanManageWW.Button7Click(Sender: TObject); +begin + WriteCxGrid('Tv11',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWW.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageWW.v6Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column8.Properties as TcxComboBoxProperties).Items.Objects[(v6Column8.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end;} + +end; + +procedure TfrmMaDanManageWW.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column2.Properties as TcxComboBoxProperties).Items.Objects[(v6Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageWW.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Χ뵥¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageWW.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + +end; + +procedure TfrmMaDanManageWW.v6Column16PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm new file mode 100644 index 0000000..c57d4dd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm @@ -0,0 +1,1490 @@ +object frmMaDanManageWWBAK: TfrmMaDanManageWWBAK + Left = 33 + Top = 77 + Width = 1247 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + 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 = 1231 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + 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 = 1231 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button7: TButton + Left = 539 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button7Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1231 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#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 = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 70 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 642 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 638 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 638 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 638 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 638 + Height = 117 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1231 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1170 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 1166 + Height = 167 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 169 + Width = 1166 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 118 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 224 + Top = 120 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 128 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 39 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 696 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas new file mode 100644 index 0000000..5769f6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas @@ -0,0 +1,1141 @@ +unit U_MaDanManageWWBAK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageWWBAK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + v1Column2: TcxGridDBColumn; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + Button7: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button7Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageWWBAK: TfrmMaDanManageWWBAK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageWWBAK.FormDestroy(Sender: TObject); +begin + frmMaDanManageWWBAK:=nil; + +end; + +procedure TfrmMaDanManageWWBAK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWWBAK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWWBAK.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWWBAK.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWWBAK.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageWWBAK.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWBAK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWBAK.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWWBAK.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWWBAK.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWBAK.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWWBAK.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWWBAK.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWWBAK.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); +end; + +procedure TfrmMaDanManageWWBAK.Button7Click(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm new file mode 100644 index 0000000..a1dd376 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm @@ -0,0 +1,1466 @@ +object frmMaDanManageWWOne: TfrmMaDanManageWWOne + Left = 38 + Top = 34 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + 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 = 1271 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object Label3: TLabel + Left = 0 + Top = 0 + Width = 39 + Height = 30 + Caption = #13#10#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 39 + Top = 0 + Width = 219 + Height = 30 + TabOrder = 0 + OnChange = OrderNoChange + end + object TBClose: TToolButton + Left = 258 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#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 = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 70 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 1206 + Height = 167 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 169 + Width = 1206 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 118 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object cxGrid6: TcxGrid + Left = 168 + Top = 227 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 224 + Top = 120 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 128 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 728 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas new file mode 100644 index 0000000..d783754 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas @@ -0,0 +1,1127 @@ +unit U_MaDanManageWWOne; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageWWOne = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + v1Column2: TcxGridDBColumn; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + Label3: TLabel; + OrderNo: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageWWOne: TfrmMaDanManageWWOne; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageWWOne.FormDestroy(Sender: TObject); +begin + frmMaDanManageWWOne:=nil; + +end; + +procedure TfrmMaDanManageWWOne.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWWOne.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWWOne.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWWOne.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWWOne.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageWWOne.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWOne.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWOne.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWWOne.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWWOne.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWOne.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWWOne.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWWOne.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWWOne.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm new file mode 100644 index 0000000..90a8ace --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm @@ -0,0 +1,1515 @@ +object frmMeetingAP: TfrmMeetingAP + Left = -171 + Top = 63 + Width = 1373 + Height = 678 + Caption = #29983#20135#20250#35758 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1357 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + 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 OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 547 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 448 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object Button3: TButton + Left = 383 + Top = 5 + Width = 42 + Height = 22 + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + end + object Panel4: TPanel + Left = 0 + Top = 33 + Width = 1357 + Height = 172 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 442 + Height = 168 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label12: TLabel + Left = 33 + Top = 89 + Width = 39 + Height = 12 + Caption = #38376#24133#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 = 126 + Top = 89 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 32 + Top = 36 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 223 + Top = 116 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 220 + Top = 36 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 32 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 223 + Top = 89 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 32 + Top = 116 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 220 + Top = 64 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 220 + Top = 12 + 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 Label2: TLabel + Left = 32 + Top = 64 + Width = 39 + Height = 12 + Caption = #24037#33402#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 = 32 + Top = 140 + Width = 91 + Height = 12 + Caption = #36136#37327#26816#39564#31561#32423#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 284 + Top = 32 + Width = 155 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 94 + Top = 32 + Width = 121 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 259 + Top = 111 + Width = 179 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 259 + Top = 85 + Width = 179 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 66 + Top = 85 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 161 + Top = 85 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 94 + Top = 112 + Width = 123 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 284 + Top = 60 + Width = 154 + Height = 20 + TabOrder = 7 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 283 + Top = 8 + Width = 155 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 94 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 177 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 66 + Top = 60 + Width = 150 + Height = 20 + TabOrder = 11 + end + object ZLLevel: TEdit + Tag = 2 + Left = 118 + Top = 136 + Width = 321 + Height = 20 + TabOrder = 12 + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 20 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 13 + object Label9: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 84 + Caption = #22522#13#10#13#10#26412#13#10#13#10#20449#13#10#13#10#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid6: TcxGrid + Left = 54 + Top = -2 + Width = 345 + Height = 169 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object ScrollBox8: TScrollBox + Left = 444 + Top = 2 + Width = 911 + Height = 168 + Align = alClient + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 21 + Top = 0 + Width = 489 + Height = 164 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 31 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DlyDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'APPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'APQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'APUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 31 + end + object v1Column10: TcxGridDBColumn + Caption = #35745#21010#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21171#21160#21333#20215 + DataBinding.FieldName = 'LDPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #25439#32791#21333#20215 + DataBinding.FieldName = 'SHPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 510 + Top = 0 + Width = 397 + Height = 164 + Align = alRight + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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> + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #30334#20998#27604 + DataBinding.FieldName = 'QtyPersent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 51 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 21 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 3 + Top = 27 + Width = 13 + Height = 96 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35268#13#10#13#10#21017#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + end + end + object Panel9: TPanel + Left = 0 + Top = 205 + Width = 1357 + Height = 211 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel3: TPanel + Left = 840 + Top = 2 + Width = 515 + Height = 207 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 19 + Height = 203 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label4: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 132 + Caption = #20854#13#10#13#10#20182#13#10#13#10#24773#13#10#13#10#20917#13#10#13#10#35828#13#10#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button4: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #8730 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + end + object OtherNote: TRichEdit + Left = 21 + Top = 2 + Width = 492 + Height = 203 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 1 + end + end + object ScrollBox1: TScrollBox + Left = 23 + Top = 2 + Width = 817 + Height = 207 + Align = alLeft + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 420 + Height = 203 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 42 + end + object Tv3Column1: TcxGridDBColumn + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v3Column1: TcxGridDBColumn + Caption = #26412#21333#25968#37327 + DataBinding.FieldName = 'BDQty' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column2: TcxGridDBColumn + Caption = #38750#26412#21333#25968#37327 + DataBinding.FieldName = 'FBDQty' + Width = 75 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 442 + Top = 0 + Width = 371 + Height = 203 + Align = alRight + TabOrder = 1 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + 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 + Column = Tv4Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv4Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + 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 cxGridDBColumn14: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'GFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 87 + end + object Tv4Column1: TcxGridDBColumn + Caption = #20998#25968 + DataBinding.FieldName = 'FenShu' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.DropDownRows = 11 + Properties.Items.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10') + Properties.OnEditValueChanged = Tv4Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 42 + end + object Tv4Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'GFNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv4Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 181 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + object Panel11: TPanel + Left = 420 + Top = 0 + Width = 22 + Height = 203 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Button1: TButton + Left = 2 + Top = 52 + Width = 18 + Height = 24 + Caption = '+' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 119 + Width = 18 + Height = 22 + Caption = '-' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + end + end + object Panel10: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 207 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label11: TLabel + Left = 3 + Top = 59 + Width = 13 + Height = 84 + Caption = #29983#13#10#13#10#20135#13#10#13#10#25171#13#10#13#10#20998 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + end + object Panel12: TPanel + Left = 0 + Top = 416 + Width = 1357 + Height = 223 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object PingDingNote: TRichEdit + Left = 863 + Top = 2 + Width = 492 + Height = 219 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object Panel13: TPanel + Left = 2 + Top = 2 + Width = 443 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label19: TLabel + Left = 32 + Top = 24 + Width = 48 + Height = 12 + Caption = #27491#21697#25968#37327 + end + object Label20: TLabel + Left = 32 + Top = 64 + Width = 48 + Height = 12 + Caption = #27425#21697#25968#37327 + end + object Label21: TLabel + Left = 32 + Top = 104 + Width = 48 + Height = 24 + Caption = #35843#33410#20179#24211#13#10' '#25968#37327 + end + object Label22: TLabel + Left = 32 + Top = 154 + Width = 48 + Height = 12 + Caption = #20986#24211#25968#37327 + end + object Label24: TLabel + Left = 216 + Top = 24 + Width = 48 + Height = 12 + Caption = #36319#21333#25187#27454 + end + object Label26: TLabel + Left = 216 + Top = 64 + Width = 48 + Height = 12 + Caption = #35746#21333#25439#22833 + Visible = False + end + object Label27: TLabel + Left = 216 + Top = 110 + Width = 48 + Height = 12 + Caption = #20154#24037#25439#32791 + end + object Label28: TLabel + Left = 216 + Top = 154 + Width = 48 + Height = 12 + Caption = #31995#32479#25439#32791 + end + object Label29: TLabel + Left = 376 + Top = 110 + Width = 6 + Height = 12 + Caption = '%' + end + object Label30: TLabel + Left = 375 + Top = 154 + Width = 6 + Height = 12 + Caption = '%' + end + object Panel15: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 215 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 56 + Width = 13 + Height = 84 + Caption = #25968#13#10#13#10#37327#13#10#13#10#35780#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object ZPQty: TEdit + Tag = 2 + Left = 84 + Top = 20 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object CPQty: TEdit + Tag = 2 + Left = 84 + Top = 60 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object TJQty: TEdit + Tag = 2 + Left = 84 + Top = 106 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object CKQty: TEdit + Tag = 2 + Left = 84 + Top = 150 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object GDKK: TEdit + Tag = 2 + Left = 273 + Top = 20 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object OrderSunShi: TEdit + Left = 273 + Top = 60 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object SGJSSH: TEdit + Tag = 2 + Left = 273 + Top = 107 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object HZSH: TEdit + Tag = 2 + Left = 273 + Top = 150 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + end + object cxGrid5: TcxGrid + Left = 466 + Top = 2 + Width = 376 + Height = 219 + Align = alLeft + TabOrder = 2 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + 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 + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21171#21160#32771#26680#37329#39069 + DataBinding.FieldName = 'LDMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25439#32791#32771#26680#37329#39069 + DataBinding.FieldName = 'SHMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24635#32771#26680#37329#39069 + DataBinding.FieldName = 'HZMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + object Panel8: TPanel + Left = 445 + Top = 2 + Width = 21 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 3 + object Label10: TLabel + Left = 3 + Top = 58 + Width = 13 + Height = 84 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35780#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object Panel14: TPanel + Left = 842 + Top = 2 + Width = 21 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label14: TLabel + Left = 4 + Top = 58 + Width = 13 + Height = 84 + Caption = #35780#13#10#13#10#23450#13#10#13#10#24635#13#10#13#10#32467 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button5: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #8730 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button5Click + end + end + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 80 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 104 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 624 + Top = 65535 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 656 + Top = 65535 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 65535 + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 65535 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 720 + Top = 96 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 96 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1064 + Top = 104 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1032 + Top = 104 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 280 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 272 + Top = 280 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 720 + Top = 280 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 688 + Top = 280 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 496 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 656 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas new file mode 100644 index 0000000..c36f219 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas @@ -0,0 +1,652 @@ +unit U_MeetingAP; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxDropDownEdit, cxSplitter, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, cxCalendar, DBClient, ADODB, cxButtonEdit, cxTextEdit; + +type + TfrmMeetingAP = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + Button9: TButton; + Button10: TButton; + Panel4: TPanel; + Panel6: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CustomerNoName: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + MPRTGYHZ: TEdit; + Label5: TLabel; + ZLLevel: TEdit; + ScrollBox8: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel9: TPanel; + Panel3: TPanel; + Panel2: TPanel; + Label4: TLabel; + OtherNote: TRichEdit; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel10: TPanel; + Label11: TLabel; + Tv3Column1: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + Panel5: TPanel; + Label9: TLabel; + Panel7: TPanel; + Label23: TLabel; + Panel11: TPanel; + Button1: TButton; + Button2: TButton; + Panel12: TPanel; + PingDingNote: TRichEdit; + Panel13: TPanel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel15: TPanel; + Label13: TLabel; + Panel8: TPanel; + Label10: TLabel; + Panel14: TPanel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label24: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + ZPQty: TEdit; + CPQty: TEdit; + TJQty: TEdit; + CKQty: TEdit; + GDKK: TEdit; + OrderSunShi: TEdit; + SGJSSH: TEdit; + HZSH: TEdit; + Button3: TButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Label29: TLabel; + Label30: TLabel; + Button4: TButton; + Button5: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button9Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + private + { Private declarations } + FMainId:String; + public + { Public declarations } + end; + +var + frmMeetingAP: TfrmMeetingAP; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; +{$R *.dfm} + +procedure TfrmMeetingAP.FormDestroy(Sender: TObject); +begin + frmMeetingAP:=nil; +end; + +procedure TfrmMeetingAP.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMeetingAP.Button9Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmMeetingAP.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMeetingAP.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + + + {fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); } + {fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel13,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_GD_FenShu where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet4); + SInitCDSData20(ADOQueryTemp,ClientDataSet4); + Button3.Click; + //InitGrid(); +end; + +procedure TfrmMeetingAP.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.* from JYOrder_PCS_GD A '); + sql.Add('where A.PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + +procedure TfrmMeetingAP.Button1Click(Sender: TObject); +var + maxno:String; +begin + if Trim(OrderNo.Text)='' then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'GF','JYOrder_GD_FenShu',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_GD_FenShu where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet4 do + begin + Append; + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMeetingAP.cxGridDBColumn14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with Self.ClientDataSet4 do + begin + Edit; + FieldByName('GenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_GD_FenShu Set GenDanPerson='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' where GFID='''+Trim(Self.ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMeetingAP.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxDateEdit(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFDate').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Tv4Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu='+Trim(mvalue)) + else + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('FenShu').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Tv4Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFNote').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Button2Click(Sender: TObject); +begin + if ClientDataSet4.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrder_GD_FenShu where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet4.Delete; +end; + +procedure TfrmMeetingAP.Button4Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set OtherNote='''+Trim(OtherNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAP.Button5Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set PingDingNote='''+Trim(PingDingNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAP.Button3Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_GD Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.MainId=JYOrder_PCS_GD.MainId '); + sql.Add(' and A.GenDanPerson=JYOrder_PCS_GD.GenDanPerson)'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=PJFenShu*1.0/10*(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_PCS_GD Set SHMoney=PJFenShu*1.0/10*SHMoney'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm new file mode 100644 index 0000000..d8eb0b6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm @@ -0,0 +1,1620 @@ +object frmMeetingAPNew: TfrmMeetingAPNew + Left = -18 + Top = 33 + Width = 1366 + Height = 711 + Caption = #29983#20135#20250#35758 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1350 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + 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 = 323 + Top = 11 + Width = 26 + Height = 12 + Caption = #26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 447 + Top = 11 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 571 + Top = 11 + 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 OrderNo: TEdit + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 1022 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 789 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + object Button3: TButton + Left = 724 + Top = 5 + Width = 42 + Height = 22 + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object BegDate: TDateTimePicker + Left = 351 + Top = 8 + Width = 97 + Height = 20 + Date = 41979.517280543980000000 + Time = 41979.517280543980000000 + TabOrder = 4 + end + object EndDate: TDateTimePicker + Left = 462 + Top = 7 + Width = 97 + Height = 20 + Date = 41979.517280543980000000 + Time = 41979.517280543980000000 + TabOrder = 5 + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeHZChange + end + object Button8: TButton + Left = 878 + Top = 5 + Width = 75 + Height = 22 + Caption = #25351#31034#21333#26597#30475 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Button8Click + end + object Button11: TButton + Left = 966 + Top = 5 + Width = 44 + Height = 22 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Button11Click + end + end + object Panel4: TPanel + Left = 0 + Top = 33 + Width = 1350 + Height = 172 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 442 + Height = 168 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label12: TLabel + Left = 33 + Top = 89 + Width = 39 + Height = 12 + Caption = #38376#24133#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 = 126 + Top = 89 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 32 + Top = 36 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 223 + Top = 116 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 220 + Top = 36 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 32 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 223 + Top = 89 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 32 + Top = 116 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 220 + Top = 64 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 220 + Top = 12 + 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 Label2: TLabel + Left = 32 + Top = 64 + Width = 39 + Height = 12 + Caption = #24037#33402#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 = 32 + Top = 140 + Width = 91 + Height = 12 + Caption = #36136#37327#26816#39564#31561#32423#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 284 + Top = 32 + Width = 155 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 94 + Top = 32 + Width = 121 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 259 + Top = 111 + Width = 179 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 259 + Top = 85 + Width = 179 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 66 + Top = 85 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 161 + Top = 85 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 94 + Top = 112 + Width = 123 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 284 + Top = 60 + Width = 154 + Height = 20 + TabOrder = 7 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 283 + Top = 8 + Width = 155 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 94 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 177 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 66 + Top = 60 + Width = 150 + Height = 20 + TabOrder = 11 + end + object ZLLevel: TEdit + Tag = 2 + Left = 118 + Top = 136 + Width = 321 + Height = 20 + TabOrder = 12 + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 20 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 13 + object Label9: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 84 + Caption = #22522#13#10#13#10#26412#13#10#13#10#20449#13#10#13#10#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid6: TcxGrid + Left = 54 + Top = -2 + Width = 345 + Height = 169 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object ScrollBox8: TScrollBox + Left = 444 + Top = 2 + Width = 904 + Height = 168 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 21 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 3 + Top = 27 + Width = 13 + Height = 96 + Caption = #29983#13#10#13#10#20135#13#10#13#10#35201#13#10#13#10#32032#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object SCYaoSu: TRichEdit + Left = 21 + Top = 0 + Width = 644 + Height = 164 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object cxGrid2: TcxGrid + Left = 665 + Top = 0 + Width = 235 + Height = 164 + Align = alRight + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object TvOrderNoHZ: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = TvOrderNoHZCellClick + DataController.DataSource = DS_OrderNoHZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 86 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TvOrderNoHZ + end + end + end + end + object Panel9: TPanel + Left = 0 + Top = 205 + Width = 1350 + Height = 176 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object ScrollBox1: TScrollBox + Left = 23 + Top = 2 + Width = 984 + Height = 172 + Align = alLeft + TabOrder = 0 + object Panel11: TPanel + Left = 958 + Top = 0 + Width = 22 + Height = 168 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label11: TLabel + Left = 3 + Top = 39 + Width = 13 + Height = 84 + Caption = #29983#13#10#13#10#20135#13#10#13#10#25171#13#10#13#10#20998 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button1: TButton + Left = 2 + Top = 2 + Width = 18 + Height = 24 + Caption = '+' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 132 + Width = 18 + Height = 22 + Caption = '-' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 958 + Height = 168 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 31 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DlyDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'APPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'APQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'APUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 31 + end + object v1Column10: TcxGridDBColumn + Caption = #35745#21010#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21171#21160#21333#20215 + DataBinding.FieldName = 'LDPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #25439#32791#21333#20215 + DataBinding.FieldName = 'SHPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column3: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GDPersent' + HeaderAlignmentHorz = taCenter + Width = 134 + end + object v1Column8: TcxGridDBColumn + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #30721#21333#21305#25968 + DataBinding.FieldName = 'MDPS' + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #30721#21333#25968#37327 + DataBinding.FieldName = 'MDQty' + Width = 59 + end + object v1Column12: TcxGridDBColumn + Caption = #26412#21333#25968#37327 + DataBinding.FieldName = 'BDQty' + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #38750#26412#21333#25968#37327 + DataBinding.FieldName = 'FBDQty' + Width = 72 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel10: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 172 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 1 + object Label31: TLabel + Left = 3 + Top = 55 + Width = 13 + Height = 96 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35268#13#10#13#10#21017#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid4: TcxGrid + Left = 1007 + Top = 2 + Width = 341 + Height = 172 + Align = alClient + TabOrder = 2 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + 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 + Column = Tv4Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv4Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'GFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 87 + end + object Tv4Column1: TcxGridDBColumn + Caption = #20998#25968 + DataBinding.FieldName = 'FenShu' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.DropDownRows = 11 + Properties.Items.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10') + Properties.OnEditValueChanged = Tv4Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 35 + end + object Tv4Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'GFNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv4Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 181 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object Panel12: TPanel + Left = 0 + Top = 381 + Width = 1350 + Height = 291 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object PingDingNote: TRichEdit + Left = 1008 + Top = 2 + Width = 340 + Height = 287 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object Panel13: TPanel + Left = 544 + Top = 2 + Width = 443 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel15: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 283 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 49 + Width = 13 + Height = 156 + Caption = #32771#13#10#13#10#13#10#13#10#26680#13#10#13#10#13#10#13#10#35780#13#10#13#10#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object Panel16: TPanel + Left = 23 + Top = 2 + Width = 418 + Height = 283 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 414 + Height = 127 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label19: TLabel + Left = 22 + Top = 12 + Width = 48 + Height = 12 + Caption = #27491#21697#25968#37327 + end + object Label20: TLabel + Left = 22 + Top = 43 + Width = 48 + Height = 12 + Caption = #27425#21697#25968#37327 + end + object Label21: TLabel + Left = 22 + Top = 68 + Width = 48 + Height = 24 + Caption = #35843#33410#20179#24211#13#10' '#25968#37327 + end + object Label22: TLabel + Left = 22 + Top = 104 + Width = 48 + Height = 12 + Caption = #20986#24211#25968#37327 + end + object Label24: TLabel + Left = 206 + Top = 12 + Width = 48 + Height = 12 + Caption = #36319#21333#25187#27454 + end + object Label26: TLabel + Left = 206 + Top = 43 + Width = 48 + Height = 12 + Caption = #32771#26680#37329#39069 + end + object Label27: TLabel + Left = 206 + Top = 74 + Width = 48 + Height = 12 + Caption = #20154#24037#25439#32791 + end + object Label28: TLabel + Left = 206 + Top = 104 + Width = 48 + Height = 12 + Caption = #31995#32479#25439#32791 + end + object Label29: TLabel + Left = 366 + Top = 74 + Width = 6 + Height = 12 + Caption = '%' + end + object Label30: TLabel + Left = 365 + Top = 104 + Width = 6 + Height = 12 + Caption = '%' + end + object ZPQty: TEdit + Tag = 2 + Left = 74 + Top = 8 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object CPQty: TEdit + Tag = 2 + Left = 74 + Top = 39 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object TJQty: TEdit + Tag = 2 + Left = 74 + Top = 70 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object CKQty: TEdit + Tag = 2 + Left = 74 + Top = 100 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object GDKK: TEdit + Tag = 2 + Left = 263 + Top = 8 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object KHMoney: TEdit + Left = 263 + Top = 39 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object SGJSSH: TEdit + Tag = 2 + Left = 263 + Top = 71 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HZSH: TEdit + Tag = 2 + Left = 263 + Top = 100 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + end + object cxGrid5: TcxGrid + Left = 2 + Top = 129 + Width = 414 + Height = 152 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + 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 + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + 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 + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21171#21160#32771#26680#37329#39069 + DataBinding.FieldName = 'LDMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25439#32791#32771#26680#37329#39069 + DataBinding.FieldName = 'SHMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24635#32771#26680#37329#39069 + DataBinding.FieldName = 'HZMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + end + end + object Panel14: TPanel + Left = 987 + Top = 2 + Width = 21 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label14: TLabel + Left = 4 + Top = 51 + Width = 13 + Height = 156 + Caption = #35780#13#10#13#10#13#10#13#10#23450#13#10#13#10#13#10#13#10#24635#13#10#13#10#13#10#13#10#32467 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button5: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #20445 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button5Click + end + object Button7: TButton + Left = -2 + Top = 22 + Width = 21 + Height = 21 + Caption = #23384 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + end + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 19 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 3 + object Label4: TLabel + Left = 3 + Top = 63 + Width = 13 + Height = 132 + Caption = #20854#13#10#13#10#20182#13#10#13#10#24773#13#10#13#10#20917#13#10#13#10#35828#13#10#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button4: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #20445 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button6: TButton + Left = -2 + Top = 22 + Width = 21 + Height = 22 + Caption = #23384 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + end + object OtherNote: TRichEdit + Left = 21 + Top = 2 + Width = 523 + Height = 287 + Align = alLeft + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 4 + end + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 80 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 104 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1136 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1256 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1288 + Top = 7 + end + object ADOQuery2: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1280 + Top = 15 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 584 + Top = 304 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1144 + Top = 65528 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1280 + Top = 8 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 576 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 800 + Top = 568 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 1144 + Top = 280 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 1112 + Top = 280 + end + object DS_OrderNoHZ: TDataSource + DataSet = CDS_OrderNoHZ + Left = 1184 + Top = 72 + end + object CDS_OrderNoHZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 1216 + Top = 72 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1208 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 664 + Top = 104 + 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 = 696 + Top = 104 + end + object RMDBMain: TRMDBDataSet + Visible = True + Left = 736 + Top = 104 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas new file mode 100644 index 0000000..06de28e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas @@ -0,0 +1,1192 @@ +unit U_MeetingAPNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxDropDownEdit, cxSplitter, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, cxCalendar, DBClient, ADODB, cxButtonEdit, cxTextEdit, + RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport; + +type + TfrmMeetingAPNew = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + Button9: TButton; + Button10: TButton; + Panel4: TPanel; + Panel6: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CustomerNoName: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + MPRTGYHZ: TEdit; + Label5: TLabel; + ZLLevel: TEdit; + ScrollBox8: TScrollBox; + Panel9: TPanel; + ScrollBox1: TScrollBox; + Panel10: TPanel; + Panel5: TPanel; + Label9: TLabel; + Panel7: TPanel; + Label23: TLabel; + Panel11: TPanel; + Button1: TButton; + Button2: TButton; + Panel12: TPanel; + PingDingNote: TRichEdit; + Panel13: TPanel; + Panel15: TPanel; + Label13: TLabel; + Panel14: TPanel; + Label14: TLabel; + Button3: TButton; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Button5: TButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label11: TLabel; + Label31: TLabel; + SCYaoSu: TRichEdit; + Panel2: TPanel; + Label4: TLabel; + Button4: TButton; + OtherNote: TRichEdit; + Panel16: TPanel; + Panel3: TPanel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label24: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + Label30: TLabel; + ZPQty: TEdit; + CPQty: TEdit; + TJQty: TEdit; + CKQty: TEdit; + GDKK: TEdit; + KHMoney: TEdit; + SGJSSH: TEdit; + HZSH: TEdit; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Button6: TButton; + Button7: TButton; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + cxGrid2: TcxGrid; + TvOrderNoHZ: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_OrderNoHZ: TDataSource; + CDS_OrderNoHZ: TClientDataSet; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label10: TLabel; + Label32: TLabel; + Label33: TLabel; + MPRTCodeHZ: TEdit; + Button8: TButton; + ADOQuery3: TADOQuery; + Button11: TButton; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDBMain: TRMDBDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button9Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button10Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TvOrderNoHZCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button8Click(Sender: TObject); + procedure MPRTCodeHZChange(Sender: TObject); + procedure Button11Click(Sender: TObject); + private + { Private declarations } + + public + { Public declarations } + FMainId:String; + PState:Integer; + end; + +var + frmMeetingAPNew: TfrmMeetingAPNew; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; +{$R *.dfm} + +procedure TfrmMeetingAPNew.FormDestroy(Sender: TObject); +begin + frmMeetingAPNew:=nil; +end; + +procedure TfrmMeetingAPNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMeetingAPNew.Button9Click(Sender: TObject); +begin + Close; + WriteCxGrid('1',Tv1,''); + WriteCxGrid('4',Tv4,''); + WriteCxGrid('5',Tv5,''); + WriteCxGrid('2',TvOrderNoHZ,''); +end; + +procedure TfrmMeetingAPNew.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMeetingAPNew.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //Button3.Click; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //InitGrid(); +end; + +procedure TfrmMeetingAPNew.Button1Click(Sender: TObject); +var + maxno:String; +begin + if Trim(OrderNo.Text)='' then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'GF','JYOrder_GD_FenShu',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_GD_FenShu where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(ClientDataSet1.fieldbyname('PSID').AsString); + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet4 do + begin + Append; + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMeetingAPNew.cxGridDBColumn14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with Self.ClientDataSet4 do + begin + Edit; + FieldByName('GenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_GD_FenShu Set GenDanPerson='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' where GFID='''+Trim(Self.ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMeetingAPNew.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxDateEdit(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFDate').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Tv4Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu='+Trim(mvalue)) + else + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('FenShu').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Tv4Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFNote').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Button2Click(Sender: TObject); +begin + if ClientDataSet4.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrder_GD_FenShu where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet4.Delete; +end; + +procedure TfrmMeetingAPNew.Button4Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set OtherNote='''+Trim(OtherNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAPNew.Button5Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set PingDingNote='''+Trim(PingDingNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAPNew.Button3Click(Sender: TObject); +var + fsj:string; +begin + with ADOQuery3 do + begin + Close; + sql.Clear; + sql.Add('select MainId,OrderNo,MPRTCodeHZ=MPRTCode from JYOrder_Main where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQuery3,CDS_OrderNoHZ); + SInitCDSData20(ADOQuery3,CDS_OrderNoHZ); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //TvOrdeNoDblClick(Sender); +end; + +procedure TfrmMeetingAPNew.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_GD_FenShu where PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet4); + SInitCDSData20(ADOQueryTemp,ClientDataSet4); +end; + +procedure TfrmMeetingAPNew.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMeetingAPNew.FormShow(Sender: TObject); +begin + ReadCxGrid('1',Tv1,''); + ReadCxGrid('4',Tv4,''); + ReadCxGrid('5',Tv5,''); + ReadCxGrid('2',TvOrderNoHZ,''); + if Trim(FMainId)<>'' then + begin + cxGrid6.Visible:=False; + Button3.Click; + end; + if PState=2 then + begin + Button1.Visible:=False; + Button2.Visible:=False; + Button4.Visible:=False; + Button6.Visible:=False; + Button5.Visible:=False; + Button7.Visible:=False; + end; +end; + +procedure TfrmMeetingAPNew.FormCreate(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmMeetingAPNew.TvOrderNoHZCellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNoHZ.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //Button3.Click; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //InitGrid(); +end; + +procedure TfrmMeetingAPNew.Button8Click(Sender: TObject); +var + FFFF:String; +begin + if Trim(FMainId)='' then Exit; + FFFF:=FMainId; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + frmOrderInPutPrice.FMainId:=Trim(FFFF); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmMeetingAPNew.MPRTCodeHZChange(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,CDS_OrderNoHZ); + SInitCDSData20(ADOQuery3,CDS_OrderNoHZ); +end; + +procedure TfrmMeetingAPNew.Button11Click(Sender: TObject); +var + fPrintFile:String; +begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'),'ʾ',0); + end; + +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm new file mode 100644 index 0000000..b6c7684 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas new file mode 100644 index 0000000..da2ac60 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm new file mode 100644 index 0000000..a3b78a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas new file mode 100644 index 0000000..9cce84c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm new file mode 100644 index 0000000..96f1eab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm @@ -0,0 +1,299 @@ +object frmNBFPInPut: TfrmNBFPInPut + Left = 216 + Top = 84 + Width = 1030 + Height = 634 + Align = alClient + Caption = #20869#37096#21457#31080#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 = 1014 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1014 + Height = 566 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 65531 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 65533 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 65531 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 405 + Top = 65533 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas new file mode 100644 index 0000000..37c6272 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas @@ -0,0 +1,401 @@ +unit U_NBFPInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmNBFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPut: TfrmNBFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmNBFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmNBFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmNBFPInPut.GetMaxConNO(); +begin + +end; +function TfrmNBFPInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + //FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('XHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; +end; + +procedure TfrmNBFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm new file mode 100644 index 0000000..e092f08 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm @@ -0,0 +1,835 @@ +object frmNBFPInPutWGL: TfrmNBFPInPutWGL + Left = 71 + Top = 13 + Width = 1148 + Height = 702 + Align = alClient + Caption = #20869#37096#21457#31080#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 = 1132 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1132 + Height = 209 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 238 + Width = 1132 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel1 + end + object Panel1: TPanel + Left = 0 + Top = 246 + Width = 1132 + Height = 417 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 1128 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label9: TLabel + Left = 23 + Top = 10 + 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 OrderNo: TEdit + Tag = 2 + Left = 64 + Top = 6 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object Button1: TButton + Left = 276 + Top = 4 + Width = 75 + Height = 25 + Caption = #26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 388 + Top = 4 + Width = 75 + Height = 25 + Caption = #25764#38144#26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 33 + Width = 1128 + Height = 127 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + OnCellDblClick = Tv6CellDblClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'FPDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'FPQty' + Options.Editing = False + Width = 116 + end + object v6Column9: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v6Column12: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#25968#37327 + DataBinding.FieldName = 'WXFPQty' + Options.Editing = False + Width = 112 + end + object v6Column13: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#37329#39069'$' + DataBinding.FieldName = 'WXFPMoney' + Options.Editing = False + Width = 116 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 160 + Width = 1128 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 2 + Top = 168 + Width = 1128 + Height = 247 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn10 + 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 = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 65531 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 983 + Top = 488 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 694 + Top = 140 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 65533 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 65531 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 405 + Top = 65533 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 946 + Top = 494 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 619 + Top = 146 + end + object DataSource3: TDataSource + DataSet = CDS_HZ + Left = 320 + Top = 366 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 352 + Top = 366 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 384 + Top = 366 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 416 + Top = 366 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 368 + Top = 462 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 336 + Top = 462 + end + object DataSource4: TDataSource + DataSet = Order_Main + Left = 304 + Top = 462 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 384 + Top = 110 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas new file mode 100644 index 0000000..2df72bb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas @@ -0,0 +1,788 @@ +unit U_NBFPInPutWGL; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmNBFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Panel2: TPanel; + Label9: TLabel; + OrderNo: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column5: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource4: TDataSource; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + Button1: TButton; + Button2: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + procedure InitGYSFP(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPutWGL: TfrmNBFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼6',Tv6,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); +end; + +procedure TfrmNBFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmNBFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmNBFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼6',Tv6,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); + InitData(); +end; +procedure TfrmNBFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmNBFPInPutWGL.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + //FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('XHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where NBFMID='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''Ӧ̷Ʊ'' '); + Open; + end; + if ADOTemp.FieldByName('HXMoney').Value<>0 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 FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=CDS_HZ.FieldByName('BGName').Value; + //FieldByName('XHDanWei').Value:=Order_Main.FieldByName('GHDanWei').Value; + FieldByName('GHDanWei').Value:=CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=CDS_HZ.FieldByName('NQUnit').Value; + if Trim(CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQMQty').Value + -CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQkgQty').Value + -CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + //Post; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),BCHXMoney=Cast(0 as decimal(18,2) ) '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),BCHXMoney=Cast(0 as decimal(18,2) ) '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.BCID,'''')<>'''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''''); + SQL.Add(' and A.Money<>isnull(A.HXMoney,0)'); + sql.Add(' and A.FactoryName in('); + sql.Add(' select A.FactoryName '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(')'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); } +end; + +procedure TfrmNBFPInPutWGL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('XHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + InitGYSFP(); +end; + +procedure TfrmNBFPInPutWGL.Button1Click(Sender: TObject); +var + maxno,FFHID:string; +begin + if Order_Sub.IsEmpty then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FMID').AsString)='' then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + try + ADOCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + sql.Add(' and GYSFMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƱʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where FHID='''+Trim(FFHID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('GYSFMID').Value:=Trim(Order_Main.fieldbyname('FMID').AsString); + FieldByName('NBFMID').Value:=Trim(Order_Sub.fieldbyname('FMID').AsString); + if Trim(Order_Main.fieldbyname('BCHXMoney').AsString)='' then + begin + FieldByName('HXMoney').Value:=0; + end else + begin + FieldByName('HXMoney').Value:=Order_Main.fieldbyname('BCHXMoney').Value; + end; + FieldByName('Type').Value:='Ӧ̷Ʊ'; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update FP_GYSNB Set HXMoney=(select Sum(HXMoney) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID)'); + sql.Add(' where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + InitGYSFP(); + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmNBFPInPutWGL.InitGYSFP(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + {sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+'''');} + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0) '); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + sql.Add(' and isnull(A.BCID,'''')<>'''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''''); + SQL.Add(' and A.Money<>isnull(A.HXMoney,0)'); + sql.Add(' and A.FactoryName in('); + sql.Add(' select A.FactoryName '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(')'); + + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0) '); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + SQL.Add(' and A.Money=isnull(A.HXMoney,0)'); + sql.Add(' and isnull(A.BCID,'''')='''' '); + SQL.Add(' and exists(select * from FP_Money_HX FH where FH.GYSFMID=A.FMID'); + sql.Add(' and FH.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm new file mode 100644 index 0000000..c74b22d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm @@ -0,0 +1,624 @@ +object frmNBFPInPutWGLBCOrderNo: TfrmNBFPInPutWGLBCOrderNo + Left = 125 + Top = 60 + Width = 1148 + Height = 702 + Align = alClient + Caption = #20869#37096#21457#31080#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 = 1132 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 122 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object Panel3: TPanel + Left = 181 + Top = 0 + Width = 308 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 16 + Top = 8 + Width = 65 + Height = 12 + Caption = #25253#20851#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGOrderNo: TEdit + Left = 88 + Top = 5 + Width = 209 + Height = 20 + TabOrder = 0 + end + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1132 + Height = 268 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column6: TcxGridDBColumn + Caption = #21457#31080#31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #25253#20851 + #20869#38144) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 297 + Width = 1132 + Height = 366 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 1128 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1124 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object Panel4: TPanel + Left = 126 + Top = 0 + Width = 104 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 7 + Top = 8 + Width = 95 + Height = 17 + Caption = #19981#25353#21333#20215#35745#31639 + TabOrder = 0 + end + end + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 33 + Width = 1128 + Height = 331 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + 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 + Column = cxGridDBColumn11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn9 + 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 = cxGridDBColumn11 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 13 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 661 + Top = 11 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 543 + Top = 104 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 510 + Top = 100 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 618 + Top = 3 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 501 + Top = 53 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 482 + Top = 102 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 419 + Top = 370 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 320 + Top = 366 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 384 + Top = 366 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas new file mode 100644 index 0000000..47d63ea --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas @@ -0,0 +1,775 @@ +unit U_NBFPInPutWGLBCOrderNo; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmNBFPInPutWGLBCOrderNo = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ClientDataSet2: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Panel2: TPanel; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + Panel3: TPanel; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + BGOrderNo: TEdit; + v1Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Panel4: TPanel; + CheckBox1: TCheckBox; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPutWGLBCOrderNo: TfrmNBFPInPutWGLBCOrderNo; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSFPSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPutWGLBCOrderNo.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.InitData(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from FP_BGOrderNo where FNID='''+Trim(FMainId)+''''); + Open; + end; + BGOrderNo.Text:=Trim(ADOQuery1.fieldbyname('BGOrderNo').AsString); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from FP_GYSNB A'); + sql.Add(' where A.FNID='''+Trim(FMainId)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.HXQty,B.HXMoney,B.FHID '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' inner join FP_Money_HX B on A.FMID=B.GYSFMID'); + sql.Add(' where B.FNID='''+Trim(FMainId)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + + + +procedure TfrmNBFPInPutWGLBCOrderNo.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); + InitData(); +end; + +function TfrmNBFPInPutWGLBCOrderNo.SaveData():Boolean; +var + maxno,MaxNoFN,maxNoFH,FFHID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + //汨ض + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,MaxNoFN,'FN','FP_BGOrderNo',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxnoFN:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_BGOrderNo where FNID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FNID').Value:=Trim(MaxNoFN); + FieldByName('BGOrderNo').Value:=Trim(BGOrderNo.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_BGOrderNo where BGOrderNo='''+Trim(BGOrderNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ضظ!','ʾ',0); + exit; + end; + //ڲƱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('FNID').Value:=Trim(maxnoFN); + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + + end; + //Ӧ̷Ʊ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where '); + sql.Add(' FNID='''+Trim(MaxNoFN)+''''); + sql.Add(' and GYSFMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + Open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxNoFH,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӦ̷Ʊˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxNoFH:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from FP_Money_HX'); + sql.Add(' where FHID='''+Trim(FFHID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxNoFH); + FieldByName('FNID').Value:=Trim(MaxNoFN); + FieldByName('GYSFMID').Value:=Trim(ClientDataSet2.fieldbyname('FMID').AsString); + FieldByName('HXQty').Value:=ClientDataSet2.fieldbyname('HXQty').Value; + FieldByName('HXMoney').Value:=ClientDataSet2.fieldbyname('HXMoney').Value; + FieldByName('Type').Value:='Ӧ̷Ʊ'; + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update FP_GYSNB Set '); + sql.Add(' HXQty=(select sum(isnull(HXQty,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' ,HXMoney=(select sum(isnull(HXMoney,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add(' select DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOTemp.FieldByName('DHXQty').Value<0 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ڷƱ!','ʾ',0); + Exit; + end; + if ADOTemp.FieldByName('DHXMoney').Value<0 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ڷƱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxNoFH); + Next; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from FP_Money_HX where isnull(HXQty,0)=0 and isnull(HXMoney,0)=0'); + sql.Add(' and FNID='''+Trim(MaxNoFN)+''''); + sql.Add(' and Type=''Ӧ̷Ʊ'' '); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(MaxNoFN); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(BGOrderNo.Text)='' then + begin + Application.MessageBox('ضŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ڲƱݲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPType',null,[]) then + begin + Application.MessageBox('ƱͲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('XHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BGName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='λ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='λ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('XHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column18PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton2Click(Sender: TObject); +begin + try + frmGYSFPSelList:=TfrmGYSFPSelList.Create(Application); + with frmGYSFPSelList do + begin + if ShowModal=1 then + begin + with frmGYSFPSelList.Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + if Self.ClientDataSet2.Locate('FMID',Trim(frmGYSFPSelList.Order_Main.fieldbyname('FMID').AsString),[])=False then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('FMId').Value:=frmGYSFPSelList.Order_Main.FieldByName('FMId').Value; + FieldByName('BCOrderNo').Value:=frmGYSFPSelList.Order_Main.FieldByName('BCOrderNo').Value; + FieldByName('FPNO').Value:=frmGYSFPSelList.Order_Main.FieldByName('FPNO').Value; + FieldByName('FPDate').Value:=frmGYSFPSelList.Order_Main.FieldByName('FPDate').Value; + FieldByName('FactoryName').Value:=frmGYSFPSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('GHDanWei').Value:=frmGYSFPSelList.Order_Main.FieldByName('GHDanWei').Value; + FieldByName('XHDanWei').Value:=frmGYSFPSelList.Order_Main.FieldByName('XHDanWei').Value; + FieldByName('BFName').Value:=frmGYSFPSelList.Order_Main.FieldByName('BFName').Value; + FieldByName('QtyUnit').Value:=frmGYSFPSelList.Order_Main.FieldByName('QtyUnit').Value; + FieldByName('Qty').Value:=frmGYSFPSelList.Order_Main.FieldByName('Qty').Value; + FieldByName('Price').Value:=frmGYSFPSelList.Order_Main.FieldByName('Price').Value; + FieldByName('Money').Value:=frmGYSFPSelList.Order_Main.FieldByName('Money').Value; + FieldByName('HXQty').Value:=frmGYSFPSelList.Order_Main.FieldByName('DHXQty').Value; + FieldByName('HXMoney').Value:=frmGYSFPSelList.Order_Main.FieldByName('DHXMoney').Value; + //Post; + end; + end; + frmGYSFPSelList.Order_Main.Delete; + + end; + end; + end; + end; + finally + frmGYSFPSelList.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton5Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from FP_Money_HX '); + sql.Add(' where FHID='''+Trim(ClientDataSet2.fieldbyname('FHID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update FP_GYSNB Set '); + sql.Add(' HXQty=(select sum(isnull(HXQty,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' ,HXMoney=(select sum(isnull(HXMoney,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton1Click(Sender: TObject); +begin + if Order_Sub.IsEmpty=False then + begin + CopyAddRowCDS(Order_Sub); + end else + begin + with Order_Sub do + begin + Append; + FieldByName('FPType').Value:=''; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('FMID').Value:=Null; + FieldByName('FPNO').Value:=Null; + Post; + end; + +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FMID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete from FP_GYSNB '); // Set HXMoney=Money,FNID=Null + sql.Add(' where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + if CheckBox1.Checked=True then Exit; + FName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=ClientDataSet2.fieldbyname('HXQty').AsString; + FPrice:=ClientDataSet2.fieldbyname('Price').AsString; + FMoney:=ClientDataSet2.fieldbyname('HXMoney').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'HXMoney' then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXMoney').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FPrice)<>'0' then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXQty').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FPrice); + Post; + end; + end else + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXQty').Value:=Null; + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm new file mode 100644 index 0000000..c06f12f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm @@ -0,0 +1,738 @@ +object frmNBFPKCList: TfrmNBFPKCList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #20869#37096#21457#31080#24211#23384 + 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 = 1056 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 31 + Top = 12 + Width = 65 + Height = 12 + Caption = #25253#20851#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 = 369 + Top = 12 + Width = 65 + Height = 12 + Caption = #20869#37096#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 525 + Top = 12 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 199 + Top = 12 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGOrderNo: TEdit + Tag = 2 + Left = 97 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 435 + Top = 8 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 578 + Top = 8 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object BCOrderNoHZ: TEdit + Tag = 2 + Left = 265 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 10 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 94 + Width = 1056 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column6: TcxGridDBColumn + Caption = #25253#20851#35746#21333#21495 + DataBinding.FieldName = 'BGOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column11: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas new file mode 100644 index 0000000..ec4cd2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas @@ -0,0 +1,621 @@ +unit U_NBFPKCList; + +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, cxCheckBox, Menus; + + +type + TfrmNBFPKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BGOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label1: TLabel; + BCOrderNoHZ: TEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column16: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmNBFPKCList: TfrmNBFPKCList; + +implementation +uses + U_DataLink,U_RTFun,U_NBFPInPut,U_ModuleNote, U_ZDYHelp,U_NBFPInPutWGL; + +{$R *.dfm} + +procedure TfrmNBFPKCList.FormDestroy(Sender: TObject); +begin + frmNBFPKCList:=nil; +end; + +procedure TfrmNBFPKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNBFPKCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ڲƱ',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPKCList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),B.BGOrderNo'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' left join FP_BGOrderNo B on A.FNID=B.FNID'); + sql.Add(' where isnull(FMType,'''')=''NB'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmNBFPKCList.InitForm(); +begin + + ReadCxGrid('ڲƱ',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmNBFPKCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmNBFPInPutWGL:=TfrmNBFPInPutWGL.Create(Application); + with frmNBFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGL.Free; + end; +end; + +procedure TfrmNBFPKCList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where NBFMID='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmNBFPKCList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmNBFPKCList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ڲƱ',cxGrid1); +end; + +procedure TfrmNBFPKCList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; +procedure TfrmNBFPKCList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmNBFPKCList.TBAddClick(Sender: TObject); +begin + try + frmNBFPInPutWGL:=TfrmNBFPInPutWGL.Create(Application); + with frmNBFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGL.Free; + end; +end; + +procedure TfrmNBFPKCList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); +end; + +procedure TfrmNBFPKCList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPKCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲƱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmNBFPKCList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmNBFPKCList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''NB'' '); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmNBFPKCList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmNBFPKCList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPKCList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPKCList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPKCList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPKCList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPKCList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + + +procedure TfrmNBFPKCList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPKCList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmNBFPKCList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm new file mode 100644 index 0000000..12d8034 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm @@ -0,0 +1,806 @@ +object frmNBFPList: TfrmNBFPList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #20869#37096#21457#31080#30331#35760 + 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 = 1056 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 12 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 528 + Top = 12 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#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 = 30 + Top = 12 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 12 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 687 + Top = 12 + Width = 65 + Height = 12 + Caption = #20869#37096#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 819 + Top = 12 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 367 + Top = 12 + Width = 65 + Height = 12 + Caption = #25253#20851#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 8 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 8 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNoHZ: TEdit + Tag = 2 + Left = 593 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = BCOrderNoHZKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 8 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object FPNO: TEdit + Tag = 2 + Left = 753 + Top = 8 + Width = 64 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 872 + Top = 8 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object BGOrderNo: TEdit + Tag = 2 + Left = 432 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + OnKeyPress = BGOrderNoKeyPress + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 13 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 94 + Width = 1056 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + 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 = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column11: TcxGridDBColumn + Caption = #25253#20851#35746#21333#21495 + DataBinding.FieldName = 'BGOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#31080#31867#22411 + DataBinding.FieldName = 'FPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNoHZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column17: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler10' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime10' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 280 + Top = 184 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas new file mode 100644 index 0000000..0c4ad82 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas @@ -0,0 +1,660 @@ +unit U_NBFPList; + +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, cxCheckBox, Menus; + + +type + TfrmNBFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + BCOrderNoHZ: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label6: TLabel; + BGOrderNo: TEdit; + v1Column14: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column15: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure BCOrderNoHZKeyPress(Sender: TObject; var Key: Char); + procedure BGOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmNBFPList: TfrmNBFPList; + +implementation +uses + U_DataLink,U_RTFun,U_NBFPInPut,U_ModuleNote,U_ZDYHelp,U_NBFPInPutWGLBCOrderNo; + +{$R *.dfm} + +procedure TfrmNBFPList.FormDestroy(Sender: TObject); +begin + frmNBFPList:=nil; +end; + +procedure TfrmNBFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNBFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ڲƱб',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select FN.FNID FNID10,FN.Filler Filler10,FN.FillTime FillTime10,FN.BGOrderNo,A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_BGOrderNo FN'); + SQL.Add(' left join FP_GYSNB A on FN.FNID=A.FNID and isnull(A.FMType,'''')=''NB'''); + sql.Add(' ) AA where 1=1 '); + + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmNBFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('ڲƱб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmNBFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmNBFPInPutWGLBCOrderNo:=TfrmNBFPInPutWGLBCOrderNo.Create(Application); + with frmNBFPInPutWGLBCOrderNo do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FNID10').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGLBCOrderNo.Free; + end; +end; + +procedure TfrmNBFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; + +end; + +function TfrmNBFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FNID='''+Trim(Order_Main.fieldbyname('FNId10').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_BGOrderNo where FNId='''+Trim(Order_Main.fieldbyname('FNId10').AsString)+''''); + ExecSQL; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmNBFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ڲƱ',cxGrid1); +end; + +procedure TfrmNBFPList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; + +procedure TfrmNBFPList.TBAddClick(Sender: TObject); +begin + try + frmNBFPInPutWGLBCOrderNo:=TfrmNBFPInPutWGLBCOrderNo.Create(Application); + with frmNBFPInPutWGLBCOrderNo do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGLBCOrderNo.Free; + end; +end; + +procedure TfrmNBFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmNBFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲƱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmNBFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmNBFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select FN.FNID FNID10,FN.Filler Filler10,FN.FillTime FillTime10,FN.BGOrderNo,A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_BGOrderNo FN'); + SQL.Add(' left join FP_GYSNB A on FN.FNID=A.FNID and isnull(A.FMType,'''')=''NB'''); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmNBFPList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmNBFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPList.BCOrderNoHZKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BCOrderNoHZ.Text))<3 then Exit; + fsj:=' and AA.BCOrderNoHZ like '''+'%'+Trim(BCOrderNoHZ.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmNBFPList.BGOrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BGOrderNo.Text))<3 then Exit; + fsj:=' and AA.BGOrderNo like '''+'%'+Trim(BGOrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; +procedure TfrmNBFPList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmNBFPList.v1Column15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmNBFPList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm new file mode 100644 index 0000000..361d7bb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm @@ -0,0 +1,603 @@ +object frmOldOrderNOCKList: TfrmOldOrderNOCKList + Left = 166 + Top = 97 + Width = 1191 + Height = 511 + Caption = #32769#21333#21495#24067#21305#20837#24211#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 = 1175 + 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_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 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 = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + 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 Label3: TLabel + Left = 357 + Top = 12 + Width = 36 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 507 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label6: TLabel + Left = 507 + Top = 36 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 651 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 651 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 179 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object Label10: TLabel + Left = 779 + Top = 12 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 393 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 544 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 393 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object SPSpec: TEdit + Tag = 2 + Left = 544 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 677 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 677 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #25104#21697 + #21322#25104#21697 + #27425#21697 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 805 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1Column15: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column11: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 586 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 552 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas new file mode 100644 index 0000000..9942a65 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas @@ -0,0 +1,422 @@ +unit U_OldOrderNOCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmOldOrderNOCKList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPSpec: TEdit; + Label7: TLabel; + SPMF: TEdit; + Label9: TLabel; + SPKZ: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + KuWei: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmOldOrderNOCKList: TfrmOldOrderNOCKList; + +implementation +uses + U_DataLink,U_RTFun,U_OldOrderNoInPut; + +{$R *.dfm} + +procedure TfrmOldOrderNOCKList.FormDestroy(Sender: TObject); +begin + frmOldOrderNOCKList:=nil; +end; + +procedure TfrmOldOrderNOCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOldOrderNOCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmOldOrderNOCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')=''ϵ'' '); + SQL.Add(' and CRFlag='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOldOrderNOCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmOldOrderNOCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmOldOrderNOCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ϵб',Tv1,'ϵŲֿ'); + Close; +end; + +procedure TfrmOldOrderNOCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ϵб',Tv1,'ϵŲֿ'); + //InitGrid(); +end; + +procedure TfrmOldOrderNOCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ϵб',cxGrid2); +end; + +procedure TfrmOldOrderNOCKList.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 TfrmOldOrderNOCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmOldOrderNOCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmOldOrderNOCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmOldOrderNOCKList.ToolButton1Click(Sender: TObject); +begin + try + frmOldOrderNoInPut:=TfrmOldOrderNoInPut.Create(Application); + with frmOldOrderNoInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmOldOrderNoInPut.Free; + end; +end; + +procedure TfrmOldOrderNOCKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmOldOrderNoInPut:=TfrmOldOrderNoInPut.Create(Application); + with frmOldOrderNoInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmOldOrderNoInPut.Free; + end; +end; + +procedure TfrmOldOrderNOCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmOldOrderNOCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmOldOrderNOCKList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_SXPB_CR '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker=NUll'); + SQL.Add(',SChkTime=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmOldOrderNOCKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm new file mode 100644 index 0000000..8861714 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm @@ -0,0 +1,324 @@ +object frmOldOrderNoInPut: TfrmOldOrderNoInPut + Left = 39 + Top = 128 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32769#21333#21495#24067#21305#20837#24211 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #25104#21697 + #21322#25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas new file mode 100644 index 0000000..9f17384 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas @@ -0,0 +1,586 @@ +unit U_OldOrderNoInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmOldOrderNoInPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQuery1: TADOQuery; + v1Column8: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmOldOrderNoInPut: TfrmOldOrderNoInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmOldOrderNoInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOldOrderNoInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmOldOrderNoInPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + end else + begin + FCRID:=Trim(ADOQuery1.fieldbyname('CRID').AsString); + end; + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ϵ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=CDS_Sub.fieldbyname('SPSpec').Value; + FieldByName('SPMF').Value:=CDS_Sub.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=CDS_Sub.fieldbyname('SPKZ').Value; + FieldByName('SPColor').Value:=CDS_Sub.fieldbyname('SPColor').Value; + FieldByName('SPHX').Value:=CDS_Sub.fieldbyname('SPHX').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'OR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + {if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; } + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:='ϵ'; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SX_CR',2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmOldOrderNoInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ϵǼ',Tv1,'ϵŲֿ'); + Close; +end; + +procedure TfrmOldOrderNoInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ϵǼ',Tv1,'ϵŲֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmOldOrderNoInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmOldOrderNoInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BatchNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPType',null,[])=True then + begin + Application.MessageBox('ƥͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPMF',null,[])=True then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPKZ',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('CostPrice',null,[])=True then + begin + Application.MessageBox('ɱΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;Price',VarArrayOf(['',Null]),[loPartialKey])=True then + begin + Application.MessageBox('ݣɹӹ۲Ϊ!','ʾ',0); + Exit; + end;} + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPPBName'; + flagname:='ƥ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + v2Column3.Options.Focusing:=False; + end else + begin + v2Column3.Options.Focusing:=True; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKuWei'; + flagname:='ϵſλ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm new file mode 100644 index 0000000..bddce05 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm @@ -0,0 +1,1250 @@ +object frmOrdCostList: TfrmOrdCostList + Left = 36 + Top = 5 + Width = 1302 + Height = 705 + Align = alClient + Caption = #35746#21333#32467#31639 + 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 = 1294 + 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_CYZZ.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 = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1294 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 318 + Top = 11 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 11 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 32 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 176 + Top = 11 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 176 + Top = 32 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 628 + Top = 8 + Width = 77 + Height = 16 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 710 + Top = 8 + Width = 45 + Height = 16 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 768 + Top = 8 + Width = 111 + Height = 16 + Caption = #25163#24037#35745#31639#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 953 + Top = 8 + Width = 9 + Height = 16 + Caption = '%' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 450 + Top = 8 + Width = 94 + Height = 16 + Caption = #31995#32479#25968#37327#24046':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 549 + Top = 8 + Width = 63 + Height = 16 + Caption = 'HZSHQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 367 + Top = 7 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 7 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 28 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 226 + Top = 7 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 226 + Top = 28 + Width = 78 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + object SGJSSH: TEdit + Left = 879 + Top = 5 + Width = 70 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object Button1: TButton + Left = 970 + Top = 5 + Width = 45 + Height = 25 + Caption = #30830#23450 + TabOrder = 6 + Visible = False + OnClick = Button1Click + end + end + object ScrollBox1: TScrollBox + Left = 201 + Top = 85 + Width = 682 + Height = 589 + Align = alLeft + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 678 + Height = 141 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 30 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 37 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 44 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 314 + Width = 678 + Height = 158 + Align = alBottom + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 32 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 35 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 40 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 149 + Width = 678 + Height = 165 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v2Column2: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 472 + Width = 678 + Height = 113 + Align = alBottom + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 49 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object cxSplitter4: TcxSplitter + Left = 0 + Top = 141 + Width = 678 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + end + object Panel2: TPanel + Left = 891 + Top = 85 + Width = 403 + Height = 589 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 399 + Height = 585 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 85 + Width = 201 + Height = 589 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 197 + Height = 585 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 883 + Top = 85 + Width = 8 + Height = 589 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox1 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 701 + Top = 145 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas new file mode 100644 index 0000000..02477a2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas @@ -0,0 +1,619 @@ +unit U_OrdCostList; //20 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + ToolButton1: TToolButton; + Panel2: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column1: TcxGridDBColumn; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + cxSplitter2: TcxSplitter; + Label4: TLabel; + SGJSSH: TEdit; + Button1: TButton; + Label6: TLabel; + Label8: TLabel; + HZSHQty: TLabel; + v7Column2: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxSplitter4: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostList: TfrmOrdCostList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostList.FormDestroy(Sender: TObject); +begin + frmOrdCostList:=nil; +end; + +procedure TfrmOrdCostList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH,A.Filler from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + + finally + ADOQueryMain.EnableControls; + end; + + //TBFind.Click; +end; + +procedure TfrmOrdCostList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бa2',Tv1,''); + WriteCxGrid('뵥a2',Tv2,''); + WriteCxGrid('ڲֿa2',Tv3,''); + WriteCxGrid('1',Tv7,''); + WriteCxGrid('',Tv0,''); + Close; +end; + +procedure TfrmOrdCostList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostList.FormShow(Sender: TObject); +begin + READCxGrid('бa2',Tv1,''); + READCxGrid('뵥a2',Tv2,''); + READCxGrid('ڲֿa2',Tv3,''); + READCxGrid('1',Tv7,''); + READCxGrid('',Tv0,''); +end; + +procedure TfrmOrdCostList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet1.IsEmpty then Exit; + { fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + +end; +procedure TfrmOrdCostList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); +end; + +procedure TfrmOrdCostList.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet0.IsEmpty then Exit; + {if Trim(DName)<>Trim(ClientDataSet0.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˶!','ʾ',0); + Exit; + end; } + if Trim(SGJSSH.Text)<>'' then + begin + if TryStrToFloat(SGJSSH.Text,FReal)=False then + begin + Application.MessageBox('ֹķǷ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(SGJSSH.Text)<>'' then + sql.Add('Update JYOrder_Main Set SGJSSH='+SGJSSH.Text) + else + sql.Add('Update JYOrder_Main Set SGJSSH=NULL'); + sql.Add(' where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + Edit; + if Trim(SGJSSH.Text)<>'' then + FieldByName('SGJSSH').Value:=SGJSSH.Text + else + FieldByName('SGJSSH').Value:=null; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm new file mode 100644 index 0000000..95cc937 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm @@ -0,0 +1,1354 @@ +object frmOrdCostQtyList: TfrmOrdCostQtyList + Left = 28 + Top = 13 + Width = 1302 + Height = 705 + Caption = #35746#21333#32467#31639#21333 + 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 = 1286 + 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_CYZZ.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 = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1286 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 591 + Top = 9 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 9 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 9 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 279 + Top = 9 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 458 + Top = 9 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 640 + Top = 5 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 5 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 5 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 329 + Top = 5 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 505 + Top = 5 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object Panel2: TPanel + Left = 903 + Top = 62 + Width = 383 + Height = 604 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label4: TLabel + Left = 39 + Top = 408 + Width = 95 + Height = 20 + Caption = #35746#21333#25104#26412':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 39 + Top = 444 + Width = 105 + Height = 20 + Caption = #20854#23427#36153#29992#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 39 + Top = 480 + Width = 106 + Height = 20 + Caption = #24635' '#25968' '#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 39 + Top = 517 + Width = 105 + Height = 20 + Caption = #24179#22343#21333#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 39 + Top = 334 + Width = 95 + Height = 20 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 151 + Top = 334 + Width = 55 + Height = 20 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object OrdCost: TLabel + Left = 151 + Top = 408 + Width = 77 + Height = 20 + Caption = 'OrdCost' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object QTFee: TLabel + Left = 151 + Top = 444 + Width = 55 + Height = 20 + Caption = 'QTFee' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object HZQty: TLabel + Left = 151 + Top = 480 + Width = 55 + Height = 20 + Caption = 'HZQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object AVGPrice: TLabel + Left = 151 + Top = 517 + Width = 88 + Height = 20 + Caption = 'AVGPrice' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label9: TLabel + Left = 39 + Top = 371 + Width = 95 + Height = 20 + Caption = #25163#24037#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object SGJSSH: TLabel + Left = 151 + Top = 371 + Width = 66 + Height = 20 + Caption = 'SGJSSH' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label12: TLabel + Left = 39 + Top = 298 + Width = 95 + Height = 20 + Caption = #25968#37327#24046#20540':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 151 + Top = 298 + Width = 55 + Height = 20 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 379 + Height = 287 + Align = alTop + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn33 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ScrollBox1: TScrollBox + Left = 233 + Top = 62 + Width = 662 + Height = 604 + Align = alClient + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 658 + Height = 169 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 43 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v3Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'MDMoney' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 318 + Width = 658 + Height = 158 + Align = alTop + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column5 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = v3Column13 + end + item + Kind = skSum + Column = v3Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #35746#21333#27531#20540 + DataBinding.FieldName = 'ORDSSMoney' + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 60 + end + object v3Column12: TcxGridDBColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + Width = 72 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'KKZZR' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column14: TcxGridDBColumn + Caption = #36131#20219#24037#21378#25187#27454 + DataBinding.FieldName = 'KKZZC' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 84 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 169 + Width = 658 + Height = 149 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 476 + Width = 658 + Height = 124 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 57 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 71 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v5Column6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 174 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 62 + Width = 225 + Height = 604 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 221 + Height = 600 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter1: TcxSplitter + Left = 225 + Top = 62 + Width = 8 + Height = 604 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel3 + end + object cxSplitter2: TcxSplitter + Left = 895 + Top = 62 + Width = 8 + Height = 604 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel2 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 728 + Top = 176 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas new file mode 100644 index 0000000..f63dfe7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas @@ -0,0 +1,654 @@ +unit U_OrdCostQtyList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostQtyList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Panel2: TPanel; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label8: TLabel; + Label10: TLabel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + OrdCost: TLabel; + QTFee: TLabel; + HZQty: TLabel; + AVGPrice: TLabel; + ToolButton1: TToolButton; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + Label9: TLabel; + SGJSSH: TLabel; + Label12: TLabel; + HZSHQty: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostQtyList: TfrmOrdCostQtyList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostQtyList.FormDestroy(Sender: TObject); +begin + frmOrdCostQtyList:=nil; +end; + +procedure TfrmOrdCostQtyList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostQtyList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrdCostQtyList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostQtyList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бQty',Tv1,''); + WriteCxGrid('뵥Qty',Tv2,''); + WriteCxGrid('ڲֿQty',Tv3,''); + WriteCxGrid('Qty',Tv7,''); + WriteCxGrid('Qty',Tv7,''); + Close; +end; + +procedure TfrmOrdCostQtyList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostQtyList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostQtyList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostQtyList.FormShow(Sender: TObject); +begin + READCxGrid('бQty',Tv1,''); + READCxGrid('뵥Qty',Tv2,''); + READCxGrid('ڲֿQty',Tv3,''); + READCxGrid('Qty',Tv7,''); + READCxGrid('Qty',Tv7,''); +end; + +procedure TfrmOrdCostQtyList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj,MDMoney,OrdCC,ZZFty,QQFee,FHZQty:string; +begin + if ClientDataSet1.IsEmpty then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + {ClientDataSet5.Locate('PSName','װ',[]); + FHZQty:=Trim(ClientDataSet5.fieldbyname('SJQty').AsString); + if FHZQty='' then FHZQty:='0'; + MDMoney:=Tv1.DataController.Summary.FooterSummaryTexts[2]; + if Trim(MDMoney)='' then MDMoney:='0'; + OrdCC:=Tv3.DataController.Summary.FooterSummaryTexts[0]; + if Trim(OrdCC)='' then OrdCC:='0'; + ZZFty:=Tv3.DataController.Summary.FooterSummaryTexts[4]; + if Trim(ZZFty)='' then ZZFty:='0'; + QQFee:=Tv7.DataController.Summary.FooterSummaryTexts[2]; + if Trim(QQFee)='' then QQFee:='0'; + OrdCost.Visible:=True; + QTFee.Visible:=True; + HZQty.Visible:=True; + OrdCost.Caption:=FloatToStr(StrToFloat(MDMoney)-StrToFloat(OrdCC)-StrToFloat(ZZFty)); + QTFee.Caption:=QQFee; + HZQty.Caption:=FHZQty; + if StrToFloat(FHZQty)>0 then + begin + + AVGPrice.Caption:=FloatToStr((StrToFloat(OrdCost.Caption)+StrToFloat(QTFee.Caption))*1.00/StrToFloat(FHZQty)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA=Cast(:AVGPrice as decimal(18,2))'); + Parameters.ParamByName('AVGPrice').Value:=AVGPrice.Caption; + Open; + end; + + AVGPrice.Caption:=ADOQueryTemp.fieldbyname('AA').AsString; + AVGPrice.Visible:=True; + end; } +end; +procedure TfrmOrdCostQtyList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_Fee where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostQtyList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostQtyList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostQtyList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostQtyList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostQtyList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostQtyList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostQtyList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj,MDMoney,OrdCC,ZZFty,QQFee,FHZQty:string; +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Caption:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString)+'%'; + SGJSSH.Visible:=True; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainId :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); + ClientDataSet5.Locate('PSName','װ',[]); + FHZQty:=Trim(ClientDataSet5.fieldbyname('SJQty').AsString); + if FHZQty='' then FHZQty:='0'; + MDMoney:=Tv1.DataController.Summary.FooterSummaryTexts[2]; + if Trim(MDMoney)='' then MDMoney:='0'; + OrdCC:=Tv3.DataController.Summary.FooterSummaryTexts[0]; + if Trim(OrdCC)='' then OrdCC:='0'; + ZZFty:=Tv3.DataController.Summary.FooterSummaryTexts[4]; + if Trim(ZZFty)='' then ZZFty:='0'; + QQFee:=Tv7.DataController.Summary.FooterSummaryTexts[2]; + if Trim(QQFee)='' then QQFee:='0'; + OrdCost.Visible:=True; + QTFee.Visible:=True; + HZQty.Visible:=True; + OrdCost.Caption:=FloatToStr(StrToFloat(MDMoney)-StrToFloat(OrdCC)-StrToFloat(ZZFty)); + QTFee.Caption:=QQFee; + HZQty.Caption:=FHZQty; + if StrToFloat(FHZQty)>0 then + begin + + AVGPrice.Caption:=FloatToStr((StrToFloat(OrdCost.Caption)+StrToFloat(QTFee.Caption))*1.00/StrToFloat(FHZQty)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA=Cast(:AVGPrice as decimal(18,2))'); + Parameters.ParamByName('AVGPrice').Value:=AVGPrice.Caption; + Open; + end; + + AVGPrice.Caption:=ADOQueryTemp.fieldbyname('AA').AsString; + AVGPrice.Visible:=True; + end else + begin + AVGPrice.Caption:=''; + end; + if ClientDataSet1.IsEmpty then + begin + AVGPrice.Caption:=''; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm new file mode 100644 index 0000000..35c6e38 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm @@ -0,0 +1,1300 @@ +object frmOrdCostZHList: TfrmOrdCostZHList + Left = 58 + Top = 0 + Width = 1302 + Height = 705 + Caption = #35746#21333#32467#31639'('#21512#24182#32467#31639')' + 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 = 1286 + 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_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 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 + Visible = False + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #21512#24182#32467#31639 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1286 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 318 + Top = 11 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 11 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 32 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 176 + Top = 11 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 176 + Top = 32 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 628 + Top = 8 + Width = 77 + Height = 16 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 710 + Top = 8 + Width = 45 + Height = 16 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 768 + Top = 8 + Width = 111 + Height = 16 + Caption = #25163#24037#35745#31639#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 953 + Top = 8 + Width = 9 + Height = 16 + Caption = '%' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 450 + Top = 8 + Width = 94 + Height = 16 + Caption = #31995#32479#25968#37327#24046':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 549 + Top = 8 + Width = 63 + Height = 16 + Caption = 'HZSHQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 367 + Top = 7 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 7 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 28 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 226 + Top = 7 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 226 + Top = 28 + Width = 78 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + object SGJSSH: TEdit + Left = 879 + Top = 5 + Width = 70 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object Button1: TButton + Left = 970 + Top = 5 + Width = 45 + Height = 25 + Caption = #30830#23450 + TabOrder = 6 + Visible = False + OnClick = Button1Click + end + end + object ScrollBox1: TScrollBox + Left = 306 + Top = 85 + Width = 682 + Height = 581 + Align = alLeft + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 678 + Height = 133 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 30 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 37 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 44 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 306 + Width = 678 + Height = 158 + Align = alBottom + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 32 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 35 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 40 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 141 + Width = 678 + Height = 165 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v2Column2: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 464 + Width = 678 + Height = 113 + Align = alBottom + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 49 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object cxSplitter4: TcxSplitter + Left = 0 + Top = 133 + Width = 678 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object Panel4: TPanel + Left = 215 + Top = 86 + Width = 239 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#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 + end + object Panel2: TPanel + Left = 996 + Top = 85 + Width = 290 + Height = 581 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 286 + Height = 577 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, 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 + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + 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 + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_DDMD.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_DDMD.FoneRed + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 85 + Width = 298 + Height = 581 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 294 + Height = 577 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v0Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 34 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 129 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 988 + Top = 85 + Width = 8 + Height = 581 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox1 + end + object cxSplitter1: TcxSplitter + Left = 298 + Top = 85 + Width = 8 + Height = 581 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel3 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 701 + Top = 145 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas new file mode 100644 index 0000000..6df0500 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas @@ -0,0 +1,786 @@ +unit U_OrdCostZHList; //26 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostZHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + ToolButton1: TToolButton; + Panel2: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column1: TcxGridDBColumn; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + cxSplitter2: TcxSplitter; + Label4: TLabel; + SGJSSH: TEdit; + Button1: TButton; + Label6: TLabel; + Label8: TLabel; + HZSHQty: TLabel; + v7Column2: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxSplitter4: TcxSplitter; + ToolButton2: TToolButton; + v0Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + Panel4: TPanel; + cxSplitter1: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + procedure InitHZSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostZHList: TfrmOrdCostZHList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostZHList.FormDestroy(Sender: TObject); +begin + frmOrdCostZHList:=nil; +end; + +procedure TfrmOrdCostZHList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostZHList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode),A.MPRTCodeName,A.OrderNo,A.SGJSSH,A.Filler from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + SQL.Add(' and OrderNo not like ''KC%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + + finally + ADOQueryMain.EnableControls; + end; + + //TBFind.Click; +end; + +procedure TfrmOrdCostZHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostZHList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бa2',Tv1,''); + WriteCxGrid('뵥a2',Tv2,''); + WriteCxGrid('ڲֿa2',Tv3,''); + WriteCxGrid('1',Tv7,''); + WriteCxGrid('',Tv0,''); + Close; +end; + +procedure TfrmOrdCostZHList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostZHList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostZHList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostZHList.FormShow(Sender: TObject); +begin + READCxGrid('бa2',Tv1,''); + READCxGrid('뵥a2',Tv2,''); + READCxGrid('ڲֿa2',Tv3,''); + READCxGrid('1',Tv7,''); + READCxGrid('',Tv0,''); +end; + +procedure TfrmOrdCostZHList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet1.IsEmpty then Exit; + { fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + +end; +procedure TfrmOrdCostZHList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,JM.OrderNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main JM on A.OrdMainid=JM.MainId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; +procedure TfrmOrdCostZHList.InitHZSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,JM.OrderNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main JM on A.OrdMainid=JM.MainId'); + sql.Add(' where A.ORDMainId in (select MainId from JS_User_MainId where UserName='''+Trim(DName)+''')'); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostZHList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostZHList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostZHList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostZHList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostZHList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostZHList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostZHList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); +end; + +procedure TfrmOrdCostZHList.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet0.IsEmpty then Exit; + {if Trim(DName)<>Trim(ClientDataSet0.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˶!','ʾ',0); + Exit; + end; } + if Trim(SGJSSH.Text)<>'' then + begin + if TryStrToFloat(SGJSSH.Text,FReal)=False then + begin + Application.MessageBox('ֹķǷ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(SGJSSH.Text)<>'' then + sql.Add('Update JYOrder_Main Set SGJSSH='+SGJSSH.Text) + else + sql.Add('Update JYOrder_Main Set SGJSSH=NULL'); + sql.Add(' where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + Edit; + if Trim(SGJSSH.Text)<>'' then + FieldByName('SGJSSH').Value:=SGJSSH.Text + else + FieldByName('SGJSSH').Value:=null; + Post; + end; +end; + +procedure TfrmOrdCostZHList.ToolButton2Click(Sender: TObject); +var + fsj:string; + i:Integer; +begin + if ClientDataSet0.IsEmpty then Exit; + if ClientDataSet0.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JS_User_MainId where UserName='''+Trim(DName)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'1']),[loPartialKey])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into JS_User_MainId select '''+Trim(DName)+''','''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + // sql.Add('insert into JS_User_MainId select :UserName,:Mainid'); + //ShowMessage(sql.Text); + ExecSQL; + end; + Edit; + FieldByName('SFlag').Value:='9'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select PSXH,PSName,PSSH,MFQty,KZQty,KgZM from JYOrder_Process where Mainid in (select Mainid from JS_User_MainId where UserName='''+Trim(DName)+''')'); + sql.Add(' group by PSXH,PSName,PSSH,MFQty,KZQty,KgZM'); + Open; + end; + i:=ADOQueryTemp.RecordCount; + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'9']),[loPartialKey])=True do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select PSXH,PSName,PSSH,MFQty,KZQty,KgZM from JYOrder_Process where Mainid='''+Trim(ClientDataSet0.fieldbyname('Mainid').AsString)+''''); + sql.Add(' group by PSXH,PSName,PSSH,MFQty,KZQty,KgZM'); + Open; + end; + if ADOQueryTemp.RecordCount<>i then + begin + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'9']),[loPartialKey])=True do + begin + Edit; + FieldByName('SFlag').Value:='1'; + Post; + end; + end; + Application.MessageBox('дϢͬܺϲ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('SFlag').Value:='1'; + Post; + end; + end; + Panel4.Visible:=True; + Panel4.Refresh; + //SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitHZSubGrid(); + Panel4.Visible:=False; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm new file mode 100644 index 0000000..89b9746 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm @@ -0,0 +1,2854 @@ +object frmOrderInPut: TfrmOrderInPut + Left = 27 + Top = 28 + Width = 1309 + Height = 695 + Align = alClient + Caption = #25351#31034#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + 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_PBMDDJ.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 ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 627 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 627 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 277 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 107 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 6 + Top = 0 + Width = 103 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + object ToolButton23: TToolButton + Left = 316 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 39 + OnClick = ToolButton23Click + end + object Panel5: TPanel + Left = 399 + Top = 0 + Width = 288 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label40: TLabel + Left = 9 + Top = 8 + Width = 48 + Height = 12 + Caption = #36192#36865#21333#20301 + end + object Label41: TLabel + Left = 122 + Top = 8 + Width = 48 + Height = 12 + Caption = #22810#25340#20449#24687 + end + object Edit1: TEdit + Left = 171 + Top = 4 + Width = 106 + Height = 20 + TabOrder = 0 + end + object ComboBox1: TComboBox + Left = 59 + Top = 4 + Width = 58 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M' + 'Y' + '') + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 308 + Width = 1293 + Height = 296 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 277 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + 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 Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#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 = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#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 = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 27 + Top = 256 + Width = 66 + Height = 12 + Caption = #31354#30333#26631#31614'>>' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 95 + Top = 256 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 291 + Top = 256 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label38: TLabel + Left = 495 + Top = 256 + Width = 39 + Height = 12 + Caption = #21367#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label39: TLabel + Left = 578 + Top = 256 + Width = 28 + Height = 12 + Caption = '----' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 693 + Height = 92 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + object LabNote1: TEdit + Left = 163 + Top = 252 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 18 + Visible = False + end + object LabNote2: TEdit + Left = 359 + Top = 252 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 19 + Visible = False + end + object RollBeg: TEdit + Left = 531 + Top = 252 + Width = 46 + Height = 20 + CharCase = ecUpperCase + TabOrder = 20 + Visible = False + end + object RollEnd: TEdit + Left = 609 + Top = 252 + Width = 46 + Height = 20 + CharCase = ecUpperCase + TabOrder = 21 + Visible = False + end + object Button1: TButton + Left = 713 + Top = 250 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 22 + Visible = False + OnClick = Button1Click + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 604 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 204 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = -1 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 201 + Top = 69 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#31859 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 16 + Top = 69 + Width = 86 + Height = 12 + Caption = #25240' '#31639' '#31995' '#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 375 + Top = 69 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object KgZMiXs: TEdit + Tag = 2 + Left = 97 + Top = 65 + Width = 103 + Height = 20 + TabOrder = 6 + end + object KgZMaXs: TEdit + Tag = 2 + Left = 271 + Top = 65 + Width = 103 + Height = 20 + TabOrder = 7 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = -3 + Top = 368 + Width = 465 + Height = 225 + ActivePage = cxTabSheet5 + Style = 8 + TabOrder = 4 + ClientRectBottom = 225 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 5 + Top = 2 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 202 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 202 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + 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 = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + object ToolButton22: TToolButton + Left = 126 + Top = 0 + Caption = #25171#21360#29983#20135#32771#26680#34920 + ImageIndex = 14 + OnClick = ToolButton22Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #27599#20844#26020'/'#31859 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 435 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 151 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + 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_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 83 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column4: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v5Column5: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 207 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + 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 + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 88 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object v6Column4: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v6Column5: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #35843#33410#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 184 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 435 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#35746#21333#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 182 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 395 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 400 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + 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_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992#30331#35760 + ImageIndex = 3 + object cxGrid7: TcxGrid + Left = 65 + Top = 0 + Width = 1228 + Height = 604 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnMouseUp = Tv7MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v7Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v7Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn30PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 81 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn31PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn32PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v7Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'JFQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 131 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + object ToolBar6: TToolBar + Left = 0 + Top = 0 + Width = 65 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton14: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton14Click + end + object ToolButton15: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton15Click + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 604 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + 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 + Format = '0' + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 296 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 152 + Top = 572 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 663 + Top = 407 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 780 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 824 + Top = 545 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1144 + Top = 508 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 517 + Top = 412 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 609 + Top = 406 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 556 + Top = 405 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 5 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 632 + Top = 5 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 466 + Top = 141 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 394 + Top = 138 + ReportData = {} + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 362 + Top = 138 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 428 + Top = 140 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 533 + Top = 142 + 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 = 464 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Sub + Left = 648 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas new file mode 100644 index 0000000..4849fe9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas @@ -0,0 +1,3940 @@ +unit U_OrderInPut; + +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, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport, RM_Dataset; + +type + TfrmOrderInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + cxTabSheet4: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ToolBar6: TToolBar; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet9: TClientDataSet; + v6Column4: TcxGridDBColumn; + v6Column5: TcxGridDBColumn; + KgZMiXs: TEdit; + Label34: TLabel; + Label35: TLabel; + Label32: TLabel; + KgZMaXs: TEdit; + ToolButton22: TToolButton; + ADOQueryPrint: TADOQuery; + RM1: TRMGridReport; + CDS_Print: TClientDataSet; + RMXLSExport1: TRMXLSExport; + RMDBMain: TRMDBDataSet; + Label33: TLabel; + LabNote1: TEdit; + Label36: TLabel; + LabNote2: TEdit; + Label37: TLabel; + RollBeg: TEdit; + Label38: TLabel; + RollEnd: TEdit; + Label39: TLabel; + Button1: TButton; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + ToolButton23: TToolButton; + Panel5: TPanel; + Label40: TLabel; + Edit1: TEdit; + Label41: TLabel; + ComboBox1: TComboBox; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton14Click(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton15Click(Sender: TObject); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton22Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v7Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv7MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton23Click(Sender: TObject); + private + CanShu1,CanShu2:String; + FJSFlag:Boolean; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + function UpdateTJCKQtyOne(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt,JYInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPut: TfrmOrderInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼1',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPut.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + if Trim(CanShu1)<>'Ȩ' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + end; + + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼1',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + FJSFlag:=ADOQuery1.FieldByName('JSFlag').AsBoolean; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); +end; + +procedure TfrmOrderInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmOrderInPut.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,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 JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('MFQty',Null,[])=True then + begin + Application.MessageBox('еŷΪ!','ʾ',0); + exit; + end; + if CDS_JGLC.Locate('KZQty',Null,[])=True then + begin + Application.MessageBox('еĿزΪ!','ʾ',0); + exit; + end; + end; + if Trim(KgZMiXs.Text)<>'' then + begin + if TryStrToFloat(KgZMiXs.Text,FReal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPut.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPut.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPut.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPut.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('ѰŲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPut.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPut.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPut.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPut.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + 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 JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPut.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPut.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + fsj:='99'; + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + with Self.ClientDataSet6 do + begin + First; + while not Eof do + begin + Self.ClientDataSet6.Delete; + end; + end; + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with Self.ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + {if Trim(Self.ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + sql.Add('where A.PFID='''+Trim(Self.ClientDataSet5.fieldbyname('PFID').AsString)+'''') + else } + sql.Add(' where 1<>1'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(Self.ADOQueryTemp,Self.ClientDataSet6); + SInitCDSData20(Self.ADOQueryTemp,Self.ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=StrToFloat(frmTJCKKC.DRPS.Text); + FieldByName('CKQty').Value:=StrToFloat(frmTJCKKC.DRQty.Text); + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if Trim(fsj)<>'99' then Exit; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; + DRInt:=99; + ToolButton9.Click; + DRInt:=0; +end; + +procedure TfrmOrderInPut.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' left join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPut.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPut.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + + {if ClientDataSet5.Locate('PFDlyDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; } + if DRInt<>99 then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end; + end; + + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; + + if UpdateTJCKQtyOne(Trim(maxno)) then + begin + + end else + begin + ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end; + + ADOCmd.Connection.CommitTrans; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if DRInt<>99 then + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPut.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + //жϹǷԶ뵥 + {BDInt:=CDS_JGLC.fieldbyname('PSXH').AsInteger; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + CPInt:=ADOTemp.fieldbyname('PSXH').AsInteger + else + CPInt:=-1; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + //JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + if ADOTemp.IsEmpty=False then + begin + JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + end else + begin + JYInt:=-1; + end; + if BDInt-1 then + begin + if BDInt+1-1 then + begin + Exit; + end;} + //жϹǷԶ뵥 + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and Qty>0'); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + //FieldByName('ConMainID').Value:=Trim(FConMainId); + //FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='NM'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + //FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + //FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + Result:=True; + +end; +function TfrmOrderInPut.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select RKQty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('RKQty').Value; + if FMDQty''ڲֿ'' ),'); + sql.Add('SJCKQty=(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_Main_MD_Out.PFID and isnull(A.CKName,'''')<>''ڲֿ'' )'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + //ʵʳƥ + //ԭʼTJ뵥ijƥ + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(FMDID)+''''); + ExecSQL; + end; + //ԭʼTJ뵥ijƥ + Result:=True; +end; + +procedure TfrmOrderInPut.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + if Trim(CanShu2)='ֿ' then + begin + TBSave.Visible:=false; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + end; +end; + +procedure TfrmOrderInPut.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPut.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPut.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPut.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPut.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton14Click(Sender: TObject); +var + FPS,FJZ,XSJZ:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Count(*),0) PS from WFB_MJJY where Mainid='''+Trim(FMainId)+''''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Sum(MJQty4),0) JZ from WFB_MJJY where Mainid='''+Trim(FMainId)+''''); + Open; + end; + FJZ:=ADOQueryTemp.fieldbyname('JZ').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Sum(Qty),0) XSJZ from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + SQL.Add(' and FactoryNo='''+Trim('GS131221001')+''''); + Open; + end; + XSJZ:=ADOQueryTemp.fieldbyname('XSJZ').Value; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet7 do + begin + Append; + FieldByName('JFDate').Value:=Now; + FieldByName('JFName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ֿװ' then + begin + FieldByName('JFQty').Value:=FJZ; + FieldByName('JFPrice').Value:=0.3; + FieldByName('JFMoney').Value:=0.3*FJZ; + end else + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ֽ' then + begin + FieldByName('JFQty').Value:=FPS; + //FieldByName('JFPrice').Value:=0.3; + //FieldByName('JFMoney').Value:=0.3*FJZ; + end else + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ɴ' then + begin + FieldByName('JFQty').Value:=XSJZ; + //FieldByName('JFPrice').Value:=0.3; + //FieldByName('JFMoney').Value:=0.3*FJZ; + end; + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton15Click(Sender: TObject); +begin + if ClientDataSet7.IsEmpty then Exit; + if Trim(ClientDataSet7.fieldbyname('JFID').AsString)<>'' then + begin + if Trim(ClientDataSet7.fieldbyname('Filler').AsString)<>Trim(DName) 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 JYOrder_Main_Fee where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet7.Delete; +end; + +procedure TfrmOrderInPut.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPut.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPut.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 TfrmOrderInPut.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 ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd 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(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPut.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_PBMDDJ) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPut.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and (isnull(ConSubId,'''')<>'''' '); + sql.Add(' or MDNO like ''MD%'') '); + 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(' Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select isnull(Sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + sql.Add(' ,CKQty=(select isnull(Sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where'); + sql.Add(' isnull(B.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + UpdateTJCKQty(Trim(ClientDataSet5.fieldbyname('PFID').AsString)); + end; + ClientDataSet5.Delete; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Update_TJCKQty'); + ExecSQL; + end; +end; + +procedure TfrmOrderInPut.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPut.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton22Click(Sender: TObject); +var + fPrintFile:string; +begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\˱.rmf'; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['PFGenDanPerson']:=CDS_JGC.fieldbyname('PFGenDanPerson').Value; + RMVariables['PSName']:=CDS_JGLC.fieldbyname('PSName').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\˱.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmOrderInPut.Button1Click(Sender: TObject); +var + fPrintFile:String; + FReal:Integer; + i:Integer; +begin + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Trim(RollBeg.Text)='' then + begin + Application.MessageBox('ֹŲΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(RollBeg.Text),FReal)=False then + begin + Application.MessageBox('ֹŷǷ!','ʾ',0); + Exit; + end; + if Trim(RollEnd.Text)='' then + begin + Application.MessageBox('ֹŲΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(RollEnd.Text),FReal)=False then + begin + Application.MessageBox('ֹŷǷ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + for i:=StrToInt(RollBeg.Text) to StrToInt(RollEnd.Text) do + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RMVariables['RollNo']:=i; + RMVariables['DESNO']:=Trim(Order_Sub.fieldbyname('PRTHX').AsString); + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end; + + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + +procedure TfrmOrderInPut.v7Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.Tv7MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(ClientDataSet7.fieldbyname('Chker').asstring)<>'' then + begin + Tv7.OptionsSelection.CellSelect:=False; + ToolButton15.Enabled:=False; + end else + begin + Tv7.OptionsSelection.CellSelect:=True; + ToolButton15.Enabled:=True; + end; +end; + +procedure TfrmOrderInPut.ToolButton23Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('δ治Ԥǩ!','ʾ',0); + Exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable_View :SubId,:ZSUnit,:DuoPinNote'); + Parameters.ParamByName('SubId').Value:=Trim(Order_Sub.fieldbyname('SubId').AsString); + Parameters.ParamByName('ZSUnit').Value:=Trim(ComboBox1.Text); + Parameters.ParamByName('DuoPinNote').Value:=Trim(Edit1.Text); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString) + else + Exit; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm new file mode 100644 index 0000000..c881d7e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm @@ -0,0 +1,2457 @@ +object frmOrderInPutAnPai: TfrmOrderInPutAnPai + Left = 20 + Top = 40 + Width = 1309 + Height = 695 + Align = alClient + Caption = #35843#29992#30003#35831#19982#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + 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_DDMD.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 + Visible = False + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + Visible = False + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 627 + ActivePage = cxTabSheet3 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 627 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 289 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + 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 + Visible = False + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 112 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 0 + Top = 0 + Width = 97 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 320 + Width = 1293 + Height = 284 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + 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 Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#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 = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#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 = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 691 + Height = 121 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 604 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 203 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = 0 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = 0 + Top = 344 + Width = 465 + Height = 289 + ActivePage = cxTabSheet6 + Style = 8 + TabOrder = 4 + ClientRectBottom = 289 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 8 + Top = 0 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 229 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 266 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + 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 = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 + Visible = False + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #27599#20844#26020'/'#31859 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 435 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 151 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 102 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 207 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 109 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clBtnFace + 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 = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #35843#33410#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 184 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 435 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#35746#21333#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 182 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 395 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 400 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992#30331#35760 + ImageIndex = 3 + object cxGrid7: TcxGrid + Left = 65 + Top = 0 + Width = 1228 + Height = 604 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn30PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn31PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 50 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn32PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 131 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + object ToolBar6: TToolBar + Left = 0 + Top = 0 + Width = 65 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 = 1 + Visible = False + object ToolButton14: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton14Click + end + object ToolButton15: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton15Click + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 604 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + 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 + Format = '0' + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 296 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 152 + Top = 572 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 344 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 772 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 792 + Top = 420 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1144 + Top = 508 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 372 + Top = 344 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 336 + Top = 340 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 344 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas new file mode 100644 index 0000000..68e2632 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas @@ -0,0 +1,3249 @@ +unit U_OrderInPutAnPai; + +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, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal; + +type + TfrmOrderInPutAnPai = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + cxTabSheet4: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ToolBar6: TToolBar; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton14Click(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton15Click(Sender: TObject); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + private + CanShu1,CanShu2:String; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo,ConSubId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutAnPai: TfrmOrderInPutAnPai; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPutAnPai.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPutAnPai.InitData(); +var + fsj:string; +begin + + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); + cxPageControl1.ActivePageIndex:=2; + cxPageControl1.Pages[0].TabVisible:=False; + cxPageControl1.Pages[1].TabVisible:=False; + cxPageControl1.Pages[3].TabVisible:=False; + cxPageControl1.Pages[4].TabVisible:=False; +end; + +procedure TfrmOrderInPutAnPai.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutAnPai.FormShow(Sender: TObject); +begin + InitData(); + +end; + +function TfrmOrderInPutAnPai.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,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 JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutAnPai.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutAnPai.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutAnPai.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutAnPai.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutAnPai.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutAnPai.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPutAnPai.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutAnPai.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPutAnPai.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('Ѳ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutAnPai.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPutAnPai.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + 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 JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutAnPai.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton12Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then Exit; + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + if ShowModal=1 then + begin + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('ToFactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=frmTJCKKC.Order_Sub.fieldbyname('JSKCPS').Value; + FieldByName('CKQty').Value:=frmTJCKKC.Order_Sub.fieldbyname('JSKCQty').Value; + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; + + if ClientDataSet5.IsEmpty=False then + begin + PFID:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end else + begin + PFID:=''; + end; + if Trim(PFID)='' then Exit; + if Trim(PFID)<>'' then + begin + {Fsj:=''; + if Trim(PFID)='' then + begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not eof do + begin + if Trim(fieldbyname('PFID').AsString)<>Trim(PFID) then + begin + fsj:='99'; + ClientDataSet6.Last; + end; + Next; + end; + end; + ClientDataSet6.EnableControls; + end else + begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not eof do + begin + if Trim(fieldbyname('PFID').AsString)<>Trim(PFID) then + begin + if Trim(fieldbyname('PFID').AsString)<>'' then + begin + fsj:='99'; + ClientDataSet6.Last; + end; + end; + Next; + end; + end; + ClientDataSet6.EnableControls; + end; + if Trim(fsj)<>'99' then Exit; } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if ClientDataSet5.Locate('SubId',Null,[])=True then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SubId','',[])=True then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','',32+4)<>IDYES then Exit; + end; + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(CKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(CKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + + +procedure TfrmOrderInPutAnPai.FormCreate(Sender: TObject); +begin + {CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + if Trim(CanShu2)='ֿ' then + begin + TBSave.Visible:=false; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + end; } +end; + +procedure TfrmOrderInPutAnPai.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutAnPai.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton14Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet7 do + begin + Append; + FieldByName('JFDate').Value:=Now; + FieldByName('JFName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton15Click(Sender: TObject); +begin + if ClientDataSet7.IsEmpty then Exit; + if Trim(ClientDataSet7.fieldbyname('JFID').AsString)<>'' then + begin + if Trim(ClientDataSet7.fieldbyname('Filler').AsString)<>Trim(DName) 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 JYOrder_Main_Fee where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet7.Delete; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPutAnPai.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPutAnPai.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 TfrmOrderInPutAnPai.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 ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd 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(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPutAnPai.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + 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 JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet5.Delete; + +end; + +procedure TfrmOrderInPutAnPai.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm new file mode 100644 index 0000000..36c40e6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm @@ -0,0 +1,2371 @@ +object frmOrderInPutDYAnPai: TfrmOrderInPutDYAnPai + Left = 20 + Top = 40 + Width = 1309 + Height = 695 + Align = alClient + Caption = #20179#24211#35843#29992#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + 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_DDMD.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 ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + Visible = False + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 627 + ActivePage = cxTabSheet3 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 627 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 289 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 112 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 0 + Top = 0 + Width = 97 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 320 + Width = 1293 + Height = 284 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + 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 Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#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 = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#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 = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 691 + Height = 121 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 604 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 203 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = 0 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = 0 + Top = 344 + Width = 465 + Height = 289 + ActivePage = cxTabSheet5 + Style = 8 + TabOrder = 4 + ClientRectBottom = 289 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 8 + Top = 0 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 229 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 266 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + 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 = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 435 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 151 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 83 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column4: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 207 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 109 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object v6Column4: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + Options.Editing = False + Width = 57 + end + object v6Column5: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + 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 = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #24453#22788#29702#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 186 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 184 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 435 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 158 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 221 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 371 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 75 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 152 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 100 + Top = 4 + Width = 36 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 226 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 177 + Top = 4 + Width = 36 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 400 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 604 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + 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 + Format = '0' + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 400 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 153 + Top = 574 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 344 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 780 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 824 + Top = 545 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1140 + Top = 520 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 372 + Top = 344 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 336 + Top = 340 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 344 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 5 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 5 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas new file mode 100644 index 0000000..35188a7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas @@ -0,0 +1,3632 @@ +unit U_OrderInPutDYAnPai; + +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, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal; + +type + TfrmOrderInPutDYAnPai = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + v6Column4: TcxGridDBColumn; + v6Column5: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + CanShu1,CanShu2:String; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutDYAnPai: TfrmOrderInPutDYAnPai; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPutDYAnPai.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼1',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPutDYAnPai.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼1',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); + cxPageControl1.ActivePageIndex:=2; + cxPageControl1.Pages[0].TabVisible:=False; + cxPageControl1.Pages[1].TabVisible:=False; + cxPageControl1.Pages[3].TabVisible:=False; + cxPageControl1.Pages[4].TabVisible:=False; +end; + +procedure TfrmOrderInPutDYAnPai.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutDYAnPai.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmOrderInPutDYAnPai.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,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 JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutDYAnPai.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutDYAnPai.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutDYAnPai.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutDYAnPai.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPutDYAnPai.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutDYAnPai.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('Ѳ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + 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 JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + frmTJCKKC.FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + fsj:='99'; + with Self.ClientDataSet6 do + begin + First; + while not Eof do + begin + Self.ClientDataSet6.Delete; + end; + end; + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=StrToFloat(frmTJCKKC.DRPS.Text); + FieldByName('CKQty').Value:=StrToFloat(frmTJCKKC.DRQty.Text); + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if Trim(fsj)<>'99' then Exit; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; + DRInt:=99; + ToolButton9.Click; + DRInt:=0; +end; + +procedure TfrmOrderInPutDYAnPai.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + { if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + + + {if ClientDataSet5.Locate('PFDlyDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; } + if DRInt<>99 then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','',32+4)<>IDYES then Exit; + end; + end; + + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(CKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(CKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + {if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; } + + if UpdateTJCKQty(Trim(maxno)) then + begin + + end else + begin + ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end; + ADOCmd.Connection.CommitTrans; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if DRInt<>99 then + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPutDYAnPai.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + //жϹǷԶ뵥 + {BDInt:=CDS_JGLC.fieldbyname('PSXH').AsInteger; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + CPInt:=ADOTemp.fieldbyname('PSXH').AsInteger + else + CPInt:=-1; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + end else + begin + JYInt:=-1; + end; + + if BDInt-1 then + begin + if BDInt+1-1 then + begin + Exit; + end; } + //жϹǷԶ뵥 + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and Qty>0'); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + //FieldByName('ConMainID').Value:=Trim(FConMainId); + //FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='NM'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + //FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + //FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + Result:=True; + +end; +function TfrmOrderInPutDYAnPai.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +function TfrmOrderInPutDYAnPai.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Qty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('Qty').Value; + if FMDQty'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPutDYAnPai.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPutDYAnPai.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 TfrmOrderInPutDYAnPai.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 ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd 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(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and isnull(ConSubId,'''')<>'''' '); + 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(' Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=isnull((select isnull(Sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+'''),0),'); + sql.Add(' CKQty=isnull((select isnull(Sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+'''),0)'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where'); + sql.Add(' isnull(B.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + UpdateTJCKQty(Trim(ClientDataSet5.fieldbyname('PFID').AsString)); + end; + ClientDataSet5.Delete; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Update_TJCKQty'); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm new file mode 100644 index 0000000..14d4094 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm @@ -0,0 +1,2311 @@ +object frmOrderInPutPrice: TfrmOrderInPutPrice + Left = 23 + Top = 16 + Width = 1275 + Height = 712 + Align = alClient + Caption = #25351#31034#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1259 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + 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 TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Panel8: TPanel + Left = 296 + Top = 0 + Width = 468 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label33: TLabel + Left = 8 + Top = 4 + Width = 77 + Height = 19 + Caption = 'Label33' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 33 + Width = 1259 + Height = 640 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 1 + OnChange = cxPageControl1Change + ClientRectBottom = 640 + ClientRectRight = 1259 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 348 + Width = 1259 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton23: TToolButton + Left = 126 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 39 + OnClick = ToolButton23Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 379 + Width = 1259 + Height = 238 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column14: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHInt' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 86 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 99 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + 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_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 193 + end + object v1Column18: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 210 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1259 + Height = 348 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 283 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 35 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 533 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 75 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 170 + Top = 75 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 31 + Top = 55 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 533 + Top = 55 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 283 + Top = 95 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 283 + Top = 35 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 533 + Top = 115 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 531 + Top = 283 + 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 Label5: TLabel + Left = 791 + Top = 35 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 791 + Top = 55 + Width = 67 + Height = 12 + Caption = #25104' '#20998#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 = 283 + Top = 115 + Width = 65 + Height = 12 + Caption = #19994#21153#21161#29702#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 = 145 + Top = 75 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 246 + Top = 75 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 283 + Top = 55 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 533 + Top = 35 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 31 + Top = 134 + Width = 65 + Height = 12 + Caption = #29983#20135#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 283 + Top = 75 + Width = 65 + Height = 12 + Caption = #38376#24133#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 533 + Top = 75 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#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 = 791 + Top = 75 + Width = 66 + Height = 12 + Caption = #30701' '#28322' '#35013#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 31 + Top = 114 + Width = 65 + Height = 12 + Caption = #25152#23646#37096#38376#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 791 + Top = 95 + Width = 67 + Height = 12 + Caption = #33136' '#23553#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 533 + Top = 95 + Width = 67 + Height = 12 + Caption = #30041' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 94 + Width = 67 + Height = 12 + Caption = #21305' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 791 + Top = 15 + Width = 66 + Height = 12 + Caption = #23458' '#25143' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 31 + Top = 222 + Width = 65 + Height = 12 + Caption = #39564#36135#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 791 + Top = 115 + Width = 65 + Height = 12 + Caption = #21333#35777#21046#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label50: TLabel + Left = 531 + Top = 134 + Width = 65 + Height = 12 + Caption = #20986#36135#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label51: TLabel + Left = 533 + Top = 226 + Width = 66 + Height = 12 + Caption = #22806' '#21253' '#35013#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label52: TLabel + Left = 791 + Top = 226 + Width = 67 + Height = 12 + Caption = #32440' '#31649#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label53: TLabel + Left = 533 + Top = 246 + Width = 66 + Height = 12 + Caption = #22609' '#26009' '#34955#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label54: TLabel + Left = 790 + Top = 246 + Width = 66 + Height = 12 + Caption = #23567' '#26631' '#31614#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label55: TLabel + Left = 533 + Top = 266 + Width = 67 + Height = 12 + Caption = #28907' '#37329#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 97 + Top = 329 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#31859 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 31 + Top = 329 + Width = 65 + Height = 12 + Caption = #25240#31639#31995#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 265 + Top = 329 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 424 + Top = 329 + Width = 54 + Height = 12 + Caption = #30382#37325'(Kg)' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 791 + Top = 134 + Width = 67 + Height = 12 + Caption = #21787' '#22836#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 = 597 + Top = 135 + Width = 52 + Height = 12 + Caption = #24102#27454#25552#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 597 + Top = 159 + Width = 78 + Height = 12 + Caption = #30830#35748#33337#26679#20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 597 + Top = 183 + Width = 52 + Height = 12 + Caption = #39564#36135#20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 531 + Top = 203 + Width = 65 + Height = 12 + Caption = #20854#20182#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 346 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + OnDblClick = ConNoDblClick + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 31 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 346 + Top = 91 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 346 + Top = 31 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 597 + Top = 111 + Width = 170 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 597 + Top = 282 + Width = 424 + Height = 63 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 97 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 597 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 853 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 97 + Top = 71 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 206 + Top = 71 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 597 + Top = 11 + Width = 170 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 853 + Top = 31 + Width = 170 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 346 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 14 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 597 + Top = 31 + Width = 170 + Height = 20 + ReadOnly = True + TabOrder = 15 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 346 + Top = 111 + Width = 170 + Height = 20 + TabOrder = 16 + OnBtnClick = LiDanPersonBtnClick + end + object SCYaoSu: TMemo + Tag = 2 + Left = 97 + Top = 132 + Width = 417 + Height = 88 + ScrollBars = ssVertical + TabOrder = 17 + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 346 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 18 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 597 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 19 + end + object DuanYiZhuang: TEdit + Tag = 2 + Left = 853 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 20 + end + object YaoFeng: TBtnEditC + Tag = 2 + Left = 853 + Top = 91 + Width = 170 + Height = 20 + Hint = 'YaoFeng/'#33136#23553 + TabOrder = 21 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LiuYang: TBtnEditC + Tag = 2 + Left = 597 + Top = 91 + Width = 170 + Height = 20 + Hint = 'LiuYang/'#30041#26679 + TabOrder = 22 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PiChang: TBtnEditC + Tag = 2 + Left = 97 + Top = 91 + Width = 170 + Height = 20 + Hint = 'PiChang/'#21305#38271 + TabOrder = 23 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object KHNO: TEdit + Tag = 2 + Left = 853 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 24 + OnDblClick = ConNoDblClick + end + object YanHuoNote: TMemo + Tag = 2 + Left = 97 + Top = 220 + Width = 417 + Height = 104 + ScrollBars = ssVertical + TabOrder = 25 + end + object DanZheng: TBtnEditC + Tag = 2 + Left = 853 + Top = 111 + Width = 170 + Height = 20 + Hint = 'DanZheng/'#21333#35777#21046#21333 + TabOrder = 26 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object WanBaoZhuang: TBtnEditC + Tag = 2 + Left = 597 + Top = 222 + Width = 170 + Height = 20 + Hint = 'WanBaoZhuang/'#22806#21253#35013 + TabOrder = 27 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZhiGuan: TBtnEditC + Tag = 2 + Left = 853 + Top = 222 + Width = 170 + Height = 20 + Hint = 'ZhiGuan/'#32440#31649 + TabOrder = 28 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SuLiaoDai: TBtnEditC + Tag = 2 + Left = 597 + Top = 242 + Width = 170 + Height = 20 + Hint = 'SuLiaoDai/'#22609#26009#34955 + TabOrder = 29 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object XiaoBiaoQian: TBtnEditC + Tag = 2 + Left = 853 + Top = 242 + Width = 170 + Height = 20 + Hint = 'XiaoBiaoQian/'#23567#26631#31614 + TabOrder = 30 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object TangJin: TBtnEditC + Tag = 2 + Left = 597 + Top = 262 + Width = 170 + Height = 20 + Hint = 'TangJin/'#28907#37329 + TabOrder = 31 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object KgZMiXs: TEdit + Tag = 2 + Left = 164 + Top = 325 + Width = 88 + Height = 20 + TabOrder = 32 + end + object KgZMaXs: TEdit + Tag = 2 + Left = 331 + Top = 325 + Width = 79 + Height = 20 + TabOrder = 33 + end + object PiZhong: TEdit + Tag = 2 + Left = 479 + Top = 325 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 34 + end + object SSDept: TBtnEditC + Tag = 2 + Left = 97 + Top = 110 + Width = 170 + Height = 20 + Hint = 'SSDept/'#25152#23646#37096#38376 + TabOrder = 35 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MaiTou: TMemo + Tag = 2 + Left = 853 + Top = 133 + Width = 167 + Height = 88 + ScrollBars = ssVertical + TabOrder = 36 + end + object DaiKuanTH: TComboBox + Tag = 2 + Left = 652 + Top = 132 + Width = 115 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 37 + Items.Strings = ( + #8730 + '') + end + object QueRenCYCH: TComboBox + Tag = 2 + Left = 677 + Top = 156 + Width = 90 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 38 + Items.Strings = ( + #8730 + '') + end + object YanHuoCH: TComboBox + Tag = 2 + Left = 652 + Top = 180 + Width = 115 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 39 + Items.Strings = ( + #8730 + '') + end + object CHFSNote: TEdit + Tag = 2 + Left = 597 + Top = 200 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 40 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1259 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 409 + Width = 1259 + Height = 208 + Align = alBottom + TabOrder = 1 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 1255 + Height = 171 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + 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 + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 89 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35745#21010#35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 92 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35745#21010#35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 91 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column6: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v5Column7: TcxGridDBColumn + Caption = #21305#21495'/'#32769#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v5Column10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v5Column8: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'DiaoYongCKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 60 + end + object v5Column9: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'DiaoYongCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 61 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 1255 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + 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 = 1 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #24453#22788#29702#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 186 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 185 + Width = 1259 + Height = 224 + Align = alClient + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 33 + Width = 1255 + Height = 187 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 86 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 72 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 88 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 211 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 1255 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 1251 + Height = 29 + Align = alClient + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25353#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 162 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 225 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 288 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + end + end + end + object Panel6: TPanel + Left = 0 + Top = 31 + Width = 1259 + Height = 154 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 1255 + Height = 150 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 68 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 83 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'KgZM' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 252 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 617 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1196 + Height = 617 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + 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 + Format = '0' + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 776 + Top = 65533 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1072 + Top = 56 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1104 + Top = 56 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 808 + Top = 65533 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1107 + Top = 88 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 1072 + Top = 88 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 120 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 1076 + Top = 120 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1136 + Top = 58 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 1138 + Top = 90 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 1143 + Top = 122 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 1111 + Top = 151 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 1144 + Top = 153 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 184 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 1076 + Top = 184 + end + object cxGridPopupMenu6: TcxGridPopupMenu + PopupMenus = <> + Left = 1144 + Top = 185 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 1077 + Top = 212 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 1145 + Top = 214 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 1116 + Top = 213 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 65533 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 904 + Top = 65533 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 970 + Top = 2 + ReportData = {} + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 1028 + Top = 3 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 997 + Top = 4 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 936 + Top = 65533 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 1077 + Top = 154 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 1124 + Top = 245 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas new file mode 100644 index 0000000..bd65c50 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas @@ -0,0 +1,3048 @@ +unit U_OrderInPutPrice; + +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, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport, RM_Dataset; + +type + TfrmOrderInPutPrice = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + ScrollBox3: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolButton13: TToolButton; + v1Column18: TcxGridDBColumn; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + RM1: TRMGridReport; + CDS_Print: TClientDataSet; + RMDBMain: TRMDBDataSet; + ToolButton23: TToolButton; + v1Column14: TcxGridDBColumn; + Panel6: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label44: TLabel; + SCYaoSu: TMemo; + Panel7: TPanel; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + Panel8: TPanel; + Label33: TLabel; + Label37: TLabel; + Label38: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + Label16: TLabel; + DuanYiZhuang: TEdit; + Label17: TLabel; + Label39: TLabel; + YaoFeng: TBtnEditC; + Label45: TLabel; + LiuYang: TBtnEditC; + Label42: TLabel; + PiChang: TBtnEditC; + KHNO: TEdit; + Label46: TLabel; + Label47: TLabel; + YanHuoNote: TMemo; + Label48: TLabel; + DanZheng: TBtnEditC; + Label50: TLabel; + Label51: TLabel; + WanBaoZhuang: TBtnEditC; + Label52: TLabel; + ZhiGuan: TBtnEditC; + Label53: TLabel; + SuLiaoDai: TBtnEditC; + Label54: TLabel; + XiaoBiaoQian: TBtnEditC; + Label55: TLabel; + TangJin: TBtnEditC; + Label34: TLabel; + Label35: TLabel; + Label32: TLabel; + KgZMiXs: TEdit; + KgZMaXs: TEdit; + PiZhong: TEdit; + Label28: TLabel; + ADOQueryPrint: TADOQuery; + DataSource5: TDataSource; + ClientDataSet9: TClientDataSet; + SSDept: TBtnEditC; + Label20: TLabel; + MaiTou: TMemo; + Label22: TLabel; + DaiKuanTH: TComboBox; + Label23: TLabel; + QueRenCYCH: TComboBox; + Label24: TLabel; + YanHuoCH: TComboBox; + Label26: TLabel; + CHFSNote: TEdit; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column8: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton23Click(Sender: TObject); + procedure ConNoDblClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + private + CanShu1,CanShu2,ConPrice:String; + FJSFlag:Boolean; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + + + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + function UpdateTJCKQtyOne(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt,JYInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType,FST,FXianShi:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutPrice: TfrmOrderInPutPrice; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSSelList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX + ,U_ContractSelList,U_CPSel, U_GYSList; + +{$R *.dfm} + +procedure TfrmOrderInPutPrice.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼YD',Tv1,'ָʾ'); + WriteCxGrid('¼YD',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼YD',Tv3,'ָʾ'); + WriteCxGrid('Ϣ',Tv5,'ָʾ'); + WriteCxGrid('õϢ',Tv8,'ָʾ'); + +end; + +procedure TfrmOrderInPutPrice.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + if Trim(CanShu1)<>'Ȩ' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + end; + ReadCxGrid('ָʾ¼YD',Tv1,'ָʾ'); + ReadCxGrid('¼YD',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼YD',Tv3,'ָʾ'); + ReadCxGrid('Ϣ',Tv5,'ָʾ'); + ReadCxGrid('õϢ',Tv8,'ָʾ'); + + + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + FJSFlag:=ADOQuery1.FieldByName('JSFlag').AsBoolean; + SCSHDataNew(ADOQuery1,Panel1,2); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + {LiDanPerson.Text:=Trim(DName); + YWY.Text:=''; } + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmOrderInPutPrice.FormShow(Sender: TObject); +begin + if Trim(FXianShi)='' then + begin + Panel1.Enabled:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + CustomerNoName.Visible:=False; + end else + begin + if Trim(FST)='ֿ' then + begin + //cxPageControl1.ActivePageIndex:=1; + Panel1.Enabled:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + CustomerNoName.Visible:=False; + TBSave.Visible:=False; + ToolBar4.Visible:=False; + ToolBar3.Visible:=False; + ToolBar8.Visible:=False; + Tv2.OptionsSelection.CellSelect:=False; + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + ToolBar8.Visible:=False; + Tv2.OptionsSelection.CellSelect:=False; + Tv3.OptionsSelection.CellSelect:=False; + Tv5.OptionsSelection.CellSelect:=False; + Tv8.OptionsSelection.CellSelect:=False; + Tv1.OptionsSelection.CellSelect:=True; + end; + + end; + InitData(); +end; + +function TfrmOrderInPutPrice.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + if Trim(FXianShi)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + if Trim(ConSubId)<>'' then + begin + FieldByName('ConSubId').Value:=Trim(ConSubId); + end; + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + end else + if Trim(FXianShi)='' then + begin + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + CDS_JGLC.FieldByName('MainId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutPrice.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if Trim(FXianShi)='' then + begin + {if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('MFQty',Null,[])=True then + begin + Application.MessageBox('еŷΪ!','ʾ',0); + exit; + end; + if CDS_JGLC.Locate('KZQty',Null,[])=True then + begin + Application.MessageBox('еĿزΪ!','ʾ',0); + exit; + end; + end;} + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + end; + {if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.IsEmpty=False then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + end; + end; + + if Trim(KgZMiXs.Text)<>'' then + begin + if TryStrToFloat(KgZMiXs.Text,FReal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + {if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; } + + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTColor',Null,[])=True then + begin + Application.MessageBox('ɫIJΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutPrice.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton1Click(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrdQty').Value:=null; + FieldByName('PRTColorNo').Value:=null; + FieldByName('PRTColorEng').Value:=null; + FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + FieldByName('XHInt').Value:=Order_Sub.RecordCount; + Post; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutPrice.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutPrice.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutPrice.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutPrice.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; + +end; + +procedure TfrmOrderInPutPrice.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + // KHNO.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHCode').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutPrice.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPSel:=TfrmCPSel.Create(Application); + with frmCPSel do + begin + frmCPSel.Align:=alClient; + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString); + end; + end; + finally + frmCPSel.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('C',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('ѰŲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutPrice.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''') '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(' ,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +procedure TfrmOrderInPutPrice.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + 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 JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutPrice.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end;} +end; + +procedure TfrmOrderInPutPrice.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + fsj:='99'; + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + FDataType:=Trim(FST); + with frmTJCKKC.Order_Sub do + begin + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('QtyUnit').Value; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('BatchNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('BatchNo').Value; + FieldByName('CPName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ConName').Value; + FieldByName('DiaoYongMDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + FieldByName('PFTPPS').Value:=frmTJCKKC.DRPS.Text; + FieldByName('PFTPQty').Value:=frmTJCKKC.DRQty.Text; + FieldByName('DataType').Value:=frmTJCKKC.ComboBox1.Text; + if DataType='Χ' then + begin + FieldByName('DiaoYongCKPS').Value:=frmTJCKKC.DRPS.Text; + FieldByName('DiaoYongCKQty').Value:=frmTJCKKC.DRQty.Text; + end; + Post; + end; + end; + end; + end; + finally + frmTJCKKC.Free; + end; +end; + +procedure TfrmOrderInPutPrice.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' left join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; + { try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno,Fstr:string; +begin + if ClientDataSet5.IsEmpty then Exit; + ToolBar1.SetFocus; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('XDFactoryName',Null,[]) then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('XDFactoryName',Null,[]) then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('PFTPPS',Null,[]) then + begin + Application.MessageBox('ƻƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('PFTPQty',Null,[]) then + begin + Application.MessageBox('ƻΪ!','ʾ',0); + Exit; + end; + ClientDataSet5.DisableControls; + with ClientDataSet5 do + begin + First; + while not Eof do + begin + Fstr:=Copy(Trim(CDS_JGLC.fieldbyname('PSName').AsString),1,2); + if (Fstr<>'') and (Fstr<>'ɴ') then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ɫ߻ͺŲΪ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + ClientDataSet5.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + FieldByName('DiaoYongMDID').Value:=ClientDataSet5.fieldbyname('DiaoYongMDID').Value; + FieldByName('DataType').Value:=ClientDataSet5.fieldbyname('DataType').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(isnull(DiaoYongCKPS,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(isnull(DiaoYongCKQty,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + + + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPutPrice.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and MDType=''Χ'' '); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='DC'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + if Trim(ClientDataSet5.fieldbyname('BatchNo').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConSpec=(select ConSpec from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConCF=(select ConCF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConMF=(select ConMF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConKZ=(select ConKZ from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + //sql.Add('ConPrice=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select Top 1 SPName from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConSpec=(select Top 1 SPSpec from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConCF=(select Top 1 SPCF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConMF=(select Top 1 SPMF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConKZ=(select Top 1 SPKZ from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConPrice=(select Top 1 CostPrice from CK_SXPB_CR A '); + sql.Add(' where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''' order by CRTime desc)'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmOrderInPutPrice.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select RKQty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('RKQty').Value; + if FMDQty''ڲֿ'' ),'); + sql.Add('SJCKQty=(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_Main_MD_Out.PFID and isnull(A.CKName,'''')<>''ڲֿ'' )'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + //ʵʳƥ + //ԭʼTJ뵥ijƥ + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(FMDID)+''''); + ExecSQL; + end; + //ԭʼTJ뵥ijƥ + Result:=True; +end; + +procedure TfrmOrderInPutPrice.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + +end; + +procedure TfrmOrderInPutPrice.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPutPrice.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutPrice.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='ҵ'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + {if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end;} +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + +end; + + + + + +procedure TfrmOrderInPutPrice.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and (isnull(ConSubId,'''')<>'''' '); + sql.Add(' or MDNO like ''MD%'') '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and isnull(MDType,'''')=''ʵ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(isnull(DiaoYongCKPS,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(isnull(DiaoYongCKQty,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet5.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + Exit; + end; + + end else + begin + ClientDataSet5.Delete; + end; + +end; + +procedure TfrmOrderInPutPrice.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + FSubId,FFSubId:String; +begin + FSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + if Trim(FSubId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub C on B.PFID=C.PFID'); + sql.Add(' where C.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + Application.MessageBox('дݲܸɫ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where SubId='''+Trim(FSubId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('з¼ܸɫ!','ʾ',0); + Exit; + end; + end; + + end; + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColor').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColor').AsString+' '+ + frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').AsString; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + FFSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + if Trim(FSubId)<>Trim(FFSubId) then + begin + if Trim(CanShu1)='Ȩ' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_PCS_Sub Set SubId='''+Trim(FFSubId)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ORDSubId='''+Trim(FFSubId)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set SubId='''+Trim(FFSubId)+''''); + sql.Add(' where APID in(select MDID from JYOrder_Main_MD A'); + sql.Add(' where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + end; + + end; + end; + +end; + +procedure TfrmOrderInPutPrice.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPutPrice.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton23Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('δ治Ԥǩ!','ʾ',0); + Exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable_View :SubId,:ZSUnit,:DuoPinNote'); + Parameters.ParamByName('SubId').Value:=Trim(Order_Sub.fieldbyname('SubId').AsString); + Parameters.ParamByName('ZSUnit').Value:=''; + Parameters.ParamByName('DuoPinNote').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString) + else + Exit; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + + +procedure TfrmOrderInPutPrice.ConNoDblClick(Sender: TObject); +begin + {try + frmContractSelList:=TfrmContractSelList.Create(Application); + with frmContractSelList do + begin + if ShowModal=1 then + begin + Self.ConNo.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('ConNO').AsString); + Self.ConSubId:=Trim(frmContractSelList.Order_Main.fieldbyname('SubId').AsString); + Self.ConPrice:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTPrice').AsString); + if frmContractSelList.CheckBox1.Checked=True then + begin + Self.CustomerNoName.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('CustomerNoName').AsString); + Self.CustomerNoName.TxtCode:=Trim(frmContractSelList.Order_Main.fieldbyname('CustomerNo').AsString); + Self.ComTaiTou.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('SYRName').AsString); + Self.MPRTCode.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCode').AsString); + Self.MPRTGY.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTGY').AsString); + Self.MPRTCodeName.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCodeName').AsString); + Self.MPRTCF.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCF').AsString); + Self.MPRTMF.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTMF').AsString); + Self.MPRTKZ.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTKZ').AsString); + Self.MPRTGYHZ.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTGYHZ').AsString); + Self.MPRTSpec.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTSpec').AsString); + end; + end; + end; + finally + frmContractSelList.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.OrderNoChange(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.MPRTCodeNameChange(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.cxPageControl1Change(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm new file mode 100644 index 0000000..6b045f7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm @@ -0,0 +1,1860 @@ +object frmOrderJDList: TfrmOrderJDList + Left = 72 + Top = 18 + Width = 1366 + Height = 716 + Caption = #35746#21333#36827#24230#34920 + 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 = 1350 + AutoSize = True + 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_CYZZ.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#35746#21333 + ImageIndex = 1 + OnClick = TBAddClick + end + object Edit1: TEdit + Tag = 2 + Left = 213 + Top = 0 + Width = 132 + Height = 30 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object ToolButton3: TToolButton + Left = 345 + Top = 0 + Caption = #22797#21046#35746#21333 + ImageIndex = 25 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #21024#38500#35746#21333 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 515 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #29366#24577#26356#25913 + ImageIndex = 37 + OnClick = ToolButton2Click + end + object ComboBox1: TComboBox + Left = 665 + Top = 5 + Width = 126 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #29983#20135#20013 + #23436#32467 + #20923#32467) + end + object ToolButton5: TToolButton + Left = 791 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 874 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1350 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + 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 Label3: TLabel + Left = 272 + Top = 11 + 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 Label4: TLabel + Left = 405 + Top = 11 + Width = 40 + 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 = 535 + Top = 11 + 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 Label2: TLabel + Left = 143 + Top = 11 + Width = 49 + Height = 12 + Caption = '-------' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 676 + Top = 11 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 860 + Top = 11 + Width = 39 + Height = 12 + Caption = #30331#35760#20154 + 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 = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 174 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 313 + Top = 7 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 446 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 588 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object LiDanPerson: TComboBox + Tag = 1 + Left = 715 + Top = 7 + Width = 113 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + end + object Filler: TComboBox + Tag = 1 + Left = 899 + Top = 7 + Width = 113 + Height = 20 + ItemHeight = 12 + TabOrder = 6 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1350 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #29983#20135#20013 + #23436#32467 + #20923#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1350 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1350 + Height = 200 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35746#21333 + Width = 694 + end + item + Caption = #29702#21333 + Width = 311 + end + item + Caption = #21407#26448#26009 + Width = 368 + end + item + Caption = #21152#24037 + Width = 343 + end + item + Caption = #20179#24211 + Width = 414 + end + item + Caption = #20986#36135 + Width = 284 + end + item + Caption = #29366#24577 + Width = 53 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 127 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 139 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 61 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'DlyNote' + Options.Moving = False + Width = 152 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'YCLBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'YCLEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'YCLNote' + Options.Moving = False + Width = 237 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'JGBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 63 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'JGEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JGNote' + Options.Moving = False + Width = 214 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'CKBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'CKEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 76 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + Options.Moving = False + Width = 269 + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OutNote' + Options.Moving = False + Width = 210 + Position.BandIndex = 5 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #20986#36135#26085#26399 + DataBinding.FieldName = 'OutDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 74 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column16: TcxGridDBBandedColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 43 + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column17: TcxGridDBBandedColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column18: TcxGridDBBandedColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column19: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 107 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column20: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 113 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column21: TcxGridDBBandedColumn + Caption = #39044#35745#20986#36135#26102#38388 + DataBinding.FieldName = 'CHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ReadOnly = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column22: TcxGridDBBandedColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ReadOnly = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 110 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 300 + Width = 1350 + Height = 377 + Align = alBottom + TabOrder = 4 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 1346 + Height = 45 + Align = alTop + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 57 + Top = 0 + Width = 1285 + Height = 41 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn2 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2LiDanPerson: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column2: TcxGridDBColumn + Caption = #24320#31080#21517#31216 + DataBinding.FieldName = 'KPName' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column3: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'BoxType' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ORDQty' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object V2QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column5: TcxGridDBColumn + Caption = #39044#35745#20986#36135#26102#38388 + DataBinding.FieldName = 'CHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 41 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + Visible = False + object Button1: TButton + Left = 4 + Top = 7 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button1Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 45 + Width = 1346 + Height = 328 + Align = alClient + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 257 + Height = 307 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 253 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label5: TLabel + Left = 7 + Top = 4 + Width = 30 + Height = 14 + Caption = #29702#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 47 + Top = 5 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 223 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 101 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object DlyNote: TRichEdit + Left = 47 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel4: TPanel + Left = -1 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button2: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button4Click + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 111 + Width = 253 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + OnDblClick = Tv3DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 157 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox5: TScrollBox + Left = 265 + Top = 0 + Width = 264 + Height = 307 + Align = alLeft + TabOrder = 1 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 260 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 45 + Height = 14 + Caption = #21407#26448#26009 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 233 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object YCLBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object YCLNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel6: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button5: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button6Click + end + object Button7: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button7Click + end + end + object YCLEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 111 + Width = 260 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn6: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 129 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object ScrollBox6: TScrollBox + Left = 537 + Top = 0 + Width = 265 + Height = 307 + Align = alLeft + TabOrder = 2 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 261 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #21152#24037 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 234 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object JGBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object JGNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel8: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button8: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button8Click + end + object Button9: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button10Click + end + end + object JGEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 111 + Width = 261 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + OnDblClick = Tv5DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 153 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox7: TScrollBox + Left = 810 + Top = 0 + Width = 264 + Height = 307 + Align = alLeft + TabOrder = 3 + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 260 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label17: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #20179#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label19: TLabel + Left = 233 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object CKBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object CKNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel10: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button11: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button11Click + end + object Button12: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button12Click + end + object Button13: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button13Click + end + end + object CKEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 111 + Width = 260 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBTableView + OnDblClick = Tv6DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 169 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv6 + end + end + end + object ScrollBox8: TScrollBox + Left = 1082 + Top = 0 + Width = 258 + Height = 307 + Align = alLeft + TabOrder = 4 + object Panel11: TPanel + Left = 0 + Top = 0 + Width = 254 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label21: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #20986#36135#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 226 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object OutDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object OutNote: TRichEdit + Left = 56 + Top = 40 + Width = 192 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel12: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button14: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button14Click + end + object Button15: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button15Click + end + object Button16: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button16Click + end + end + end + object cxGrid7: TcxGrid + Left = 0 + Top = 111 + Width = 254 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 183 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv7 + end + end + end + object cxSplitter2: TcxSplitter + Left = 257 + Top = 0 + Width = 8 + Height = 307 + Hint = #21487#31227#21160#65292#21487#38544#34255 + HotZoneClassName = 'TcxMediaPlayer9Style' + AutoPosition = False + Control = ScrollBox4 + end + object cxSplitter3: TcxSplitter + Left = 529 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox5 + end + object cxSplitter4: TcxSplitter + Left = 802 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox6 + end + object cxSplitter5: TcxSplitter + Left = 1074 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox7 + end + object cxSplitter6: TcxSplitter + Left = 1340 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox8 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 292 + Width = 1350 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 744 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 992 + Top = 288 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 352 + Top = 144 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 280 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 488 + Top = 280 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 80 + Top = 488 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 488 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 352 + Top = 480 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 480 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 632 + Top = 480 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 480 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 904 + Top = 496 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1200 + Top = 488 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1232 + Top = 488 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 472 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 504 + Top = 160 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 160 + Top = 496 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 432 + Top = 488 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 712 + Top = 488 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 992 + Top = 504 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1096 + Top = 504 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas new file mode 100644 index 0000000..301abf0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas @@ -0,0 +1,1225 @@ +unit U_OrderJDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, + cxGridDBBandedTableView, cxControls, cxGridCustomView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxClasses, cxGridLevel, cxGrid, + cxPC, cxSplitter, cxGridDBTableView, DBClient, ADODB, cxCalendar, + cxDropDownEdit; + +type + TfrmOrderJDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + CustomerNoName: TEdit; + Label8: TLabel; + MPRTCode: TEdit; + Label2: TLabel; + cxTabControl1: TcxTabControl; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + v1Column7: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v1Column10: TcxGridDBBandedColumn; + v1Column11: TcxGridDBBandedColumn; + v1Column12: TcxGridDBBandedColumn; + v1Column13: TcxGridDBBandedColumn; + v1Column14: TcxGridDBBandedColumn; + v1Column15: TcxGridDBBandedColumn; + v1Column16: TcxGridDBBandedColumn; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGridPopupMenu2: TcxGridPopupMenu; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + V2QtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel3: TPanel; + Label5: TLabel; + Label6: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + DlyNote: TRichEdit; + Panel4: TPanel; + Button2: TButton; + Button3: TButton; + Button4: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox5: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + YCLBegDate: TDateTimePicker; + YCLNote: TRichEdit; + Panel6: TPanel; + Button5: TButton; + Button6: TButton; + Button7: TButton; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label12: TLabel; + YCLEndDate: TDateTimePicker; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + JGBegDate: TDateTimePicker; + JGNote: TRichEdit; + Panel8: TPanel; + Button8: TButton; + Button9: TButton; + Button10: TButton; + JGEndDate: TDateTimePicker; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox7: TScrollBox; + Panel9: TPanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + CKBegDate: TDateTimePicker; + CKNote: TRichEdit; + Panel10: TPanel; + Button11: TButton; + Button12: TButton; + Button13: TButton; + CKEndDate: TDateTimePicker; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel11: TPanel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + OutDate: TDateTimePicker; + OutNote: TRichEdit; + Panel12: TPanel; + Button14: TButton; + Button15: TButton; + Button16: TButton; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Edit1: TEdit; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ComboBox1: TComboBox; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource6: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource7: TDataSource; + ClientDataSet7: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + cxGridPopupMenu6: TcxGridPopupMenu; + cxGridPopupMenu7: TcxGridPopupMenu; + LiDanPerson: TComboBox; + Label24: TLabel; + v1Column17: TcxGridDBBandedColumn; + v2LiDanPerson: TcxGridDBColumn; + v1Column18: TcxGridDBBandedColumn; + Label25: TLabel; + Filler: TComboBox; + ToolButton3: TToolButton; + v2Column4: TcxGridDBColumn; + v1Column19: TcxGridDBBandedColumn; + cxSplitter2: TcxSplitter; + cxSplitter3: TcxSplitter; + cxSplitter4: TcxSplitter; + cxSplitter5: TcxSplitter; + cxSplitter6: TcxSplitter; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + v1Column20: TcxGridDBBandedColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column21: TcxGridDBBandedColumn; + v1Column22: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Button15Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button14Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button16Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure Tv3DblClick(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + procedure Tv5DblClick(Sender: TObject); + procedure Tv6DblClick(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + canshu1:string; + procedure InitGrid(); + procedure InitATGrid(ClientDataSet87:TClientDataSet;ATTYpe:String); + procedure SaveDateP(Panel87:TPanel;ClientDataSet87:TClientDataSet;FATType:String); + procedure DelData(ClientDataSet87:TClientDataSet); + procedure FInitNote(FFAttyp:string); + public + { Public declarations } + end; + +var + frmOrderJDList: TfrmOrderJDList; + +implementation +uses + U_DataLink,U_RTFun,U_OrderJDNote, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrderJDList.FormDestroy(Sender: TObject); +begin + frmOrderJDList:=nil; +end; + +procedure TfrmOrderJDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderJDList.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('1',Tv1,'ȱ'); + WriteCxGrid('2',Tv2,'ȱ'); + WriteCxGrid('3',Tv3,'ȱ'); + WriteCxGrid('4',Tv4,'ȱ'); + WriteCxGrid('5',Tv5,'ȱ'); + WriteCxGrid('6',Tv6,'ȱ'); + WriteCxGrid('7',Tv7,'ȱ'); + close; + +end; + +procedure TfrmOrderJDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select isnull(DlyNote10,DlyNote) DlyNote,isnull(YCLNote10,YCLNote) YCLNote,isnull(JGNote10,JGNote) JGNote,'); + sql.Add(' isnull(CKNote10,CKNote) CKNote,isnull(OutNote10,OutNote) OutNote, '); + sql.Add(' AA.* from(select A.*,DlyDate10=isnull(DlyDate,Cast(''2090-01-01'' as Datetime))'); + sql.Add(' ,DlyNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType='''' Order by ATDate Desc)'); + sql.Add(' ,YCLNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ԭ'' Order by ATDate Desc)'); + sql.Add(' ,JGNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ӹ'' Order by ATDate Desc)'); + sql.Add(' ,CKNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ֿ'' Order by ATDate Desc)'); + sql.Add(' ,OutNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType='''' Order by ATDate Desc)'); + sql.Add(' from JYOrderJD_Main A where A.OrderNO not like ''KC%'' '); + if Trim(DParameters1)='' then + begin + if Trim(ComboBox1.Text)<>'' then + begin + sql.Add(' and isnull(LiDanPerson,'''')='''+Trim(LiDanPerson.Text)+''''); + end; + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' ); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''' ); + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' ); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''' ); + end; + sql.Add(' ) AA order by DlyDate10'); + + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + end; +end; + +procedure TfrmOrderJDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + TBFind.Click; +end; + +procedure TfrmOrderJDList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(Edit1.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('Status').Value:=''; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('ORderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('Status').Value:=''; + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.Button1Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet1.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + {if Trim(canshu1)<>'' then + begin + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + end;} + + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel2.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet2.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrderJD_Main',0); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + DlyDate.Checked:=False; + DlyNote.Text:=''; + YCLBegDate.Checked:=False; + YCLEndDate.Checked:=False; + YCLNote.Text:=''; + JGBegDate.Checked:=False; + JGEndDate.Checked:=False; + JGNote.Text:=''; + CKBegDate.Checked:=False; + CKEndDate.Checked:=False; + CKNote.Text:=''; + OutDate.Checked:=False; + OutNote.Text:=''; +end; +procedure TfrmOrderJDList.InitATGrid(ClientDataSet87:TClientDataSet;ATTYpe:String); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where Mainid='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ATType='''+Trim(ATTYpe)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet87); + SInitCDSData20(ADOQueryTemp,ClientDataSet87); +end; + +procedure TfrmOrderJDList.Button2Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + { if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + SaveDateP(Panel3,ClientDataSet3,''); + SaveDateP(Panel11,ClientDataSet7,''); +end; +procedure TfrmOrderJDList.SaveDateP(Panel87:TPanel;ClientDataSet87:TClientDataSet;FATType:String); +var + FATID:string; +begin + + //if ClientDataSet87.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrderJD_Main',Panel87,2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + ClientDataSet87.DisableControls; + with ClientDataSet87 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)<>'' then + begin + FATID:=ClientDataSet87.fieldbyname('ATID').AsString; + end else + begin + if GetLSNo(ADOQueryCmd,FATID,'AT','JYOrderJD_Main_Att',4,1)=False then + begin + ClientDataSet87.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȸ쳣!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where ATID='''+Trim(ClientDataSet87.fieldbyname('ATID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('ATID').Value:=Trim(FATID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('MainId').AsString); + FieldByName('ATTYpe').Value:=FATType; + FieldByName('ATDate').Value:=ClientDataSet87.fieldbyname('ATDate').Value; + FieldByName('ATNote').Value:=ClientDataSet87.fieldbyname('ATNote').Value; + Post; + end; + ClientDataSet87.Edit; + ClientDataSet87.FieldByName('ATID').Value:=Trim(FATID); + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet87.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('DlyDate').Value:=ADOQueryTemp.fieldbyname('DlyDate').Value; + FieldByName('DlyNote').Value:=ADOQueryTemp.fieldbyname('DlyNote').Value; + FieldByName('YCLBegDate').Value:=ADOQueryTemp.fieldbyname('YCLBegDate').Value; + FieldByName('YCLEndDate').Value:=ADOQueryTemp.fieldbyname('YCLEndDate').Value; + FieldByName('YCLNote').Value:=ADOQueryTemp.fieldbyname('YCLNote').Value; + FieldByName('JGBegDate').Value:=ADOQueryTemp.fieldbyname('JGBegDate').Value; + FieldByName('JGEndDate').Value:=ADOQueryTemp.fieldbyname('JGEndDate').Value; + FieldByName('JGNote').Value:=ADOQueryTemp.fieldbyname('JGNote').Value; + FieldByName('CKBegDate').Value:=ADOQueryTemp.fieldbyname('CKBegDate').Value; + FieldByName('CKEndDate').Value:=ADOQueryTemp.fieldbyname('CKEndDate').Value; + FieldByName('CKNote').Value:=ADOQueryTemp.fieldbyname('CKNote').Value; + FieldByName('OutDate').Value:=ADOQueryTemp.fieldbyname('OutDate').Value; + FieldByName('OutNote').Value:=ADOQueryTemp.fieldbyname('OutNote').Value; + Post; + end; + //ADOQueryCmd.Connection.CommitTrans; + ClientDataSet87.EnableControls; + except + ClientDataSet87.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + + end; +end; + +procedure TfrmOrderJDList.Button3Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end;} + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + ClientDataSet3.Append; + ClientDataSet3.Post; +end; + +procedure TfrmOrderJDList.Button6Click(Sender: TObject); +begin + + ClientDataSet4.Append; + ClientDataSet4.Post; +end; + +procedure TfrmOrderJDList.Button9Click(Sender: TObject); +begin + + ClientDataSet5.Append; + ClientDataSet5.Post; +end; + +procedure TfrmOrderJDList.Button12Click(Sender: TObject); +begin + + ClientDataSet6.Append; + ClientDataSet6.Post; +end; + +procedure TfrmOrderJDList.Button15Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + ClientDataSet7.Append; + ClientDataSet7.Post; +end; + +procedure TfrmOrderJDList.Button5Click(Sender: TObject); +begin + SaveDateP(Panel5,ClientDataSet4,'ԭ'); +end; + +procedure TfrmOrderJDList.Button8Click(Sender: TObject); +begin + SaveDateP(Panel7,ClientDataSet5,'ӹ'); +end; + +procedure TfrmOrderJDList.Button11Click(Sender: TObject); +begin + SaveDateP(Panel9,ClientDataSet6,'ֿ'); +end; + +procedure TfrmOrderJDList.Button14Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + SaveDateP(Panel3,ClientDataSet3,''); + SaveDateP(Panel11,ClientDataSet7,''); +end; + +procedure TfrmOrderJDList.Button4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + DelData(ClientDataSet3); +end; +procedure TfrmOrderJDList.DelData(ClientDataSet87:TClientDataSet); +begin + + if ClientDataSet87.IsEmpty then Exit; + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderJD_Main_Att where ATID='''+Trim(ClientDataSet87.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet87.Delete; +end; + +procedure TfrmOrderJDList.Button7Click(Sender: TObject); +begin + DelData(ClientDataSet4); +end; + +procedure TfrmOrderJDList.Button10Click(Sender: TObject); +begin + DelData(ClientDataSet5); +end; + +procedure TfrmOrderJDList.Button13Click(Sender: TObject); +begin + DelData(ClientDataSet6); +end; + +procedure TfrmOrderJDList.Button16Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + DelData(ClientDataSet7); +end; + +procedure TfrmOrderJDList.FormShow(Sender: TObject); +var + fsj:string; +begin + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + DlyDate.Date:=EndDate.Date; + DlyDate.Checked:=False; + YCLBegDate.Date:=EndDate.Date; + YCLBegDate.Checked:=False; + YCLEndDate.Date:=EndDate.Date; + YCLEndDate.Checked:=False; + JGBegDate.Date:=EndDate.Date; + JGBegDate.Checked:=False; + JGEndDate.Date:=EndDate.Date; + JGEndDate.Checked:=False; + CKBegDate.Date:=EndDate.Date; + CKBegDate.Checked:=False; + CKEndDate.Date:=EndDate.Date; + CKEndDate.Checked:=False; + OutDate.Date:=EndDate.Date; + OutDate.Checked:=False; + ReadCxBandedGrid('1',Tv1,'ȱ'); + ReadCxGrid('2',Tv2,'ȱ'); + ReadCxGrid('3',Tv3,'ȱ'); + ReadCxGrid('4',Tv4,'ȱ'); + ReadCxGrid('5',Tv5,'ȱ'); + ReadCxGrid('6',Tv6,'ȱ'); + ReadCxGrid('7',Tv7,'ȱ'); + if Trim(DParameters1)='' then + begin + Panel2.Visible:=True; + Panel4.Visible:=True; + Panel12.Visible:=True; + end else + begin + TBAdd.Visible:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + Edit1.Visible:=False; + + ComboBox1.Visible:=False; + if Trim(DParameters1)='ԭ' then + begin + Panel6.Visible:=True; + end else + if Trim(DParameters1)='ӹ' then + begin + Panel8.Visible:=True; + end else + if Trim(DParameters1)='ֿ' then + begin + Panel10.Visible:=True; + end; + end; + fsj:='select distinct(Filler) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + + SInitComBoxBySql(ADOQueryTemp,Filler,False,fsj); + fsj:='select distinct(LiDanPerson) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + SInitComBoxBySql(ADOQueryTemp,LiDanPerson,False,fsj); + SInitCxGridComboBoxBySql(ADOQueryTemp,v2LiDanPerson,fsj,0,False,''); + fsj:='select distinct(QtyUnit) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + SInitCxGridComboBoxBySql(ADOQueryTemp,V2QtyUnit,fsj,0,False,''); + if Trim(DParameters1)='' then + begin + LiDanPerson.Text:=Trim(DName); + end; + +end; + +procedure TfrmOrderJDList.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + {if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_ATT where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿݣɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderJDList.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderJD_Main Set Status='''+Trim(ComboBox1.Text)+''''); + sql.add(' where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + if Trim(ComboBox1.Text)<>Trim(ClientDataSet1.fieldbyname('Status').AsString) then + begin + ClientDataSet1.Delete; + end; +end; + +procedure TfrmOrderJDList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmOrderJDList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where orderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=3 then + begin + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmOrderJDList.ToolButton3Click(Sender: TObject); +var + maxno:string; +begin + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(Edit1.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪƶ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('CustomerNoName').Value:=ClientDataSet2.fieldbyname('CustomerNoName').Value; + FieldByName('MPRTCode').Value:=ClientDataSet2.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ClientDataSet2.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ClientDataSet2.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ClientDataSet2.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ClientDataSet2.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ClientDataSet2.fieldbyname('MPRTKZ').Value; + FieldByName('HSCode').Value:=ClientDataSet2.fieldbyname('HSCode').Value; + FieldByName('KPName').Value:=ClientDataSet2.fieldbyname('KPName').Value; + FieldByName('BoxType').Value:=ClientDataSet2.fieldbyname('BoxType').Value; + FieldByName('ORDQty').Value:=ClientDataSet2.fieldbyname('ORDQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet2.fieldbyname('QtyUnit').Value; + FieldByName('Status').Value:=''; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('ORderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + FieldByName('Status').Value:=''; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.Tv3DblClick(Sender: TObject); +begin + FInitNote(''); +end; +procedure TfrmOrderJDList.FInitNote(FFAttyp:string); +begin + try + frmOrderJDNote:=TfrmOrderJDNote.Create(Application); + with frmOrderJDNote do + begin + FMainId:=Trim(ClientDataSet1.fieldbyname('MainId').AsString); + FTTYpe:=FFAttyp; + frmOrderJDNote.Caption:=Trim(FTTYpe)+Trim(frmOrderJDNote.Caption); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderJDNote.Free; + end; +end; + +procedure TfrmOrderJDList.Tv4DblClick(Sender: TObject); +begin + FInitNote('ԭ'); +end; + +procedure TfrmOrderJDList.Tv5DblClick(Sender: TObject); +begin + FInitNote('ӹ'); +end; + +procedure TfrmOrderJDList.Tv6DblClick(Sender: TObject); +begin + FInitNote('ֿ'); +end; + +procedure TfrmOrderJDList.Tv7DblClick(Sender: TObject); +begin + FInitNote(''); +end; + +procedure TfrmOrderJDList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('ȱ',cxGrid1); +end; + +procedure TfrmOrderJDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + SCSHDataNew(ADOQueryTemp,Panel3,2); + SCSHDataNew(ADOQueryTemp,Panel5,2); + SCSHDataNew(ADOQueryTemp,Panel7,2); + SCSHDataNew(ADOQueryTemp,Panel9,2); + SCSHDataNew(ADOQueryTemp,Panel11,2); + DlyNote.Text:=Trim(ClientDataSet1.fieldbyname('DlyNote').AsString); + YCLNote.Text:=Trim(ClientDataSet1.fieldbyname('YCLNote').AsString); + JGNote.Text:=Trim(ClientDataSet1.fieldbyname('JGNote').AsString); + CKNote.Text:=Trim(ClientDataSet1.fieldbyname('CKNote').AsString); + OutNote.Text:=Trim(ClientDataSet1.fieldbyname('OutNote').AsString); + + + InitATGrid(ClientDataSet3,''); + InitATGrid(ClientDataSet4,'ԭ'); + InitATGrid(ClientDataSet5,'ӹ'); + InitATGrid(ClientDataSet6,'ֿ'); + InitATGrid(ClientDataSet7,''); +end; + +procedure TfrmOrderJDList.ToolButton5Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ȱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderJDList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmOrderJDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters2); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm new file mode 100644 index 0000000..c9fd849 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm @@ -0,0 +1,115 @@ +object frmOrderJDNote: TfrmOrderJDNote + Left = 127 + Top = 101 + Width = 1195 + Height = 568 + Caption = #24773#20917#35828#26126 + 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 = 1179 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 32 + Width = 1179 + Height = 497 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 1088 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 136 + Top = 64 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 168 + Top = 64 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 200 + Top = 64 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 232 + Top = 64 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas new file mode 100644 index 0000000..d05f080 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas @@ -0,0 +1,69 @@ +unit U_OrderJDNote; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ADODB; + +type + TfrmOrderJDNote = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + ADOQuerySub: TADOQuery; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + { Private declarations } + procedure InitATGrid(); + public + { Public declarations } + FMainId,FTTYpe:string; + end; + +var + frmOrderJDNote: TfrmOrderJDNote; + +implementation +Uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmOrderJDNote.InitATGrid(); +begin + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where Mainid='''+Trim(FMainId)+''''); + sql.Add(' and ATType='''+Trim(FTTYpe)+''''); + Open; + end; + SCreateCDS20(ADOQuerySub,ClientDataSet3); + SInitCDSData20(ADOQuerySub,ClientDataSet3); +end; + +procedure TfrmOrderJDNote.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOrderJDNote.FormShow(Sender: TObject); +begin + InitATGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm new file mode 100644 index 0000000..7cb3832 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm @@ -0,0 +1,495 @@ +object frmOrderJSHZView: TfrmOrderJSHZView + Left = 56 + Top = 120 + Width = 1260 + Height = 571 + Caption = #35746#21333#32467#31639#27719#24635#20998#26512 + 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 = 1244 + AutoSize = True + 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_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 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 = #32467#31639#23436#32467 + ImageIndex = 22 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23436#32467#25764#38144 + ImageIndex = 17 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1244 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 328 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 458 + Top = 15 + 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 Label19: TLabel + Left = 611 + 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 Label2: TLabel + Left = 772 + Top = 15 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 369 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 127 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 231 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object MPRTCode: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 665 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object Filler: TEdit + Tag = 2 + Left = 812 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object CheckBox1: TCheckBox + Left = 945 + Top = 14 + Width = 61 + Height = 17 + Caption = #33258#24049 + TabOrder = 6 + Visible = False + end + object ComboBox1: TComboBox + Left = 37 + Top = 11 + Width = 91 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 12 + ItemIndex = 4 + ParentFont = False + TabOrder = 7 + Text = #25353#32467#31639#26085#26399 + Items.Strings = ( + #25353#21046#21333#26085#26399 + #25353#20132#36135#26085#26399 + #25353#29983#20135#26085#26399 + #25353#26816#39564#26085#26399 + #25353#32467#31639#26085#26399) + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 74 + Width = 1244 + Height = 458 + Align = alClient + TabOrder = 2 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv0CellDblClick + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skAverage + Position = spFooter + Column = v0Column1 + end + item + Kind = skAverage + Position = spFooter + Column = v0Column2 + end + item + Kind = skSum + Position = spFooter + Column = v0Column3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skAverage + Column = v0Column1 + end + item + Kind = skAverage + Column = v0Column2 + end + item + Kind = skSum + Column = v0Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v0Column9: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column10: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column11: TcxGridDBColumn + Caption = #29983#20135#26085#26399 + DataBinding.FieldName = 'SCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column12: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v0Column6: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v0Column5: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v0Column1: TcxGridDBColumn + Caption = #31995#32479#25439#32791'%' + DataBinding.FieldName = 'HZSH' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 76 + end + object v0Column2: TcxGridDBColumn + Caption = #25163#24037#25439#32791'%' + DataBinding.FieldName = 'SGJSSH' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 73 + end + object v0Column3: TcxGridDBColumn + Caption = #25968#37327#24046#39069'Kg' + DataBinding.FieldName = 'HZSHQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 77 + end + object v0Column4: TcxGridDBColumn + Caption = #32467#31639#23436#32467 + DataBinding.FieldName = 'JSFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v0Column7: TcxGridDBColumn + Caption = #32467#31639#20154 + DataBinding.FieldName = 'JSPerson' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v0Column8: TcxGridDBColumn + Caption = #32467#31639#26102#38388 + DataBinding.FieldName = 'JSTime' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v0Column13: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HZNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + object Panel2: TPanel + Left = 480 + Top = 183 + Width = 272 + 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 = 3 + Visible = False + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 616 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas new file mode 100644 index 0000000..3317dde --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas @@ -0,0 +1,357 @@ +unit U_OrderJSHZView; //27 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmOrderJSHZView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Label2: TLabel; + Filler: TEdit; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + v0Column1: TcxGridDBColumn; + v0Column2: TcxGridDBColumn; + v0Column3: TcxGridDBColumn; + v0Column5: TcxGridDBColumn; + v0Column6: TcxGridDBColumn; + Panel2: TPanel; + CheckBox1: TCheckBox; + v0Column4: TcxGridDBColumn; + v0Column7: TcxGridDBColumn; + v0Column8: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ComboBox1: TComboBox; + v0Column9: TcxGridDBColumn; + v0Column10: TcxGridDBColumn; + v0Column11: TcxGridDBColumn; + v0Column12: TcxGridDBColumn; + ToolButton3: TToolButton; + v0Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + procedure Tv0CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + canshu1:String; + procedure InitGrid(); + procedure GetData(); + public + { Public declarations } + end; + +var + frmOrderJSHZView: TfrmOrderJSHZView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp,U_OrdCostList, U_ModuleNote; +{$R *.dfm} + +procedure TfrmOrderJSHZView.FormDestroy(Sender: TObject); +begin + frmOrderJSHZView:=nil; +end; + +procedure TfrmOrderJSHZView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderJSHZView.TBRafreshClick(Sender: TObject); +begin + Panel2.Visible:=True; + Panel2.Refresh; + InitGrid(); + GetData(); + Panel2.Visible:=False; +end; +procedure TfrmOrderJSHZView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_OrderHZDate :begdate,:enddate,'''',:PState,:WSql '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1)); + Parameters.ParamByName('PState').Value:=ComboBox1.ItemIndex; + if CheckBox1.Checked then + Parameters.ParamByName('WSql').Value:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))' + else + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmOrderJSHZView.GetData(); +begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD where ORDMainID='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty=False then + begin + try + with ADOQueryTemp do + begin + Close; + SQL.Clear; + //sql.Add(' exec F_View_PSNameSH :MainId'); + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet6.fieldbyname('MainId').AsString); + Open; + end; + Edit; + FieldByName('HZSH').Value:=ADOQueryTemp.fieldbyname('HZSH').Value; + FieldByName('HZSHQty').Value:=ADOQueryTemp.fieldbyname('HZSHQty').Value; + Post; + except + Edit; + FieldByName('HZSH').Value:=NUll; + FieldByName('HZSHQty').Value:=Null; + FieldByName('HZNote').Value:='ȱٹ뵥0'; + Post; + end; + end; + + Next; + end; + end; + ClientDataSet6.EnableControls; +end; +procedure TfrmOrderJSHZView.FormShow(Sender: TObject); +begin + ReadCxGrid('ܲѯ',Tv0,'ͳƲѯ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + if Trim(canshu1)='Ȩ' then + begin + ToolButton1.Visible:=True; + ToolButton2.Visible:=True; + end; +end; + +procedure TfrmOrderJSHZView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ܲѯ',Tv0,'ͳƲѯ'); + close; +end; + +procedure TfrmOrderJSHZView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_OrderHZDate '''','''',:OrderNo,1,'''' '); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + GetData(); + Panel2.Visible:=False; + end; + +end; + +procedure TfrmOrderJSHZView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter10(ClientDataSet6,SGetFilters(Panel1,1,2)); + //SCreateCDS20(ADOQueryMain,ClientDataSet6); + //SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmOrderJSHZView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOrderJSHZView.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOrderJSHZView.Tv0CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + frmOrdCostList:=TfrmOrdCostList.Create(Application); + with frmOrdCostList do + begin + //frmOrdCostList.Align:=alClient; + frmOrdCostList.orderNo.Text:=Trim(Self.ClientDataSet6.fieldbyname('OrderNo').AsString); + with frmOrdCostList.ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(frmOrdCostList.orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(frmOrdCostList.ADOQueryMain,frmOrdCostList.ClientDataSet0); + SInitCDSData20(frmOrdCostList.ADOQueryMain,frmOrdCostList.ClientDataSet0); + if Trim(canshu1)='Ȩ' then + begin + Button1.Visible:=True; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrdCostList.Free; + end; +end; + +procedure TfrmOrderJSHZView.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main Set JSFlag=1,JSTime=getdate(),JSPerson='''+Trim(DName)+''''); + if Trim(ClientDataSet6.FieldByName('HZSH').AsString)<>'' then + begin + sql.Add(',HZSH='+ClientDataSet6.FieldByName('HZSH').AsString); + end else + begin + SQL.Add(',HZSH=NUll'); + end; + if Trim(ClientDataSet6.FieldByName('HZSHQty').AsString)<>'' then + begin + sql.Add(',HZSHQty='+ClientDataSet6.FieldByName('HZSHQty').AsString); + end else + begin + SQL.Add(',HZSHQty=NUll'); + end; + sql.Add(' where MainId='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName('JSFlag').Value:=True; + FieldByName('JSPerson').Value:=Trim(DName); + FieldByName('JSTime').Value:=Now; + Post; + end; +end; + +procedure TfrmOrderJSHZView.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ᳷','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main Set JSFlag=0,JSTime=Null,JSPerson=Null,HZSH=Null,HZSHQty=Null '); + sql.Add(' where MainId='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName('JSFlag').Value:=False; + FieldByName('JSPerson').Value:=''; + FieldByName('JSTime').Value:=Null; + Post; + end; +end; + +procedure TfrmOrderJSHZView.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmOrderJSHZView.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ܷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm new file mode 100644 index 0000000..88d9346 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm @@ -0,0 +1,598 @@ +object frmOrderSubSel: TfrmOrderSubSel + Left = 33 + Top = 100 + Width = 1193 + Height = 593 + Align = alClient + Caption = #35746#21333#26126#32454#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 + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 248 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1177 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 559 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#21305#25968 + end + object Label2: TLabel + Left = 674 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#25968#37327 + end + object Label3: TLabel + Left = 19 + Top = 16 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 275 + Top = 16 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 411 + Top = 16 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + end + object PFTPPS: TEdit + Left = 607 + Top = 12 + Width = 48 + Height = 20 + TabOrder = 0 + OnChange = PFTPPSChange + end + object PFTPQty: TEdit + Left = 722 + Top = 12 + Width = 73 + Height = 20 + TabOrder = 1 + end + object FactoryName: TBtnEditA + Left = 56 + Top = 12 + Width = 202 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FactoryNameBtnClick + end + object PFTPUnit: TComboBox + Left = 797 + Top = 12 + Width = 44 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + 'KG' + 'M' + #26465) + end + object PFDlyDate: TDateTimePicker + Left = 460 + Top = 12 + Width = 83 + Height = 20 + Date = 41623.000000000000000000 + Time = 41623.000000000000000000 + TabOrder = 4 + end + object PFGenDanPerson: TBtnEditA + Tag = 2 + Left = 313 + Top = 12 + Width = 82 + Height = 20 + TabOrder = 5 + OnBtnClick = PFGenDanPersonBtnClick + end + end + object cxGrid3: TcxGrid + Left = 599 + Top = 78 + Width = 578 + Height = 476 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv3CellDblClick + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 144 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 71 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column5: TcxGridDBColumn + Caption = #23433#25490#21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column4: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Width = 59 + end + object v3Column8: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 78 + Width = 529 + Height = 476 + Align = alLeft + 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 + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + 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_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn1: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v1Column3: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column2: TcxGridDBColumn + Caption = #24050#23433#25490 + DataBinding.FieldName = 'APFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + SortIndex = 0 + SortOrder = soDescending + Width = 63 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 529 + Top = 78 + Width = 70 + Height = 476 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Button1: TButton + Left = 2 + Top = 184 + Width = 66 + Height = 40 + Caption = '>>>>>>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 344 + Top = 236 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 784 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 816 + Top = 252 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas new file mode 100644 index 0000000..373dc71 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas @@ -0,0 +1,323 @@ +unit U_OrderSubSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxCheckBox, + ADODB, StdCtrls, BtnEdit, ExtCtrls, cxCalendar; + +type + TfrmOrderSubSel = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + PFTPPS: TEdit; + Label2: TLabel; + PFTPQty: TEdit; + Label3: TLabel; + FactoryName: TBtnEditA; + PFTPUnit: TComboBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label4: TLabel; + Label5: TLabel; + PFDlyDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v1Column1: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel2: TPanel; + Button1: TButton; + v3Column4: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PFGenDanPerson: TBtnEditA; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure PFGenDanPersonBtnClick(Sender: TObject); + procedure PFTPPSChange(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + FFFMainId:String; + end; + +var + frmOrderSubSel: TfrmOrderSubSel; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun, U_GYSList, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmOrderSubSel.FormDestroy(Sender: TObject); +begin + //frmOrderSubSel:=nil; +end; + +procedure TfrmOrderSubSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubSel.FormShow(Sender: TObject); +begin + PFDlyDate.Date:=SGetServerDate(ADOQuery1); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FFFMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,APFlag=Cast(0 as bit) from JYOrder_Sub A Where MainId='''+Trim(FFFMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + finally + ADOQuery1.EnableControls; + end; + PFTPUnit.ItemIndex:=OneQtyUnit.ItemIndex; +end; + +procedure TfrmOrderSubSel.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + Close; +end; + +procedure TfrmOrderSubSel.ToolButton1Click(Sender: TObject); +begin + {if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + ModalResult:=1; +end; + +procedure TfrmOrderSubSel.ToolButton2Click(Sender: TObject); +begin + SelOKNo(Order_Sub,True); +end; + +procedure TfrmOrderSubSel.ToolButton3Click(Sender: TObject); +begin + SelOKNo(Order_Sub,False); +end; + +procedure TfrmOrderSubSel.FactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FactoryName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderSubSel.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(FactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(PFGenDanPerson.Text)='' then + begin + Application.MessageBox('ԱΪ!','ʾ',0); + Exit; + end; + if Trim(PFTPPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPPS.Text,FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if Trim(PFTPQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=true then + begin + + with ClientDataSet1 do + begin + Append; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTHX').Value:=Order_Sub.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)+' '+ + Trim(Order_Sub.fieldbyname('PRTColorEng').AsString)+' '+ + Trim(Order_Sub.fieldbyname('PRTColor').AsString); + FieldByName('FactoryName').Value:=Trim(FactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FactoryName.TxtCode); + FieldByName('PFGenDanPerson').Value:=Trim(PFGenDanPerson.Text); + FieldByName('PFDlyDate').Value:=PFDlyDate.Date; + FieldByName('PFTPPS').Value:=Trim(PFTPPS.Text); + FieldByName('PFTPQty').Value:=Trim(PFTPQty.Text); + FieldByName('PFTPUnit').Value:=Trim(PFTPUnit.Text); + FieldByName('PRTOrdQty').Value:=Order_Sub.fieldbyname('PRTOrdQty').Value; + FieldByName('OrderUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + Edit; + FieldByName('APFlag').Value:=True; + FieldByName('SSel').Value:=False; + Post; + end; + Next; + end; + end; + Order_Sub.EnableControls; +end; + +procedure TfrmOrderSubSel.Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet1.IsEmpty then Exit; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderSubSel.PFGenDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + PFGenDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubSel.PFTPPSChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(PFTPPS.Text)<>'' then + begin + if TryStrToFloat(Trim(PFTPPS.Text),FReal)=False then Exit; + if Trim(ClothOneQty.Text)<>'' then + begin + PFTPQty.Text:=FloatToStr(StrToFloat(PFTPPS.Text)*StrToFloat(ClothOneQty.Text)); + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm new file mode 100644 index 0000000..f2aa059 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm @@ -0,0 +1,584 @@ +object frmOrderSubSelMX: TfrmOrderSubSelMX + Left = 86 + Top = 162 + Width = 1193 + Height = 593 + Align = alClient + Caption = #35746#21333#26126#32454#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 + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 12 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 13 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 248 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + Visible = False + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1177 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 559 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#21305#25968 + end + object Label2: TLabel + Left = 674 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#25968#37327 + end + object Label3: TLabel + Left = 19 + Top = 16 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 275 + Top = 16 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 411 + Top = 16 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + end + object PFTPPS: TEdit + Left = 607 + Top = 12 + Width = 48 + Height = 20 + TabOrder = 0 + OnChange = PFTPPSChange + end + object PFTPQty: TEdit + Left = 722 + Top = 12 + Width = 73 + Height = 20 + TabOrder = 1 + end + object FactoryName: TBtnEditA + Left = 56 + Top = 12 + Width = 202 + Height = 20 + TabOrder = 2 + OnBtnClick = FactoryNameBtnClick + end + object PFTPUnit: TComboBox + Left = 797 + Top = 12 + Width = 44 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + 'KG' + 'M' + #26465) + end + object PFDlyDate: TDateTimePicker + Left = 460 + Top = 12 + Width = 83 + Height = 20 + Date = 41623.000000000000000000 + Time = 41623.000000000000000000 + TabOrder = 4 + end + object PFGenDanPerson: TBtnEditA + Tag = 2 + Left = 313 + Top = 12 + Width = 82 + Height = 20 + TabOrder = 5 + OnBtnClick = PFGenDanPersonBtnClick + end + end + object cxGrid3: TcxGrid + Left = 70 + Top = 78 + Width = 1107 + Height = 476 + Align = alClient + TabOrder = 2 + Visible = False + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv3CellDblClick + 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 + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 144 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 71 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column5: TcxGridDBColumn + Caption = #23433#25490#21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column4: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Width = 59 + end + object v3Column8: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 70 + Top = 78 + Width = 1107 + Height = 476 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + 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 + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v1Column3: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 0 + Top = 78 + Width = 70 + Height = 476 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + Visible = False + object Button1: TButton + Left = 2 + Top = 184 + Width = 66 + Height = 40 + Caption = '>>>>>>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 344 + Top = 236 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 784 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 816 + Top = 252 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas new file mode 100644 index 0000000..96e121d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas @@ -0,0 +1,328 @@ +unit U_OrderSubSelMX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxCheckBox, + ADODB, StdCtrls, BtnEdit, ExtCtrls, cxCalendar; + +type + TfrmOrderSubSelMX = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + PFTPPS: TEdit; + Label2: TLabel; + PFTPQty: TEdit; + Label3: TLabel; + FactoryName: TBtnEditA; + PFTPUnit: TComboBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label4: TLabel; + Label5: TLabel; + PFDlyDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel2: TPanel; + Button1: TButton; + v3Column4: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PFGenDanPerson: TBtnEditA; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure PFGenDanPersonBtnClick(Sender: TObject); + procedure PFTPPSChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + public + { Public declarations } + FFFMainId:String; + end; + +var + frmOrderSubSelMX: TfrmOrderSubSelMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmOrderSubSelMX.FormDestroy(Sender: TObject); +begin + //frmOrderSubSel:=nil; +end; + +procedure TfrmOrderSubSelMX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubSelMX.FormShow(Sender: TObject); +begin + PFDlyDate.Date:=SGetServerDate(ADOQuery1); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FFFMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,APFlag=Cast(0 as bit) from JYOrder_Sub A Where MainId='''+Trim(FFFMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + finally + ADOQuery1.EnableControls; + end; + PFTPUnit.ItemIndex:=OneQtyUnit.ItemIndex; +end; + +procedure TfrmOrderSubSelMX.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + Close; +end; + +procedure TfrmOrderSubSelMX.ToolButton1Click(Sender: TObject); +begin + {if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + ModalResult:=1; +end; + +procedure TfrmOrderSubSelMX.ToolButton2Click(Sender: TObject); +begin + SelOKNo(Order_Sub,True); +end; + +procedure TfrmOrderSubSelMX.ToolButton3Click(Sender: TObject); +begin + SelOKNo(Order_Sub,False); +end; + +procedure TfrmOrderSubSelMX.FactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderSubSelMX.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(FactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(PFGenDanPerson.Text)='' then + begin + Application.MessageBox('ԱΪ!','ʾ',0); + Exit; + end; + if Trim(PFTPPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPPS.Text,FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if Trim(PFTPQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=true then + begin + + with ClientDataSet1 do + begin + Append; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTHX').Value:=Order_Sub.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('FactoryName').Value:=Trim(FactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FactoryName.TxtCode); + FieldByName('PFGenDanPerson').Value:=Trim(PFGenDanPerson.Text); + FieldByName('PFDlyDate').Value:=PFDlyDate.Date; + FieldByName('PFTPPS').Value:=Trim(PFTPPS.Text); + FieldByName('PFTPQty').Value:=Trim(PFTPQty.Text); + FieldByName('PFTPUnit').Value:=Trim(PFTPUnit.Text); + FieldByName('PRTOrdQty').Value:=Order_Sub.fieldbyname('PRTOrdQty').Value; + FieldByName('OrderUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + Edit; + FieldByName('APFlag').Value:=True; + FieldByName('SSel').Value:=False; + Post; + end; + Next; + end; + end; + Order_Sub.EnableControls; +end; + +procedure TfrmOrderSubSelMX.Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet1.IsEmpty then Exit; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderSubSelMX.PFGenDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + PFGenDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubSelMX.PFTPPSChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(PFTPPS.Text)<>'' then + begin + if TryStrToFloat(Trim(PFTPPS.Text),FReal)=False then Exit; + if Trim(ClothOneQty.Text)<>'' then + begin + PFTPQty.Text:=FloatToStr(StrToFloat(PFTPPS.Text)*StrToFloat(ClothOneQty.Text)); + end; + end; +end; + +procedure TfrmOrderSubSelMX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm new file mode 100644 index 0000000..3205516 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm @@ -0,0 +1,356 @@ +object frmOrderSunSelList: TfrmOrderSunSelList + Left = 46 + Top = 97 + Width = 1382 + Height = 600 + Align = alClient + Caption = #35746#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 = 1366 + 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 ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1366 + Height = 488 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + Column = v1Column20 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 69 + end + object v1Column13: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object v1Column6: TcxGridDBColumn + Caption = #25351#31034#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #25171#21253#27491#21697#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #25171#21253#27491#21697#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object v1Column16: TcxGridDBColumn + Caption = #25171#21253#27425#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + Options.Focusing = False + Width = 86 + end + object v1Column17: TcxGridDBColumn + Caption = #25171#21253#27425#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + Options.Focusing = False + Width = 87 + end + object v1Column14: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v1Column18: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1Column20: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 384 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 416 + Top = 240 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 304 + Top = 232 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 240 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas new file mode 100644 index 0000000..4508877 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas @@ -0,0 +1,183 @@ +unit U_OrderSunSelList; + +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; + +type + TfrmOrderSunSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + N1: TMenuItem; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmOrderSunSelList: TfrmOrderSunSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmOrderSunSelList.FormDestroy(Sender: TObject); +begin + frmOrderSunSelList:=nil; +end; + +procedure TfrmOrderSunSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSunSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmOrderSunSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϸбѡ',Tv1,'ָʾ'); +end; +procedure TfrmOrderSunSelList.InitForm(); +begin + ReadCxGrid('ϸбѡ',Tv1,'ָʾ'); +end; +procedure TfrmOrderSunSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmOrderSunSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select AAA.*,KCPS=AAA.ZPPS-AAA.CKPS,KCQty=AAA.ZPQty-AAA.CKQty '); + sql.Add(' from ('); + sql.Add(' select AA.* '); + sql.Add(' ,Case when isnull(OrderUnit,'''')=''M'' then ZPMQty'); + sql.Add(' when isnull(OrderUnit,'''')=''Y'' then ZPYQty'); + sql.Add(' else ZPKgQty end as ZPQty'); + sql.Add(' ,Case when isnull(OrderUnit,'''')=''M'' then CPMQty'); + sql.Add(' when isnull(OrderUnit,'''')=''Y'' then CPYQty'); + sql.Add(' else CPKgQty end as CPQty'); + sql.Add(' ,CKPS=(select isnull(Sum(FHPS),0) from JYOrder_FH FH where FH.SubId=AA.SubId)'); + sql.Add(' ,CKQty=(select Cast(isnull(Sum(FHQty),0) as decimal(18,2)) from JYOrder_FH FH where FH.SubId=AA.SubId)'); + sql.Add('from ('); + sql.Add('select A.*,B.SubId,B.PRTHX,B.OrderUnit,B.PRTOrdQty '); + sql.Add(',PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorEng,'''')'); + sql.Add(',ZPPS=(select Count(*) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',ZPKgQty=(select Cast(isnull(sum(MJQty4),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'' )'); + sql.Add(',ZPMQty=(select Cast(isnull(sum(MJLen),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',ZPYQty=(select Cast(isnull(sum(MJLenMa),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPPS=(select Count(*) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPKgQty=(select Cast(isnull(sum(MJQty4),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'' )'); + sql.Add(',CPMQty=(select Cast(isnull(sum(MJLen),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPYQty=(select Cast(isnull(sum(MJLenMa),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.MainId'); + SQL.Add(' where A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''')AA)AAA'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmOrderSunSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + OrderNo.SetFocus; + ModalResult:=1; +end; + +procedure TfrmOrderSunSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmOrderSunSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm new file mode 100644 index 0000000..85e824c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm @@ -0,0 +1,626 @@ +object frmPBCKChkList: TfrmPBCKChkList + Left = 65 + Top = 122 + Width = 1191 + Height = 511 + Caption = #22383#24067#20837#24211#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 = 1175 + 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_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 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 = #20837#24211 + ImageIndex = 1 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 402 + Top = 0 + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + 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 Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 778 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 778 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 668 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 668 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 827 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 828 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas new file mode 100644 index 0000000..84e1eaa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas @@ -0,0 +1,421 @@ +unit U_PBCKChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmPBCKChkList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKChkList: TfrmPBCKChkList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKChkList.FormDestroy(Sender: TObject); +begin + frmPBCKChkList:=nil; +end; + +procedure TfrmPBCKChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKChkList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + sql.Add(' and isnull(SChker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + end else + begin + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2500-01-01'; + end; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKChkList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKChkList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKChkList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKChkList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKChkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKChkList.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 TfrmPBCKChkList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKChkList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKChkList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKChkList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKChkList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKChkList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + sql.Add(' and isnull(SChker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPBCKChkList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmPBCKChkList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKChkList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKChkList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKChkList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set Chker=NUll'); + SQL.Add(',ChkTime=Null,ChkStatus=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm new file mode 100644 index 0000000..559bc85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm @@ -0,0 +1,306 @@ +object frmPBCKInPut: TfrmPBCKInPut + Left = 48 + Top = 128 + Width = 1293 + Height = 502 + Align = alClient + Caption = #22383#24067#20837#24211 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 50 + Properties.OnEditValueChanged = v2Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 135 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837) + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas new file mode 100644 index 0000000..5aa9357 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas @@ -0,0 +1,533 @@ +unit U_PBCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmPBCKInPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v2Column3PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmPBCKInPut: TfrmPBCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPBCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmPBCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:=''; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=CDS_Sub.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=CDS_Sub.fieldbyname('SPKZ').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SX_CR',2); + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmPBCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ǽ',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ǽ',Tv1,'ֿ'); + fsj:=' select Code=BatchNo,Name=BatchNo from CK_SXPB_CR where isnull(CKName,'''')='''' Group by BatchNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,True,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmPBCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmPBCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BatchNo',null,[])=True then + begin + Application.MessageBox('ƥŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPType',null,[])=True then + begin + Application.MessageBox('ƥͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPCF',null,[])=True then + begin + Application.MessageBox('ɷֲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPMF',null,[])=True then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPKZ',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('KGQty',null,[])=True then + begin + Application.MessageBox('ܹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CostPrice',null,[])=True then + begin + Application.MessageBox('ɱΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;Price',VarArrayOf(['',Null]),[loPartialKey])=True then + begin + Application.MessageBox('ݣɹӹ۲Ϊ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmPBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBName'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPBCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + v2Column3.Options.Focusing:=False; + end else + begin + v2Column3.Options.Focusing:=True; + end; +end; + +procedure TfrmPBCKInPut.v2Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + FieldByName('BatchNo').Value:=mvalue; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from CK_SXPB_CR where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' order by FillTIme desc'); + Open; + end; + with CDS_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=ADOQueryTemp.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ADOQueryTemp.fieldbyname('FactoryNo').Value; + FieldByName('SPType').Value:=ADOQueryTemp.fieldbyname('SPType').Value; + FieldByName('SPName').Value:=ADOQueryTemp.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=ADOQueryTemp.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=ADOQueryTemp.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=ADOQueryTemp.fieldbyname('SPKZ').Value; + FieldByName('ShaZhi').Value:=ADOQueryTemp.fieldbyname('ShaZhi').Value; + FieldByName('Price').Value:=ADOQueryTemp.fieldbyname('Price').Value; + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CostPrice').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm new file mode 100644 index 0000000..0318e6d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm @@ -0,0 +1,594 @@ +object frmPBCKKCList: TfrmPBCKKCList + Left = 171 + Top = 133 + Width = 1181 + 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 = 1173 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1173 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 60 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 492 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 492 + Top = 36 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 662 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 662 + Top = 36 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 400 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 400 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 541 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 541 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object ToFactoryName: TEdit + Tag = 2 + Left = 711 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 712 + Top = 32 + Width = 108 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1173 + Height = 387 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas new file mode 100644 index 0000000..bbf765f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas @@ -0,0 +1,227 @@ +unit U_PBCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmPBCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + SSType: TComboBox; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton2: TToolButton; + Label14: TLabel; + SPCode: TEdit; + v1Column17: 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKKCList: TfrmPBCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKKCList.FormDestroy(Sender: TObject); +begin + frmPBCKKCList:=nil; +end; + +procedure TfrmPBCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')='''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPBCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKKCList.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 TfrmPBCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmPBCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmPBCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm new file mode 100644 index 0000000..f262dbe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm @@ -0,0 +1,623 @@ +object frmPBCKList: TfrmPBCKList + Left = 65 + Top = 122 + Width = 1191 + Height = 511 + Caption = #22383#24067#20837#24211#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 = 1175 + 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_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 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 = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + 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 Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 778 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 778 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 668 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 668 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 827 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 828 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas new file mode 100644 index 0000000..e25dd89 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas @@ -0,0 +1,425 @@ +unit U_PBCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmPBCKList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKList: TfrmPBCKList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKList.FormDestroy(Sender: TObject); +begin + frmPBCKList:=nil; +end; + +procedure TfrmPBCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKList.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 TfrmPBCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPBCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmPBCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_SXPB_CR '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker=NUll'); + SQL.Add(',SChkTime=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm new file mode 100644 index 0000000..57cc15c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm @@ -0,0 +1,550 @@ +object frmPBCKOutList: TfrmPBCKOutList + Left = 141 + Top = 163 + Width = 1191 + Height = 511 + Caption = #22383#24067#20986#24211#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 = 1175 + 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_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 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 = #20837#24211 + ImageIndex = 1 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBRKCXClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + 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 Label3: TLabel + Left = 181 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 322 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label8: TLabel + Left = 181 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label6: TLabel + Left = 322 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 466 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 466 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 602 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 602 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object Label5: TLabel + Left = 746 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label12: TLabel + Left = 746 + Top = 36 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 208 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 359 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object BatchNO: TEdit + Tag = 2 + Left = 208 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = BatchNOChange + end + object SPCF: TEdit + Tag = 2 + Left = 359 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 492 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 492 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 651 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 652 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + object OrderNo: TEdit + Tag = 2 + Left = 784 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + OnKeyPress = OrderNoKeyPress + end + object FromFactoryName: TEdit + Tag = 2 + Left = 784 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1175 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas new file mode 100644 index 0000000..6c67e20 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas @@ -0,0 +1,335 @@ +unit U_PBCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmPBCKOutList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + BatchNO: TEdit; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + Label5: TLabel; + OrderNo: TEdit; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label12: TLabel; + FromFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKOutList: TfrmPBCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKOutList.FormDestroy(Sender: TObject); +begin + frmPBCKOutList:=nil; +end; + +procedure TfrmPBCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select AA.* from('); + sql.Add(' select A.*,MDQty=MD.Qty,MDPS=MD.PS,MD.MDNO,MD.MDDate,MD.FromFactoryName '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=MD.ORDMainId)'); + sql.Add(' from JYOrder_Main_MD MD'); + sql.Add(' inner join CK_SXPB_KC A on MD.BatchNo=A.BatchNo'); + sql.add('where MD.MDDate>=:begdate and MD.MDDate<:enddate and isnull(A.CKName,'''')='''' '); + sql.Add(' and isnull(MD.CKName,'''')='''' ) AA'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKOutList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKOutList.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 TfrmPBCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKOutList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKOutList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKOutList.ToolButton2Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKOutList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKOutList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKOutList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select AA.* from('); + sql.Add(' select A.*,MDQty=MD.Qty,MDPS=MD.PS,MD.MDNO '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=MD.ORDMainId)'); + sql.Add(' from JYOrder_Main_MD MD'); + sql.Add(' inner join CK_SXPB_KC A on MD.BatchNo=A.BatchNo'); + sql.add(' where isnull(A.CKName,'''')='''' '); + sql.Add(' and isnull(MD.CKName,'''')='''' ) AA'); + sql.Add(' where OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm new file mode 100644 index 0000000..1ff8a35 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm @@ -0,0 +1,711 @@ +object frmPKChkCFList: TfrmPKChkCFList + Left = 30 + Top = 122 + Width = 1328 + Height = 552 + Caption = #36164#37329#30003#35831#23457#26680 + 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 = 1312 + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 371 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 521 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1312 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 254 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 521 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 649 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 784 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 905 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 404 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 295 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 575 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 703 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 813 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 945 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 432 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1312 + Height = 410 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column19: TcxGridDBColumn + Tag = 77 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Tag = 77 + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 20 + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column9: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column24: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Footer = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 113 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1312 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1312 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 143 + 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 = 350 + Top = 185 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 320 + Top = 184 + 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 = 351 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 725 + Top = 145 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 381 + Top = 187 + end + object PopupMenu1: TPopupMenu + Left = 320 + Top = 152 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_FX: TClientDataSet + Aggregates = <> + Params = <> + Left = 319 + Top = 215 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas new file mode 100644 index 0000000..b0518f5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas @@ -0,0 +1,479 @@ +unit U_PKChkCFList; + +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, cxCheckBox, Menus, cxDropDownEdit; + + +type + TfrmPKChkCFList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + ToolButton6: TToolButton; + v1Column24: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + CDS_FX: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label5: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton6Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPKChkCFList: TfrmPKChkCFList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKChkCFList.FormDestroy(Sender: TObject); +begin + frmPKChkCFList:=nil; +end; + +procedure TfrmPKChkCFList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKChkCFList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKChkCFList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKChkCFList.InitForm(); +var + fsj:string; +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + + + +procedure TfrmPKChkCFList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб',cxGrid1); +end; + +procedure TfrmPKChkCFList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKChkCFList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKChkCFList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKChkCFList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.FactoryNameChange(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 TfrmPKChkCFList.ToolButton1Click(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 TfrmPKChkCFList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKChkCFList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKChkCFList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ComTaiTou',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkStatus=''ͨ'' '); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + {sql.Add(',ComTaiTou='''+Trim(Order_Main.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(',PayMent='''+Trim(Order_Main.fieldbyname('PayMent').AsString)+''''); + sql.Add(',PKYongTu='''+Trim(Order_Main.fieldbyname('PKYongTu').AsString)+''''); + sql.Add(',FactoryNameOther='''+Trim(Order_Main.fieldbyname('FactoryNameOther').AsString)+''''); + if Trim(Order_Main.fieldbyname('PKMoney').AsString)<>'' then + begin + sql.Add(',PKMoney='+Trim(Order_Main.fieldbyname('PKMoney').AsString)); + end else + begin + sql.Add(',PKMoney=0'); + end; } + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update ZH_KH_Info Set LockFlag=1'); + sql.Add(' where KHNameJC='''+Trim(Order_Main.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and KHType=''GYS'' '); + ExecSQL; + end; } + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKChkCFList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('FKID').AsString)<>'' then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('Ѹܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=NUll,Chker=Null,ChkNote=Null'); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKChkCFList.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKChkCFList.ToolButton6Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ChkNote',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('˱עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲ͨ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkStatus=''˲ͨ'' '); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + {sql.Add(',PayMent='''+Trim(Order_Main.fieldbyname('PayMent').AsString)+''''); + sql.Add(',PKYongTu='''+Trim(Order_Main.fieldbyname('PKYongTu').AsString)+''''); + sql.Add(',ComTaiTou='''+Trim(Order_Main.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(',FactoryNameOther='''+Trim(Order_Main.fieldbyname('FactoryNameOther').AsString)+''''); + if Trim(Order_Main.fieldbyname('PKMoney').AsString)<>'' then + begin + sql.Add(',PKMoney='+Trim(Order_Main.fieldbyname('PKMoney').AsString)); + end else + begin + sql.Add(',PKMoney=0'); + end; } + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm new file mode 100644 index 0000000..ffbbad6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm @@ -0,0 +1,651 @@ +object frmPKFKList: TfrmPKFKList + Left = -27 + Top = 95 + Width = 1382 + Height = 556 + Caption = #20184#27454#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 = 1366 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20184#27454 + ImageIndex = 126 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 172 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 295 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 544 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 672 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 33 + 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 Label1: TLabel + Left = 808 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 936 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 427 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 87 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 190 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 336 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 598 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 726 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 837 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 976 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 455 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1366 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column15 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column15: TcxGridDBColumn + Tag = 999 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Footer = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 94 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column20: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 77 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #20184#27454#22791#27880 + DataBinding.FieldName = 'FKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 83 + end + object v1Huilv: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'Huilv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 49 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20184#27454 + #24050#20184#27454 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 640 + Top = 208 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 608 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 672 + Top = 208 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 207 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 397 + Top = 225 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 359 + Top = 223 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas new file mode 100644 index 0000000..2720bd5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas @@ -0,0 +1,906 @@ +unit U_PKFKList; + +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, cxCheckBox, Menus; + + +type + TfrmPKFKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label3: TLabel; + PayMent: TEdit; + Label4: TLabel; + ComTaiTou: TEdit; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + Label5: TLabel; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Huilv: TcxGridDBColumn; + Label1: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function SaveFKData():Boolean; + function SaveFKQTData():Boolean; + function HXYFK(FKID:string):Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKFKList: TfrmPKFKList; + +implementation +uses + U_DataLink,U_RTFun,U_PKInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKFKList.FormDestroy(Sender: TObject); +begin + frmPKFKList:=nil; +end; + +procedure TfrmPKFKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKFKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ븶б',Tv1,''); + +end; + +procedure TfrmPKFKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.FKTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FKTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(FKID,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FKID,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKFKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽ븶б',Tv1,''); +end; + +function TfrmPKFKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKFKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽ븶б',cxGrid1); +end; + +procedure TfrmPKFKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKFKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ븶'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKFKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; +procedure TfrmPKFKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.FactoryNameChange(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 TfrmPKFKList.ToolButton1Click(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 TfrmPKFKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''/''+RTrim(FactoryName) '); + sql.Add(' else FactoryNameQC end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKFKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKFKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKFKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FKMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FKTime',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ComTaiTou',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;BZType;HuiLv',VarArrayOf([True,'',null]),[loPartialKey])=True then + begin + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if FieldByName('FKMoney').Value=0 then + begin + Order_Main.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if FieldByName('FKMoney').Value>FieldByName('PKMoney').Value then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + Order_Main.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + if Trim(Order_Main.fieldbyname('HZType').AsString)='' then + begin + SaveFKData(); + end else + begin + SaveFKQTData(); + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmPKFKList.SaveFKData():Boolean; +var + maxId,CRID:String; +begin + try + //ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(Order_Main.fieldbyname('FactoryNo').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + if GetLSNo(ADOQueryCmd,maxId,'SF','YF_Money_CR',4,1)=False then + begin + Result:=False; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Order_Main.fieldbyname('FKTime').Value; + FieldByName('Money').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BBMoney').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BZType').Value:=''; + FieldByName('HuiLv').Value:=1; + FieldByName('Note').Value:=Order_Main.fieldbyname('FKNote').Value; + Post; + 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 ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKPerson='''+Trim(DName)+''''); + sql.Add(',FKID='''+Trim(maxId)+''''); + sql.Add(',FKTime='''+Trim(FormatDateTime('yyyy-MM-dd',Order_Main.fieldbyname('FKTime').AsDateTime))+''''); + sql.Add(',FKMoney='+Trim(Order_Main.fieldbyname('FKMoney').AsString)); + sql.Add(',FKNote='''+Trim(Order_Main.fieldbyname('FKNote').AsString)+''''); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Result:=True; + {if HXYFK(maxId)=True then + begin + Result:=True; + end else + begin + Result:=False; + end; } + + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('渶ʧ!','ʾ',0); + end; +end; +function TfrmPKFKList.SaveFKQTData():Boolean; +var + maxId:String; +begin + try + //ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'QF','YF_Money_CR',4,1)=False then + begin + Result:=False; + 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(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Order_Main.fieldbyname('FKTime').Value; + FieldByName('Money').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BBMoney').Value:=Order_Main.fieldbyname('FKMoney').Value + *Order_Main.fieldbyname('HuiLv').Value; + FieldByName('Note').Value:=Order_Main.fieldbyname('FKNote').Value; + FieldByName('BZType').Value:=Order_Main.fieldbyname('BZType').Value; + FieldByName('HuiLv').Value:=Order_Main.fieldbyname('HuiLv').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKPerson='''+Trim(DName)+''''); + sql.Add(',FKID='''+Trim(maxId)+''''); + sql.Add(',FKTime='''+Trim(FormatDateTime('yyyy-MM-dd',Order_Main.fieldbyname('FKTime').AsDateTime))+''''); + sql.Add(',FKMoney='+Trim(Order_Main.fieldbyname('FKMoney').AsString)); + sql.Add(',FKNote='''+Trim(Order_Main.fieldbyname('FKNote').AsString)+''''); + sql.Add(',HuiLv='+Trim(Order_Main.fieldbyname('HuiLv').AsString)); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +function TfrmPKFKList.HXYFK(FKID:string):Boolean; +var + factoryname,FFKMoney,maxno,FXType:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select FXType,'); + sql.Add(' DHXMoney=Money-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where YFID='''+Trim(FKID)+''''); + Open; + end; + FFKMoney:=ADOQueryTemp.fieldbyname('DHXMoney').AsString; + FXType:=Trim(ADOQueryTemp.fieldbyname('FXType').AsString); + if StrToFloat(FFKMoney)>0 then + begin + if Trim(FXType)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + end else + if Trim(FXType)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where isnull(A.MHID,'''')='''+Trim(Order_Main.fieldbyname('MHID').AsString)+''''); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet3.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet3.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(FKID); + FieldByName('HXMoney').Value:=ClientDataSet3.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet3.FieldByName('YingFuMoney').Value); + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet3.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(FKID); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + FFKMoney:='0'; + ClientDataSet3.Delete; + ClientDataSet3.Last; + end; + end; + end; + Result:=True; + end; +end; +procedure TfrmPKFKList.ToolButton5Click(Sender: TObject); +var + CRID:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and OKFlag=1 '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + Application.MessageBox('ȷϣܳ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + Order_Main.EnableControls;} + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKTime=NUll,FKPerson=Null'); + if Trim(Order_Main.fieldbyname('BZType').AsString)='' then + begin + sql.Add(',HuiLv=Null '); + end; + sql.Add(',FKNote=Null,FKID=Null,FKMoney=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + 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; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKFKList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Order_Main.IsEmpty then exit; + if Trim(Order_Main.fieldbyname('BZType').AsString)='' then + begin + v1Huilv.Options.Editing:=False; + end else + begin + v1Huilv.Options.Editing:=True; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm new file mode 100644 index 0000000..ba198d9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm @@ -0,0 +1,667 @@ +object frmPKHZList: TfrmPKHZList + Left = 55 + Top = 122 + Width = 1328 + Height = 552 + Caption = #36164#37329#30003#35831#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 = 1312 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1312 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 254 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 521 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 649 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 784 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 905 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 404 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 295 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 575 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 703 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 813 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 945 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 432 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1312 + Height = 410 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Tag = 77 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Tag = 77 + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 20 + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column9: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column24: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Footer = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 113 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1312 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1312 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 143 + 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 = 350 + Top = 185 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 320 + Top = 184 + 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 = 351 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 725 + Top = 145 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 381 + Top = 187 + end + object CDS_FX: TClientDataSet + Aggregates = <> + Params = <> + Left = 319 + Top = 215 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas new file mode 100644 index 0000000..9b0cac3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas @@ -0,0 +1,294 @@ +unit U_PKHZList; + +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, cxCheckBox, Menus, cxDropDownEdit; + + +type + TfrmPKHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + CDS_FX: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label5: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPKHZList: TfrmPKHZList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKHZList.FormDestroy(Sender: TObject); +begin + frmPKHZList:=nil; +end; + +procedure TfrmPKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKHZList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKHZList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKHZList.InitForm(); +var + fsj:string; +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + begdate.DateTime:=StrToDate(Trim(FormatDateTime('yyyy-MM',SGetServerDate(ADOQueryTemp)))+'-01'); + ReadCxGrid('ʽб',Tv1,''); +end; + + + +procedure TfrmPKHZList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб',cxGrid1); +end; + +procedure TfrmPKHZList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKHZList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKHZList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKHZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.FactoryNameChange(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 TfrmPKHZList.ToolButton1Click(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 TfrmPKHZList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKHZList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKHZList.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm new file mode 100644 index 0000000..f7b6a81 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm @@ -0,0 +1,659 @@ +object frmPKInPut: TfrmPKInPut + Left = 218 + Top = 108 + Width = 1024 + Height = 573 + Caption = #25490#27454#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 = 1008 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YSYFMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton4Click + end + object Panel1: TPanel + Left = 189 + Top = 0 + Width = 165 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 60 + Height = 12 + Caption = #24212#20184#27454#26085#26399 + end + object PKDate: TDateTimePicker + Left = 72 + Top = 4 + Width = 87 + Height = 20 + Date = 40664.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40664.464761099540000000 + TabOrder = 0 + end + end + object ToolButton1: TToolButton + Left = 354 + Top = 0 + Caption = #23548#20837#25968#25454 + ImageIndex = 30 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 437 + Top = 0 + Width = 276 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object RadioGroup1: TRadioGroup + Left = 1 + Top = -3 + Width = 274 + Height = 30 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #26412#26399 + #26412#26399#20043#21518 + #20840#37096) + TabOrder = 0 + OnClick = RadioGroup1Click + end + end + object ToolButton2: TToolButton + Left = 713 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 72 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 800 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1008 + Height = 293 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYFMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_YSYFMD.Default + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #26412#26399#24212#20184#37329#39069 + DataBinding.FieldName = 'BQYFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column9: TcxGridDBColumn + Caption = #24635#24212#20184#37329#39069 + DataBinding.FieldName = 'HZYFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column22: TcxGridDBColumn + Caption = #25490#27454#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYFMD.FontBlue + Styles.Header = DataLink_YSYFMD.FontBlue + Width = 80 + end + object v1Column14: TcxGridDBColumn + Tag = 999 + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'MDQingKuang' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 126 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column13: TcxGridDBColumn + Caption = #36164#37329#29992#36884 + DataBinding.FieldName = 'PKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#26399#24212#25187#27454 + DataBinding.FieldName = 'BQKKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#24212#25187#27454 + DataBinding.FieldName = 'HZKKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #24453#23545#36134#37329#39069 + DataBinding.FieldName = 'DDuiZhangMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Caption = #26368#22823#21270#24212#20184#37329#39069 + DataBinding.FieldName = 'MaxHZYFMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 330 + Width = 1008 + Height = 204 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = VQty + end + item + Format = '0' + Position = spFooter + Column = VPrice + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + Column = VPS + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = VQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYFMD.SHuangSe + Styles.IncSearch = DataLink_YSYFMD.SHuangSe + Styles.Selection = DataLink_YSYFMD.SHuangSe + Styles.Header = DataLink_YSYFMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object vPSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 62 + end + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 88 + end + object VFTYName: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object VYFName: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 115 + end + object VPayMent: TcxGridDBColumn + Tag = 2 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPS: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object VQty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object VQtyUnit: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPrice: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v2Column1: TcxGridDBColumn + Tag = 666 + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2Column3: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKDate' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column2: TcxGridDBColumn + Tag = 666 + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YFYMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 322 + Width = 1008 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object ADOTemp: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + Parameters = <> + Left = 813 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 463 + Top = 408 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 829 + Top = 405 + end + object ADOZDY: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1010 + Top = 51 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + Parameters = <> + Left = 1045 + Top = 61 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 818 + Top = 254 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 655 + Top = 383 + end + object DataSource3: TDataSource + DataSet = ClientDataSet2 + Left = 608 + Top = 392 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 570 + Top = 414 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas new file mode 100644 index 0000000..9b1160f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas @@ -0,0 +1,748 @@ +unit U_PKInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + PKDate: TDateTimePicker; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + vPSName: TcxGridDBColumn; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + VPS: TcxGridDBColumn; + VQty: TcxGridDBColumn; + VQtyUnit: TcxGridDBColumn; + VPrice: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure RadioGroup1Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPut: TfrmPKInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmPKInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ſ¼',Tv1,''); + WriteCxGrid('Ӧб1',Tv2,''); +end; + +procedure TfrmPKInPut.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,MDQingKuang=Cast('''' as varchar(50)) '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if Order_Sub.IsEmpty then + begin + PKDate.DateTime:=Now; + fsj:=Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime)); + PKDate.DateTime:=StrToDate(fsj); + end else + begin + fsj:=Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('PKDate').AsDateTime)); + PKDate.Date:=StrToDate(fsj); + end; + +end; + +procedure TfrmPKInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ſ¼',Tv1,''); + ReadCxGrid('Ӧб1',Tv2,''); + InitData(); +end; +procedure TfrmPKInPut.GetMaxConNO(); +begin + +end; +function TfrmPKInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('PKMoney').AsString)<>'' then + begin + if Trim(Order_Sub.fieldbyname('PKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PK','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('PKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('PKID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date)); + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + end; + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + {if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('ſΪ!','ʾ',0); + Exit; + end;} + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('PKMoney').AsString)<>'' then + begin + {if Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end;} + if Trim(Order_Sub.fieldbyname('PayMent').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('PKYongTu').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('ʽ;Ϊ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPut.ToolButton3Click(Sender: TObject); +var + FKQDate:TDateTime; + FKQWorkDays,FStr:string; +begin + Fstr:=''; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + {with ADOTemp do + begin + close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Order_Main.fieldbyname('KHNameJC').AsString+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Fstr:='99'; + end else + if ADOTemp.FieldByName('KCMoney').Value>0 then + begin + FStr:=''; + end else + begin + FStr:='99'; + end;} + with ADOTemp do + begin + Close; + sql.Clear; + SQL.Add(' select AAA.*,MaxHZYFMoney=isnull(HZYFMoney,0)+isnull(DDuiZhangMoney,0) '); + sql.Add(' ,BQYFMoney=isnull(BQYFMoney10,0)+isnull(HZKKMoney,0)'); + sql.Add(',Case when GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())<=getdate() then ''δ뵥ſ'' '); + SQL.Add(' When isnull((select Top 1 PK.FactoryName from YF_Money_PaiKuan PK '); + SQL.Add(' where isnull(PK.FKMoney,0)=0 and PK.FactoryName='''+Trim(Order_Main.fieldbyname('KHNameJC').AsString)+''''); + sql.Add(' and isnull(PK.ChkStatus,'''')<>''˲ͨ'' and PK.PKDate>''2014-11-10''), '''')<>'''' then ''δſ¼ſ'' '); + SQL.Add(' else '''' end as MDQingKuang'); + sql.Add(' from('); + sql.Add(' select AA.* '); + SQL.Add(',MinMHDate=(select min(MHDate) from JYOrder_Main_MD_HZ B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.DuiZhangStatus,'''')='''' )'); + sql.Add(' ,HZYFMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,BQKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 and B.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,HZKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 '); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,DDuiZhangMoney=(select Sum(Money) from JYOrder_Main_MD_HZ JMMH where JMMH.FactoryName=AA.FactoryName ');//and JMMH.PSName=AA.PSName + sql.Add(' and isnull(JMMH.Status,'''')<>'''' and isnull(JMMH.DuiZhangStatus,'''')='''')'); + sql.Add(' from ('); + sql.Add(' select FactoryName,BQYFMoney10=sum(Money-YiFuMoney) '); //PSName,FactoryNo, + sql.Add(' from YF_Money_CR A'); + sql.Add(' where CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and isnull(YiFuMoney,0)<>isnull(Money,0)'); + sql.Add(' and isnull(Money,0)>0'); + sql.Add(' and not exists(select * from YF_Money_PaiKuan PK where PK.FactoryName=A.FactoryName '); + sql.Add(' and PK.PKDate='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''')'); + sql.Add(' and FactoryName='''+Trim(Order_Main.fieldbyname('KHNameJC').AsString)+''''); + sql.Add(' and A.CRType=''ӦǼ'' '); + sql.Add(' Group by FactoryName)AA)AAA');//,PSName ,FactoryNo + sql.Add(' inner join ZH_KH_Info GYS on Rtrim(GYS.KHNameJC)=RTrim(AAA.FactoryName)'); + //sql.Add(' where (GYS.LockFlag=0 or (GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())>getdate() ))'); + Open; + end; + //if (ADOTemp.IsEmpty=False) or (FStr='99') then + begin + with Self.Order_Sub do + begin + Append; + // FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PKDate').Value:=PKDate.Date; + // FieldByName('PSName').Value:=ADOTemp.fieldbyname('PSName').Value; + FieldByName('MDQingKuang').Value:=ADOTemp.fieldbyname('MDQingKuang').Value; + FieldByName('BQYFMoney').Value:=ADOTemp.fieldbyname('BQYFMoney').Value; + FieldByName('HZYFMoney').Value:=ADOTemp.fieldbyname('HZYFMoney').Value; + FieldByName('BQKKMoney').Value:=ADOTemp.fieldbyname('BQKKMoney').Value; + FieldByName('HZKKMoney').Value:=ADOTemp.fieldbyname('HZKKMoney').Value; + FieldByName('DDuiZhangMoney').Value:=ADOTemp.fieldbyname('DDuiZhangMoney').Value; + FieldByName('MaxHZYFMoney').Value:=ADOTemp.fieldbyname('MaxHZYFMoney').Value; + Post; + end; + end; + + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmPKInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPut.ToolButton1Click(Sender: TObject); +var + FReal:Double; +begin + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add(' select AAA.*,MaxHZYFMoney=isnull(HZYFMoney,0)+isnull(DDuiZhangMoney,0) '); + sql.Add(' ,BQYFMoney=isnull(BQYFMoney10,0)+isnull(HZKKMoney,0)'); + sql.Add(',Case when GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())<=getdate() then ''δ뵥ſ'' '); + SQL.Add(' When isnull((select Top 1 PK.FactoryName from YF_Money_PaiKuan PK '); + SQL.Add(' where isnull(FKMoney,0)=0 and PK.FactoryName=AAA.FactoryName and PK.PKDate<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date))+''''); + sql.Add(' and isnull(PK.ChkStatus,'''')<>''˲ͨ'' and PKDate>''2014-11-10''), '''')<>'''' then ''δſ¼ſ'' '); + sql.Add(' else '''' end as MDQingKuang'); + sql.Add(' from('); + sql.Add(' select AA.* '); + SQL.Add(',MinMHDate=isnull((select min(MHDate) from JYOrder_Main_MD_HZ B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.DuiZhangStatus,'''')='''' ),getdate()+1)'); // and isnull(B.Status,'''')<>'''' + sql.Add(' ,HZYFMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and B.CRType=''ӦǼ'' )'); + // sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C on )'); + sql.Add(' ,BQKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 and B.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,HZKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 '); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,DDuiZhangMoney=(select Sum(Money) from JYOrder_Main_MD_HZ JMMH where JMMH.FactoryName=AA.FactoryName ');//and JMMH.PSName=AA.PSName + sql.Add(' and isnull(JMMH.Status,'''')<>'''' and isnull(JMMH.DuiZhangStatus,'''')='''')'); + sql.Add(' from ('); + sql.Add(' select FactoryName,BQYFMoney10=sum(Money-YiFuMoney) ');//PSName,FactoryNo, + sql.Add(' from YF_Money_CR A'); + sql.Add(' where CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and isnull(YiFuMoney,0)<>isnull(Money,0)'); + sql.Add(' and isnull(Money,0)>0'); + sql.Add(' and A.CRType=''ӦǼ'' '); + sql.Add(' and not exists(select * from YF_Money_PaiKuan PK where PK.FactoryName=A.FactoryName '); + sql.Add(' and PK.PKDate='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''')'); + sql.Add(' Group by FactoryName)AA)AAA');//PSName ,FactoryNo + sql.Add(' inner join ZH_KH_Info GYS on Rtrim(GYS.KHNameJC)=RTrim(AAA.FactoryName)'); + //sql.Add(' where (GYS.LockFlag=0 or (GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())>getdate() ))'); + //sql.Add(' )AAA'); + //ShowMessage(sql.Text); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + //FieldByName('FactoryNo').Value:=ADOTemp.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ADOTemp.fieldbyname('FactoryName').Value; + //FieldByName('PSName').Value:=ADOTemp.fieldbyname('PSName').Value; + FieldByName('MDQingKuang').Value:=ADOTemp.fieldbyname('MDQingKuang').Value; + FieldByName('BQYFMoney').Value:=ADOTemp.fieldbyname('BQYFMoney').Value; + FieldByName('HZYFMoney').Value:=ADOTemp.fieldbyname('HZYFMoney').Value; + FieldByName('BQKKMoney').Value:=ADOTemp.fieldbyname('BQKKMoney').Value; + FieldByName('HZKKMoney').Value:=ADOTemp.fieldbyname('HZKKMoney').Value; + FieldByName('PKDate').Value:=PKDate.Date; + FieldByName('DDuiZhangMoney').Value:=ADOTemp.fieldbyname('DDuiZhangMoney').Value; + FieldByName('MaxHZYFMoney').Value:=ADOTemp.fieldbyname('MaxHZYFMoney').Value; + Post; + end; + Next; + end; + end; + +end; + +procedure TfrmPKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + { if Trim(Order_Sub.fieldbyname('MDQingKuang').AsString)<>'' then + begin + Tv1.OptionsData.Editing:=False; + end else + begin + Tv1.OptionsData.Editing:=True; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + if ClientDataSet2.IsEmpty then Exit; + with Order_Sub do + begin + Edit; + FieldByName('PSName').Value:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + //Post; + end; + end; } +end; + +procedure TfrmPKInPut.RadioGroup1Click(Sender: TObject); +begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); +end; + +procedure TfrmPKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ſ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKYongTu'; + flagname:='ʽ;'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(Order_Sub.fieldbyname('MDQingKuang').AsString)<>'' then + begin + Tv1.OptionsData.Editing:=False; + end else + begin + Tv1.OptionsData.Editing:=True; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + if ClientDataSet2.IsEmpty then Exit; + with Order_Sub do + begin + Edit; + FieldByName('PSName').Value:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + //Post; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm new file mode 100644 index 0000000..556f448 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm @@ -0,0 +1,283 @@ +object frmPKInPutQT: TfrmPKInPutQT + Left = 184 + Top = 129 + Width = 1092 + Height = 573 + Caption = #36164#37329#23457#25209#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 = 1076 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1076 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column13: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column3: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20154#27665#24065 + #32654#37329) + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 509 + Top = 139 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 431 + Top = 144 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 470 + Top = 148 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 141 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 530 + Top = 262 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas new file mode 100644 index 0000000..21b2da1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas @@ -0,0 +1,483 @@ +unit U_PKInPutQT; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPutQT = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPutQT: TfrmPKInPutQT; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPKInPutQT.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ¼',Tv1,''); +end; + +procedure TfrmPKInPutQT.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + +end; + +procedure TfrmPKInPutQT.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPutQT.FormShow(Sender: TObject); +begin + ReadCxGrid('ʽ¼',Tv1,''); + InitData(); +end; +procedure TfrmPKInPutQT.GetMaxConNO(); +begin + +end; +function TfrmPKInPutQT.SaveData():Boolean; +var + maxno,FSQID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + FSQID:=Trim(ADOTemp.fieldbyname('PKID').AsString); + if Trim(FSQID)='' then + begin + if GetLSNo(ADOCmd,maxno,'SS','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FSQID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FSQID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('HZType').Value:=''; + if Trim(Order_Sub.fieldbyname('BZType').AsString)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FSQID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKNO='+Trim(Order_Sub.fieldbyname('PKNO').AsString)); + sql.Add(' and Convert(varchar(4),PKDate,120)='''+Trim(FormatDateTime('yyyy',Order_Sub.fieldbyname('PKDate').AsDateTime))+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar(': '+ + Trim(Order_Sub.fieldbyname('PKNO').AsString)+ + ' ظ¼!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('FactoryName').AsDateTime))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPutQT.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('PKNO',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PayMent',null,[]) then + begin + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ComTaiTou',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BZType',null,[]) then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JBPerson',null,[]) then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPutQT.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; + +procedure TfrmPKInPutQT.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPutQT.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JBPerson'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('JBPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm new file mode 100644 index 0000000..71dfcb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm @@ -0,0 +1,272 @@ +object frmPKInPutWFX: TfrmPKInPutWFX + Left = 184 + Top = 129 + Width = 1092 + Height = 573 + Caption = #36164#37329#23457#25209#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 = 1076 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + 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 = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1076 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column13: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 509 + Top = 139 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 431 + Top = 144 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 470 + Top = 148 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 141 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 530 + Top = 262 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas new file mode 100644 index 0000000..31bf097 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas @@ -0,0 +1,475 @@ +unit U_PKInPutWFX; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPutWFX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPutWFX: TfrmPKInPutWFX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPKInPutWFX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ¼',Tv1,''); +end; + +procedure TfrmPKInPutWFX.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + +end; + +procedure TfrmPKInPutWFX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPutWFX.FormShow(Sender: TObject); +begin + ReadCxGrid('ʽ¼',Tv1,''); + InitData(); +end; +procedure TfrmPKInPutWFX.GetMaxConNO(); +begin + +end; +function TfrmPKInPutWFX.SaveData():Boolean; +var + maxno,FSQID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + FSQID:=Trim(ADOTemp.fieldbyname('PKID').AsString); + if Trim(FSQID)='' then + begin + if GetLSNo(ADOCmd,maxno,'SS','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FSQID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FSQID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('HZType').Value:=''; + FieldByName('BZType').Value:=''; + FieldByName('HuiLv').Value:=1; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FSQID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKNO='+Trim(Order_Sub.fieldbyname('PKNO').AsString)); + sql.Add(' and Convert(varchar(4),PKDate,120)='''+Trim(FormatDateTime('yyyy',Order_Sub.fieldbyname('PKDate').AsDateTime))+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar(': '+ + Trim(Order_Sub.fieldbyname('PKNO').AsString)+ + ' ظ¼!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('FactoryName').AsDateTime))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPutWFX.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('PKNO',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PayMent',null,[]) then + begin + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ComTaiTou',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JBPerson',null,[]) then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPutWFX.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; + +procedure TfrmPKInPutWFX.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPutWFX.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JBPerson'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('JBPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm new file mode 100644 index 0000000..ca47b39 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm @@ -0,0 +1,646 @@ +object frmPKList: TfrmPKList + Left = 165 + Top = 130 + Width = 1136 + Height = 556 + Caption = #36164#37329#30003#35831#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 = 1120 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 29 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1120 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 263 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 547 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 675 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 807 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + 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 = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 304 + Top = 14 + Width = 117 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 729 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object JBPerson: TEdit + Tag = 2 + Left = 847 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 458 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1120 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + OnCustomDrawCell = v1Column22CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.TextSHuangSe + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1120 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1120 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 696 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 592 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 519 + Top = 191 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 557 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKList.pas new file mode 100644 index 0000000..801d594 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKList.pas @@ -0,0 +1,609 @@ +unit U_PKList; + +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, cxCheckBox, Menus; + + +type + TfrmPKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1Column22CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKList: TfrmPKList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp,U_PKInPutWFX; + +{$R *.dfm} + +procedure TfrmPKList.FormDestroy(Sender: TObject); +begin + frmPKList:=nil; +end; + +procedure TfrmPKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where '); + sql.Add(' A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + sql.Add(' and isnull(HZType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if (cxTabControl1.TabIndex=0) or (cxTabControl1.TabIndex=3) then + begin + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmPKInPutWFX:=TfrmPKInPutWFX.Create(Application); + with frmPKInPutWFX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('PKID').AsString); + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + ToolButton1.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutWFX.Free; + end; + end; + +end; + +procedure TfrmPKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmPKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб()',cxGrid1); +end; + +procedure TfrmPKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.TBAddClick(Sender: TObject); +begin + try + frmPKInPutWFX:=TfrmPKInPutWFX.Create(Application); + with frmPKInPutWFX do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutWFX.Free; + end; +end; + +procedure TfrmPKList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.FactoryNameChange(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 TfrmPKList.ToolButton1Click(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 TfrmPKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(',PrtCount=PrtCount+1'); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''''+RTrim(FactoryName) '); + sql.Add(' else RTrim(FactoryNameQC)+''''+RTrim(FactoryName) end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote,A.Note '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10,id20:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('YuJinagDate1').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('YuJinagDate2').Index-tv1.GroupedItemCount; + Id20:=TV1.GetColumnByFieldName('MoneyKC').Index; + if ARecord.Values[id20]<=0 then Exit; + if ARecord.Values[Id10]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Red; + end else + begin + if ARecord.Values[Id]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Yellow; + end; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPKList.v1Column22CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10,Id20:Integer; +begin + {Id:=TV1.GetColumnByFieldName('PKMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('BQYFMoney').Index; + Id20:=TV1.GetColumnByFieldName('HZYFMoney').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id20] then + begin + ACanvas.Brush.Color:=clRed; + end else + begin + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id10] then + begin + ACanvas.Brush.Color:=clPurple; + end else + begin + ACanvas.Brush.Color:=clSkyBlue; + end; + end; } +end; + +procedure TfrmPKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͨݣˢ½!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=NUll,SSPerson=Null'); + sql.Add(',ChkStatus=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm new file mode 100644 index 0000000..698abc4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm @@ -0,0 +1,680 @@ +object frmPKQTList: TfrmPKQTList + Left = 165 + Top = 130 + Width = 1136 + Height = 556 + Caption = #36164#37329#30003#35831#21015#34920#20854#20182 + 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 = 1120 + AutoSize = True + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 29 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1120 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 263 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 547 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 675 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 807 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + 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 = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 954 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 304 + Top = 14 + Width = 117 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 729 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object JBPerson: TEdit + Tag = 2 + Left = 847 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 458 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 983 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 7 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1120 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + OnCustomDrawCell = v1Column22CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.TextSHuangSe + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column9: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1120 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1120 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 696 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 592 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 519 + Top = 191 + 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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 557 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas new file mode 100644 index 0000000..7214146 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas @@ -0,0 +1,612 @@ +unit U_PKQTList; + +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, cxCheckBox, Menus; + + +type + TfrmPKQTList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + v1Column9: TcxGridDBColumn; + Label5: TLabel; + BZType: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1Column22CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKQTList: TfrmPKQTList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp,U_PKInPutQT; + +{$R *.dfm} + +procedure TfrmPKQTList.FormDestroy(Sender: TObject); +begin + frmPKQTList:=nil; +end; + +procedure TfrmPKQTList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKQTList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKQTList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where '); + sql.Add(' A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + sql.Add(' and isnull(HZType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKQTList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKQTList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if (cxTabControl1.TabIndex=0) or (cxTabControl1.TabIndex=3) then + begin + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmPKInPutQT:=TfrmPKInPutQT.Create(Application); + with frmPKInPutQT do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('PKID').AsString); + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + ToolButton1.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutQT.Free; + end; + end; + +end; + +procedure TfrmPKQTList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmPKQTList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKQTList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб()',cxGrid1); +end; + +procedure TfrmPKQTList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.TBAddClick(Sender: TObject); +begin + try + frmPKInPutQT:=TfrmPKInPutQT.Create(Application); + with frmPKInPutQT do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutQT.Free; + end; +end; + +procedure TfrmPKQTList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKQTList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKQTList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKQTList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.FactoryNameChange(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 TfrmPKQTList.ToolButton1Click(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 TfrmPKQTList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(',PrtCount=PrtCount+1'); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''''+RTrim(FactoryName) '); + sql.Add(' else RTrim(FactoryNameQC)+''''+RTrim(FactoryName) end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote,A.Note '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKQTList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10,id20:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('YuJinagDate1').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('YuJinagDate2').Index-tv1.GroupedItemCount; + Id20:=TV1.GetColumnByFieldName('MoneyKC').Index; + if ARecord.Values[id20]<=0 then Exit; + if ARecord.Values[Id10]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Red; + end else + begin + if ARecord.Values[Id]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Yellow; + end; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPKQTList.v1Column22CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10,Id20:Integer; +begin + {Id:=TV1.GetColumnByFieldName('PKMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('BQYFMoney').Index; + Id20:=TV1.GetColumnByFieldName('HZYFMoney').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id20] then + begin + ACanvas.Brush.Color:=clRed; + end else + begin + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id10] then + begin + ACanvas.Brush.Color:=clPurple; + end else + begin + ACanvas.Brush.Color:=clSkyBlue; + end; + end; } +end; + +procedure TfrmPKQTList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKQTList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKQTList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKQTList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͨݣˢ½!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=NUll,SSPerson=Null'); + sql.Add(',ChkStatus=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm new file mode 100644 index 0000000..d333fd3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm @@ -0,0 +1,534 @@ +object frmPRTJYDJList: TfrmPRTJYDJList + Left = 122 + Top = 125 + Width = 1027 + Height = 511 + Align = alClient + Caption = #25104#21697#26816#39564#21015#34920 + 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 = 1019 + 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_CYZZ.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 = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBRKCX: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + Visible = False + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 359 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 546 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Lot: TComboBox + Left = 609 + Top = 5 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 1 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label4: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Color: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 110 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object GangNo: TEdit + Tag = 1 + Left = 381 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object HX: TEdit + Tag = 2 + Left = 381 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 95 + Width = 1019 + Height = 385 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + 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> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = 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 v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'HX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJZS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + 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 + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + 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 = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + 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 + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas new file mode 100644 index 0000000..e88d1f1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas @@ -0,0 +1,1946 @@ +unit U_PRTJYDJList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYDJList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label4: TLabel; + Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + GangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + Lot: TComboBox; + Label11: TLabel; + HX: TEdit; + v1Column20: TcxGridDBColumn; + 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 orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYDJList: TfrmPRTJYDJList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYDJList.FormDestroy(Sender: TObject); +begin + frmPRTJYDJList:=nil; +end; + +procedure TfrmPRTJYDJList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYDJList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYDJList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',JYDate=Convert(Varchar(10),FillTime,120)'); + sql.Add(' from DJ_JY A where FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<='''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYDJList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYDJList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYDJList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYDJList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYDJList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYDJList.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 TfrmPRTJYDJList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYDJList.orderNoChange(Sender: TObject); +begin + //if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYDJList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',JYDate=Convert(Varchar(10),FillTime,120)'); + sql.Add(' from DJ_JY A '); + sql.add('where A.OrderNo like :OrderNo'); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYDJList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYDJList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYDJList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYDJList.GetLotData(); +var + i,j,z,h,q,Hang,GHang:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + end else + begin + Hang:=Hang+1; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYDJList.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm new file mode 100644 index 0000000..9174e37 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm @@ -0,0 +1,1022 @@ +object frmPRTJYList: TfrmPRTJYList + Left = 114 + Top = 131 + Width = 1226 + Height = 511 + Caption = #25104#21697#26816#39564#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 = 1210 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + 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 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 TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #25171#21360#21305#26465#26631#31614 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object Panel3: TPanel + Left = 561 + Top = 0 + Width = 82 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object CheckBox1: TCheckBox + Left = 8 + Top = 7 + Width = 73 + Height = 17 + Caption = #35013#31665#21097#20313 + TabOrder = 0 + end + end + object BtnEditA1: TBtnEditA + Left = 643 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 830 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1210 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 766 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #27491#21697 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object SelfGangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 790 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + Visible = False + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + Visible = False + end + object Lot: TComboBox + Left = 1062 + Top = 45 + Width = 92 + Height = 20 + ItemHeight = 12 + TabOrder = 13 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 91 + Width = 1210 + Height = 381 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Format = '0' + Kind = skSum + Column = v1Column23 + end + item + Kind = skSum + Column = v1Column25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Width = 66 + 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 + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column22: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column23: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v1Column27: TcxGridDBColumn + Caption = #24179#26041#31859#25187#20998 + DataBinding.FieldName = 'KouFenAvg' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column24: TcxGridDBColumn + Caption = #33394#29282#24230 + DataBinding.FieldName = 'SeLaoDu' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column24PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #22810#25340#20449#24687 + DataBinding.FieldName = 'DuoPinNote' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column25: TcxGridDBColumn + Caption = #21305#26465#25968#37327 + DataBinding.FieldName = 'PiTiaoQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column26: TcxGridDBColumn + Caption = #21305#26465#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = 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 = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 978 + Top = 166 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 950 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + 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 = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + 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 + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end + object RMDBCD: TRMDBDataSet + Visible = True + DataSet = CDS_CD + Left = 688 + Top = 304 + end + object RMCD: 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 = RMDBCD + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 656 + Top = 304 + ReportData = {} + end + object CDS_LS: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object CDS_CD: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 312 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas new file mode 100644 index 0000000..88eba34 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas @@ -0,0 +1,2427 @@ +unit U_PRTJYList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit, + cxTextEdit; + +type + TfrmPRTJYList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + SelfGangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + Label11: TLabel; + PRTHX: TEdit; + v1Column7: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column22: TcxGridDBColumn; + Panel2: TPanel; + Panel3: TPanel; + CheckBox1: TCheckBox; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + ToolButton4: TToolButton; + RMDBCD: TRMDBDataSet; + RMCD: TRMGridReport; + CDS_LS: TClientDataSet; + CDS_CD: TClientDataSet; + Lot: TComboBox; + 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column24PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + procedure GetBGData(); + procedure GetCDSData(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYList: TfrmPRTJYList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYList.FormDestroy(Sender: TObject); +begin + frmPRTJYList:=nil; +end; + +procedure TfrmPRTJYList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' GangNo=E.SelfGangNo ,B.CustomerNoName,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)), + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' and D.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYList.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 TfrmPRTJYList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYList.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYList.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + //SQL.Add(' C.PRTColor,C.PRTHX,C.PRTColorEng,C.PRTColorNo,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.SelfGangNo,E.GangNo,B.CustomerNoName,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)) + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL''),'); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYList.GetLotData(); +var + i,j,z,h,q,Hang,GHang:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JJQty=(select Count(MJID) from WFB_MJJY WM where WM.SubId=JS.SubId'); + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0 '); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1 '); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add('),'); + sql.Add(' GKgQty=(select sum(MJQty4) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo') ; + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0 '); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1 '); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add('),'); + sql.Add(' GGQty=(select Count(MJID) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo') ; + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0'); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1'); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(')'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + //sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + sql.Add(' order by JS.XHInt,JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); + // ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),GangKgQty=Cast(0 as decimal(18,2)),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + end else + begin + Hang:=Hang+1; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + //sql.Add(' order by JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); //JS.SubId, + sql.Add(' order by JS.XHInt,JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38M)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo,JSB.PRTOrdQty,'); + sql.Add('DifLv=Cast((MJJingZ-PRTOrdQty)*1.00*100/PRTOrdQty as decimal(18,2))'); + sql.Add(' from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if CheckBox1.Checked=False then + sql.Add(' and ZhuangXiangSYFlag=0') + else + sql.Add(' and ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYList.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmPRTJYList.v1Column24PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Main do + begin + Edit; + FieldByName('SeLaoDu').Value:=Trim(mvalue); + post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set SeLaoDu='''+Trim(mvalue)+''''); + sql.Add(' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmPRTJYList.ToolButton3Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ƥǩ'),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; +procedure TfrmPRTJYList.GetCDSData(); +begin + CDS_CD.FieldByName('MJXH').Value:=CDS_LS.fieldbyname('MJXH').Value; + CDS_CD.FieldByName('SelfGangNo').Value:=CDS_LS.fieldbyname('SelfGangNo').Value; + CDS_CD.FieldByName('PRTColor').Value:=CDS_LS.fieldbyname('PRTColor').Value; + CDS_CD.FieldByName('PRTColorNo').Value:=CDS_LS.fieldbyname('PRTColorNo').Value; + CDS_CD.FieldByName('MJLen').Value:=CDS_LS.fieldbyname('MJLen').Value; + CDS_CD.FieldByName('MJLenMa').Value:=CDS_LS.fieldbyname('MJLenMa').Value; + CDS_CD.FieldByName('MJJZ').Value:=CDS_LS.fieldbyname('MJQty4').Value; + CDS_CD.FieldByName('MJMZ').Value:=CDS_LS.fieldbyname('MJMaoZ').Value; + CDS_CD.FieldByName('MJFK').Value:=CDS_LS.fieldbyname('MJFK').Value; + CDS_CD.FieldByName('KouFenHZ').Value:=CDS_LS.fieldbyname('KouFenHZ').Value; + CDS_CD.FieldByName('KouFenAvg').Value:=CDS_LS.fieldbyname('KouFenAvg').Value; + CDS_CD.FieldByName('MJID').Value:=CDS_LS.fieldbyname('MJID').Value; + CDS_CD.FieldByName('FillTime').Value:=CDS_LS.fieldbyname('FillTime').Value; +end; +procedure TfrmPRTJYList.GetBGData(); +var + FMJId:string; + i,j,z:Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MJXH=Cast(0 as int),SelfGangNo=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20))'); + sql.Add(',MJID=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),FillTime=Cast(Null as datetime)'); + sql.Add(',MJLen=Cast(0 as decimal(18,1)),MJLenMa=Cast(0 as decimal(18,1)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); + sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KouFenHZ=Cast(0 as int),KouFenAvg=Cast(0 as decimal(18,2))'); + sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); + sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); + sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); + sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); + sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); + sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); + sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); + sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); + sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); + sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); + sql.Add(',CDName10=Cast('''' as varchar(20)),CDBeg10=Cast('''' as varchar(20)),KFQty10=Cast(0 as int)'); + sql.Add(',CDName11=Cast('''' as varchar(20)),CDBeg11=Cast('''' as varchar(20)),KFQty11=Cast(0 as int)'); + sql.Add(',CDName12=Cast('''' as varchar(20)),CDBeg12=Cast('''' as varchar(20)),KFQty12=Cast(0 as int)'); + sql.Add(',CDName13=Cast('''' as varchar(20)),CDBeg13=Cast('''' as varchar(20)),KFQty13=Cast(0 as int)'); + sql.Add(',CDName14=Cast('''' as varchar(20)),CDBeg14=Cast('''' as varchar(20)),KFQty14=Cast(0 as int)'); + sql.Add(',CDName15=Cast('''' as varchar(20)),CDBeg15=Cast('''' as varchar(20)),KFQty15=Cast(0 as int)'); + sql.Add(',CDName16=Cast('''' as varchar(20)),CDBeg16=Cast('''' as varchar(20)),KFQty16=Cast(0 as int)'); + sql.Add(',CDName17=Cast('''' as varchar(20)),CDBeg17=Cast('''' as varchar(20)),KFQty17=Cast(0 as int)'); + sql.Add(',CDName18=Cast('''' as varchar(20)),CDBeg18=Cast('''' as varchar(20)),KFQty18=Cast(0 as int)'); + sql.Add(',CDName19=Cast('''' as varchar(20)),CDBeg19=Cast('''' as varchar(20)),KFQty19=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CD); + SInitCDSData20(ADOQueryTemp,CDS_CD); + if CDS_CD.IsEmpty=False then CDS_CD.Delete; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select AA.*, '); + SQL.Add(' case when CDBeg=CDEnd then Cast(CDBeg as varchar(20)) else Cast(CDBeg as varchar(20))+''-''+Cast(CDEnd as varchar(20)) end as CDQK'); + sql.Add('from (select A.CDBeg,A.CDEnd,A.CDName,A.KouFen,B.MJXH,C.SelfGangNo,JS.PRTColorNo,JS.PRTColor,B.MJID, '); + sql.Add(' Case when B.MJLen>0 then B.KouFenHZ*1.00*100/(B.MJLen*B.MJFK) else Null end as KouFenAvg'); + sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); + sql.Add(',B.MJLen,B.MJLenMa,B.MJQty4,B.MJMaoZ,B.MJSJKZ,B.MJFK,B.MJType,B.KouFenHZ,B.FillTime'); + sql.Add(' from WFB_MJJY B '); + sql.Add(' left join WFB_MJJY_CD A on B.MJID=A.MJID'); + sql.Add(' inner join JYOrder_Main_MD C on B.APID=C.MDID'); + sql.Add(' inner join JYOrder_Sub JS on C.ORDSubId=JS.SubId'); + SQL.Add(' where B.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and isnull(B.MJType,'''')='''+Trim(MJType.Text)+''''); + end; + + sql.Add(')AA order by PRTColorNo,Cast(SelfGangNo as int),MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_LS); + SInitCDSData20(ADOQueryTemp,CDS_LS); + CDS_LS.DisableControls; + with CDS_LS do + begin + First; + while not Eof do + begin + if CDS_CD.IsEmpty then + begin + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg0').Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty0').Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + i:=0;//к + j:=0; + z:=0;//к + end; + end else + begin + if Trim(CDS_LS.fieldbyname('MJID').AsString)=FMJId then + begin + i:=i+1; + if i<20 then + begin + with CDS_CD do + begin + Edit; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + end; + end; + Next; + end; + end; + CDS_LS.EnableControls; +end; +procedure TfrmPRTJYList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then exit; + GetBGData(); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf' ; + if FileExists(fPrintFile) then + begin + RMCD.LoadFromFile(fPrintFile); + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['CustomerNoName']:=Trim(CDS_Main.fieldbyname('CustomerNoName').AsString); + //RMVariables['FillTIme']:=Trim(CDS_Main.fieldbyname('FillTIme').AsString); + RMVariables['MPRTMF']:=Trim(CDS_Main.fieldbyname('MPRTMF').AsString); + RMVariables['MPRTKZ']:=Trim(CDS_Main.fieldbyname('MPRTKZ').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMCD.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\鱨.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm new file mode 100644 index 0000000..fc10518 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm @@ -0,0 +1,1045 @@ +object frmPRTJYListGL: TfrmPRTJYListGL + Left = 22 + Top = 127 + Width = 1249 + Height = 511 + Caption = #25104#21697#26816#39564#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 = 1233 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton5: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360#21305#26465#26631#31614 + ImageIndex = 14 + OnClick = ToolButton5Click + end + object TBRKCX: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 537 + Top = 0 + AutoSize = True + Caption = #35013#31665#21097#20313 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 624 + Top = 0 + Caption = #35013#31665#21097#20313#25764#38144 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 731 + Top = 0 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 4 + OnClick = ToolButton6Click + end + object ToolButton1: TToolButton + Left = 818 + Top = 0 + AutoSize = True + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + Visible = False + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 905 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 1092 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1233 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 770 + Top = 12 + Width = 48 + Height = 12 + Caption = #26412#21378#32568#21495 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 770 + Top = 36 + Width = 48 + Height = 12 + Caption = #26426' '#21488' '#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #27491#21697 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object GangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object SelfGangNo: TEdit + Tag = 1 + Left = 819 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + Visible = False + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + Visible = False + end + object JTType: TEdit + Tag = 1 + Left = 819 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end + object Lot: TComboBox + Left = 1093 + Top = 37 + Width = 92 + Height = 20 + ItemHeight = 12 + TabOrder = 14 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 91 + Width = 1233 + Height = 381 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + Column = v1Column25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column7: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + 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 + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JTType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column21: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column14: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column23: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenHZ' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column27: TcxGridDBColumn + Caption = #24179#26041#31859#25187#20998 + DataBinding.FieldName = 'KouFenAvg' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column24: TcxGridDBColumn + Caption = #33394#29282#24230 + DataBinding.FieldName = 'SeLaoDu' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column25: TcxGridDBColumn + Caption = #21305#26465#25968#37327 + DataBinding.FieldName = 'PiTiaoQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column26: TcxGridDBColumn + Caption = #21305#26465#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = 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 = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 48 + 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 + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + 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 = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + 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 + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end + object CDS_CD: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 312 + end + object CDS_LS: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object RMCD: 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 = RMDBCD + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 656 + Top = 304 + ReportData = {} + end + object RMDBCD: TRMDBDataSet + Visible = True + DataSet = CDS_CD + Left = 688 + Top = 304 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas new file mode 100644 index 0000000..2c23fc5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas @@ -0,0 +1,2308 @@ +unit U_PRTJYListGL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYListGL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + GangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + ToolButton2: TToolButton; + v1Column7: TcxGridDBColumn; + Label11: TLabel; + SelfGangNo: TEdit; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column15: TcxGridDBColumn; + ToolButton4: TToolButton; + v1Column20: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column21: TcxGridDBColumn; + Panel2: TPanel; + v1Column22: TcxGridDBColumn; + Label13: TLabel; + JTType: TEdit; + ToolButton5: TToolButton; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + ToolButton6: TToolButton; + CDS_CD: TClientDataSet; + CDS_LS: TClientDataSet; + RMCD: TRMGridReport; + RMDBCD: TRMDBDataSet; + Lot: TComboBox; + 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38Ye(); + function SaveConData(FConNO:string):Boolean; + procedure GetBGData(); + procedure GetCDSData(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYListGL: TfrmPRTJYListGL; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYListGL.FormDestroy(Sender: TObject); +begin + frmPRTJYListGL:=nil; +end; + +procedure TfrmPRTJYListGL.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYListGL.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYListGL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,B.KgZMiXS,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.GangNo,E.SelfGangNo,B.CustomerNoName,'); + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and D.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYListGL.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYListGL.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYListGL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYListGL.FormShow(Sender: TObject); +begin + + ReadCxGrid('Ʒ',Tv1,'Ʒ'); + +end; + +procedure TfrmPRTJYListGL.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYListGL.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 TfrmPRTJYListGL.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYListGL.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; + +end; + +procedure TfrmPRTJYListGL.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYListGL.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,B.KgZMiXS,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.GangNo,E.SelfGangNo,B.CustomerNoName,'); + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like :OrderNo'); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYListGL.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYListGL.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYListGL.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSEl',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYListGL.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //SQL.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + // sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX'); + // sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.GetLotData(); +var + i,j,z,h,q,Hang,GHang,JuanQty,GangQty:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end else + begin + Hang:=Hang+1; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38M)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYListGL.ToolButton2Click(Sender: TObject); +begin + try + frmMJEdit:=TfrmMJEdit.Create(Application); + with frmMJEdit do + begin + MJID.Text:=Trim(Self.CDS_Main.fieldbyname('MJID').AsString); + KgZMiXS:=Trim(Self.CDS_Main.fieldbyname('KgZMiXS').AsString); + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY A '); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + //M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + // Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='ƴ' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + if ShowModal=1 then + begin + + end; + end; + finally + frmMJEdit.Free; + end; +end; + +procedure TfrmPRTJYListGL.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYListGL.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYListGL.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYListGL.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; +function TfrmPRTJYListGL.SaveConData(FConNO:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(FConNO)+''''); + sql.Add(' and ConType=''װ'' and ConTypeOther=''װʣ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ZM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(FConNO); + FieldByName('FactoryNoName').Value:='ֿ'; + FieldByName('FactoryNo').Value:='GS131230001'; + FieldByName('ConTypeOther').Value:='װʣ'; + FieldByName('ConType').Value:='װ'; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'ZS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=CDS_Main.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=CDS_Main.fieldbyname('MPRTCodeName').Value; + Post; + end; + Result:=True; + +end; +procedure TfrmPRTJYListGL.ToolButton3Click(Sender: TObject); +var + FPSID,FFMainId,FFOrdeNo:String; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CDS_Main.Locate('SSel',True,[]); + FFMainId:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FFOrdeNo:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FFMainId)+''''); + sql.Add(' and PSName=''װ'' '); + Open; + end; + FPSID:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + if Trim(FPSID)='' then + begin + Application.MessageBox('ûж<װ>','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set ZhuangXiangSYFlag=1 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ZhuangXiangSYFlag').Value:=1; + Post; + end; + end; + CDS_Main.EnableControls; + if SaveConData(Trim(FFOrdeNo))=False then + begin + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' insert into JYOrder_PCS_Sub(MainId,SubId,PSID,PFID,FactoryNo,FactoryName,Filler,FillTime)'); + sql.Add('select MainId,SubId,'''+FPSID+''''); + sql.Add(',''FP''+RTrim(SubId),''GS131230001'',''ֿ'','''+Trim(DName)+''',getdate()'); + SQL.Add(' from WFB_MJJY where Mainid='''+Trim(FFMainId)+''''); + sql.Add(' and ZhuangXiangSYFlag=1 '); + sql.Add(' and not exists(select * from JYOrder_PCS_Sub A where A.SubId=WFB_MJJY.SubId and A.PSID='''+Trim(FPSID)+''')'); + sql.Add(' group by MainId,SubId'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set'); + sql.Add('PFTPPS=(select isnull(Count(*),0) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPQty=(select isnull(sum(MJQty4),0) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPUnit=''KG'' '); + sql.Add(' where PSID='''+Trim(FPSID)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.ToolButton4Click(Sender: TObject); +var + FPSID,FFMainId,FFOrdeNo:String; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CDS_Main.Locate('SSel',True,[]); + FFMainId:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FFOrdeNo:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set ZhuangXiangSYFlag=0 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ZhuangXiangSYFlag').Value:=0; + Post; + end; + end; + CDS_Main.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set'); + sql.Add('PFTPPS=(select Count(*) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPQty=(select sum(MJQty4) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPUnit=''KG'' '); + sql.Add(' where PSID='''+Trim(FPSID)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.ToolButton5Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ƥǩ'),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYListGL.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; +begin + GetBGData(); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf' ; + if FileExists(fPrintFile) then + begin + RMCD.LoadFromFile(fPrintFile); + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['CustomerNoName']:=Trim(CDS_Main.fieldbyname('CustomerNoName').AsString); + RMVariables['MPRTMF']:=Trim(CDS_Main.fieldbyname('MPRTMF').AsString); + RMVariables['MPRTKZ']:=Trim(CDS_Main.fieldbyname('MPRTKZ').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + // RMVariables['FillTIme']:=Trim(CDS_Main.fieldbyname('FillTIme').AsString); + RMCD.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\鱨.rmf'),'ʾ',0); + end; +end; +procedure TfrmPRTJYListGL.GetCDSData(); +begin + CDS_CD.FieldByName('MJXH').Value:=CDS_LS.fieldbyname('MJXH').Value; + CDS_CD.FieldByName('SelfGangNo').Value:=CDS_LS.fieldbyname('SelfGangNo').Value; + CDS_CD.FieldByName('PRTColor').Value:=CDS_LS.fieldbyname('PRTColor').Value; + CDS_CD.FieldByName('PRTColorNo').Value:=CDS_LS.fieldbyname('PRTColorNo').Value; + CDS_CD.FieldByName('MJLen').Value:=CDS_LS.fieldbyname('MJLen').Value; + CDS_CD.FieldByName('MJLenMa').Value:=CDS_LS.fieldbyname('MJLenMa').Value; + CDS_CD.FieldByName('MJJZ').Value:=CDS_LS.fieldbyname('MJQty4').Value; + CDS_CD.FieldByName('MJMZ').Value:=CDS_LS.fieldbyname('MJMaoZ').Value; + CDS_CD.FieldByName('MJFK').Value:=CDS_LS.fieldbyname('MJFK').Value; + CDS_CD.FieldByName('KouFenHZ').Value:=CDS_LS.fieldbyname('KouFenHZ').Value; + CDS_CD.FieldByName('KouFenAvg').Value:=CDS_LS.fieldbyname('KouFenAvg').Value; + CDS_CD.FieldByName('MJID').Value:=CDS_LS.fieldbyname('MJID').Value; + CDS_CD.FieldByName('FillTime').Value:=CDS_LS.fieldbyname('FillTime').Value; +end; +procedure TfrmPRTJYListGL.GetBGData(); +var + FMJId:string; + i,j,z:Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MJXH=Cast(0 as int),SelfGangNo=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20))'); + sql.Add(',MJID=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),FillTime=Cast(Null as datetime)'); + sql.Add(',MJLen=Cast(0 as decimal(18,1)),MJLenMa=Cast(0 as decimal(18,1)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); + sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KouFenHZ=Cast(0 as int),KouFenAvg=Cast(0 as decimal(18,2))'); + sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); + sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); + sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); + sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); + sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); + sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); + sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); + sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); + sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); + sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); + sql.Add(',CDName10=Cast('''' as varchar(20)),CDBeg10=Cast('''' as varchar(20)),KFQty10=Cast(0 as int)'); + sql.Add(',CDName11=Cast('''' as varchar(20)),CDBeg11=Cast('''' as varchar(20)),KFQty11=Cast(0 as int)'); + sql.Add(',CDName12=Cast('''' as varchar(20)),CDBeg12=Cast('''' as varchar(20)),KFQty12=Cast(0 as int)'); + sql.Add(',CDName13=Cast('''' as varchar(20)),CDBeg13=Cast('''' as varchar(20)),KFQty13=Cast(0 as int)'); + sql.Add(',CDName14=Cast('''' as varchar(20)),CDBeg14=Cast('''' as varchar(20)),KFQty14=Cast(0 as int)'); + sql.Add(',CDName15=Cast('''' as varchar(20)),CDBeg15=Cast('''' as varchar(20)),KFQty15=Cast(0 as int)'); + sql.Add(',CDName16=Cast('''' as varchar(20)),CDBeg16=Cast('''' as varchar(20)),KFQty16=Cast(0 as int)'); + sql.Add(',CDName17=Cast('''' as varchar(20)),CDBeg17=Cast('''' as varchar(20)),KFQty17=Cast(0 as int)'); + sql.Add(',CDName18=Cast('''' as varchar(20)),CDBeg18=Cast('''' as varchar(20)),KFQty18=Cast(0 as int)'); + sql.Add(',CDName19=Cast('''' as varchar(20)),CDBeg19=Cast('''' as varchar(20)),KFQty19=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CD); + SInitCDSData20(ADOQueryTemp,CDS_CD); + if CDS_CD.IsEmpty=False then CDS_CD.Delete; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select AA.*, '); + SQL.Add(' case when CDBeg=CDEnd then Cast(CDBeg as varchar(20)) else Cast(CDBeg as varchar(20))+''-''+Cast(CDEnd as varchar(20)) end as CDQK'); + sql.Add('from (select A.CDBeg,A.CDEnd,A.CDName,A.KouFen,B.MJXH,C.SelfGangNo,JS.PRTColorNo,JS.PRTColor,B.MJID, '); + sql.Add(' Case when B.MJLen>0 then B.KouFenHZ*1.00*100/(B.MJLen*B.MJFK) else Null end as KouFenAvg'); + sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); + sql.Add(',B.MJLen,B.MJLenMa,B.MJQty4,B.MJMaoZ,B.MJSJKZ,B.MJFK,B.MJType,B.KouFenHZ,B.FillTime'); + sql.Add(' from WFB_MJJY B '); + sql.Add(' left join WFB_MJJY_CD A on B.MJID=A.MJID'); + sql.Add(' inner join JYOrder_Main_MD C on B.APID=C.MDID'); + sql.Add(' inner join JYOrder_Sub JS on C.ORDSubId=JS.SubId'); + SQL.Add(' where B.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and isnull(B.MJType,'''')='''+Trim(MJType.Text)+''''); + end; + + sql.Add(')AA order by PRTColorNo,Cast(SelfGangNo as int),MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_LS); + SInitCDSData20(ADOQueryTemp,CDS_LS); + CDS_LS.DisableControls; + with CDS_LS do + begin + First; + while not Eof do + begin + if CDS_CD.IsEmpty then + begin + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg0').Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty0').Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + i:=0;//к + j:=0; + z:=0;//к + end; + end else + begin + if Trim(CDS_LS.fieldbyname('MJID').AsString)=FMJId then + begin + i:=i+1; + if i<20 then + begin + with CDS_CD do + begin + Edit; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + end; + end; + Next; + end; + end; + CDS_LS.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm new file mode 100644 index 0000000..682fe19 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm @@ -0,0 +1,916 @@ +object frmPRTJYListNew: TfrmPRTJYListNew + Left = 122 + Top = 131 + Width = 1027 + Height = 511 + Caption = #25104#21697#26816#39564#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 = 1019 + 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_CYZZ.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 ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBRKCX: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 426 + Top = 0 + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 509 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 696 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Lot: TComboBox + Left = 759 + Top = 5 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 1 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 86 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 766 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object SelfGangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 790 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 119 + Width = 1019 + Height = 361 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = 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 v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Width = 66 + 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 + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column22: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column21: TcxGridDBColumn + Caption = #22810#25340#20449#24687 + DataBinding.FieldName = 'DuoPinNote' + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = 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 = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 978 + Top = 166 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 950 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 384 + Top = 273 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 457 + Top = 272 + 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 = 417 + Top = 259 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 616 + Top = 291 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 578 + Top = 286 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 272 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + 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 + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas new file mode 100644 index 0000000..2876f16 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas @@ -0,0 +1,2230 @@ +unit U_PRTJYListNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYListNew = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + SelfGangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + ToolButton2: TToolButton; + Lot: TComboBox; + Label11: TLabel; + PRTHX: TEdit; + v1Column7: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column22: TcxGridDBColumn; + Panel2: TPanel; + 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYListNew: TfrmPRTJYListNew; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYListNew.FormDestroy(Sender: TObject); +begin + frmPRTJYListNew:=nil; +end; + +procedure TfrmPRTJYListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYListNew.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,'); + SQL.Add(' B.OrderNo,MPRTCode=B.MPRTCode+B.MPRTGY,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' GangNo=E.SelfGangNo ,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)), + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>=:begdate and D.FillTime<:enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYListNew.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYListNew.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYListNew.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYListNew.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYListNew.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYListNew.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 TfrmPRTJYListNew.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYListNew.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYListNew.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYListNew.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,'); + SQL.Add(' B.OrderNo,MPRTCode=B.MPRTCode+B.MPRTGY,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + //SQL.Add(' C.PRTColor,C.PRTHX,C.PRTColorEng,C.PRTColorNo,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.SelfGangNo,E.GangNo,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)) + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL''),'); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like :OrderNo'); + //sql.Add(' and D.Valie=''Y'' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYListNew.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYListNew.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYListNew.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYListNew.GetLotData(); +var + i,j,z,h,q,Hang,GHang,JuanQty,GangQty:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end else + begin + Hang:=Hang+1; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //SQL.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + // sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX'); + // sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYListNew.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYListNew.ToolButton2Click(Sender: TObject); +begin + try + frmMJEdit:=TfrmMJEdit.Create(Application); + with frmMJEdit do + begin + MJID.Text:=Trim(Self.CDS_Main.fieldbyname('MJID').AsString); + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY A '); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + //M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + // Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='ƴ' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + if ShowModal=1 then + begin + + end; + end; + finally + frmMJEdit.Free; + end; +end; + +procedure TfrmPRTJYListNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYListNew.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYListNew.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYListNew.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm new file mode 100644 index 0000000..38dc5a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm @@ -0,0 +1,693 @@ +object frmPRTOrderAPList: TfrmPRTOrderAPList + Left = 80 + Top = 84 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#23433#25490 + 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 = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 143 + 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 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + Visible = False + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25171#21360#21253#35013#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton1: TToolButton + Left = 627 + Top = 0 + Caption = #25171#21360#29983#20135#25805#20316#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 770 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 857 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 920 + Top = 0 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 470 + 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 Label10: TLabel + Left = 470 + 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 Label12: TLabel + Left = 621 + Top = 39 + 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 = 621 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 523 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 143 + Width = 1270 + Height = 410 + Align = alClient + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + 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_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1270 + Height = 22 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23433#25490 + #37096#20998#23433#25490 + #24050#23433#25490 + #24050#23436#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 121 + Width = 1270 + Height = 22 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #37319#36141#21152#24037#21512#21516#26410#24405#20837 + #37319#36141#21152#24037#21512#21516#37096#20998#24405#20837 + #37319#36141#21152#24037#21512#21516#24050#24405#20837) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 472 + Top = 184 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas new file mode 100644 index 0000000..e4f3ba1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas @@ -0,0 +1,807 @@ +unit U_PRTOrderAPList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderAPList = 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; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabControl1: TcxTabControl; + cxTabControl2: TcxTabControl; + v1Column9: TcxGridDBColumn; + ToolButton1: TToolButton; + 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 OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderAPList: TfrmPRTOrderAPList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderAPList.FormDestroy(Sender: TObject); +begin + frmPRTOrderAPList:=nil; +end; + +procedure TfrmPRTOrderAPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderAPList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + if Trim(CanShu2)='ֿ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton2.Visible:=False; + end; +end; + +procedure TfrmPRTOrderAPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderAPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and( (isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''') and isnull(CPSatus,'''')='''' ) '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and( (isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''') or isnull(CPSatus,'''')<>'''') '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end; + if cxTabControl1.TabIndex<>3 then + begin + fsj:=fsj+' and ChuHuoFinishFlag=0'; + end else + begin + cxTabControl2.Visible:=False; + fsj:=fsj+' and ChuHuoFinishFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0 '; + if cxTabControl1.TabIndex=2 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + end else + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + end; + + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderAPList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderAPList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderAPList.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 TfrmPRTOrderAPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ConSubId:=Trim(Self.Order_Main.fieldbyname('ConSubId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + FXianShi:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; + RM1.Clear; +end; + +procedure TfrmPRTOrderAPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+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 + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderAPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderAPList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderAPList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderAPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + +end; + +procedure TfrmPRTOrderAPList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.OrderNoChange(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 TfrmPRTOrderAPList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderAPList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderAPList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderAPList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderAPList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderAPList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderAPList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''' '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''' '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0 '; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderAPList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0'; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderAPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderAPList.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then + begin + cxTabControl2.Visible:=True; + end else + begin + cxTabControl2.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmPRTOrderAPList.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm new file mode 100644 index 0000000..c003695 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm @@ -0,0 +1,700 @@ +object frmPRTOrderChkList: TfrmPRTOrderChkList + Left = 24 + Top = 101 + Width = 1342 + Height = 592 + Caption = #29983#20135#25351#31034#21333#23457#26680 + 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 = 1326 + Height = 62 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #23457#25209#36890#36807 + ImageIndex = 114 + Wrap = True + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #23457#25209#25764#38144 + ImageIndex = 129 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 150 + Top = 30 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 273 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 360 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 423 + Top = 33 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1326 + Height = 67 + 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 = #35746#21333#21495 + 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 = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 468 + 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 Label10: TLabel + Left = 468 + 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 Label12: TLabel + Left = 621 + Top = 39 + 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 = 613 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 129 + Width = 1326 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24453#23457#25209 + #24050#23457#25209 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1326 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 150 + Width = 1326 + Height = 403 + Align = alClient + TabOrder = 3 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + 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_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas new file mode 100644 index 0000000..5669ecd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas @@ -0,0 +1,690 @@ +unit U_PRTOrderChkList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderChkList: TfrmPRTOrderChkList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderChkList.FormDestroy(Sender: TObject); +begin + frmPRTOrderChkList:=nil; +end; + +procedure TfrmPRTOrderChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderChkList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(A.Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=' and isnull(A.SChker,'''')<>'''' '+fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderChkList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderChkList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderChkList.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 TfrmPRTOrderChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderChkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderChkList.OrderNoChange(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 TfrmPRTOrderChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderChkList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderChkList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderChkList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderChkList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderChkList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:='and isnull(SChker,'''')<>'''' '+fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderChkList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderChkList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderChkList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set PChker=NUll'); + SQL.Add(',PChkTime=NUll,PChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set PChker='''+Trim(DName)+''''); + SQL.Add(',PChkTime=getdate(),PChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm new file mode 100644 index 0000000..3887dfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm @@ -0,0 +1,746 @@ +object frmPRTOrderList: TfrmPRTOrderList + Left = 37 + Top = 78 + Width = 1286 + Height = 592 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + Height = 62 + 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_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 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 ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + Wrap = True + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #20316#24223#36865#23457 + ImageIndex = 32 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #20316#24223#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBDel: TToolButton + Left = 174 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 237 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 300 + Top = 30 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 423 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 510 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ToolButton7: TToolButton + Left = 573 + Top = 30 + AutoSize = True + Caption = #20986#36135#23436#25104 + ImageIndex = 34 + OnClick = ToolButton7Click + end + object ToolButton8: TToolButton + Left = 660 + Top = 30 + AutoSize = True + Caption = #23436#25104#25764#38144 + ImageIndex = 52 + OnClick = ToolButton8Click + end + object ComboBox1: TComboBox + Left = 747 + Top = 33 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 470 + 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 Label10: TLabel + Left = 468 + 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 Label12: TLabel + Left = 621 + Top = 39 + 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 = 621 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 129 + Width = 1270 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23457#26680 + #24050#20316#24223 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 150 + Width = 1270 + Height = 403 + Align = alClient + TabOrder = 3 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + 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_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas new file mode 100644 index 0000000..baf707b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas @@ -0,0 +1,911 @@ +unit U_PRTOrderList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderList = 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; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderList: TfrmPRTOrderList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderList.FormDestroy(Sender: TObject); +begin + frmPRTOrderList:=nil; +end; + +procedure TfrmPRTOrderList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + if Trim(CanShu2)='ֿ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton2.Visible:=False; + end; +end; + +procedure TfrmPRTOrderList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(A.SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderList.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 TfrmPRTOrderList.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; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ConSubId:=Trim(Self.Order_Main.fieldbyname('ConSubId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; + RM1.Clear; +end; + +procedure TfrmPRTOrderList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+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 + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.OrderNoChange(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 TfrmPRTOrderList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set SChker=NUll'); + SQL.Add(',SChkTime=NUll '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderList.ToolButton5Click(Sender: TObject); +begin + //if cxTabControl1.TabIndex<>1 then Exit; + if cxTabControl1.TabIndex<>2 then + begin + Application.MessageBox('״̬µ!','ʾ',0); + Exit; + end; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrder_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('Chker').AsString='' then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ZuoFeiPerson='''+Trim(DName)+''''); + SQL.Add(',ZuoFeiTime=getdate(),ZuoFeiFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton6Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrder_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then + begin + Application.MessageBox('Ѿͨܳ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString='' then Exit; + if Application.MessageBox('ȷҪִϳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ZuoFeiPerson=Null'); + SQL.Add(',ZuoFeiTime=Null,ZuoFeiFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton7Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then + begin + Application.MessageBox('״̬µ!','ʾ',0); + Exit; + end; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ChuHuoFinishPerson='''+Trim(DName)+''''); + SQL.Add(',ChuHuoFinishTime=getdate(),ChuHuoFinishFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + {with Order_Main do + begin + Edit; + FieldByName('ChuHuoFinishFlag').Value:=True; + Post; + end; } + +end; + +procedure TfrmPRTOrderList.ToolButton8Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>4 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ChuHuoFinishPerson=Null'); + SQL.Add(',ChuHuoFinishTime=Null,ChuHuoFinishFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + {with Order_Main do + begin + Edit; + FieldByName('ChuHuoFinishFlag').Value:=False; + Post; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm new file mode 100644 index 0000000..5e6bfb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm @@ -0,0 +1,614 @@ +object frmPRTOrderPBDHViewList: TfrmPRTOrderPBDHViewList + Left = 50 + Top = 102 + Width = 1382 + Height = 598 + Caption = #22383#24067#21040#36135#26597#35810 + 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 = 1366 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#21253#35013#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton2: TToolButton + Left = 312 + Top = 0 + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 431 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 494 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 67 + 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 = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #23458#25143#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 316 + Top = 39 + 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 = 462 + Top = 39 + Width = 26 + 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 Label12: TLabel + Left = 579 + Top = 39 + 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 = 579 + Top = 15 + 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 = 318 + Top = 15 + Width = 52 + Height = 12 + Caption = #21040#36135#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 462 + Top = 15 + Width = 26 + Height = 12 + Caption = #25104#20998 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 488 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 606 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 606 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object GYS: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object Edit1: TEdit + Tag = 2 + Left = 488 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1366 + Height = 460 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + 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_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #35746#21333#24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #35746#21333#25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #21040#36135#22320#28857 + DataBinding.FieldName = 'GYS' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'HZDHPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'HZDHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20986#36135#21305#25968 + DataBinding.FieldName = 'HZCHPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'HZCHQty' + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #21305#25968#24046#39069 + DataBinding.FieldName = 'PSCE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 84 + end + object v1Column4: TcxGridDBColumn + Caption = #25968#37327#24046#39069 + DataBinding.FieldName = 'QtyCE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 79 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 444 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas new file mode 100644 index 0000000..825eafa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas @@ -0,0 +1,547 @@ +unit U_PRTOrderPBDHViewList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderPBDHViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Label2: TLabel; + GYS: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label5: TLabel; + Edit1: TEdit; + ToolButton1: TToolButton; + v1Column4: TcxGridDBColumn; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderPBDHViewList: TfrmPRTOrderPBDHViewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderPBDHViewList.FormDestroy(Sender: TObject); +begin + frmPRTOrderPBDHViewList:=nil; +end; + +procedure TfrmPRTOrderPBDHViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderPBDHViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderPBDHViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderPBDHViewList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_DH :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' '; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderPBDHViewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.InitForm(); +begin + ReadCxGrid('ָʾ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-90; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderPBDHViewList.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 TfrmPRTOrderPBDHViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderPBDHViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderPBDHViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.OrderNoChange(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 TfrmPRTOrderPBDHViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderPBDHViewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderPBDHViewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderPBDHViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + Panel1.Enabled:=False; + Label14.Visible:=False; + CustomerNoName.Visible:=False; + ToolButton13.Visible:=False; + ToolButton18.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_DH :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and JM.orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.ConNoKeyPress(Sender: TObject; + var Key: Char); + +begin + {if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб',cxGrid1); +end; + +procedure TfrmPRTOrderPBDHViewList.ToolButton2Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm new file mode 100644 index 0000000..b13059c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm @@ -0,0 +1,656 @@ +object frmPRTOrderPriceList: TfrmPRTOrderPriceList + Left = 34 + Top = 98 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333'('#21333#20215#25351#23450')' + 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 = 1270 + AutoSize = True + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #21333#20215#25351#23450 + ImageIndex = 126 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBExport: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + end + object ToolButton3: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 471 + Top = 15 + 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 Label10: TLabel + Left = 469 + 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 Label12: TLabel + Left = 622 + Top = 39 + 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 = 622 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 372 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 524 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 523 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 650 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 651 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 372 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1270 + Height = 433 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column10: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'PIConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PIPriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PIPrtPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1270 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25351#23450 + #24050#25351#23450 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 448 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 496 + Top = 176 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 176 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 176 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 600 + Top = 176 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 176 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 784 + Top = 176 + end + object RM2: 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 = 752 + Top = 176 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 548 + Top = 176 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas new file mode 100644 index 0000000..37837cc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas @@ -0,0 +1,563 @@ +unit U_PRTOrderPriceList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderPriceList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + RMXLSExport2: TRMXLSExport; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + + + { Public declarations } + end; + +var + frmPRTOrderPriceList: TfrmPRTOrderPriceList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice + ,U_ContractSelList; + +{$R *.dfm} + +procedure TfrmPRTOrderPriceList.FormDestroy(Sender: TObject); +begin + frmPRTOrderPriceList:=nil; +end; + +procedure TfrmPRTOrderPriceList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderPriceList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderPriceList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбPrice',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderPriceList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderPriceList.InitForm(); +begin + ReadCxGrid('ָʾбPrice',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmPRTOrderPriceList.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 TfrmPRTOrderPriceList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.OrderNoChange(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 TfrmPRTOrderPriceList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderPriceList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderPriceList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderPriceList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderPriceList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderPriceList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderPriceList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + fsj:=fsj+' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPriceList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + fsj:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾָ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton1Click(Sender: TObject); +var + ConPrice,ConSubId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ConSubId:=''; + try + frmContractSelList:=TfrmContractSelList.Create(Application); + with frmContractSelList do + begin + if ShowModal=1 then + begin + ConSubId:=Trim(frmContractSelList.Order_Main.fieldbyname('SubId').AsString); + ConPrice:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTPrice').AsString); + end; + end; + finally + frmContractSelList.Free; + end; + if Trim(ConSubId)<>'' then + begin + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Sub Set PISubId='''+Trim(ConSubId)+''''); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Sub Set PISubId=Null'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmPRTOrderPriceList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPRTOrderPriceList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm new file mode 100644 index 0000000..c60146a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm @@ -0,0 +1,592 @@ +object frmPRTOrderSCList: TfrmPRTOrderSCList + Left = 35 + Top = 71 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333'('#20250#35758')' + 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 = 1270 + AutoSize = True + 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_CYZZ.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 TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBView: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 40 + 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 = 458 + Top = 15 + 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 Label10: TLabel + Left = 456 + 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 Label12: TLabel + Left = 609 + Top = 39 + 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 = 609 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 715 + Top = 39 + Width = 52 + Height = 12 + Caption = #23436#25104#24773#20917 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 637 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object WCStr: TComboBox + Tag = 2 + Left = 770 + Top = 35 + Width = 69 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = WCStrChange + Items.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + 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_CYZZ.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#24773#20917 + DataBinding.FieldName = 'WCStr' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas new file mode 100644 index 0000000..dcd5895 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas @@ -0,0 +1,433 @@ +unit U_PRTOrderSCList; + +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, RM_DsgGridReport, RM_Designer; + +type + TfrmPRTOrderSCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + RMXLSExport2: TRMXLSExport; + v1Column6: TcxGridDBColumn; + Label5: TLabel; + WCStr: 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 TBEditClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure WCStrChange(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderSCList: TfrmPRTOrderSCList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice + ,U_MeetingAPNew; + +{$R *.dfm} + +procedure TfrmPRTOrderSCList.FormDestroy(Sender: TObject); +begin + frmPRTOrderSCList:=nil; +end; + +procedure TfrmPRTOrderSCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderSCList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderSCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб()',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderSCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + //Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + Parameters.ParamByName('WSql').Value:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmPRTOrderSCList.InitForm(); +begin + ReadCxGrid('ָʾб()',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if Trim(CanShu2)='鿴' then + begin + TBEdit.Visible:=False; + end; +end; + +procedure TfrmPRTOrderSCList.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 TfrmPRTOrderSCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmMeetingAPNew:=TfrmMeetingAPNew.Create(Application); + with frmMeetingAPNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + frmMeetingAPNew.OrderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + frmMeetingAPNew.Align:=alClient; + if ShowModal=1 then + begin + + end; + end; + finally + frmMeetingAPNew.Free; + end; +end; + + + +procedure TfrmPRTOrderSCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderSCList.OrderNoChange(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 TfrmPRTOrderSCList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderSCList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderSCList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderSCList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderSCList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderSCList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''+ + ' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + end; + + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderSCList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderSCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderSCList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmMeetingAPNew:=TfrmMeetingAPNew.Create(Application); + with frmMeetingAPNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + frmMeetingAPNew.OrderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + frmMeetingAPNew.Align:=alClient; + if ShowModal=1 then + begin + + end; + end; + finally + frmMeetingAPNew.Free; + end; +end; + +procedure TfrmPRTOrderSCList.WCStrChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm new file mode 100644 index 0000000..387a775 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm @@ -0,0 +1,586 @@ +object frmPRTOrderViewCXList: TfrmPRTOrderViewCXList + Left = 95 + Top = 82 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#26597#35810 + 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 = 1270 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 312 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 375 + Top = 3 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 468 + 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 Label10: TLabel + Left = 468 + 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 Label12: TLabel + Left = 621 + Top = 39 + 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 = 613 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + 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_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: 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 = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 444 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas new file mode 100644 index 0000000..21c7a70 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas @@ -0,0 +1,542 @@ +unit U_PRTOrderViewCXList; + +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, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderViewCXList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderViewCXList: TfrmPRTOrderViewCXList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderViewCXList.FormDestroy(Sender: TObject); +begin + frmPRTOrderViewCXList:=nil; +end; + +procedure TfrmPRTOrderViewCXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderViewCXList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderViewCXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderViewCXList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + + fsj:=' and isnull(A.Chker,'''')<>'''' and ZuoFeiFlag=0 '; + Parameters.ParamByName('WSql').Value:=' and isnull(A.SChker,'''')<>'''' '+fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderViewCXList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderViewCXList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderViewCXList.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 TfrmPRTOrderViewCXList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewCXList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewCXList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderViewCXList.OrderNoChange(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 TfrmPRTOrderViewCXList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderViewCXList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderViewCXList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderViewCXList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderViewCXList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderViewCXList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderViewCXList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + Panel1.Enabled:=False; + Label14.Visible:=False; + CustomerNoName.Visible:=False; + ToolButton13.Visible:=False; + ToolButton18.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderViewCXList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + fsj:=' and isnull(A.Chker,'''')<>'''' and ZuoFeiFlag=0 '; + Parameters.ParamByName('WSql').Value:='and isnull(SChker,'''')<>'''' '+fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewCXList.ConNoKeyPress(Sender: TObject; + var Key: Char); + +begin + {if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmPRTOrderViewCXList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm new file mode 100644 index 0000000..c457198 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm @@ -0,0 +1,670 @@ +object frmPRTOrderViewList: TfrmPRTOrderViewList + Left = 49 + Top = 111 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#26597#35810 + 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 = 1270 + 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_CYZZ.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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + Visible = False + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox3: TComboBox + Left = 567 + Top = 3 + Width = 114 + Height = 24 + Style = csDropDownList + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 2 + Items.Strings = ( + #26579#33394#25351#31034#21333 + #21360#33457#25351#31034#21333 + #21360#33457#25351#31034#21333'('#20004#26639')' + #21518#24037#33402#25351#31034#21333) + end + object ComboBox2: TComboBox + Left = 681 + Top = 3 + Width = 82 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 1 + end + object ToolButton1: TToolButton + Left = 763 + Top = 0 + AutoSize = True + Caption = #21253#35013#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object CheckBox1: TCheckBox + Left = 862 + Top = 0 + Width = 51 + Height = 30 + Caption = #26579#33394 + TabOrder = 3 + end + object ToolButton3: TToolButton + Left = 913 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1000 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 1063 + Top = 3 + Width = 115 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + 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 = #35746#21333#21495 + 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 = 40 + 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 = 458 + Top = 15 + 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 Label10: TLabel + Left = 456 + 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 Label12: TLabel + Left = 609 + Top = 39 + 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 = 609 + Top = 15 + 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 Label9: TLabel + Left = 179 + Top = 39 + 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 638 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + 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_CYZZ.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + 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 = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + 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 = 576 + Top = 176 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 136 + end + object RM2: 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas new file mode 100644 index 0000000..6f54974 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas @@ -0,0 +1,883 @@ +unit U_PRTOrderViewList; + +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; + +type + TfrmPRTOrderViewList = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + ComboBox2: TComboBox; + ToolButton1: TToolButton; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + ComboBox3: TComboBox; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + CheckBox1: TCheckBox; + 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 OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderViewList: TfrmPRTOrderViewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmPRTOrderViewList.FormDestroy(Sender: TObject); +begin + frmPRTOrderViewList:=nil; +end; + +procedure TfrmPRTOrderViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderViewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderViewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderViewList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderViewList.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 TfrmPRTOrderViewList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + + + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+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 + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PFTPUnit,LD,LDTel,GD,GDTel,CPQtyStr,BPQtyStr,QtyUnit:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox2.Text)='' then Exit; + if Trim(ComboBox3.Text)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(ComboBox3.Text)+'.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName,B.PSNote,C.ClothOneQty,C.MPRTOneQty,C.OneQtyUnit,C.OrderNo,C.MPRTCode,C.MPRTCodeName,C.MPRTCF '); + sql.Add(' ,C.MPRTSpec,C.MPRTMF,C.MPRTKZ,C.ChuanY,C.MPRTGY,C.MPRTGYHZ,D.*'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy A where A.ZdyName=C.ComTaiTou)'); + sql.Add(',Case when RTrim(A.PFTPUnit)=''KG'' then '',''+Cast(Cast(A.PFTPQty*B.KgZM as int) as varchar(20))+''M'' '); + sql.Add(' else '''' end as MStr'); + sql.Add(',C.LiDanPerson,LDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=C.LiDanPerson and KZ.Type=''LiDanPerson'' )'); + sql.Add(',GDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=A.PFGenDanPerson and KZ.Type=''PFGenDanPerson'' )'); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + SQL.Add(' order by D.SubId'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + PFTPUnit:=Trim(CDS_Print.fieldbyname('PFTPUnit').AsString); + LD:=Trim(CDS_Print.fieldbyname('LiDanPerson').AsString); + LDTel:=Trim(CDS_Print.fieldbyname('LDTel10').AsString); + GD:=Trim(CDS_Print.fieldbyname('PFGenDanPerson').AsString); + GDTel:=Trim(CDS_Print.fieldbyname('GDTel10').AsString); + if (CDS_Print.RecordCount mod 2)=1 then + begin + CDS_Print.Append; + CDS_Print.Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(PFTPQty) PFTPQtyHZ,sum(PFTPPS) PFTPPSHZ '); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + sql.Add(' group by A.FactoryName'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['PFTPQtyHZ']:=ADOQueryTemp.fieldbyname('PFTPQtyHZ').Value; + RMVariables['PFTPPSHZ']:=ADOQueryTemp.fieldbyname('PFTPPSHZ').Value; + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RMVariables['QtyUnit']:=Order_Main.fieldbyname('OneQtyUnit').Value; + RMVariables['CPQtyStr']:=Order_Main.fieldbyname('MPRTOneQty').Value; + RMVariables['BPQtyStr']:=Order_Main.fieldbyname('ClothOneQty').Value; + RMVariables['PFTPUnitHZ']:=Trim(PFTPUnit); + RMVariables['LD']:=Trim(LD); + RMVariables['LDTel']:=Trim(LDTel); + RMVariables['GD']:=Trim(GD); + RMVariables['GDTel']:=Trim(GDTel); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmPRTOrderViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + if Order_Main.IsEmpty=False then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(FactoryName) FactoryName from JYOrder_PCS_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ComboBox2.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox2.Items.Add(Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmPRTOrderViewList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.OrderNoChange(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 TfrmPRTOrderViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderViewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderViewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderViewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderViewList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolBar6.Visible:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(FactoryName) FactoryName from JYOrder_PCS_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ComboBox2.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox2.Items.Add(Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderViewList.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PFTPUnit,LD,LDTel,GD,GDTel,PSID:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + //if Trim(ComboBox2.Text)='' then Exit; + if CheckBox1.Checked=False then + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װָʾ.rmf' + else + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װָʾȾɫ.rmf'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSName=''װ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSName=''Ʒ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + i:=1;//װǰһ + end else + begin + if ADOQueryTemp.FieldByName('PSXH').AsInteger=1 then + begin + i:=1; + end else + begin + i:=2;//װǰ + end; + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName,B.PSNote,C.OrderNo,C.MPRTCode,C.MPRTCodeName,C.MPRTCF, '); + sql.Add(' C.MPRTSpec,C.MPRTMF,C.MPRTKZ,C.ChuanY,C.MPRTGY,D.PRTHX,D.PRTColorNo'); + sql.Add(',C.MPRTMFNOte,C.MPRTKZNote,C.CJNote,C.DHNote,C.BZNote,C.CHNote,C.MPRTGYHZ,D.*'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy A where A.ZdyName=C.ComTaiTou)'); + sql.Add(',Case when RTrim(A.PFTPUnit)=''KG'' then '',''+Cast(Cast(A.PFTPQty*B.KgZM as int) as varchar(20))+''M'' '); + sql.Add(' else '''' end as MStr'); + sql.Add(',C.LiDanPerson,LDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=C.LiDanPerson and KZ.Type=''LiDanPerson'' )'); + sql.Add(',GDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=A.PFGenDanPerson and KZ.Type=''PFGenDanPerson'' )'); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' inner join JYOrder_Sub D on A.Subid=D.SubId'); + //sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + if i=1 then + begin + sql.Add(' and B.PSID=(select Top 1 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end else + if i=2 then + begin + sql.Add(' and B.PSID in (select Top 2 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end; + + //SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + sql.Add(' order by D.SubId'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + PFTPUnit:=Trim(CDS_Print.fieldbyname('PFTPUnit').AsString); + LD:=Trim(CDS_Print.fieldbyname('LiDanPerson').AsString); + LDTel:=Trim(CDS_Print.fieldbyname('LDTel10').AsString); + GD:=Trim(CDS_Print.fieldbyname('PFGenDanPerson').AsString); + GDTel:=Trim(CDS_Print.fieldbyname('GDTel10').AsString); + if (CDS_Print.RecordCount mod 2)=1 then + begin + CDS_Print.Append; + CDS_Print.Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(PFTPQty) PFTPQtyHZ,sum(PFTPPS) PFTPPSHZ '); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + //sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + if i=1 then + begin + sql.Add(' and B.PSID=(select Top 1 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end else + if i=2 then + begin + sql.Add(' and B.PSID in (select Top 2 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end; + // sql.Add(' group by A.FactoryName'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['PFTPQtyHZ']:=ADOQueryTemp.fieldbyname('PFTPQtyHZ').Value; + RMVariables['PFTPPSHZ']:=ADOQueryTemp.fieldbyname('PFTPPSHZ').Value; + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RMVariables['QtyUnit']:=Order_Main.fieldbyname('OneQtyUnit').Value; + RMVariables['CPQtyStr']:=Order_Main.fieldbyname('MPRTOneQty').Value; + RMVariables['BPQtyStr']:=Order_Main.fieldbyname('ClothOneQty').Value; + RMVariables['PFTPUnitHZ']:=Trim(PFTPUnit); + RMVariables['LD']:=Trim(LD); + RMVariables['LDTel']:=Trim(LDTel); + RMVariables['GD']:=Trim(GD); + RMVariables['GDTel']:=Trim(GDTel); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\װָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmPRTOrderViewList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm new file mode 100644 index 0000000..d678857 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm @@ -0,0 +1,352 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + Left = 125 + Top = 102 + Width = 1094 + Height = 600 + Caption = #29983#20135#25351#31034#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 = 1078 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 35 + 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 OrderNoM: TEdit + Tag = 2 + Left = 76 + Top = 18 + Width = 149 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoMKeyPress + end + end + object cxGrid1: TcxGrid + Left = 24 + Top = 96 + Width = 1009 + Height = 353 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + 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_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1KHConNO: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 64 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 440 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 240 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas new file mode 100644 index 0000000..5bd91f0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas @@ -0,0 +1,163 @@ +unit U_ProductOrderListSel; + +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; + +type + TfrmProductOrderListSel = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1KHConNO: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + 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 OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1DblClick(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderListSel: TfrmProductOrderListSel; + +implementation +uses + U_DataLink,U_RTFun; + +{$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; +end; + +procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡֿ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListSel.InitGrid(); +begin + if Length(Trim(OrderNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.*,A.*,A.OrderNo orderNoM,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.add('from JYOrder_sub A'); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + SQL.Add('where B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderListSel.InitForm(); +begin + ReadCxGrid('ָʾбѡֿ',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmProductOrderListSel.FormShow(Sender: TObject); +begin + InitForm(); + +end; + +procedure TfrmProductOrderListSel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..c5d777c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm @@ -0,0 +1,823 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 84 + Top = 20 + Width = 1132 + Height = 592 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1099 + Height = 62 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Wrap = True + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton4: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680#20154#23450#20041 + ImageIndex = 114 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 162 + Top = 30 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 132 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 225 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 288 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 351 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 414 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1099 + Height = 67 + 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 = #35746#21333#21495 + 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 = 40 + 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 = 458 + 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 = #21512#21516#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 = 456 + 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 Label12: TLabel + Left = 609 + Top = 39 + 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 = 609 + Top = 15 + 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 = 318 + Top = 39 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 638 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object OrdPerson2: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 144 + Width = 1049 + Height = 209 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column6: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'OrdPerson3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #36865#23457 + DataBinding.FieldName = 'OrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 410 + Top = 137 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679 + #21697#36136#26679 + #33457#22411#26679) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 353 + Width = 1099 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 361 + Width = 1099 + Height = 225 + Align = alBottom + TabOrder = 5 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Chk + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 111 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 704 + Top = 216 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object DS_Chk: TDataSource + DataSet = CDS_Chk + Left = 416 + Top = 464 + end + object CDS_Chk: TClientDataSet + Aggregates = <> + Params = <> + Left = 336 + Top = 424 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 304 + Top = 488 + end + object CDS_Chker: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 168 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas new file mode 100644 index 0000000..ec8bf04 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas @@ -0,0 +1,1093 @@ +unit U_ProductOrderNewList; + +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; + +type + TfrmProductOrderNewList = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_Chk: TDataSource; + CDS_Chk: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_Chker: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + OrdPerson2: 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 TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_ZDYHelp, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList:=nil; +end; + +procedure TfrmProductOrderNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбFF',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderNewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList.InitForm(); +begin + ReadCxGrid('ָʾбFF',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˲޸!','ʾ',0); + Exit; + end else + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + if ADOQueryTemp.FieldByName('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('в޸!','ʾ',0); + Exit; + end; + + end; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Order_Main.FieldByName('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('ɾ!','ʾ',0); + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Cloth_LL A where exists (select * from JYOrder_Sub B where B.SubId=A.OrdSubId '); + SQL.Add(' and B.MainId='''+Trim(Order_Main.fieldbyname('MainId').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 YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').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 Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').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 JYOrder_Sub_AnPai where 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 + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.FieldByName('ChkStatus').AsString)<>'ͨ' then + begin + RM1.PreviewButtons:=[pbExit]; + end else + begin + RM1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('OrderUnit=(select Top 1 OrderUnit from JYOrder_Sub where MainId=A.MainId),'); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + // sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if RadioGroup1.ItemIndex=0 then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + SQL.Add(', Case when B.OrderUnit=''M'' then Cast(Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + SQL.Add(' when B.OrderUnit=''Y'' then Cast (Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + sql.Add(' else '''' end as PRTOrderKgQtyStr '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + + end else + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); + Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + begin + if Trim(LBName)='ɫ' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PRTOrderKgQty),0) PRTOrderKgHZQty from('); + sql.Add('select '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,0)) '); + sql.Add(' else 0 end as PRTOrderKgQty'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + Open; + end; + OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if OrderKg>0 then + RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + else + RMVariables['OrderKg']:=''; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList.ToolButton4Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdConChker'; + flagname:='ָʾ'; + MainType:=Trim(DName); + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton5Click(Sender: TObject); +var + maxno:string; + FCount:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('ͨ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Chker=Cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Chker); + SInitCDSData20(ADOQueryTemp,CDS_Chker); + while CDS_Chker.IsEmpty=False do + begin + CDS_Chker.Delete; + end; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdConChker'; + flagname:='ָʾ'; + MainType:=Trim(DName); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSEl').AsBoolean=True then + begin + CDS_Chker.Append; + CDS_Chker.FieldByName('Chker').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + CDS_Chker.Post; + end; + Next; + end; + end; + if CDS_Chker.IsEmpty then FCount:=9 + + end; + end; + finally + frmZDYHelpSel.Free; + end; + if FCount=9 then + begin + if CDS_Chker.IsEmpty then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + + + CDS_Chker.DisableControls; + with CDS_Chker do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserName='''+Trim(CDS_Chker.fieldbyname('Chker').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + CDS_Chker.EnableControls; + Application.MessageBox('˶!','ʾ',0); + Exit; + end; + Next; + end; + end; + CDS_Chker.EnableControls; + if CDS_Chker.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //if CDS_Chk.IsEmpty then + begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdFlag1=1,OrdDefDate1=getdate() where MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('OrdFlag1').Value:=1; + Post; + end; + with CDS_Chker do + begin + First; + while not Eof do + begin + if CDS_Chk.Locate('Chker',Trim(CDS_Chker.fieldbyname('Chker').AsString),[])=False then + begin + if GetLSNo(ADOQueryCmd,maxno,'CK','OrdCon_Chk',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from OrdCon_Chk where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CKID').Value:=Trim(maxno); + FieldByName('MainID').Value:=Trim(Order_Main.fieldbyname('MainID').AsString); + FieldByName('Chker').Value:=Trim(CDS_Chker.fieldbyname('Chker').AsString); + Post; + end; + with CDS_Chk do + begin + Append; + FieldByName('Chker').Value:=Trim(CDS_Chker.fieldbyname('Chker').AsString); + Post; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; + end; +end; + +procedure TfrmProductOrderNewList.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from OrdCon_Chk where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Chk); + SInitCDSData20(ADOQueryTemp,CDS_Chk); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm new file mode 100644 index 0000000..7fd6d2a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm @@ -0,0 +1,239 @@ +object frmRTZDYHelp: TfrmRTZDYHelp + Left = 466 + Top = 188 + Width = 461 + 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 = 8 + Top = 88 + Width = 417 + Height = 200 + 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 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 = 46 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #21517#31216 + DataBinding.FieldName = 'ZDYName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 146 + end + object V1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 113 + 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 + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 445 + 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_CYZZ.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 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 = 445 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + 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 = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = ADOConnection1 + 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 ADOConnection1: TADOConnection + LoginPrompt = False + Left = 80 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas new file mode 100644 index 0000000..f86d442 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas @@ -0,0 +1,685 @@ +unit U_RTZDYHelp; + +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; + +type + TfrmRTZDYHelp = 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; + ADOConnection1: TADOConnection; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + V1ZdyFlag: TcxGridDBColumn; + V1HelpType: 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); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType:string; + fnote,forderno,fZdyFlag,ViewFlag:Boolean; + PPSTE:integer; + { Public declarations } + end; + +var + frmRTZDYHelp: TfrmRTZDYHelp; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmRTZDYHelp.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 TfrmRTZDYHelp.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + Action:=caFree; +end; + +procedure TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + Close; +end; + +procedure TfrmRTZDYHelp.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,'Զ'); + frmRTZDYHelp.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 TfrmRTZDYHelp.ToolButton1Click(Sender: TObject); +begin + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + ModalResult:=1; +end; + +procedure TfrmRTZDYHelp.TBEditClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; +end; + +procedure TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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 TfrmRTZDYHelp.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; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm new file mode 100644 index 0000000..352d76c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm @@ -0,0 +1,1026 @@ +object frmSCMDList: TfrmSCMDList + Left = 39 + Top = 102 + Width = 1235 + Height = 572 + Caption = #30721#21333#26597#35810'('#29983#20135')' + 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 = 1219 + 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_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 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 = 1219 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 42 + Height = 12 + Caption = #21697' '#21517 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label9: TLabel + Left = 536 + Top = 12 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object PSName: TComboBox + Tag = 2 + Left = 587 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 105 + Width = 1219 + Height = 428 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 428 + ClientRectRight = 1219 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column15 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column16: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column17: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #26080#21333#32433#32447#30721#21333 + ImageIndex = 2 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn27: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #26080#21333#22383#24067#30721#21333 + ImageIndex = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn41 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn42 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn31: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 521 + Top = 313 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 457 + Top = 305 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas new file mode 100644 index 0000000..378dd85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas @@ -0,0 +1,442 @@ +unit U_SCMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox; + +type + TfrmSCMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + ConName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label6: TLabel; + MDNO: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + PSName: TComboBox; + Label9: TLabel; + Label11: TLabel; + FactoryName: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn27: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + public + { Public declarations } + end; + +var + frmSCMDList: TfrmSCMDList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSCMDList.FormDestroy(Sender: TObject); +begin + frmSCMDList:=nil; +end; + +procedure TfrmSCMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSCMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmSCMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmSCMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('SCTV1',Tv1,'뵥'); + WriteCxGrid('SCTV2',Tv2,'뵥'); + WriteCxGrid('SCTV3',Tv3,'뵥'); + WriteCxGrid('SCTV5',Tv5,'뵥'); + Close; +end; + +procedure TfrmSCMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmSCMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmSCMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + + if Key=#13 then + begin + if cxPageControl1.ActivePageIndex>1 then Exit; + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmSCMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + SQL.Add(' and CRFlag='''' '); + end; + + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmSCMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else if cxPageControl1.ActivePageIndex=1 then + TcxGridToExcel('ֿ뵥',cxGrid1) + else if cxPageControl1.ActivePageIndex=2 then + TcxGridToExcel('޵ɴ뵥',cxGrid2) + else if cxPageControl1.ActivePageIndex=5 then + TcxGridToExcel('޵뵥',cxGrid1); +end; + +procedure TfrmSCMDList.FormShow(Sender: TObject); +begin + READCxGrid('SCTV1',Tv1,'뵥'); + READCxGrid('SCTV2',Tv2,'뵥'); + READCxGrid('SCTV3',Tv3,'뵥'); + READCxGrid('SCTV5',Tv5,'뵥'); +end; + +procedure TfrmSCMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmSCMDList.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmSCMDList.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmSCMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm new file mode 100644 index 0000000..7ba61ed --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm @@ -0,0 +1,528 @@ +object frmSKCRCYZZ: TfrmSKCRCYZZ + Left = 91 + Top = 86 + Width = 1175 + Height = 618 + Caption = #25910#27454#30331#35760 + 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 = 1159 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1159 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 1088 + Top = 5 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 1226 + Top = 5 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object Label9: TLabel + Left = 585 + Top = 13 + Width = 48 + Height = 12 + Caption = #20844#21496#25260#22836 + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 1125 + Top = 1 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 1274 + Top = 1 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 635 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1159 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + 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 + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column8 + end + item + Kind = skSum + Column = v2Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column13: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 107 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 116 + end + object v2Column5: TcxGridDBColumn + Tag = 3 + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 78 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 105 + end + object VPayMent: TcxGridDBColumn + Tag = 3 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = VPayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32654#37329 + #20154#27665#24065) + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column9: TcxGridDBColumn + Tag = 3 + Caption = #20837#36134#37329#39069 + DataBinding.FieldName = 'RZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column8: TcxGridDBColumn + Tag = 3 + Caption = #38134#34892#36153#29992 + DataBinding.FieldName = 'BankFee' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#23454#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column2: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'FPDJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column3: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'FPYKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'FPQKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column11: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'FPYJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column4: TcxGridDBColumn + Caption = #26410#20998#37197 + DataBinding.FieldName = 'WFPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 397 + Top = 145 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 429 + Top = 145 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 145 + 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 = 432 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 392 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 464 + Top = 176 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 395 + Top = 179 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 432 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas new file mode 100644 index 0000000..49fa488 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas @@ -0,0 +1,542 @@ +unit U_SKCRCYZZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmSKCRCYZZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + Label4: TLabel; + OrderNo: TEdit; + ToolButton5: TToolButton; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label9: TLabel; + ComTaiTou: TEdit; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure VPayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column9PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + canshu1:String; + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmSKCRCYZZ: TfrmSKCRCYZZ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_ZHKHListNewCX; + +{$R *.dfm} + +procedure TfrmSKCRCYZZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''տǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmSKCRCYZZ.FormDestroy(Sender: TObject); +begin + frmSKCRCYZZ:=nil; +end; + +procedure TfrmSKCRCYZZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCRCYZZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ1',Tv2,''); + Close; +end; +procedure TfrmSKCRCYZZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add(' and isnull(Money,0)<>isnull(WFPMoney,0) '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('տѱ䲻ɾ!','ʾ',0); + Exit; + end; + end; + end; + end; + CDS_HZ.EnableControls;} + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add(' and isnull(Money,0)<>isnull(WFPMoney,0) '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_HZ.EnableControls; + Application.MessageBox('տѱ䲻ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmSKCRCYZZ.FormShow(Sender: TObject); +begin + ReadCxGrid('տǼ1',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=SGetServerDateMBeg(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmSKCRCYZZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCRCYZZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmSKCRCYZZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; +procedure TfrmSKCRCYZZ.ToolButton3Click(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + + DParameters1:='Ȩ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + //Self.SaveData(); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmSKCRCYZZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SKYFName'; + flagname:='ĿժҪ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('տб',cxGrid2); +end; + +procedure TfrmSKCRCYZZ.ToolButton5Click(Sender: TObject); +var + maxId,FYFID:String; +begin + if CDS_HZ.IsEmpty then exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;Money',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ͻʵΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;BZType',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;ComTaiTou',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('˾̧ͷΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;CRTime',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'SK','YF_Money_CR',4,1)=False then + begin + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡտʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + end; + FieldByName('YFID').Value:=Trim(maxId); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('YFType').Value:='ֹ¼'; + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('SSel').Value:=False; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPYKMoney,0)'); + sql.Add('-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)-isnull(FPKKMoney,0)'); + sql.Add('where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSKCRCYZZ.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmSKCRCYZZ.VPayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SKPayment'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.v2Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,RZMoney,BankFee,Money:string; +begin + FName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_HZ do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if Trim(CDS_HZ.fieldbyname('RZMoney').AsString)='' then RZMoney:='0' + else RZMoney:=CDS_HZ.fieldbyname('RZMoney').AsString; + if Trim(CDS_HZ.fieldbyname('BankFee').AsString)='' then BankFee:='0' + else BankFee:=CDS_HZ.fieldbyname('BankFee').AsString; + if Trim(CDS_HZ.fieldbyname('Money').AsString)='' then Money:='0' + else Money:=CDS_HZ.fieldbyname('Money').AsString; + if FName<>'Money' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(RZMoney)+StrToFloat(BankFee); + Post; + end; + end else + begin + if RZMoney<>'0' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('BankFee').Value:=StrToFloat(Money)-StrToFloat(RZMoney); + Post; + end; + Exit; + end; + if BankFee<>'0' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('RZMoney').Value:=StrToFloat(Money)-StrToFloat(BankFee); + Post; + end; + end; + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm new file mode 100644 index 0000000..f4c4c50 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm @@ -0,0 +1,442 @@ +object frmSKCRFenPei: TfrmSKCRFenPei + Left = 219 + Top = 79 + Width = 1028 + Height = 618 + Align = alClient + Caption = #25910#27454#20998#37197 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1012 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + 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 = 31 + Width = 1012 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + Visible = False + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 720 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 858 + Top = 13 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + Visible = False + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 757 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 906 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1012 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + 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 + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column8 + end + item + Kind = skSum + Column = v2Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 107 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 116 + end + object v2Column5: TcxGridDBColumn + Tag = 3 + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 78 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 105 + end + object VPayMent: TcxGridDBColumn + Tag = 3 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32654#37329 + #20154#27665#24065) + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column9: TcxGridDBColumn + Tag = 3 + Caption = #20837#36134#37329#39069 + DataBinding.FieldName = 'RZMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column8: TcxGridDBColumn + Tag = 3 + Caption = #38134#34892#36153#29992 + DataBinding.FieldName = 'BankFee' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#23454#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column2: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'FPDJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column3: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'FPYKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'FPQKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column11: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'FPYJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column4: TcxGridDBColumn + Caption = #26410#20998#37197 + DataBinding.FieldName = 'WFPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 349 + Top = 185 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 381 + Top = 185 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 408 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 251 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas new file mode 100644 index 0000000..6ce5fc3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas @@ -0,0 +1,151 @@ +unit U_SKCRFenPei; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmSKCRFenPei = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label4: TLabel; + OrderNo: TEdit; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + KHName:String; + + end; + +var + frmSKCRFenPei: TfrmSKCRFenPei; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + + + +procedure TfrmSKCRFenPei.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add('where A.CRType=''տǼ'' and isnull(WFPMoney,0)<>0 and isnull(Money,0)>0'); + sql.add(' and FactoryNo='''+Trim(KHName)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmSKCRFenPei.FormDestroy(Sender: TObject); +begin + frmSKCRFenPei:=nil; +end; + +procedure TfrmSKCRFenPei.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCRFenPei.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տ1',Tv2,''); + Close; +end; +procedure TfrmSKCRFenPei.FormShow(Sender: TObject); +begin + ReadCxGrid('տ1',Tv2,''); + InitGrid(); +end; + +procedure TfrmSKCRFenPei.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmSKCRFenPei.ToolButton2Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmSKCRFenPei.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm new file mode 100644 index 0000000..8281f08 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -0,0 +1,358 @@ +object frmSXCKInPut: TfrmSXCKInPut + Left = 55 + Top = 111 + Width = 1283 + Height = 502 + Align = alClient + Caption = #22383#24067#20837#24211 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1275 + Height = 438 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1275 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas new file mode 100644 index 0000000..29df4dc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -0,0 +1,702 @@ +unit U_SXCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmSXCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId,canshu3:String; + + end; + +var + frmSXCKInPut: TfrmSXCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} + +procedure TfrmSXCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; + end; + +end; +function TfrmSXCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CPID').Value:=Trim(CDS_Sub.fieldbyname('CPID').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴǼ',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ǽ',Tv1,'ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + v1Column15.Options.Focusing:=False; + v1Column13.Options.Focusing:=False; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + v1Column11.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + v1Column15.Options.Focusing:=True; + v1Column13.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + v1Column11.Options.Focusing:=True; + end; +end; + +procedure TfrmSXCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SSType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('SPCF',null,[])=True then + begin + Application.MessageBox('ɷֲΪ!','ʾ',0); + Exit; + end; } + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + begin + Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmSXCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(canshu3)='' then + begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBName'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; + end else + begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPCF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; + end; + +end; + +procedure TfrmSXCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmSXCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(canshu3)='' then exit; + v1Column17.Options.Editing:=False; + v1Column8.Options.Editing:=False; + v1Column7.Options.Editing:=False; + (v2Column1.Properties as TcxButtonEditProperties).ReadOnly:=True; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm new file mode 100644 index 0000000..cd1da53 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm @@ -0,0 +1,613 @@ +object frmSXCKKCSelList: TfrmSXCKKCSelList + Left = 34 + Top = 125 + Width = 1181 + Height = 511 + Align = alClient + Caption = #22383#24067#24211#23384#36873#25321#21015#34920 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1173 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + 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 = 1173 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 60 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 492 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 492 + Top = 36 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 662 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 662 + Top = 36 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 400 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #29983#20135#36864#22238 + #24179#31227#20837#24211 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 400 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 541 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 541 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object ToFactoryName: TEdit + Tag = 2 + Left = 711 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 712 + Top = 32 + Width = 108 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1173 + Height = 387 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column18: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas new file mode 100644 index 0000000..e79c888 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas @@ -0,0 +1,226 @@ +unit U_SXCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmSXCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + SSType: TComboBox; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + Label14: TLabel; + SPCode: TEdit; + 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKKCSelList: TfrmSXCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKKCSelList.FormDestroy(Sender: TObject); +begin + frmSXCKKCSelList:=nil; +end; + +procedure TfrmSXCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')='''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXCKKCSelList.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 TfrmSXCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmSXCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm new file mode 100644 index 0000000..ead8a6a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm @@ -0,0 +1,538 @@ +object frmSXCKList: TfrmSXCKList + Left = 37 + Top = 130 + Width = 1191 + Height = 511 + Caption = #32433#32447#20837#24211#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 = 1175 + 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_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 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 = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + 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 Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #32534#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 36 + Height = 12 + Caption = #21512#21516#21495 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label10: TLabel + Left = 790 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 680 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 680 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 839 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1175 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas new file mode 100644 index 0000000..0ed0585 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas @@ -0,0 +1,359 @@ +unit U_SXCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXCKList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + ConNo: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + FromFactoryName: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + v1Column9: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKList: TfrmSXCKList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKList.FormDestroy(Sender: TObject); +begin + frmSXCKList:=nil; +end; + +procedure TfrmSXCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmSXCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate '); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴб',cxGrid2); +end; + +procedure TfrmSXCKList.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 TfrmSXCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmSXCKList.ToolButton1Click(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKList.ToolButton2Click(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmSXCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm new file mode 100644 index 0000000..98149ff --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm @@ -0,0 +1,648 @@ +object frmSXCKNewList: TfrmSXCKNewList + Left = 14 + Top = 141 + Width = 1335 + Height = 511 + Caption = #22383#24067#20837#24211#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 = 1319 + 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_PBMDDJ.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 = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1319 + Height = 72 + 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 Label3: TLabel + Left = 351 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 492 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 351 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 492 + Top = 36 + Width = 60 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 672 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 672 + Top = 36 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 856 + Top = 12 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object Label11: TLabel + Left = 856 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + 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 = 1 + end + object SPName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 552 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 552 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 721 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 721 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object SPCode: TEdit + Tag = 2 + Left = 905 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 905 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1319 + Height = 368 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 1196 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1228 + Top = 88 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1116 + Top = 60 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 928 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 896 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas new file mode 100644 index 0000000..48957b5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -0,0 +1,391 @@ +unit U_SXCKNewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmSXCKNewList = 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_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + SSType: TComboBox; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label10: TLabel; + SPCode: TEdit; + Label11: TLabel; + ToFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2,canshu3:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKNewList: TfrmSXCKNewList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKNewList.FormDestroy(Sender: TObject); +begin + frmSXCKNewList:=nil; +end; + +procedure TfrmSXCKNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKNewList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + canshu3:=Trim(DParameters3); +end; + +procedure TfrmSXCKNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')='''''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKNewList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKNewList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKNewList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCKNewList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + //InitGrid(); +end; + +procedure TfrmSXCKNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmSXCKNewList.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 TfrmSXCKNewList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKNewList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKNewList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmSXCKNewList.TBAddClick(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=''; + frmSXCKInPut.canshu3:=Trim(Self.canshu3); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKNewList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKNewList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmSXCKNewList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKNewList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKNewList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm new file mode 100644 index 0000000..03554e5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm @@ -0,0 +1,716 @@ +object frmSXCKOutList: TfrmSXCKOutList + Left = 87 + Top = 73 + Width = 1209 + Height = 583 + Caption = #22383#24067#20986#24211#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 = 1193 + 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_PBMDDJ.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 = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1193 + Height = 72 + 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 Label3: TLabel + Left = 321 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 437 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 321 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 437 + Top = 36 + Width = 60 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 589 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label9: TLabel + Left = 911 + Top = 12 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 589 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 749 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 749 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#21152#24037#21378 + end + object Label14: TLabel + Left = 911 + Top = 36 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 348 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 497 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPSpecChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 348 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 497 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPSpecChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 649 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPSpecChange + end + object SSType: TComboBox + Tag = 2 + Left = 960 + Top = 8 + Width = 77 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object CKorderNo: TEdit + Tag = 2 + Left = 649 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPSpecChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 809 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPSpecChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 809 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = SPSpecChange + end + object SPCode: TEdit + Tag = 2 + Left = 960 + Top = 32 + Width = 77 + Height = 20 + TabOrder = 13 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1193 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column13: TcxGridDBColumn + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKorderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column21: TcxGridDBColumn + Caption = #20844#26020'/'#31859' '#31995#25968 + DataBinding.FieldName = 'xs' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 984 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1048 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas new file mode 100644 index 0000000..895269f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas @@ -0,0 +1,391 @@ +unit U_SXCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmSXCKOutList = 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_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + SSType: TComboBox; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + Label14: TLabel; + SPCode: TEdit; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + 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 SPNameChange(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKOutList: TfrmSXCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKOutPut,U_SXCKTHPut; + +{$R *.dfm} + +procedure TfrmSXCKOutList.FormDestroy(Sender: TObject); +begin + frmSXCKOutList:=nil; +end; + +procedure TfrmSXCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmSXCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.Add(' where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRFlag='''' '); + SQL.Add(' and isnull(CKName,'''')='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бPMD',Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('бPMD',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmSXCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴ߳б',cxGrid2); +end; + +procedure TfrmSXCKOutList.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 TfrmSXCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKOutList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKOutList.SPIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SPID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmSXCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmSXCKOutList.TBAddClick(Sender: TObject); +begin + try + frmSXCKOutPut:=TfrmSXCKOutPut.Create(Application); + with frmSXCKOutPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKOutPut.Free; + end; +end; + +procedure TfrmSXCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼޸!','ʾ',0); + Exit; + end; + try + frmSXCKOutPut:=TfrmSXCKOutPut.Create(Application); + with frmSXCKOutPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKOutPut.Free; + end; + +end; + +procedure TfrmSXCKOutList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm new file mode 100644 index 0000000..c9b1a5e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm @@ -0,0 +1,381 @@ +object frmSXCKOutPut: TfrmSXCKOutPut + Left = 110 + Top = 129 + Width = 1215 + Height = 502 + Align = alClient + Caption = #22383#24067#20986#24211 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 431 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKOrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #20844#26020'/'#31859' '#31995#25968 + DataBinding.FieldName = 'xs' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas new file mode 100644 index 0000000..6283ea8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas @@ -0,0 +1,562 @@ +unit U_SXCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmSXCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column5: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXCKOutPut: TfrmSXCKOutPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_SXCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmSXCKOutPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmSXCKKCSelList:=TfrmSXCKKCSelList.Create(Application); + with frmSXCKKCSelList do + begin + ToolButton1.Visible:=True; + if ShowModal=1 then + begin + frmSXCKKCSelList.CDS_Main.DisableControls; + with frmSXCKKCSelList.CDS_Main do + begin + First; + while frmSXCKKCSelList.CDS_Main.Locate('SSel',True,[]) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('ORDMainIdRK').Value:=Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('FactoryName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPCode').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPCode').Value; + FieldByName('CPID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CPID').Value; + FieldByName('SPSpec').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPCF').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('FromFactoryName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('FromFactoryNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmSXCKKCSelList.CDS_Main.Delete; + end; + end; + frmSXCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmSXCKKCSelList.Free; + end; +end; +function TfrmSXCKOutPut.SaveCKData():Boolean; +var + FCRID,Maxno,FSPID,MaxPYNo,FPYID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PC','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('CPID').Value:=Trim(CDS_Sub.fieldbyname('CPID').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:=''; + FieldByName('xs').Value:=CDS_Sub.fieldbyname('xs').AsFloat; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + FieldByName('PYID').Value:=Trim(Maxno); + end; + if Trim(FSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID='''+Trim(Maxno)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxPYNo,'YR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƽʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxPYNo:=Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value:=Trim(MaxPYNo); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('xs').Value:=0; + FieldByName('CKName').Value:=''; + FieldByName('CRType').Value:='ƽ'; + FieldByName('PYID').Value:=Trim(Maxno); + if Trim(FPYID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(MaxPYNo)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ǼPMD',Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ǼPMD',Tv1,'ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString));} + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmSXCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;CKOrderNo',VarArrayOf(['ӹ',Null]),[loPartialKey])=True then + begin + Application.MessageBox('ӹݳŲΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmSXCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmSXCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmSXCKOutPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)<>'' then + begin + v1CRType.Options.Editing:=False; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm new file mode 100644 index 0000000..eda73dd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm @@ -0,0 +1,272 @@ +object frmSXCKTHPut: TfrmSXCKTHPut + Left = 123 + Top = 130 + Width = 1200 + Height = 502 + Align = alClient + Caption = #32433#32447#36864#36135 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1184 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1184 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#32534#30721 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 50 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 135 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas new file mode 100644 index 0000000..ac7473e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas @@ -0,0 +1,354 @@ +unit U_SXCKTHPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmSXCKTHPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXCKTHPut: TfrmSXCKTHPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_SXCKKCSelList; + +{$R *.dfm} + +procedure TfrmSXCKTHPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKTHPut.TBAddClick(Sender: TObject); +begin + try + frmSXCKKCSelList:=TfrmSXCKKCSelList.Create(Application); + with frmSXCKKCSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('CGMainId').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CGMainId').Value; + FieldByName('CGSubId').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CGSubId').Value; + FieldByName('FactoryName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('BatchNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('BatchNo').Value; + FieldByName('KuWei').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('KuWei').Value; + FieldByName('SPCF').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SeBie').Value; + FieldByName('PiQty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('KgQty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCKgQty').Value; + FieldByName('CRID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CRID').Value; + FieldByName('FZSPID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + FieldByName('Price').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('Price').Value; + end; + end; + end; + finally + frmSXCKKCSelList.Free; + end; +end; +function TfrmSXCKTHPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'ST','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ˻ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then Edit else Append; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CGMainId').Value:=Trim(CDS_Sub.fieldbyname('CGMainId').AsString); + FieldByName('CGSubId').Value:=Trim(CDS_Sub.fieldbyname('CGSubId').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('Price').Value:=CDS_Sub.fieldbyname('Price').Value; + FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + FieldByName('CRType').Value:='˻'; + FieldByName('CKName').Value:='ɴ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end else + begin + FieldByName('Filler').Value:=Trim(DName); + end; + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+CDS_Sub.fieldbyname('CRID').AsString); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻ڿ湫ܱ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻ڿܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXCKTHPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ˻Ǽ',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKTHPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ˻Ǽ',Tv1,'ɴֿ߲'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXCKTHPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmSXCKTHPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('KGQty',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKTHPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm new file mode 100644 index 0000000..802956f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm @@ -0,0 +1,240 @@ +object frmSXDZInPut: TfrmSXDZInPut + Left = 224 + Top = 101 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32433#32447#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #30721#21333#20449#24687 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas new file mode 100644 index 0000000..36d5db4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas @@ -0,0 +1,347 @@ +unit U_SXDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmSXDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXDZInPut: TfrmSXDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList,U_SXDZViewSCList; + +{$R *.dfm} + +procedure TfrmSXDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmSXDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'SX','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ɴ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶¼',Tv1,''); + Close; +end; + +procedure TfrmSXDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmSXDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXPBName'; + flagname:='ɴ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +procedure TfrmSXDZInPut.ToolButton1Click(Sender: TObject); +begin + try + frmSXDZViewSCList:=TfrmSXDZViewSCList.Create(Application); + with frmSXDZViewSCList do + begin + if ShowModal=1 then + begin + + end; + end; + finally + frmSXDZViewSCList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm new file mode 100644 index 0000000..143685e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm @@ -0,0 +1,430 @@ +object frmSXDZList: TfrmSXDZList + Left = 115 + Top = 160 + Width = 1130 + Height = 511 + Caption = #32433#32447#23545#36134#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 = 1114 + 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_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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton5: TToolButton + Left = 528 + Top = 0 + Caption = #30721#21333#20449#24687 + ImageIndex = 55 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + 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 = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 286 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 427 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 313 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 464 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas new file mode 100644 index 0000000..bf02ffb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas @@ -0,0 +1,612 @@ +unit U_SXDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmSXDZList = 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_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + ToolButton5: 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 TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmSXDZList: TfrmSXDZList; + +implementation +uses + U_DataLink,U_RTFun,U_SXDZInPut,U_SXDZViewSCList; + +{$R *.dfm} + +procedure TfrmSXDZList.FormDestroy(Sender: TObject); +begin + frmSXDZList:=nil; +end; + +procedure TfrmSXDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmSXDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ɴ'''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶б',Tv1,''); + Close; +end; + +procedure TfrmSXDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶б',Tv1,''); + //InitGrid(); +end; + +procedure TfrmSXDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴ߶б',cxGrid1); +end; + +procedure TfrmSXDZList.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 TfrmSXDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmSXDZList.ToolButton1Click(Sender: TObject); +begin + try + frmSXDZInPut:=TfrmSXDZInPut.Create(Application); + with frmSXDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXDZInPut.Free; + end; +end; + +procedure TfrmSXDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmSXDZInPut:=TfrmSXDZInPut.Create(Application); + with frmSXDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXDZInPut.Free; + end; +end; + +procedure TfrmSXDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'SX','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + + {if Trim(CDS_Main.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=CDS_Main.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end;} + //FieldByName('CRTime').Value:=CDS_Main.fieldbyname('DZDate').Value; + //FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + //FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').Value; + //FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('CPName').Value:=Trim(CDS_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ɴ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmSXDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmSXDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXDZList.ToolButton5Click(Sender: TObject); +begin + try + frmSXDZViewSCList:=TfrmSXDZViewSCList.Create(Application); + with frmSXDZViewSCList do + begin + if ShowModal=1 then + begin + + end; + end; + finally + frmSXDZViewSCList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm new file mode 100644 index 0000000..efbf1ae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm @@ -0,0 +1,399 @@ +object frmSXDZViewSCList: TfrmSXDZViewSCList + Left = 153 + Top = 59 + Width = 956 + Height = 650 + Caption = #32433#32447#23545#36134#20449#24687#21015#34920 + 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 = 940 + 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_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 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 = 68 + 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 = 940 + Height = 59 + 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 Label3: TLabel + Left = 352 + Top = 36 + Width = 36 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 352 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #21512' '#21516' '#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 = 1 + end + object SPName: TEdit + Tag = 2 + Left = 390 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 389 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 108 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 92 + Width = 940 + Height = 519 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 103 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column3: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 115 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas new file mode 100644 index 0000000..95d037f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas @@ -0,0 +1,246 @@ +unit U_SXDZViewSCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXDZViewSCList = 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_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + v1Column6: TcxGridDBColumn; + Label7: TLabel; + ConNo: TEdit; + v1Column9: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXDZViewSCList: TfrmSXDZViewSCList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSXDZViewSCList.FormDestroy(Sender: TObject); +begin + frmSXDZViewSCList:=nil; +end; + +procedure TfrmSXDZViewSCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZViewSCList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDateMBeg(ADOQueryTemp); +end; + +procedure TfrmSXDZViewSCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.CRTime,A.SPID,A.FactoryName,A.FactoryNo,A.SPName,A.PiQty,A.KGQty,A.Price,A.Note '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId),Money=Cast(Price*KGQty as decimal(18,2))'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + sql.Add(' union all'); + sql.Add(' select CRTime=A.MDDate,SPID=A.MDNO,A.FactoryName,A.FactoryNo,SPName=B.C_CodeName'); + sql.Add(',PiQty=A.PS,KGQty=A.Qty,Price=B.Price,Note='''',C.ConNo,Money=Cast(B.Price*A.Qty as decimal(18,2)) '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join Contract_Sub B on A.ConSubId=B.SubId'); + sql.Add(' inner join Contract_Main C on B.MainId=C.MainId'); + sql.Add(' where isnull(A.PSName,'''') in (''ɴ'',''Ⱦɴ'')'); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXDZViewSCList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXDZViewSCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXDZViewSCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶Ϣб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXDZViewSCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶Ϣб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXDZViewSCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴ߶Ϣб',cxGrid2); +end; + +procedure TfrmSXDZViewSCList.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 TfrmSXDZViewSCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXDZViewSCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXDZViewSCList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmSXDZViewSCList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXDZViewSCList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXDZViewSCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm new file mode 100644 index 0000000..ce8b5d2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm @@ -0,0 +1,233 @@ +object frmSXJGDZInPut: TfrmSXJGDZInPut + Left = 87 + Top = 104 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32433#32447#21152#24037#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas new file mode 100644 index 0000000..34feeeb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas @@ -0,0 +1,329 @@ +unit U_SXJGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmSXJGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXJGDZInPut: TfrmSXJGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmSXJGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXJGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmSXJGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'SJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߼ӹ˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ɴ߼ӹ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXJGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶¼',Tv1,''); + Close; +end; + +procedure TfrmSXJGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXJGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXJGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXJGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmSXJGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBName'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXJGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm new file mode 100644 index 0000000..4fc7952 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm @@ -0,0 +1,710 @@ +object frmSXJGDZList: TfrmSXJGDZList + Left = -4 + Top = 89 + Width = 1382 + Height = 580 + Caption = #32433#32447#21152#24037#23545#36134#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 = 1366 + Height = 33 + 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_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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 465 + Top = 0 + Caption = #23548#20986#21457#20986#32433 + ImageIndex = 68 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23548#20986#21152#24037#24067 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 659 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 38 + 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 = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 0 + Top = 71 + Width = 501 + Height = 470 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid0: TcxGrid + Left = 2 + Top = 52 + Width = 497 + Height = 416 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource0 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn6 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'SXFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FoneRed + Width = 98 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 90 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv0 + end + end + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 497 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object Label6: TLabel + Left = 88 + Top = 7 + Width = 26 + Height = 12 + Caption = #21697#21517 + end + object Label7: TLabel + Left = 229 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + end + object Label8: TLabel + Left = 10 + Top = 7 + Width = 39 + Height = 12 + Caption = #21457#20986#32433 + end + object SPName: TEdit + Tag = 2 + Left = 116 + Top = 4 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = SPNameChange + end + object SXFactoryName: TEdit + Tag = 2 + Left = 270 + Top = 4 + Width = 220 + Height = 20 + TabOrder = 1 + OnChange = SXFactoryNameChange + end + end + object cxTabControl2: TcxTabControl + Left = 2 + Top = 31 + Width = 497 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabOrder = 2 + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 497 + ClientRectTop = 0 + object cxSplitter3: TcxSplitter + Left = 0 + Top = 0 + Width = 100 + Height = 21 + end + end + end + object Panel4: TPanel + Left = 509 + Top = 71 + Width = 857 + Height = 470 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 853 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label3: TLabel + Left = 88 + Top = 7 + Width = 26 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 229 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 10 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#24067 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 116 + Top = 4 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 268 + Top = 4 + Width = 220 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 52 + Width = 853 + Height = 416 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 2 + Top = 31 + Width = 853 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 853 + ClientRectTop = 23 + object cxSplitter1: TcxSplitter + Left = 0 + Top = 23 + Width = 100 + Height = 0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 501 + Top = 71 + Width = 8 + Height = 470 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid0 + PopupMenus = <> + Left = 264 + Top = 216 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 296 + Top = 216 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 328 + Top = 216 + end + object ADOQueryMain10: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 792 + Top = 192 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas new file mode 100644 index 0000000..b5af08a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas @@ -0,0 +1,731 @@ +unit U_SXJGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxSplitter; + +type + TfrmSXJGDZList = 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_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Panel2: TPanel; + cxGrid0: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Panel4: TPanel; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ClientDataSet0: TClientDataSet; + cxTabControl1: TcxTabControl; + cxSplitter1: TcxSplitter; + cxTabControl2: TcxTabControl; + cxSplitter3: TcxSplitter; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + SXFactoryName: TEdit; + Label8: TLabel; + ADOQueryMain10: TADOQuery; + ToolButton5: 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 TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure SXFactoryNameChange(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitGrid10(); + function YFHZData(FDZID:String):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmSXJGDZList: TfrmSXJGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_SXJGDZInPut; + +{$R *.dfm} + +procedure TfrmSXJGDZList.FormDestroy(Sender: TObject); +begin + frmSXJGDZList:=nil; +end; + +procedure TfrmSXJGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXJGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select BegDate=Cast(convert(varchar(7),dateadd(month,-3,getdate()),120)+''-01'' as datetime) '); + Open; + end; + BegDate.DateTime:=ADOQueryTemp.fieldbyname('BegDate').Value; +end; + +procedure TfrmSXJGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ɴ߼ӹ'''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmSXJGDZList.InitGrid10(); +begin + try + ADOQueryMain10.DisableControls; + with ADOQueryMain10 do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add(' select AA.* from('); + sql.Add(' select A.*,SXFactoryName=(select KHName from ZH_KH_Info where ZKID=A.FromFactoryNo) '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where isnull(CKName,'''')=''ɴ'' and isnull(CRType,'''')=''ӹ'' '); + sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''')AA where 1=1'); + if Trim(SPName.Text)<>'' then + begin + SQL.Add(' and isnull(SPName,'''') like '''+'%'+Trim(SPName.Text)+'%'+''''); + end; + if Trim(SXFactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(SXFactoryName,'''') like '''+'%'+Trim(SXFactoryName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + finally + ADOQueryMain10.EnableControls; + end; +end; + +procedure TfrmSXJGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); + InitGrid10(); + TBFind.Click; +end; + +procedure TfrmSXJGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXJGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߼ӹб',Tv1,''); + WriteCxGrid('ɴ߷б',Tv0,''); + Close; +end; + +procedure TfrmSXJGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߼ӹб',Tv1,''); + ReadCxGrid('ɴ߷б',Tv0,''); + //InitGrid(); +end; + +procedure TfrmSXJGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid1); +end; + +procedure TfrmSXJGDZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; +end; + +procedure TfrmSXJGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXJGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXJGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmSXJGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmSXJGDZInPut:=TfrmSXJGDZInPut.Create(Application); + with frmSXJGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXJGDZInPut.Free; + end; +end; + +procedure TfrmSXJGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmSXJGDZInPut:=TfrmSXJGDZInPut.Create(Application); + with frmSXJGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXJGDZInPut.Free; + end; +end; + +procedure TfrmSXJGDZList.FactoryNameChange(Sender: TObject); +begin + SXFactoryName.Text:=Trim(FactoryName.Text); + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; + +end; + +procedure TfrmSXJGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXJGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXJGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'SJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + + {if Trim(CDS_Main.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=CDS_Main.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end;} + //FieldByName('CRTime').Value:=CDS_Main.fieldbyname('DZDate').Value; + //FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + //FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').Value; + //FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('CPName').Value:=Trim(CDS_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ɴ߼ӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmSXJGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmSXJGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXJGDZList.SPNameChange(Sender: TObject); +begin + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; +end; + +procedure TfrmSXJGDZList.MPRTCodeNameChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXJGDZList.SXFactoryNameChange(Sender: TObject); +begin + FactoryName.Text:=Trim(SXFactoryName.Text); + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXJGDZList.ToolButton5Click(Sender: TObject); +begin + if ADOQueryMain10.IsEmpty then exit; + TcxGridToExcel('ɴ߷б',cxGrid0); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm new file mode 100644 index 0000000..59d201e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm @@ -0,0 +1,398 @@ +object frmSXKCList: TfrmSXKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #32433#32447#24211#23384#36873#25321#21015#34920 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + 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 = 33 + Width = 1165 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 21 + Top = 12 + Width = 48 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 190 + Top = 12 + Width = 60 + Height = 12 + Caption = #21407#26009#20379#24212#21830 + end + object Label8: TLabel + Left = 356 + Top = 12 + Width = 48 + Height = 12 + Caption = #21407#26009#32534#21495 + end + object Label1: TLabel + Left = 524 + Top = 12 + Width = 48 + Height = 12 + Caption = #21407#26009#25104#20998 + end + object Label2: TLabel + Left = 692 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object SXName: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 250 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SXBatchNO: TEdit + Tag = 2 + Left = 405 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = SXBatchNOChange + end + object Edit1: TEdit + Tag = 2 + Left = 573 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = SXBatchNOChange + end + object Edit2: TEdit + Tag = 2 + Left = 730 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SXBatchNOChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1165 + Height = 403 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #24211#23384#20214'/'#31665#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20928#37325'(Kg)' + DataBinding.FieldName = 'MXKCKGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 95 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas new file mode 100644 index 0000000..3c289c0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas @@ -0,0 +1,188 @@ +unit U_SXKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + SXName: TEdit; + FactoryName: TEdit; + SXBatchNO: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label1: TLabel; + Edit1: TEdit; + Label2: TLabel; + Edit2: TEdit; + 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXKCList: TfrmSXKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXKCList.FormDestroy(Sender: TObject); +begin + frmSXKCList:=nil; +end; + +procedure TfrmSXKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ɴ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCKgQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXKCList.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 TfrmSXKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm new file mode 100644 index 0000000..0145db7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm @@ -0,0 +1,1650 @@ +object frmSXMDList: TfrmSXMDList + Left = 38 + Top = 85 + Width = 1225 + Height = 608 + Caption = #32433#32447#23545#36134#30721#21333#30331#35760 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + 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_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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 623 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 959 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v2Column1: TcxGridDBColumn + Caption = #21512#21516#20132#26399 + DataBinding.FieldName = 'DLYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #19981#24320#31080 + DataBinding.FieldName = 'BuKPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 88 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 380 + Top = 88 + Width = 525 + Height = 212 + TabOrder = 6 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 523 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 499 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 523 + Height = 187 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v5Column13: TcxGridDBColumn + Caption = #25903#20184#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v5Column12: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'Payment' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 158 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 286 + Top = 155 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas new file mode 100644 index 0000000..5481f7f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas @@ -0,0 +1,2587 @@ +unit U_SXMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmSXMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v2Column1: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmSXMDList: TfrmSXMDList; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmSXMDList.FormDestroy(Sender: TObject); +begin + frmSXMDList:=nil; +end; + +procedure TfrmSXMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmSXMDList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmSXMDList.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmSXMDList.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmSXMDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + if Trim(FactoryName.Text)<>'' then + begin + sql.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmSXMDList.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('δ!','',0); + Exit; + end; + SaveData(); +end; + +procedure TfrmSXMDList.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmSXMDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXMDList.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmSXMDList.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmSXMDList.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmSXMDList.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmSXMDList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(Money*QtyFlag) KCMoney from YF_Money_CR '); + sql.Add(' where Factoryname='''+Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+''''); + Open; + end; + Label15.Caption:=Trim(ADOQueryTemp.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if (Trim(FName)='Ssel') or (Trim(FName)='BuKPFlag') then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmSXMDList.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmSXMDList.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmSXMDList.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmSXMDList.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmSXMDList.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmSXMDList.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmSXMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmSXMDList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //ToolButton8.Click; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + if ClientDataSet1.FieldByName('Money').Value<>ClientDataSet1.FieldByName('FtyMoney').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + if ClientDataSet1.FieldByName('ChaEMoney').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)<>'' then + begin + SQL.Add(',Qty='+Trim(ClientDataSet1.fieldbyname('Qty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Price').AsString)<>'' then + begin + SQL.Add(',Price='+Trim(ClientDataSet1.fieldbyname('Price').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)<>'' then + begin + SQL.Add(',Money='+Trim(ClientDataSet1.fieldbyname('Money').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChaEMoney=isnull(Money,0)-isnull(FtyMoney,0)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXMDList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + 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='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmSXMDList.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ſ¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmSXMDList.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' and isnull(FXType,'''')<>'''')AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmSXMDList.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + 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(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmSXMDList.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmSXMDList.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmSXMDList.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmSXMDList.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmSXMDList.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl2.TabIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:=''; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + end; + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmSXMDList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmSXMDList.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXMDList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXMDList.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmSXMDList.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmSXMDList.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmSXMDList.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmSXMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmSXMDList.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.YFID,A.CRTime,A.FactoryName,A.Money,A.CRID '); + sql.Add(' ,PSName=isnull(A.PSName,D.PSName),C.OrderNo'); + sql.Add(' ,YFName=isnull(A.YFName,D.PKYongTu)'); + sql.Add(' ,ComTaiTou=isnull(A.ComTaiTou,D.ComTaiTou)'); + sql.Add(' ,PayMent=isnull(A.PayMent,D.PayMent)'); + sql.Add(' ,Note=isnull(A.Note,D.FKNote)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join YF_Money_PaiKuan D on A.YFID=D.FKID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' '); + sql.Add(' and A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + SQL.Add(' order by A.CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5);} +end; + +procedure TfrmSXMDList.FactoryNameKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(FactoryName.Text)='' then Exit; + if Length(Trim(FactoryName.Text))<2 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm new file mode 100644 index 0000000..bf4359f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas new file mode 100644 index 0000000..e5b4806 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm new file mode 100644 index 0000000..935c76e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas new file mode 100644 index 0000000..f5c28a1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm new file mode 100644 index 0000000..530efab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas new file mode 100644 index 0000000..46469f9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm new file mode 100644 index 0000000..74f0339 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm @@ -0,0 +1,1391 @@ +object frmTJCKCKOK: TfrmTJCKCKOK + Left = 32 + Top = 0 + Width = 1308 + Height = 700 + Align = alClient + Caption = #35843#33410#20179#24211#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 + 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_CYZZ.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 + 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 = 1292 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 24 + Top = 13 + 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 OrderNo: TEdit + Tag = 2 + Left = 65 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 204 + Width = 1292 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 88 + Top = 6 + 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 Edit2: TEdit + Tag = 2 + Left = 129 + Top = 2 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = Edit2Change + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + Format = '0' + Position = spFooter + Column = v2Column1 + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#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 = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#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 = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 76 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 0 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 70 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 8 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 70 + Top = 72 + Width = 120 + Height = 20 + TabOrder = 9 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 703 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 699 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 699 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 699 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label4: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 699 + Height = 117 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 68 + Width = 1292 + Height = 136 + Align = alTop + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column9: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNO' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v3Column12: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv6Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv6Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv6Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 500 + Width = 1292 + Height = 161 + Align = alClient + TabOrder = 4 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn22 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn23 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNO' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn23: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn26: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column1: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn33: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 468 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 5 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + Caption = #20445#23384 + ImageIndex = 5 + end + end + object cxGrid4: TcxGrid + Left = 133 + Top = 233 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 168 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 672 + Top = 168 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 197 + Top = 304 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 269 + Top = 304 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 152 + Top = 432 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 224 + Top = 432 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 280 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 920 + Top = 280 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 984 + Top = 424 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1024 + Top = 424 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 592 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 688 + Top = 592 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas new file mode 100644 index 0000000..abffbd2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas @@ -0,0 +1,562 @@ +unit U_TJCKCKOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView; + +type + TfrmTJCKCKOK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label21: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + MPRTCode: TBtnEditA; + LiDanPerson: TEdit; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel2: TPanel; + Label4: TLabel; + Edit1: TEdit; + Label5: TLabel; + Edit2: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + Tv6Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Tv3Column1: TcxGridDBColumn; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid4: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Edit2Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + procedure InitGrid(); + procedure InitGridCK(); + public + { Public declarations } + end; + +var + frmTJCKCKOK: TfrmTJCKCKOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; +{$R *.dfm} + +procedure TfrmTJCKCKOK.FormDestroy(Sender: TObject); +begin + frmTJCKCKOK:=nil; +end; + +procedure TfrmTJCKCKOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKCKOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKCKOK.InitGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + sql.Add(' and isnull(A.CRFlag,'''')='''' '); + sql.Add(' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmTJCKCKOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKCKOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + +end; + +procedure TfrmTJCKCKOK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKCKOK.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKCKOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and isnull(A.CRFlag,'''')='''' '); + sql.Add(' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKCKOK.Edit2Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit2.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid4.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True; +end; + +procedure TfrmTJCKCKOK.TvOrdeNoDblClick(Sender: TObject); +begin + Edit2.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Orderno='''+Trim(Edit2.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit2.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + //InitGrid(); +end; + +procedure TfrmTJCKCKOK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; + +procedure TfrmTJCKCKOK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; + +procedure TfrmTJCKCKOK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet1.fieldbyname('SubID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; +procedure TfrmTJCKCKOK.InitGridCK(); +var + FPSID,FOrdSubId,FConSubId:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + end else + begin + FOrdSubId:=''; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + // sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmTJCKCKOK.ToolButton3Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm new file mode 100644 index 0000000..5f1fdfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm @@ -0,0 +1,724 @@ +object frmTJCKDCView: TfrmTJCKDCView + Left = 273 + Top = 24 + Width = 1036 + Height = 709 + Caption = #24453#22788#29702#20179#24211#35843#20986#26597#35810 + 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 = 1020 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + 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 = 1020 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 277 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 407 + Top = 9 + 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 Label19: TLabel + Left = 560 + Top = 9 + 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 Label21: TLabel + Left = 712 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object ConCode: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 741 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 62 + Width = 1020 + Height = 371 + Align = alClient + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_DDMD.FonePurple + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_DDMD.FonePurple + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 433 + Width = 1020 + Height = 237 + Align = alBottom + TabOrder = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 17 + Width = 1016 + Height = 216 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v5Column4 + end + item + Kind = skSum + Column = v5Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20986#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v5Column7: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35843#20986#21305#25968 + DataBinding.FieldName = 'SJCKPS' + Width = 68 + end + object v5Column1: TcxGridDBColumn + Caption = #35843#20986#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 52 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1016 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 52 + Height = 12 + Caption = #35843#20986#35760#24405 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 816 + Top = 552 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 792 + Top = 552 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 616 + Top = 224 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 768 + Top = 552 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas new file mode 100644 index 0000000..9c7b12d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas @@ -0,0 +1,298 @@ +unit U_TJCKDCView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKDCView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + ScrollBox3: TScrollBox; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + Label18: TLabel; + ConCode: TEdit; + Label19: TLabel; + ConName: TEdit; + v5Column8: TcxGridDBColumn; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v5Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ConCodeChange(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKDCView: TfrmTJCKDCView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKDCView.FormDestroy(Sender: TObject); +begin + frmTJCKDCView:=nil; +end; + +procedure TfrmTJCKDCView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKDCView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKDCView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' PRTColor=isnull(JS.PRTColorNo,'''')+'' ''+isnull(JS.PRTColorEng,'''')+'' ''+isnull(JS.PRTColor,''''), '); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' and isnull(A.Status,'''')=''ȷ'' '); + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKDCView.InitGridKK(); +var + fsj:string; +begin + + +end; +procedure TfrmTJCKDCView.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv61',Tv6,'ڲֿ'); + {ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmTJCKDCView.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv61',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmTJCKDCView.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKDCView.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKDCView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' PRTColor=isnull(JS.PRTColorNo,'''')+'' ''+isnull(JS.PRTColorEng,'''')+'' ''+isnull(JS.PRTColor,''''), '); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' and isnull(A.Status,'''')=''ȷ'' '); + sql.Add(' and JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKDCView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKDCView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKDCView.ConCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKDCView.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,E.PSName,C.OrderNO,MPRTCode=C.MPRTCode+C.MPRTGY,D.PRTHX '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' where A.MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm new file mode 100644 index 0000000..b6b456e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm @@ -0,0 +1,564 @@ +object frmTJCKKC: TfrmTJCKKC + Left = 37 + Top = 17 + Width = 1183 + Height = 650 + Caption = #24453#22788#29702#20179#24211#24211#23384 + 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 ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1167 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 63 + Top = 0 + Width = 476 + Height = 30 + TabOrder = 0 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #25968#25454#26469#28304#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 = 185 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#20837#21305#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 308 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#20837#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ComboBox1: TComboBox + Left = 71 + Top = 5 + Width = 111 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #22806#22260 + #23454#20307) + end + object DRPS: TEdit + Left = 245 + Top = 5 + Width = 55 + Height = 20 + TabOrder = 1 + end + object DRQty: TEdit + Left = 369 + Top = 5 + Width = 99 + Height = 20 + TabOrder = 2 + end + end + object ToolButton4: TToolButton + Left = 539 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1167 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label3: TLabel + Left = 27 + Top = 9 + 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 Label18: TLabel + Left = 157 + Top = 9 + Width = 72 + Height = 12 + Caption = #21305#21495'/'#32769#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 329 + Top = 9 + 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 Label2: TLabel + Left = 463 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 574 + Top = 9 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 681 + Top = 9 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 801 + Top = 9 + Width = 52 + Height = 12 + Caption = #23384#25918#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 68 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object BatchNo: TEdit + Tag = 2 + Left = 231 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object ConName: TEdit + Tag = 2 + Left = 383 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 493 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 3 + end + object PRTHX: TEdit + Tag = 2 + Left = 604 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 4 + end + object FactoryName: TEdit + Tag = 2 + Left = 723 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 5 + end + object ToFactoryName: TEdit + Tag = 2 + Left = 854 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1167 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1167 + ClientRectTop = 23 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 94 + Width = 1167 + Height = 517 + Align = alClient + TabOrder = 3 + object Tv6: TcxGridDBTableView + OnMouseDown = Tv6MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v3Column16: TcxGridDBColumn + Caption = #21305#21495'/'#32769#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 144 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column17: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 70 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 72 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object LiYongXS: TcxGridDBColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v3Column18: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column20: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v3Column14: TcxGridDBColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v3Column15: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 344 + Top = 236 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas new file mode 100644 index 0000000..bedec87 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas @@ -0,0 +1,252 @@ +unit U_TJCKKC; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, BtnEdit, + ExtCtrls, ToolWin, cxCalendar, cxButtonEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxPC; + +type + TfrmTJCKKC = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Panel1: TPanel; + ADOQuery1: TADOQuery; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + Panel2: TPanel; + ComboBox1: TComboBox; + Label6: TLabel; + Label8: TLabel; + DRPS: TEdit; + Label9: TLabel; + DRQty: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + LiYongXS: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label3: TLabel; + Label18: TLabel; + Label19: TLabel; + Label2: TLabel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + OrderNo: TEdit; + BatchNo: TEdit; + ConName: TEdit; + PRTColor: TEdit; + PRTHX: TEdit; + FactoryName: TEdit; + ToFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + FFMainId:String; + FDataType:string; + end; + +var + frmTJCKKC: TfrmTJCKKC; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmTJCKKC.FormDestroy(Sender: TObject); +begin + frmTJCKKC:=nil; +end; + +procedure TfrmTJCKKC.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKKC.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv6,'ڲֿ'); + InitGrid(); +end; +procedure TfrmTJCKKC.InitGrid(); +begin + with ADOQuery1 do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_DCLKC :ClotheType'); + Parameters.ParamByName('ClotheType').Value:=Trim(cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); +end; + +procedure TfrmTJCKKC.OrderNoChange(Sender: TObject); +begin + if ADOQuery1.Active=False then Exit; + SDofilter(ADOQuery1,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); +end; + +procedure TfrmTJCKKC.ToolButton1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.IsEmpty then Exit; + { if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + if Trim(Order_Sub.fieldbyname('ToFactoryName').AsString)='' then + begin + ComboBox1.ItemIndex:=1; + end; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ԴΪ!','ʾ',0); + Exit; + end; + if Trim(DRPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if Trim(DRQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if TryStrToFloat(Trim(DRPS.Text),FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if TryStrToFloat(Trim(DRQty.Text),FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if StrToFloat(DRQty.Text)>Order_Sub.FieldByName('JSKCQty').Value then + begin + Application.MessageBox('ܴڿ!','ʾ',0); + Exit; + end; + { if Order_Sub.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + if Trim(FFMainId)=Trim(Order_Sub.fieldbyname('ORDMainId').AsString) then + begin + Application.MessageBox('DZݣܵ!','ʾ',0); + Exit; + end; + end; } + if Application.MessageBox(PChar('ȷҪ<'+ComboBox1.Text+'ֿ>'),'ʾ',32+4)<>IDYES then Exit; + ModalResult:=1; + +end; + +procedure TfrmTJCKKC.ToolButton4Click(Sender: TObject); +begin + Close; + WriteCxGrid('ѡ',Tv6,'ڲֿ'); + ModalResult:=-1; +end; + +procedure TfrmTJCKKC.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKKC.v6Column2PropertiesEditValueChanged(Sender: TObject); +var + Mvalue:Boolean; + MDID:string; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + MDID:=Trim(Order_Sub.fieldbyname('MDID').AsString); + with Order_Sub do + begin + while Order_Sub.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Order_Sub.Locate('MDID',MDID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + +end; + +procedure TfrmTJCKKC.Tv6MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(FDataType)='ֿ' then + begin + ComboBox1.ItemIndex:=1; + ComboBox1.Enabled:=false; + Exit; + end; + if Trim(Order_Sub.fieldbyname('ToFactoryName').AsString)='' then + begin + ComboBox1.ItemIndex:=1; + ComboBox1.Enabled:=false; + end else + begin + ComboBox1.ItemIndex:=-1; + ComboBox1.Enabled:=True; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm new file mode 100644 index 0000000..288b5c2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm @@ -0,0 +1,1120 @@ +object frmTJCKOutOK: TfrmTJCKOutOK + Left = 54 + Top = 22 + Width = 1252 + Height = 709 + Caption = #35843#33410#20179#24211#35843#29992#31649#29702 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1236 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 277 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 407 + Top = 9 + 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 Label19: TLabel + Left = 560 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 718 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 776 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 916 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object C_Code: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Button2: TButton + Left = 834 + Top = 5 + Width = 70 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 8 + OnClick = Button2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 382 + Width = 1236 + Height = 141 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column2 + end + item + Kind = skSum + Column = Tv2Column1 + end + item + Kind = skSum + Column = v6Column21 + end + item + Kind = skSum + Column = v6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1225 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv2Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + PropertiesClassName = 'TcxTextEditProperties' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1236 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#35843#20986 + #24050#35843#20986 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1236 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 523 + Width = 1236 + Height = 147 + Align = alBottom + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 17 + Width = 1232 + Height = 126 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1232 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object Panel5: TPanel + Left = 0 + Top = 51 + Width = 1236 + Height = 331 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label5: TLabel + Left = 872 + Top = 65 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label4: TLabel + Left = 943 + Top = 23 + Width = 54 + Height = 12 + Caption = #26412' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 872 + Top = 88 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label7: TLabel + Left = 872 + Top = 155 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label8: TLabel + Left = 872 + Top = 175 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label9: TLabel + Left = 943 + Top = 132 + Width = 54 + Height = 12 + Caption = #19979' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 872 + Top = 197 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label2: TLabel + Left = 872 + Top = 45 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label11: TLabel + Left = 1057 + Top = 136 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + Visible = False + end + object Label12: TLabel + Left = 1081 + Top = 210 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + Visible = False + end + object Label13: TLabel + Left = 872 + Top = 108 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 847 + Height = 327 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + 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 + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn3 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn3 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + Width = 66 + end + object v1Column1: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'PRTHX' + Width = 32 + end + object v1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + Width = 35 + end + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 64 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + Width = 45 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 117 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv1 + end + end + object FromPrice: TEdit + Tag = 99 + Left = 922 + Top = 61 + Width = 120 + Height = 20 + TabOrder = 1 + end + object FromConTypeOther: TBtnEditA + Tag = 99 + Left = 922 + Top = 83 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FromConTypeOtherBtnClick + end + object ToFactoryName: TBtnEditA + Tag = 99 + Left = 922 + Top = 150 + Width = 121 + Height = 20 + Hint = 'ToFactoryNo' + ReadOnly = True + TabOrder = 3 + OnBtnClick = ToFactoryNameBtnClick + end + object ToPrice: TEdit + Tag = 99 + Left = 922 + Top = 171 + Width = 120 + Height = 20 + TabOrder = 4 + end + object ToConTypeOther: TBtnEditA + Tag = 99 + Left = 922 + Top = 192 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ToConTypeOtherBtnClick + end + object Button1: TButton + Left = 946 + Top = 233 + Width = 65 + Height = 21 + Caption = #20445#23384 + TabOrder = 6 + OnClick = Button1Click + end + object FromFactoryName: TBtnEditA + Tag = 99 + Left = 922 + Top = 40 + Width = 121 + Height = 20 + Hint = 'FromFactoryNo' + ReadOnly = True + TabOrder = 7 + OnBtnClick = FromFactoryNameBtnClick + end + object FromPSName: TComboBox + Left = 1106 + Top = 132 + Width = 122 + Height = 20 + ItemHeight = 12 + TabOrder = 8 + Visible = False + end + object ToPSName: TComboBox + Left = 1130 + Top = 206 + Width = 122 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + Visible = False + end + object MDType: TComboBox + Tag = 99 + Left = 922 + Top = 104 + Width = 121 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + Items.Strings = ( + #22806#22260 + #23454#20307) + end + object Button3: TButton + Left = 946 + Top = 265 + Width = 65 + Height = 21 + Caption = #35843#29992#25764#38144 + TabOrder = 11 + OnClick = Button3Click + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 224 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 608 + Top = 26 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 640 + Top = 26 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 664 + Top = 26 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 864 + Top = 584 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1008 + Top = 584 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 26 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 232 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 928 + Top = 592 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 448 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas new file mode 100644 index 0000000..ffaf88a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas @@ -0,0 +1,1120 @@ +unit U_TJCKOutOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKOutOK = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv2Column1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + Label18: TLabel; + C_Code: TEdit; + Label19: TLabel; + C_CodeName: TEdit; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label5: TLabel; + FromPrice: TEdit; + Label4: TLabel; + FromConTypeOther: TBtnEditA; + Label6: TLabel; + ToFactoryName: TBtnEditA; + Label7: TLabel; + Label8: TLabel; + ToPrice: TEdit; + Label9: TLabel; + ToConTypeOther: TBtnEditA; + Label10: TLabel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + FromFactoryName: TBtnEditA; + Label2: TLabel; + Label11: TLabel; + FromPSName: TComboBox; + Label12: TLabel; + ToPSName: TComboBox; + MDType: TComboBox; + Label13: TLabel; + v3Column1: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure FromFactoryNameBtnClick(Sender: TObject); + procedure ToFactoryNameBtnClick(Sender: TObject); + procedure FromConTypeOtherBtnClick(Sender: TObject); + procedure ToConTypeOtherBtnClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + function SaveConData(FONID:string):Boolean; + function SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; + public + { Public declarations } + end; + +var + frmTJCKOutOK: TfrmTJCKOutOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKOutOK.FormDestroy(Sender: TObject); +begin + frmTJCKOutOK:=nil; +end; + +procedure TfrmTJCKOutOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,A.* '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.FormShow(Sender: TObject); +begin + {ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKOutOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKOutOK.ToolButton1Click(Sender: TObject); +begin + {if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex=2 then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDSBand(ADOQueryCmd,tv6,ClientDataSet6,'JYOrder_Main_MD',3); + if ClientDataSet6.FieldByName('CostFlag').AsBoolean=True then + begin + FieldByName('CostFlag').Value:=1 + end else + begin + FieldByName('CostFlag').Value:=0; + end; + FieldByName('CRDate').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRPerson').Value:=Trim(DName); + FieldByName('QtyFlag').Value:=1; + FieldByName('RKMDID').Value:=ClientDataSet6.fieldbyname('MDID').Value; + FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set KCPS=(select Sum(PS*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(',KCQty=(select Sum(Qty*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; } +end; + +procedure TfrmTJCKOutOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; + +end; + +procedure TfrmTJCKOutOK.Button10Click(Sender: TObject); +begin + {WriteCxBandedGrid('Tv6',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv2',Tv2,'ڲֿ'); + WriteCxBandedGrid('Tv3',Tv3,'ڲֿ'); + WriteCxGrid('Tv5',Tv5,'ڲֿ'); } + close; + +end; + +procedure TfrmTJCKOutOK.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.FromFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FromFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + FromFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOK.ToFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + ToFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + ToFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOK.FromConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + FromConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOK.ToConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ToConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOK.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AM.CKID,AM.CKPS,AM.CKQty,AM.SJCKPS,AM.SJCKQty,JM.OrderNo, A.*,B.PSName OrdPSName, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD_Out AM'); + sql.Add(' inner join JYOrder_Main_MD A on AM.MDID=A.MDID'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if ClientDataSet1.IsEmpty=False then + SQL.Add(' where AM.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + if cxTabControl1.TabIndex=0 then + begin + FromFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('FactoryName').AsString); + FromFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + end else + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel5,99); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOK.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOK.Button1Click(Sender: TObject); +Var + FReal:Double; + FInt:Integer; +begin + if Trim(FromFactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; } + if Trim(FromPrice.Text)='' then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; + if Trim(MDType.Text)='' then + begin + Application.MessageBox('뵥ͲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(FromPrice.Text,FReal)=False then + begin + Application.MessageBox('۸Ƿ!','ʾ',0); + Exit; + end; + if Trim(FromConTypeOther.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + if (Trim(ToFactoryName.Text)+Trim(ToConTypeOther.Text))<>'' then + begin + if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(ToConTypeOther.Text)='' then + begin + Application.MessageBox('µͬͲΪ!','ʾ',0); + Exit; + end; + end; + if Trim(ToPrice.Text)<>'' then + begin + if TryStrToFloat(ToPrice.Text,FReal)=False then + begin + Application.MessageBox('µ۸Ƿ!','ʾ',0); + Exit; + end; + end; + if Tv2.DataController.Summary.FooterSummaryValues[0]>Tv2.DataController.Summary.FooterSummaryValues[2] then + begin + Application.MessageBox('ڿ!','ʾ',0); + Exit; + end; + if Tv2.DataController.Summary.FooterSummaryValues[0]<>Tv2.DataController.Summary.FooterSummaryValues[1] then + begin + if Application.MessageBox('ȣȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FInt:=99; + end; + if FInt<>99 then + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + +end; +function TfrmTJCKOutOK.SaveData():Boolean; +var + maxno,ONID:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ONID:=Trim(ADOQueryTemp.fieldbyname('ONID').AsString); + end else + begin + ONID:=''; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(ONID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ON','JYOrder_Main_MD_OutNote',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡڲֿˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ONID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where ONID='''+Trim(ONID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ONID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('PFID').Value:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FieldByName('ONID').Value:=Trim(maxno); + FieldByName('FromFactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ToFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('ToFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('FromConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ToConTypeOther').Value:=Trim(ToConTypeOther.Text); + if Trim(FromPrice.Text)<>'' then + begin + FieldByName('FromPrice').Value:=Trim(FromPrice.Text); + end else + begin + FieldByName('FromPrice').Value:='0'; + end; + if Trim(ToPrice.Text)<>'' then + begin + FieldByName('ToPrice').Value:=Trim(ToPrice.Text); + end else + begin + FieldByName('ToPrice').Value:='0'; + end; + FieldByName('MDTYpe').Value:=Trim(MDType.Text); + Post; + end; + SaveConData(maxno); + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set '); + if Trim(ClientDataSet2.fieldbyname('SJCKPS').AsString)<>'' then + begin + sql.Add(' SJCKPS='+ClientDataSet2.fieldbyname('SJCKPS').AsString); + end else + begin + sql.Add(' SJCKPS=0'); + end; + if Trim(ClientDataSet2.fieldbyname('SJCKQty').AsString)<>'' then + begin + sql.Add(' ,SJCKQty='+ClientDataSet2.fieldbyname('SJCKQty').AsString); + end else + begin + sql.Add(' ,SJCKQty=0'); + end; + SQL.Add(' where CKID='''+Trim(ClientDataSet2.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet2.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxTabControl1.TabIndex=0 then + ClientDataSet1.Delete; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Result:=True; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmTJCKOutOK.SaveConData(FONID:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('FactoryNoName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ConType').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'NS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('C_Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + if Trim(FromPrice.Text)='' then + FieldByName('Price').Value:=0 + else + FieldByName('Price').Value:=Trim(FromPrice.Text); + Post; + end; + SaveMDData(FONID,Trim(ClientDataSet1.fieldbyname('MainId').AsString), + Trim(ClientDataSet1.fieldbyname('SubId').AsString), + Trim(ClientDataSet1.fieldbyname('PSID').AsString), + Trim(ClientDataSet1.fieldbyname('PFID').AsString), + Trim(maxno),Trim(maxsubno)); + if Trim(ToFactoryName.Text)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where '); + sql.Add(' Mainid='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSXH=(select PSXH+1 from JYOrder_Process where PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''')'); + // sql.Add(' and PSName='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''')'); + + Open; + end; + PSName:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(PSName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('FactoryNoName').Value:=Trim(ToFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('ConType').Value:=Trim(PSName); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'JS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('C_Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + if Trim(ToPrice.Text)='' then + FieldByName('Price').Value:=0 + else + FieldByName('Price').Value:=Trim(ToPrice.Text); + Post; + end; + end; + Result:=True; + +end; +function TfrmTJCKOutOK.SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; +var + maxno,MDID:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ONID='''+Trim(FONID)+''''); + sql.Add(' and FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MDID:=Trim(ADOQueryTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','JYOrder_Main_MD',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + FieldByName('ConMainID').Value:=Trim(FConMainId); + FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(MDType.Text); + FieldByName('MDNO').Value:=Trim(maxno); + FieldByName('FactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('PS').Value:=Tv2.DataController.Summary.FooterSummaryValues[3]; + FieldByName('Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('QtyUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('PSName').Value:=ClientDataSet1.fieldbyname('PSName').Value; + FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('MDDate').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Result:=True; + +end; + +procedure TfrmTJCKOutOK.Button2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKOutOK.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_Main_MD_OutNote C on B.ONID=C.ONID'); + SQL.Add(' where C.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݣܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //뵥ʵʳ + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //³ + sql.Add('Update JYOrder_Main_MD Set CKPS=(select Sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select Sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where B.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + //ɾԶɵĺͬ + sql.Add('delete Contract_Main where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + SQL.Add(' delete Contract_Sub where not exists(select * from Contract_Main A where A.Mainid=Contract_Sub.MainId)'); + //ɾԶɵ뵥 + sql.Add(' delete JYOrder_Main_MD where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + //° + sql.Add(' Update JYOrder_PCS_Sub Set WCMQty=0,TJOutFlag=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ɾڲֿע + sql.Add(' Delete JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.Delete; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKOutOK.OrderNoChange(Sender: TObject); +begin + Button9.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm new file mode 100644 index 0000000..614df89 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm @@ -0,0 +1,1106 @@ +object frmTJCKOutOKChk: TfrmTJCKOutOKChk + Left = 54 + Top = 22 + Width = 1252 + Height = 709 + Caption = #35843#33410#20179#24211#35843#29992#23457#26680 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1236 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 277 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 407 + Top = 9 + 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 Label19: TLabel + Left = 560 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 718 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 776 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 916 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object C_Code: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object Button2: TButton + Left = 834 + Top = 5 + Width = 70 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 8 + OnClick = Button2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 337 + Width = 1236 + Height = 140 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv2Column1 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1225 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object Tv2Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column1: TcxGridDBBandedColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1236 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 1 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1236 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 477 + Width = 1236 + Height = 193 + Align = alBottom + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 17 + Width = 1232 + Height = 172 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1232 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object Panel5: TPanel + Left = 0 + Top = 51 + Width = 1236 + Height = 286 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label5: TLabel + Left = 784 + Top = 52 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label4: TLabel + Left = 863 + Top = 7 + Width = 54 + Height = 12 + Caption = #26412' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 784 + Top = 97 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label7: TLabel + Left = 784 + Top = 171 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label8: TLabel + Left = 784 + Top = 193 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label9: TLabel + Left = 863 + Top = 148 + Width = 54 + Height = 12 + Caption = #19979' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 785 + Top = 236 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label2: TLabel + Left = 784 + Top = 29 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label11: TLabel + Left = 784 + Top = 120 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label12: TLabel + Left = 784 + Top = 258 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label13: TLabel + Left = 784 + Top = 74 + Width = 48 + Height = 12 + Caption = #35268#26684#22411#21495 + end + object Label14: TLabel + Left = 784 + Top = 215 + Width = 48 + Height = 12 + Caption = #35268#26684#22411#21495 + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 767 + Height = 282 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + 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 + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn3 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn3 + 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 + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + Width = 55 + end + object v1Column1: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'PRTHX' + Width = 36 + end + object v1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + Width = 39 + end + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 57 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + Width = 44 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNoStr' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv1 + end + end + object FromPrice: TEdit + Tag = 99 + Left = 834 + Top = 48 + Width = 119 + Height = 20 + TabOrder = 1 + end + object FromConTypeOther: TBtnEditA + Tag = 99 + Left = 834 + Top = 93 + Width = 119 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FromConTypeOtherBtnClick + end + object ToFactoryName: TBtnEditA + Tag = 99 + Left = 834 + Top = 167 + Width = 119 + Height = 20 + Hint = 'ToFactoryNo' + ReadOnly = True + TabOrder = 3 + OnBtnClick = ToFactoryNameBtnClick + end + object ToPrice: TEdit + Tag = 99 + Left = 834 + Top = 189 + Width = 119 + Height = 20 + TabOrder = 4 + end + object ToConTypeOther: TBtnEditA + Tag = 99 + Left = 835 + Top = 232 + Width = 119 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ToConTypeOtherBtnClick + end + object Button1: TButton + Left = 970 + Top = 116 + Width = 65 + Height = 21 + Caption = #23457#26680#36890#36807 + TabOrder = 6 + OnClick = Button1Click + end + object FromFactoryName: TBtnEditA + Tag = 99 + Left = 834 + Top = 25 + Width = 119 + Height = 20 + Hint = 'FromFactoryNo' + Enabled = False + ReadOnly = True + TabOrder = 7 + OnBtnClick = FromFactoryNameBtnClick + end + object FromPSName: TComboBox + Tag = 99 + Left = 834 + Top = 116 + Width = 119 + Height = 20 + Enabled = False + ItemHeight = 12 + TabOrder = 8 + end + object ToPSName: TComboBox + Tag = 99 + Left = 834 + Top = 254 + Width = 119 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + end + object Button3: TButton + Left = 970 + Top = 167 + Width = 65 + Height = 21 + Caption = #23457#26680#25764#38144 + TabOrder = 10 + OnClick = Button3Click + end + object FromSpec: TEdit + Tag = 99 + Left = 834 + Top = 70 + Width = 119 + Height = 20 + TabOrder = 11 + end + object ToSpec: TEdit + Tag = 99 + Left = 834 + Top = 211 + Width = 119 + Height = 20 + TabOrder = 12 + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 224 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 608 + Top = 26 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 640 + Top = 26 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 664 + Top = 26 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 864 + Top = 584 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1008 + Top = 584 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 26 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 624 + Top = 224 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 928 + Top = 592 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 448 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas new file mode 100644 index 0000000..811471c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas @@ -0,0 +1,1119 @@ +unit U_TJCKOutOKChk; //10 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKOutOKChk = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv2Column1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + Label18: TLabel; + C_Code: TEdit; + Label19: TLabel; + C_CodeName: TEdit; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label5: TLabel; + FromPrice: TEdit; + Label4: TLabel; + FromConTypeOther: TBtnEditA; + Label6: TLabel; + ToFactoryName: TBtnEditA; + Label7: TLabel; + Label8: TLabel; + ToPrice: TEdit; + Label9: TLabel; + ToConTypeOther: TBtnEditA; + Label10: TLabel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + FromFactoryName: TBtnEditA; + Label2: TLabel; + Label11: TLabel; + FromPSName: TComboBox; + Label12: TLabel; + ToPSName: TComboBox; + v3Column1: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + Label13: TLabel; + FromSpec: TEdit; + Label14: TLabel; + ToSpec: TEdit; + v1Column5: TcxGridDBColumn; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure FromFactoryNameBtnClick(Sender: TObject); + procedure ToFactoryNameBtnClick(Sender: TObject); + procedure FromConTypeOtherBtnClick(Sender: TObject); + procedure ToConTypeOtherBtnClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + function SaveConData(FONID:string):Boolean; + function SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; + public + { Public declarations } + end; + +var + frmTJCKOutOKChk: TfrmTJCKOutOKChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKOutOKChk.FormDestroy(Sender: TObject); +begin + frmTJCKOutOKChk:=nil; +end; + +procedure TfrmTJCKOutOKChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutOKChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutOKChk.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,B.Mainid,C.SubId,A.*'); + sql.Add(',MDNOStr=dbo.F_Get_Order_SubStr(A.PFID,''MDNOStr'')'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.FormShow(Sender: TObject); +begin + {ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKOutOKChk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKOutOKChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOKChk.Button10Click(Sender: TObject); +begin + close; + +end; + +procedure TfrmTJCKOutOKChk.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOKChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.FromFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FromFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + FromFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.ToFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + ToFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + ToFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.FromConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + FromConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.ToConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ToConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + fsj:string; +begin + fsj:=' select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+'''' + +' order by PSXH'; + //SInitComBoxBySql(ADOQueryTemp,FromPSName,False,fsj); + SInitComBoxBySql(ADOQueryTemp,ToPSName,False,fsj); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AM.CKID,AM.CKPS,AM.CKQty,AM.SJCKPS,AM.SJCKQty,JM.OrderNo, A.*,B.PSName OrdPSName, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD_Out AM'); + sql.Add(' inner join JYOrder_Main_MD A on AM.MDID=A.MDID'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if ClientDataSet1.IsEmpty=False then + SQL.Add(' where AM.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + SClearData(Panel5,99); + if cxTabControl1.TabIndex=0 then + begin + FromFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('FactoryName').AsString); + FromFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FromPSName.Text:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + end else + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel5,99); + FromPSName.Text:=Trim(ADOQuery1.fieldbyname('FromPSName').AsString); + ToPSName.Text:=Trim(ADOQuery1.fieldbyname('ToPSName').AsString); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOKChk.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOKChk.Button1Click(Sender: TObject); +Var + FReal:Double; + FInt:Integer; +begin + if Trim(FromFactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(FromPrice.Text)='' then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; + if Trim(FromSpec.Text)='' then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(FromPrice.Text,FReal)=False then + begin + Application.MessageBox('۸Ƿ!','ʾ',0); + Exit; + end; + if Trim(FromConTypeOther.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + if (Trim(ToFactoryName.Text)+Trim(ToConTypeOther.Text))<>'' then + begin + if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(ToConTypeOther.Text)='' then + begin + Application.MessageBox('µͬͲΪ!','ʾ',0); + Exit; + end; + if Trim(ToPSName.Text)='' then + begin + Application.MessageBox('µƲΪ!','ʾ',0); + Exit; + end; + if Trim(ToSpec.Text)='' then + begin + Application.MessageBox('µͺŲΪ!','ʾ',0); + Exit; + end; + end; + if Trim(ToPrice.Text)<>'' then + begin + if TryStrToFloat(ToPrice.Text,FReal)=False then + begin + Application.MessageBox('µ۸Ƿ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + +end; +function TfrmTJCKOutOKChk.SaveData():Boolean; +var + maxno,ONID:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ONID:=Trim(ADOQueryTemp.fieldbyname('ONID').AsString); + end else + begin + ONID:=''; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(ONID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ON','JYOrder_Main_MD_OutNote',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡڲֿˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ONID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where ONID='''+Trim(ONID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ONID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('PFID').Value:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FieldByName('ONID').Value:=Trim(maxno); + FieldByName('FromFactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ToFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('ToFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('FromConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ToConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('FromSpec').Value:=Trim(FromSpec.Text); + FieldByName('ToSpec').Value:=Trim(ToSpec.Text); + FieldByName('FromPSName').Value:=Trim(FromPSName.Text); + FieldByName('ToPSName').Value:=Trim(ToPSName.Text); + if Trim(FromPrice.Text)<>'' then + begin + FieldByName('FromPrice').Value:=Trim(FromPrice.Text); + end else + begin + FieldByName('FromPrice').Value:='0'; + end; + if Trim(ToPrice.Text)<>'' then + begin + FieldByName('ToPrice').Value:=Trim(ToPrice.Text); + end else + begin + FieldByName('ToPrice').Value:='0'; + end; + + Post; + end; + SaveConData(maxno); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + {with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set '); + if Trim(ClientDataSet2.fieldbyname('SJCKPS').AsString)<>'' then + begin + sql.Add(' SJCKPS='+ClientDataSet2.fieldbyname('SJCKPS').AsString); + end else + begin + sql.Add(' SJCKPS=0'); + end; + if Trim(ClientDataSet2.fieldbyname('SJCKQty').AsString)<>'' then + begin + sql.Add(' ,SJCKQty='+ClientDataSet2.fieldbyname('SJCKQty').AsString); + end else + begin + sql.Add(' ,SJCKQty=0'); + end; + SQL.Add(' where CKID='''+Trim(ClientDataSet2.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet2.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; } + if cxTabControl1.TabIndex=0 then + ClientDataSet1.Delete; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Result:=True; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmTJCKOutOKChk.SaveConData(FONID:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('FactoryNoName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ConType').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'NS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PFTPPS').Value; + FieldByName('C_Qty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('ConQty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('ConUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('C_Spec').Value:=Trim(FromSpec.Text); + if Trim(FromPrice.Text)='' then + begin + FieldByName('Price').Value:=0; + FieldByName('ConPrice').Value:=0; + end + else + begin + FieldByName('Price').Value:=Trim(FromPrice.Text); + FieldByName('ConPrice').Value:=Trim(FromPrice.Text); + end; + Post; + end; + //뵥ͬ + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Main_MD Set'); + sql.Add('ConMainId='''+Trim(maxno)+''''); + sql.Add(',ConSubId='''+Trim(maxsubno)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + //SaveMDData(); + if Trim(ToFactoryName.Text)<>'' then + begin + PSName:=Trim(ToPSName.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(PSName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('FactoryNoName').Value:=Trim(ToFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('ConType').Value:=Trim(PSName); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'JS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PFTPPS').Value; + FieldByName('C_Qty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('ConQty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('ConUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('C_Spec').Value:=Trim(FromSpec.Text); + if Trim(FromPrice.Text)='' then + begin + FieldByName('Price').Value:=0; + FieldByName('ConPrice').Value:=0; + end + else + begin + FieldByName('Price').Value:=Trim(FromPrice.Text); + FieldByName('ConPrice').Value:=Trim(FromPrice.Text); + end; + Post; + end; + end; + Result:=True; + +end; +function TfrmTJCKOutOKChk.SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; +var + maxno,MDID:string; +begin + +end; + +procedure TfrmTJCKOutOKChk.Button2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.Button3Click(Sender: TObject); +var + BDInt,CPInt,JYInt,Fint:Integer; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_Main_MD_OutNote C on B.ONID=C.ONID'); + SQL.Add(' where C.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').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 JYOrder_PCS_Sub A'); + sql.Add(' inner join JYorder_Process B on A.PSID=B.PSID'); + sql.Add(' where A.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + BDInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + CPInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + JYInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + if BDInt-1 then + begin + if BDInt+1>=CPInt then + begin + Fint:=99; + end; + end else + begin + if BDInt+1=JYInt then + begin + Fint:=99; + end; + end; + end else + begin + Fint:=99; + end; + + //жϹǷԶ뵥 + //Ʒ뵥ɾ + if Fint=99 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD '); + SQL.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ܳ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //ɾԶɵĺͬ + sql.Add('delete Contract_Main where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + SQL.Add(' delete Contract_Sub where not exists(select * from Contract_Main A where A.Mainid=Contract_Sub.MainId)'); + //°״̬ + sql.Add(' Update JYOrder_PCS_Sub Set TJOutFlag=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ɾڲֿע + sql.Add(' Delete JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ȡ뵥ͬ + sql.Add(' Update JYOrder_Main_MD Set ConMainId=Null,ConSubId=Null where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.Delete; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKOutOKChk.OrderNoChange(Sender: TObject); +begin + Button9.Click; +end; + +procedure TfrmTJCKOutOKChk.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,B.Mainid,C.SubId,A.*'); + sql.Add(',MDNOStr=dbo.F_Get_Order_SubStr(A.PFID,''MDNOStr'')'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + sql.Add(' and B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm new file mode 100644 index 0000000..d36e0d7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm @@ -0,0 +1,540 @@ +object frmTJCKOutView: TfrmTJCKOutView + Left = 201 + Top = 90 + Width = 1036 + Height = 709 + Caption = #35843#33410#20179#24211#20986#24211#26597#35810 + 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 = 1020 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + 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 = 1020 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 175 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#21069#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 329 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 449 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 820 + Top = 9 + 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 Label2: TLabel + Left = 175 + Top = 33 + Width = 65 + Height = 12 + Caption = #35843#21518#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 329 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#32534#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 = 449 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 572 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#33457#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 = 695 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#24037#24207 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 572 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 695 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#24037#24207 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TQOrderNo: TEdit + Tag = 2 + Left = 240 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = TQOrderNoChange + OnKeyPress = TQOrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 29 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object TQMPRTCode: TEdit + Tag = 2 + Left = 381 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 3 + OnChange = TQOrderNoChange + end + object TQPRTColor: TEdit + Tag = 2 + Left = 503 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 4 + OnChange = TQOrderNoChange + end + object MDType: TComboBox + Tag = 1 + Left = 849 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TQOrderNoChange + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object THOrderNo: TEdit + Tag = 2 + Left = 240 + Top = 29 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = TQOrderNoChange + OnKeyPress = THOrderNoKeyPress + end + object THMPRTCode: TEdit + Tag = 2 + Left = 381 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 7 + OnChange = TQOrderNoChange + end + object THPRTColor: TEdit + Tag = 2 + Left = 503 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 8 + OnChange = TQOrderNoChange + end + object TQPRTHX: TEdit + Tag = 2 + Left = 625 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 9 + OnChange = TQOrderNoChange + end + object TQPSName: TEdit + Tag = 2 + Left = 749 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 10 + OnChange = TQOrderNoChange + end + object THPRTHX: TEdit + Tag = 2 + Left = 625 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 11 + OnChange = TQOrderNoChange + end + object THPSName: TEdit + Tag = 2 + Left = 749 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 12 + OnChange = TQOrderNoChange + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 85 + Width = 1020 + Height = 585 + Align = alClient + TabOrder = 2 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v5Column4 + end + item + Kind = skSum + Position = spFooter + Column = v5Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v5Column4 + end + item + Kind = skSum + Column = v5Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v5Column5: TcxGridDBColumn + Caption = #35843#21069#35746#21333#21495 + DataBinding.FieldName = 'TQOrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column6: TcxGridDBColumn + Caption = #35843#21069#24037#24207 + DataBinding.FieldName = 'TQPSName' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v5Column11: TcxGridDBColumn + Caption = #35843#21069#39068#33394 + DataBinding.FieldName = 'TQPRTColor' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v5Column12: TcxGridDBColumn + Caption = #35843#21069#33457#22411 + DataBinding.FieldName = 'TQPRTHX' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20986#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#21518#35746#21333#21495 + DataBinding.FieldName = 'THOrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v5Column10: TcxGridDBColumn + Caption = #35843#21518#24037#24207 + DataBinding.FieldName = 'THPSName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v5Column8: TcxGridDBColumn + Caption = #35843#21518#20135#21697#32534#21495 + DataBinding.FieldName = 'THMPRTCode' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v5Column7: TcxGridDBColumn + Caption = #35843#21518#33457#22411 + DataBinding.FieldName = 'THPRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #35843#21518#39068#33394 + DataBinding.FieldName = 'THPRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35843#20986#21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v5Column1: TcxGridDBColumn + Caption = #35843#20986#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 52 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 816 + Top = 360 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 776 + Top = 360 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 736 + Top = 360 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas new file mode 100644 index 0000000..781cc51 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas @@ -0,0 +1,214 @@ +unit U_TJCKOutView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKOutView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + TQOrderNo: TEdit; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + TQMPRTCode: TEdit; + Label19: TLabel; + TQPRTColor: TEdit; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + ADOQueryMain: TADOQuery; + Label21: TLabel; + MDType: TComboBox; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column8: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v5Column5: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column11: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + Label2: TLabel; + THOrderNo: TEdit; + Label4: TLabel; + THMPRTCode: TEdit; + Label5: TLabel; + THPRTColor: TEdit; + Label6: TLabel; + Label7: TLabel; + TQPRTHX: TEdit; + TQPSName: TEdit; + Label8: TLabel; + THPRTHX: TEdit; + Label9: TLabel; + THPSName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TQOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure TQOrderNoChange(Sender: TObject); + procedure THOrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridStr(fsj:String); + public + { Public declarations } + end; + +var + frmTJCKOutView: TfrmTJCKOutView; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKOutView.FormDestroy(Sender: TObject); +begin + frmTJCKOutView:=nil; +end; + +procedure TfrmTJCKOutView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutView.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,THPSName=E.PSName,THOrderNo=C.OrderNO,THMPRTCode=C.MPRTCode,THPRTHX=D.PRTHX '); + sql.Add(',THPRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(',TQPSName=EE.PSName,TQOrderNo=CC.OrderNO,TQMPRTCode=CC.MPRTCode+CC.MPRTGY,TQPRTHX=DD.PRTHX '); + sql.Add(',TQPRTColor=isnull(DD.PRTColorNo,'''')+'' ''+isnull(DD.PRTColor,'''')+'' ''+isnull(DD.PRTColorEng,'''') '); + sql.Add(',AA.MDType'); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Main_MD AA on A.MDID=AA.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub BB on AA.PFID=BB.PFID'); + sql.Add(' left join JYOrder_Process EE on BB.PSID=EE.PSID'); + sql.Add(' left join JYOrder_Main CC on BB.Mainid=CC.Mainid'); + sql.Add(' left join JYOrder_Sub DD on BB.Subid=DD.SubId'); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; +procedure TfrmTJCKOutView.InitGridStr(fsj:String); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,THPSName=E.PSName,THOrderNo=C.OrderNO,THMPRTCode=C.MPRTCode+C.MPRTGY,THPRTHX=D.PRTHX '); + sql.Add(',THPRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(',TQPSName=EE.PSName,TQOrderNo=CC.OrderNO,TQMPRTCode=CC.MPRTCode+CC.MPRTGY,TQPRTHX=DD.PRTHX '); + sql.Add(',TQPRTColor=isnull(DD.PRTColorNo,'''')+'' ''+isnull(DD.PRTColor,'''')+'' ''+isnull(DD.PRTColorEng,'''') '); + sql.Add(',AA.MDType'); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Main_MD AA on A.MDID=AA.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub BB on AA.PFID=BB.PFID'); + sql.Add(' left join JYOrder_Process EE on BB.PSID=EE.PSID'); + sql.Add(' left join JYOrder_Main CC on BB.Mainid=CC.Mainid'); + sql.Add(' left join JYOrder_Sub DD on BB.Subid=DD.SubId'); + sql.Add(' where 1=1'); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; + +procedure TfrmTJCKOutView.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv5',Tv5,'ڲֿ¼'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; +end; + +procedure TfrmTJCKOutView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv5',Tv5,'ڲֿ¼'); + close; +end; + +procedure TfrmTJCKOutView.TQOrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(TQOrderNo.Text)='' then Exit; + InitGridStr(' and CC.OrderNo like '''+'%'+Trim(TQOrderNo.Text)+'%'+''''); + end; + +end; + +procedure TfrmTJCKOutView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; + +procedure TfrmTJCKOutView.TQOrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKOutView.THOrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(THOrderNo.Text)='' then Exit; + InitGridStr(' and C.OrderNo like '''+'%'+Trim(THOrderNo.Text)+'%'+''''); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm new file mode 100644 index 0000000..d60e5d6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm @@ -0,0 +1,1194 @@ +object frmTJCKRKOK: TfrmTJCKRKOK + Left = 14 + Top = 33 + Width = 1382 + Height = 709 + Caption = #24453#22788#29702#20179#24211#30830#35748 + 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 = 1366 + AutoSize = True + 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_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 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 = #30830#35748 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #30830#35748#25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 259 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 385 + Top = 9 + 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 Label19: TLabel + Left = 511 + Top = 9 + 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 Label21: TLabel + Left = 636 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object ConCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 3 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 4 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 83 + Width = 1366 + Height = 202 + Align = alTop + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 28 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 29 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Options.Editing = False + Options.Focusing = False + Width = 24 + Position.BandIndex = 0 + Position.ColIndex = 30 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_DDMD.FonePurple + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_DDMD.FonePurple + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.SHuangSeCu + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1366 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#30830#35748 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 285 + Width = 1366 + Height = 59 + Align = alTop + TabOrder = 4 + object Label10: TLabel + Left = 199 + Top = 10 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label11: TLabel + Left = 35 + Top = 35 + Width = 48 + Height = 12 + Caption = #25171#20837#31867#22411 + end + object Label12: TLabel + Left = 351 + Top = 35 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object Label4: TLabel + Left = 280 + Top = 11 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 35 + Top = 10 + Width = 48 + Height = 12 + Caption = #30830#35748#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 562 + Top = 11 + Width = 26 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 363 + Top = 11 + Width = 24 + Height = 12 + Caption = #21333#20301 + end + object Label22: TLabel + Left = 439 + Top = 10 + Width = 60 + Height = 12 + Caption = #20877#21033#29992#31995#25968 + end + object Label23: TLabel + Left = 439 + Top = 34 + Width = 60 + Height = 12 + Caption = #20877#21033#29992#20215#26684 + end + object Label24: TLabel + Left = 198 + Top = 34 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object RKPS: TEdit + Tag = 2 + Left = 224 + Top = 6 + Width = 54 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object ClotheType: TComboBox + Tag = 2 + Left = 85 + Top = 31 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697) + end + object RKYongTu: TBtnEditA + Tag = 2 + Left = 225 + Top = 31 + Width = 200 + Height = 20 + TabOrder = 2 + OnBtnClick = RKYongTuBtnClick + end + object RKQty: TEdit + Tag = 2 + Left = 305 + Top = 7 + Width = 56 + Height = 20 + Hint = '0' + TabOrder = 3 + end + object RKDate: TDateTimePicker + Tag = 2 + Left = 85 + Top = 6 + Width = 99 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 4 + end + object HZNote: TMemo + Tag = 2 + Left = 589 + Top = 6 + Width = 268 + Height = 45 + TabOrder = 5 + end + object RKPrice: TEdit + Tag = 2 + Left = 502 + Top = 31 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 6 + end + object RKQtyUnit: TComboBox + Tag = 2 + Left = 386 + Top = 7 + Width = 40 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + object LiYongXS: TEdit + Tag = 2 + Left = 502 + Top = 6 + Width = 47 + Height = 20 + TabOrder = 8 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 344 + Width = 1366 + Height = 179 + Align = alClient + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 45 + Top = 0 + Width = 1317 + Height = 175 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #25187#27454 + Width = 1105 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v2FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 153 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 144 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 142 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 147 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 112 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 407 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 175 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button1: TButton + Left = 4 + Top = 34 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 107 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 523 + Width = 1366 + Height = 147 + Align = alBottom + TabOrder = 6 + object cxGrid5: TcxGrid + Left = 0 + Top = 17 + Width = 1362 + Height = 126 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1362 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 432 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 832 + Top = 600 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 600 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 608 + Top = 224 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 416 + Top = 432 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 712 + Top = 592 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas new file mode 100644 index 0000000..f4d6484 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas @@ -0,0 +1,742 @@ +unit U_TJCKRKOK; //8 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKRKOK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ToolButton2: TToolButton; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox1: TScrollBox; + Label10: TLabel; + RKPS: TEdit; + Label11: TLabel; + ClotheType: TComboBox; + RKYongTu: TBtnEditA; + Label12: TLabel; + Label4: TLabel; + RKQty: TEdit; + Label13: TLabel; + RKDate: TDateTimePicker; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + Button2: TButton; + ScrollBox3: TScrollBox; + Label15: TLabel; + HZNote: TMemo; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + RKPrice: TEdit; + Label18: TLabel; + ConCode: TEdit; + Label19: TLabel; + ConName: TEdit; + Label20: TLabel; + RKQtyUnit: TComboBox; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton3: TToolButton; + Label22: TLabel; + LiYongXS: TEdit; + v6Column22: TcxGridDBBandedColumn; + v6Column23: TcxGridDBBandedColumn; + Label23: TLabel; + Label24: TLabel; + ToolButton1: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure RKYongTuBtnClick(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ConCodeChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + { Public declarations } + procedure InitGridKK(); + end; + +var + frmTJCKRKOK: TfrmTJCKRKOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKRKOK.FormDestroy(Sender: TObject); +begin + frmTJCKRKOK:=nil; +end; + +procedure TfrmTJCKRKOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')=''ȷ'' '); + end; + sql.Add(' and isnull(A.ClotheType,'''')=''Ʒ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOK.InitGridKK(); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty=False then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2Pon,fsj,0,True,''); + + end; + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK '); + if ClientDataSet6.IsEmpty=False then + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet6.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet6.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + finally + ADOQuery1.EnableControls; + end; + +end; +procedure TfrmTJCKRKOK.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + + ReadCxGrid('Tv5',Tv5,'ڲֿ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + + + + + RKDate.Date:=EndDate.Date; + RKDate.Checked:=False; + //cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKRKOK.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv6',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv2',Tv2,'ڲֿ'); + WriteCxGrid('Tv5',Tv5,'ڲֿ'); + close; +end; + +procedure TfrmTJCKRKOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + if ClientDataSet6.IsEmpty then + begin + SClearData(ScrollBox1,2); + end; + InitGridKK(); + if cxTabControl1.TabIndex=0 then + begin + RKPS.ReadOnly:=False; + RKQty.ReadOnly:=False; + end; +end; + +procedure TfrmTJCKRKOK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOK.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOK.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD where RKMDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('гݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִȷϳ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('CRDate').Value:=NUll; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('QtyFlag').Value:=Null; + FieldByName('RKMDID').Value:=''; + FieldByName('CRPerson').Value:=''; + FieldByName('Status').Value:=Null; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷϳ쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Status,'''')=''ȷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKRKOK.RKYongTuBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + RKYongTu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKRKOK.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + LiYongXS.ReadOnly:=False; + end else + begin + LiYongXS.ReadOnly:=True; + LiYongXS.Text:=''; + end; +end; + +procedure TfrmTJCKRKOK.Button1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet2 do + begin + Append; + Post; + end; + +end; + +procedure TfrmTJCKRKOK.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + if ClientDataSet2.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('Status').AsString)='Э' then + //if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + end; +end; + +procedure TfrmTJCKRKOK.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOK.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOK.ConCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOK.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ֿȷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOK.ToolButton1Click(Sender: TObject); +var + Freal:Double; + maxno:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(LiYongXS.Text)<>'' then + begin + if TryStrToFloat(Trim(LiYongXS.Text),Freal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + if Trim(RKPrice.Text)<>'' then + begin + if TryStrToFloat(Trim(RKPrice.Text),Freal)=False then + begin + Application.MessageBox('ü۸Ƿ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet2.IsEmpty then + begin + if Application.MessageBox('ۿΪ,ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox1,2); + FieldByName('Status').Value:='ȷ'; + Post; + end; + + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KK','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet2.fieldbyname('ZZFactoryNo').AsString); + RTSetSaveDataCDSBand(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet2.EnableControls; + if ClientDataSet2.IsEmpty=False then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ChuLiStatus=''пۿ'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ChuLiStatus=''޿ۿ'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + begin + ClientDataSet6.Delete; + SClearData(ScrollBox1,2); + end; + InitGridKK(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm new file mode 100644 index 0000000..1de42cc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm @@ -0,0 +1,1206 @@ +object frmTJCKRKOKQty: TfrmTJCKRKOKQty + Left = 4 + Top = 32 + Width = 1311 + Height = 709 + Caption = #35843#33410#20179#24211#20837#24211#30830#35748'('#25968#37327')' + 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 = 1295 + AutoSize = True + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + 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 = #20837#24211#30830#35748 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20837#24211#25764#38144 + ImageIndex = 7 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1295 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 259 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 385 + Top = 9 + 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 Label19: TLabel + Left = 511 + Top = 9 + 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 Label21: TLabel + Left = 636 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 745 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 799 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 1113 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object MPRTCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object Button11: TButton + Left = 852 + Top = 5 + Width = 55 + Height = 20 + Caption = #21327#21830#23436#32467 + TabOrder = 8 + OnClick = Button11Click + end + object Button12: TButton + Left = 915 + Top = 5 + Width = 57 + Height = 20 + Caption = #23436#32467#25764#38144 + TabOrder = 9 + OnClick = Button12Click + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + object Button13: TButton + Left = 1046 + Top = 5 + Width = 59 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 11 + OnClick = Button13Click + end + object Button14: TButton + Left = 980 + Top = 5 + Width = 59 + Height = 20 + Caption = #20837#24211#25764#38144 + TabOrder = 12 + OnClick = Button14Click + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 83 + Width = 1295 + Height = 301 + Align = alTop + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1295 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20837#24211 + #24050#20837#24211 + #21327#21830#20013 + #21327#21830#23436#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1295 + ClientRectTop = 23 + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 384 + Width = 1295 + Height = 61 + Align = alTop + TabOrder = 4 + object Label9: TLabel + Left = 25 + Top = 11 + Width = 26 + Height = 36 + Caption = #20837#24211#13#10#13#10#24773#20917 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 184 + Top = 11 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label11: TLabel + Left = 53 + Top = 35 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label12: TLabel + Left = 272 + Top = 11 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object Label4: TLabel + Left = 183 + Top = 35 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 53 + Top = 11 + Width = 24 + Height = 12 + Caption = #26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 485 + Top = 11 + Width = 47 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 272 + Top = 35 + Width = 24 + Height = 12 + Caption = #21333#20301 + end + object RKPS: TEdit + Tag = 2 + Left = 209 + Top = 7 + Width = 54 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object ClotheType: TComboBox + Tag = 2 + Left = 80 + Top = 31 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697) + end + object RKYongTu: TBtnEditA + Tag = 2 + Left = 299 + Top = 7 + Width = 162 + Height = 20 + TabOrder = 2 + OnBtnClick = RKYongTuBtnClick + end + object RKQty: TEdit + Tag = 2 + Left = 208 + Top = 31 + Width = 56 + Height = 20 + Hint = '0' + TabOrder = 3 + end + object RKDate: TDateTimePicker + Tag = 2 + Left = 80 + Top = 7 + Width = 99 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 4 + end + object Button7: TButton + Left = 485 + Top = 31 + Width = 45 + Height = 20 + Caption = #20445#23384 + TabOrder = 5 + OnClick = Button7Click + end + object HZNote: TMemo + Tag = 2 + Left = 534 + Top = 7 + Width = 182 + Height = 49 + TabOrder = 6 + end + object RKQtyUnit: TComboBox + Tag = 2 + Left = 299 + Top = 31 + Width = 48 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M' + 'P' + #26465) + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 445 + Width = 602 + Height = 225 + Align = alLeft + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 45 + Top = 0 + Width = 553 + Height = 221 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #36131#20219#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v2FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 221 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button1: TButton + Left = 4 + Top = 21 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 70 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 119 + Width = 35 + Height = 20 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + end + object ScrollBox4: TScrollBox + Left = 602 + Top = 445 + Width = 693 + Height = 225 + Align = alClient + TabOrder = 6 + object cxGrid3: TcxGrid + Left = 45 + Top = 0 + Width = 644 + Height = 221 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #36131#20219#30830#23450 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v3FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #36130#21153#24050#26680#38144 + DataBinding.FieldName = 'CWHX' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv3 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 221 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button4: TButton + Left = 4 + Top = 21 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 70 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 119 + Width = 35 + Height = 20 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button6Click + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 904 + Top = 448 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 928 + Top = 448 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 720 + Top = 176 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 520 + Top = 400 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 800 + Top = 408 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas new file mode 100644 index 0000000..23da9ab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas @@ -0,0 +1,1070 @@ +unit U_TJCKRKOKQty; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKRKOKQty = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox1: TScrollBox; + Label9: TLabel; + Label10: TLabel; + RKPS: TEdit; + Label11: TLabel; + ClotheType: TComboBox; + RKYongTu: TBtnEditA; + Label12: TLabel; + Label4: TLabel; + RKQty: TEdit; + Label13: TLabel; + RKDate: TDateTimePicker; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button7: TButton; + Button8: TButton; + Button9: TButton; + Button10: TButton; + Label15: TLabel; + HZNote: TMemo; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ScrollBox4: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + Label20: TLabel; + RKQtyUnit: TComboBox; + Panel4: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v3Column1: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Button11: TButton; + Button12: TButton; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + ToolButton3: TToolButton; + Button13: TButton; + Button14: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure RKYongTuBtnClick(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v3FtyPropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button14Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKRKOKQty: TfrmTJCKRKOKQty; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKRKOKQty.FormDestroy(Sender: TObject); +begin + frmTJCKRKOKQty:=nil; +end; + +procedure TfrmTJCKRKOKQty.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOKQty.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOKQty.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and RKQty=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and RKQty>0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + // ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOKQty.InitGridKK(); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty=False then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v3fty,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2Pon,fsj,0,True,''); + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v3Pon,fsj,0,True,''); + end; + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + + finally + ADOQuery1.EnableControls; + end; + +end; +procedure TfrmTJCKRKOKQty.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv61',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv21',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv31',Tv3,'ڲֿ'); + + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + RKDate.Date:=EndDate.Date; + RKDate.Checked:=False; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKRKOKQty.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKRKOKQty.ToolButton1Click(Sender: TObject); +begin + {if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex=2 then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDSBand(ADOQueryCmd,tv6,ClientDataSet6,'JYOrder_Main_MD',3); + if ClientDataSet6.FieldByName('CostFlag').AsBoolean=True then + begin + FieldByName('CostFlag').Value:=1 + end else + begin + FieldByName('CostFlag').Value:=0; + end; + FieldByName('CRDate').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRPerson').Value:=Trim(DName); + FieldByName('QtyFlag').Value:=1; + FieldByName('RKMDID').Value:=ClientDataSet6.fieldbyname('MDID').Value; + FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set KCPS=(select Sum(PS*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(',KCQty=(select Sum(Qty*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; } +end; + +procedure TfrmTJCKRKOKQty.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + if ClientDataSet6.IsEmpty then + begin + SClearData(ScrollBox1,2); + end; + InitGridKK(); + if cxTabControl1.TabIndex=0 then + begin + RKPS.ReadOnly:=False; + RKQty.ReadOnly:=False; + end; +end; + +procedure TfrmTJCKRKOKQty.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD where RKMDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('гݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ⳷','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('CostFlag').Value:=0; + FieldByName('CRDate').Value:=NUll; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('QtyFlag').Value:=Null; + FieldByName('RKMDID').Value:=''; + FieldByName('CRPerson').Value:=''; + FieldByName('KCPS').Value:=0; + FieldByName('KCQty').Value:=0; + //FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + //FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOKQty.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add('JSKCPS=A.RKPS-A.CKPS,'); + sql.Add('JSKCQty=A.RKQty-A.CKQty'); + //sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + //sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + //sql.Add(' and isnull(CRFlag,'''')='''' '); + sql.Add(' and A.RKQty=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + // sql.Add(' and isnull(CRFlag,'''')='''' '); + sql.Add(' and A.RKQty>0 '); + end else + {if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(CRFlag,'''')<>'''' '); + end} + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKRKOKQty.Button10Click(Sender: TObject); +begin + WriteCxBandedGrid('Tv61',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv21',Tv2,'ڲֿ'); + WriteCxBandedGrid('Tv31',Tv3,'ڲֿ'); + close; + +end; + +procedure TfrmTJCKRKOKQty.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKRKOKQty.RKYongTuBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + RKYongTu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button7Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox1,2); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + begin + if Trim(RKQty.Text)<>'' then + begin + if StrToFloat(RKQty.Text)>0 then + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + if Trim(RKQty.Text)<>'' then + begin + if StrToFloat(RKQty.Text)=0 then + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + end else + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + + end; + + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOKQty.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end; +end; + +procedure TfrmTJCKRKOKQty.Button1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet2 do + begin + Append; + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.Button4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty=False then + begin + if ClientDataSet3.Locate('CWHX',True,[]) then + begin + Application.MessageBox('Ѻ!','ʾ',0); + Exit; + end; + end; + with ClientDataSet3 do + begin + Append; + Post; + end; +end; + +procedure TfrmTJCKRKOKQty.Button3Click(Sender: TObject); +var + maxno:string; +begin + Panel2.SetFocus; + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KK','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet2.fieldbyname('ZZFactoryNo').AsString); + FieldByName('KKType').Value:='Э'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet2.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + end; +end; + +procedure TfrmTJCKRKOKQty.Button6Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet3.IsEmpty then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet3.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KZ','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet3.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('KKType').Value:=''; + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('ZZFactoryNo').AsString); + RTSetSaveDataCDSBand(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet3.EnableControls; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + end; +end; + +procedure TfrmTJCKRKOKQty.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + if ClientDataSet2.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('Status').AsString)='Э' then + //if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + end; +end; + +procedure TfrmTJCKRKOKQty.Button5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.IsEmpty=False then + begin + if ClientDataSet3.Locate('CWHX',True,[]) 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 JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet3.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + {if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if ClientDataSet2.IsEmpty then + sql.Add('Update JYOrder_Main_MD Set Status='''' ') + else + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end;} +end; + +procedure TfrmTJCKRKOKQty.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKQty.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKQty.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKQty.Button11Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if cxTabControl1.TabIndex<3 then + begin + ClientDataSet6.Delete; + end; +end; + +procedure TfrmTJCKRKOKQty.Button12Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>3 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if ClientDataSet2.IsEmpty=False then + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' ') + else + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if cxTabControl1.TabIndex=3 then + begin + ClientDataSet6.Delete; + end; +end; + +procedure TfrmTJCKRKOKQty.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKQty.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if ClientDataSet3.FieldByName('CWHX').AsBoolean=True then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmTJCKRKOKQty.v3FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v3Fty.Properties as TcxComboBoxProperties).Items.Objects[(v3Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button14Click(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ִе벻ִ⳷!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ⳷','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set RKPS=0,RKQty=0,RKYongTu=Null,RKQtyUnit=Null,RKPrice=0,'); + sql.Add('RKDate=Null,ORDSSMoney=0,ORDSSDate=null,DSDate=null,DSMoney=0,HZNote=null'); + sql.Add('where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet6.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm new file mode 100644 index 0000000..ec77ed2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm @@ -0,0 +1,546 @@ +object frmTJCKRKOKView: TfrmTJCKRKOKView + Left = -180 + Top = 35 + Width = 1382 + Height = 638 + Caption = #24453#22788#29702#20179#24211#26597#35810 + 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 = 1366 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23548#20986 + ImageIndex = 6 + 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 = 32 + Width = 1366 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 27 + Top = 9 + 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 Label18: TLabel + Left = 157 + Top = 9 + Width = 59 + Height = 12 + Caption = #21305#21495'/'#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 315 + Top = 9 + 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 Label2: TLabel + Left = 449 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 560 + Top = 9 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 667 + Top = 9 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 787 + Top = 9 + Width = 52 + Height = 12 + Caption = #23384#25918#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 68 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BatchNo: TEdit + Tag = 2 + Left = 217 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 1 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 369 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 2 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object PRTColor: TEdit + Tag = 2 + Left = 479 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 3 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object PRTHX: TEdit + Tag = 2 + Left = 590 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 4 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 709 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 5 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object ToFactoryName: TEdit + Tag = 2 + Left = 840 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 6 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1366 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 85 + Width = 1366 + Height = 514 + Align = alClient + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v3Column16: TcxGridDBColumn + Caption = #21305#21495'/'#32534#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column17: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object v6Column1: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 70 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 72 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object LiYongXS: TcxGridDBColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v3Column18: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column20: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v3Column14: TcxGridDBColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 256 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 528 + Top = 256 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 592 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas new file mode 100644 index 0000000..f3c9a56 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas @@ -0,0 +1,260 @@ +unit U_TJCKRKOKView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKRKOKView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label18: TLabel; + BatchNo: TEdit; + Label19: TLabel; + ConName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Label2: TLabel; + PRTColor: TEdit; + Label1: TLabel; + PRTHX: TEdit; + cxTabControl1: TcxTabControl; + Label4: TLabel; + FactoryName: TEdit; + Label5: TLabel; + ToFactoryName: TEdit; + ToolButton1: TToolButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + LiYongXS: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column2: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button6Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure BatchNoChange(Sender: TObject); + procedure LiYongXSPropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + canshu1:string; + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKRKOKView: TfrmTJCKRKOKView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKRKOKView.FormDestroy(Sender: TObject); +begin + frmTJCKRKOKView:=nil; +end; + +procedure TfrmTJCKRKOKView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOKView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOKView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_DCLKC :ClotheType'); + Parameters.ParamByName('ClotheType').Value:=Trim(cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOKView.InitGridKK(); + +begin + + +end; +procedure TfrmTJCKRKOKView.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv6111',Tv6,'ڲֿ'); + if Trim(canshu1)<>'Ȩ' then + begin + LiYongXS.Options.Focusing:=False; + end else + begin + LiYongXS.Options.Focusing:=True; + end; +end; + +procedure TfrmTJCKRKOKView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv6111',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmTJCKRKOKView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + { if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JM.MPRTMF,JM.MPRTKZ, '); + sql.Add(' JS.PRTHX,PRTColor=JS.PRTColorNo+'' ''+JS.PRTColor+'' ''+JS.PRTColorEng,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + sql.Add(' and (A.RKQty-A.CKQty)>0'); + + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + } +end; + +procedure TfrmTJCKRKOKView.Button6Click(Sender: TObject); +var + maxno:string; +begin + +end; + +procedure TfrmTJCKRKOKView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKView.BatchNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKView.LiYongXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)='' then + sql.Add('Update JYOrder_Main_MD Set LiYongXS=Null') + else + sql.Add('Update JYOrder_Main_MD Set LiYongXS='+Trim(mvalue)); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + if Trim(mvalue)<>'' then + FieldByName('LiYongXS').Value:=mvalue + else + FieldByName('LiYongXS').Value:=Null; + Post; + end; +end; + +procedure TfrmTJCKRKOKView.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmTJCKRKOKView.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKRKOKView.ToolButton1Click(Sender: TObject); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty then Exit; + fsj:=cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; + TcxGridToExcel('ֿ('+fsj+')',cxGrid6); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm new file mode 100644 index 0000000..4129977 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm @@ -0,0 +1,820 @@ +object frmTJCKTHXSOK: TfrmTJCKTHXSOK + Left = 176 + Top = 47 + Width = 1024 + Height = 674 + Caption = #35843#33410#20179#24211#20986#24211#31649#29702 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1008 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 259 + Top = 9 + 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 Label1: TLabel + Left = 23 + Top = 9 + 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 Label18: TLabel + Left = 385 + Top = 9 + 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 Label19: TLabel + Left = 511 + Top = 9 + 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 Label21: TLabel + Left = 636 + Top = 9 + 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 OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 745 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 799 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 921 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object MPRTCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 6 + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 7 + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + object Button13: TButton + Left = 854 + Top = 5 + Width = 59 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 9 + OnClick = Button13Click + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 51 + Width = 1008 + Height = 270 + Align = alTop + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 26 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 27 + Position.BandIndex = 0 + Position.ColIndex = 28 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Options.Editing = False + Options.Focusing = False + Width = 20 + Position.BandIndex = 0 + Position.ColIndex = 29 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1008 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#20986#24211 + #24050#20986#24211 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1008 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 321 + Width = 1008 + Height = 314 + Align = alClient + TabOrder = 3 + object cxGrid5: TcxGrid + Left = 73 + Top = 0 + Width = 931 + Height = 310 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v5Column7: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CKType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #36864#36135 + #27425#21697#38144#21806) + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'CKFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 91 + end + object v5Column4: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 60 + end + object v5Column9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v5Column6: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'CKPrice' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column3: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'CKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 74 + end + object v5Column5: TcxGridDBColumn + Tag = 2 + Caption = #36864#36135#35828#26126 + DataBinding.FieldName = 'CKOutNote' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#21069#36864#36135 + #21152#24037#21518#36864#36135) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 73 + Height = 310 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button11: TButton + Left = 10 + Top = 32 + Width = 47 + Height = 28 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button11Click + end + object Button2: TButton + Left = 10 + Top = 80 + Width = 47 + Height = 28 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button1: TButton + Left = 10 + Top = 136 + Width = 47 + Height = 28 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button1Click + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 152 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 152 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 656 + Top = 424 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 424 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 616 + Top = 152 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 616 + Top = 424 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas new file mode 100644 index 0000000..f335fef --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas @@ -0,0 +1,517 @@ +unit U_TJCKTHXSOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKTHXSOK = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + v6Column3: TcxGridDBBandedColumn; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + Button13: TButton; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v5Column3: TcxGridDBColumn; + v6Column22: TcxGridDBBandedColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v6Column23: TcxGridDBBandedColumn; + Panel2: TPanel; + Button11: TButton; + Button2: TButton; + Button1: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button2Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure v3FtyPropertiesEditValueChanged(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure cxGridDBColumn9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmTJCKTHXSOK: TfrmTJCKTHXSOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKTHXSOK.FormDestroy(Sender: TObject); +begin + frmTJCKTHXSOK:=nil; +end; + +procedure TfrmTJCKTHXSOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKTHXSOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKTHXSOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + SQL.Add(' and isnull(A.RKYongTu,'''') in(''˻'',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and (A.RKQty-A.CKQty)>0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and (A.RKQty-A.CKQty)=0 '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv6',Tv6,'ڲֿ˻'); + ReadCxGrid('Tv5',Tv5,'ڲֿ˻'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKTHXSOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKTHXSOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKTHXSOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + SQL.Add(' and isnull(A.RKYongTu,'''') in(''˻'',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and (A.RKQty-A.CKQty)=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and (A.RKQty-A.CKQty)>0 '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKTHXSOK.Button10Click(Sender: TObject); +begin + WriteCxBandedGrid('Tv6',Tv6,'ڲֿ˻'); + WriteCxGrid('Tv5',Tv5,'ڲֿ˻'); + close; + +end; + +procedure TfrmTJCKTHXSOK.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKTHXSOK.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +procedure TfrmTJCKTHXSOK.Button2Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet5.fieldbyname('CKID').AsString)+''''); + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID),'); + sql.Add(' CKQty=(select sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet5.Delete; +end; + +procedure TfrmTJCKTHXSOK.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + {mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmTJCKTHXSOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.v3FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + {mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v3Fty.Properties as TcxComboBoxProperties).Items.Objects[(v3Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmTJCKTHXSOK.Button13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ˻'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKTHXSOK.Button1Click(Sender: TObject); +var + maxno:string; +begin + Panel1.SetFocus; + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet5.Locate('CKType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('CKOutNote',null,[])=True then + begin + Application.MessageBox('˻˵Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SJCKPS',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SJCKQty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet5.DisableControls; + with ClientDataSet5 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet5.fieldbyname('CKType').AsString)='˻' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' where A.FactoryNo='''+Trim(ClientDataSet5.fieldbyname('CKFactoryNo').AsString)+''''); + sql.Add(' and B.PSXH=1'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻Ӧ¼!','ʾ',0); + Exit; + end; + end; + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet5.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('CKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('CKFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('CKFactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv5,ClientDataSet5,'JYOrder_Main_MD_Out',2); + Post; + end; + Edit; + FieldByName('CKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet5.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID),'); + sql.Add(' CKQty=(select sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKTHXSOK.Button11Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet5 do + begin + Append; + FieldByName('CKDate').Value:=SGetServerDate(ADOQuery1); + FieldByName('CKQtyUnit').Value:=Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString); + FieldByName('SJCKPS').Value:=ClientDataSet6.fieldbyname('JSKCPS').Value; + FieldByName('SJCKQty').Value:=ClientDataSet6.fieldbyname('JSKCQty').Value; + FieldByName('CKPrice').Value:=0; + FieldByName('CKMoney').Value:=0; + Post; + end; +end; + +procedure TfrmTJCKTHXSOK.cxGridDBColumn9PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('CKFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('CKFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm new file mode 100644 index 0000000..d058db8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas new file mode 100644 index 0000000..68db1e4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm new file mode 100644 index 0000000..b1146e5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm @@ -0,0 +1,341 @@ +object frmWJGCKInPut: TfrmWJGCKInPut + Left = 55 + Top = 111 + Width = 1283 + Height = 502 + Align = alClient + Caption = #22806#21152#24037#20837#24211 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1267 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1267 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas new file mode 100644 index 0000000..ce88b40 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas @@ -0,0 +1,659 @@ +unit U_WJGCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmWJGCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmWJGCKInPut: TfrmWJGCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmWJGCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; + end; +end; +function TfrmWJGCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'WR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:='ӹ'; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmWJGCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹǼ',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӹǼ',Tv1,'ӹֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + // v1Column15.Options.Focusing:=False; + v1Column13.Options.Focusing:=False; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + v1Column11.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + //v1Column15.Options.Focusing:=True; + v1Column13.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + v1Column11.Options.Focusing:=True; + end; +end; + +procedure TfrmWJGCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmWJGCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('OrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + begin + Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmWJGCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmWJGCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm new file mode 100644 index 0000000..ee691f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm @@ -0,0 +1,547 @@ +object frmWJGCKKCList: TfrmWJGCKKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #22806#21152#24037#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 = 1165 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas new file mode 100644 index 0000000..90279aa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas @@ -0,0 +1,226 @@ +unit U_WJGCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton2: TToolButton; + 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKKCList: TfrmWJGCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmWJGCKKCList.FormDestroy(Sender: TObject); +begin + frmWJGCKKCList:=nil; +end; + +procedure TfrmWJGCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ӹ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWJGCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKKCList.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 TfrmWJGCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmWJGCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmWJGCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm new file mode 100644 index 0000000..abb4eb1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm @@ -0,0 +1,564 @@ +object frmWJGCKKCSelList: TfrmWJGCKKCSelList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Align = alClient + Caption = #22806#21152#24037#24211#23384#36873#25321#21015#34920 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + 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_PBMDDJ.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 = #30830#23450 + ImageIndex = 31 + Visible = False + 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 = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas new file mode 100644 index 0000000..276fc63 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas @@ -0,0 +1,225 @@ +unit U_WJGCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: 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 MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKKCSelList: TfrmWJGCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmWJGCKKCSelList.FormDestroy(Sender: TObject); +begin + frmWJGCKKCSelList:=nil; +end; + +procedure TfrmWJGCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ӹ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWJGCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹѡб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹѡб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKKCSelList.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 TfrmWJGCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmWJGCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm new file mode 100644 index 0000000..2da8fb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm @@ -0,0 +1,652 @@ +object frmWJGCKOutList: TfrmWJGCKOutList + Left = 87 + Top = 73 + Width = 1209 + Height = 583 + Caption = #22806#21152#24037#20986#24211#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 = 1193 + 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_PBMDDJ.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 = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1193 + Height = 72 + 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 Label3: TLabel + Left = 321 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 437 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 321 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 437 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 565 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 565 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 725 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 725 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#21152#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 348 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = SPSpecChange + end + object FactoryName: TEdit + Tag = 2 + Left = 475 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPSpecChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 348 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #22238#20462#20986#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 475 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPSpecChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 625 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPSpecChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 625 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = SPSpecChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 785 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPSpecChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 785 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPSpecChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1193 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKorderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 984 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1048 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + 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 = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas new file mode 100644 index 0000000..c5797ef --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas @@ -0,0 +1,385 @@ +unit U_WJGCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKOutList = 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_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKOutList: TfrmWJGCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_WJGCKOutPut; + +{$R *.dfm} + +procedure TfrmWJGCKOutList.FormDestroy(Sender: TObject); +begin + frmWJGCKOutList:=nil; +end; + +procedure TfrmWJGCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmWJGCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.add(' where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRFlag='''' '); + SQL.Add(' and isnull(CKName,'''')=''ӹ'' '); + + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmWJGCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹбPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹбPMD',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmWJGCKOutList.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 TfrmWJGCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKOutList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmWJGCKOutList.SPIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmWJGCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmWJGCKOutList.TBAddClick(Sender: TObject); +begin + try + frmWJGCKOutPut:=TfrmWJGCKOutPut.Create(Application); + with frmWJGCKOutPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKOutPut.Free; + end; +end; + +procedure TfrmWJGCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼޸!','ʾ',0); + Exit; + end; + try + frmWJGCKOutPut:=TfrmWJGCKOutPut.Create(Application); + with frmWJGCKOutPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKOutPut.Free; + end; + +end; + +procedure TfrmWJGCKOutList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm new file mode 100644 index 0000000..20d84f9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm @@ -0,0 +1,352 @@ +object frmWJGCKOutPut: TfrmWJGCKOutPut + Left = 78 + Top = 122 + Width = 1215 + Height = 502 + Align = alClient + Caption = #22806#21152#24037#20986#24211 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + 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_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #22238#20462#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKOrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 336 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas new file mode 100644 index 0000000..a98f2a1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas @@ -0,0 +1,583 @@ +unit U_WJGCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmWJGCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column5: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmWJGCKOutPut: TfrmWJGCKOutPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_WJGCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmWJGCKOutPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmWJGCKKCSelList:=TfrmWJGCKKCSelList.Create(Application); + with frmWJGCKKCSelList do + begin + ToolButton1.Visible:=True; + if ShowModal=1 then + begin + frmWJGCKKCSelList.CDS_Main.DisableControls; + with frmWJGCKKCSelList.CDS_Main do + begin + First; + while frmWJGCKKCSelList.CDS_Main.Locate('SSel',True,[]) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('ORDMainIdRK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('CKOrderNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('SOrddefstr1').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SOrddefstr1').AsString; + FieldByName('PRTColor').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTColor').AsString; + FieldByName('PRTHX').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTHX').AsString; + FieldByName('FactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPCF').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('FromFactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('FromFactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('ToFactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmWJGCKKCSelList.CDS_Main.Delete; + end; + end; + frmWJGCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmWJGCKKCSelList.Free; + end; +end; +function TfrmWJGCKOutPut.SaveCKData():Boolean; +var + FCRID,Maxno,FSPID,MaxPYNo,FPYID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'WC','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + FieldByName('PYID').Value:=Trim(Maxno); + end; + if Trim(FSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID='''+Trim(Maxno)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxPYNo,'YR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹƽʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxPYNo:=Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value:=Trim(MaxPYNo); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + FieldByName('CRType').Value:='ƽ'; + FieldByName('PYID').Value:=Trim(Maxno); + if Trim(FPYID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(MaxPYNo)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmWJGCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹǼPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹǼPMD',Tv1,'ӹֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmWJGCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); } + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmWJGCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CKOrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + if (Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString)=Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString)) + and (Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString)=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString)) + then + begin + CDS_Sub.EnableControls; + Application.MessageBox('ͬһţͬһƽ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmWJGCKOutPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)<>'' then + begin + v1CRType.Options.Editing:=False; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm new file mode 100644 index 0000000..6e60fb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm @@ -0,0 +1,610 @@ +object frmWJGMDList: TfrmWJGMDList + Left = 68 + Top = 109 + Width = 1238 + Height = 511 + Caption = #22806#21152#24037#20837#24211#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 = 1222 + 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_PBMDDJ.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 = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1222 + Height = 72 + 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 Label3: TLabel + Left = 351 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 492 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 351 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 492 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 624 + Top = 36 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 624 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + 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 = 1 + end + object SPName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = SPNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 529 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = SPNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPNameChange + end + object SPCF: TEdit + Tag = 2 + Left = 529 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = SPNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 675 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = SPNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 675 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = SPNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1222 + Height = 367 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 952 + Top = 48 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 48 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 616 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 584 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + 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 = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas new file mode 100644 index 0000000..0f6fe12 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas @@ -0,0 +1,394 @@ +unit U_WJGMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGMDList = 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_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure SPNameChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGMDList: TfrmWJGMDList; + +implementation +uses + U_DataLink,U_RTFun,U_WJGCKInPut; + +{$R *.dfm} + +procedure TfrmWJGMDList.FormDestroy(Sender: TObject); +begin + frmWJGMDList:=nil; +end; + +procedure TfrmWJGMDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGMDList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmWJGMDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ӹ'''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGMDList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmWJGMDList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGMDList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGMDList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmWJGMDList.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 TfrmWJGMDList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGMDList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGMDList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmWJGMDList.TBAddClick(Sender: TObject); +begin + try + frmWJGCKInPut:=TfrmWJGCKInPut.Create(Application); + with frmWJGCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKInPut.Free; + end; +end; + +procedure TfrmWJGMDList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + try + frmWJGCKInPut:=TfrmWJGCKInPut.Create(Application); + with frmWJGCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKInPut.Free; + end; +end; + +procedure TfrmWJGMDList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmWJGMDList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmWJGMDList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGMDList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGMDList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm new file mode 100644 index 0000000..37a26e2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm @@ -0,0 +1,417 @@ +object frmWXFPInPut: TfrmWXFPInPut + Left = 137 + Top = 79 + Width = 1030 + Height = 573 + Align = alClient + Caption = #22806#38144#21457#31080#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 = 1014 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 126 + Width = 1014 + Height = 171 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column4: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'SGHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'SXHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1014 + Height = 97 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457' '#31080' '#21495 + end + object Label2: TLabel + Left = 262 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457#31080#26085#26399 + end + object Label3: TLabel + Left = 496 + Top = 22 + Width = 48 + Height = 12 + Caption = #25104#20132#26041#24335 + end + object Label4: TLabel + Left = 31 + Top = 47 + Width = 48 + Height = 12 + Caption = #35013#33337#21475#23736 + end + object Label5: TLabel + Left = 262 + Top = 47 + Width = 48 + Height = 12 + Caption = #30446' '#30340' '#22320 + end + object Label6: TLabel + Left = 496 + Top = 47 + Width = 48 + Height = 12 + Caption = #38134#34892#21517#31216 + end + object Label7: TLabel + Left = 31 + Top = 72 + Width = 48 + Height = 12 + Caption = #36141#36135#21333#20301 + end + object Label8: TLabel + Left = 262 + Top = 72 + Width = 48 + Height = 12 + Caption = #36827#36135#21333#20301 + end + object Label9: TLabel + Left = 496 + Top = 72 + Width = 48 + Height = 12 + Caption = #20449#29992#35777#21495 + end + object FPNO: TEdit + Left = 81 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 0 + end + object FPDate: TDateTimePicker + Left = 312 + Top = 18 + Width = 150 + Height = 20 + Date = 41970.419724305550000000 + Time = 41970.419724305550000000 + TabOrder = 1 + end + object ChengJiaoType: TBtnEditA + Left = 552 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 2 + OnBtnClick = ChengJiaoTypeBtnClick + end + object FromPlace: TBtnEditA + Left = 81 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 3 + OnBtnClick = FromPlaceBtnClick + end + object ToPlace: TBtnEditA + Left = 312 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 4 + OnBtnClick = ToPlaceBtnClick + end + object BankName: TBtnEditA + Left = 552 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 5 + OnBtnClick = BankNameBtnClick + end + object GHDanWei: TEdit + Left = 81 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object XHDanWei: TEdit + Left = 312 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object XYZNO: TEdit + Left = 552 + Top = 68 + Width = 150 + Height = 20 + TabOrder = 8 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 407 + Top = 400 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 402 + Top = 366 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 435 + Top = 330 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas new file mode 100644 index 0000000..55bacb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas @@ -0,0 +1,537 @@ +unit U_WXFPInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmWXFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + FPNO: TEdit; + Label2: TLabel; + FPDate: TDateTimePicker; + ChengJiaoType: TBtnEditA; + Label3: TLabel; + FromPlace: TBtnEditA; + Label4: TLabel; + ToPlace: TBtnEditA; + Label5: TLabel; + BankName: TBtnEditA; + Label6: TLabel; + Label7: TLabel; + GHDanWei: TEdit; + Label8: TLabel; + XHDanWei: TEdit; + Label9: TLabel; + XYZNO: TEdit; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure FromPlaceBtnClick(Sender: TObject); + procedure ToPlaceBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmWXFPInPut: TfrmWXFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmWXFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.* '); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' inner join FP_XiaoShou_Sub B on A.FXID=B.FXID'); + sql.Add(' where A.FXID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,Panel1,0); + +end; + +procedure TfrmWXFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWXFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʊ¼',Tv1,'Ʊ'); + FPDate.DateTime:=SGetServerDate(ADOTemp); + InitData(); +end; +procedure TfrmWXFPInPut.GetMaxConNO(); +begin + +end; +function TfrmWXFPInPut.SaveData():Boolean; +var + maxno,maxsubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'FX','FP_XiaoShou',3,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 FP_XiaoShou where FXID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'FP_XiaoShou',Panel1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_XiaoShou where FPNo='''+Trim(FPNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ʊظ!','ʾ',0); + Exit; + end; + + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubNo,'FS','FP_XiaoShou_Sub',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubNo:=Trim(Order_Sub.fieldbyname('FSID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou_Sub where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + FieldByName('FSID').Value:=Trim(maxsubNo); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_XiaoShou_Sub',0) ; + Post; + end; + Edit; + FieldByName('FSID').Value:=Trim(maxsubNo); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWXFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(FPNO.Text)='' then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Trim(GHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Trim(XHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmWXFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate,FGHDanWei,FXHDanWei:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + if frmBGHZSelList.CDS_HZ.FieldByName('WXFPMoney').Value=0 then + begin + FGHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('KHName').AsString); + FXHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('FPDanWei').AsString); + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('FPDanWei').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; + if Trim(GHDanWei.Text)='' then + GHDanWei.Text:=Trim(FGHDanWei); + if Trim(XHDanWei.Text)='' then + XHDanWei.Text:=Trim(FXHDanWei); +end; + +procedure TfrmWXFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_XiaoShou_Sub where FSId='''+Trim(Order_Sub.fieldbyname('FSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmWXFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmWXFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.FromPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + FromPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.ToPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + ToPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.BankNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WXBankName'; + flagname:=''; + if ShowModal=1 then + begin + BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm new file mode 100644 index 0000000..12f1871 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm @@ -0,0 +1,887 @@ +object frmWXFPInPutWGL: TfrmWXFPInPutWGL + Left = 40 + Top = 0 + Width = 1250 + Height = 680 + Align = alClient + Caption = #22806#38144#21457#31080#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 = 1217 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 126 + Width = 1217 + Height = 123 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + 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 + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column4: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'SGHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'SXHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1217 + Height = 97 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457' '#31080' '#21495 + end + object Label2: TLabel + Left = 262 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457#31080#26085#26399 + end + object Label3: TLabel + Left = 496 + Top = 22 + Width = 48 + Height = 12 + Caption = #25104#20132#26041#24335 + end + object Label4: TLabel + Left = 31 + Top = 47 + Width = 48 + Height = 12 + Caption = #35013#33337#21475#23736 + end + object Label5: TLabel + Left = 262 + Top = 47 + Width = 48 + Height = 12 + Caption = #30446' '#30340' '#22320 + end + object Label6: TLabel + Left = 496 + Top = 47 + Width = 48 + Height = 12 + Caption = #38134#34892#21517#31216 + end + object Label7: TLabel + Left = 31 + Top = 72 + Width = 48 + Height = 12 + Caption = #36141#36135#21333#20301 + end + object Label8: TLabel + Left = 262 + Top = 72 + Width = 48 + Height = 12 + Caption = #36827#36135#21333#20301 + end + object Label9: TLabel + Left = 496 + Top = 72 + Width = 48 + Height = 12 + Caption = #20449#29992#35777#21495 + end + object FPNO: TEdit + Left = 81 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 0 + end + object FPDate: TDateTimePicker + Left = 312 + Top = 18 + Width = 150 + Height = 20 + Date = 41970.419724305550000000 + Time = 41970.419724305550000000 + TabOrder = 1 + end + object ChengJiaoType: TBtnEditA + Left = 552 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 2 + OnBtnClick = ChengJiaoTypeBtnClick + end + object FromPlace: TBtnEditA + Left = 81 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 3 + OnBtnClick = FromPlaceBtnClick + end + object ToPlace: TBtnEditA + Left = 312 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 4 + OnBtnClick = ToPlaceBtnClick + end + object BankName: TBtnEditA + Left = 552 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 5 + OnBtnClick = BankNameBtnClick + end + object GHDanWei: TEdit + Left = 81 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object XHDanWei: TEdit + Left = 312 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object XYZNO: TEdit + Left = 552 + Top = 68 + Width = 150 + Height = 20 + TabOrder = 8 + end + end + object Panel2: TPanel + Left = 0 + Top = 257 + Width = 1217 + Height = 417 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 1213 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label10: TLabel + Left = 23 + Top = 10 + 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 OrderNo: TEdit + Tag = 2 + Left = 64 + Top = 6 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object Button1: TButton + Left = 276 + Top = 4 + Width = 75 + Height = 25 + Caption = #26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 33 + Width = 1213 + Height = 127 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + OnCellDblClick = Tv6CellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column7 + end + item + Kind = skSum + Column = v6Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column6: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v6Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v6Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v6Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v6Column13: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v6Column12: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 160 + Width = 1213 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 2 + Top = 168 + Width = 1213 + Height = 247 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + 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 = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn10 + 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 = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 249 + Width = 1217 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel1 + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 511 + Top = 216 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 542 + Top = 220 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 461 + Top = 525 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 402 + Top = 366 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 515 + Top = 522 + end + object DataSource3: TDataSource + DataSet = CDS_HZ + Left = 600 + Top = 342 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 342 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 664 + Top = 342 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas new file mode 100644 index 0000000..8c0bc76 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas @@ -0,0 +1,805 @@ +unit U_WXFPInPutWGL; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmWXFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet2: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + FPNO: TEdit; + Label2: TLabel; + FPDate: TDateTimePicker; + ChengJiaoType: TBtnEditA; + Label3: TLabel; + FromPlace: TBtnEditA; + Label4: TLabel; + ToPlace: TBtnEditA; + Label5: TLabel; + BankName: TBtnEditA; + Label6: TLabel; + Label7: TLabel; + GHDanWei: TEdit; + Label8: TLabel; + XHDanWei: TEdit; + Label9: TLabel; + XYZNO: TEdit; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Panel2: TPanel; + Panel3: TPanel; + Label10: TLabel; + OrderNo: TEdit; + Button1: TButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column5: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + v6Column6: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v6Column4: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure FromPlaceBtnClick(Sender: TObject); + procedure ToPlaceBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmWXFPInPutWGL: TfrmWXFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmWXFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.* '); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' inner join FP_XiaoShou_Sub B on A.FXID=B.FXID'); + sql.Add(' where A.FXID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,Panel1,0); + +end; + +procedure TfrmWXFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWXFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʊ¼',Tv1,'Ʊ'); + FPDate.DateTime:=SGetServerDate(ADOTemp); + InitData(); +end; +procedure TfrmWXFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmWXFPInPutWGL.SaveData():Boolean; +var + maxno,maxsubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'FX','FP_XiaoShou',3,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 FP_XiaoShou where FXID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'FP_XiaoShou',Panel1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_XiaoShou where FPNo='''+Trim(FPNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ʊظ!','ʾ',0); + Exit; + end; + + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubNo,'FS','FP_XiaoShou_Sub',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubNo:=Trim(Order_Sub.fieldbyname('FSID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou_Sub where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + FieldByName('FSID').Value:=Trim(maxsubNo); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_XiaoShou_Sub',0) ; + Post; + end; + Edit; + FieldByName('FSID').Value:=Trim(maxsubNo); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWXFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(FPNO.Text)='' then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Trim(GHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Trim(XHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + // ModalResult:=1; + end; + +end; + +procedure TfrmWXFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate,FGHDanWei,FXHDanWei:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + if frmBGHZSelList.CDS_HZ.FieldByName('WXFPMoney').Value=0 then + begin + FGHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('KHName').AsString); + FXHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('FPDanWei').AsString); + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('FPDanWei').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; + if Trim(GHDanWei.Text)='' then + GHDanWei.Text:=Trim(FGHDanWei); + if Trim(XHDanWei.Text)='' then + XHDanWei.Text:=Trim(FXHDanWei); +end; + +procedure TfrmWXFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FSId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''ڲƱ'' '); + Open; + end; + if ADOTemp.FieldByName('HXMoney').Value<>0 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 FP_XiaoShou_Sub where FSId='''+Trim(Order_Sub.fieldbyname('FSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmWXFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmWXFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.FromPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + FromPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.ToPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + ToPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.BankNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WXBankName'; + flagname:=''; + if ShowModal=1 then + begin + BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.NQMQty,B.NQKgQty,B.NQYQty,B.BGPrice,B.BGMoney,B.NQUnit,C.BCOrderNo '); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=A.OrderNo)'); + SQL.Add(',DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.NBFMID=A.FMID '); + SQL.Add(' and HX.FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''')'); + sql.Add('from FP_GYSNB A'); + sql.Add('inner join JYOrder_BG_CKName_Qty B on A.NQID=B.NQID'); + sql.Add(' inner join JYOrder_BG_CK C on B.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG D on B.BGId=D.BGId'); + SQL.Add(' where A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOTemp,CDS_HZ); + SInitCDSData20(ADOTemp,CDS_HZ); + end; +end; + +procedure TfrmWXFPInPutWGL.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',BCHXMoney=(select HXMoney from FP_Money_HX B where B.GYSFMID=A.FMID '); + sql.Add(' and B.NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where exists(select * from FP_Money_HX HX where HX.GYSFMID=A.FMID'); + sql.Add(' and HX.NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''')'); + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); +end; + +procedure TfrmWXFPInPutWGL.Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=CDS_HZ.FieldByName('GHDanWei').Value; + if Trim(CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + //Post; + end; + GHDanWei.Text:=CDS_HZ.FieldByName('KHName').Value; + XHDanWei.Text:=CDS_HZ.FieldByName('GHDanWei').Value +end; + +procedure TfrmWXFPInPutWGL.Button1Click(Sender: TObject); +var + maxno,FFHID:string; +begin + if Order_Sub.IsEmpty then Exit; + if CDS_HZ.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FSID').AsString)='' then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + try + ADOCmd.Connection.BeginTrans; + with CDS_HZ do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''''); + sql.Add(' and FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƱʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where FHID='''+Trim(FFHID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('NBFMID').Value:=Trim(CDS_HZ.fieldbyname('FMID').AsString); + FieldByName('FSID').Value:=Trim(Order_Sub.fieldbyname('FSID').AsString); + FieldByName('FXID').Value:=Trim(FMainId); + if Trim(CDS_HZ.fieldbyname('BCHXMoney').AsString)='' then + begin + FieldByName('HXMoney').Value:=0; + end else + begin + FieldByName('HXMoney').Value:=CDS_HZ.fieldbyname('BCHXMoney').Value; + end; + FieldByName('Type').Value:='ڲƱ'; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update FP_GYSNB Set HXMoney=(select Sum(HXMoney) from FP_Money_HX A'); + sql.Add(' where A.NBFMID=FP_GYSNB.FMID and Isnull(A.Type,'''')=''ڲƱ'')'); + sql.Add(' where FMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmWXFPInPutWGL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.NQMQty,B.NQKgQty,B.NQYQty,B.BGPrice,B.BGMoney,B.NQUnit,C.BCOrderNo '); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=A.OrderNo)'); + SQL.Add(',DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.NBFMID=A.FMID '); + SQL.Add(' and HX.FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''')'); + sql.Add('from FP_GYSNB A'); + sql.Add('inner join JYOrder_BG_CKName_Qty B on A.NQID=B.NQID'); + sql.Add(' inner join JYOrder_BG_CK C on B.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG D on B.BGId=D.BGId'); + SQL.Add(' where exists(select * from FP_Money_HX FMH where FMH.NBFMID=A.FMID '); + SQL.Add(' and isnull(FMH.FSID,'''')='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''' '); + sql.Add(' and isnull(FMH.Type,'''')=''ڲƱ'' and isnull(FMH.HXMoney,0)<>0)'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_HZ); + SInitCDSData20(ADOTemp,CDS_HZ); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm new file mode 100644 index 0000000..2cf43de --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm @@ -0,0 +1,516 @@ +object frmWXFPList: TfrmWXFPList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #22806#38144#21457#31080#30331#35760 + 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 = 1056 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 380 + Top = 18 + Width = 65 + Height = 12 + Caption = #22806#38144#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 536 + Top = 18 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 680 + Top = 18 + Width = 52 + Height = 12 + Caption = #38144#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object FPNO: TEdit + Tag = 2 + Left = 446 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = FPNOKeyPress + end + object GHDanWei: TEdit + Tag = 2 + Left = 589 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object XHDanWei: TEdit + Tag = 2 + Left = 733 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1056 + Height = 429 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + 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> + 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 + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column9: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #38144#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #35013#33337#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #30446#30340#22320 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column4: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column6: TcxGridDBColumn + Caption = #24320#25143#34892 + DataBinding.FieldName = 'BankName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #20449#29992#35777#21495#25968 + DataBinding.FieldName = 'XYZNO' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas new file mode 100644 index 0000000..0f06080 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas @@ -0,0 +1,457 @@ +unit U_WXFPList; + +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, cxCheckBox; + + +type + TfrmWXFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + XHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure FPNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmWXFPList: TfrmWXFPList; + +implementation +uses + U_DataLink,U_RTFun,U_WXFPInPut,U_ModuleNote, U_ZDYHelp,U_WXFPInPutWGL; + +{$R *.dfm} + +procedure TfrmWXFPList.FormDestroy(Sender: TObject); +begin + frmWXFPList:=nil; +end; + +procedure TfrmWXFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWXFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*'); + sql.Add(',HZMoney=(select Sum(Money) from FP_XiaoShou_Sub B where B.FXID=A.FXID )'); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + //if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWXFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmWXFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FXID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +procedure TfrmWXFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where FXID='''+Trim(Order_Main.fieldbyname('FXID').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''ڲƱ'' '); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmWXFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_XiaoShou where FXId='''+Trim(Order_Main.fieldbyname('FXId').AsString)+''''); + sql.Add('delete FP_XiaoShou_Sub where FXId='''+Trim(Order_Main.fieldbyname('FXId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWXFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ʊ',cxGrid1); +end; + +procedure TfrmWXFPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.TBAddClick(Sender: TObject); +begin + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +procedure TfrmWXFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmWXFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWXFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWXFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*'); + sql.Add(',HZMoney=(select Sum(Money) from FP_XiaoShou_Sub B where B.FXID=A.FXID )'); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWXFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.WorkerChange(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 TfrmWXFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmWXFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmWXFPList.ToolButton1Click(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 TfrmWXFPList.FPNOKeyPress(Sender: TObject; var Key: Char); + + var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(FPNO.Text))<3 then Exit; + fsj:=' and AA.FPNO like '''+'%'+Trim(FPNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmWXFPList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FXID').AsString); + TBSave.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm new file mode 100644 index 0000000..320b630 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm @@ -0,0 +1,646 @@ +object frmWorkDeptFeeBXFKList: TfrmWorkDeptFeeBXFKList + Left = 79 + Top = 109 + Width = 1263 + Height = 547 + Caption = #36153#29992#25253#38144#20184#27454 + 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 = 1247 + AutoSize = True + 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_CYZZ.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 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 = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1247 + Height = 226 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'FKType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column2: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 131 + end + object v1Column5: TcxGridDBColumn + Caption = #38134#34892#21517#31216 + DataBinding.FieldName = 'BankName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 143 + end + object v1Column3: TcxGridDBColumn + Caption = #38134#34892#36134#21495 + DataBinding.FieldName = 'BankNo' + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 181 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1247 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 279 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 407 + Top = 22 + Width = 52 + Height = 12 + Caption = #20184#27454#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 551 + Top = 22 + Width = 52 + Height = 12 + Caption = #38134#34892#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 699 + Top = 22 + Width = 52 + Height = 12 + Caption = #38134#34892#36134#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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 320 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FKType: TEdit + Tag = 2 + Left = 461 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BankName: TEdit + Tag = 2 + Left = 603 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object BankNo: TEdit + Tag = 2 + Left = 751 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 312 + Width = 1247 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 320 + Width = 1247 + Height = 188 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v2Column7 + 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 + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column8: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column3: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v2Column9: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v2Column5: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Options.Editing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 74 + end + object v2Column7: TcxGridDBColumn + Caption = #25253#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 592 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 848 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 581 + Top = 384 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas new file mode 100644 index 0000000..40bcdc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas @@ -0,0 +1,435 @@ +unit U_WorkDeptFeeBXFKList; + +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, cxCheckBox, Menus; + +type + TfrmWorkDeptFeeBXFKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Worker: TEdit; + Label6: TLabel; + v1Column17: TcxGridDBColumn; + Label3: TLabel; + FKType: TEdit; + Label4: TLabel; + BankName: TEdit; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton1: TToolButton; + v1Column3: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label5: TLabel; + BankNo: TEdit; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + 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 ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeBXFKList: TfrmWorkDeptFeeBXFKList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkDeptFeeFKHXList; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeBXFKList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeBXFKList:=nil; +end; + +procedure TfrmWorkDeptFeeBXFKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeBXFKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeBXFKList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from Woker_Fee_FK A where'); + sql.Add(' A.FKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeBXFKList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + InitGrid(); +end; + +function TfrmWorkDeptFeeBXFKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_FenTan where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeBXFKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeBXFKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeBXFKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeBXFKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.WorkerChange(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 TfrmWorkDeptFeeBXFKList.ToolButton2Click(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 TfrmWorkDeptFeeBXFKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmWorkDeptFeeBXFKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton4Click(Sender: TObject); +begin + try + frmWorkDeptFeeFKHXList:=TfrmWorkDeptFeeFKHXList.Create(Application); + with frmWorkDeptFeeFKHXList do + begin + PState:=0; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkDeptFeeFKHXList.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton5Click(Sender: TObject); +begin + try + frmWorkDeptFeeFKHXList:=TfrmWorkDeptFeeFKHXList.Create(Application); + with frmWorkDeptFeeFKHXList do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FKID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkDeptFeeFKHXList.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.* ,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0)'); + sql.Add(' ,BCHXMoney=(select isnull(HX.HXMoney,0) from Worker_Fee_HX HX where HX.WSID=B.WSID and HX.FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID'); + sql.Add(' and A.FKID<>'''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_HX where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + sql.Add('delete Woker_Fee_FK where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + Exit; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm new file mode 100644 index 0000000..8439bc3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm @@ -0,0 +1,757 @@ +object frmWorkDeptFeeChkList: TfrmWorkDeptFeeChkList + Left = 109 + Top = 128 + Width = 1232 + Height = 547 + Caption = #36153#29992#25253#38144#21333#23457#26680 + 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 = 1216 + AutoSize = True + 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_CYZZ.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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1216 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1216 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 109 + Width = 1216 + Height = 196 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 48 + end + object v1Column5: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column7: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column1: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column13: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 129 + end + object v1Column10: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoneyHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1216 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 430 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 701 + Top = 22 + Width = 26 + Height = 12 + Caption = #22823#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 287 + Top = 22 + Width = 52 + Height = 12 + Caption = #25253#38144#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 = 821 + Top = 22 + Width = 26 + Height = 12 + Caption = #23567#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 558 + Top = 22 + Width = 52 + Height = 12 + Caption = #37096#38376#20998#31867 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 471 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object WFType: TEdit + Tag = 2 + Left = 729 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BXNO: TEdit + Tag = 2 + Left = 341 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = BXNOKeyPress + end + object WFTypeSub: TEdit + Tag = 2 + Left = 849 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object Dept: TEdit + Tag = 2 + Left = 611 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 313 + Width = 1216 + Height = 195 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column2 + 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 + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 89 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 138 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column2: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Width = 75 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 305 + Width = 1216 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 456 + Top = 182 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 397 + Top = 181 + 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 = 427 + Top = 181 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 184 + end + object PopupMenu1: TPopupMenu + Left = 145 + Top = 220 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 384 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas new file mode 100644 index 0000000..14ebeaa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas @@ -0,0 +1,604 @@ +unit U_WorkDeptFeeChkList; + +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, cxCheckBox, Menus; + +type + TfrmWorkDeptFeeChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v2Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + Label3: TLabel; + Label4: TLabel; + Worker: TEdit; + WFType: TEdit; + BXNO: TEdit; + Label5: TLabel; + WFTypeSub: TEdit; + Label7: TLabel; + Dept: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column14: TcxGridDBColumn; + 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 ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure BXNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeChkList: TfrmWorkDeptFeeChkList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeChkList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeChkList:=nil; +end; + +procedure TfrmWorkDeptFeeChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeChkList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.WFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.WFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeChkList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxTabControl1.TabIndex:=0; + InitGrid(); +end; + +function TfrmWorkDeptFeeChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_FenTan where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeChkList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeChkList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeChkList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.WorkerChange(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 TfrmWorkDeptFeeChkList.ToolButton2Click(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 TfrmWorkDeptFeeChkList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmWorkDeptFeeChkList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set ChkStatus=''ͨ'',ChkTIme=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + sql.Add(',WFType='''+Trim(Order_Main.fieldbyname('WFType').AsString)+''''); + sql.Add(',WFTypeSub='''+Trim(Order_Main.fieldbyname('WFTypeSub').AsString)+''''); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub A'); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + sql.Add(' and isnull(BXMoney,0)<>0'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('бݲܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set ChkStatus=Null,ChkTIme=Null,Chker=Null,ChkNote=Null '); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeChkList.BXNOKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(BXNO.Text)<>'' then + begin + if Length(BXNO.Text)<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + sql.Add(' and BXNO like '''+'%'+Trim(BXNO.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end; + end; +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set EditTime=getdate(),Editer='''+Trim(DName)+''''); + sql.Add(',WFType='''+Trim(Order_Main.fieldbyname('WFType').AsString)+''''); + sql.Add(',WFTypeSub='''+Trim(Order_Main.fieldbyname('WFTypeSub').AsString)+''''); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFType'; + flagname:=''; + MainType:=Trim(Self.Order_Main.fieldbyname('Dept').AsString); + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('WFType').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkDeptFeeChkList.v1Column13PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFTypeSub'; + flagname:='С'; + MainType:=Trim(Self.Order_Main.fieldbyname('WFType').AsString); + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('WFTypeSub').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm new file mode 100644 index 0000000..b9a392c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm @@ -0,0 +1,512 @@ +object frmWorkDeptFeeFKHXList: TfrmWorkDeptFeeFKHXList + Left = 77 + Top = 102 + Width = 1239 + Height = 567 + Caption = #36153#29992#25253#38144#20184#27454 + 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 = 1223 + 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_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 112 + Width = 1223 + Height = 416 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1219 + Height = 412 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v2Column3: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #37096#38376 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v2Column4: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36135#28304#22320 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v2Column5: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Options.Editing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 74 + end + object v2Column7: TcxGridDBColumn + Caption = #25253#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 32 + Width = 1223 + Height = 80 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label5: TLabel + Left = 8 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 167 + Top = 18 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 496 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 303 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 8 + Top = 48 + Width = 52 + Height = 12 + Caption = #38134#34892#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 303 + Top = 48 + Width = 52 + Height = 12 + Caption = #38134#34892#36134#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 = 647 + Top = 18 + Width = 34 + Height = 36 + Caption = #22791' '#13#10#13#10#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object FKDate: TDateTimePicker + Left = 62 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + TabOrder = 0 + end + object FKMoney: TEdit + Left = 552 + Top = 14 + Width = 78 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object FKType: TBtnEditA + Left = 360 + Top = 14 + Width = 121 + Height = 20 + TabOrder = 2 + OnBtnClick = FKTypeBtnClick + end + object BankName: TBtnEditA + Left = 62 + Top = 44 + Width = 221 + Height = 20 + TabOrder = 3 + OnBtnClick = BankNameBtnClick + end + object BankNo: TBtnEditA + Left = 360 + Top = 44 + Width = 273 + Height = 20 + TabOrder = 4 + OnBtnClick = BankNoBtnClick + end + object Note: TRichEdit + Left = 672 + Top = 10 + Width = 393 + Height = 56 + TabOrder = 5 + end + object Worker: TComboBox + Left = 208 + Top = 16 + Width = 74 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 456 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 480 + Top = 192 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 511 + Top = 191 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas new file mode 100644 index 0000000..0dc0891 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas @@ -0,0 +1,479 @@ +unit U_WorkDeptFeeFKHXList; + +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, cxCheckBox, Menus, BtnEdit; + +type + TfrmWorkDeptFeeFKHXList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ToolButton2: TToolButton; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label5: TLabel; + FKDate: TDateTimePicker; + Label7: TLabel; + Label8: TLabel; + FKMoney: TEdit; + Label9: TLabel; + FKType: TBtnEditA; + Label10: TLabel; + BankName: TBtnEditA; + Label11: TLabel; + BankNo: TBtnEditA; + Label12: TLabel; + Note: TRichEdit; + v1Column1: TcxGridDBColumn; + Worker: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FKTypeBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + procedure BankNoBtnClick(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2Column7PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function SaveData():Boolean; + { Private declarations } + public + FMainId:String; + PState:Integer; + { Public declarations } + end; + +var + frmWorkDeptFeeFKHXList: TfrmWorkDeptFeeFKHXList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeFKHXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeFKHXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); +end; + +procedure TfrmWorkDeptFeeFKHXList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add(' select A.WFDate,A.Worker,A.WFType,A.BXNO,B.*,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0) '); + sql.Add(' ,BCHXMoney=Cast(Null as decimal(18,2) )'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where isnull(A.ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(B.Money,0)<>isnull(B.BXMoney,0)'); + SQL.Add(' and isnull(A.Worker,'''')='''+Trim(Worker.Text)+''''); + sql.Add(' and not exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(FMainId)+''')'); + sql.Add(' Union all'); + sql.Add(' select A.WFDate,A.Worker,A.WFType,A.BXNO,B.* ,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0)'); + sql.Add(' ,BCHXMoney=(select isnull(HX.HXMoney,0) from Worker_Fee_HX HX where HX.WSID=B.WSID and HX.FKID='''+Trim(FMainId)+''')'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(FMainId)+''')'); + sql.Add(')AA order by BCHXMoney desc'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Sub); + SInitCDSData20(ADOQueryMain,Order_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmWorkDeptFeeFKHXList.InitForm(); +var + fsj:string; +begin + fsj:='select distinct(A.Worker) Name,Code='''' from Worker_Fee_Main A inner join Worker_Fee_Sub B on A.WFID=B.WFID' + +' where isnull(A.ChkStatus,'''')=''ͨ'' and isnull(B.Money,0)<>isnull(B.BXMoney,0)'; + SInitComBoxBySql(ADOQueryTemp,Worker,False,fsj); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Woker_Fee_FK where FKID='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,0); + if PState=0 then + begin + Worker.Enabled:=True; + FKDate.Date:=SGetServerDate(ADOQueryTemp); + end else + begin + Worker.Enabled:=False; + InitGrid(); + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('BCHXMoney').AsString)<>'' then + begin + Edit; + FieldByName('SSel').Value:=True; + end; + Next; + end; + end; + Order_Sub.EnableControls; + end; +end; + + +procedure TfrmWorkDeptFeeFKHXList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + InitForm(); +end; + +function TfrmWorkDeptFeeFKHXList.SaveData():Boolean; +var + maxno,maxSubNo,FHXID:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'FK','Woker_Fee_FK',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Woker_Fee_FK where FKID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FMainId)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('FKID').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'Woker_Fee_FK',Panel3,0); + Post; + end; + // + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID'); + sql.Add(' and A.FKID<>'''+Trim(maxno)+''')'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_HX where FKID='''+Trim(maxno)+''''); + ExecSQL; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Order_Sub.fieldbyname('BCHXMoney').AsString)<>'' then + begin + if GetLSNo(ADOQueryCmd,maxSubNo,'HX','Worker_Fee_HX',4,1)=False then + begin + Order_Sub.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Worker_Fee_HX where FKID='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FKID').Value:=Trim(maxno); + FieldByName('HXID').Value:=Trim(maxSubNo); + FieldByName('WSID').Value:=Trim(Order_Sub.fieldbyname('WSID').AsString); + FieldByName('HXMoney').Value:=Order_Sub.fieldbyname('BCHXMoney').AsString; + Post; + end; + end; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID)'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + sql.Add(' and isnull(Money,0)'' then + begin + with Order_Sub do + begin + Edit; + FieldByName('BCHXMoney').Value:=mvalue; + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('BCHXMoney').Value:=null; + Post; + end; + end; + FKMoney.Text:=Tv1.DataController.Summary.FooterSummaryTexts[4]; +end; + +procedure TfrmWorkDeptFeeFKHXList.ToolButton2Click(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(Worker.Text)='' then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if Trim(FKMoney.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if StrToFloat(FKMoney.Text)=0 then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(FKType.Text)='' then + begin + Application.MessageBox('ʽΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + ModalResult:=1; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm new file mode 100644 index 0000000..7deedfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm @@ -0,0 +1,754 @@ +object frmWorkDeptFeeList: TfrmWorkDeptFeeList + Left = 184 + Top = 92 + Width = 1018 + Height = 571 + Caption = #36153#29992#25253#38144#21333 + 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 = 1002 + AutoSize = True + 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_CYZZ.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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1002 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1002 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 109 + Width = 1002 + Height = 220 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column5: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column13: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 116 + end + object v1Column8: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoneyHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 86 + end + object v1Column10: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DBXMoneyHZ' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1002 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label1: TLabel + Left = 23 + Top = 22 + 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 Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 430 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 700 + Top = 22 + Width = 26 + Height = 12 + Caption = #22823#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 287 + Top = 22 + Width = 52 + Height = 12 + Caption = #25253#38144#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 = 820 + Top = 22 + Width = 26 + Height = 12 + Caption = #23567#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 558 + Top = 22 + Width = 52 + Height = 12 + Caption = #37096#38376#20998#31867 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 471 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object WFType: TEdit + Tag = 2 + Left = 728 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BXNO: TEdit + Tag = 2 + Left = 341 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = BXNOKeyPress + end + object WFTypeSub: TEdit + Tag = 2 + Left = 848 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object Dept: TEdit + Tag = 2 + Left = 610 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 337 + Width = 1002 + Height = 195 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + 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 + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 138 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column1: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object v2Column2: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DBXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 329 + Width = 1002 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 912 + Top = 40 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 704 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 744 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 936 + Top = 32 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 943 + Top = 39 + 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 = 456 + Top = 182 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + Left = 397 + Top = 181 + 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 = 427 + Top = 181 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 184 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 384 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas new file mode 100644 index 0000000..f06fa9a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas @@ -0,0 +1,509 @@ +unit U_WorkDeptFeeList; + +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 + TfrmWorkDeptFeeList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Worker: TEdit; + Label6: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + Label3: TLabel; + WFType: TEdit; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label4: TLabel; + BXNO: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label5: TLabel; + WFTypeSub: TEdit; + Label7: TLabel; + Dept: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure BXNOKeyPress(Sender: TObject; var Key: Char); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeList: TfrmWorkDeptFeeList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeList:=nil; +end; + +procedure TfrmWorkDeptFeeList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where'); + sql.Add(' A.WFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.WFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxTabControl1.TabIndex:=0; + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DCode)<>Trim(Order_Main.fieldbyname('FillerCode').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('WFID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.TBDelClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DCode)<>Trim(Order_Main.fieldbyname('FillerCode').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmWorkDeptFeeList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ñ',cxGrid1); +end; + +procedure TfrmWorkDeptFeeList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.TBAddClick(Sender: TObject); +begin + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=0; FMainId:=''; + //FYLType:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.WorkerChange(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 TfrmWorkDeptFeeList.ToolButton1Click(Sender: TObject); +begin + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('WFID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + //Button3.Visible:=False; + //Button4.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; + +end; + +procedure TfrmWorkDeptFeeList.ToolButton2Click(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 TfrmWorkDeptFeeList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DBXMoney=isnull(Money,0)-isnull(BXMoney,0)'); + sql.Add(' from Worker_Fee_Sub A where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeList.BXNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(BXNO.Text)<>'' then + begin + if Length(BXNO.Text)<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + sql.Add(' and BXNO like '''+'%'+Trim(BXNO.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm new file mode 100644 index 0000000..dc9270b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm @@ -0,0 +1,447 @@ +object frmWorkerDeptFeeInPut: TfrmWorkerDeptFeeInPut + Left = 236 + Top = 122 + Width = 905 + Height = 573 + Align = alClient + Caption = #36153#29992#25253#38144#21333#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 = 889 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + 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 = 889 + Height = 84 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 887 + Height = 82 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 30 + Top = 14 + Width = 66 + Height = 12 + Caption = #25253' '#38144' '#20154#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 = 207 + Top = 14 + Width = 39 + Height = 12 + Caption = #26085#26399#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 = 534 + Top = 13 + Width = 39 + Height = 12 + Caption = #22823#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 30 + Top = 43 + 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 Label4: TLabel + Left = 358 + Top = 13 + Width = 65 + Height = 12 + Caption = #37096#38376#20998#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 715 + Top = 13 + Width = 39 + Height = 12 + Caption = #23567#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object WFDate: TDateTimePicker + Left = 237 + Top = 10 + Width = 110 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object Worker: TBtnEditA + Left = 91 + Top = 10 + Width = 102 + Height = 20 + Hint = 'BXWorker/'#25253#38144#20154 + TabOrder = 1 + OnBtnClick = WorkerBtnClick + end + object WFType: TBtnEditA + Left = 568 + Top = 9 + Width = 136 + Height = 20 + Hint = 'WFType/'#25253#38144#22823#31867 + ReadOnly = True + TabOrder = 2 + OnBtnClick = WFTypeBtnClick + end + object Note: TEdit + Left = 91 + Top = 40 + Width = 782 + Height = 18 + CharCase = ecUpperCase + TabOrder = 3 + end + object Dept: TBtnEditA + Left = 419 + Top = 9 + Width = 100 + Height = 20 + Hint = 'BXDept/'#37096#38376 + ReadOnly = True + TabOrder = 4 + OnBtnClick = DeptBtnClick + end + object WFTypeSub: TBtnEditA + Left = 751 + Top = 9 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = WFTypeSubBtnClick + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 113 + Width = 889 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 142 + Width = 889 + Height = 392 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column8: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 138 + end + object v1Column3: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column7: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object v1Column4: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 386 + Top = 2 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 325 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 405 + Top = 442 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 294 + Top = 1 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 355 + Top = 4 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 436 + Top = 443 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas new file mode 100644 index 0000000..e0aab7f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas @@ -0,0 +1,555 @@ +unit U_WorkerDeptFeeInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmWorkerDeptFeeInPut = 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; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label9: TLabel; + Label4: TLabel; + WFDate: TDateTimePicker; + Worker: TBtnEditA; + WFType: TBtnEditA; + Note: TEdit; + Dept: TBtnEditA; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label3: TLabel; + WFTypeSub: TBtnEditA; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure WorkerBtnClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFTypeBtnClick(Sender: TObject); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure DeptBtnClick(Sender: TObject); + procedure WFTypeSubBtnClick(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmWorkerDeptFeeInPut: TfrmWorkerDeptFeeInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList, + U_SYDeptUserView; + +{$R *.dfm} + +procedure TfrmWorkerDeptFeeInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñ¼',Tv1,'ù'); +end; + +procedure TfrmWorkerDeptFeeInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select A.*,B.* from Worker_Fee_Main A left join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where A.WFID='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,0); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from Worker_Fee_Sub '); + sql.Add(' where WFID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PState=0 then + begin + WFDate.DateTime:=SGetServerDate(ADOTemp); + WFDate.Checked:=False; + if Trim(DParameters1)<>'Ȩ' then + begin + Worker.Text:=Trim(DName); + end; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWorkerDeptFeeInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ñ¼',Tv1,'ù'); + InitData(); +end; +procedure TfrmWorkerDeptFeeInPut.GetMaxConNO(); +begin + +end; +function TfrmWorkerDeptFeeInPut.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'WF','Worker_Fee_Main',3,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 Worker_Fee_Main where WFId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('WFId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Worker_Fee_Main',Panel1,0); + FieldByName('BXNO').Value:='BX'+Trim(maxno); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillerCode').Value:=Trim(DCode); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditerCode').Value:=Trim(DCode); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('WSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'WS','Worker_Fee_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɷñӱˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('WSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Worker_Fee_Sub where '); + sql.Add(' WSId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('WSId').AsString)='' then + Append + else + Edit; + FieldByName('WFID').Value:=Trim(maxno); + FieldByName('WSId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Worker_Fee_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('WSId').Value:=Trim(maxSubNo); + Next; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Main Set HZMoney='); + sql.Add(' (select isnull(Sum(isnull(Money,0)),0) from Worker_Fee_Sub A where A.WFID=Worker_Fee_Main.WFID)'); + sql.Add(' where WFID='''+Trim(maxno)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWorkerDeptFeeInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(Worker.Text)='' then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if Trim(WFType.Text)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + {if Trim(Dept.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; } + if WFDate.Checked=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Money',Null,[])=True then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('MoneyKP').AsString)<>'' then + begin + if Order_Sub.fieldbyname('MoneyKP').Value<>0 then + begin + if Trim(Order_Sub.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('ԴزΪ!','ʾ',0); + Exit; + end; + end; + end; + next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + +end; + +procedure TfrmWorkerDeptFeeInPut.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('WSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + Order_Sub.Delete; +end; + +procedure TfrmWorkerDeptFeeInPut.WorkerBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXWorker'; + flagname:=''; + if ShowModal=1 then + begin + Worker.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KeMu'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KeMu').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + // Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.WFTypeBtnClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TBtnEditA(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=Trim(Self.Dept.Text); + if Trim(flag)='WFType' then + begin + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + end; + if ShowModal=1 then + begin + TBtnEditA(Sender).Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + { try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + end; + finally + frmGYSList.Free; + end; } + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXGYS'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXQtyUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('QtyUnit').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + // Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(Order_Sub.fieldbyname('Qty').AsString); + FPrice:=Trim(Order_Sub.fieldbyname('Price').AsString); + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with Order_Sub do + begin + edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + end; +end; + +procedure TfrmWorkerDeptFeeInPut.DeptBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXDept'; + flagname:=''; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + Dept.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.WFTypeSubBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFTypeSub'; + flagname:=''; + MainType:=Trim(Dept.Text)+Trim(WFType.Text); + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + WFTypeSub.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm new file mode 100644 index 0000000..ec26259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm @@ -0,0 +1,458 @@ +object frmYFCRLZ: TfrmYFCRLZ + Left = 99 + Top = 88 + Width = 1295 + Height = 598 + Caption = #20837#36134#31649#29702 + 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 = 1279 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1279 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 618 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 424 + Top = 13 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 297 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 810 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object YFName: TEdit + Tag = 2 + Left = 680 + Top = 9 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 462 + Top = 9 + Width = 138 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 334 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CPName: TEdit + Tag = 2 + Left = 837 + Top = 9 + Width = 105 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1279 + Height = 489 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = VQty + end + item + Format = '0' + Position = spFooter + Column = VPrice + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + Column = VPS + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = VQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object VOrderNo: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #21697#21517 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object VPS: TcxGridDBColumn + Tag = 3 + Caption = #21305'/'#20214#31665#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object VQty: TcxGridDBColumn + Tag = 3 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object VQtyUnit: TcxGridDBColumn + Tag = 3 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPrice: TcxGridDBColumn + Tag = 3 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #24212#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 130 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 581 + Top = 209 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 480 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 544 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas new file mode 100644 index 0000000..f51baeb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas @@ -0,0 +1,572 @@ +unit U_YFCRLZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VQty: TcxGridDBColumn; + VQtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VPrice: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + VNote: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + ToolButton5: TToolButton; + VPS: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2SSel: TcxGridDBColumn; + Label5: TLabel; + CPName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton5Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure VHZFTYNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PriceChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + + end; + +var + frmYFCRLZ: TfrmYFCRLZ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_GYSSelList; + +{$R *.dfm} + + + +procedure TfrmYFCRLZ.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR where CRTime>=:begdate and CRTime<:Enddate '); + sql.Add(' and isnull(CRType,'''')=''ӦǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(YFName.Text)<>'' then + begin + SQL.Add(' and isnull(YFName,'''') like '''+'%'+Trim(YFName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + if Trim(CPName.Text)<>'' then + begin + SQL.Add(' and isnull(CPName,'''') like '''+'%'+Trim(CPName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYFCRLZ.FormDestroy(Sender: TObject); +begin + frmYFCRLZ:=nil; +end; + +procedure TfrmYFCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧб',Tv2,''); + Close; +end; +procedure TfrmYFCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + 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='+CDS_HZ.Fieldbyname('CRID').AsString); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɾɹ!','ʾ',0); + except + CDS_HZ.EnableConstraints; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZ.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ӧб',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-30; +end; + +procedure TfrmYFCRLZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FBBMoney,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + //Post; + end; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FMoney); + Post; + end; +end; + +procedure TfrmYFCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHName').AsString); + FieldByName('CRTime').Value:=Now; + Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.ToolButton1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid2); + +end; + +procedure TfrmYFCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR where OrderNo like :OrderNo '); + sql.Add(' and isnull(CRType,'''')=''ӦǼ'' '); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmYFCRLZ.ToolButton5Click(Sender: TObject); +var + CRID,maxId,FYFID:String; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӦʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CDS_HZ.fieldbyname('FactoryNo').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + end; + FieldByName('YFID').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('YFType').Value:='ֹ¼'; + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('BBMoney').Value:=CDS_HZ.fieldbyname('Money').Value; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('SSel').Value:=False; + 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='+CDS_HZ.Fieldbyname('CRID').AsString); + ExecSQL; + end; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZ.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_HZ.IsEmpty then Exit; + If Trim(CDS_HZ.fieldbyname('YFType').AsString)='Զ' then + begin + TV2.OptionsSelection.CellSelect:=False; + end else + begin + TV2.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmYFCRLZ.VHZFTYNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('HZFactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('HZFactoryName').Value:=Trim(Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmYFCRLZ.PriceChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm new file mode 100644 index 0000000..1a10095 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm @@ -0,0 +1,372 @@ +object frmYFFKFPList: TfrmYFFKFPList + Left = 91 + Top = 60 + Width = 1229 + Height = 618 + Caption = #24212#20184#27454#32479#35745#26597#35810 + 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 = 1213 + Height = 31 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1213 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 303 + Top = 13 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object FactoryName: TEdit + Left = 340 + Top = 9 + Width = 117 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1213 + Height = 509 + Align = alClient + TabOrder = 2 + 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 + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + 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 = v2Column4 + end + item + Kind = skSum + Column = v2Column7 + 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 = v2Column11 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column16 + end + item + Kind = skSum + Column = v2Column12 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 125 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#20313#39069 + DataBinding.FieldName = 'SQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 107 + end + object v2Column12: TcxGridDBColumn + Caption = #19978#26399#26410#24320#31080 + DataBinding.FieldName = 'SQWKP' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object v2Column1: TcxGridDBColumn + Caption = #26412#26399#20837#36134 + DataBinding.FieldName = 'BQYFMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #26412#26399#20184#27454 + DataBinding.FieldName = 'BQPKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 90 + end + object v2Column11: TcxGridDBColumn + Caption = #26412#26399#24320#31080 + DataBinding.FieldName = 'BQKP' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column4: TcxGridDBColumn + Caption = #24635#20313#39069 + DataBinding.FieldName = 'MaxHZMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 86 + end + object v2Column7: TcxGridDBColumn + Caption = #24453#23545#36134 + DataBinding.FieldName = 'DDuiZhangMoney' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column16: TcxGridDBColumn + Caption = #24635#26410#24320#31080 + DataBinding.FieldName = 'HZWKP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 99 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 389 + Top = 137 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 421 + Top = 137 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 137 + 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 = 424 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 392 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 456 + Top = 168 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 387 + Top = 171 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 168 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas new file mode 100644 index 0000000..03ee53b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas @@ -0,0 +1,185 @@ +unit U_YFFKFPList; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYFFKFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + ToolButton3: TToolButton; + v2Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFFKFPList: TfrmYFFKFPList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + + + +procedure TfrmYFFKFPList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_View_YFZhangKuan :begdate,:Enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYFFKFPList.FormDestroy(Sender: TObject); +begin + frmYFFKFPList:=nil; +end; + +procedure TfrmYFFKFPList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFFKFPList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧͳ',Tv2,''); + Close; +end; +procedure TfrmYFFKFPList.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧͳ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=StrToDate(Trim(FormatDateTime('yyyy-MM',SGetServerDate(ADOQueryTemp)))+'-01'); + //InitGrid(); +end; + +procedure TfrmYFFKFPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFFKFPList.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYFFKFPList.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFFKFPList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Ӧ˿б',cxGrid2); +end; + +procedure TfrmYFFKFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ˿б'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm new file mode 100644 index 0000000..e049658 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm @@ -0,0 +1,439 @@ +object frmYPCKKCList: TfrmYPCKKCList + Left = 143 + Top = 158 + Width = 1027 + Height = 511 + Caption = #26679#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 + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1011 + 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_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 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 = 97 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + 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 = 33 + Width = 1011 + Height = 130 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 182 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label5: TLabel + Left = 35 + Top = 42 + Width = 48 + Height = 12 + Caption = #20135#21697#35268#26684 + end + object Label3: TLabel + Left = 35 + Top = 15 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object Label7: TLabel + Left = 182 + Top = 71 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 182 + Top = 42 + Width = 48 + Height = 12 + Caption = #20135#21697#25104#20221 + end + object Label10: TLabel + Left = 35 + Top = 71 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label2: TLabel + Left = 35 + Top = 100 + Width = 48 + Height = 12 + Caption = #26679#21697#31867#22411 + end + object Image2: TImage + Left = 392 + Top = 2 + Width = 161 + Height = 125 + Center = True + end + object CheckBox1: TCheckBox + Left = 182 + Top = 98 + Width = 145 + Height = 17 + Caption = #26174#31034#24211#23384#20026#38646#30340#25968#25454 + TabOrder = 0 + end + object CYName: TEdit + Tag = 2 + Left = 232 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = CYSpecChange + end + object CYSpec: TEdit + Tag = 2 + Left = 84 + Top = 38 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = CYSpecChange + end + object CYNO: TEdit + Tag = 2 + Left = 84 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYKZ: TEdit + Tag = 2 + Left = 232 + Top = 67 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = CYSpecChange + end + object CYECF: TEdit + Tag = 2 + Left = 232 + Top = 38 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = CYSpecChange + end + object CYMF: TEdit + Tag = 2 + Left = 84 + Top = 67 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = CYSpecChange + end + object CYType: TEdit + Tag = 2 + Left = 84 + Top = 96 + Width = 89 + Height = 20 + TabOrder = 7 + OnChange = CYSpecChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 163 + Width = 1011 + Height = 309 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column1: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object VKCNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KCNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VKCNotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column18: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 936 + Top = 112 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 896 + Top = 104 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas new file mode 100644 index 0000000..a6c6744 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas @@ -0,0 +1,292 @@ +unit U_YPCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, Menus, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, + cxTextEdit, cxButtonEdit,jpeg; + //DParameters2:='±ע' +type + TfrmYPCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + CheckBox1: TCheckBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + VKCNote: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + Label5: TLabel; + Label3: TLabel; + Label7: TLabel; + Label9: TLabel; + Label10: TLabel; + CYName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + CYKZ: TEdit; + CYECF: TEdit; + CYMF: TEdit; + Label2: TLabel; + v1Column1: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + Image2: TImage; + CYType: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure CYNoChange(Sender: TObject); + procedure VKCNotePropertiesEditValueChanged(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(FFCYID:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmYPCKKCList: TfrmYPCKKCList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmYPCKKCList.FormDestroy(Sender: TObject); +begin + frmYPCKKCList:=nil; +end; + +procedure TfrmYPCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.CRID,A.BCID,A.KCQty,A.KCQtyUnit,A.CYColor,A.KCNote,A.CYType '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID)'); + sql.Add(' from CK_YP_KC A '); + sql.Add(' left join CP_YDang B on A.CYID=B.CYID '); + if CheckBox1.Checked=False then + sql.add('where A.KCQty>0') + else + sql.Add('where 1=1 '); + {SQL.Add(' order by '); + sql.Add(' substring(WeiZhi,1,1),Cast(substring(WeiZhi,2,charindex(''-'',WeiZhi)-2) as Int)'); + sql.Add(',Cast(substring(WeiZhi,charindex(''-'',WeiZhi)+1,len(WeiZhi)-charindex(''-'',WeiZhi)) as Int)'); } + //ShowMessage(SQL.Text); + Open; + + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPCKKCList.TBRafreshClick(Sender: TObject); +begin + CYNo.SetFocus; + InitGrid(); +end; + +procedure TfrmYPCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбAS',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmYPCKKCList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷбAS',Tv1,'Ʒֿ'); + + //InitGrid(); + if Trim(DParameters2)='±ע' then + begin + VKCNote.Options.Focusing:=True; + end else + begin + VKCNote.Options.Focusing:=False; + end; +end; + +procedure TfrmYPCKKCList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmYPCKKCList.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 TfrmYPCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYPCKKCList.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 TfrmYPCKKCList.CYNoChange(Sender: TObject); +begin + if Trim(CYNO.Text)<>'' then + begin + if Length(CYNo.Text)<3 then Exit; + end; + + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmYPCKKCList.VKCNotePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Main do + begin + Edit; + FieldByName('KCNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_KC set KCNote='''+Trim(mvalue)+''''); + sql.Add(' where CRID='+Cds_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; +end; + +procedure TfrmYPCKKCList.CYSpecChange(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 TfrmYPCKKCList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + InitImage(Trim(CDS_Main.fieldbyname('CYID').AsString)); +end; +procedure TfrmYPCKKCList.InitImage(FFCYID:string); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FFCYID)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FFCYID)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm new file mode 100644 index 0000000..c997e98 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm @@ -0,0 +1,313 @@ +object frmYPCRIn: TfrmYPCRIn + Left = 15 + Top = 171 + Width = 1238 + Height = 500 + Align = alClient + Caption = #26679#21697#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1222 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + Transparent = True + Wrapable = False + object BtnSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = BtnSaveClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 39 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20840#37096#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object BtnExit: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = BtnExitClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 48 + Width = 1121 + Height = 353 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + #29255 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 109 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 192 + Top = 168 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 168 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 296 + Top = 200 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 264 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 224 + Top = 200 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 496 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas new file mode 100644 index 0000000..f7f5f77 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas @@ -0,0 +1,595 @@ +unit U_YPCRIn; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, + cxButtonEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmYPCRIn = class(TForm) + ToolBar1: TToolBar; + BtnSave: TToolButton; + BtnExit: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1P_ChnName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column3: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure BtnExitClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FCRID:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure SaveKCData(); + { Private declarations } + public + FMainID:string; + FCopyInt:Integer; + { Public declarations } + end; + +var + frmYPCRIn: TfrmYPCRIn; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_CPSel; + +{$R *.dfm} + +procedure TfrmYPCRIn.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmYPCRIn.BtnExitClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƷSTInput',Tv1,'Ʒֿ'); +end; +procedure TfrmYPCRIn.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX'); + sql.Add(' from CK_YP_CR A'); + sql.Add(' inner join CP_YDang B on A.CYID=B.CYID'); + SQL.Add(' where BCId='''+Trim(FMainID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPCRIn.ToolButton2Click(Sender: TObject); +var + FDate:TDateTime; +begin + FDate:=SGetServerDate(ADOQueryTemp); + try + frmCPSel:=TfrmCPSel.Create(self); + with frmCPSel do + begin + frmCPSel.Align:=alClient; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=FDate; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYNo').Value:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(CDS_Main.fieldbyname('CYCF').AsString); + FieldByName('CYMF').Value:=Trim(CDS_Main.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(CDS_Main.fieldbyname('CYKZ').AsString); + FieldByName('CYHX').Value:=Trim(CDS_Main.fieldbyname('CYHX').AsString); + FieldByName('CYColor').Value:=Trim(CDS_Main.fieldbyname('CYColor').AsString); + Post; + end; + end; + end; + finally + frmCPSel.Free; + end; + +end; + +procedure TfrmYPCRIn.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + begin + Application.MessageBox('ڴɾѾݣ','ʾ',0); + Exit; + end; + CDS_Sub.Delete; +end; + +procedure TfrmYPCRIn.ToolButton4Click(Sender: TObject); +var + YCLCode,GYS:String; +begin + if CDS_Sub.IsEmpty then Exit; + CopyAddRow(tv1,CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('BCID').Value:=''; + FieldByName('CRID').Value:=NULL; + FieldByName('CYColor').Value:=''; + FieldByName('Note').Value:=''; + Post; + end; +end; + +procedure TfrmYPCRIn.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,CDS_Sub); +end; + +function TfrmYPCRIn.SaveData():Boolean; +var + MaxNo,SubId,strSQL,LQuantity,LQty,YLQty:string; + KID,i,PStatus,KID1,KID2:Integer; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CK_YP_CR where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(' and CYType='''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.FieldByName('QtyUnit').AsString)<>Trim(CDS_Sub.fieldbyname('QtyUnit').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('λ!','ʾ',0); + Exit; + end; + end; + if Trim(CDS_Sub.FieldByName('Qty').AsString)='' then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('Qty').Value:='0'; + CDS_Sub.Post; + end; + + + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_KC where WeiZhi='''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + sql.Add(' and KCQty>0'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('λѾռ!','ʾ',0); + Exit; + end; } + SaveKCData(); + // + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + begin + SubId:=Trim(CDS_Sub.fieldbyname('BCId').AsString); + end else + begin + if GetLSNo(ADOQueryCmd,SubId,'BC','CK_YP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YP_CR where BCId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + Edit + else + Append; + FieldByName('BCId').Value:=Trim(SubId); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv1,CDS_Sub,'CK_YP_CR',2); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_YP_CR',2); + FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('CRtime').Value; + FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + FieldByName('CYColor').Value:=CDS_Sub.fieldbyname('CYColor').Value; + FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + FieldByName('QtyUnit').Value:=CDS_Sub.fieldbyname('QtyUnit').Value; + FieldByName('Note').Value:=CDS_Sub.fieldbyname('Note').Value; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').Value; + FieldByName('QtyFlag').Value:=1; + FieldByName('CRID').Value:=StrToInt(FCRID); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + if Trim(CDS_Sub.fieldbyname('BCId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('Note').Value:=Trim(CDS_Sub.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID)'); + sql.Add(' where CRID='+Trim(FCRID)); + ExecSQL; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_KC where CRID in(select CRID from CK_YP_KC '); + sql.Add(' where not exists(select * from CK_YP_CR A where A.CRID=CK_YP_KC.CRID))'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FMainID:=SubId; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmYPCRIn.SaveKCData(); +var + LQty:String; + PState:Integer; +begin + PState:=0; + if Trim(CDS_Sub.fieldbyname('BCID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_CR where BCID='''+Trim(CDS_Sub.fieldbyname('BCID').AsString)+''''); + Open; + end; + LQty:=Trim(ADOQueryTemp.fieldbyname('Qty').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_KC Set KCQty=KCQty-'+LQty); + SQL.Add(' where CRID='+Trim(ADOQueryTemp.fieldbyname('CRID').AsString)); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YP_KC'); + sql.Add(' where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(' and isnull(CYType,'''')='''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + sql.Add(' and isnull(CYColor,'''')='''+Trim(CDS_Sub.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and isnull(PBFactory,'''')='''+Trim(CDS_Sub.fieldbyname('PBFactory').AsString)+''''); + sql.Add(' and isnull(RCFactory,'''')='''+Trim(CDS_Sub.fieldbyname('RCFactory').AsString)+''''); + sql.Add(' and isnull(HJGFactory,'''')='''+Trim(CDS_Sub.fieldbyname('HJGFactory').AsString)+''''); + sql.Add(' and isnull(KCQtyUnit,'''')='''+Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(' and isnull(WeiZhi,'''')='''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + sql.Add(' and isnull(KCNote,'''')='''+Trim(CDS_Sub.fieldbyname('Note').AsString)+''''); + //sql.Add(' and isnull(MiLenNote,'''')='''+Trim(CDS_Sub.fieldbyname('MiLenNote').AsString)+''''); + // sql.Add(' and isnull(BZType,'''')='''+Trim(CDS_Sub.fieldbyname('BZType').AsString)+''''); + {if Trim(CDS_Sub.fieldbyname('CRPrice').AsString)<>'' then + begin + sql.Add(' and CRPrice='+Trim(CDS_Sub.fieldbyname('CRPrice').AsString)); + end else + begin + sql.Add(' and CRPrice=0'); + end; } + + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_YP_CRID Set CRID=CRID+1 select * from CK_YP_CRID'); + ExecSQL; + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + PState:=1; + end; + if PState=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_YP_KC(CRID,CYID,CYColor,PBFactory,KCQtyUnit,KCValid,CYType,KCNote,RCFactory,HJGFactory,WeiZhi)'); + sql.Add(' select '+FCRID); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYColor').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('PBFactory').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(',''Y'' '); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('Note').AsString)+''''); + // sql.Add(','''+Trim(CDS_Sub.fieldbyname('BZType').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('RCFactory').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('HJGFactory').AsString)+''''); + {if Trim(CDS_Sub.fieldbyname('CRPrice').AsString)<>'' then + sql.Add(','+Trim(CDS_Sub.fieldbyname('CRPrice').AsString)) + else + sql.Add(',0'); } + sql.Add(','''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + //sql.Add(','''+Trim(CDS_Sub.fieldbyname('MiLenNote').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=KCQty+'+Trim(CDS_Sub.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + ExecSQL; + end; +end; + +procedure TfrmYPCRIn.BtnSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',Null,[]) then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + { if CDS_Sub.Locate('CYNO',Null,[]) then + begin + Application.MessageBox('ƷŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CYColor',Null,[]) then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; } + if CDS_Sub.Locate('Qty',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',Null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CYType',Null,[]) then + begin + Application.MessageBox('ƷͲΪ!','ʾ',0); + Exit; + end; + { if CDS_Sub.Locate('CRPrice',Null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BZType',Null,[]) then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; } + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmYPCRIn.FormShow(Sender: TObject); +var + i:Integer; +begin + readCxGrid('ƷSTInput',Tv1,'Ʒֿ'); + InitGrid(); + if FCopyInt=99 then + begin + FMainID:=''; + with CDS_Sub do + begin + Edit; + FieldByName('BCID').Value:=''; + FieldByName('WeiZhi').Value:=''; + FieldByName('CRID').Value:=Null; + Post; + end; + end; + if Trim(FMainID)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_CR where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + sql.Add(' and CRFlag='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + for i:=0 to Tv1.ColumnCount-1 do + begin + Tv1.Columns[i].Options.Focusing:=False; + end; + v1Column1.Options.Focusing:=True; + v1Quantity.Options.Focusing:=True; + end; + end; + {FDate:=SGetServerDate(ADOQueryTemp); + if Trim(FMainID)='' then + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=FDate; + Post; + end; + end; } +end; + +procedure TfrmYPCRIn.v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ordcolor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CYColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYPCRIn.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WeiZhi'; + flagname:='λ'; + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('WeiZhi').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYPCRIn.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CYType'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CYType').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm new file mode 100644 index 0000000..d205c6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm @@ -0,0 +1,585 @@ +object frmYPInList: TfrmYPInList + Left = 64 + Top = 118 + Width = 1201 + Height = 618 + Caption = #26679#21697#20837#24211#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 = 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 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 ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #39044#35272 + ImageIndex = 66 + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 504 + Top = 0 + Width = 173 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 104 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object TBPrint: TToolButton + Left = 677 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object Panel2: TPanel + Left = 764 + Top = 0 + Width = 88 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label5: TLabel + Left = 8 + Top = 8 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 33 + Top = 5 + Width = 49 + Height = 20 + TabOrder = 0 + Text = '1' + end + end + object TBClose: TToolButton + Left = 852 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1185 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 288 + Top = 12 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object Label4: TLabel + Left = 435 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 566 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object CYNo: TEdit + Tag = 2 + Left = 337 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYColor: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CheckBox1: TCheckBox + Left = 693 + Top = 10 + Width = 145 + Height = 17 + Caption = #26174#31034#24211#23384#20026#38646#30340#25968#25454 + TabOrder = 4 + end + object CYType: TEdit + Tag = 2 + Left = 593 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 5 + OnChange = CYNoChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 88 + Width = 1113 + Height = 353 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column25: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column18: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column14: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column10: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column11: TcxGridDBColumn + Caption = #33521#25991#39068#33394#8216 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column20: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column19: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column21: TcxGridDBColumn + Caption = #26465#30721'ID' + DataBinding.FieldName = 'CYID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 504 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 528 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 560 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 176 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 472 + Top = 176 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 588 + Top = 176 + end + object ADOQueryHC: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 224 + 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 = 144 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 360 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas b/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas new file mode 100644 index 0000000..325296e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas @@ -0,0 +1,589 @@ +unit U_YPInList; + +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, cxCheckBox, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, BtnEdit; + +type + TfrmYPInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CYNo: TEdit; + CYColor: TEdit; + CDS_Main: TClientDataSet; + ADOQueryHC: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column20: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column21: TcxGridDBColumn; + Panel2: TPanel; + Edit1: TEdit; + Label5: TLabel; + v1Column25: TcxGridDBColumn; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ToolButton2: TToolButton; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + CYType: 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 TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure CYNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure LabNameBtnClick(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SaveChkData(); + procedure SaveChkNoData(); + procedure ReadINIFile(); + { Private declarations } + public + { Public declarations } + end; + +var + frmYPInList: TfrmYPInList; + +implementation +uses + U_DataLink,U_RTFun,U_YPCRIn,U_FileUp, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmYPInList.FormDestroy(Sender: TObject); +begin + frmYPInList:=nil; +end; +procedure TfrmYPInList.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 TfrmYPInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmYPInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒб',Tv1,'Ʒֿ'); +end; + +procedure TfrmYPInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + SQL.Add(' and CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and CRFlag='''' '); + if CheckBox1.Checked=False then + begin + sql.Add(' and KCQty>0'); + end; + { sql.Add(' order by '); + sql.Add(' substring(A.WeiZhi,1,1),Cast(substring(A.WeiZhi,2,charindex(''-'',A.WeiZhi)-2) as Int)'); + sql.Add(',Cast(substring(A.WeiZhi,charindex(''-'',A.WeiZhi)+1,len(A.WeiZhi)-charindex(''-'',A.WeiZhi)) as Int)');} + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPInList.InitForm(); +begin + ReadCxGrid('Ʒб',Tv1,'Ʒֿ'); + + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-365; + InitGrid(); +end; + +procedure TfrmYPInList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmYPInList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainId:=Trim(self.CDS_Main.fieldbyname('BCId').AsString); + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + CDS_Main.Delete; + end; +end; + +function TfrmYPInList.DelData():Boolean; +var + FInt:Integer; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where BCId='''+Trim(CDS_Main.fieldbyname('BCId').AsString)+''''); + sql.Add('UPdate CK_YP_KC Set KCQty=KCQty-'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_KC '); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('г!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YP_SQ Set NowOutFlag=0 where SQID= '); + sql.Add(' (select Top 1 SQID from YP_SQ A where A.CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and A.CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + SQL.Add(' and A.YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQTime<='''+Trim(CDS_Main.fieldbyname('CRTime').AsString)+''''); + sql.Add(' and A.SQType='''' and A.ChkStatus=''ͨ'' '); + SQL.Add(' order by SQTime desc)'); + ExecSQL; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmYPInList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒб',cxGrid1); +end; + +procedure TfrmYPInList.TBAddClick(Sender: TObject); +begin + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainID:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + + +procedure TfrmYPInList.CYNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmYPInList.FormShow(Sender: TObject); +begin + InitForm(); + if Trim(DParameters1)='鿴' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; +end; +procedure TfrmYPInList.SaveChkData(); +var + FCRID:String; + PState:Integer; +begin + PState:=0; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YP_SQ_KC'); + sql.Add(' where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQQtyUnit='''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_YP_CRID Set CRID=CRID+1 select * from CK_YP_CRID'); + ExecSQL; + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + PState:=1; + end; + if PState=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into YP_SQ_KC(CRID,CYNO,CYColor,YWY,SQQtyUnit,KCValid)'); + sql.Add(' select '+FCRID); + sql.Add(','''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(',''Y'' '); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YP_SQ_KC Set SQQty=SQQty+'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + sql.Add('UPdate YP_SQ Set ChkStatus=''ͨ'' '); + sql.Add(',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=:ChkTime'); + sql.Add(',CRID='+FCRID); + sql.Add(' where SQID='''+Trim(CDS_Main.fieldbyname('SQID').AsString)+''''); + Parameters.ParamByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + ExecSQL; + end; +end; +procedure TfrmYPInList.SaveChkNoData(); +var + FCRID:String; +begin + if Trim(CDS_Main.FieldByName('ChkStatus').AsString)='ͨ' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YP_SQ_KC'); + sql.Add(' where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQQtyUnit='''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YP_SQ_KC Set SQQty=SQQty-'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + ExecSQL; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YP_SQ Set ChkStatus=''˲ͨ'' '); + sql.Add(',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=:ChkTime'); + sql.Add(' where SQID='''+Trim(CDS_Main.fieldbyname('SQID').AsString)+''''); + Parameters.ParamByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + ExecSQL; + end; + + +end; + +procedure TfrmYPInList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainId:=Trim(self.CDS_Main.fieldbyname('BCId').AsString); + //ToolButton1.Visible:=False; + //ToolButton2.Visible:=False; + //ToolButton3.Visible:=False; + //ToolButton4.Visible:=False; + FCopyInt:=99; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBPrintClick(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYNo.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmYPInList.ToolButton2Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + + +procedure TfrmYPInList.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm new file mode 100644 index 0000000..a6193cb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm @@ -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 = 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 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_PBMDDJ.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 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 = 2 + 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_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas new file mode 100644 index 0000000..4debb28 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm new file mode 100644 index 0000000..190f784 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas new file mode 100644 index 0000000..3f3ffb3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas @@ -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. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm new file mode 100644 index 0000000..d6411be --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm @@ -0,0 +1,1130 @@ +object frmZHKHInPutTabNew: TfrmZHKHInPutTabNew + Left = 440 + Top = 58 + Width = 1048 + Height = 744 + Align = alClient + Caption = #23637#20250#23458#25143#20449#24687#24405#20837 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1032 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1032 + Height = 676 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object cxPageControl1: TcxPageControl + Left = 0 + Top = 0 + Width = 1030 + Height = 674 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 674 + ClientRectRight = 1030 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#30784#20449#24687 + ImageIndex = 0 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 651 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 26 + Top = 79 + Width = 65 + Height = 12 + Caption = #23458#25143#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 277 + Top = 124 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#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 = 26 + Top = 212 + Width = 65 + Height = 12 + Caption = #32852#31995#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 26 + Top = 168 + Width = 65 + Height = 12 + Caption = #30005#35805#21495#30721#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 = 277 + Top = 168 + Width = 65 + Height = 12 + Caption = #20256#30495#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 277 + Top = 79 + Width = 65 + Height = 12 + Caption = #23458#25143#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 26 + Top = 124 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 26 + Top = 257 + Width = 65 + Height = 12 + Caption = #25509#27965#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 26 + Top = 37 + Width = 65 + Height = 12 + Caption = #23458#25143#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 277 + Top = 37 + Width = 65 + Height = 12 + Caption = #23458#25143#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 501 + Top = 79 + Width = 52 + Height = 12 + Caption = #65288#33521#25991#65289 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 26 + Top = 300 + Width = 65 + Height = 12 + Caption = #20844#21496#32593#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 274 + Top = 257 + Width = 65 + Height = 12 + Caption = #23458#25143#26469#28304#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHName: TEdit + Tag = 2 + Left = 91 + Top = 76 + Width = 160 + Height = 18 + TabOrder = 0 + end + object YWY: TEdit + Tag = 2 + Left = 341 + Top = 121 + Width = 160 + Height = 18 + TabOrder = 1 + end + object ZKAddress: TEdit + Tag = 2 + Left = 91 + Top = 209 + Width = 410 + Height = 18 + TabOrder = 2 + end + object ZKTelNo: TEdit + Tag = 2 + Left = 91 + Top = 165 + Width = 160 + Height = 18 + TabOrder = 3 + end + object ZKFax: TEdit + Tag = 2 + Left = 341 + Top = 165 + Width = 160 + Height = 18 + TabOrder = 4 + end + object KHNameEng: TEdit + Tag = 2 + Left = 341 + Top = 76 + Width = 160 + Height = 18 + TabOrder = 5 + end + object KHNameJC: TEdit + Tag = 2 + Left = 91 + Top = 121 + Width = 160 + Height = 18 + TabOrder = 6 + end + object ZKDate: TDateTimePicker + Tag = 2 + Left = 91 + Top = 253 + Width = 160 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 7 + end + object KHCode: TEdit + Tag = 2 + Left = 91 + Top = 34 + Width = 160 + Height = 18 + CharCase = ecUpperCase + TabOrder = 8 + end + object NetAddress: TEdit + Tag = 2 + Left = 91 + Top = 297 + Width = 410 + Height = 18 + TabOrder = 9 + end + object KHType: TBtnEditA + Tag = 2 + Left = 338 + Top = 32 + Width = 161 + Height = 20 + TabOrder = 10 + OnBtnClick = KHTypeBtnClick + end + object KHLaiYuan: TBtnEditA + Tag = 2 + Left = 338 + Top = 253 + Width = 161 + Height = 20 + TabOrder = 11 + OnBtnClick = KHLaiYuanBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = 'BOSS'#20449#24687 + ImageIndex = 1 + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 651 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 302 + Top = 36 + Width = 65 + Height = 12 + Caption = #32852#31995#30005#35805#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 = 30 + Top = 36 + Width = 52 + Height = 12 + Caption = #32852#31995#20154#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 = 30 + Top = 81 + Width = 55 + Height = 14 + Caption = 'Email'#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 30 + Top = 215 + Width = 27 + Height = 12 + Caption = 'QQ'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 30 + Top = 170 + Width = 34 + Height = 12 + Caption = 'MSN'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 302 + Top = 170 + Width = 48 + Height = 12 + Caption = 'SKYPE'#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 = 30 + Top = 126 + Width = 65 + Height = 12 + Caption = #24555#20214#22320#22336#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ZKPhone: TEdit + Tag = 2 + Left = 362 + Top = 33 + Width = 160 + Height = 18 + TabOrder = 0 + end + object ZKPerson: TEdit + Tag = 2 + Left = 91 + Top = 33 + Width = 160 + Height = 18 + TabOrder = 1 + end + object ZKEmail: TEdit + Tag = 2 + Left = 91 + Top = 79 + Width = 432 + Height = 18 + TabOrder = 2 + end + object BossQQ: TEdit + Tag = 2 + Left = 91 + Top = 212 + Width = 160 + Height = 18 + TabOrder = 3 + end + object BossMSN: TEdit + Tag = 2 + Left = 91 + Top = 167 + Width = 160 + Height = 18 + TabOrder = 4 + end + object BossSKYPE: TEdit + Tag = 2 + Left = 362 + Top = 167 + Width = 160 + Height = 18 + TabOrder = 5 + end + object BossKJAddress: TEdit + Tag = 2 + Left = 91 + Top = 124 + Width = 432 + Height = 18 + TabOrder = 6 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #19994#21153#20449#24687 + ImageIndex = 2 + object cxGrid1: TcxGrid + Tag = 2 + Left = 0 + Top = 29 + Width = 1030 + Height = 622 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #32852#31995#20154 + DataBinding.FieldName = 'ZSPerson' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #32844#20301 + DataBinding.FieldName = 'ZSDuty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #25163#26426 + DataBinding.FieldName = 'ZSPhone' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'ZSTelNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = 'FAX' + DataBinding.FieldName = 'ZSFax' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = 'EAMIL' + DataBinding.FieldName = 'ZSEmail' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = 'QQ' + DataBinding.FieldName = 'ZSQQ' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = 'MSN' + DataBinding.FieldName = 'ZSMSN' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = 'SKYPE' + DataBinding.FieldName = 'ZSSKYPE' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #24555#20214#22320#22336 + DataBinding.FieldName = 'ZSKJAddress' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1030 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton5Click + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #36130#21153#20449#24687 + ImageIndex = 3 + object cxGrid2: TcxGrid + Tag = 2 + Left = 0 + Top = 289 + Width = 1030 + Height = 362 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'CWTaiTou' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #24320#25143#34892 + DataBinding.FieldName = 'CWBankName' + HeaderAlignmentHorz = taCenter + Width = 137 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #36134#21495 + DataBinding.FieldName = 'CWBankAccount' + HeaderAlignmentHorz = taCenter + Width = 131 + end + object V2Column1: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'CWNote' + Width = 146 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label14: TLabel + Left = 302 + Top = 32 + Width = 65 + Height = 12 + Caption = #32852#31995#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 30 + Top = 32 + Width = 52 + Height = 12 + Caption = #32852#31995#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 30 + Top = 77 + Width = 55 + Height = 14 + Caption = 'Email'#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 30 + Top = 211 + Width = 27 + Height = 12 + Caption = 'QQ'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 30 + Top = 166 + Width = 34 + Height = 12 + Caption = 'MSN'#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 = 302 + Top = 166 + Width = 48 + Height = 12 + Caption = 'SKYPE'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 30 + Top = 122 + Width = 65 + Height = 12 + Caption = #24555#20214#22320#22336#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CWPhone: TEdit + Tag = 2 + Left = 362 + Top = 29 + Width = 160 + Height = 18 + TabOrder = 0 + end + object CWPerson: TEdit + Tag = 2 + Left = 91 + Top = 29 + Width = 160 + Height = 18 + TabOrder = 1 + end + object CWEmail: TEdit + Tag = 2 + Left = 91 + Top = 75 + Width = 432 + Height = 18 + TabOrder = 2 + end + object CWQQ: TEdit + Tag = 2 + Left = 91 + Top = 208 + Width = 160 + Height = 18 + TabOrder = 3 + end + object CWMSN: TEdit + Tag = 2 + Left = 91 + Top = 163 + Width = 160 + Height = 18 + TabOrder = 4 + end + object CWSKYPE: TEdit + Tag = 2 + Left = 362 + Top = 163 + Width = 160 + Height = 18 + TabOrder = 5 + end + object CWKJAddress: TEdit + Tag = 2 + Left = 91 + Top = 120 + Width = 432 + Height = 18 + TabOrder = 6 + end + object ToolBar3: TToolBar + Left = 2 + Top = 256 + Width = 1026 + Height = 31 + Align = alBottom + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 7 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton6: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton6Click + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #24773#20917#35828#26126 + ImageIndex = 6 + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 1030 + 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_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton3Click + end + end + object cxGrid4: TcxGrid + Tag = 2 + Left = 0 + Top = 29 + Width = 1030 + Height = 379 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv4CellClick + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'QKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #20027#39064 + DataBinding.FieldName = 'QKZhuTi' + HeaderAlignmentHorz = taCenter + Width = 151 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35828#26126 + DataBinding.FieldName = 'QKNote' + HeaderAlignmentHorz = taCenter + Width = 493 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + object RichEdit1: TRichEdit + Left = 0 + Top = 408 + Width = 1030 + Height = 243 + Align = alBottom + ScrollBars = ssBoth + TabOrder = 2 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 536 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 480 + Top = 65533 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 504 + Top = 65533 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 60 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 648 + Top = 60 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 100 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 656 + Top = 100 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 188 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 664 + Top = 188 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 60 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 592 + Top = 100 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 592 + Top = 188 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas new file mode 100644 index 0000000..37b14f2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas @@ -0,0 +1,575 @@ +unit U_ZHKHInPutTabNew; + +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,jpeg, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, + cxGridCustomPopupMenu, cxGridPopupMenu,IdGlobal; + +type + TfrmZHKHInPutTabNew = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel5: TPanel; + cxTabSheet7: TcxTabSheet; + v1Column10: TcxGridDBColumn; + Label14: TLabel; + Label15: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + CWPhone: TEdit; + CWPerson: TEdit; + CWEmail: TEdit; + CWQQ: TEdit; + CWMSN: TEdit; + CWSKYPE: TEdit; + Label23: TLabel; + CWKJAddress: TEdit; + ToolBar2: TToolBar; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolBar3: TToolBar; + ToolButton2: TToolButton; + ToolButton6: TToolButton; + Panel3: TPanel; + Label1: TLabel; + Label4: TLabel; + Label7: TLabel; + Label10: TLabel; + Label11: TLabel; + Label9: TLabel; + Label13: TLabel; + KHName: TEdit; + YWY: TEdit; + ZKAddress: TEdit; + ZKTelNo: TEdit; + ZKFax: TEdit; + KHNameEng: TEdit; + KHNameJC: TEdit; + Label3: TLabel; + ZKDate: TDateTimePicker; + Panel4: TPanel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ZKPhone: TEdit; + ZKPerson: TEdit; + ZKEmail: TEdit; + BossQQ: TEdit; + BossMSN: TEdit; + BossSKYPE: TEdit; + Label12: TLabel; + BossKJAddress: TEdit; + Label33: TLabel; + KHCode: TEdit; + Label34: TLabel; + TBSave: TToolButton; + V2Column1: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ToolBar5: TToolBar; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + RichEdit1: TRichEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + Label25: TLabel; + Label32: TLabel; + NetAddress: TEdit; + v1Column4: TcxGridDBColumn; + Label35: TLabel; + KHType: TBtnEditA; + KHLaiYuan: TBtnEditA; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure SKBankBtnDnClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv4CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure KHTypeBtnClick(Sender: TObject); + procedure KHLaiYuanBtnClick(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + procedure SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String); + + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId,FTFID:String; + FXS,TPInt,SaveInt,TPIntOther,FWH:Integer; + { Public declarations } + end; + +var + frmZHKHInPutTabNew: TfrmZHKHInPutTabNew; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZHKHInPutTabNew.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('KH1',Tv1,'ͻϢ'); + WriteCxGrid('KH2',Tv2,'ͻϢ'); + WriteCxGrid('KH4',Tv4,'ͻϢ'); + Close; +end; + +procedure TfrmZHKHInPutTabNew.InitData(); +var + fsj:string; +begin + cxPageControl1.ActivePageIndex:=0; + ReadCxGrid('KH1',Tv1,'ͻϢ'); + ReadCxGrid('KH2',Tv2,'ͻϢ'); + ReadCxGrid('KH4',Tv4,'ͻϢ'); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,Panel4,2); + SCSHDataNew(ADOQuery1,Panel5,2); + KHType.Text:=Trim(ADOQuery1.fieldbyname('KHType').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''YW'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''CW'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''QK'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); + if PState=0 then + begin + ZKDate.DateTime:=SGetServerDateTime(ADOTemp); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + end; + +end; + + + +procedure TfrmZHKHInPutTabNew.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmZHKHInPutTabNew.SaveData():Boolean; +var + maxno,maxsubno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'ZK','ZH_KH_Info',3,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 ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('ZKId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel3,2); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel4,2); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel5,2); + FieldByName('Type').Value:='KH'; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Valid').Value:='Y'; + + Post; + end; + if Trim(KHName.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHCode.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHCode='''+Trim(KHCode.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHNameJC.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameJC='''+Trim(KHNameJC.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + if Trim(KHNameEng.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameEng='''+Trim(KHNameEng.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + end; + SaveCDS(ClientDataSet1,Tv1,maxno,'YW'); + SaveCDS(ClientDataSet2,TV2,maxno,'CW'); + SaveCDS(ClientDataSet4,Tv4,maxno,'QK'); + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmZHKHInPutTabNew.SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String); +var + maxsubno:string; +begin + with ClientDataSet20 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'ZS','ZH_KH_Info_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet20.fieldbyname('ZSID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZSID='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('ZKID').Value:=Trim(maxno10); + FieldByName('ZSID').Value:=Trim(maxsubno); + FieldByName('ZSType').Value:=Trim(ZSType); + RTSetSaveDataCDS(ADOCmd,Tv20,ClientDataSet20,'ZH_KH_Info_Sub',2); + Post; + end; + Edit; + FieldByName('ZSID').Value:=Trim(maxsubno); + post; + Next; + end; + end; +end; +procedure TfrmZHKHInPutTabNew.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmZHKHInPutTabNew.SKBankBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + + + +procedure TfrmZHKHInPutTabNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + if SaveInt=99 then + begin + ModalResult:=1; + end; +end; + +procedure TfrmZHKHInPutTabNew.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(KHName.Text)+Trim(KHNameEng.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if Trim(KHType.Text)='' then + begin + Application.MessageBox('ͻͲΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + SaveInt:=99; + end; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton4Click(Sender: TObject); +begin + ClientDataSet1.Append; + ClientDataSet1.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton5Click(Sender: TObject); +begin + DelCDS(ClientDataSet1,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet1.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.ToolButton2Click(Sender: TObject); +begin + ClientDataSet2.Append; + ClientDataSet2.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton6Click(Sender: TObject); +begin + DelCDS(ClientDataSet2,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet2.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.ToolButton1Click(Sender: TObject); +begin + ClientDataSet4.Append; + ClientDataSet4.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton3Click(Sender: TObject); +begin + DelCDS(ClientDataSet4,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet4.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.Tv4CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + RichEdit1.Text:=Trim(ClientDataSet4.fieldbyname('QKNote').AsString); +end; + +procedure TfrmZHKHInPutTabNew.KHTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ZHKHType'; + flagname:='ͻ'; + if ShowModal=1 then + begin + KHType.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmZHKHInPutTabNew.KHLaiYuanBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ZHKHLaiYuan'; + flagname:='ͻԴ'; + if ShowModal=1 then + begin + KHLaiYuan.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm new file mode 100644 index 0000000..ba69859 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm @@ -0,0 +1,540 @@ +object frmZHKHListNew: TfrmZHKHListNew + Left = 86 + Top = 89 + Width = 1182 + Height = 606 + Caption = #23637#20250#23458#25143#30331#35760 + 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 = 1166 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 630 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 468 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column10: TcxGridDBColumn + Caption = #23458#25143#26469#28304 + DataBinding.FieldName = 'KHLaiYuan' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column1: TcxGridDBColumn + Caption = #23458#25143#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object v1Column6: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v1Column7: TcxGridDBColumn + Caption = 'Email' + DataBinding.FieldName = 'HZEmail' + Width = 150 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column9: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26597#35810#26102#38388 + 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 = 15 + Width = 52 + Height = 12 + Caption = #23458#25143#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 179 + Top = 39 + Width = 52 + Height = 12 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 384 + Top = 39 + Width = 65 + Height = 12 + Caption = #23458#25143#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 384 + Top = 15 + Width = 35 + Height = 12 + Caption = 'Email' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 632 + Top = 39 + Width = 65 + Height = 12 + Caption = #23458#25143#26469#28304#65306 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KHNameJC: TEdit + Tag = 2 + Left = 236 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object CheckBox1: TCheckBox + Left = 635 + Top = 12 + Width = 105 + Height = 17 + Caption = #25353#26085#26399#26597#35810 + TabOrder = 3 + end + object KHCode: TEdit + Tag = 2 + Left = 236 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object KHType: TComboBox + Tag = 2 + Left = 448 + Top = 35 + Width = 161 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object HZEmail: TEdit + Tag = 2 + Left = 448 + Top = 11 + Width = 160 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object KHLaiYuan: TComboBox + Tag = 2 + Left = 693 + Top = 35 + Width = 123 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 296 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 320 + Top = 160 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 384 + Top = 160 + 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 448 + Top = 160 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 328 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 296 + end + object PopupMenu2: TPopupMenu + Left = 648 + Top = 168 + object N11: TMenuItem + Caption = #26684#24335'1' + end + object N21: TMenuItem + Caption = #26684#24335'2' + end + object N31: TMenuItem + Caption = #26684#24335'3' + end + end + object CDS_Chk: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 504 + end + object DS_Chk: TDataSource + DataSet = CDS_Chk + Left = 176 + Top = 528 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 304 + Top = 488 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 568 + Top = 528 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 504 + end + object DS_Sub: TDataSource + DataSet = CDS_Sub + Left = 672 + Top = 528 + end + object CDS_Chker: TClientDataSet + Aggregates = <> + Params = <> + Left = 832 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas new file mode 100644 index 0000000..1a0db03 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas @@ -0,0 +1,442 @@ +unit U_ZHKHListNew; + +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, cxButtonEdit, cxDropDownEdit; + +type + TfrmZHKHListNew = 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; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + PopupMenu2: TPopupMenu; + N11: TMenuItem; + N21: TMenuItem; + N31: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + KHNameJC: TEdit; + v1Column5: TcxGridDBColumn; + CDS_Chk: TClientDataSet; + DS_Chk: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + CDS_Sub: TClientDataSet; + DS_Sub: TDataSource; + v1Column2: TcxGridDBColumn; + CDS_Chker: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CheckBox1: TCheckBox; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + KHType: TComboBox; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + HZEmail: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label4: TLabel; + KHLaiYuan: 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 TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(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 ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + Canshu1:String; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmZHKHListNew: TfrmZHKHListNew; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_ZHKHInPutTabNew, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZHKHListNew.FormDestroy(Sender: TObject); +begin + frmZHKHListNew:=nil; +end; + +procedure TfrmZHKHListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZHKHListNew.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); + Canshu1:=Trim(DParameters1); +end; + +procedure TfrmZHKHListNew.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('չͻǼN',Tv1,'ͻ'); + +end; + +procedure TfrmZHKHListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,HZEmail=dbo.F_Get_KHInfo(A.ZKID,''Email'') '); + sql.Add(' from ZH_KH_Info A '); + if CheckBox1.Checked then + begin + SQL.Add('where ZKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and ZKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + begin + SQL.Add(' where 1=1 '); + end; + sql.Add(' and Type=''KH'' '); + if Trim(Canshu1)<>'Ȩ' then + begin + if Trim(Canshu1)='' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add('(select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end else + begin + sql.Add('and (A.Filler='''+Trim(DName)+''''); + sql.Add(' or YWY='''+Trim(DName)+''')'); + end; + sql.Add(' and Valid=''Y'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZHKHListNew.InitForm(); +var + fsj:string; +begin + ReadCxGrid('չͻǼN',Tv1,'ͻ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + fsj:='select distinct(KHLaiYuan) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHLaiYuan,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHLaiYuan,False,fsj); + fsj:='select distinct(KHType) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHType,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHType,False,fsj); + InitGrid(); +end; + +procedure TfrmZHKHListNew.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 TfrmZHKHListNew.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Canshu1)='' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(Order_Main.fieldbyname('YWY').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + end; + + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + FTFID:=Trim(Self.Order_Main.fieldbyname('TPID').AsString); + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + Self.Order_Main.Locate('ZKID',Trim(FMainId),[]); + with Self.Order_Main do + begin + Edit; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Canshu1)='' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(Order_Main.fieldbyname('YWY').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmZHKHListNew.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZHKHListNew.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͻ',cxGrid1); +end; + +procedure TfrmZHKHListNew.TBRafreshClick(Sender: TObject); +var + fsj:String; +begin + InitGrid(); + fsj:='select distinct(KHLaiYuan) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHLaiYuan,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHLaiYuan,False,fsj); + fsj:='select distinct(KHType) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHType,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHType,False,fsj); +end; + +procedure TfrmZHKHListNew.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=0; + FMainId:=''; + FTFID:=''; + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Append; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmZHKHListNew.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNew.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmZHKHListNew.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar5.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + FTFID:=''; + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Append; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmZHKHListNew.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 TfrmZHKHListNew.Tv1DblClick(Sender: TObject); +begin + ToolButton1.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm new file mode 100644 index 0000000..b67984c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm @@ -0,0 +1,308 @@ +object frmZHKHListNewCX: TfrmZHKHListNewCX + Left = 74 + Top = 105 + Width = 1182 + Height = 574 + Caption = #23458#25143#26597#35810 + 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 = 1166 + 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 TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + Visible = False + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 436 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #23458#25143#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object v1Column6: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Width = 139 + end + object v1Column7: TcxGridDBColumn + Caption = 'Email' + DataBinding.FieldName = 'HZEmail' + Width = 156 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26597#35810#26102#38388 + 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 = 15 + Width = 52 + Height = 12 + Caption = #23458#25143#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 179 + Top = 39 + Width = 52 + Height = 12 + Caption = #23458#25143#32534#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 = 376 + Top = 15 + Width = 35 + Height = 12 + Caption = 'Email' + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KHNameJC: TEdit + Tag = 2 + Left = 236 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + object CheckBox1: TCheckBox + Left = 419 + Top = 38 + Width = 105 + Height = 17 + Caption = #25353#26085#26399#26597#35810 + TabOrder = 3 + end + object KHCode: TEdit + Tag = 2 + Left = 236 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + object HZEmail: TEdit + Tag = 2 + Left = 416 + Top = 11 + Width = 160 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 480 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 552 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 448 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas new file mode 100644 index 0000000..64fe787 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas @@ -0,0 +1,359 @@ +unit U_ZHKHListNewCX; + +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, cxButtonEdit, cxDropDownEdit; + +type + TfrmZHKHListNewCX = 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; + Order_Main: TClientDataSet; + ToolButton3: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + KHNameJC: TEdit; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CheckBox1: TCheckBox; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + HZEmail: TEdit; + v1Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure KHNameJCKeyPress(Sender: TObject; var Key: Char); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1DblClick(Sender: TObject); + private + CanShu1:String; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmZHKHListNewCX: TfrmZHKHListNewCX; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmZHKHListNewCX.FormDestroy(Sender: TObject); +begin + frmZHKHListNewCX:=nil; +end; + +procedure TfrmZHKHListNewCX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZHKHListNewCX.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmZHKHListNewCX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('չͻǼN',Tv1,'ͻ'); + +end; + +procedure TfrmZHKHListNewCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,HZEmail=dbo.F_Get_KHInfo(A.ZKID,''Email'') '); + sql.Add(' from ZH_KH_Info A '); + + if CheckBox1.Checked then + begin + SQL.Add('where ZKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and ZKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + begin + SQL.Add(' where 1=1 '); + end; + if Trim(CanShu1)<>'Ȩ' then + begin + //sql.Add(' and A.Filler in (select UserName from SY_User SU where SU.DPID in(select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + sql.Add(' and (A.Filler='''+Trim(DName)+''' or A.YWY='''+Trim(DName)+''')'); + end; + sql.Add(' and Type=''KH'' '); + sql.Add(' and Valid=''Y'' '); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and (A.Filler='''+Trim(DName)+''''); + sql.Add(' or YWY='''+Trim(DName)+''')'); + + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZHKHListNewCX.InitForm(); +begin + ReadCxGrid('չͻǼN',Tv1,'ͻ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if Trim(CanShu1)<>'Ȩ' then + begin + v1Column7.Visible:=False; + v1Column7.Hidden:=True; + end; + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.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 TfrmZHKHListNewCX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZHKHListNewCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmZHKHListNewCX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmZHKHListNewCX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmZHKHListNewCX.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmZHKHListNewCX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmZHKHListNewCX.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 TfrmZHKHListNewCX.KHNameJCKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrderCon_TT A where 1=1 '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + sql.Add(' and TTType='''+Trim(DParameters2)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmZHKHListNewCX.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Order_Main.FieldByName('ConFlag1').AsBoolean=False then + begin + if CDS_Chk.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete OrdCon_Chk where CKID='''+Trim(CDS_Chk.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + CDS_Chk.Delete; + end; } +end; + +procedure TfrmZHKHListNewCX.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm new file mode 100644 index 0000000..7b1352c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm @@ -0,0 +1,287 @@ +object frmZXBInPut: TfrmZXBInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #26816#39564#23433#25490#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 = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MDID' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column5: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 114 + end + object v1Column10: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column2: TcxGridDBColumn + Caption = #26700#21495 + DataBinding.FieldName = 'ZhuoNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 108 + end + object v1Column3: TcxGridDBColumn + Caption = #26700#26816#26085#26399 + DataBinding.FieldName = 'ZhuoDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column8: TcxGridDBColumn + Caption = #26700#26816#21305#25968 + DataBinding.FieldName = 'ZhuoPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column4: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JiTaiNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #26426#26816#26085#26399 + DataBinding.FieldName = 'JiTaiDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #26426#26816#21305#25968 + DataBinding.FieldName = 'JiTaiPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column1: TcxGridDBColumn + Caption = #25171#21253#26085#26399 + DataBinding.FieldName = 'DBDate' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #25171#21253#21305#25968 + DataBinding.FieldName = 'DBPS' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1ShipDate: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 138 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas new file mode 100644 index 0000000..a32a59a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas @@ -0,0 +1,269 @@ +unit U_ZXBInPut; + +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, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmZXBInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmZXBInPut: TfrmZXBInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZXBInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鰲¼',Tv1,''); +end; + +procedure TfrmZXBInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.PS,C.OrderNo'); + SQL.Add(' from JYOrder_Main_MD_CJ A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' where A.CJId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmZXBInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmZXBInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('鰲¼',Tv1,''); + InitData(); +end; +procedure TfrmZXBInPut.GetMaxConNO(); +begin + +end; +function TfrmZXBInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('CJID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'CJ','JYOrder_Main_MD_CJ',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('CJID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD_CJ where CJID='''+Trim(Order_Sub.fieldbyname('CJID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('CJID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('CJID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Main_MD_CJ',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('CJID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmZXBInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('MDID',null,[]) then + begin + Application.MessageBox('벻Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmZXBInPut.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmZXBInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('CJId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_CJ where CJId='''+Trim(Order_Sub.fieldbyname('CJId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmZXBInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm new file mode 100644 index 0000000..b9374d3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm @@ -0,0 +1,680 @@ +object frmZXBList: TfrmZXBList + Left = 6 + Top = 112 + Width = 1382 + Height = 547 + Caption = #26816#39564#23433#25490 + 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 = 1366 + AutoSize = True + 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_CYZZ.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 = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + 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 TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 383 + Top = 18 + Width = 26 + Height = 12 + Caption = #26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 561 + Top = 18 + 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 Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 748 + Top = 18 + Width = 26 + Height = 12 + Caption = #26700#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 = 831 + Top = 18 + Width = 39 + Height = 12 + Caption = #26426#21488#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 925 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 1047 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object MDID: TEdit + Tag = 2 + Left = 411 + Top = 14 + Width = 139 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = MDIDKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + end + object ZhuoNo: TEdit + Tag = 2 + Left = 775 + Top = 14 + Width = 45 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object JiTaiNo: TEdit + Tag = 2 + Left = 871 + Top = 14 + Width = 41 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 952 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 1075 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 8 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1366 + Height = 429 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + Column = v1Column22 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + Column = v1Column14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v1Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 106 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column5: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MDID' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 108 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 110 + end + object v1Column3: TcxGridDBColumn + Caption = #26700#21495 + DataBinding.FieldName = 'ZhuoNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Tag = 999 + Caption = #26700#26816#26085#26399 + DataBinding.FieldName = 'ZhuoDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column22: TcxGridDBColumn + Caption = #26700#26816#21305#25968 + DataBinding.FieldName = 'ZhuoPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JiTaiNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #26426#26816#26085#26399 + DataBinding.FieldName = 'JiTaiDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #26426#26816#21367#25968 + DataBinding.FieldName = 'JiTaiPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Tag = 999 + Caption = #25171#21253#26085#26399 + DataBinding.FieldName = 'DBDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #25171#21253#21305#25968 + DataBinding.FieldName = 'DBPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 999 + Caption = #31995#32479#25171#21253#26085#26399 + DataBinding.FieldName = 'XTDBDate' + Options.Editing = False + Width = 85 + end + object v1Column14: TcxGridDBColumn + Caption = #31995#32479#25171#21253#21305#25968 + DataBinding.FieldName = 'XTDBPS' + Width = 85 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.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 = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + 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 = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 672 + Top = 184 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas new file mode 100644 index 0000000..af99a64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas @@ -0,0 +1,556 @@ +unit U_ZXBList; + +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, cxCheckBox; + + +type + TfrmZXBList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + MDID: TEdit; + Label6: TLabel; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label4: TLabel; + ZhuoNo: TEdit; + Label5: TLabel; + JiTaiNo: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure MDIDKeyPress(Sender: TObject; var Key: Char); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmZXBList: TfrmZXBList; + +implementation +uses + U_DataLink,U_RTFun,U_ZXBInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmZXBList.FormDestroy(Sender: TObject); +begin + frmZXBList:=nil; +end; + +procedure TfrmZXBList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZXBList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鰲',Tv1,''); +end; + +procedure TfrmZXBList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,B.PS,B.Qty,B.MDDate,D.PRTHX '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(',XTDBDate=(select Top 1 Convert(varchar(10), WM.FillTime,120) from WFB_MJJY WM where WM.APID=A.MDID)'); + sql.Add(',XTDBPS=(select count(MJID) from WFB_MJJY WM where WM.APID=A.MDID)'); + SQL.Add(' from JYOrder_Main_MD_CJ A'); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on B.ORDSubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmZXBList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('鰲',Tv1,''); + //InitGrid(); +end; + +procedure TfrmZXBList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + try + frmZXBInPut:=TfrmZXBInPut.Create(Application); + with frmZXBInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CJID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZXBInPut.Free; + end; +end; + +procedure TfrmZXBList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmZXBList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_CJ where CJId='''+Trim(Order_Main.fieldbyname('CJId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZXBList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('鰲',cxGrid1); +end; + +procedure TfrmZXBList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.TBAddClick(Sender: TObject); +begin + try + frmZXBInPut:=TfrmZXBInPut.Create(Application); + with frmZXBInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZXBInPut.Free; + end; +end; + +procedure TfrmZXBList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmZXBList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='鰲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmZXBList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmZXBList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,B.PS,B.Qty,B.MDDate,D.PRTColor,D.PRTColorNo,D.PRTHX '); + sql.Add(',XTDBDate=(select Top 1 Convert(varchar(10), WM.FillTime,120) from WFB_MJJY WM where WM.APID=A.MDID)'); + sql.Add(',XTDBPS=(select count(MJID) from WFB_MJJY WM where WM.APID=A.MDID)'); + SQL.Add(' from JYOrder_Main_MD_CJ A'); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on B.ORDSubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmZXBList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmZXBList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.WorkerChange(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 TfrmZXBList.MDIDKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(MDID.Text))<4 then Exit; + fsj:=' and AA.MDID like '''+'%'+Trim(MDID.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmZXBList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmZXBList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmZXBList.ToolButton1Click(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 TfrmZXBList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmZXBList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm new file mode 100644 index 0000000..ddad6f2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas new file mode 100644 index 0000000..cc2fa99 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas @@ -0,0 +1,236 @@ +unit U_ZdyAttInput; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttInput = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmZdyAttInput: TfrmZdyAttInput; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttInput.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttInput.FormDestroy(Sender: TObject); +begin + //frmZdyAttInput:=nil; +end; + +procedure TfrmZdyAttInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + //Action:=caFree; +end; + +procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ¼',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttInput.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ¼',Tv2,'ͻԶ'); + InitGrid(); + if Trim(FCYID)='' then + begin + CDS_HZ.Append; + CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInput.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCYID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCYID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('ATID').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0); + FieldByName('Type').Value:='KHName'; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('ZdyNo').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('Type').Value:='KHName'; + FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' and Type=''KHName'' '); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + with CDS_HZ do + begin + Edit; + FieldByName('ATID').Value:=Trim(maxId); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject); +begin + if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then + begin + Application.MessageBox('ͻƲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + ModalResult:=1; + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm new file mode 100644 index 0000000..ec76201 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm @@ -0,0 +1,393 @@ +object frmZdyAttachCP: TfrmZdyAttachCP + Left = 108 + Top = 101 + Width = 1075 + Height = 569 + Caption = #20135#21697#36164#26009#31649#29702 + 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 = 1067 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_PBMDDJ.ThreeImgList + Flat = True + Images = DataLink_PBMDDJ.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 ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 68 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 243 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 306 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1067 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1067 + Height = 468 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 124 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 68 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + end + object v2Column8: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'DEFstr4' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 58 + end + object v2Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 61 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 61 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 114 + end + object v2Column14: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column15: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column16: TcxGridDBColumn + Caption = #20179#20301 + DataBinding.FieldName = 'DEFstr4' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 70 + end + object v2Column17: TcxGridDBColumn + Caption = #20179#20301#25968 + DataBinding.FieldName = 'DEFstr5' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 70 + end + object v2defflt1: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 741 + Top = 161 + 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 = 843 + Top = 147 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 840 + Top = 128 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas new file mode 100644 index 0000000..5b326e5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas @@ -0,0 +1,400 @@ +unit U_ZdyAttachCP; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComObj, + 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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + + FdDy=record + inc: integer; //ͻ׽־ + FDdys:string[32]; //ͻ׽ + FdDysName:string[32]; //ͻ׽ + end; + TfrmZdyAttachCP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2defflt1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachCP: TfrmZdyAttachCP; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachCP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''CP'' '); + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' order by zdyCode '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachCP.FormDestroy(Sender: TObject); +begin + frmZdyAttachCP:=nil; +end; + +procedure TfrmZdyAttachCP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachCP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachCP.TBDelClick(Sender: TObject); +begin + + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmZdyAttachCP.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachCP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCP.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachCP.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachCP.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachCP.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application); + with frmZdyAttInputCP do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP.Free; + end; } +end; + +procedure TfrmZdyAttachCP.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application); + with frmZdyAttInputCP do + begin + FCYID:=''; + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP.Free; + end; } +end; + +procedure TfrmZdyAttachCP.ToolButton5Click(Sender: TObject); +var + excelApp,WorkBook:Variant; + i,j,k,ExcelRowCount:integer; + maxId:string; +begin + + try + ExcelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter:='*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook :=ExcelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + + ExcelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL','Ϣ',MB_ICONERROR); + exit; + end; + + try + k:=0; + for i:=1 to 20 do + begin + if trim(excelapp.Cells[1,i].value)='' then break; + if trim(excelapp.Cells[1,i].value)='Ʒ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='ZdyCode'; + dFdDy[k].FdDysName:='Ʒ'; + end; + + if trim(excelapp.Cells[1,i].value)='Ʒ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='ZdyName'; + dFdDy[k].FdDysName:='Ʒ'; + end; + + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='defNote1'; + dFdDy[k].FdDysName:=''; + end; + + if trim(excelapp.Cells[1,i].value)='ɫ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr3'; + dFdDy[k].FdDysName:=''; + end; + + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='defNote2'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr5'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr1'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='ɷ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr2'; + dFdDy[k].FdDysName:='ɷ'; + end; + k:=k+1; + end; + except + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 2 to excelrowcount do + begin + if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where 1=2'); + open; + end; + ADOQueryCmd.Append; + for j:=0 to k-1 do + begin + ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value:=excelapp.Cells[i,dFdDy[j].inc].Value; + end; + ADOQueryCmd.FieldByName('ATID').Value:=Trim(maxId); + ADOQueryCmd.FieldByName('Type').Value:='CP'; + ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName); + ADOQueryCmd.Post; + + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+trim(maxId)+''' '); + open; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + FieldByName('ZdyNo').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(ADOQueryTemp.fieldbyname('ZdyName').AsString); + FieldByName('Type').Value:='CP'; + FieldByName('MainType').Value:=Trim(ADOQueryTemp.fieldbyname('DEFstr5').AsString); + Post; + end; + end; + WorkBook.Close; + ExcelApp.Quit; + ExcelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + WorkBook.Close; + ExcelApp.Quit; + ExcelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmZdyAttachCP.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF cds_Hz.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..7e9ef7d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm @@ -0,0 +1,337 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 192 + Top = 103 + Width = 1038 + Height = 618 + Caption = #20379#24212#21830#36164#26009#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_PBMDDJ.ThreeImgList + Flat = True + Images = DataLink_PBMDDJ.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 ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label2: TLabel + Left = 395 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 267 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 424 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #21152#24037#21378) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column10: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'zdyNameTj' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + 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 = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 773 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 813 + Top = 17 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 733 + Top = 17 + 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 = 768 + Top = 216 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 776 + Top = 184 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 184 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 731 + Top = 179 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 184 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..f61e536 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas @@ -0,0 +1,214 @@ +unit U_ZdyAttachGYS; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachGYS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYS:=nil; +end; + +procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2); + Close; +end; +procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete;} +end; + +procedure TfrmZdyAttachGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2); + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm new file mode 100644 index 0000000..e036640 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm @@ -0,0 +1,309 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 116 + Top = 115 + Width = 1142 + Height = 613 + Caption = #23458#25143#36164#26009#31649#29702 + 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 = 1126 + Height = 31 + 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 = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1126 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 190 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object ZdyName: TEdit + Tag = 2 + Left = 238 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1126 + Height = 504 + Align = alClient + TabOrder = 2 + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + 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 = 165 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas new file mode 100644 index 0000000..e488f6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas @@ -0,0 +1,162 @@ +unit U_ZdyAttachment; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + v2Column10: TcxGridDBColumn; + ToolButton4: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation +uses + U_DataLink,U_RTFun,U_RTZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachment.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); +begin + frmZdyAttachment:=nil; +end; + +procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachment.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmZdyAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm new file mode 100644 index 0000000..fdd877e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm @@ -0,0 +1,17 @@ +object frmZdyInput: TfrmZdyInput + Left = 165 + Top = 188 + Width = 870 + Height = 500 + Caption = #23458#25143#36164#26009#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas new file mode 100644 index 0000000..5bc42df --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas @@ -0,0 +1,30 @@ +unit U_ZdyInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs; + +type + TfrmZdyInput = class(TForm) + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmZdyInput: TfrmZdyInput; + +implementation + +{$R *.dfm} + +procedure TfrmZdyInput.FormDestroy(Sender: TObject); +begin + frmZdyInput:=nil; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas b/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas new file mode 100644 index 0000000..3d4ab11 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas @@ -0,0 +1,65 @@ + +unit U_iniParam; + +interface +uses + IniFiles,SysUtils; +var + Filename:string; //ļ + iParam2:integer; + bParam1:Boolean; + bParam2:Boolean; + SCXFlag:String; // ݴ˱־ȡǰ׺ ܰĸ 1,2 + SCXCount:String; //̨ + PortNoStr:string;//˿ں + DllName:string;//˿Dllļ + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + programIni:=Tinifile.create(FileName); + SCXFlag:=programIni.ReadString('','̨־','1'); + SCXCount:=programIni.ReadString('','̨','1'); + PortNoStr:=programIni.ReadString('','˿ں','com1'); + DllName:=programIni.ReadString('','˿Dllļ','JZCRS323C.DLL'); + programIni.Free; +end; + +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + programIni:=Tinifile.create(FileName); + programIni.WriteString('','̨־',SCXFlag); + programIni.WriteString('','̨',SCXCount); + programIni.WriteString('','˿ں',PortNoStr); + programIni.WriteString('','˿Dllļ',DllName); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm b/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm new file mode 100644 index 0000000..6b709b8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 203 + Top = 121 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 775 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_testdll.pas b/坯布码单待检(PBMDDJ.dll)/U_testdll.pas new file mode 100644 index 0000000..ccbe2a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_testdll.pas @@ -0,0 +1,106 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('PBMDDJ.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('ygcode'), + PChar('ygname'), + PChar('datebase'), + PChar('title'), + PChar(''), + PChar(''), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; + +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/consvr.ini b/坯布码单待检(PBMDDJ.dll)/consvr.ini new file mode 100644 index 0000000..3a03c34 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/consvr.ini @@ -0,0 +1,2 @@ +[SERVER] +SERVER=192.168.88.254 \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.cfg b/坯布码单待检(PBMDDJ.dll)/testDll.cfg new file mode 100644 index 0000000..e9c1cc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.cfg @@ -0,0 +1,38 @@ +-$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" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.dof b/坯布码单待检(PBMDDJ.dll)/testDll.dof new file mode 100644 index 0000000..d454d72 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\뵥DDMD.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= diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.dpr b/坯布码单待检(PBMDDJ.dll)/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.res b/坯布码单待检(PBMDDJ.dll)/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/坯布码单待检(PBMDDJ.dll)/testDll.res differ diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg b/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg new file mode 100644 index 0000000..e9c1cc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg @@ -0,0 +1,38 @@ +-$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" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof b/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof new file mode 100644 index 0000000..9b5b586 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\֯(CYZZ.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= diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.res b/坯布码单待检(PBMDDJ.dll)/testDllDJ.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/坯布码单待检(PBMDDJ.dll)/testDllDJ.res differ diff --git a/应收应付/FieldExportSet/应付款付款统计列表.INI b/应收应付/FieldExportSet/应付款付款统计列表.INI new file mode 100644 index 0000000..e1695a1 --- /dev/null +++ b/应收应付/FieldExportSet/应付款付款统计列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/ͻ//Ʒ///Ӧ//ۼǷ/ע diff --git a/应收应付/FieldExportSet/应付款列表.INI b/应收应付/FieldExportSet/应付款列表.INI new file mode 100644 index 0000000..1ca9c5f --- /dev/null +++ b/应收应付/FieldExportSet/应付款列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin//Էλ/ĿժҪ//λ////ԭҽ/ҽ diff --git a/应收应付/FieldExportSet/检验分析订单.INI b/应收应付/FieldExportSet/检验分析订单.INI new file mode 100644 index 0000000..423fd63 --- /dev/null +++ b/应收应付/FieldExportSet/检验分析订单.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin///ɫ//()/õ diff --git a/应收应付/FieldExportSet/检验报告.INI b/应收应付/FieldExportSet/检验报告.INI new file mode 100644 index 0000000..0961376 --- /dev/null +++ b/应收应付/FieldExportSet/检验报告.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin diff --git a/应收应付/FieldExportSet/采购单列表.INI b/应收应付/FieldExportSet/采购单列表.INI new file mode 100644 index 0000000..8ea03c0 --- /dev/null +++ b/应收应付/FieldExportSet/采购单列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/ɹ/Fabric/ diff --git a/应收应付/ProjectGroup1.bpg b/应收应付/ProjectGroup1.bpg new file mode 100644 index 0000000..3a96072 --- /dev/null +++ b/应收应付/ProjectGroup1.bpg @@ -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 = YSYF.dll testDll.exe +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +YSYF.dll: YSYF.dpr + $(DCC) + +testDll.exe: testDll.dpr + $(DCC) + + diff --git a/应收应付/ProjectGroup1.~bpg b/应收应付/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/应收应付/ProjectGroup1.~bpg @@ -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) + + diff --git a/应收应付/SYSTEMSET.ini b/应收应付/SYSTEMSET.ini new file mode 100644 index 0000000..e4904d4 --- /dev/null +++ b/应收应付/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=127.0.0.1 +=XXXXXXX1 \ No newline at end of file diff --git a/应收应付/U_BpGdCklist.dfm b/应收应付/U_BpGdCklist.dfm new file mode 100644 index 0000000..0fcc070 --- /dev/null +++ b/应收应付/U_BpGdCklist.dfm @@ -0,0 +1,452 @@ +object frmBpGdCklist: TfrmBpGdCklist + Left = 87 + Top = 133 + Width = 1178 + Height = 579 + Caption = #20986#24211#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 = 1162 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TOK: TToolButton + Left = 63 + Top = 0 + Caption = #30830#23450 + ImageIndex = 41 + OnClick = TOKClick + end + object TBClose: TToolButton + Left = 122 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1162 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #20986#24211#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 = 168 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 464 + Top = 16 + 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 Label4: TLabel + Left = 628 + Top = 16 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 288 + Top = 16 + Width = 52 + Height = 12 + Caption = #20986#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 328 + Top = 56 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 772 + Top = 16 + 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 = 1000 + Top = 16 + Width = 65 + Height = 12 + Caption = #20986#24211#21333#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + 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 = 180 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object P_CodeName: TEdit + Tag = 2 + Left = 520 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object P_Color: TEdit + Tag = 2 + Left = 660 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = P_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 344 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeNameChange + Items.Strings = ( + '' + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object ckName: TComboBox + Left = 356 + Top = 52 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object cust: TEdit + Tag = 2 + Left = 804 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1162 + Height = 384 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.Default + object v1CRNO: TcxGridDBColumn + Caption = #20986#24211#32534#21495 + DataBinding.FieldName = 'CRNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1CRID: TcxGridDBColumn + Caption = #24207#27425#21495 + DataBinding.FieldName = 'CRID' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1CRTime: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + Width = 60 + end + object v1CRType: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + end + object v1cust: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'cust' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 50 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Filler: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1FillTime: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 724 + Top = 4 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 832 + Top = 4 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 856 + Top = 161 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 876 + Top = 101 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 508 + Top = 68 + end + object ADOPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 816 + Top = 16 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 848 + Top = 16 + end + object RMGridReport1: 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 = 896 + Top = 8 + 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 = 948 + Top = 20 + end +end diff --git a/应收应付/U_BpGdCklist.pas b/应收应付/U_BpGdCklist.pas new file mode 100644 index 0000000..48ddc8e --- /dev/null +++ b/应收应付/U_BpGdCklist.pas @@ -0,0 +1,365 @@ +unit U_BpGdCklist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, RM_System, RM_Dataset, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport; + +type + TfrmBpGdCklist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRType: TcxGridDBColumn; + v1CRTime: TcxGridDBColumn; + v1CRNO: TcxGridDBColumn; + v1CRID: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1FillTime: TcxGridDBColumn; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + P_CodeName: TEdit; + P_Color: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ckName: TComboBox; + Label6: TLabel; + v1P_Color: TcxGridDBColumn; + v1cust: TcxGridDBColumn; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + cust: TEdit; + Label7: TLabel; + Label8: TLabel; + TOK: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TOKClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure SetComboBox(); + { Private declarations } + public + fCKName:string; + fManage:string; + { Public declarations } + end; + +var + frmBpGdCklist: TfrmBpGdCklist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp; + {$R *.dfm} + +procedure TfrmBpGdCklist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''BPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''BPCKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpGdCklist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut A'); + sql.Add('where CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add('and CRFlag='''' '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select COUNT(distinct CRNo) as CRNo from BP_InOut A'); + sql.Add('where CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add('and CRFlag='''' '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); + open; + IF IsEmpty then + begin + Label8.Caption:='ⵥ0'; + end + else + begin + Label8.Caption:='ⵥ'+Fieldbyname('CRNo').AsString; + end; + end; + finally + end; +end; + +procedure TfrmBpGdCklist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'ƥֿ'); + Action:=cahide; +end; + +procedure TfrmBpGdCklist.FormDestroy(Sender: TObject); +begin + frmBpGdCklist:=nil; +end; + +procedure TfrmBpGdCklist.P_CodeNameChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpGdCklist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'ƥֿ'); + + InitGrid(); +end; + +procedure TfrmBpGdCklist.FormCreate(Sender: TObject); +begin + BegDate.Date:=date(); + EndDate.Date:=date(); + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpGdCklist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpGdCklist.TBEditClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BP_InOut A'); + SQL.Add('where A.kcid='''+Trim(CDS_Main.fieldbyname('kcid').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('Ѳݣ޸ģ','ʾ',0); + Exit; + end; } + + +end; + +procedure TfrmBpGdCklist.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + { if Trim(CDS_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } +{ with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BP_InOut A'); + SQL.Add('where A.kcid='''+Trim(CDS_Main.fieldbyname('kcid').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('Ѳݣɾ','ʾ',0); + Exit; + end; } + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + try + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + + + { sql.Add('update Contract_Cloth_DH set DHPS=A.DHPS - B.RollNum, DHQty=A.DHQty - B.Qty '); + sql.Add('from Contract_Cloth_DH A'); + sql.Add('inner join BP_INout B on cast(B.kcid as varchar)=A.SXDHID and rtrim(B.FirstName)=rtrim(A.FirstName)'); + sql.Add('where B.CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + sql.Add('and B.CRType=''ӹ'' '); } + + + + sql.Add('delete from YF_Money_CR '); + SQL.Add('where maiNID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + + 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 YFDefFlag1=1 '); + + sql.Add('update BP_kc set RollNum=1, Qty=A.Qty + B.Qty '); + sql.Add('from BP_kc A'); + sql.Add('inner join BP_INout B on B.kcid=A.kcid'); + sql.Add('where B.CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + + sql.Add('delete from BP_InOut '); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').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(CDS_Main.FieldByName('CRNO').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + TBRafresh.Click; + except + Application.MessageBox('ɾʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpGdCklist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmBpGdCklist.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd '); + sql.Add('@mainID='+quotedstr(trim(CDS_Main.fieldbyname('cRNo').AsString))); + sql.Add(',@flag='+quotedstr(trim('㶫'))); + open; + end; + + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmBpGdCklist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpGdCklist.TOKClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmBpGdCklist.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + tok.Click; +end; + +end. diff --git a/应收应付/U_DataLink.dfm b/应收应付/U_DataLink.dfm new file mode 100644 index 0000000..a2ce1df --- /dev/null +++ b/应收应付/U_DataLink.dfm @@ -0,0 +1,17981 @@ +object DataLink_YSYF: TDataLink_YSYF + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 206 + Top = 210 + Height = 349 + Width = 482 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 72 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A400000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C900000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C0000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA00000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF8000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC00000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB800263873000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B10028387100000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC0028397700000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D0034468200000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA900000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F428500000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF0000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D00000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D00000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE1000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A200000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB80000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 000000000000808080005050500080808000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB10000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 000000000000808080005555550080808000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B70000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 000000000000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 000000000000000000000000000000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A0000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF0000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D0000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB300000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB00000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 00000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 00000000000000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF100000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E0000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C00000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E600000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA5000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E00000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D7000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB0000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD00000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE10000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE300000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C9000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A6000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D9000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F600000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB40000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE1000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E9000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF800000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F0000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F9000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD700000000000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F100000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA0000000000000000000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F100000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F90000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC00000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 000000000000000000000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC00000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 00000000000000000000000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E500000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D40000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D300000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB40000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E10000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F70000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD00000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC2000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD700000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF600000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F4000000000000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF5000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F519400000000000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB1000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C30000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC50000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF6000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C0000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F60000000000000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 00000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 00000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 000000000000000000000000000000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF00000000000000000000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C50000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A4000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F40000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C760000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD80000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C0000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC003143830000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E40000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA0000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E2000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A3000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF00000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B900000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D1000000000000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F7000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF00000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC500000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B930000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F990000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A10000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B10000000000000000000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A990000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D0000000000000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F1000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D0003143840000000000000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F20000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E0000000000000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B90000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA0000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC0000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC80000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A7000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F4491000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 00000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC00324999000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 000000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 000000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA1000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A9000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B0000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB30000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB40000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD00000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A30000000000000000000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A000000000000000000000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C6002333670000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D0000000000000000000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB000324910029397200000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 7100000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA0030428200000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 7400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB00033468700000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C9200000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A509700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D200000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF00000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB00000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC000000000000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB50000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD000000000000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB0000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD000000000000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD00000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C0000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC3000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF7000000000000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF800000000000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F5000000000000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF500000000000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF70000000000000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 000000000000000000000000000000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 000000000000000000000000000000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 000000000000000000000000000000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 000000000000000000000000000000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF5000000000000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C00000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D4186000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A800000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB003147920000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A3000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB30000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB40000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB6000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B9000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C1000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E90000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C5000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D41870000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C9000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C3003247900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C4003348930000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A950000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F990000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 000000000000000000000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A20000000000000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C0000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A50000000000000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA80000000000000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF5000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD00000000000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC7000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF60000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD0000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C90000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB900000000000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C9000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB000000000000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B500263774000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D71000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D8100000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D00000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A0000000000000000000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB0031479200000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC00000000000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C9000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A300000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E00000000000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA500000000000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D1000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD000000000000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D5000000000000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB00000000000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E200000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B700000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE00000000000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D6000000000000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C8000000000000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F0068676900555769000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB000000000000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F300000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC2000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF2000000000000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A6387000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D200000000000000000000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C30000000000000000000000000000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C700000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 000000000000000000000000000000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 000000000000000000000000000000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 0000000000000000000000000000000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF80000000000000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA000000000000000000000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 000000000000000000000000000000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 820000000000000000000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 88000000000000000000000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C870000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F000000000000000000000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B9600000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F70000000000000000000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A0000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD000000000000000000000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A9000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC0000000000000000000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B00000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA0000000000000000000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A0000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD0000000000000000000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE000000000000000000000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B8000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD00000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C0000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C50000000000000000000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC1000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C60000000000000000000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC2000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB00000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C90000000000000000000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE0000000000000000000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB0000000000000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F00000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE000000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F0000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A800000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB00000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE0000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B800000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD00516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA00435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB00000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC00445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD00000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB00445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE00000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC00445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF00516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 000000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC100000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E300748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 000000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF600BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E80000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC40000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC8000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF6000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC6000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE2000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD0000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C7000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C700000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D20000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E00000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F20000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F200000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E40000000000000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 000000000000000000000000000000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F300000000000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 00000000000000000000000000000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF500000000000000000000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF300000000000000000000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 000000000000000000000000000000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F2000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC50000000000000000000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC00000000000000000000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D800000000000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED000000000000000000000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED00000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC50000000000000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB00000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A0000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F41800000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C9003144870000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F80000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D950000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F519200000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D0000000000000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F0000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A40000000000000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB30000000000000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB0000000000000000000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A400000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD0000000000000000000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF0000000000000000000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C10000000000000000000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC20000000000000000000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C1000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC40000000000000000000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD3000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC60000000000000000000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E900000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C700000000000000000000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 00000000000000000000000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 00000000000000000000000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 0000000000000000000000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D0000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB00000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E90000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D60000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB00000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E10000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E00000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC20000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA0000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F100000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B20000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F2000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF3000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF3000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF3000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC40000000000000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC700000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 000000000000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B700000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB200000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 000000000000000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC10000000000000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D20000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 00000000000000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C60000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 00000000000000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 00000000000000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD00000000000000000000000000031D3D85093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF010D1D3A000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000C458BFF1D54ABFF1E54A9FF1E54 + A9FF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54 + AAFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1D54ABFF1D54 + ABFF1D54ABFF1C54AEFF0D468CFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000F4791FF14439DFF14439DFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF3E8AD8FF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000F4792FF15459FFF1546A0FF1546 + A0FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1D55AFFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000F4892FF1749A3FF184CA6FF194D + A7FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1B4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1B51ABFF448EDAFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA00324894000000000000000000000000000F4893FF1A4EA8FF1B51ABFF1C54 + AEFF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF4C92DCFF0B448AFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C00000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF0B448AFF000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF053D82FF053D82FF0D4187FF053D + 82FF053D82FF053D82FF053D82FF03254F9B000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A500000000000000000000000000114995FF1A4EA8FF1C53ADFF1D56 + B0FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59 + B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1C54AEFF3D5978FF6C715CFF3458 + 88FF1C54AEFF1C54AEFF1A4FA9FF053D82FF000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000114A96FF194FA9FF1C53ADFF1D57 + B1FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5A + B4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1C54AEFF3F463CFF32372CFF3B45 + 42FF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB100000000000000000000000000114A97FF1A4FA9FF1D54AEFF1E58 + B2FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205B + B5FF205BB5FF205BB5FF205BB5FF205BB5FF1C54AEFF43586CFFD3D6B6FF3956 + 7BFF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000114B97FF1A50AAFF1D55AFFF1E59 + B3FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205C + B6FF205CB6FF205CB6FF205CB6FF205CB6FF5495DEFF3786D5FF327DCEFF327D + CEFF327DCEFF327DCFFF2D77C4FF032F65C788878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB700000000000000000000000000124B98FF1A4FA9FF1D55AFFF1F59 + B3FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF6EA7E8FF0B4489FF0000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000124C99FF1A50AAFF1D56B0FF1F59 + B3FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF70A9EAFF0B4489FF000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B900000000000000000000000000134C99FF2661B5FF3071C2FF3479 + C9FF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377D + CDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377C + CDFF387ECEFF2360B9FF0B448AFF000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB00000000000000000000000000134C9AFF2D6ABCFF377ACBFF3B81 + CFFF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF74ABEBFF0B448AFF0000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC00000000000000000000000000134D9BFF1E57B1FF6AA0E3FF70A6 + E7FF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74AB + EBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225F + B9FF74ABEBFF74ABEBFF0C458AFF00000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD000000000000000000000000001A529AFF7FB5F2FF337ECFFF3481 + D1FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF7FB5F2FF0C458BFF0000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C0000000000000000000000000000D468BFF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF0C458BFF010D1C3800000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C000000000000000000000000000031C3B730D468BFF0D468BFF0D46 + 8BFF0D468BFF0D468BFF0D468CFF0D468CFF0D468CFF0D468CFF0D478CFF0D46 + 8CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D46 + 8CFF0D468CFF0D468CFF00000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000110000001C0000002E0000002E0000002E0000002E0000002E0000 + 002E0000002E0000002E0000002E0000002E0000002E0000002E0000001C0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101020000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000005000000090000000C0000 + 000F00000016000000190000001D00000024000000260000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A00000024000000200000001D0000 + 0016000000130000000F00000009000000060000000000000000000000000000 + 00000000000000000000339F70FF339F70FF339F70FF339F70FF339F70FF339F + 70FF339F70FF339F70FF339F70FF339F70FF339F70FF339F70FF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000003B2A9C75FF2A9C75FF2A9C75FF0000003E0000 + 003B000000330000002800000017000000140000000E0000000B000000080000 + 000300000002000000000000000000000000000000060000000D000000120000 + 001800000024A5A5A5E6CECECEFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7 + E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFCCCCCCFF2525 + 254D0000001D000000180000000D000000090000000000000000000000000000 + 0000000000000000000032A072FF12BC8EFF12BC8EFF12BC8EFF12BC8EFF12BC + 8EFF12BC8DFF12BC8EFF12BC8DFF12BC8EFF3CD7A7FF32A172FF000E0B120000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 000000000000040F0B190000000035CD98FF15B081FF38D19BFF0D34276F0000 + 0024000000200000001800000014000000100000000900000006000000040000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F17B3B3B3EFCECECEFFE4E4E4FFE4E4E4FFE4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFF2F2F2FFD4DDD9FFE2E2E2FFE1E1E1FFEFEFEFFFCCCCCCFF5B5B + 5B76000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A172FF12BD8EFF12BC8EFF12BD8EFF12BC8EFF12BD + 8EFF12BC8EFF12BD8EFF12BD8EFF12BD8EFF3CD7A7FF31A172FF000E0B120000 + 0000000000000000000000000000000000000000001E131313EF121212EF1111 + 11EF111111EF111111EF111111EF111111EF111111EF111111EF111111EF1111 + 11FD111111FD111111EF111111EF111111EF111111EF111111EF121212EF1212 + 12EF131313EF141414EF111111B6000000000000000000000000000000000000 + 00000209060F000000002A9C75FF13B082FF13B082FF17B687FF259771F1030C + 0914000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333349C2C2C2FCD5D5D5FFE4E4E4FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3 + F3FFE3E3E3FF5DB591FFBFD7CDFFF3F3F3FFF2F2F2FFEDEDEDFFD5D5D5FF8383 + 83AE000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A273FF11C090FF0DCB95FF0CCA94FF0DCB94FF0CCB + 95FF0CCB94FF0CCB95FF0CCA95FF0CCB95FF3CD7A7FF30A273FF000E0B120000 + 000000000000000000000000000000000000000000003B3B3BFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF1B1B1BF6000000000000000000000000000000000000 + 00002A9C75FF32D59FFF14B183FF10CF9EFF10CF9DFF12C191FF31D39DFF23A0 + 78F60D3225520000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8CC1CFCFCFFFE8E8E8FF6CC0A0FF38B284FF39B083FF3BB083FF3AAE + 82FF78C0A4FF3EAC80FF3BAC81FF3DAB7FFF3DAA7DFFD1DFD8FFE9E9E9FFACAC + ACE6000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA575FF11C291FF0CCD97FF0DCD97FF0CCC96FF0CCC + 96FF0CCC97FF0DCC96FF0DCC96FF0DCC97FF3BD7A7FF2EA574FF000E0B120000 + 000000000000000000000000000000000000000000002A2A2AFF2E2E2EFF3939 + 39FF393939FF393939FF393939FF393939FF393939FF393939FF3A3A3AFF3A3A + 3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A + 3AFF3B3B3BFF323232FF1F1F1FC6000000000000000000000000000000000223 + 1A2C2BD19CFF14B284FF13B284FF16D2A1FF11D09EFF10D09EFF16B687FF27CB + 99FF259670F00000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9DD6D0D0D0FFEFEFEFFF39B285FF39B184FF5DBC98FF64BC9BFF58B8 + 94FFDEE3E1FF3CAB80FF92CAB3FF84C4AAFF3EAA7EFF96C9B3FFEEEEEEFFB9B9 + B9F5020202040000000000000000000000000000000000000000000000000000 + 000000000000000000002CA676FF11C392FF0DCE98FF0DCE98FF0DCD97FF0DCE + 97FF0DCD98FF0DCE98FF0DCD97FF0CCE97FF3BD7A7FF2CA676FF011C14220000 + 00000000000000000000000000000000000000000000323232FE343434FF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3E3E3EFF383838FF1212127100000000000000000000000001150F1A2AA0 + 75FF15B384FF13B283FF0FCE9BFF80EFD0FF6EE5BFFF0FD19EFF13B788FF24C9 + 96FF1FB78AFC0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACACE8D0D0D0FFF1F1F1FF44B98EFF38B285FF41B288FFCFDFD9FFE6E6 + E6FFE6E6E6FF58B691FFA5D0BEFFB9D7CCFF3BAA7DFFAED1C2FFF0F0F0FFC4C4 + C4FE252525340000000000000000000000000000000000000000000000000000 + 000000000000000000002BA776FF10C492FF0DCE98FF0DCF99FF0DCF99FF0DCE + 98FF0DCF99FF0DCE99FF0DCE99FF0DCF99FF3AD7A6FF2BA877FF000E0B120000 + 00000000000000000000000000000000000000000000272727F04E4E4EFF4040 + 40FF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF404040FF4040 + 40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040 + 40FF424242FF4B4B4BFF0505052200000000000000002AA078FF1BD09DFF1DD2 + 9FFF0FD09EFF16D4A3FF5DE7BFFF40AC89FF33A37EF255DCB3FF0FD29FFF11C0 + 90FF1ACC99FF259871EF02090710000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CACACAFEDADADAFFF2F2F2FFE0E7E4FF45B98FFF35B486FF8DCDB5FFE8E8 + E8FFE8E8E8FFE6E6E6FF6FC0A1FF3BAE82FFD7E1DCFFE5E5E5FFEEEEEEFFCDCD + CDFF838383B20000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA79FF10C794FF0DD19BFF0DD19BFF0ED19BFF0DD1 + 9BFF0ED19BFF0DD19BFF0ED19BFF0DD19AFF38D7A6FF28AA79FF000E0B120000 + 0000000000000000000000000000000000000000000000000000121212612C2C + 2CE7686868FF616161FF555555FF464646FF464646FF464646FF464646FF4646 + 46FF464646FF464646FF464646FF474747FF494949FF535353FF5E5E5EFF4A4A + 4AFD303030F01313136500000000000000000001010218CF9CFF1CD4A0FF10D3 + A0FF16D5A3FF5CE8C0FF46CFA8E600000000071E162F269F77F147E4B9FF0FD3 + A0FF0FD3A0FF1DB78AFB1B7255B2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D0D0D0FFE5E5E5FFEFEFEFFF59C09CFF39B88BFF35B587FFE7E9E8FFE6E8 + E7FFE8E8E8FFE8E8E8FFE5E6E6FF80C7ACFFE6E6E6FFE6E6E6FFEBEBEBFFCFCF + CFFF9A9A9ACF0000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7AFF10C795FF0DD29CFF0ED29CFF0ED29CFF0ED2 + 9CFF0ED29CFF0DD29DFF0DD29DFF0DD29CFF37D6A6FF26AB7AFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000202 + 020B2F2F2FE83C3C3CEE525252FD6A6A6AFF4F4F4FFF494949FF4A4A4AFF4A4A + 4AFF4A4A4AFF4A4A4AFF4A4A4AFF515151FF6D6D6DFF585858FF434343F81C1C + 1C850202020B0000000000000000000000002AA379FF1AD5A1FF10D4A1FF0FD4 + A1FF5BEAC1FF4CD7B1EE2CAA7FFF0000000000000000071E162F51DCB3FF44E4 + B8FF0FD3A1FF1DD3A1FF23A178F40C2F234B0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2D2D2FFEDEDEDFFEDEDEDFFEAEAEAFFEAEAEAFFDCE6E2FF3EB88CFF81CB + AFFFE5E8E7FF48B78EFF37AF82FF7FC5AAFFE7E7E7FFE6E6E6FFE8E8E8FFCFCF + CFFFA8A8A8E10000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7BFF11C996FF0ED39DFF0DD39DFF0ED39EFF0DD3 + 9EFF0ED39DFF0DD39EFF0ED39DFF0DD49DFF36D6A6FF25AD7BFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000202020A0F0F0F481E1E1E8E3A3A3AF4656565FF585858FF4D4D4DFF4D4D + 4DFF4D4D4DFF4D4D4DFF606060FF6A6A6AFF333333E1202020950F0F0F480000 + 00000000000000000000000000000000000006140F1D3BCDA1FD3EE2B6FF56E9 + C0FF2EAF83FF00020103000000000000000000000000000000000820183127A4 + 7AF14DDCB2FF0FD5A1FF15D5A1FF1CB88BF90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000B0B + 0B10D3D3D3FFF4F4F4FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFF31B686FF35B5 + 87FF94D1BAFF36B385FF3DB388FF2EAE80FFE9E9E9FFE8E8E8FFE8E8E8FFD0D0 + D0FFC6C6C6FC2C2C2C3F00000000000000000000000000000000000000000000 + 0000000000000000000022B17EFF10CB98FF0ED6A0FF0ED69FFF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF33D7A6FF22B07DFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000001010105313131C3545454FF5454 + 54FF545454FF464646F9262626A0010101050000000000000000000000000000 + 00000000000000000000000000000000000000000000259E76E587EBCDFFFFFF + FFFF010504080000000000000000000000000000000000000000000000000821 + 183127A67AF136E0B3FF10D5A2FF13D4A1FF0C2E234800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002C2C + 2C40D6D6D6FFF5F5F5FFECECECFFEBEBEBFFEBEBEBFFEBEBEBFF7CCCAFFF34B6 + 88FF35B587FF38B587FFCEE2DAFF96D0B8FFE9E9E9FFE9E9E9FFE9E9E9FFD6D6 + D6FFCDCDCDFF5C5C5C80000000000000000020B27FFF21B27FFF21B27FFF21B2 + 7FFF20B27FFF21B27FFF21B27FFF10CC99FF0ED7A2FF0ED7A1FF0FD7A1FF0ED7 + A1FF0ED8A1FF0ED7A1FF0ED7A1FF0ED7A1FF31D7A6FF21B27FFF20B27FFF21B2 + 7FFF20B27FFF20B27FFF21B27FFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282899595959FF5959 + 59FF595959FF444444F41B1B1B75000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000004100C1828A179E528A2 + 7AE3000000000000000000000000000000000000000000000000000000000000 + 00000822193249DCB1FF33E0B2FF0FD6A3FF259C74EC0209060E000000000000 + 0000000000000000000000000000000000000000000000000000000000005B5B + 5B8FD1D1D1FFE4E4E4FFDDDDDDFFDCDCDCFFDCDCDCFFDCDCDCFFD9DBDAFF30AB + 80FF30AA7FFF2AA77BFFDADBDAFFDBDBDBFFDADADAFFD9D9D9FFD9D9D9FFD1D1 + D1FFC2C2C2FF797979B8000000000000000005291D3842E6B8FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE9BFF0ED9A3FF0ED8A2FF0ED8A3FF0ED8 + A3FF0ED8A2FF0ED8A2FF0ED8A3FF0FD9A2FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF38E3B4FF05291D38000000000000000000000000000000000000 + 000000000000000000000000000000000000040404113F3F3FF85D5D5DFF5D5D + 5DFF5D5D5DFF5A5A5AFF3B3B3BEE0303030E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A3427A77EF146DDB1FF10D6A3FF26A97EF30C2E22450000 + 0000000000000000000000000000000000000000000000000000000000007171 + 71DEA4A4A4FF949494FF929292FF929292FF929292FF929292FF929292FF9191 + 91FF919191FF909090FF909090FF909090FF909090FF909090FF909090FFA3A3 + A3FF8B8B8BFF767676E500000000000000000000000005291D381CB783FF52EB + C0FF0FDAA5FF0EDBA5FF0EDAA4FF0FDBA5FF0EDBA5FF0FDAA5FF0EDBA5FF0FDB + A5FF0FDBA5FF0EDBA5FF0FDBA5FF0FDBA5FF0FDBA4FF0EDBA5FF0EDBA5FF49E9 + BCFF1CB783FF05291D3800000000000000000000000000000000000000000000 + 000000000000000000000000000000000000434343DD5F5F5FFF636363FF6363 + 63FF636363FF636363FF606060FF333333B30000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B3428AA7FF12BDFAFFF14D09EFF27A177EB0000 + 000000000000000000000000000000000000000000000E7C5AAA21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF0E7C5AAA00000000000000000000000005291D381AB8 + 84FF0FDCA6FF0FDCA6FF0FDCA6FF0EDCA7FF0EDCA6FF0FDCA6FF0FDCA6FF0FDC + A6FF0EDCA6FF0FDCA6FF0EDDA6FF0FDCA6FF0FDCA6FF0FDCA6FF0FDCA6FF1AB8 + 84FF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000020202064E4E4EFC656565FF666666FF6666 + 66FF666666FF666666FF666666FF414141DD0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B3444DDB1FF28DFAFFF1DBC8EF80000 + 0000000000000000000000000000000000000000000021B17FFF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF21B17FFF000000000000000000000000000000000529 + 1D3860F0C7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDDA7FF0EDDA7FF0FDEA7FF0FDD + A7FF0FDDA7FF0EDDA8FF0FDEA7FF0FDDA7FF0FDDA7FF0EDDA8FF5AEEC4FF0529 + 1D38000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001313132F515151FF686868FF696969FF6969 + 69FF696969FF696969FF696969FF4A4A4AED0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C372AAC7FF140DCB0FF29A4 + 7AEA0208060C0000000000000000000000000000000021B17FFF12C28EFF12C2 + 8EFF13C28DFF13C38EFF12C28EFF12C28EFF12C28DFF13C28EFF12C28EFF12C2 + 8EFF12C38DFF13C28EFF12C38EFF12C38EFF12C38EFF12C28EFF13C28EFF13C2 + 8EFF12C38EFF13C38EFF21B17FFF000000000000000000000000000000000000 + 000005291D3817BD87FF6FF3CDFF0FE0AAFF0FDFAAFF0FE0AAFF0FDFA9FF10DF + AAFF0FDFAAFF0FDFA9FF0FE0A9FF0FE0A9FF6AF2CBFF17BD88FF05291D380000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002222224F5B5B5BFF6F6F6FFF707070FF7070 + 70FF707070FF707070FF707070FF585858F60000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D372BAC80F126C1 + 94F81B7256A20000000000000000000000000000000021B17FFF12C490FF11C4 + 8FFF12C48FFF12C48FFF11C48FFF11C48FFF11C48FFF12C48FFF12C48FFF12C4 + 8FFF11C48FFF12C48FFF12C48FFF12C48FFF11C48FFF11C38FFF12C48FFF12C4 + 8FFF11C48FFF11C48FFF21B17FFF000000000000000000000000000000000000 + 00000000000005291D3815BE88FF10E0AAFF0FE0AAFF0FE1ABFF0FE0AAFF0FE1 + ABFF0FE0AAFF10E1ABFF0FE1AAFF0FE1ABFF15BE88FF05291D38000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D3F5A5A5AFF727272FF737373FF7373 + 73FF737373FF737373FF737373FF555555F00000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D373ADB + ADFF2BB285F40B2C213F00000000000000000000000021B17FFF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF21B17FFF000000000000000000000000000000000000 + 0000000000000000000005291D387BF6D2FF0FE1ACFF10E1ABFF0FE1ACFF0FE1 + ABFF0FE2ABFF0FE1ABFF0FE2ACFF78F5D1FF05291D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D1B5E5E5EFF757575FF767676FF7676 + 76FF767676FF767676FF767676FF565656E90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E392CAF84F232C093FC00000000000000000000000016BD88FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF16BD88FF010604070000000000000000000000000000 + 000000000000000000000000000005291D3813C28BFF86F8D6FF10E4ADFF0FE3 + ADFF0FE4AEFF84F7D5FF12C18BFF05291D380000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003939398E696969FF7C7C7CFF7C7C + 7CFF7C7C7CFF818181FF676767FC191919500000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F3A2CB185F413392C4B00000000000000000E382C4216BD88FF17E8 + B4FF299065FF289266FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF0CBE + 89FF46E7B5FF17E8B4FF0E372A40000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D3812C38CFF10E4AEFF10E4 + AEFF10E4AEFF11C38CFF05291D38000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020207494949D58F8F8FFF8A8A + 8AFF898989FF707070FE444444CA020202070000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B203C2FAE84EF0208060B00000000000000010F3C2E4616BD + 88FF48E6B5FF299065FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF4DEC + BAFF17E8B4FF16BD88FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D388DF9D8FF10E4 + AFFF8DF9D8FF05291D3800000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070718525252EB5D5D + 5DF85D5D5DF8353535A307070718000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B203C2EAE83F40000000000000000000000000001 + 010217DCA7FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D1 + 97FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF16CE + 99FF0F3A2D440001010200000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D380FC5 + 8EFF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C000000240000 + 0027339F70FF0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000001E00000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000270000001E0000001E319F70FF32A071FF319F + 70FF31A070FF319F71FF32A071FF32A070FF31A071FF32A070FFD58F6AFFD58F + 6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFF000000001560BCFF1560 + BDFF1560BDFF1660BDFF00000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AEFFFED6AEFFFED6AEFFFED7B0FFFED7 + B0FFFED8B1FFFED9B4FFFEDAB6FFFEDAB6FFFEDCB9FFFEDCB9FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A071FF32A071FF0F342452000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000252422FF262624FF2625 + 23FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF262524FF262524FF0000000000000000000000000DC992FF13B98CFF13B9 + 8CFF13B98CFF13B98CFF13B98CFF13B98CFF0EC992FF2FA171FFD58F6AFFEBA5 + 7DFFE19D79FFE19D79FFE19D79FFE19D79FFD58F6AFF000000001661BEFF076E + E6FF076EE6FF0578EAFF00000000000000000000000E00000013000000140000 + 0016000000191111113114141431FED4AAFFFED4AAFFFED4AAFFFED5ACFFFED5 + AEFFFED6AFFFFED8B2FFFED8B2FFFED9B4FFFEDAB7FFFFDBB9FF111111310000 + 00180000001600000014000000100000000E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172FF3BD7A7FF30A271FF0F3424520000000000000000000000000000 + 00000000000000000000000000000000000000000000262523FF282724FF2727 + 24FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF272625FF000000000000000000000000000000000DCA93FF13B98CFF0DCA + 93FF0DCA93FF0DCA94FF0DCA93FF13B98CFF0DCA93FF2FA272FFD58F6AFFECA5 + 7DFFE29E79FFECA57DFFECA57CFFE29E79FFD58F6BFF000000001662C0FF057A + EBFF0388F0FF057BEAFF000000000000000000000017000000343F3F3F7FACAC + ACFFACACACFFACACACFF636262FFFFCD9DFFFFCD9DFFFFCE9FFFFFD0A3FFFFD2 + A6FFFFD4AAFFFFD7AFFFFFD8B1FFFFD9B5FFFFDDBCFFFFDDBCFF636363FFACAC + ACFFACACACFF4B4B4B8C00000030000000170000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A373FF10BF8EFF39D6A6FF30A373FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000272624FF292826FF2929 + 26FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF2A2927FF292826FF0000000000000000000000000DCB95FF13BA8DFF0DCB + 95FF0DCC94FF0DCB94FF0DCB94FF13B98CFF0ECB94FF2EA273FFD68F6AFFECA5 + 7EFFE39E7AFFECA67DFFECA67DFFE39E7AFFD5906BFF000000001764C3FF057C + EBFF0389F0FF057CEBFF000000000000000000000000ACACACFFD1D1D1FFD1D1 + D1FFD1D1D1FFD1D1D1FF323232FFC49F7BFFC4A07EFFC4A17FFFC4A383FFC4A5 + 87FFC4A688FFC4A78BFFC4A88EFFC4A991FFC4AC96FFC4AC96FF323232FFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000003020400040306000403060004 + 030600040306000403060009060C000403060004030600040306000403060000 + 00002DA575FF10BF8EFF10BF8EFF10BF8EFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000292927FF2E2D2AFF2E2D + 2AFFFBE7D0FFFBE6D0FFFBE7CFFFFCE6CFFFFBE7D0FFFBE7D0FFFBE6D0FFFCE7 + D0FFFBE6CFFFFBE6CFFFFBE7D0FFFCE7CFFFFBE6D0FFFBE6CFFFFBE7CFFFFBE6 + CFFF2D2C2AFF2D2C2AFF0000000000000000000000000DCD97FF13BD8FFF0ECE + 97FF0ECE97FF0DCE97FF0ECE98FF13BC8EFF0ECD97FF2CA575FFD6906BFFEDA7 + 7FFFE5A17BFFECA77EFFECA77EFFE6A17BFFD6906BFF000000001A66C7FF0581 + EDFF038DF1FF0581EDFF000000000000000000000000ACACACFFD4D4D4FFD4D4 + D4FFD4D4D4FFD4D4D4FF333131FF9E8373FF9E8373FF9E8373FF9E8474FF9E84 + 74FF9E8475FF9E8576FF9E8576FF9E8577FF9E8577FF9E8577FF333131FFC8CC + CAFFCECECEFFCECECEFF00000000000000002CA676FF2CA776FF2CA676FF2CA6 + 75FF2CA675FF2BA676FF2BA675FF2CA675FF2BA676FF2CA676FF2CA676FF2CA6 + 76FF2BA776FF10BF8EFF0DCA94FF10C08EFF31D4A3FF2CA675FF0F3424520000 + 000000000000000000000000000000000000000000002B2927FF302E2CFF302E + 2DFFFBE7D0FFFCE7D0FFFCE7D0FFFBE7D1FFFBE7D1FFFCE7D0FFFBE7D1FFFBE7 + D1FFFBE7D0FFFBE7D1FFFBE7D0FFFBE7D0FFFCE7D1FFFBE7D1FFFCE7D0FFFBE7 + D0FF302E2CFF302F2CFF0000000000000000000000000ECF99FF12C090FF0ECF + 98FF0ECF99FF0ECF99FF0ECF99FF12BF8FFF0ECF99FF2BA675FFD6906CFFEDA8 + 7FFFE7A27CFFECA87FFFECA87FFFE7A27CFFD6906BFF000000001A68CBFF0482 + EDFF038EF1FF0483EEFF000000000000000000000000ACACACFFD7D7D7FFD7D7 + D7FFD7D7D7FFD7D7D7FFD6D6D6FFD6D6D6FFD5D5D5FFD5D5D5FFD5D5D5FFD4D4 + D4FFD4D4D4FFD4D4D4FFD3D3D3FFD3D3D3FFD3D3D3FFD2D2D2FFD2D2D2FF39A4 + 76FFC4CDCAFFD1D1D1FF00000000000000002AA777FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF10BF8EFF0DCB95FF0DCC95FF0FC18FFF2ED4A2FF2BA777FF0000 + 000000000000000000000000000000000000000000002C2A29FF33312EFF3231 + 2FFFC4D1D7FFC4D0D7FFC4D0D7FFC4D0D7FFC4D0D8FFC4D0D7FFC4D1D7FFC4D1 + D8FFC4D1D7FFC4D1D7FFC4D1D8FFC4D0D8FFC4D0D8FFC4D1D7FFC4D0D8FFC4D0 + D7FF33302FFF33302FFF0000000000000000000000000ED09AFF11C392FF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF11C191FF0FD09AFF2AA677FFD7906CFFEDA9 + 80FFE8A47DFFEDA980FFEDA980FFE8A47DFFD7906BFF000000001B6ACDFF0486 + EFFF038FF2FF0486EEFF000000000000000000000000ACACACFFDCDCDCFFEDED + EDFF269B6AFF279B6AFF279B6AFF279B69FF279A69FF289A69FF289A68FF289A + 68FF289A68FF289968FF289968FF289968FF289968FF289968FF289968FFCBE8 + DCFFEAEAEAFFD7D7D7FF000000000000000028AA7AFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF0FC793FF0ECE98FF0DCE98FF0DCE98FF0DCE98FF0FC492FF27AA + 7AFF0F342452000604080000000000000000000000002F2E2BFF373534FF3735 + 34FFFBE8D4FFFBE9D3FFFCE9D4FFFBE8D4FFFCE9D3FFFCE8D4FFFBE8D3FFFCE9 + D4FFFBE9D4FFFBE8D3FFFBE9D3FFFBE8D3FFFCE9D3FFFBE9D4FFFCE8D4FFFCE8 + D4FF383634FF373633FF00000000000000000000000013D59FFF10CB97FF0ED3 + 9CFF0FD39DFF0ED39DFF0ED39DFF10C996FF14D5A0FF27AA78FFD7916DFFEDAB + 81FFEBA880FFEDAA82FFEEAA82FFECA880FFD8926CFF000000001E6ED2FF048C + F1FF0391F3FF048BF1FF000000000000000000000000A3A3A3ECE0E0E0FFF9FC + FBFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC + 9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF2899 + 68FFFFFFFFFFDADADAFF000000000000000026AB7BFF0FC390FF10C18FFF0EC9 + 95FF0ECF99FF0DD099FF0DD09AFF0DD099FF0DCF9AFF0DD09AFF0DD099FF0DD0 + 99FF0ED099FF0DCF9AFF0ED09AFF0ED099FF0ED09AFF0ECF9AFF0DCF99FF19C9 + 97FF26AC7BFF0F342452000000000000000000000000302E2CFF3A3836FF3A38 + 36FFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2 + DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2 + DAFF3A3836FF3A3836FF00000000000000000000000016D7A2FF10CE9AFF0FD4 + 9EFF0ED59EFF0FD59EFF0ED49EFF10CC99FF17D7A2FF26AA79FFD8926DFFEDAB + 83FFEDAC82FFEEAC82FFEEAB83FFEEAC82FFD8926DFF000000001F6FD4FF038E + F1FF0393F2FF038EF1FF000000000000000000000000A1A1A1E6EAEAEAFFF4FA + F7FF47CA9DFF23A674FF23A674FF24A472FF24A472FF24A472FF24A472FF24A4 + 72FF24A472FF24A472FF24A472FF24A472FF24A472FF24A472FF23A674FF279B + 6BFFFFFFFFFFE5E5E5FF000000000000000024AD7CFF0FC492FF0ECA96FF0DD1 + 9BFF0DD29BFF0ED29BFF0DD19BFF0ED19AFF0DD19BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD29BFF0ED19BFF0DD19AFF0DD19BFF0DD19BFF0ED19BFF0ED19BFF0FC9 + 95FF19CB99FF24AD7CFF000403060000000000000000312F2EFF3D3B38FF3C3A + 39FFFCE9D5FFFCEAD5FFFCE9D5FFFBEAD6FFFCEAD5FFFCE9D5FFFCE9D6FFFCEA + D5FFFCEAD6FFFCEAD5FFFCEAD5FFFCEAD6FFFBEAD6FFFCE9D5FFFCEAD6FFFBE9 + D5FF3D3B39FF3D3B39FF0000000000000000000000001AD9A5FF0FD29DFF0ED5 + A0FF0FD5A0FF0FD6A0FF0FD69FFF10D19CFF1BD9A6FF25AC7AFFD9936DFFEEAE + 84FFEDAC83FFEEAC83FFEEAC83FFEEAC83FFD9926DFF000000002071D7FF0393 + F3FF0393F3FF0393F3FF000000000000000000000000A7A7A7E3FFFFFFFFEEFA + F5FF5AE0B6FF26C18FFF26C895FF26C895FF26C895FF26C895FF26C895FF26C8 + 95FF26C895FF26C895FF26C895FF26C895FF26C895FF26C895FF26C08EFF23A2 + 70FFFFFFFFFFFFFFFFFF000000000000000021B17FFF0FC995FF0ED49EFF0ED4 + 9EFF0DD49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED4 + 9DFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED5 + 9EFF0ED49EFF0FCF9AFF22B07FFF0F34245200000000353331FF43403EFF4240 + 3EFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D4DBFFC4D3DCFFC4D4DCFFC4D4 + DCFFC4D4DCFFC4D3DCFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D3DBFFC4D3 + DCFF42403EFF43403EFF00000000000000000000000022DDABFF0ED9A3FF0FD9 + A3FF0FD9A3FF0ED8A3FF0ED9A2FF0FD8A3FF25DFACFF22B07EFFD9946EFFF0B2 + 8AFFEFAE85FFEEAE85FFEFAE84FFEFAE84FFD9946EFF000000001584EAFF5DC7 + FBFF5DC7FBFF5DC7FBFF000000000000000000000000A8A8A8E0FFFFFFFFE6F8 + F2FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF21A7 + 74FFFFFFFFFFFFFFFFFF000000000000000020B280FF0FCC98FF0ED5A0FF0ED6 + A0FF0ED69FFF0ED5A0FF0ED59FFF0ED6A0FF0ED69FFF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED5A0FF0ED69FFF0ED69FFF0ED69FFF0ED69FFF0ED59FFF0ED6A0FF0ED5 + A0FF0ED69FFF0ED5A0FF2ADEACFF20B27FFF00000000363432FF454341FF4643 + 40FFFBEAD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEB + D7FFFCEBD7FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEAD8FFFCEB + D8FF454341FF454341FF00000000000000000000000027E0AEFF0EDAA4FF0EDA + A5FF0FDBA4FF0FDAA4FF0FDAA5FF0FDAA4FF29E0AEFF22B17FFFD9946EFFEFB4 + 8CFFEFAF86FFEEAF85FFEFAF85FFEFAF86FFDA936EFF00000000000000001584 + EAFF1584EAFF1584EAFF000000000000000000000000A0A0A0D5FFFFFFFFDDF7 + EFFF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF1EAB + 78FFFFFFFFFFFFFFFFFF00000000000000001FB381FF0FCF9AFF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0FD7A1FF1EB381FF063C2C5200000000383634FF484643FF4846 + 43FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEB + D8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFB2A6 + 9AFF484543FF484543FF0000000000000000000000002CE2B1FF0FDBA6FF0FDC + A5FF0FDBA6FF0FDBA6FF0FDCA6FF0FDCA6FF2EE3B1FF21B381FFDA946EFFF0B7 + 8FFFEFAF86FFEFB086FFEFB086FFEFB086FFDA946FFF00000000000000000000 + 000000000000000000000000000000000000000000007B7B7BA8EFEFEFFFF6FC + FAFF5CE7BDFF23C08DFFECBD96FFECBE97FFECBE97FFECBE97FFECBE97FFECBE + 97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FF24BD8BFF19B3 + 7FFFFFFFFFFFF3F3F3FF00000000000000001BB783FF0FD5A1FF0FDAA4FF0EDA + A4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDA + A4FF0EDAA4FF0FD9A4FF0ED9A4FF0EDAA5FF0FDAA4FF0EDAA4FF0FDAA4FF0EDA + A4FF46E7BAFF1BB684FF0000000000000000000000003B3836FF4E4B49FF4E4A + 49FF4E4B49FF4E4B49FF4E4B48FF3D3A39FF3C3A39FF3C3A39FF3C3A38FF3D3A + 39FF3C3A39FF3D3A38FF3C3A39FF3C3A39FF3D3A38FF3D3A39FF3C3A39FF4E4B + 49FF4E4A48FF4D4A49FF00000000000000000000000037E6B5FF0FDEA9FF0FDE + A8FF0FDEA9FF0FDEA9FF10DEA9FF0FDEA9FF39E6B6FF20B885FFDB956FFFF1BD + 94FFF0B188FFEFB188FFEFB187FFEFB187FFDB956FFF00000000000000000000 + 000000000000000000000000000000000000000000000D0D0D13959595C6C3CE + CAFD54BF9EFF48B48FFEF1C9A0FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CC + A3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CBA2FF46B28CFE18B7 + 83FFBDBDBDE99B9B9BCE000000000000000019B884FF0ED8A3FF0EDBA6FF0FDB + A6FF0EDBA6FF0FDBA6FF0EDBA5FF0FDCA6FF0EDCA6FF0EDBA5FF0FDBA5FF0FDC + A5FF0EDBA6FF0EDBA6FF0FDCA6FF0FDCA5FF0FDBA6FF0FDBA6FF0FDBA6FF4FEA + BFFF1AB885FF063C2C520000000000000000000000003C3938FF504D4BFF504E + 4BFF6D6B6AFF5F5B58FF5F5B58FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8 + C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FF3E3C3AFF504D + 4BFF504D4BFF504D4BFF0000000000000000000000003DE8B8FF0FE0A9FF0FDF + AAFF0FDFAAFF10E0A9FF0FE0AAFF0FDFA9FF3EE8B9FF1FB986FFDB9570FFF2C0 + 97FFF0B188FFF0B187FFEFB288FFF0B188FFDB956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002222 + 22321616162000000000F5D1ABFFF9D8B2FFF8D8B2FFF9D8B2FFF8D8B1FFF9D8 + B2FFF9D8B2FFF8D8B1FFF9D8B1FFF9D8B2FFF9D8B1FFF7D5AFFF161817231616 + 16201010101800000000000000000000000018B985FF0FDCA6FF0FDDA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDD + A7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF18BA + 85FF063C2C52000000000000000000000000000000003D3A39FF534F4DFF5350 + 4DFF5F5B58FF4A4645FF4A4645FFE9E8C4FFE9E9C4FFE9E9C4FFE9E9C5FFE8E9 + C4FFE8E9C4FFE9E8C4FF2F2E2CFF474341FFE9E9C5FFE9E9C5FF413D3CFF534F + 4DFF53504DFF53504EFF00000000000000000000000041E9BAFF0FE1ABFF0FE1 + ACFF0FE0ABFF10E0ABFF10E1ABFF0FE1ABFF43EABBFF1EBB88FFDC956FFFF2C2 + 99FFF0B288FFEFB389FFEFB288FFF0B288FFDC956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3CEA9FFFADBB7FFFADBB7FFF9DAB7FFFADBB7FFF9DB + B7FFF9DBB7FFF9DBB7FFF9DAB7FFFADBB7FFF9DBB7FFF5D2AEFF000000000000 + 00000000000000000000000000000000000013C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF16BC89FF0FE0AAFF0FDFAAFF0FE0AAFF0FE0A9FF6BF2CCFF16BC88FF0000 + 00000000000000000000000000000000000000000000403E3CFF575452FF5754 + 52FF5F5B58FF4A4645FF575452FFEBEBCDFFEBEBCCFFEBEBCCFFEBEBCCFFEBEC + CCFFEBEBCCFFEBEBCCFF2F2E2CFF474341FFEBEBCCFFEBEBCCFF444140FF5754 + 52FF575452FF575452FF0000000000000000000000004CECBEFF10E3AEFF0FE3 + ADFF10E2AEFF0FE2ADFF0FE3AEFF10E3ADFF4EECBFFF1DBE8BFFDC9670FFF5F9 + F7FFF7E1BAFFF7E1BAFFF7E1BAFFF7E1BAFFDC9670FF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2CCA8FFFADDBAFFFADCBAFFFADCBAFFFADDBAFFF9DC + BAFFFADDBAFFFADCBAFFF9DCBAFFFADCBAFFFADCB9FFF4D0ADFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89FF0FE1ABFF10E0ABFF10E1ABFF73F4CFFF14BD89FF063C2C520000 + 00000000000000000000000000000000000000000000413E3DFF5A5654FF5A56 + 54FF5F5B58FF4A4645FF5A5654FFEDECD0FFEDEDD1FFEDEDD0FFEDEDD1FFECEC + D0FFEDEDD0FFECEDD0FF2F2E2CFF474341FFECEDD0FFECECD1FF464341FF5A56 + 54FF5A5654FF595554FF00000000000000000000000051EDC0FF0FE3AFFF10E4 + AFFF10E4AEFF10E4AFFF10E3AFFF10E4AEFF53EDC1FF1DC18DFF54392B58D796 + 70E3F2AF85FFF3AE85FFF2AE85FFF2AE85FF35261D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA6FFFADEBCFFFADEBDFFFADDBCFFFADDBCFFFADE + BDFFFADEBDFFFADDBDFFFADEBCFFFADEBDFFFADDBDFFF3CFACFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8BFF0FE2ACFF10E1ADFF0FE2ACFF13BF8AFF063C2C52000000000000 + 0000000000000000000000000000000000000000000042403EFF5B5855FF5B57 + 56FF5F5B58FF4A4645FF5C5855FFEEEED5FFEEEED5FFEEEED5FFEEEED5FFEEEE + D5FFEEEED5FFEEEED5FF2F2E2CFF474341FFEEEED5FFEEEED5FF484442FF5B57 + 56FF5C5856FF5B5856FF00000000000000000000000056EEC2FF10E5AFFF0FE5 + B0FF10E5B0FF10E4AFFF10E5B0FF10E5B0FF58EEC2FF1CC28FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A4FFFAE0C1FFFBE0C2FFFAE0C1FFFBE0C2FFFAE0 + C2FFFAE0C2FFFAE0C2FFFAE0C1FFFBE0C1FFFAE0C2FFF1CBA8FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18CFF10E3AFFF89F8D7FF11C18CFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000444140FF5F5A58FF5F5B + 58FF5F5B58FF4A4645FF5E5B59FFF0F1DEFFF1F1DDFFF1F1DEFFF1F1DEFFF0F1 + DEFFF1F1DEFFF0F1DEFF2F2E2CFF2F2E2CFFF1F1DDFFF0F1DEFF494645FF5F5A + 59FF5F5B59FF6D6B6AFF0000000000000000000000005FEFC4FF10E7B1FF10E7 + B1FF10E6B1FF10E7B1FF10E6B1FF10E6B1FF61EFC5FF1CC591FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A4FFFBE2C3FFFAE1C4FFFBE1C3FFFAE2C3FFFBE1 + C4FFFAE1C4FFFBE1C4FFFBE1C3FFFBE1C3FFFBE1C4FFEFC8A6FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28DFF8EF9D8FF10C28DFF063C2C520000000000000000000000000000 + 00000000000000000000000000000000000000000000454241FF8D8C8BFF6D6B + 6AFF5F5B58FF4A4645FF6D6B6AFFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFB + F5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FF555353FF6D6B + 6AFF8D8C8BFF454240FF00000000000000000000000063F0C5FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF65F0C5FF1CC792FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7 + A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A5FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28DFF0FC28DFF063C2C52000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A37369B454241FF4542 + 40FF5F5B58FF4A4645FF454241FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3 + B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFF4F3E4FF363333FF4542 + 41FF454240FF1F1D1D5A00000000000000000000000068F0C7FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF68F0C7FF1DC894FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48FFF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001BCB97F420CA97F421CB + 98F421CB98F421CB98F421CB98F41FCB97F418C390EC00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202220A0A0938000000380000003800000038000000380000 + 0038000000380000003800000038000000380A0A093C02020222000000000000 + 0000000000000000000000000000000000000000000000000002000000040000 + 0002000000000000000B000000180000002A0000002900000029000000290000 + 00290000002900000028000000260000001A0000000900000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82FF8E8F82FF8E8F82FF8E8F82FF8E8F + 82FF8E8F82FF8E8F82FF8E8F82FF8E8F82FF1313122002020205000000000000 + 0000000000000000000000000000000000000000000000000004000000060000 + 00090000000C0000001000000025349E6FFF349E6FFF349E6FFF349E6FFF349E + 6FFF349E6FFF349E6FFF349E6FFF349E6FFF0000002400000021000000150000 + 000B000000090000000900000003000000020000001E00000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000520000003200000000BD8B6BFBD39E7AFFD39E + 7BFFD39E7AFFD39E7AFFD39E7AFFD49E7AFFD49E7AFFD49E7AFFD49E7AFFD49E + 7AFFD49E7AFFD49F7AFFD49F7AFFD49F7AFFD49F7AFFD59F7AFFD59F7AFFD59F + 7AFFD59F7AFFD59F7AFF73513D9F000000000000000000000000000000000000 + 0000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFA5A69BFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070FF3CD7A7FF13B98CFF13B98CFF13B9 + 8CFF13B98CFF13B98CFF3CD7A7FF329F70FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFF1361DFFF1361 + DFFF1361DFFF1361DFFF0F3EB0FFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFCC8865FF0000000000000000C29372FFF5C49CFFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF5C49CFFD09775FF020101030000000000000000000000000000 + 0000000000000000000000000000C2C3B4FFF0F0ECFFF0F0ECFFF0F0ECFFF0F0 + ECFFF0F0ECFFF0F0ECFFF0F0ECFFC2C3B4FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031A171FF39D7A6FF0CC78FFF0CC78FFF0CC7 + 8FFF0CC78FFF0CC78FFF39D7A6FF32A171FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFE59E + 75FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDC936FFF0353DCFF0353 + DCFF0352DBFF0353DBFF0F3FB1FFDD946FFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFE59E75FFCC8865FF0000000000000000DDAB86FFC59674FFF5C9 + A3FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B6 + 90FFE8B690FFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B6 + 8FFFF5C9A3FFCF9D7AFFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFA5A69BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000030A272FF34D5A4FF0CC790FF0CC790FF0CC7 + 90FF0CC790FF0CC790FF34D6A5FF31A272FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CD8965FFEEA97AFFDF97 + 72FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDB916EFF0455DCFF0455 + DCFF0454DCFF0454DCFF0E40B3FFDC926EFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFDF9772FFCD8965FF0000000000000000F4C49BFFF0C198FFE7B8 + 91FFF7D3B4FFEBBD96FFF5C89FFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C7 + 9EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFEBBC96FFD8A6 + 82FFECB890FFF2BD94FFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000818277FF818277FF818277FF8182 + 77FF818277FF818277FF818277FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA474FF29D3A1FF0DCA92FF0DCA92FF0DCA + 92FF0DCA92FF0DCA92FF29D3A1FF2EA473FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CE8A66FFEEA97BFFE19A + 74FFECA77FFFECA77EFFECA77EFFECA87FFFECA87EFFE09873FF0657DEFF0657 + DEFF0657DFFF0657DFFF0E42B7FFE29974FFECA77FFFECA77FFFECA77FFFECA7 + 7FFFECA87FFFE19974FFCE8A66FF0000000000000000F5C89EFFF5C89EFFF4C7 + 9DFFD3A582FFF8D9BCFFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CA + A1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF8D9BCFFF1BE + 96FFF4C198FFF4C198FFD09775FF02020104A5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002CA675FF23D29FFF0DCB93FF0DCB93FF0DCB + 93FF0DCB93FF0DCB93FF23D19FFF2DA574FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CF8A67FFEEA97CFFE39C + 76FFEDA981FFECA980FFECA980FFECA980FFECA980FFDE9671FF0759E0FF0759 + E0FF0759DFFF0759E0FF0D44BAFFE09772FFECA880FFEDA980FFECA980FFEDA9 + 80FFEDA980FFE39C76FFCF8B67FF0000000000000000F5C89EFFF5C89EFFF5C8 + 9EFFF3C59CFFDBAD88FFF9DFC5FFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C5 + 9DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF9DFC7FFE2B38DFFF4C4 + 9BFFF4C49BFFF4C49BFFD09775FF03020104A5A69BFFC3C4B5FFC2C3B5FFC2C4 + B5FFC3C4B4FFC2C4B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C3 + B5FFC3C3B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C4B4FFC3C4 + B5FFC3C3B4FFC2C4B5FFC3C3B5FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002BA676FF1DD09DFF0DCC94FF0DCC94FF0DCC + 94FF0DCC94FF0DCC94FF1DD19CFF2BA676FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000D08B68FFEEA97DFFE49F + 78FFEEAA81FFEEAB82FFEDAA82FFEDAB82FFEDAA82FFDC936FFF095AE1FF095A + E1FF085AE1FF095AE1FF0D45BDFFDD9470FFEEAB81FFEDAA82FFEEAA81FFEDAB + 82FFEEAA81FFE49F78FFCF8B67FF0000000000000000F6CDA4FFF6CDA4FFF6CD + A4FFF5CCA3FFF5CCA3FFF5CCA3FFFBE8D4FFE9B790FFE9B790FFE9B790FFE9B7 + 90FFE9B790FFE9B790FFE9B790FFE9B790FFECBF97FFF5C89FFFF5C89FFFF5C8 + 9EFFF5C89EFFF5C89EFFD09775FF03020104A5A69BFFE4E3DBFFE4E3DBFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFC7C7B8FFA5A69BFF28AA7AFF28AA7AFF27AA79FF28AA + 79FF28AA79FF28AA79FF28AA79FF27AA79FF14CE99FF0DCF98FF0DCF98FF0DCF + 98FF0DCF98FF0DCF98FF13CF99FF28A979FF29A978FF28A979FF28A978FF29A9 + 78FF28A978FF29A978FF29A978FF0000000000000000D28E69FFEFAE82FFECA9 + 81FFF0B086FFF0B086FFF0B086FFF0AF86FFF0AF86FFD68A68FF0D60E4FF0D60 + E4FF0D60E4FF0D60E5FF0E4DC8FFD78B69FFF0B086FFF0B086FFF0B086FFF0AF + 86FFF0AF86FFECAA81FFD28D69FF0000000000000000F6D0A7FFF6D0A7FFF6D0 + A7FFF6CFA6FFF6CFA6FFF6CFA6FFFDF2E6FFFDF4EAFFFBEBD9FFFBEBD9FFFBEB + D9FFFBEBD9FFFBEBD9FFFDF4EAFFFDF4EAFFF5CBA2FFF5CBA2FFF5CBA2FFF5CA + A1FFF5CAA1FFF5CAA1FFD09775FF03020104A5A69BFFD69773FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFC7C9B9FFA5A69BFF26AC7BFF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE98FF0DD099FF0DD099FF0DD0 + 99FF0DD099FF0DD099FF11CE98FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF27AA79FF0000000000000000D38E69FFEAA77DFFE8A5 + 7EFFEBA880FFEBA880FFEBA880FFEBA880FFEBA880FFD38564FF0E62E6FF0E62 + E6FF0E61E5FF0E62E6FF0E50CCFFD38665FFEBA881FFEAA981FFEBA880FFEBA8 + 80FFEBA880FFE8A57DFFD38E6AFF0000000000000000F7D3AAFFF7D3AAFFF7D3 + AAFFF6D2A9FFF6D2A9FFF6D3AAFF3786A9FF0685C4FF0685C5FF0299E8FF0299 + ECFF0299EFFF038FE3FF038FE3FF4FA4D4FFF6D0A8FFF6CEA5FFF6CEA5FFF6CD + A4FFF6CDA4FFF6CDA4FFD09775FF03020104A5A69BFFE6A47EFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFC9CABBFFA5A69BFF24AE7CFF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF11C996FF11C996FF11C996FF0DD29BFF0DD29BFF0DD2 + 9BFF0DD29BFF0DD29BFF0DD29BFF11C996FF11C996FF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF26AC7BFF0000000000000000D48F6AFFDB926EFFDA90 + 6EFFDB926EFFDB926EFFDB926EFFDB926EFFDB926EFFCE7F5FFF1064E7FF1064 + E7FF1064E7FF1064E7FF1054D0FFCE8060FFDB916EFFDB926EFFDB926EFFDB92 + 6EFFDB916EFFDB926EFFD48F6BFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF7D7B1FFF9E2CAFF0C8ABAFF069AD6FF04AFF2FF03AFF5FF03ACF6FF02AA + F6FF02A8F6FF02A3F6FF01A2F7FF01A0F7FF019DF7FFF9E2CAFFF2D7B6FFF7D3 + AAFFF7D3AAFFF7D3AAFFD09775FF03020104A5A69BFFE6A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCDBEFFA5A69BFF21B17FFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF22AF7DFF0000000000000000D6916CFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFF1368E9FF1368 + E9FF1367EAFF1367EAFF125BD9FFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFD6906CFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF8DFC3FF0997CAFF0999CEFF05B5F4FF05B5F5FF04B4F5FF04B1F5FF03AE + F5FF03ACF6FF02A8F6FF02A7F6FF02A5F6FF01A0F7FF019FF7FFF8DFC3FFF7D8 + B2FFF7D5ADFFF7D5ADFFD09775FF03020104A5A69BFFE5A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCEBFFFA5A69BFF1FB280FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF20B17FFF0000000000000000F4B78DFFF5B88DFFF4B8 + 8DFFF4B78DFFF4B78DFFF4B88DFFF4B88DFFF4B88DFFF0AF86FF1469EBFF1469 + EBFF166BEBFF1369EBFF135EDDFFF2B289FFF4B78DFFF4B78DFFF4B88DFFF4B8 + 8DFFF4B88DFFF5B78DFFF5BC93FFD7916CFF00000000F7D5ADFFF7D5ADFFEED2 + B0FB0B9BCAFF0AA5D6FF09AFE4FF06B9F5FF06B8F5FF05B6F5FF05B5F5FF04B2 + F5FF04B1F5FF03ACF5FF02ABF6FF02AAF6FF02A5F6FF02A3F6FF01A2F7FFF5D7 + B5FFF4D6B4FCF7D5ADFFD09775FF03020104A5A69BFFE5A37EFFE9A680FFE8A6 + 80FFE9A680FFE8A680FFE8A680FFE9A680FFE9A680FFE9A680FFE8A680FFE8A6 + 80FFE8A780FFE8A680FFE8A780FFE9A680FFE9A780FFE9A680FFE9A681FFE8A6 + 80FFE8A780FFE8A680FFCECFC0FFA5A69BFF1EB482FF10D8A1FF10D8A1FF10D8 + A1FF10D8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF20B280FF0000000000000000F5B98FFFEFB087FFEFB0 + 87FFEFB087FFEFB087FFEFB087FFEFAF87FFEFB087FFE8A57EFF146BECFF146B + ECFF2073EEFF156AECFF1462E0FFEAA780FFEFB087FFEFB087FFEFB087FFEFB0 + 87FFEFB087FFEFB087FFF5BD94FFD8926DFF00000000F1D3B3FBF5D8B7FFC9A5 + 8AFF35C4E7FF0BC3F4FF0BC3F4FF0AC1F4FF09C0F4FF08BEF4FF07BCF5FF06B9 + F5FF06B8F5FF05B5F5FF04B4F5FF04B2F5FF36AAD7FFA89D90FFC3A289FFE1B5 + 93FFF5D8B7FFF5D8B7FFDFB090FF03020104A5A69BFFE6A681FFEAAA84FFEAA9 + 84FFEBA983FFEBA983FFEBA984FFEAAA83FFEAAA83FFEBA983FFEAAA83FFEBAA + 83FFEAAA84FFEAAA83FFEBA983FFEAA983FFEAAA84FFEBAA83FFEBA983FFEAAA + 83FFEAAA84FFEAAA83FFD1D2C3FFA5A69BFF1AB784FF16DBA6FF16DBA6FF16DB + A6FF16DBA6FF15DBA6FF15DBA6FF15DBA6FF14DBA6FF14DBA6FF14DBA6FF14DB + A6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DB + A5FF13DBA5FF12DBA5FF1CB683FF0000000000000000F7C79FFFF2B58CFFF6BB + 90FFF6BC90FFF6BB90FFF6BB91FFF6BB90FFF6BB90FFEAA780FF176DEEFF176D + EEFF5196F4FF176EEDFF1568E7FFEAA780FFF6BB90FFF7BB91FFF6BB91FFF6BB + 91FFF6BB90FFF6BB90FFF7C7A0FFD9936EFF00000000E8C2A2FDE6BA96FFE0B2 + 90FF9EA598FF55D2EAFF0CC5F3FF0BC3F4FF0BC3F4FF0AC2F4FF09C0F4FF08BD + F4FF07BCF5FF06B8F5FF05B6F5FF0AB6F3FFBE9F88FFCDA88CFFDEB593FFE8BB + 97FFE8BC97FFE8BC97FFC39071EA00000000A5A69BFFE6A881FFECAB85FFECAC + 86FFEBAC85FFEBAB85FFEBAB85FFECAB85FFEBAC85FFECAC85FFEBAC85FFEBAC + 85FFECAB85FFEBAC85FFEBAC85FFECAC85FFEBAB85FFECAC85FFECAB85FFECAC + 85FFECAC85FFEBAC85FFD3D4C5FFA5A69BFF18B885FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF90F9D9FFF5F9F7FF1FDDA9FF19DCA7FF19DCA7FF19DC + A7FF18DCA7FF18DCA7FF1DDDA9FFF5F9F7FF90F9D9FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF1AB784FF0000000000000000F8CCA6FFF3B78DFFF6BC + 91FFF7BC91FFF7BC91FFF7BC91FFF6BC91FFF6BD91FFEAA881FF176EEEFF1970 + EEFF69A8F7FF176FEEFF166BEAFFE6A27CFFF7BC91FFF7BD91FFF7BC91FFF6BC + 91FFF6BC92FFF6BC91FFF8CCA6FFDA946EFF00000000DAA886FFECCAACFEE7BB + 98FFD7AE90FFB3A793FF74D9EAFF0CC5F3FF0BC3F3FF0BC3F4FF0BC3F4FF0AC1 + F4FF09C0F4FF07BCF4FF21B7E6FF97A49DFFD8B292FFE4B996FFE9BD99FFE9BE + 99FFE9BE9AFFEECFB1FD5642356500000000A5A69BFFE8A983FFECAE87FFECAE + 87FFEDAE87FFEDAE87FFECAE87FFECAD87FFECAE87FFEDAE87FFEDAE88FFEDAE + 87FFECAE88FFEDAE87FFEDAE87FFECAD87FFEDAE87FFECAE87FFECAE87FFECAE + 87FFECAE88FFECAE87FFD4D5C8FFA5A69BFF17BA87FF17BB87FF17BA86FF17BA + 86FF18BA87FF17B986FF17BA87FF17BA86FF2AE0ADFF1DDDA9FF1DDDA9FF1DDD + A9FF1CDDA9FF1CDDA9FF28E0ADFF18B986FF18B986FF18B986FF18B986FF18B9 + 86FF18B986FF19B985FF19B985FF0000000000000000F9DFC7FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFE7A47EFF186FEFFF277A + F1FF7AB4F9FF186FEFFF186EEEFFE7A47EFFF7BE93FFF7BE93FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFFAE8D8FFDA946FFF000000000000000055413464DAA8 + 86FFEAC09BFFE9BE99FFE5BB98FF9CE8F3FF11CDF2FF0FCAF3FF0DC8F3FF0CC5 + F3FF0EC9F4FFC1A78FFFDAB595FFE8BF9CFFECC29DFFECC29DFFECC39DFFF2D6 + B9FDDEAE8DFF564235650000000000000000A5A69BFFE8AC86FFEFB38CFFEFB3 + 8CFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB28CFFEFB38BFFEFB28CFFEFB3 + 8CFFEFB28BFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB38BFFEFB28CFFEFB3 + 8BFFEFB38BFFEFB28CFFD7D7CBFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000014BC88FF3FE4B3FF26DEABFF25DEABFF25DE + ABFF25DEABFF24DEABFF3CE3B2FF15BC88FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000DA9570FFAE8989FF3648 + 99FF1E3592FF454C91FF615178FFB67E62FFBF8260FF95654AC7146BECFF146B + ECFF146BECFF146BECFFBF8260FF95654AC7B67E63FF8C6B70FF7F708EFF203E + 9AFF1A3B9BFF374E9DFFDA9570FF8D654A8F0000000000000000000000005541 + 3464F2D8BDFDECC19EFFEBC19CFFCBB99EFFAFEEF8FF12CEF2FF10CCF3FF13CE + F3FF5CBFC8FFE3BD9AFFECC39EFFEEC59FFFEEC59FFFEEC59FFFEEC5A0FFDFB0 + 8EFF57433566000000000000000000000000A5A69BFFE9AD87FFF1B58EFFF1B5 + 8EFFF1B58EFFF0B58EFFF0B58DFFF0B58EFFF0B58EFFF1B58EFFF1B58EFFF0B5 + 8EFFF1B58EFFF1B58DFFF1B58EFFF1B58EFFF0B58DFFF1B58DFFF0B58DFFF0B5 + 8DFFF0B58EFFF1B58EFFD7D8CCFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BE8AFF46E5B5FF2ADEABFF29DEABFF29DE + ABFF29DEABFF29DEABFF45E5B5FF14BE89FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000017234F7C0E33A0FF1F5D + CEFF0D46BBFF0B4ECBFF0A44BBFF0C2890FF1C3796FF5B5684FF062E9EFF062E + 9EFF062E9EFF062E9EFF947272FF5C5984FF0F379EFF0D3FADFF0C4CC4FF0E48 + BEFF1662DFFF2063D4FF615A75C6000000010000000000000000000000000000 + 0000DCAA88FFF5DBC1FEEDC59FFFECC39DFFCDC2A6FFBFF1FAFF15D3F2FF5AC7 + CEFFDCB998FFEEC7A1FFEEC7A1FFEFC8A2FFEFC8A2FFEFC8A2FFF4DBC0FD5844 + 366800000000000000000000000000000000A5A69BFFEAAF89FFF1B78FFFF1B7 + 90FFF1B890FFF1B790FFF2B790FFF2B890FFF1B790FFF1B790FFF1B890FFF1B8 + 90FFF2B890FFF2B890FFF2B790FFF1B790FFF2B790FFF2B890FFF2B78FFFF2B7 + 8FFFF2B790FFF1B790FFD8DACEFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BF8BFF4CE6B7FF2EDEABFF2EDEABFF2DDE + ABFF2DDEABFF2DDEACFF4BE6B7FF13BF8BFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000C317FB61653C5FF3880 + EDFF0E50CCFF0C5FE3FF0448CEFF0E35A5FF0E34A4FF0D35A6FF103CADFF4990 + F1FF4990F1FF103CADFF1345B2FF0E36A3FF0E35A5FF0E35A5FF0D40B5FF0E50 + CCFF387BECFF3880EDFF0C317FB6000000000000000000000000000000000000 + 00000000000058443668DDAD8BFFF0CAA3FFF1CBA4FFF1CBA4FFF0CBA4FFF1CC + A4FFF2CCA5FFF2CDA5FFF2CDA5FFF3CEA6FFF5DDC3FDE1B593FF5B46376B0000 + 000000000000000000000000000000000000A5A69BFFEBB18BFFF4BB93FFF3BB + 94FFF3BB94FFF3BB94FFF4BB93FFF4BB94FFF4BB93FFF4BB94FFF3BB94FFF3BB + 94FFF3BC94FFF4BB94FFF3BB94FFF3BB93FFF4BC93FFF3BB94FFF4BB93FFF4BB + 94FFF4BB94FFF4BB94FFDBDBD0FFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000011C28CFF53E8B9FF35DDABFF34DDABFF34DD + ABFF34DEABFF34DEABFF53E8B9FF11C18CFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000B317FB7215BCAFF5195 + F8FF0C5BDDFF0C5FE3FF0E60E3FF2672E6FF2A6CDDFF124FCBFF123AA3F4173F + A5EF1241AEFF1241ABF80E45B6FD0D4CCBFF206CE4FF2270E7FF0E60E3FF0C5B + DDFF5091F6FF5195F8FF0B317FB7000000000000000000000000000000000000 + 000000000000000000005A45376AF7DFC6FEF7DEC2FFF7DEC2FFF7DEC2FFF7DE + C2FFF7DFC2FFF7DFC3FFF7DFC3FFF8DFC3FFE2B695FF5D47386D000000000000 + 000000000000000000000000000000000000A5A69BFFEBB28CFFF4BD94FFF4BC + 95FFF4BC95FFF4BC95FFF5BD95FFF4BD95FFF4BC95FFF4BD95FFF4BD95FFF5BD + 95FFF4BC95FFF4BD95FFF4BD95FFF5BD95FFF5BD95FFF4BD95FFF4BD95FFF4BD + 95FFF4BD94FFF5BD94FFDBDCD0FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000FC38DFF54E9BAFF37DDABFF37DDABFF37DD + ABFF37DDABFF37DDABFF54E9BAFF10C28DFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000928699A2158C7FF579B + FDFF1C6CE6FF3781ECFF478AEBFF0D48C8FF0D40B8FE0D34A0F2000001030000 + 00000000000000000203061B486C0F3EA5F20D49C8FF2464D8FF478AEBFF1C6C + E6FF5698FCFF579BFDFF0928699A000000000000000000000000000000000000 + 0000000000000000000000000000B28B6FCDE8BC98FFE8BC98FFE8BC98FFE8BD + 98FFE8BD99FFE8BE99FFE8BE99FFE9BE99FF5E48386E00000000000000000000 + 000000000000000000000000000000000000A5A69BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFDCDDD1FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000EC38EFF79EDC8FF3ADCABFF39DCABFF39DC + ABFF39DCABFF39DDABFF79EDC8FF0FC38EFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000061C4A6F1B50BEFF599C + FDFF97C3FAFF1859D4FF0D47C7FF0D36A4F70820629500030B11000000000000 + 000000000000000000000000000001040B110F40A9F70E46BCFF0D48C7FF97C3 + FAFF9BC8FDFF599CFDFF061C4A6F000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FF0000000000000000000000000000 + 00000000000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963791143 + B8FF0C3296DC071C578501030C13000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C130C3A + 9ADC0E42B0FB1249BBFF00000203000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00010000000300000005000000060000000C0000000E00000010000000140000 + 0011000000100000000C00000009000000060000000300000002000000010000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C0E33246A339F + 70FF0E33247F0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000001E000000320000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000003200000000000000000000000000000000000000000000 + 0002000000070000000A0000000C0000001C00000021000000240F34247F339F + 70FF0000002E00000021000000110000000D0000000600000003000000020000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523AD6A6FF13BA + 8CFF3AD6A6FF0F34245200000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF3569DCFF3569DCFF3569DCFF3569DCFF173BB6FF063384FF093889FF0938 + 89FF093889FF0C3C8FFF063384FF173BB6FF3568DCFF3568DCFF3568DCFF3568 + DCFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523CD7A7FF32A0 + 71FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245232A171FF13BA8CFF13BA + 8CFF13BA8CFF31A071FF0F342452000402050000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF366DDDFF366DDDFF366DDDFF366CDDFF173BB6FF063384FF13469DFF1346 + 9DFF13469DFF0E3E92FF063384FF173BB6FF366CDDFF366CDDFF366CDDFF366C + DDFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245230A271FF17CA95FF31A1 + 72FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A172FF35D5A5FF11BE8EFF12BD + 8EFF13BB8DFF35D5A5FF30A172FF0F3424520000000000000000000000000000 + 0000000000000000000000000000000000000000001800000021000000210000 + 00250000002A0000002A0000002A0000002A0000002A0000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A0000002A0000002A000000280000 + 0021000000210000001B00000000000000000000000000000000000000002E54 + D4FF5799EBFF5799EBFF5799EBFF72B7FFFF173BB6FF063384FF1548A0FF1448 + A0FF14489FFF114297FF063384FF173BB6FF5799EBFF5799EBFF5799EBFF5799 + EBFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A373FF39D6A6FF1FCE9AFF30A3 + 73FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245230D4A3FF12BD8EFF12BD8EFF0DCB95FF0DCB + 96FF0DCB95FF12BD8EFF12BD8EFF30D4A3FF0F34245200040205000000000000 + 00000000000000000000000000000000000000000010BD8462F1E8A97FFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFD595 + 70FF140E0B4A0000002700000000000000000000000000000000000000000000 + 0000D4D4D4FFBFBFBFFFBFBFBFFFBFBFBFFF9C9C9CFF063384FF194FA7FF184E + A7FF184EA7FF184EA5FF063384FF9C9C9CFFBFBFBFFFBFBFBFFFC3C3C3FFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245234D5A4FF10BF8EFF10BF8EFF30D4A2FF2DA5 + 75FF00000000000403060004030600040306000403060009060C000403060004 + 0306000403060004030600040306000302040000000000000000000000000000 + 0000000000000F3424522DA575FF12BE8FFF12BE8FFF0ECC97FF0ECC96FF0DCC + 96FF0ECC96FF0ECD97FF12BE8EFF12BF8FFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000B57D5BEFF6BB91FFE09B + 73FFD5916AFFD6926BFFD8946CFFD8956DFFD9956DFFDA966FFFDB976FFFDB97 + 6FFFDB976FFFDD9971FFDE9971FFDE9971FFE09A72FFE09A72FFE09B73FFE09C + 74FFB07C5ECD0000000000000000000000000000000000000000000000000000 + 0000D4D5D5FFBFBFBFFFCBCBCBFFCDCDCDFF9C9C9CFF063384FF093889FF0938 + 89FF093889FF1951AAFF063384FF9C9C9CFFCBCBCBFFCBCBCBFFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000008050A0F3424522CA675FF10C08FFF10C08EFF0DCA94FF37D6A5FF2BA7 + 76FF2CA676FF2CA676FF2CA676FF2BA676FF2BA676FF2BA675FF2BA676FF2CA6 + 76FF2CA675FF2CA676FF2BA675FF2CA676FF0000000000000000000000000000 + 00000F3424522CA676FF2AD3A2FF11C090FF0ECD98FF0ECD98FF0ECE97FF0ECD + 98FF0DCE97FF0ECE98FF0ECD98FF11C190FF2AD4A1FF2CA676FF0F3424520000 + 00000000000000000000000000000000000000000000B67E5CEEFDEFE2FFEDAC + 83FFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A3 + 7AFFE9A47AFFE9A47AFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE19C + 74FFD3946FFB0000000000000000000000000000000000000000000000000000 + 0000D6D6D6FFC3C3C3FFD3D3D3FFD6D6D6FF9C9C9CFF063384FF1D58B0FF1D57 + B0FF1D57AFFF114498FF063384FF9C9C9CFFD6D6D6FFD3D3D3FFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000F3424522BA777FF2ED4A2FF10C18FFF0DCC95FF0DCB95FF0DCB95FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF2AA777FF0000000000000000000000000F34 + 245224D4A1FF10C995FF10C995FF0ED09BFF0ED09AFF0ED09AFF0ED09BFF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF0ED09AFF10C996FF10C995FF24D4A1FF0F34 + 24520000000000000000000000000000000000000000B67E5DECF4C196FFEDB1 + 87FFE19C74FFEAA57CFFEAA57CFFEAA67DFFEAA67DFFEAA67DFFEAA67DFFEAA6 + 7DFFEAA67DFFEBA77DFFEBA77EFFEBA77EFFEBA87EFFEBA87EFFEBA87EFFEAA7 + 7EFFE6A57BFFC88D6BEE00000000000000000000000000000000000000000000 + 0000D9D9D9FFD0CFCFFFD8D8D9FFD8D9D9FF9C9C9CFF063384FF215EB8FF205D + B7FF205EB7FF1952A9FF063384FF9C9C9CFFD9D8D8FFD9D8D8FFC4C4C4FFB3B3 + B3FF000000000000000000000000000000000000000000000000000604080F34 + 245219C895FF0FC492FF0DCE98FF0DCF98FF0DCE98FF0ECE98FF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF19D29FFF28AA7AFF00000000000000000F34245227AB + 7AFF0FCC98FF0FCC97FF0ED19CFF0ED19CFF0ED19CFF0ED19BFF0FD19CFF0ED2 + 9CFF0ED19CFF0ED29BFF0ED19CFF0ED29CFF0ED19BFF0FCB97FF0FCC98FF27AA + 7AFF0F34245200000000000000000000000000000000B7805EEBF3C297FFCC8F + 69FFE19E76FFEAA67DFFEBA87EFFEBA87EFFEBA87EFFEBA87FFFECA97FFFECA9 + 7FFFECA97FFFECA97FFFECAA80FFECAA80FFECAA80FFECAA80FFEDAA80FFEDAB + 81FFE9A77EFFDB9C76FE00000000000000000000000000000000000000000000 + 0000DADADAFFD6D6D6FFDADADAFFDADADBFF9C9C9CFF063384FF3786D5FF3786 + D5FF3786D5FF1E5AB2FF063384FF9C9C9CFFDADADAFFDADADAFFCCCCCCFFB3B3 + B3FF0000000000000000000000000000000000000000000000000F34245226AC + 7BFF0FC793FF0DCF99FF0ECF9AFF0DD099FF0ED099FF0ED09AFF0DD099FF0ED0 + 99FF0DD099FF0ED099FF0DD09AFF0DCF9AFF0DCF9AFF0DD09AFF0DD099FF0DD0 + 9AFF0EC995FF10C18FFF20D6A2FF26AB7BFF000000000F34245226AC7BFF1ED4 + A1FF0FCF9AFF0ED39DFF0ED39DFF0ED29DFF0ED39DFF0ED29DFF0FD39DFF0ED3 + 9DFF0ED29DFF0ED39DFF0ED39DFF0ED39DFF0FD29DFF0ED39CFF10CE99FF1ED4 + A1FF26AC7AFF0F342452000000000000000000000000B77F5EE9F3C397FFC286 + 61FFE8AB82FFE5A47AFFECAA80FFEDAA80FFEDAB81FFEDAB81FFEDAB81FFEDAB + 81FFEDAC82FFEDAC82FFEDAC82FFEEAC83FFEEAD83FFEEAD83FFEEAD84FFEEAD + 84FFEDAD83FFE9AA80FF00000000000000000000000000000000000000000606 + 060BDCDBDBFFDCDCDBFFDBDCDBFFDBDBDCFF9C9C9CFF063384FF2260BAFF2260 + BAFF2260BAFF2260BAFF063384FF9C9C9CFFDBDBDBFFDBDBDCFFD3D3D3FFADAD + ADFF2C2C2C4B000000000000000000000000000000000F34245224AD7CFF19CB + 99FF0DD19BFF0ED19BFF0ED19BFF0ED19BFF0DD19BFF0DD19AFF0DD19BFF0DD2 + 9BFF0ED19BFF0ED19BFF0DD19BFF0DD19BFF0DD29BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD19BFF0ECA96FF27D9A6FF24AD7CFF0F342452D0F5EBFF57E7BEFF57E7 + BEFF56E9BFFF57EABFFFCEF5EBFF0ED59FFF0ED5A0FF0ED5A0FF0ED5A0FF0ED6 + A0FF0ED5A0FF0FD6A0FF0ED59FFF0ED59FFF23DBA9FFCEF5EBFF56EABFFF57E7 + BEFF57E7BEFFD0F5EBFF0F3424520000000000000000B78060E7F2C499FFCC90 + 6AFFEEC499FFEBAC83FFEDAD84FFF0B086FFF0B187FFF0B187FFF1B188FFF1B1 + 88FFF1B288FFF1B388FFF1B389FFF1B389FFF1B489FFF1B489FFF2B48AFFF2B4 + 8BFFF2B48BFFF3B58BFF936A50AD000000000000000000000000000000001935 + BFFF9F9F9FFFD4D4D5FFDEDFDEFFDFDEDEFF9C9C9CFF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF9C9C9CFFDEDEDFFFDEDEDFFFD1D0D0FFA3A3 + A3FE1226ADFF0000000000000000000000000F34245217D09CFF0FCF9AFF0ED4 + 9EFF0DD49EFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED4 + 9EFF0ED49DFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED4 + 9EFF0ED49EFF0ED49EFF34DFB0FF21B17FFF21B17EFF21B17FFF21B17FFF20B1 + 7FFF21B17FFF21B17FFF19B885FF0FD7A2FF0ED7A1FF0ED7A1FF0FD7A1FF0FD6 + A1FF0FD7A2FF0FD6A1FF0FD7A1FF0ED7A1FF27DEACFF18B985FF21B07EFF21B1 + 7FFF21B17EFF21B17EFF21B17FFF0000000000000000B88160E5F2C79AFFD195 + 6EFFE5B287FFEFC094FFECAF85FFF2B48AFFF2B48AFFF2B48BFFF3B58BFFF3B6 + 8BFFF3B68BFFF3B68BFFF3B68CFFF3B68CFFF4B78DFFF4B78DFFF4B78DFFF4B8 + 8EFFF4B88EFFF4B88EFFCA926FEE000000000000000000000000000000001935 + BFFFA1A1A1FF9F9F9FFFD5D5D5FFE0DFDFFFDFE0E0FFE0DFE0FF2A8F60FF0CC7 + 90FF2A8F60FFE0E0E0FFE0DFE0FFE0E0DFFFDFE0E0FFD2D2D2FF9C9C9CFF4275 + DBFF1226ADFF00000000000000000000000020B27FFF0ED6A0FF0ED5A0FF0ED6 + 9FFF0ED69FFF0ED6A0FF0ED59FFF0ED69FFF0ED69FFF0ED69FFF0ED5A0FF0ED5 + A0FF0ED69FFF0ED59FFF0ED59FFF0ED69FFF0ED5A0FF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED6A0FF0ED5A0FF3CE2B4FF20B280FF0000000000000000000000000000 + 0000000000000000000017BB87FF0FD8A3FF0FD8A3FF0FD8A3FF0FD8A2FF0FD9 + A3FF0FD8A2FF0FD8A2FF0ED9A3FF0ED8A3FF2CE0AEFF17BA87FF000000000000 + 00000000000000000000000000000000000000000000B88261E4F1C89BFFD69A + 72FFD79B73FFF0C99CFFF2B58BFFF4B78DFFF4B88DFFF4B88EFFF4B88EFFF4B9 + 8EFFF4B98EFFF5B98FFFF5B98FFFF5BA8FFFF6BA90FFF6BB90FFF6BB90FFF6BB + 90FFF6BB90FFF6BB90FFE8AD85FF624836730000000000000000000000001935 + BFFF4275DBFFA2A2A2FF9F9F9FFFE1E1E1FFE1E1E1FFE1E1E1FF0CC790FF2A8F + 60FF2E54D4FF2A8F60FFE1E1E1FFE1E1E1FFD2D2D2FF9D9D9DFFA4A5A5FF4A8D + EBFF1226ADFF000000000000000000000000063C2C5233E1B1FF0FD7A1FF0ED7 + A1FF0FD7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7A1FF0FD6 + A1FF0ED7A1FF0ED7A1FF42E5B7FF1FB381FF0000000000000000000000000000 + 0000000000000000000014BD8AFF0FDBA5FF0FDBA6FF0FDBA6FF0FDBA6FF0FDA + A5FF0FDBA6FF0FDBA5FF0FDAA6FF0FDBA5FF35E4B4FF14BD8AFF000000000000 + 00000000000000000000000000000000000000000000B88362E1EFC99CFFDFA3 + 7BFFDFA37BFFE2A77FFFFFFAF1FFFDF1DFFFFDEFDBFFFDEDD9FFFCEAD2FFFBE9 + CFFFFAE7CCFFF9E2C4FFF9E1C1FFF8DFBEFFF8DDBAFFF7DCB8FFF7DCB8FFF6DB + B7FFF6DAB6FFF6DAB6FFF5D9B5FFD7A481FA0000000000000000000000001935 + BFFF3562DAFF5092EFFF4275DBFFA0A0A0FFD8D9D9FFE4E3E3FF154BA3FFF1B1 + 87FFF1B187FFE4E4E3FFE3E3E3FFD5D5D5FFA4A4A5FF4275DBFF4B8EECFF1934 + BFFF1226ADFF00000000000000000000000000000000063C2C521BB684FF46E7 + BAFF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA5FF0ED9A4FF0FDAA4FF0EDA + A4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0FDA + A4FF0EDAA4FF0FDAA4FF4EE9BEFF1BB783FF0000000000000000000000000000 + 0000000000000000000013BF8BFF0FDCA7FF0FDCA7FF0FDCA7FF0FDCA7FF0FDC + A6FF0FDCA6FF10DCA7FF0FDCA6FF0FDCA7FF39E6B7FF13BF8BFF000000000000 + 00000000000000000000000000000000000000000000B98363E0EFCA9CFFE3A8 + 7FFFE3A87FFFE3A87FFFE7AE87FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF + 85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFDBA0 + 79FF91674EB18A624AA7886149A43D2C21490000000000000000000000000C17 + 3A462E54D4FF3563DAFF5699F1FFA1A1A3FFA0A0A0FFDADAD9FF154BA3FFF1B1 + 87FFF1B187FFE5E5E5FFD5D5D6FF9D9D9DFF4275DBFF4B8EECFF2447CAFF1226 + ADFF060E34460000000000000000000000000000000000000000063C2C521AB8 + 85FF0EDBA5FF0FDBA6FF0FDBA6FF0FDBA5FF0FDCA5FF0FDCA6FF0EDBA5FF0EDB + A6FF0FDCA5FF0FDBA6FF0EDBA5FF0EDCA6FF0FDCA6FF0EDBA5FF0FDBA6FF0FDB + A6FF0FDBA6FF0EDBA6FF53EBC1FF19B884FF0000000000000000000000000000 + 0000000000000000000012C08CFF0FDDA8FF0FDDA8FF10DDA8FF0FDDA8FF0FDD + A8FF0FDDA8FF0FDEA8FF0FDEA8FF0FDDA8FF3DE7BAFF12C08CFF000000000000 + 00000000000000000000000000000000000000000000B88463DEEFCA9DFFE8AD + 84FFEFB58AFFEFB58BFFEFB58BFFEFB48AFFEEB48AFFEEB48AFFEDB389FFEDB3 + 89FFEDB389FFECB288FFECB188FFECB187FFEBB086FFEAB086FFEAAF86FFDCA0 + 79FF17100B1E0000000000000000000000000000000000000000000000000000 + 00001935BFFF2E54D4FF3664DAFF4275DBFFA1A1A3FFA0A0A0FF063384FF0633 + 84FF063384FFD6D6D6FF9D9D9DFFA4A5A5FF5093EFFF244ACBFF1934BFFF060E + 334500000000000000000000000000000000000000000000000000000000063C + 2C5258EDC3FF0FDCA7FF0FDDA7FF0FDDA7FF0FDDA7FF0FDCA7FF0EDCA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDCA7FF0EDDA7FF0FDD + A7FF0EDDA7FF0FDDA7FF56EDC2FF18B985FF0000000000000000000000000000 + 0000000000000000000010C28DFF10E0ABFF10E0ABFF0FE0ABFF0FE0AAFF10E0 + AAFF10E0AAFF0FDFAAFF0FE0ABFF0FDFAAFF45EBBDFF10C28DFF000000000000 + 00000000000000000000000000000000000000000000BA8665DCEECC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFE2A7 + 7FFF140E0A1A0000000000000000000000000000000000000000000000000000 + 0000000000000B1535401935BFFF3664DBFF579BF2FF4275DBFFA0A0A0FFDBDC + DBFFD8D7D8FFA3A4A7FF4275DBFF579AF1FF878CA6FF1226ADFF060D2F400000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C5216BC88FF6BF2CCFF0FDFA9FF0FE0AAFF0FDFAAFF21E3B1FF16BC + 89FF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF0000000000000000000000000000 + 000000000000000000000FC38EFF0FE1ACFF0FE1ABFF0FE1ACFF10E1ACFF0FE1 + ACFF0FE1ACFF0FE1ABFF10E1ABFF0FE1ACFF4AECC0FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BC8867DCEDCC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFFADDB8FFFADD + B8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFD198 + 73F4050302070000000000000000000000000000000000000000000000000000 + 000000000000000000000B14323D2E54D4FF3664DBFF589BF2FFA0A1A4FFA0A0 + A0FF9D9D9DFF4275DBFF579BF2FF061D94FFABABABFF050C2D3D000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C5214BD89FF10E0ABFF10E1ABFF10E0ABFF2DE6B6FF14BD + 89FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38EFF0FE2ADFF10E2ADFF0FE2ADFF0FE2ADFF0FE2 + ADFF10E2ADFF10E2ADFF10E2ADFF10E2ADFF4DEDC1FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BF8A69E0EDCD9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF3D2AEFFDDAC8EFFDDAC + 8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFF3B2B + 2045000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BFFF2E54D4FF3664DBFF4275DBFF9FA1 + A5FF9D9FA7FF589CF2FF061D94FFA0A5BFFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C527CF5D2FF0FE2ACFF10E1ADFF3AEABBFF13BE + 8BFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E4AFFF10E4AFFF10E4AFFF10E4AFFF10E4 + AEFF10E4AFFF10E4AFFF10E4AFFF0FE4AFFF53EFC5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000087634C99D9A686FAD89D + 78FAD69C77F8D69B77F7D69B77F7D49A75F5C18B69E4271C1531000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E381935BFFF3563DAFF72B7 + FFFF72B7FFFF1934BFFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C5211C18CFF89F8D7FF50EEC4FF12C1 + 8CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E5B0FF10E5B0FF10E5B0FF10E5B0FF10E5 + B0FF10E5B0FF10E5B0FF0FE5B0FF0FE4B0FF55F0C5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C352E54D4FF3F82 + E6FF3F82E6FF1226ADFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C5210C28DFF57F0C7FF11C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0FE5B1FF10E6B0FF10E6B0FF10E5B0FF0FE5 + B1FF10E6B1FF10E5B0FF10E6B1FF10E6B1FF57F0C8FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BFFF3F82 + E6FF3F82E6FF050A2634ABABABFFE4EBEBFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C52F5F9F7FF10C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 181E0206161E0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8FFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000320000000000000017000000270000 + 0032000000400000004000000040000000400000004100000047000000400000 + 0040000000400000004500000047000000400000004000000040000000400000 + 0040000000250000001A00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000343433FF232323FF2222 + 22FF222222FF212121FF212121FF202020FF202020FF1F1F1FFF1F1F1FFF1E1E + 1EFF1E1E1EFF1D1D1DFF1D1D1DFF1D1D1DFF1C1C1CFF1C1C1CFF1B1B1BFF1B1B + 1BFF1B1B1BFF1A1A1AFF343433FF000000000000000000000000000000000534 + 6AFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF05346AFF000000000000000000000000000000179D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF00000017000000000000000000000000000000150000 + 001BE2B798FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FF000000110000000000000000363635FFF4E0BDFFF7E2 + BFFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFFF7E0 + BAFFF7E0BAFFF7E0BAFFF7E0BAFFF7E0BAFFFAEFCCFFF9EED0FFF7EBCFFFF5E5 + C9FFF2DFC0FFF2DAB6FF343433FF000000000000000000000000000000000534 + 6AFF0F5094FF073B75FF073A74FF073973FF073972FF073871FF063770FF0637 + 6FFF06376FFF06366EFF06356DFF05356DFF05356CFF05346BFF05346BFF0E50 + 94FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFE2B797FF000000000000000000000000393937FFF7E3C1FFF7E3 + C1FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E0 + BBFFF7E0BBFFF7E0BAFFF7E0BAFFF7E0BAFFF8E3BCFFFCF3CEFFFDF7D8FFFEF9 + E4FFFEF9E7FFF3DEBBFF343433FF000000000000000000000000000000000534 + 6AFF0F5195FFF6DDB6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DCB3FFF6DCB3FFF6DC + B3FFF6DCB2FFF6DCB2FFF6DCB2FFF9E9C1FFFAEDD2FFF9E9CDFFF7E1BDFF0F51 + 95FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E2BBFFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF8E0BAFFE2B898FF0000000000000000000000003E3D3BFFF8E4C4FFF8E4 + C4FFF7E4C3FFF7E4C3FFF7E3C2FFF7E3C1FFD8C7A9FF8C8171FFF7E2BFFFF7E2 + BEFFF7E2BEFFB4A48CFF756C5DFF736A5CFFF5DEBAFFF7E0BBFFF7E0BBFFFCF5 + D3FFFDF7DBFFF8EBD0FF343433FF000000000000000000000000000000000534 + 6AFF115499FFF6DFB9FFF6DFB8FFF6DEB7FFF6DEB7FFF6DDB5FFF6DDB4FFF6DD + B4FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF8E5BBFFFCF5D3FFFDF6DDFF1154 + 99FF05346AFF00000000000000000000000000000000CDCDCDFFCCCCCCFFDF98 + 71FFEBA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFEAA279FFFCC8 + A5FFEAA279FFEAA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFDF98 + 71FFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E1BEFFF3D6B1FFF5DAB5FFF8E1BBFFF8E0BBFFF8E1BBFFF8E1BBFFF8E1 + BBFFF8E1BBFFF8E1BCFFF8E1BBFFF8E1BBFFF9E1BCFFF8E1BBFFF8E1BBFFF4D7 + B2FFF8E1BBFFE3B99AFF00000000000000000000000040403CFFF8E5C7FFF8E5 + C7FFF8E4C5FFF8E4C4FFF7E4C3FFF7E4C3FFB7AA94FF262626FFF7E3C1FFF7E2 + C0FFF7E2C0FF1D1D1DFF1C1C1CFF1F1F1EFF615A4EFFF5DFBBFFF7E1BCFFF7E1 + BCFFFBEFCCFFFAF1D2FF343433FF000000000000000000000000000000000535 + 6BFF11559BFFF6E0BBFFF6DFB9FFF6DFB8FFF6DEB8FFF6DEB7FFF6DDB6FFF6DD + B6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF7DFB7FFFBF1CCFF1155 + 9AFF05356BFF00000000000000000000000000000000CECECEFFCDCDCDFFDE97 + 71FFEBA37AFFEBA27AFFEAA37AFFE9A178FFEAA179FFEBA37AFFEAA27AFFFCC8 + A5FFEAA27AFFEAA279FFEBA379FFEBA27AFFEAA37AFFEBA37AFFEBA27AFFDF98 + 71FFCDCDCDFFCDCDCDFF00000000000000000000000000000000000000000000 + 0000F8E2BFFFF3D7B2FFF8E2BCFFF8E1BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1 + BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1BCFFF8E1BCFFF9E1BCFFF8E1BCFFF5DA + B5FFF8E1BCFFE3BA9BFF00000000000000000000000042423EFFF8E6C9FFF8E6 + C9FFF8E5C8FFF8E5C7FFF8E4C5FFF8E4C4FFB9AB95FF292929FFF7E4C3FFF7E3 + C2FFE2D0B2FF252524FFC9B79DFFEDD9B7FF1B1B1BFFAA9C85FFF7E2BEFFF7E1 + BDFFF7E1BCFFF9E9C3FF343433FF000000000000000000000000000000000535 + 6CFF12569DFFF6E0BCFFF6E0BBFFF6E0BAFFF6E0BAFFF6DFB9FFF6DEB7FFF6DE + B7FFF6DEB7FFF6DDB6FFF6DDB5FFF6DDB5FFF6DDB5FFF6DDB5FFF6DEB5FF1256 + 9DFF06356CFF00000000000000000000000000000000CFCFCFFFCECECEFFDB94 + 6EFFEBA37AFFEAA37AFFE8A178FFDC9770FFE09971FFE8A079FFEAA37AFFFCC8 + A5FFEBA47AFFEBA37AFFEBA37BFFEBA37AFFEBA37AFFEBA37AFFEAA47BFFDF98 + 71FFCECECEFFCECECEFF00000000000000000000000000000000000000000000 + 0000F8E3BFFFF4D8B3FFF8E2BDFFF8E2BDFFF8E2BDFFF8E1BDFFF9E2BCFFF8E2 + BDFFF8E2BDFFF8E2BDFFF8E2BDFFF8E2BCFFF8E1BDFFF8E1BCFFF8E2BDFFF5DB + B6FFF8E1BDFFE3BC9CFF000000000000000000000000474742FFF8E7CCFFF8E7 + CCFFF8E7CBFFF8E7CBFFF8E6CAFFF8E6C9FFBBAF9AFF303030FFF8E5C7FFF8E4 + C5FFF8E4C5FFF7E4C3FFF7E4C3FFF7E4C3FF222222FF766E61FFF7E3C1FFF7E2 + C0FFF7E2BFFFF7E2BFFF343433FF000000000000000000000000000000000637 + 6FFF1359A0FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF6E0BDFFF6E0BBFFF6E0 + BBFFF6E0BBFFF6DFBAFFF6DFB9FFF6DFB9FFF6DFB9FFF6DEB8FFF6DEB8FF1359 + A1FF06366FFF00000000000000000000000000000000D1D1D1FFD0D0D0FFCC87 + 63FFD18C68FFCF8965FFCA8562FFCE9B81FFC7825FFFD18C68FFEBA47BFFFCC8 + A5FFECA57CFFECA57CFFE8A37BFFE9A27AFFEBA57CFFEBA57CFFECA57CFFDF9A + 73FFD0D0D0FFD0D0D0FF00000000000000000000000000000000000000000000 + 0000F9E4C3FFF4DAB5FFF8E2BFFFF8E3BFFFF8E3BFFFF9E3BFFFF8E2BEFFF8E3 + BEFFF9E3BFFFF8E2BFFFF8E2BFFFF8E3BFFFF8E2BFFFF8E2BEFFF8E3BEFFF5DC + B8FFF8E2BFFFE5BE9FFF0000000000000000000000004A4944FFF8E8CEFFF8E8 + CEFFF8E7CDFFF8E7CCFFF8E7CBFFF8E7CBFFBCB09DFF333333FFF8E6C9FFF8E5 + C8FFF6E3C5FF56524CFFBDAF99FFC9B9A1FF262626FFAB9F8BFFF7E4C3FFF7E3 + C2FFF7E3C1FFF7E3C1FF343433FF000000000000000000000000000000000737 + 70FF135AA3FFF7E3C1FFF7E2C0FFF7E2C0FFF7E2C0FFF7E2BFFFF7E1BEFFF7DF + BCFFF7E0BAFFF7E1BBFFF7E0BAFFF7E0BAFFF7E0BBFFF7E0BAFFF7E0BAFF135B + A3FF073771FF00000000000000000000000000000000D2D2D2FFD1D1D1FFD7A7 + 8EFFC78360FFCD8E6FFFDBBCACFFE4E2E1FFD49E81FFC98461FFE59F78FFFBC7 + A4FFEBA67DFFE6A279FFDE9A73FFDC9770FFEAA57DFFECA67DFFECA67DFFDF9A + 73FFD1D1D1FFD1D1D1FF00000000000000000000000000000000000000000000 + 0000F8E4C5FFF6DEBAFFF9E3BFFFF8E2BFFFF8E3C0FFF8E3C0FFF8E3C0FFF9E3 + C0FFF8E2C0FFF8E3C0FFF8E3BFFFF8E3C0FFF9E3C0FFF7E2BEFFF9E1BEFFF6DD + B9FFF7E1BDFFE5BFA0FF0000000000000000000000004C4C46FFF9E9CFFFF9E9 + CFFFF8E8CEFFF8E8CEFFF8E7CDFFF6E5CAFFBDB19FFF373737FFF8E7CBFFF8E6 + CAFFF8E6CAFF2E2E2EFF2D2D2DFF2C2C2CFF6E685EFFF7E3C3FFF8E4C4FFF7E4 + C3FFF7E4C3FFF7E4C3FF343433FF000000000000000000000000000000000738 + 72FF145BA4FFF8E3C3FFF7E3C2FFF7E3C1FFF7E3C1FFF7E2C0FFF7E2BFFFF7E1 + BDFFF6DFBAFFF7DFBAFFF7E1BBFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFF145C + A5FF073872FF00000000000000000000000000000000D3D3D3FFD2D2D2FFE6E4 + E3FFDFC4B5FFE6E4E3FFE6D6CCFFE8BBA1FFE5DED9FFCE906FFFDA956FFFF5BF + 9DFFEAA57DFFD9946DFFCB8763FFCA8663FFE8A37AFFEBA77EFFECA77EFFE09B + 74FFD2D2D2FFD2D2D2FF00000000000000000000000000000000000000000000 + 0000F9E5C5FFF7DFBDFFF8E3C0FFF9E3C0FFF9E3C1FFF8E3C0FFF8E3C0FFF9E3 + C0FFF9E3C0FFF8E2C0FFF9E3C1FFF9E4C1FFF7E2C0FFF8E3BFFFF7E2BFFFF5DD + BAFFF7E0BEFFE6C0A3FF000000000000000000000000515149FFF9EAD2FFF9EA + D2FFF9E9D1FFF9E9D1FFF9E9D0FF464544FF3E3E3EFF3D3D3DFFF8E8CEFFF8E7 + CDFFF8E7CDFF353535FF9E9485FFE2D3B9FFE2D2B8FFF3E2C4FFF8E6C9FFF8E5 + C8FFF8E5C7FFF8E5C7FF363634FF00000000000000000000000000000000073A + 76FF155EA9FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4C3FFF8E4C3FFF7E3C2FFF7E2 + C1FFF6E1BEFFF5DAB4FFF5DCB3FFF6DEB9FFF7E3C0FFF7E2BFFFF7E2BEFF155F + A9FF083A76FF00000000000000000000000000000000D5D5D5FFD4D4D4FFE19C + 75FFECA980FFECA980FFEDA980FFEDA980FFECAA82FFE9DAD1FFCA8662FFCE8D + 6BFFCB8764FFE4D5CEFFE9E5E3FFDFBFAEFFD08D68FFE29F77FFECA87FFFE09C + 75FFD4D4D4FFD4D4D4FF00000000000000000000000000000000000000000000 + 0000F9E6C9FFF7E1BFFFF9E4C2FFF8E4C3FFF8E4C2FFF9E4C2FFF8E4C2FFF9E4 + C2FFF7E3C2FFF7E1BFFFF5DEBDFFF5DFBDFFF5DFBEFFF5DEBEFFF5DEBDFFF3DC + BAFFF3DCBCFFE8C3A5FF00000000000000000000000053534BFFF9EBD4FFF9EB + D4FFF9EAD3FFF9EAD2FFF9E9D1FFE1D3BDFF5D5B57FF414141FFF9E9CFFFF8E8 + CEFFF8E8CEFF393939FF383838FF363636FF333333FFCBBDA7FFF8E7CBFFF8E6 + CAFFF8E6C9FFF8E6C9FF363635FF00000000000000000000000000000000083B + 78FF1660ABFFF8E5C7FFF8E5C5FFF8E5C4FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4 + C3FFF8E3C2FFF5DFB7FFF5DBB2FFF5DCB4FFF7E1BEFFF7E3C0FFF7E3C0FF1660 + ABFF083C78FF00000000000000000000000000000000D7D7D7FFD6D6D6FFEBB1 + 8FFFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFF9CAABFFDEB49DFFC887 + 65FFD6A991FFEBCDBAFFF4C4A6FFECE7E4FFCC8B69FFDCA07EFFF3BD9BFFEBB1 + 8FFFD5D5D5FFD5D5D5FF00000000000000000000000000000000000000000000 + 0000F9E7CAFFF7E2C0FFF9E5C4FFF8E4C3FFF9E5C4FFF8E5C4FFF9E5C3FFF9E4 + C4FFF8E3C1FFF4DEBEFFF2DCBCFFF3DDBDFFF4DDBEFFF5DEBEFFF4DEBDFFF4DD + BAFFF4DEBDFFE8C5A7FF00000000000000000000000053534BFFF9ECD5FFF9EC + D5FFF9EBD4FFF9EBD4FFF9EAD3FFF9EAD2FFDACEB9FF504F4DFFF9E9D1FFF9E9 + D0FFF9E9D0FF6B6760FF6A6660FF69655FFF67635CFFD7C9B1FFF8E7CCFFF8E7 + CBFFF8E7CBFFF8E7CBFF383836FF00000000000000000000000000000000093C + 7AFF1662ADFFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF8E5C5FFF8E4C4FFF8E4 + C3FFF8E4C3FFF8E1BFFFF5DFB8FFF4DAB0FFF5DFBAFFF7E1BFFFF7E3C2FF1661 + ADFF093D7AFF00000000000000000000000000000000D8D8D8FFD7D7D7FFE19E + 77FFEDAB82FFEEAB82FFEEAB82FFEDAB82FFEDAB82FFEDAB82FFEEE9E7FFE7D1 + C3FFECE3DEFFEBA981FFEDAB82FFEBB99AFFD29B7EFFCA8663FFDB9772FFE19E + 77FFD7D7D7FFD7D7D7FF00000000000000000000000000000000000000000000 + 0000F9E8CCFFF8E5C4FFF9E5C5FFF9E5C5FFF9E5C5FFF9E5C4FFF8E5C4FFF8E4 + C4FFF8E3C2FFF2DCBDFFF3DCBDFFF2DBBAFFF2DBBBFFF2DCBCFFF3DCBCFFF3DD + BCFFF3DCBDFFE9C7A9FF00000000000000000000000058584FFF0C5DDDFF0B5C + DCFF0A5ADAFF0959D9FF0958D8FF0855D6FF0754D5FF0653D4FF0551D2FF0550 + D1FF044FD1FF034DCFFF034DCEFF024CCEFF024BCDFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3A3A38FF000000000000000000000000000000000A3F + 7EFF1864B2FFF8E7CBFFF8E7CAFFF8E7CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5 + C8FFF8E5C8FFF8E5C5FFF8E4C4FFF8E2C1FFF6DBB4FFF5DBB3FFF7E0BDFF1864 + B1FF0A3F7EFF00000000000000000000000000000000DADADAFFD9D9D9FFE19F + 78FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFFCC8 + A5FFEEAD85FFEEAD84FFEEAD84FFEEAD84FFEFD7C8FFECD9CFFFCA8663FFDA98 + 72FFD9D9D9FFD9D9D9FF00000000000000000000000000000000000000000000 + 0000F9E8CDFFF8E6C7FFF9E6C8FFF9E5C8FFF8E6C8FFF9E5C7FFF9E6C8FFF7E4 + C5FFF6E1C3FFEDD5B7FFEACFB1FFE8CCAFFFE7CBACFFE6CBADFFE7CBACFFE8CC + AFFFDEBEA3FFE7C3A8FF0101010200000000000000005A5A50FF0C5EDEFF0C5D + DEFF0B5BDCFF0A5ADBFF0A59DAFF0957D8FF0856D7FF0755D6FF0653D4FF0652 + D3FF0551D2FF044FD0FF044ED0FF034DCFFF024CCEFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3C3C39FF000000000000000000000000000000000A41 + 81FF1965B3FFF8E8CCFFF8E7CBFFF8E7CBFFF8E7CBFFF8E7CAFFF8E6C9FFF8E6 + C9FFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF6E0BBFFF5DAB3FFF6DCB6FF1865 + B3FF0A4081FF00000000000000000000000000000000DBDBDBFFDADADAFFE2A0 + 79FFEFAE85FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFEFAE85FFEEAE85FFFCC9 + A6FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFECAE87FFF2E4DCFFE5C7B5FFD28E + 6AFFDADADAFFDADADAFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E6C8FFF9E7C8FFF9E6C8FFF9E6C8FFF8E6C9FFF9E7C9FFF8E5 + C7FFF5E1C3FFEACFB3FFE4C5AAFFE2C0A5FFDBB89CFFDBB89CFFD9B69BFFD9B7 + 9BFFE8CDAEFFE7C3A8FF0000000000000000000000005D5C52FF0D5FE0FF0D5F + DFFF0C5DDDFF0B5CDDFF0B5BDCFF0A59DAFF0958D9FF0857D8FF0754D6FF0753 + D5FF0652D4FF0550D2FF044FD1FF044ED0FF034DCEFF034CCEFF024BCDFF024B + CDFF024BCDFF024BCDFF3E3E3BFF000000000000000000000000000000000B41 + 82FF1966B5FFF8E8CEFFF8E8CDFFF8E8CCFFF8E8CCFFF8E7CBFFF8E7CAFFF8E7 + CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5C8FFF8E2C3FFF6E0BCFFF5DDB5FF1967 + B5FF0B4282FF00000000000000000000000000000000DCDCDCFFDBDBDBFFE2A1 + 79FFEFAF86FFEEAF86FFEEAE85FFEFAF86FFEFAF86FFEFAF86FFEFAF86FFFCC9 + A6FFEEAE86FFEEAF86FFEFAF86FFEFAF86FFEFAF86FFECB58FFFF5EFEBFFCC88 + 64FFDBDBDBFFDBDBDBFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E7C9FFF8E7C9FFF9E7C9FFF8E6C9FFF9E7CAFFF9E6C9FFF8E5 + C8FFF4E0C1FFE8CBAFFFE2C2A7FFE4C7AEFFDFBFA6FFE1C3A8FFEAD2B6FFF5DF + BCFFE8C5AAFF483B3252000000000000000000000000626156FF0E61E1FF0E61 + E1FF0D60E0FF2A70E4FF3D79E6FF3270E0FF0B5BDCFF0A5ADBFF0958D9FF0857 + D8FF0856D7FF0753D5FF0652D4FF2769DFFF3B77E5FF306CDDFF044ECFFF034C + CEFF024BCDFF024BCDFF43433FFF000000000000000000000000000000000C44 + 87FF1B69B9FFF9E9D0FFF8E9CFFF9B9280FF9B9280FF9B927FFF9B927FFF9B92 + 7FFF9B927EFF9B917EFF9B917DFF9B917DFF9B917DFFBFB299FFF8E5C7FF1B69 + B8FF0C4487FF00000000000000000000000000000000DEDEDEFFDDDDDDFFE3A1 + 7AFFEFB187FFEFB188FFEFB087FFEFB088FFEFB187FFEFB187FFEFB188FFFCCA + A7FFEFB187FFEFB187FFEFB188FFF0B188FFEFB188FFEFB088FFEFB088FFF5EA + E3FFDDDDDDFFDDDDDDFF00000000000000000000000000000000000000000000 + 0000F9EAD1FFF9E7CBFFF9E8CBFFF9E8CBFFF9E7CCFFF9E8CBFFF9E8CBFFF6E6 + C9FFF1DDC0FFFCF9F7FFF8F2ECFFFDF7EEFFFAECD5FFF8E3C3FFF7E0BBFF483D + 33520000000000000000000000000000000000000000646458FF0E61E1FF0E61 + E1FF1F6BE4FF2E65D0FF133896FF133896FF2A5CBFFF0B5CDCFF0A5ADAFF0959 + D9FF0957D8FF0855D6FF1B62DCFF2D63CEFF173271FF133896FF2A5EC5FF034D + CFFF034CCEFF024CCEFF454540FF000000000000000000000000000000000D45 + 8AFF1B6AB9FFF9EAD1FFF9E9D0FF565544FF575545FF575544FF575644FF5755 + 44FF565544FF575545FF575544FF575644FF86806CFF9B917DFFF8E7CAFF1B69 + BAFF0D4589FF00000000000000000000000000000000DFDFDFFFDEDEDEFFE3A3 + 7BFFEFB288FFF0B188FFEFB288FFF0B188FFEFB188FFEFB188FFF0B288FFFCCA + A7FFEFB288FFF0B188FFEFB288FFEFB289FFF0B188FFEFB188FFF0B188FFEFD1 + BDFFDEDEDEFFDEDEDEFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CCFFF8E7CCFFF9E8CCFFF9E7CCFFF9E8CCFFF8E7CBFFF7E4 + C8FFF2DDC0FFFEFAF5FFFCF6ECFFFBF0DDFFF8E3C2FFF7DFBAFFEDD0B4FF0000 + 0000000000000000000000000000000000000000000067665AFF0E61E1FF0E61 + E1FF1565E2FF133CA0FF526D97FF506C97FF163A8BFF0C59D5FF0B5BDCFF0A5A + DBFF0A59DAFF0957D8FF115BD9FF123BA0FF4774C5FF506C97FF1742A4FF044E + D0FF034ECFFF034DCFFF484842FF000000000000000000000000000000000D47 + 8CFF1C6BBBFFF9EAD2FFF9EAD1FF908974FF908974FF908974FF908974FF9089 + 74FF908974FF908974FF908974FF908974FF5A5A48FF9B917EFFF8E7CBFF1C6A + BBFF0D468CFF00000000000000000000000000000000E1E1E1FFE0E0E0FFE2A3 + 7BFFEFB289FFF0B289FFF0B289FFF0B289FFF0B288FFF0B289FFEFB289FFFCCA + A7FFF0B289FFEFB289FFEFB289FFEFB289FFEFB289FFEFB289FFF0B289FFE9B7 + 98FFDFDFDFFFDFDFDFFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CDFFF9E8CDFFF9E8CCFFF9E8CDFFF8E8CDFFF9E7CBFFF6E4 + C9FFF1DCBFFFFCF4E7FFFBEFDCFFF9E8CEFFF7DFB9FFEFD3B7FF493E35520000 + 000000000000000000000000000000000000000000006B6B5DFF579BF0FF579B + F0FF579BF0FF579BF0FF46453DFF48473FFF345E98FF4C89D6FF579BF0FF579B + F0FF579BF0FF579BF0FF579BF0FF579BF0FF3D3C36FF48473FFF345E98FF579B + F0FF579BF0FF579BF0FF4B4B45FF000000000000000000000000000000000E49 + 90FF3786D5FF3786D5FF3786D5FFF5F6EFFFE3E5D2FFD3D6B6FFD3D6B6FFD3D6 + B6FFD3D6B6FFD3D6B6FFD3D6B6FFDDDFC7FF64634FFF2F5B83FF3786D5FF3786 + D5FF0E4990FF00000000000000000000000000000000E3E3E3FFE2E2E2FFE3A3 + 7CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFEBB2 + 90FFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A3 + 7CFFE2E2E2FFE2E2E2FF00000000000000000000000000000000000000000000 + 0000F9EBD4FFF9E8CEFFF9E8CEFFF9E8CEFFF9E9CEFFF9E9CEFFF7E6CDFFF5E1 + C8FFF0DABEFFF7E2C0FFF7E1BEFFF7DFB9FF51463C5900000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF4078AFFF2380 + E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF1F6EC5FF2380E4FF2380 + E4FF2380E4FF2380E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF2380 + E4FF2380E4FF3770A9FF4F4E47FF000000000000000000000000000000000B39 + 71C70E4A93FF0E4B92FF0F4A92FF686754FF686754FF686754FF72725EFF7272 + 5EFF72725EFF72725EFF686854FF686754FF455C6DFF183A5EFF0E4B92FF0F4A + 92FF0B3971C700000000000000000000000000000000E4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FF00000000000000000000000000000000000000000000 + 0000FAECD4FFF9E8CEFFF9E9CFFFF9E9CEFFF9E9CFFFF9E8CDFFF7E5CCFFF4E2 + C7FFF0DABFFFF7DFB9FFF7DFB9FFF1D8BCFF0000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF6C6C5EFF6B6B + 5DFF6A695CFF69685BFFA9A98AFFB8B998FF32363FFF52544FFF636257FF6261 + 56FF626156FF5F5F54FF5E5E53FF5E5D53FFD4D4ABFFB8B998FF2C313BFF5858 + 4FFF58584FFF57564EFF79786DFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B57FF646351FF6463 + 51FF646351FF646351FF6D6C58FF000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000 + 0000FAECD5FFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CEFFF7E6CCFFF6E3 + C9FFF1DDC2FFF4DCB8FFF1D8BCFF6A5E50720000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000515044C7515044C70000000000000000000000000000 + 000000000000000000000000000000000000686758FF515044C7000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545389B73725DFF7372 + 5DFF73725DFF73725DFF4545389B000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8 + BCFFF1D8BCFF7266587900000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FFE00007000000FFFFFF80FFFFC00007000000010101807FFF + E00007000000010101803FFFE00007800001010101801FFFE000078000030101 + 01800FFFE00007C000030101018007FFE00007E00007010101E003FFE00007E0 + 0007010101F001FFF0000FF0000FEFEFEFF000FFF8001FF0001FEFEFEFFC007F + FE00FFF0001FE0000FFE0007FF00FFF8001FFFEFFFFE0003FE00FFFC003FFE00 + FFFF8001FE007FFE007FFE00FFFFC000FE007FFE007FFE00FFFFC000FE007FFE + 00FFFE00FFFFF020FE007FFF00FFFE00FFFFF070FE007FFF00FFFE00FFFFF038 + FE00FFFFC1FFFE00FFFFF01CFE00FFFFC3FFFE00FFFFF81FFF00FFFFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFE00FF800001FFFFFF00003FFE00FF000000FFFFFF8000FFFE00FF + 000000FFFFFF8000FFFE00FF0000008007F98000FFFE00FF0000008007F18000 + FFFE00FF0000008007F18000FFFE00FF000000801FE18000FFFE00FF00000080 + 3FC38000FFFE00FF000000801F038000FFFE00FF0000008000038000F8FE00FF + 0000008000038000F8FE00FF0000008000078000F8FE00FF00000080000FFFE3 + F8E0000300000080000FFFE3F8E0000700000080001FFFE3F8F0000F000000FC + 003FFFE1F0F8001F000000FE00FFFFE1F0FC003F000000FF01FFFFE0E0FE007F + 800003FFFFFFFFF001FF00FFFFFFFFFFFFFFFFF803FF81FFFFFFFFFFFFFFFFFC + 07FFC3FFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFC00007FE003FFFFFFFC0000FE0001FFE003F000000C0000FE0001F + FFC0FF800003C0000FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C000 + 0FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C0FC0FE0001FFFC1FF80 + 0003C0FC0FE0001FFFC1FF800003C0FC0FE0001FFFC1FF800001C0FC0FE0001F + FFC1FF800001C0FC0FE0001FFFC1FF800001C0FC0FE0001FFFC1FF800001C0C0 + 00E0001FFFC1FF800001C0C000E0001FFFC1FF800001C0C000E0001FF3C1E3FE + 007FC0F003E0001FF1C1E3FE007FC0F803800007F1C1C3FE007FC0F807800007 + F00003FFFFFFC0FE1F800007F00003FFFFFFE1FF1F800007F00003FFFFFFFFFF + 1FC0000FFFFFFFFFFFFFFFFFFFFF87FFF0000FFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFF801FF0000FFFFFFFC00001FFE0FFE00007FFFFFFC00001FFC07F + C00003FFFFFFC00001FFC03F800001FFFFFFC00001FF001F000000FFFFFFC000 + 01FE000F000000FFFFFFC00001FE0007000000FFFFFFC00001F8000300000080 + 0003C00001F00001000000800003C00001F00000000000800003C00001C00001 + 000000E00007C00001800003000000E00007C00001800003000000F0000FC000 + 0180000F000000F0000FC0000180001F000000F0000FC0000180001F000000F0 + 000FC0000182007F800001F0001FC000018200FF800003F8001FC000018000FF + E00007FFFFFFFFFFFFC003FFF0000FFFFFFFFFFFFFE007FFF0001FFFFFFFFFFF + FFF007FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF000FF01C07FC0FFFFF87FFFFFC3FF07F0FF007FFFF87FFFFF83FF83E1F + F003FFFF87FFFFF83FF8181FC000FFF8007FFFE03FFC001FC0C0FFF8007FFFC0 + 3FFC001F81E0FFF8007FFC003FFC001F83F0FFFF03FFF0001FFE003F87F8FFFE + 00FFF0001FFE001F87F8FFFC00FFF0000FF8001F83F0FFF0003FF0000FE00003 + 81E0FFF0303FF0000FC00003C0C0C7F0781FF0000F800000E00047F0FC1FF000 + 1F800000F00007F1FE1FF0001FFF80FFF00007F1FE1FF0003FFF80FFFFF807F0 + FC1FFFC03FFFC1FFFFF807F0781FFFE03FFFC1FFFFE007F0303FFFF03FFFC3FF + FFE007F8007FFFF83FFFC3FFFFE007FC00FFFFFC3FFFE7FFFFFFFFFE00FFFFFE + 3FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00FFF03E0FC0 + 000FE00007FF81FFF07F0780001FF8003FFE00FFF07F0780001FF8003FFE007F + F03E0780001FF8003FFE007FF03C2780001FF8003FF8001FF01847F0001FF800 + 3FF0001FF00807F0001FF8003FF0001FF0000FF0001FF8003FF0000FF8001FF0 + 001FF8003FE00007FE003FF0001FF8003FE00007FF80FFF0001FF8003FC00003 + FF80FFF0001FF8003FC00003FF00FFF0001FF8003FC00003FE087FF0001FF800 + 3FC00003FE183FF0001FF8003FC00003FE183FF0001FF8003FC00003FC3E1FF0 + 0003F8003FC00003F87F1FF00003F8003FC00003F07F0FF00003F8003FC00003 + F1FF8FF00003F8003FFF81FFF1FFCFF00003F8003FFFC3FFF3FFEFF80003F800 + 3FFFC7FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003FFFFFFFFFFFFFC001FFC001FC00003E00003F0000FF0000F800003C00003 + F00007F00007800003800003E00003E00003800003800003C00003C000038000 + 03800003C00003C0000380000380000380000180000180000380000380000180 + 0001800003800003800001800001800003800003800001800001800003800003 + 8000018000018000038000038000018000018000038000038000018000018000 + 03800003800001800001800003800003C00003C00003800003800003E00003E0 + 0003800003800003F00007F00007800003800003F00007F00007800003800003 + FC001FFC001F800003800003FE003FFE003FC00003800003FF00FFFF00FFE000 + 07800003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003E00003FFFFFFFC001FFC001FFC001FFC007FF0000FF0000FF0000FF8003F + F00007F00007F00007F0001FE00003E00003E00003E0000FC00003C00003C000 + 03C00007C00003C00003C0000380000380000180000180000180000380000180 + 0001800001800003800001800001800001800003800001800001800001800003 + 8000018000018000018000038000018000018000018000038000018000018000 + 01800003800001800001800001800003C00003C00003C00003800003E00003E0 + 0003E00003800003F00007F00007F00007C00007F00007F00007F00007E0000F + FC001FFC001FFC001FF0001FFE003FFE003FFE003FF8003FFF00FFFF00FFFF00 + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFC3FFFFF8FFFC007FFFFFFFFF80E3FFF8FFF8003F + FFFFFFFF00C3FFF87FF0001FFFFFFFFE0001FFF81FE0000FFFFFFFFC0001FFF8 + 1FC00007FFFFFFF8000180000F800003800001F00003800003800003800001E0 + 0003800003800003800001E00003800001800003800001800001800001800003 + 8000018000018000018000038000018000018000038000038000018000018000 + 0780000380000180000180000F800003800001800001FFF81F800003FFFFFF80 + 0001FFF83F800003FFFFFF800001FFF87FC00007FFFFFF800001FFF8FFE0000F + FFFFFF801803FFFFFFF0001FFFFFFFC03803FFFFFFF8003FFFFFFFF03E07FFFF + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003F80 + 07FFFFFFFFFFFFFFFC003F83FFFF80007FFFFFFFF0001FC1FFFF80007FFFFFFF + F0000FE0FFFF80007FFFFFFF800003F03E7F8000639FFFFF800003F03C7F8000 + 439FE001800003F0187F8000418FE001800003FC007FC200018FF001800003FE + 007FE3000187F801800003FE007FFF000183F801800003FF803FC20001806001 + 800003FF001F800001C00001800003FE001F800001C00001C00003FC00078000 + 63E00001E00007FC000380007FF00001F0001FFC000080007FF00001F0001FFF + F80080007FF80019F0001FFFF801FE07FFFC003FF0001FFFFC03FC03FFFE007F + FC003FFFFF07F801FFFFFFFFFC003FFFFF0FF801FFFFFFFFFC003FFFFF1FF801 + FFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0 + 0007800001FFFFFFFE0003F00007C00003F07FFFFC0003F00007C00003E03FFF + F80003F00007C00003C01FFFF00003F00007C000038007FFE00003F00007C000 + 038007FFE00003F00007C000038003FFE00003F00007C000038000FFE00003F0 + 0007C000038000FFE00003F00007C00003C0007FE00003F00007C00003E0001F + E00003F00007C00003F0001FE00003F00007C00003F0000FE00003F00007C000 + 03FC0007E00003F00007C00003FE0003E00003F00007C00003FE0003E00003F0 + 0007C00003FF8003E00003F00007C00003FFC003E00003F00007C00003FFC003 + E00003F00007C00003FFF007FFFFFFF00007C00003FFF80FFFFFFFFE493FC000 + 03FFFC1FFFFFFFFE493FFFFFFFFFFFFFC00FFFFFFFFFFFFFFFFFFFFFC07FFFFF + FFFFFFFFFFFE001F807FFFFFFFFF800003FFF8FF807FFFFFFFFF800003FFF0FF + 807E1FFC003F800003FFE0FF807807000000800003FFC0FFC078070000008000 + 03FF80C7E07807000000800003F00083F87807000000800003C00003F87807FC + 003F800003C00003F87C07FF00FF800003C00003F87F07FF00FF800003C00007 + F87F87FF00FF800003C00007F87F87FF00FFFC0003C00003F87F87FFC3FFFC00 + 03C00003F80F87FFC3FFFC0003C00003F80187FFC3FFFC0003E00003F80007FF + C3FFFC0003FF80C7F80007FFC3FFFC0003FFC0FFF80007FFC3FFFC0003FFC0FF + FC0007FFC3FFFC0003FFF0FFFF0007FFFFFFFFFFFFFFF8FFFFE007FFFFFFFFFF + FFFFF8FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FF00007FF + FFFFFFFFFFFFC3FFFC001FF0001FFFFFFFFF00FFFC001FFC003FFFFFFFFE00FF + FC001FFC003FF8000FFE007FFC001FFF00FFFF181FFE007FFC001F000000FF18 + 1FFF81FFFC001F000000FE101FF381CFFC001F000000FE007FE381C3FC001F00 + 0000FE00FFC00003FC001F000000FC00FF800001FC001F000000F8007F000000 + FC001F000000F8003F000000FC001F000000F0003F000000FC001F000000F000 + FF800003FC001F000000F003FFC381C3FC001F000000F007FFE381C7FC001F00 + 0000E03FFFFF81FFFC001F000000C0FFFFFE007FFC001F000000C3FFFFFE007F + FC001F000000FFFFFFFE00FFFC001F000000FFFFFFFF00FFFC001F000000FFFF + FFFF81FFFFFFFFFFFFFFFFFFFFFFC7FFC0000FFFFFFFFFFFFFFFFFFFE07FFFFF + FFFFFFFFFFFFFFFF803FFF80000383FFFFFFFFFF801FFFE0000F81FFFFFFFFFF + 860FFFE0000F81FFFFFFFFFF8F07FFE0000FC07FFF8000018707FFE0000FE03F + FF8000018207FFE0000FF03FFF800001C007FFE0000FF80FFF800001E007FFE0 + 000FFC07FF800001F003FFE0000FFE07FF800001F8001FE0000FFF00CF800001 + FC000FE0000FFF8007800001FFC007F0001FFFC007800001FFE003F8FE3FFFE0 + 03800001FFE001F8FE3FFFE001800001FFE061F8FE3FFFE001800001FFF0F0F8 + 7C3FFFF803800001FFF070F87C3FFFF803800001FFF820F8383FFFF003800001 + FFFC01FC007FFFF003800001FFFE03FE00FFFFFE1FFFFFFFFFFF03FF01FFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FFFFFFFFFFFFFF3FFFFFFF01FFFFFFFFFFFFFE3FFFFFFF01800000800001 + FE3FFFFFFE01800000800003F83FFFFFF801900081800003F03FFFFFF8039000 + 81800003F00001FFF003900081800003C00001FFE00F900081800003800001F0 + 001F900081800003800001E0001F90008180000380000180007F9000FF800003 + 8000018000FF9000FF8000038000018001FF9000FF800003E000010001FF9000 + FF800003F000010001FF9FC0FF800003F03FFF0001FF9FC0FF800003FC3FFF00 + 01FF9FC0FF800003FE3FFF0001FF9FC0FF800003FE3FFF0001FF9FC0FF800003 + FFFFFF8003FF9FC0FFFFFFFFFFFFFF8007FF9FC0FFFFFFFFFFFFFFC007FF9FFF + FFFFFFFFFFFFFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 3FFFFFFFFFFFFFFF80007FC01FFFFFFFFF80000383FFFF800FFFFFFFFF800003 + 83FFFF8207FFFFFFFF80000381FFFF8F87FFFFFFFF800003807FFF8FC7FF8000 + 01800003C03FFF8FC7FF800001800003F00FFF8F07FF800001800003F000FF82 + 07FF800001800003F8003F8003FF800001800003FE001FE000FF800001800003 + FE0007F000FF800001800003FF0003FFC07F800001800003FF0003FFF01F8000 + 01800003FF0003FFF81F800001800003FF0203FFF80FEFFFFF800003FF8703FF + FE03E00003800003FF8707FFFF03FFFFFF800003FFC20FFFFF01FFFFFF800003 + FFE01FFFFF00FFFFFFFFFFFFFFE03FFFFF00FFFFFFFFFFFFFFF07FFFFF00FFFF + FFFFFFFFFFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFF + BFFFFFFFFFF0001FF1FFFFFF8FFF000000F8001FF1FFFFFF8FFF800001F8001F + F1FFFFFF87FF800001F8001FF1FFFFFF87FF800001C00003F1FFFFFF83FF8000 + 01800003F1FFFFFFC3FF800001800003F1FFFFFFC0FF800001C03C03F1FFFFFF + C0FF800001C07E03F1FFFFFFC0FF80000180FF03F00003FE007F80000181FF01 + F00003FE003F80000181FF01F00003FE003F80000180FF01F00003FE001F8000 + 01C07E03F00003FE001F800001C03C03F00003FE01FF800001801803F00003FE + 00FF800001800003F00003FE00FF800001C00003F00003FE00FF803FFFF8001F + F00003FE007F807FFFF8001FF001F3FE003F80FFFFF8001FF0FFFFFE003FFFFF + FFFCC33FF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003800001FF9FFF807E03E00007CC0033FF87FF807E03E00007CC0033FF87FF + 80FF03E00007C00003FF83FF807E03E00007C00003FF81FF803C03E00007CC00 + 33FF81FF803803E00007CC0033FF81FF880013E00007C00003FF81FFFC003FE0 + 0007C00003FF81FFFE007FE00007CC0033FF81FFFF00FFE00007C00003FF00FF + FF00FFE00007C00003FE007FFE00FFE00007C00003FE003FFC003FE00007CC00 + 33F8001F880013E00007C00003F0000F801803E00007C00003F00007803C03E0 + 0007CC0033C00003807E03E00007CC003380000180FF03E00007C00003800001 + 807E03E00007C00003800001807E03E0000FCC0033800001807E03E0001FCC00 + 33800001FFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFC00003800001C1FFFFFC007F800003800001C0FFFFF8003F + 800003800001E03FFFF0001F800003800001F00FFFE0000F800003800001F007 + FFC00007800003800001F007FF800003800003800001F001FF80000380000380 + 0001F800FF800003800003800001F800FF800003800003800001FE003F800003 + 800003800001FE001F800003800003800001FF001F800003800003800001FFC0 + 07800003800003800001FFC003800003800003800001FFE00380000380000380 + 0001FFF801800003800003803FFFFFF801C00007800003803FFFFFFC01E0000F + 80000380FFFFFFFF01F0001FC00003FFFFFFFFFF83F8003FE00007FFFFFFFFFF + C3FC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFF7FFF03E0780 + 0001F0001FFFC7FFE07E07E00007F0001FFF81FFC03C03E00007F0001FFF00FF + 803803E00007F0001FFE00FF800001E00007F0001FFC003F800001E00007F000 + 1FF8001F800001E00007F0001FF0001FC00003E00007F0001FE00007E00007E0 + 0007F0001FE00003F0000FE00007F0001FE00007F8001FE00007F0001FFE00FF + F8001FE00007F0001FFE00FFF0001FE00007F0001FFE00FFE00007E00007F000 + 1FFE00FFC00003E00007F0001FFE00FF800003E00007F0001FFE00FF800001E0 + 0007F0001FFE00FF800001E00007F0001FFE00FF801801E00007F0001FFE00FF + C03C03E00007F0001FFE00FFE07E07E0000FF0001FFE00FFF0FF0FE0001FF000 + 1FFE00FFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + F0E3FF00FFFFFFFFFFF1FFFFF003FC001FE0000FFFE1FFFFF003F0000FE0000F + FFE1FFFFF003F00007E0000FFFC1FFFE001FE00003E0000FC00003FE001FC000 + 03E0000F800003FE001FC00003E0000F800001C0021F800001E0000F800001C0 + 021F800001E0000F800001C0021F800001E0000F800001C0021F800001E0000F + 800001C0021F800001E0000F800001C0021F800001E0000F800001C0021F8000 + 01E0000F800001C0021F800001E0000F800001C0021FC00003E0000F800001C0 + 021FE00003E0000F800001C0021FF00007E0000F800001C0021FF00007E0000F + 800001FE001FFC001FE0000F800001FE001FFE003FE0000F800003FE001FFF00 + FFF0001FFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF00FFFC003FFF + FFFF800001FE003FF0000FFC03FFE00007F0000FE00007F803FFE00007F00007 + C00003F003FFE00007E00003800003E001FFE00007C00003800001C001FFE000 + 07800001800001C001FFE00007800001000000E000FFE00007800000000000F0 + 40FFE00007800000000800F0C0FFE00007800000003800FFE07FE00007800000 + 003C00FFE03FE00007800000003800FFF03FE00007800000000000FFF81FE000 + 07800000000000FFF81FE00007800000000000FFFC0FE00007800001800001FF + FF03E00007C00003800003FFFF03E00007C00003800003FFFF83E00007E00003 + E00007FFFFE1E00007F0000FF0000FFFFFFFF0000FF8001FF0001FFFFFFFFE00 + FFFE003FFE00FFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFFFFFFF8001FFFFFFF800003C1F0FFF0000F840023800003C0007F + F00007840021800003C000FFE00003840021800003E3F8FFC01E038E00618000 + 03FFFC7FC00F03840021800003FFFC7F80078180000180000380003F8003C180 + 000180000380003F8001C180000180000380003F8100C180000180000380001F + 81804180000180000380001F81C00180000180000380001F81E0018000018000 + 0380001F81F001800001E0000780000FC0F803800001E0000780000FE0000380 + 0001E00007C00007E00007800001FFFFFFFFE007F00007800001FFFFFFFFFFC1 + F8001FFFFFFFFFFFFFFFFFE1FE003FFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80001FFFFFFFFFFFFFFFFFFFC00003FF + FFFF800003FFFFFFC0000780001FC00007FFFFFFC0000780000FC00007800003 + C00007800007C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800001C0000780 + 0003C00007800001C00007800003C00007800001C00007800003C00007800001 + C00007800003C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800003C0001F80 + 0003C00007E00007C0001F800003C00007F8001FC001FF800003C00007FFC01F + C001FF800003C00007FFFFFFC001FF800003C00007FFFFFFC001FFFFFFFFC000 + 07FFFFFFF007FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFFFFFFFFF9 + F3FFFFFFFFFFFFFFE00007F8E3FF000000FFFFFFC00003F843FF000000800003 + C00003F803FF000000800003C00003F803FF000000800003C00003F803FF0000 + 00800003C00003F803FF000000800003C00003F803FF000000800003C00003F8 + 03FF000000800003C00003F803FF000000800003800001F803FF000000800003 + 800001F803FF000000800003800001F8001F000000800003800001F8001F0000 + 00800003FFC7FFF8001F000000800003FFC7FFF8001F000000800003FFC7FFF8 + 001F000000800003FFC7FFF8001F800001800003FFC7FFF8001FFE3CFF800003 + FFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00 + FFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFE0000FFF + C1FFFFFFFFF8001FE0000FFE003FFE7E7FFE00FFE0000FFC001FF83C1FFE18FF + E0000FF8000FF03C1FFE38FFC00007F00003F0181FFE3CFFC00007C0C181F818 + 1FFC38FF800003C1C1C1F8001FFC38FF800003C1C1C1FE007FFC38FF800003C1 + C1E1FE007FFC38FF800003C3E3E1FE00FFFC38FF800003CFE3F9800001FC38FF + 800003CFE3FD800001FC38FF800003FF80FF800001FC38FF800003FF80FF8000 + 01FC38FF800003FFE3FFFE00FFFC30FF800003FFC1FFFE007FFC30FF800003FF + 80FFFC003FFC00FF800003FF80FFFC001FFC84FF800003FF88FFF8181FFCFCFF + 800003FF80FFF0381FFC38FFC06C07FF80FFF03C1FFC00FFF0C60FFFC0FFF83C + 1FFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FC001FC0001F000000FFFF01FF00FFC00007000001FFFF01FF00FFC00007 + 000001FFFE01FF00FFC00007000001FFF801FF00FFC00007000001FFF803FF00 + FFC00007000001FFF003FF00FFC00007000001FFE00F800000C00007000001F0 + 001F800000C00007000000E0001F800000C0000700000080007F800000C00007 + 0000008000FF800000C000070000008001FF800000C000070000000001FF8000 + 00C000070000010001FF800000C000070000010001FF800000C0000700000100 + 001FFF00FFC0000700000100001FFF00FFC0000700000100001FFF00FFC00007 + 0000018003FFFF00FFC000070000018007FFFF00FFC00007000001C007FFFF00 + FFC00007FFFFFFF03FFFFF00FFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFE000F00 + 0000FC001FFFFFFFFC0007000000FC001F000000FA000FF0000FFC001F000001 + F00FFFF0000FFC001F800001F007FFF0000FFC001F800001E003FFF00007FC00 + 1F8000018003FFF00007FC001F8000018001FFF00007FC001FC000030001FFF0 + 0007FC001FE0000701807FF00003FC001FF0000F03C07FE00003FC003FFF00FF + 87E07FE00003000001FF81FF87F03FE00003000001FF00FFFFF81FE000018000 + 03FF00FFFFFC0F800001C00007FE00FFFFFE0F800001E0000FFE00FFFFFF0780 + 0001F0001FFE00FFFFFF87800001F8003FFE00FFFFFFC1800001FC007FFE00FF + FFFFE1800000FE00FFFF00FFFFFFF1800001FF01FFFF00FFFFFFF8800001FF83 + FFFF81FFFFFFFCE00003FFC7FFFFFFFFFFFFFFF0000FFFFFFF000001F8000FF0 + 000F000000000041FE003FFFF1FF800001800041000000FFF0FF800005800041 + 000000FFF07F80000180004180000100103F80000180004180000100000F8000 + 0180004180000100000780000180004180000100000380000180004180000100 + 0003800001800041800001000000800001800041800001000000800001800041 + 80000100000080000180006380000100000080000180007F8000010000018000 + 0180007F80000100000380000180007FE4000700000780000180007FFC003F00 + 000F80000180007FFC003FFFF01F80000180007FFC003FFFF03F800001803FFF + FC003FFFF07F800001803FFFFC003FFFF0FF800001803FFFFC003FFFF1FF8000 + 01803FFFFFFFFFFFF7FFFFFFFF807FFFFFFFFFF8003F88007FFFFFFF000000FE + 003F800000000000800001FE00FFFE00FF800001800000FE00FFFE00FF800001 + 800000FF01FFFE00FF800001800000FF01FFFE00FF800001800000000000FE00 + FF800001800000000000FE00FF80000180000000000000000180000180000000 + 0000000001800001800000000000000001800001800000000000000001800001 + 8000000000000000018000008000000000000000018000008000000000000000 + 01800000800001000000000001800000800001000000000001800000C0000300 + 0000FE00FF800000E00007000000FE00FF800000F0000F000000FE00FF800001 + F8001F000000FE00FF800001FC003F000000FE00FF801801FE007F000000FE00 + FF803E01FFFFFF000000FE00FFC1FFC1F0000FFFFFFFFFFFFFE0001FF0000FFF + FFFF800001E0001FFF83FFFFFFFFE00007FF8FFFFF00FFFFFFFFE00007FF0FFF + FE007F000001E00007FE0FFFFC003F000001F0000FFC0800F8003F800007F000 + 0FF00000F0000F800003F0000FE00000E0000F800003F0000FC00000C0000780 + 0001F0000FC00000800001800001E00007000000000001800001E00007000000 + 000001800001E00007000000FC003F800000E00007000000FC003F800000E000 + 07800000FC003F800000E00007C00000FC003F800007F0000FE00000FC003F80 + 0007F8001FF00000FC003F800007FC003FF80FFFFC003F80000FFE007FFC0FFF + FC003F803FFFFF007FFE0FFFFC003FFFFFFFFF807FFF0FFFFC003FFFFFFFFFC0 + 7FFF8FFFFC003FFFFFFFFFE7FFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFF00000080 + 0001000001E00001800001E00007000001C00001800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00003800001E000078000 + 01F00003800001E00007800001F00003800001E00007800001F00003800001E0 + 0007800001F00003800001E00007800001F00003800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00001800001E000078000 + 01F00001800001E00007800001F00001800001E00007800001F00003800001E0 + 0007800001F0000F800001E00007800001F0000F800001E00007800001F0001F + 800001E00007800001F0007F800001E00007800001F0007F800001FF81FF8000 + 01F000FFFCFF3FFF81FFFFFFFFF003FF00000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + 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 + object Green: TcxStyle + AssignedValues = [svColor, svFont] + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + end +end diff --git a/应收应付/U_DataLink.pas b/应收应付/U_DataLink.pas new file mode 100644 index 0000000..1e67dd6 --- /dev/null +++ b/应收应付/U_DataLink.pas @@ -0,0 +1,71 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils; +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; //˾ + IpCall:Integer; + IpWLDZStr:string; +type + TDataLink_YSYF = 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; + Green: TcxStyle; + procedure DataModuleDestroy(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + DataLink_YSYF: TDataLink_YSYF; + +implementation +{$R *.dfm} + + +procedure TDataLink_YSYF.DataModuleDestroy(Sender: TObject); +begin + DataLink_YSYF:=nil; +end; + +end. + + + + diff --git a/应收应付/U_FKCR.dfm b/应收应付/U_FKCR.dfm new file mode 100644 index 0000000..1df9eea --- /dev/null +++ b/应收应付/U_FKCR.dfm @@ -0,0 +1,432 @@ +object frmFKCR: TfrmFKCR + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #20184#27454#30331#35760 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 56 + OnClick = TNochkClick + end + object ToolButton1: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object conNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = conNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 92 + Width = 1022 + Height = 488 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2DerateMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object v2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2DerateMoneyPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object VOrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 112 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 70 + Width = 1022 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1022 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_FKCR.pas b/应收应付/U_FKCR.pas new file mode 100644 index 0000000..0aa4822 --- /dev/null +++ b/应收应付/U_FKCR.pas @@ -0,0 +1,1048 @@ +unit U_FKCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmFKCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + conNo: TEdit; + v2Column1: TcxGridDBColumn; + v2DerateMoney: TcxGridDBColumn; + v2Ssel: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + TNochk: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2DerateMoneyPropertiesEditValueChanged(Sender: TObject); + procedure v2fstr1PropertiesEditValueChanged(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + procedure SetStatus(); + + public + fflag:integer; + { Public declarations } + RKFlag,FCYID,fmanage:String; + + end; + +var + frmFKCR: TfrmFKCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmFKCR.SetStatus(); +var + i:integer; +begin + + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; +// Ttj.Enabled:=false; +// TnoTj.Enabled:=false; + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + + + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + end; + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=false; + TBDel.Enabled:=true; + for i:=1 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + + end; + end; +end; + +procedure TfrmFKCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.conNo '); + sql.Add(',KHZJM=dbo.getPinYin(A.FactoryName)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join conTract_main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''Ǽ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmFKCR.InitGridHZ(); +begin +end; + +procedure TfrmFKCR.FormDestroy(Sender: TObject); +begin + frmFKCR:=nil; +end; + +procedure TfrmFKCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFKCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ǽ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmFKCR.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFKCR.FormShow(Sender: TObject); +begin + fflag:=0; + ReadCxGrid('Ǽ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + conNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:='ʵ'; + end; + SetStatus(); + InitGrid(); +end; + +procedure TfrmFKCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFKCR.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmFKCR.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmFKCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmFKCR.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + FieldByName('YFDefFlag1').Value:=fFlag; + FieldByName('status').Value:='0'; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmFKCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + { +try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; + } +end; + +procedure TfrmFKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmFKCR.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmPbProductList:=TfrmPbProductList.Create(Application); + with frmPbProductList do + begin + // DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmPbProductList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('subID').Value:=Trim(frmPbProductList.Order_Main.fieldbyname('subID').AsString); + FieldByName('conNo').Value:=Trim(frmPbProductList.Order_Main.fieldbyname('conNo').AsString); + post; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmPbProductList.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(frmPbProductList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmPbProductList.Free; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmFKCR.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.conNoChange(Sender: TObject); +begin + if Length(Trim(conNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmFKCR.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR.v2DerateMoneyPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('DerateMoney').Value:=StrToFloatdef(mvalue,0); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set DerateMoney='+mvalue); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + +end; + + +procedure TfrmFKCR.v2fstr1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set fstr1='+quotedstr(trim(mvalue))); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; +procedure TfrmFKCR.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFKCR.TNochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFKCR.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +end. diff --git a/应收应付/U_FKCRLZ.dfm b/应收应付/U_FKCRLZ.dfm new file mode 100644 index 0000000..c6b2473 --- /dev/null +++ b/应收应付/U_FKCRLZ.dfm @@ -0,0 +1,406 @@ +object frmFKCRLZ: TfrmFKCRLZ + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #20184#27454#30331#35760 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 830 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = VBB + end + item + Kind = skSum + Column = VYB + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v2ZFTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_FKCRLZ.pas b/应收应付/U_FKCRLZ.pas new file mode 100644 index 0000000..16062f5 --- /dev/null +++ b/应收应付/U_FKCRLZ.pas @@ -0,0 +1,882 @@ +unit U_FKCRLZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmFKCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2Column1: TcxGridDBColumn; + v2ZFTT: TcxGridDBColumn; + Label5: TLabel; + ComTaiTou: TEdit; + ToolButton4: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmFKCRLZ: TfrmFKCRLZ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmFKCRLZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmFKCRLZ.InitGridHZ(); +begin +end; + +procedure TfrmFKCRLZ.FormDestroy(Sender: TObject); +begin + frmFKCRLZ:=nil; +end; + +procedure TfrmFKCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFKCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ǽ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmFKCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmFKCRLZ.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('Ǽ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2ZFTT,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + InitGrid(); +end; + +procedure TfrmFKCRLZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFKCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmFKCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmFKCRLZ.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmFKCRLZ.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmFKCRLZ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCRLZ.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCRLZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmFKCRLZ.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmFKCRLZ.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmFKCRLZ.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCRLZ.ToolButton4Click(Sender: TObject); +var + FColumn:String; +begin + begdate.SetFocus; + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if not ((Trim(FColumn)<>'Note') or (Trim(FColumn)<>'YFName') or (Trim(FColumn)<>'ComTaiTou')) then Exit; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv2,CDS_HZ); + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '+Trim(FColumn)+'='''+Trim(CDS_HZ.fieldbyname(FColumn).Value)+''''); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + CDS_HZ.EnableControls; +end; + +procedure TfrmFKCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.OrderNO like :OrderNo and A.CRType=''Ǽ'' '); + Parameters.ParamByName('OrderNo').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_FKCR_GD.dfm b/应收应付/U_FKCR_GD.dfm new file mode 100644 index 0000000..2a1019b --- /dev/null +++ b/应收应付/U_FKCR_GD.dfm @@ -0,0 +1,447 @@ +object frmFKCR_GD: TfrmFKCR_GD + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #20184#27454#30331#35760 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBADD: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TBADDClick + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + Enabled = False + ImageIndex = 56 + OnClick = TNochkClick + end + object ToolButton1: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object conNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = conNoChange + end + object CheckBox1: TCheckBox + Left = 20 + Top = 33 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 107 + Width = 1022 + Height = 473 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object v2SSEl: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEl' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column2: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'fstr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 112 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1022 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1022 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_FKCR_GD.pas b/应收应付/U_FKCR_GD.pas new file mode 100644 index 0000000..0d1f714 --- /dev/null +++ b/应收应付/U_FKCR_GD.pas @@ -0,0 +1,1098 @@ +unit U_FKCR_GD; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmFKCR_GD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + TBADD: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + conNo: TEdit; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2SSEl: TcxGridDBColumn; + CheckBox1: TCheckBox; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + TNochk: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column3PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + procedure Setstatus(); + + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID:String; + fmanage:string; + + end; + +var + frmFKCR_GD: TfrmFKCR_GD; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmFKCR_GD.Setstatus(); +var + i:integer; +begin + + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; +// Ttj.Enabled:=false; +// TnoTj.Enabled:=false; + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + + + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + end; + + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=false; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + + end; + end; +end; + +procedure TfrmFKCR_GD.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNO '); + sql.Add(',KHZJM=dbo.getPinYin(A.FactoryName)'); + sql.Add(' from YF_Money_CR A'); + // sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYorder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''Ǽ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmFKCR_GD.InitGridHZ(); +begin +end; + +procedure TfrmFKCR_GD.FormDestroy(Sender: TObject); +begin + frmFKCR_GD:=nil; +end; + +procedure TfrmFKCR_GD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFKCR_GD.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ǽ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmFKCR_GD.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmFKCR_GD.FormShow(Sender: TObject); +begin + ReadCxGrid('Ǽ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + conNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + Setstatus(); + InitGrid(); +end; + +procedure TfrmFKCR_GD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFKCR_GD.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmFKCR_GD.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmFKCR_GD.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmFKCR_GD.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' and YFDefFlag1='''+inttostr(fFlag)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmFKCR_GD.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.TBADDClick(Sender: TObject); +begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=''; + FieldByName('FactoryName').Value:='֯'; + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); +{ try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.Free; + end; } + { +try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; + } +end; + +procedure TfrmFKCR_GD.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR_GD.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR_GD.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFKCR_GD.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmFKCR_GD.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + IF fFlag=1 then + CustomerNoName.Text:='㶫в' + else + if fFlag=2 then + CustomerNoName.Text:='в'; + CustomerNoName.Enabled:=false; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('subID').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('subID').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('p_CodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('p_Color').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTColor').AsString); + post; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(SELF.CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(SELF.CDS_HZ.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,p_CodeName='''+Trim(SELF.CDS_HZ.fieldbyname('p_CodeName').AsString)+''''); + sql.Add(' ,p_Color='''+Trim(SELF.CDS_HZ.fieldbyname('p_Color').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmFKCR_GD.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.conNoChange(Sender: TObject); +begin + if Length(Trim(conNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmFKCR_GD.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('DerateMoney').Value:=StrToFloatdef(mvalue,0); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set DerateMoney='+mvalue); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + +end; + +procedure TfrmFKCR_GD.v2Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set fstr1='+quotedstr(trim(mvalue))); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmFKCR_GD.CheckBox1Click(Sender: TObject); +begin +IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmFKCR_GD.cxTabControl1Change(Sender: TObject); +begin +Setstatus(); + InitGrid(); +end; + +procedure TfrmFKCR_GD.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFKCR_GD.TNochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/应收应付/U_FjList.dfm b/应收应付/U_FjList.dfm new file mode 100644 index 0000000..dfd9953 --- /dev/null +++ b/应收应付/U_FjList.dfm @@ -0,0 +1,126 @@ +object frmFjList: TfrmFjList + Left = 312 + Top = 93 + Width = 639 + Height = 394 + BorderIcons = [biSystemMenu, biMinimize] + Caption = #38468#20214#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ListView1: TListView + Left = 4 + Top = 16 + Width = 429 + Height = 301 + Columns = <> + TabOrder = 0 + OnDblClick = ListView1DblClick + end + object Panel1: TPanel + Left = 480 + Top = 0 + Width = 151 + Height = 360 + Align = alRight + TabOrder = 1 + object FileName: TcxButton + Left = 30 + Top = 60 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152 + TabOrder = 0 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 30 + Top = 96 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #21024#38500 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 30 + Top = 132 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20445#23384 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton3: TcxButton + Left = 30 + Top = 172 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20851#38381 + TabOrder = 3 + Visible = False + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + end + object Panel2: TPanel + Left = 176 + Top = 140 + Width = 193 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel2' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnDblClick = Panel2DblClick + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 520 + Top = 28 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 568 + Top = 32 + end + object ImageList1: TImageList + Left = 536 + Top = 228 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 500 + Top = 198 + end +end diff --git a/应收应付/U_FjList.pas b/应收应付/U_FjList.pas new file mode 100644 index 0000000..f17443a --- /dev/null +++ b/应收应付/U_FjList.pas @@ -0,0 +1,361 @@ +unit U_FjList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, + cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP; + +type + TfrmFjList = class(TForm) + ListView1: TListView; + Panel1: TPanel; + FileName: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + ImageList1: TImageList; + Panel2: TPanel; + IdFTP1: TIdFTP; + procedure cxButton3Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ListView1DblClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Panel2DblClick(Sender: TObject); + private + procedure InitData(); + { Private declarations } + public + fkeyNO:string; + fType:string; + fId:integer; + { Public declarations } + end; + +var +frmFjList: TfrmFjList; + +implementation +uses + U_DataLink,U_Fun10; +{$R *.dfm} +procedure TfrmFjList.InitData(); +var + ListItem: TListItem; + Flag: Cardinal; + info: SHFILEINFOA; + Icon: TIcon; +begin + ListView1.Items.Clear; + try + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select fileName from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + open; + if not IsEmpty then + begin + while not eof do + begin + with ListView1 do + begin + LargeImages := ImageList1; + Icon := TIcon.Create; + ListItem := Items.Add; + Listitem.Caption := trim(fieldbyname('fileName').AsString); + // Listitem.SubItems.Add(OpenDiaLog.FileName); + Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); + SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag); + Icon.Handle := info.hIcon; + ImageList1.AddIcon(Icon); + ListItem.ImageIndex := ImageList1.Count - 1; + end; + next; + end; + end; + end; + except + end; +end; + +procedure TfrmFjList.cxButton3Click(Sender: TObject); +begin + ADOQueryTmp.Close; + ADOQuerycmd.Close; + ListView1.Items.Free; + ModalResult:=-1; +end; + +procedure TfrmFjList.FormDestroy(Sender: TObject); +begin + frmFjList:=nil; +end; + +procedure TfrmFjList.FileNameClick(Sender: TObject); +var + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; + maxNo:string; +// myStream: TADOBlobStream; +// FJStream : TMemoryStream; +begin + + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + + Panel2.Caption:='ϴݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + adoqueryCmd.Connection.BeginTrans; + try + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + append; + fieldbyname('TFID').Value:=trim(maxNO); + fieldbyname('WBID').Value:=trim(fkeyNO); + fieldbyname('TFType').Value:=trim(fType); + fieldbyname('FileName').Value:=trim(fFileName); + tblobfield(FieldByName('Filesother')).LoadFromFile(fFilePath); + post; + end; + + if fFilePath <> '' then + begin + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName)); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; + + Panel2.Visible:=false; + initdata(); + finally + //OpenDiaLog.Free; + end; + + end; + adoqueryCmd.Connection.CommitTrans; + except + adoqueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFjList.FormCreate(Sender: TObject); +begin + ListView1.Align:=alclient; +end; + +procedure TfrmFjList.FormShow(Sender: TObject); +begin + initdata(); +end; + +procedure TfrmFjList.ListView1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; +begin + if ListView1.Items.Count<1 THEN EXIT; + + if listView1.SelCount<1 then exit; + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=ListView1.Selected.Caption; + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + +end; + +procedure TfrmFjList.cxButton1Click(Sender: TObject); +var + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + fFileName:=ListView1.Selected.Caption; + // ADOQueryTmp.Locate('fileName',fFileName,[]); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + initData(); + + except + end; + +end; + +procedure TfrmFjList.cxButton2Click(Sender: TObject); +var + SaveDialog: TSaveDialog; + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + + fFileName:=ListView1.Selected.Caption; + + SaveDialog := TSaveDialog.Create(Self); + + SaveDialog.FileName:=fFileName; + if SaveDialog.Execute then + begin + Panel2.Caption:='ڱݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + fFilePath:=SaveDialog.FileName; + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + end; + except + Panel2.Visible:=false; + end; +end; + +procedure TfrmFjList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if fId=10 then Action:=cafree + else + Action:=cahide; +end; + +procedure TfrmFjList.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +end. diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas new file mode 100644 index 0000000..5d4c16b --- /dev/null +++ b/应收应付/U_GetDllForm.pas @@ -0,0 +1,538 @@ + +unit U_GetDllForm; +interface +uses + Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB; + +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_Fun,U_YFCR,U_FKCR, + U_YFFKList,U_YSCR,U_SKCR,U_YSSKList,U_ProductOrderCost,U_YFFP,U_YSFP + ,U_YFCRLZ,U_YSCRLZ,U_YSHZMX,U_YFCRYCL,U_YSCROL,U_SKCROLJ,U_YSHZMXOLJ + ,U_SKCRLZ,U_YSHZMXDL,U_FKCRLZ,U_YSHZMXView,U_YFCRLZView,U_YFCRLZQty, + U_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,U_FKCR_GD,U_YFCR_GD; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=GName; + DCode:=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; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + + //server:='192.168.1.99'; //192.168.1.113 + server:='202.96.107.70,7781'; + dtbase:='haoyuedata'; +// dtbase:='jianweidata'; + user:='sa'; + pswd:='rightsoft@123'; + // pswd:='numlock'; + DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID=' + +user+';Initial Catalog='+dtbase+';Data Source='+server; + + DConString:=DataBaseStr; + + // DParameters1:='޶'; + //DParameters1:='';//103 +// DParameters2:=''; + Parameters1:='Ȩ'; +// DataBase:='Ȩ'; +// DataBase:='1'; +// DParameters1:='2'; + // DParameters3:='Ŀֿ'; + // DParameters4:='Էλֿ'; + //DParameters5:='Ʊ'; + //DParameters6:=''; //Ӧ + //DParameters7:='ƥ'; //Ӧտ + //DCode:='test'; + //DName:=''; + //DParameters9:='̨֧ͷ'; + //DParameters8:='FactoryNo1Name'; + //DParameters10:='P_YSSK_ListTT'; + if not ConnData() then + begin + result:=0; + exit; + end; + { if IsINIFile() then + ReadINIFile() + else + WriteINIFile ;} + // 崰 ״̬ + if WinStyle=0 then + begin + mstyle := fsMDIChild ; + mstate := wsMaximized ; + mborderstyle := bsSizeable; + end + else + begin + mstyle := fsNormal ; + mstate := wsNormal ; + mborderstyle := bsSizeable; + end; + //////////////////// + { GetSWLDZ('192.168.1.246'); + if IpCall<>0 then + begin + Result:=0; + Application.MessageBox('粻ͨ','ʾ',0); + Exit; + end; + if Trim(IpWLDZStr)<>'D4:AE:52:BE:9F:02' then + begin + Result:=0; + Application.MessageBox('ݿʧܣ','ʾ',0); + Exit; + end; } + ///////////////////// + //ģ鴰 + case FormId of + 1: //ӦǼ + begin + if frmYFCR=nil then + begin + frmYFCR:= TfrmYFCR.Create(application.MainForm); + with frmYFCR do + begin + caption:=Trim(Title); + fmanage:=trim(Parameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFCR.BringToFront; + // + mNewHandle:=frmYFCR.Handle; + + end ; + + 2: //Ǽ + begin + if frmFKCR=nil then + begin + frmFKCR:= TfrmFKCR.Create(application.MainForm); + with frmFKCR do + begin + caption:=Trim(Title); + fmanage:=trim(Parameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFKCR.BringToFront; + // + mNewHandle:=frmFKCR.Handle; + + end ; + 3: //Ӧͳ + begin + if frmYFFKList=nil then + begin + frmYFFKList:= TfrmYFFKList.Create(application.MainForm); + with frmYFFKList do + begin + caption:=Trim(Title); + // fDParameters1:=trim('0'); + fDParameters1:=trim(DParameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFFKList.BringToFront; + // + mNewHandle:=frmYFFKList.Handle; + + end ; + 31: //Ӧϸ˵ + begin + if frmYFZDList_MX=nil then + begin + frmYFZDList_MX:= TfrmYFZDList_MX.Create(application.MainForm); + with frmYFZDList_MX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFZDList_MX.BringToFront; + // + mNewHandle:=frmYFZDList_MX.Handle; + + end ; + 4: //ӦտǼ + begin + if frmYSCR=nil then + begin + frmYSCR:= TfrmYSCR.Create(application.MainForm); + with frmYSCR do + begin + fflag:=strtointdef(trim(DataBase),0); + fmanage:=trim(Parameters1); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSCR.BringToFront; + // + mNewHandle:=frmYSCR.Handle; + + end ; + + 5: //տǼ + begin + if frmSKCR=nil then + begin + frmSKCR:= TfrmSKCR.Create(application.MainForm); + with frmSKCR do + begin + caption:=Trim(Title); + fflag:=strtointdef(trim(DataBase),0); + fmanage:=trim(Parameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSKCR.BringToFront; + // + mNewHandle:=frmSKCR.Handle; + + end ; + 6: //Ӧտտͳ + begin + if frmYSSKList=nil then + begin + frmYSSKList:= TfrmYSSKList.Create(application.MainForm); + with frmYSSKList do + begin + caption:=Trim(Title); + fDParameters1:=trim(DParameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSSKList.BringToFront; + // + mNewHandle:=frmYSSKList.Handle; + + end ; + 61: //Ӧտտͳ + begin + if frmYSZDList_MX=nil then + begin + frmYSZDList_MX:= TfrmYSZDList_MX.Create(application.MainForm); + with frmYSZDList_MX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSZDList_MX.BringToFront; + // + mNewHandle:=frmYSZDList_MX.Handle; + + end ; + 7: //ͳƲѯ + begin + if frmProductOrderCost=nil then + begin + frmProductOrderCost:= TfrmProductOrderCost.Create(application.MainForm); + with frmProductOrderCost do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderCost.BringToFront; + // + mNewHandle:=frmProductOrderCost.Handle; + + end; + + 8: //ƱǼ + begin + if frmYFFP=nil then + begin + frmYFFP:= TfrmYFFP.Create(application.MainForm); + with frmYFFP do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFFP.BringToFront; + // + mNewHandle:=frmYFFP.Handle; + + end; + 9: //ƱǼ + begin + if frmYSFP=nil then + begin + frmYSFP:= TfrmYSFP.Create(application.MainForm); + with frmYSFP do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSFP.BringToFront; + // + mNewHandle:=frmYSFP.Handle; + + end; + 10: //Ӧ˿ϸ + begin + if frmYSHZMX=nil then + begin + frmYSHZMX:= TfrmYSHZMX.Create(application.MainForm); + with frmYSHZMX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSHZMX.BringToFront; + // + mNewHandle:=frmYSHZMX.Handle; + + end; + 102: //Ӧ˿ϸ() + begin + if frmYSHZMXDL=nil then + begin + frmYSHZMXDL:= TfrmYSHZMXDL.Create(application.MainForm); + with frmYSHZMXDL do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSHZMXDL.BringToFront; + // + mNewHandle:=frmYSHZMXDL.Handle; + + end; + 103: //Ӧ˿ϸѯ + begin + if frmYSHZMXView=nil then + begin + frmYSHZMXView:= TfrmYSHZMXView.Create(application.MainForm); + with frmYSHZMXView do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSHZMXView.BringToFront; + // + mNewHandle:=frmYSHZMXView.Handle; + + end; + 101: //Ӧ˿ϸOLJ + begin + if frmYSHZMXOLJ=nil then + begin + frmYSHZMXOLJ:= TfrmYSHZMXOLJ.Create(application.MainForm); + with frmYSHZMXOLJ do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSHZMXOLJ.BringToFront; + // + mNewHandle:=frmYSHZMXOLJ.Handle; + + end; + 20: //Ӧ˿ϸOLJ + begin + if frmYFMXlist=nil then + begin + frmYFMXlist:= TfrmYFMXlist.Create(application.MainForm); + with frmYFMXlist do + begin + caption:=Trim(Title); + fType:=trim(DataBase); + + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFMXlist.BringToFront; + // + mNewHandle:=frmYFMXlist.Handle; + + end; + 201: //Ӧ˿ϸOLJ + begin + if frmYSMXlist=nil then + begin + frmYSMXlist:= TfrmYSMXlist.Create(application.MainForm); + with frmYSMXlist do + begin + caption:=Trim(Title); + // fType:='0'; + fType:=trim(DataBase); + + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSMXlist.BringToFront; + // + mNewHandle:=frmYSMXlist.Handle; + + end; + end ; // end case + + Result:= mnewHandle; + NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +begin + if not Assigned(DataLink_YSYF) then + DataLink_YSYF:=TDataLink_YSYF.Create(Application); + Try + with DataLink_YSYF.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 + OldDllApp:= Application; + +FINALIZATION + DataLink_YSYF.Free; + Application := OldDllApp; + +end. + diff --git a/应收应付/U_OrderSel.dfm b/应收应付/U_OrderSel.dfm new file mode 100644 index 0000000..eeac983 --- /dev/null +++ b/应收应付/U_OrderSel.dfm @@ -0,0 +1,285 @@ +object frmOrderSel: TfrmOrderSel + Left = 93 + Top = 153 + Width = 1171 + Height = 587 + Caption = #35746#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1163 + Height = 461 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v2Column3: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 78 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 141 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1163 + Height = 89 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label2: TLabel + Left = 35 + Top = 19 + Width = 48 + Height = 16 + Caption = #35746#21333#21495 + end + object Label3: TLabel + Left = 268 + Top = 19 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object Label6: TLabel + Left = 35 + Top = 51 + Width = 48 + Height = 16 + Caption = #38376' '#24133 + end + object Label7: TLabel + Left = 268 + Top = 51 + Width = 32 + Height = 16 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 467 + Top = 51 + Width = 64 + Height = 16 + Caption = #23458' '#25143 + end + object Label9: TLabel + Left = 467 + Top = 19 + Width = 64 + Height = 16 + Caption = #20013#25991#21517#31216 + end + object OrderNo: TEdit + Tag = 2 + Left = 83 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 0 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 301 + Top = 16 + Width = 111 + Height = 24 + TabOrder = 1 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 83 + Top = 47 + Width = 121 + Height = 24 + TabOrder = 2 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 301 + Top = 47 + Width = 111 + Height = 24 + TabOrder = 3 + OnChange = OrderNoChange + end + object Button1: TButton + Left = 687 + Top = 16 + Width = 75 + Height = 25 + Caption = #21047#26032 + TabOrder = 4 + OnClick = Button1Click + end + object Button2: TButton + Left = 687 + Top = 48 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 5 + OnClick = Button2Click + end + object Button3: TButton + Left = 783 + Top = 48 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 6 + OnClick = Button3Click + end + object CustomerNoName: TEdit + Tag = 2 + Left = 533 + Top = 47 + Width = 119 + Height = 24 + TabOrder = 7 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 533 + Top = 15 + Width = 119 + Height = 24 + TabOrder = 8 + OnChange = OrderNoChange + end + end + object CDS_OrderSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 208 + end + object DataSource1: TDataSource + DataSet = CDS_OrderSel + Left = 680 + Top = 224 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 848 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 208 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 272 + end +end diff --git a/应收应付/U_OrderSel.pas b/应收应付/U_OrderSel.pas new file mode 100644 index 0000000..27eed3f --- /dev/null +++ b/应收应付/U_OrderSel.pas @@ -0,0 +1,178 @@ +unit U_OrderSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ADODB, DBClient, ComCtrls, + ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox; + +type + TfrmOrderSel = class(TForm) + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label2: TLabel; + OrderNo: TEdit; + Label3: TLabel; + PRTColor: TEdit; + Label6: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MPRTKZ: TEdit; + CDS_OrderSel: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGridPopupMenu1: TcxGridPopupMenu; + v2Column2: TcxGridDBColumn; + Label8: TLabel; + CustomerNoName: TEdit; + Label9: TLabel; + MPRTCodeName: TEdit; + v2Column3: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmOrderSel: TfrmOrderSel; + +implementation +uses + U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmOrderSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSel.Button2Click(Sender: TObject); +var + KHName:String; +begin + if CDS_OrderSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + CDS_OrderSel.DisableControls; + KHName:=''; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(KHName)='' then + begin + KHName:=Trim(fieldbyname('CustomerNo').AsString); + end else + begin + if Trim(fieldbyname('CustomerNo').AsString)<>KHName then + begin + Application.MessageBox('ѡͬͻ','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + ModalResult:=1; +end; + +procedure TfrmOrderSel.FormDestroy(Sender: TObject); +begin + frmOrderSel:=nil; +end; + +procedure TfrmOrderSel.Button3Click(Sender: TObject); +begin + ModalResult:=-1; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmOrderSel.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmOrderSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where exists(select * from CK_BanCP_CR AA inner join CK_BanCP_KC BB on AA.CRID=BB.CRID '); + sql.Add(' where AA.MainId=A.MainId and AA.SubId=B.SubId and AA.CRType='''' and BB.KCQty>0)'); + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSel.Button1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmOrderSel.OrderNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); +end; + +procedure TfrmOrderSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/应收应付/U_PbProductList.dfm b/应收应付/U_PbProductList.dfm new file mode 100644 index 0000000..9ee0196 --- /dev/null +++ b/应收应付/U_PbProductList.dfm @@ -0,0 +1,605 @@ +object frmPbProductList: TfrmPbProductList + Left = 113 + Top = 117 + Width = 1094 + Height = 600 + Caption = #22383#24067#20219#21153#21333 + 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 = 1086 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1086 + Height = 65 + 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 = 151 + Top = 91 + Width = 39 + Height = 12 + Caption = #20219#21153#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 = 250 + Top = 39 + Width = 40 + 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 Label2: TLabel + Left = 318 + Top = 87 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 433 + Top = 87 + Width = 53 + 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 Label6: TLabel + Left = 740 + Top = 87 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 893 + Top = 87 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 464 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 251 + 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 Label10: TLabel + Left = 465 + Top = 39 + Width = 26 + 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 = 577 + Top = 87 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 829 + Top = 139 + 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 = 829 + Top = 115 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 192 + Top = 87 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 291 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 83 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 487 + Top = 83 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 793 + Top = 83 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 922 + Top = 83 + Width = 76 + Height = 20 + Enabled = False + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 497 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 292 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 498 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 631 + Top = 83 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 858 + Top = 135 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 858 + Top = 111 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1086 + Height = 410 + Align = alTop + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 75 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 75 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 123 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_PbProductList.pas b/应收应付/U_PbProductList.pas new file mode 100644 index 0000000..2cb8fee --- /dev/null +++ b/应收应付/U_PbProductList.pas @@ -0,0 +1,448 @@ +unit U_PbProductList; + +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; + +type + TfrmPbProductList = 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; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label6: TLabel; + MPRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1C_Spec: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPbProductList: TfrmPbProductList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmPbProductList.FormDestroy(Sender: TObject); +begin + frmPbProductList:=nil; +end; + +procedure TfrmPbProductList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPbProductList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPbProductList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmPbProductList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPbProductList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPbProductList.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + + end else + begin + v1Column4.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmPbProductList.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 TfrmPbProductList.DelData():Boolean; +begin +end; + +procedure TfrmPbProductList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmPbProductList.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 TfrmPbProductList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPbProductList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmPbProductList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPbProductList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPbProductList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPbProductList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPbProductList.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 TfrmPbProductList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmPbProductList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmPbProductList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+fsj+''''; + end; + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPbProductList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; + +end; + +end. diff --git a/应收应付/U_ProductOrderCost.dfm b/应收应付/U_ProductOrderCost.dfm new file mode 100644 index 0000000..61a7b10 --- /dev/null +++ b/应收应付/U_ProductOrderCost.dfm @@ -0,0 +1,873 @@ +object frmProductOrderCost: TfrmProductOrderCost + Left = 73 + Top = 77 + Width = 1292 + Height = 770 + Caption = #25104#26412#26680#31639 + 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 = 1284 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1284 + Height = 67 + 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 = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + 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 Label5: TLabel + Left = 179 + Top = 39 + 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 = 321 + Top = 39 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 321 + Top = 15 + 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 = 469 + Top = 39 + 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 = 469 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 603 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object Filler: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 375 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 375 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 498 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 498 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 19 + Top = 104 + Width = 1249 + Height = 225 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 72 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 64 + end + object v1Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v1Column8: TcxGridDBColumn + Caption = #23454#21457#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #24212#25910#27454'('#21407#24065')' + DataBinding.FieldName = 'YSKYB' + Width = 84 + end + object v1Column3: TcxGridDBColumn + Caption = #24212#25910#27454 + DataBinding.FieldName = 'YSK' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #25910#27454'('#21407#24065')' + DataBinding.FieldName = 'SKYB' + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #21040#22383#25968#37327 + DataBinding.FieldName = 'DPQty' + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + Width = 61 + end + object v1Column15: TcxGridDBColumn + Caption = #21040#22383#21333#20301 + DataBinding.FieldName = 'DPUnit' + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + Width = 61 + end + object v1Column13: TcxGridDBColumn + Caption = #20313#39069'('#21407#24065')' + DataBinding.FieldName = 'YMoneyYB' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column14: TcxGridDBColumn + Caption = #20313#39069'('#26412#24065')' + DataBinding.FieldName = 'YMoneyBB' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #25910#27454 + DataBinding.FieldName = 'SK' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #24212#20184#27454 + DataBinding.FieldName = 'YFK' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column6: TcxGridDBColumn + Caption = #20184#27454 + DataBinding.FieldName = 'FK' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column7: TcxGridDBColumn + Caption = #27611#21033#28070 + DataBinding.FieldName = 'MLR' + HeaderAlignmentHorz = taCenter + Width = 61 + 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_YSYF.Default + Width = 72 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 0 + Top = 404 + Width = 1284 + Height = 329 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 865 + Top = 2 + Width = 417 + Height = 325 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 102 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20184#27454#39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 132 + end + object v2Column5: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 335 + Height = 325 + Align = alLeft + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn2: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 113 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25910#27454#39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 118 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 337 + Top = 2 + Width = 528 + Height = 325 + Align = alLeft + TabOrder = 2 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = Tv47 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object djrq: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 101 + end + object tv46: TcxGridDBColumn + Caption = #24212#20184#27454#39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 119 + end + object v4Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v4Column4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v4Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v4Column3: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + HeaderAlignmentHorz = taCenter + Width = 52 + end + object Tv47: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 396 + Width = 1284 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 288 + Top = 240 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 320 + Top = 224 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 208 + end + object DataSource2: TDataSource + DataSet = CDS_FK + Left = 904 + Top = 504 + end + object CDS_FK: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_SK + Left = 280 + Top = 568 + end + object CDS_SK: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 608 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 904 + Top = 568 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 296 + Top = 504 + end + object DataSource4: TDataSource + DataSet = CDS_YFK + Left = 536 + Top = 560 + end + object CDS_YFK: TClientDataSet + Aggregates = <> + Params = <> + Left = 536 + Top = 600 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 512 + Top = 520 + end +end diff --git a/应收应付/U_ProductOrderCost.pas b/应收应付/U_ProductOrderCost.pas new file mode 100644 index 0000000..e5b4c40 --- /dev/null +++ b/应收应付/U_ProductOrderCost.pas @@ -0,0 +1,502 @@ +unit U_ProductOrderCost; + +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, cxButtonEdit, cxTextEdit; + +type + TfrmProductOrderCost = 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; + ToolButton1: TToolButton; + Label5: TLabel; + Filler: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Panel2: TPanel; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + CDS_FK: TClientDataSet; + DataSource3: TDataSource; + CDS_SK: TClientDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column10: TcxGridDBColumn; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + djrq: TcxGridDBColumn; + tv46: TcxGridDBColumn; + Tv47: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DataSource4: TDataSource; + CDS_YFK: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + v4Column1: TcxGridDBColumn; + v4Column2: TcxGridDBColumn; + v4Column3: TcxGridDBColumn; + v4Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderCost: TfrmProductOrderCost; + +implementation +uses + U_DataLink,U_Fun; //U_OrderInPut, + +{$R *.dfm} + +procedure TfrmProductOrderCost.FormDestroy(Sender: TObject); +begin + frmProductOrderCost:=nil; +end; + +procedure TfrmProductOrderCost.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderCost.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderCost.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ɱ1',Tv1,'ָʾ'); + WriteCxGrid('Ǽ11',Tv2,'ָʾ'); + WriteCxGrid('տǼ11',Tv3,'ָʾ'); + WriteCxGrid('ӦǼ11',Tv4,'ָʾ'); +end; + +procedure TfrmProductOrderCost.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_Cost :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderCost.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderCost.InitForm(); +begin + ReadCxGrid('ɱ1',Tv1,'ָʾ'); + ReadCxGrid('Ǽ11',Tv2,'ָʾ'); + ReadCxGrid('տǼ11',Tv3,'ָʾ'); + ReadCxGrid('ӦǼ11',Tv4,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderCost.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 TfrmProductOrderCost.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderCost.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderCost.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 TfrmProductOrderCost.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderCost.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderCost.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderCost.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderCost.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderCost.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderCost.ToolButton1Click(Sender: TObject); +begin + { if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + ScrollBox2.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; } +end; + +procedure TfrmProductOrderCost.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + try + ADOQueryPrint.DisableControls; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CRType=''Ǽ'' '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_FK); + SInitCDSData20(ADOQueryPrint,CDS_FK); + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CRType=''տǼ'' '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_SK); + SInitCDSData20(ADOQueryPrint,CDS_SK); + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CRType=''ӦǼ'' '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_YFK); + SInitCDSData20(ADOQueryPrint,CDS_YFK); + finally + ADOQueryPrint.EnableControls; + end; +end; + +procedure TfrmProductOrderCost.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_Cost :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+Trim(fsj)+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_ProductOrderList.dfm b/应收应付/U_ProductOrderList.dfm new file mode 100644 index 0000000..ec79064 --- /dev/null +++ b/应收应付/U_ProductOrderList.dfm @@ -0,0 +1,542 @@ +object frmProductOrderList: TfrmProductOrderList + Left = 134 + Top = 115 + Width = 1094 + Height = 600 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1265 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1265 + Height = 67 + 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 = #35746#21333#21495 + 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 = 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 Label5: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #36319#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 441 + Top = 39 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 441 + Top = 15 + 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 = 589 + Top = 39 + 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 = 589 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 618 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 618 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 16 + Top = 104 + Width = 1249 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 72 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + 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_YSYF.Default + Width = 72 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 63 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 67 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_ProductOrderList.pas b/应收应付/U_ProductOrderList.pas new file mode 100644 index 0000000..ba07f72 --- /dev/null +++ b/应收应付/U_ProductOrderList.pas @@ -0,0 +1,526 @@ +unit U_ProductOrderList; + +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, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI + ,IniFiles; + +type + TfrmProductOrderList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + Label5: TLabel; + OrdPerson1: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure ReadINIFile(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderList: TfrmProductOrderList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderList.FormDestroy(Sender: TObject); +begin + frmProductOrderList:=nil; +end; + +procedure TfrmProductOrderList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,A.OrderNo OrderNoM from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + SQL.Add('where OrdDate>=:begdate and OrdDate<:enddate'); + if Trim(DParameters1)<>'' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderList.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + ReadCxGrid('ָʾб',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,PRTColorEng=(select Note from KH_Zdy CC where ZdyName=B.PRTColor and CC.Type=''OrdColor'' ),ML='' '' '); + SQL.Add(',CPQty=(select isnull(Sum(PRTOrderQty),0) from JYOrder_Sub C where C.MainId=A.MainId)'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + i:=ADOQueryPrint.RecordCount; + ADOQueryPrint.First; + if i<14 then + begin + for j:=1 to 19-i do + begin + with CDS_Print do + begin + Append; + FieldByName('ML').Value:=' '; + Post; + end; + end; + end; + with CDS_Print do + begin + Append; + FieldByName('Note').Value:=Trim(Order_Main.fieldbyname('Note').AsString); + FieldByName('OrdDefStr10').Value:=Trim(Order_Main.fieldbyname('OrdDefStr10').AsString); + FieldByName('OrdDefStr11').Value:=Trim(Order_Main.fieldbyname('OrdDefStr11').AsString); + FieldByName('OrdDefStr12').Value:=Trim(Order_Main.fieldbyname('OrdDefStr12').AsString); + FieldByName('OrdDefStr13').Value:=Trim(Order_Main.fieldbyname('OrdDefStr13').AsString); + FieldByName('OrdDefStr14').Value:=Trim(Order_Main.fieldbyname('OrdDefStr14').AsString); + FieldByName('OrdDefStr15').Value:=Trim(Order_Main.fieldbyname('OrdDefStr15').AsString); + FieldByName('OrdDefStr16').Value:=Trim(Order_Main.fieldbyname('OrdDefStr16').AsString); + FieldByName('OrdDefStr17').Value:=Trim(Order_Main.fieldbyname('OrdDefStr17').AsString); + FieldByName('OrdDefStr18').Value:=Trim(Order_Main.fieldbyname('OrdDefStr18').AsString); + FieldByName('OrdDefStr19').Value:=Trim(Order_Main.fieldbyname('OrdDefStr19').AsString); + FieldByName('OrdDefStr20').Value:=Trim(Order_Main.fieldbyname('OrdDefStr20').AsString); + FieldByName('OrdDefStr21').Value:=Trim(Order_Main.fieldbyname('OrdDefStr21').AsString); + FieldByName('OrdPerson1').Value:=Trim(Order_Main.fieldbyname('OrdPerson1').AsString); + FieldByName('OrdPerson2').Value:=Trim(Order_Main.fieldbyname('OrdPerson2').AsString); + FieldByName('OrdPerson3').Value:=Trim(Order_Main.fieldbyname('OrdPerson3').AsString); + FieldByName('OrdPerson4').Value:=Trim(Order_Main.fieldbyname('OrdPerson4').AsString); + FieldByName('Filler').Value:=Trim(Order_Main.fieldbyname('Filler').AsString); + FieldByName('Chker').Value:=Trim(Order_Main.fieldbyname('Chker').AsString); + FieldByName('ML').Value:=' '; + Post; + end; + 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\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderList.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; + +end. diff --git a/应收应付/U_ProductOrderListCX.dfm b/应收应付/U_ProductOrderListCX.dfm new file mode 100644 index 0000000..2b46022 --- /dev/null +++ b/应收应付/U_ProductOrderListCX.dfm @@ -0,0 +1,628 @@ +object frmProductOrderListCX: TfrmProductOrderListCX + Left = 134 + Top = 115 + Width = 1094 + Height = 600 + HorzScrollBar.Position = 179 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = -179 + Top = 0 + Width = 1265 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton4: TToolButton + Left = 630 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 717 + Top = 0 + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 800 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = -179 + Top = 32 + Width = 1265 + Height = 67 + 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 = #35746#21333#21495 + 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 = 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 Label5: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #36319#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 441 + Top = 39 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 441 + Top = 15 + 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 = 589 + Top = 39 + 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 = 589 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + Enabled = False + TabOrder = 3 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 618 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 618 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = -163 + Top = 104 + Width = 1249 + Height = 369 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + 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_TradeManage.Default + Width = 72 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #24050#19978#20256 + DataBinding.FieldName = 'SOrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 485 + Top = 188 + end +end diff --git a/应收应付/U_ProductOrderListCX.pas b/应收应付/U_ProductOrderListCX.pas new file mode 100644 index 0000000..2717bbb --- /dev/null +++ b/应收应付/U_ProductOrderListCX.pas @@ -0,0 +1,780 @@ +unit U_ProductOrderListCX; + +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, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI + ,IniFiles; + +type + TfrmProductOrderListCX = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label5: TLabel; + OrdPerson1: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + v1Column3: TcxGridDBColumn; + ODPat: TOpenDialog; + SaveDialog1: TSaveDialog; + IdFTP1: TIdFTP; + 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 OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TBChkClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure ReadINIFile(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderListCX: TfrmProductOrderListCX; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_FileUp; + +{$R *.dfm} + +procedure TfrmProductOrderListCX.FormDestroy(Sender: TObject); +begin + frmProductOrderListCX:=nil; +end; + +procedure TfrmProductOrderListCX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListCX.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderListCX.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾбCX',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡCX',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,A.OrderNo OrderNoM from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + SQL.Add('where OrdDate>=:begdate and OrdDate<:enddate'); + if Trim(DParameters1)<>'' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListCX.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListCX.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + ReadCxGrid('ָʾбCX',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡCX',Tv1,'ָʾ'); + + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if FCloth=1 then + begin + v1Column4.Visible:=False; + //v1PRTPrice.Visible:=False; + //v1PRTPrice.Hidden:=True; + + end else + begin + v1Column4.Visible:=False; + //v1PRTPrice.Visible:=True; + //v1PRTPrice.Hidden:=False; + end; + InitGrid(); +end; + +procedure TfrmProductOrderListCX.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 TfrmProductOrderListCX.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('ͨ!','ʾ',0); + Exit; + end; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderListCX.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('ͨ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmProductOrderListCX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListCX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderListCX.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,PRTColorEng=(select Note from KH_Zdy CC where ZdyName=B.PRTColor and CC.Type=''OrdColor'' ),ML='' '' '); + SQL.Add(',CPQty=(select isnull(Sum(PRTOrderQty),0) from JYOrder_Sub C where C.MainId=A.MainId)'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + i:=ADOQueryPrint.RecordCount; + ADOQueryPrint.First; + if i<14 then + begin + for j:=1 to 19-i do + begin + with CDS_Print do + begin + Append; + FieldByName('ML').Value:=' '; + Post; + end; + end; + end; + with CDS_Print do + begin + Append; + FieldByName('Note').Value:=Trim(Order_Main.fieldbyname('Note').AsString); + FieldByName('OrdDefStr10').Value:=Trim(Order_Main.fieldbyname('OrdDefStr10').AsString); + FieldByName('OrdDefStr11').Value:=Trim(Order_Main.fieldbyname('OrdDefStr11').AsString); + FieldByName('OrdDefStr12').Value:=Trim(Order_Main.fieldbyname('OrdDefStr12').AsString); + FieldByName('OrdDefStr13').Value:=Trim(Order_Main.fieldbyname('OrdDefStr13').AsString); + FieldByName('OrdDefStr14').Value:=Trim(Order_Main.fieldbyname('OrdDefStr14').AsString); + FieldByName('OrdDefStr15').Value:=Trim(Order_Main.fieldbyname('OrdDefStr15').AsString); + FieldByName('OrdDefStr16').Value:=Trim(Order_Main.fieldbyname('OrdDefStr16').AsString); + FieldByName('OrdDefStr17').Value:=Trim(Order_Main.fieldbyname('OrdDefStr17').AsString); + FieldByName('OrdDefStr18').Value:=Trim(Order_Main.fieldbyname('OrdDefStr18').AsString); + FieldByName('OrdDefStr19').Value:=Trim(Order_Main.fieldbyname('OrdDefStr19').AsString); + FieldByName('OrdDefStr20').Value:=Trim(Order_Main.fieldbyname('OrdDefStr20').AsString); + FieldByName('OrdDefStr21').Value:=Trim(Order_Main.fieldbyname('OrdDefStr21').AsString); + FieldByName('OrdPerson1').Value:=Trim(Order_Main.fieldbyname('OrdPerson1').AsString); + FieldByName('OrdPerson2').Value:=Trim(Order_Main.fieldbyname('OrdPerson2').AsString); + FieldByName('OrdPerson3').Value:=Trim(Order_Main.fieldbyname('OrdPerson3').AsString); + FieldByName('OrdPerson4').Value:=Trim(Order_Main.fieldbyname('OrdPerson4').AsString); + FieldByName('Filler').Value:=Trim(Order_Main.fieldbyname('Filler').AsString); + FieldByName('Chker').Value:=Trim(Order_Main.fieldbyname('Chker').AsString); + FieldByName('ML').Value:=' '; + Post; + end; + 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\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderListCX.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListCX.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderListCX.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 TfrmProductOrderListCX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListCX.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBPrint.Click; +end; + +procedure TfrmProductOrderListCX.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderListCX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListCX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListCX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderListCX.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderListCX.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 TfrmProductOrderListCX.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderListCX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + ScrollBox2.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderListCX.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderListCX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListCX.TBChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + ScrollBox2.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + TBOk.Visible:=True; + TBNo.Visible:=True; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderListCX.ToolButton4Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.Order_Main.fieldbyname('SubId').AsString); + CYID:=Trim(Self.Order_Main.fieldbyname('SubId').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('SubId',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmProductOrderListCX.ToolButton5Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmProductOrderListCX.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; + +end. diff --git a/应收应付/U_ProductOrderListNew.dfm b/应收应付/U_ProductOrderListNew.dfm new file mode 100644 index 0000000..2e3a39d --- /dev/null +++ b/应收应付/U_ProductOrderListNew.dfm @@ -0,0 +1,1344 @@ +object frmProductOrderListNew: TfrmProductOrderListNew + Left = -1 + Top = 50 + Width = 1277 + Height = 684 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1269 + Height = 62 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + Caption = #29983#20135#35745#21010#21333 + ImageIndex = 58 + OnClick = ToolButton2Click + end + object TBChk: TToolButton + Left = 347 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 132 + OnClick = TBChkClick + end + object TBCChk: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 105 + Wrap = True + OnClick = TBCChkClick + end + object TBCopy: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 113 + OnClick = TBCopyClick + end + object TBCK: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 57 + OnClick = TBCKClick + end + object TBDel: TToolButton + Left = 126 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 189 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBBQPrint: TToolButton + Left = 252 + Top = 30 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 96 + OnClick = TBBQPrintClick + end + object TBPrint: TToolButton + Left = 339 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 402 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1269 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#21333#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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 566 + 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 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 595 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 104 + Width = 1269 + Height = 263 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + OnMouseDown = TV2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + Styles.Header = DataLink_WFBOrder.Default + Bands = < + item + Caption = #21367#26448 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object V2Column15: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'SOrdPrice' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object V2Column16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object V2Column17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column21: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column23: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 82 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object V2Column26: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 375 + Width = 1269 + Height = 272 + Align = alBottom + TabOrder = 4 + object cxGridDBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + Styles.Header = DataLink_WFBOrder.Default + Bands = < + item + Caption = #21046#21697 + Styles.Header = cxStyle1 + Width = 1374 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn15: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'SOrdPrice' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 488 + Top = 153 + Width = 201 + Height = 195 + TabOrder = 5 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 367 + Width = 1269 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 832 + Top = 144 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 808 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 864 + Top = 144 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/应收应付/U_ProductOrderListNew.pas b/应收应付/U_ProductOrderListNew.pas new file mode 100644 index 0000000..bc89eee --- /dev/null +++ b/应收应付/U_ProductOrderListNew.pas @@ -0,0 +1,1041 @@ +unit U_ProductOrderListNew; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNew = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + TBCK: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + TBChk: TToolButton; + TBCChk: TToolButton; + v1Column6: TcxGridDBColumn; + TBBQPrint: TToolButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + TBCopy: TToolButton; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column9: TcxGridDBBandedColumn; + V2Column10: TcxGridDBBandedColumn; + V2Column11: TcxGridDBBandedColumn; + V2Column12: TcxGridDBBandedColumn; + V2Column13: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column15: TcxGridDBBandedColumn; + V2Column16: TcxGridDBBandedColumn; + V2Column17: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + cxGridDBTableView1: TcxGridDBTableView; + Tv3: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + cxGridDBBandedColumn15: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridDBBandedColumn18: TcxGridDBBandedColumn; + cxGridDBBandedColumn19: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column21: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column23: TcxGridDBBandedColumn; + cxSplitter1: TcxSplitter; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + ToolButton2: TToolButton; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + V2Column26: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + 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 TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure TBCKClick(Sender: TObject); + procedure TBChkClick(Sender: TObject); + procedure TBCChkClick(Sender: TObject); + procedure TBCopyClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNew: TfrmProductOrderListNew; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNew.FormDestroy(Sender: TObject); +begin + frmProductOrderListNew:=nil; +end; + +procedure TfrmProductOrderListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNew.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + if DParameters1='' then + begin + TBChk.Visible:=True; + TBCChk.Visible:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBCopy.Visible:=False; + end else + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + TBAdd.Visible:=True; + TBEdit.Visible:=True; + TBCopy.Visible:=True; + end; +end; + +procedure TfrmProductOrderListNew.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾб',Tv2,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбDD',Tv3,'ָʾ'); +end; + +procedure TfrmProductOrderListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('MainId').Value:=''; + Open; + end; + SDofilter(ADOQueryMain,'OrderType='''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + SDofilter(ADOQueryMain,'OrderType=''Ʒ'''); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNew.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNew.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2013-06-19') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + ReadCxBandedGrid('޷IJָʾб',Tv2,'ָʾ'); + ReadCxBandedGrid('޷IJָʾбDD',Tv3,'ָʾ'); + if FFInt>0 then + begin + v1Column3.Hidden:=False; + v1Column3.Visible:=True; + end else + begin + v1Column3.Hidden:=True; + v1Column3.Visible:=False; + end; + if Trim(DParameters1)='1' then + begin + v1CustomerNoName.Visible:=False; + v1CustomerNoName.Hidden:=True; + end else + begin + v1CustomerNoName.Visible:=True; + v1CustomerNoName.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + {if Trim(DParameters1)='1' then + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + end;} +end; + +procedure TfrmProductOrderListNew.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNew.TBEditClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; +end; + +procedure TfrmProductOrderListNew.TBDelClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(Order_Main) then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(CDS_ZP) then + begin + //TBRafresh.Click; + //TBFind.Click; + CDS_ZP.Delete; + end; + end; + + +end; + +function TfrmProductOrderListNew.DelData(Order_Main10:TClientDataSet):Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListNew.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + ShowMessage(DCode); + +end; + +procedure TfrmProductOrderListNew.TBExportClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб()',cxGrid2); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + TcxGridToExcel('ָʾб(Ʒ)',cxGrid3); + end; + + +end; + +procedure TfrmProductOrderListNew.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderListNew.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListNew.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNew.OrderNoChange(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNew.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNew.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if FFInt=1 then + //ModalResult:=1; + TBCK.Click; +end; + +procedure TfrmProductOrderListNew.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + RMDB_Main.DataSet:=Order_Main; + end; + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + RMDB_Main.DataSet:=CDS_ZP; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderListNew.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + fsj:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + fsj:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + end else + begin + Application.MessageBox('δѡж!','ʾ',0); + Exit; + end; + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(fsj); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductOrderListNew.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNew.ToolButton4Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɲ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderListNew.ToolButton5Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderListNew.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNew.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNew.TBCKClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=3; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=3; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.TBChkClick(Sender: TObject); +begin + + if PPInt=1 then + begin + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=2; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.TBCChkClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(' ,Chker='''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(', Chker='''' where MainId='''+Trim(CDS_ZP.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with CDS_ZP do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end ; + +end; +procedure TfrmProductOrderListNew.CopyOrderData(Order_MainFF:TClientDataSet); +var + FFMainId:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //sql.Add('exec P_Copy_WFBOrder :MainId,:Filler'); + sql.Add('exec P_Copy_WFBOrder_NoQty :MainId,:Filler'); + Parameters.ParamByName('MainId').Value:=Trim(Order_MainFF.fieldbyname('MainId').AsString); + Parameters.ParamByName('Filler').Value:=Trim(DName); + ExecSQL; + end; + FFMainId:=Trim(Order_MainFF.fieldbyname('MainId').AsString)+'FZ'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update WFBYCL_PB Set CRID=(select isnull(Max(A.CRID),(select Max(AA.CRID) from CK_YCL_Sub AA '); + SQL.Add(' where AA.YCLCode=WFBYCL_PB.YCLCode) ) '); + sql.Add(' from CK_YCL_Sub A '); + sql.Add(' inner join CK_YCL_KC B on B.CRID=A.CRID '); + sql.Add(' where A.YCLCode=WFBYCL_PB.YCLCode and B.KCQty>0 )'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YLKC=(select KCQty from CK_YCL_KC A where A.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YCLYJKC=(select YJKC=AA.KCQty-isnull((select sum(isnull(YLQty,0)) from WFBYCL_PB WP where WP.CRID=AA.CRID '); + sql.Add(' and not exists(select * from CK_YCL_Sub CS '); + sql.Add(' inner join WFBOrder_Main WM on CS.OrderNo=WM.OrderNO'); + sql.Add(' where WM.MainId=WP.MainId and CS.CRID=WP.CRID ) ),0)'); + sql.Add(' FROM CK_YCL_KC AA where AA.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmProductOrderListNew.TBCopyClick(Sender: TObject); +var + FFMainId:string; +begin + + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + CopyOrderData(Self.Order_Main); + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString)+'FZ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + CopyOrderData(Self.CDS_ZP); + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString)+'FZ'; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNew.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.Button1Click(Sender: TObject); +begin + if RadioGroup1.ItemIndex=0 then + begin + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + begin + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=0; + FMainId:=''; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.TV2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(DParameters1)='' then + begin + TBChk.Click; + end else + begin + TBEdit.Click; + end; +end; + +procedure TfrmProductOrderListNew.TV2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=1; + Tv2.Bands[0].Caption:='ġ'; + Tv3.Bands[0].Caption:='Ʒ'; + + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmProductOrderListNew.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=2; + Tv2.Bands[0].Caption:=''; + Tv3.Bands[0].Caption:='Ʒ'; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +end. diff --git a/应收应付/U_ProductOrderListNewCK.dfm b/应收应付/U_ProductOrderListNewCK.dfm new file mode 100644 index 0000000..0c73794 --- /dev/null +++ b/应收应付/U_ProductOrderListNewCK.dfm @@ -0,0 +1,1300 @@ +object frmProductOrderListNewCK: TfrmProductOrderListNewCK + Left = -60 + Top = 45 + Width = 1277 + Height = 684 + Caption = #29983#20135#25351#31034#21333#26597#30475 + 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 = 1269 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBCK: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 57 + OnClick = TBCKClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1269 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#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 = 189 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 324 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 460 + 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 Label2: TLabel + Left = 189 + Top = 39 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 324 + Top = 39 + 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 Label7: TLabel + Left = 460 + Top = 39 + 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 Label9: TLabel + Left = 596 + Top = 15 + Width = 26 + Height = 12 + Caption = #33457#22411 + 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 = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 230 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 353 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 230 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object SWFBFK: TEdit + Tag = 2 + Left = 353 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object SWFBKZ: TEdit + Tag = 2 + Left = 489 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 625 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 1269 + Height = 254 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + OnMouseDown = TV2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #21367#26448 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object V2Column16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object V2Column17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column23: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 82 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object V2Column26: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 375 + Width = 1269 + Height = 272 + Align = alBottom + TabOrder = 4 + object cxGridDBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #21046#21697 + Styles.Header = cxStyle1 + Width = 1374 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 544 + Top = 153 + Width = 201 + Height = 195 + TabOrder = 5 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 367 + Width = 1269 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 832 + Top = 144 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 808 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 864 + Top = 144 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 792 + Top = 104 + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/应收应付/U_ProductOrderListNewCK.pas b/应收应付/U_ProductOrderListNewCK.pas new file mode 100644 index 0000000..a814bdf --- /dev/null +++ b/应收应付/U_ProductOrderListNewCK.pas @@ -0,0 +1,1012 @@ +unit U_ProductOrderListNewCK; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNewCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + TBCK: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column9: TcxGridDBBandedColumn; + V2Column10: TcxGridDBBandedColumn; + V2Column11: TcxGridDBBandedColumn; + V2Column12: TcxGridDBBandedColumn; + V2Column13: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column16: TcxGridDBBandedColumn; + V2Column17: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + cxGridDBTableView1: TcxGridDBTableView; + Tv3: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridDBBandedColumn18: TcxGridDBBandedColumn; + cxGridDBBandedColumn19: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column23: TcxGridDBBandedColumn; + cxSplitter1: TcxSplitter; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + V2Column26: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + Label2: TLabel; + Label6: TLabel; + Label7: TLabel; + SWFBColor: TEdit; + SWFBFK: TEdit; + SWFBKZ: TEdit; + Label9: TLabel; + SWFBHW: 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 TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure TBCKClick(Sender: TObject); + procedure TBChkClick(Sender: TObject); + procedure TBCChkClick(Sender: TObject); + procedure TBCopyClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNewCK: TfrmProductOrderListNewCK; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNewCK.FormDestroy(Sender: TObject); +begin + frmProductOrderListNewCK:=nil; +end; + +procedure TfrmProductOrderListNewCK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNewCK.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmProductOrderListNewCK.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбck',Tv2,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбDDck',Tv3,'ָʾ'); +end; + +procedure TfrmProductOrderListNewCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('MainId').Value:=''; + Open; + end; + SDofilter(ADOQueryMain,'OrderType='''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + SDofilter(ADOQueryMain,'OrderType=''Ʒ'''); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNewCK.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNewCK.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2013-06-19') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + ReadCxBandedGrid('޷IJָʾбck',Tv2,'ָʾ'); + ReadCxBandedGrid('޷IJָʾбDDck',Tv3,'ָʾ'); + if FFInt>0 then + begin + v1Column3.Hidden:=False; + v1Column3.Visible:=True; + end else + begin + v1Column3.Hidden:=True; + v1Column3.Visible:=False; + end; + if Trim(DParameters1)='1' then + begin + v1CustomerNoName.Visible:=False; + v1CustomerNoName.Hidden:=True; + end else + begin + v1CustomerNoName.Visible:=True; + v1CustomerNoName.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + {if Trim(DParameters1)='1' then + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + end;} +end; + +procedure TfrmProductOrderListNewCK.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNewCK.TBEditClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; +end; + +procedure TfrmProductOrderListNewCK.TBDelClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(Order_Main) then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(CDS_ZP) then + begin + //TBRafresh.Click; + //TBFind.Click; + CDS_ZP.Delete; + end; + end; + + +end; + +function TfrmProductOrderListNewCK.DelData(Order_Main10:TClientDataSet):Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListNewCK.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + ShowMessage(DCode); + +end; + +procedure TfrmProductOrderListNewCK.TBExportClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб()',cxGrid2); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + TcxGridToExcel('ָʾб(Ʒ)',cxGrid3); + end; + + +end; + +procedure TfrmProductOrderListNewCK.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderListNewCK.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNewCK.OrderNoChange(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNewCK.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNewCK.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if FFInt=1 then + //ModalResult:=1; + TBCK.Click; +end; + +procedure TfrmProductOrderListNewCK.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + RMDB_Main.DataSet:=Order_Main; + end; + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + RMDB_Main.DataSet:=CDS_ZP; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderListNewCK.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + fsj:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + fsj:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + end else + begin + Application.MessageBox('δѡж!','ʾ',0); + Exit; + end; + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(fsj); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductOrderListNewCK.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNewCK.ToolButton4Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɲ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.ToolButton5Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderListNewCK.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNewCK.TBCKClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=3; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=3; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.TBChkClick(Sender: TObject); +begin + + if PPInt=1 then + begin + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=2; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.TBCChkClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(' ,Chker='''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(', Chker='''' where MainId='''+Trim(CDS_ZP.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with CDS_ZP do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end ; + +end; +procedure TfrmProductOrderListNewCK.CopyOrderData(Order_MainFF:TClientDataSet); +var + FFMainId:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //sql.Add('exec P_Copy_WFBOrder :MainId,:Filler'); + sql.Add('exec P_Copy_WFBOrder_NoQty :MainId,:Filler'); + Parameters.ParamByName('MainId').Value:=Trim(Order_MainFF.fieldbyname('MainId').AsString); + Parameters.ParamByName('Filler').Value:=Trim(DName); + ExecSQL; + end; + FFMainId:=Trim(Order_MainFF.fieldbyname('MainId').AsString)+'FZ'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update WFBYCL_PB Set CRID=(select isnull(Max(A.CRID),(select Max(AA.CRID) from CK_YCL_Sub AA '); + SQL.Add(' where AA.YCLCode=WFBYCL_PB.YCLCode) ) '); + sql.Add(' from CK_YCL_Sub A '); + sql.Add(' inner join CK_YCL_KC B on B.CRID=A.CRID '); + sql.Add(' where A.YCLCode=WFBYCL_PB.YCLCode and B.KCQty>0 )'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YLKC=(select KCQty from CK_YCL_KC A where A.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YCLYJKC=(select YJKC=AA.KCQty-isnull((select sum(isnull(YLQty,0)) from WFBYCL_PB WP where WP.CRID=AA.CRID '); + sql.Add(' and not exists(select * from CK_YCL_Sub CS '); + sql.Add(' inner join WFBOrder_Main WM on CS.OrderNo=WM.OrderNO'); + sql.Add(' where WM.MainId=WP.MainId and CS.CRID=WP.CRID ) ),0)'); + sql.Add(' FROM CK_YCL_KC AA where AA.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmProductOrderListNewCK.TBCopyClick(Sender: TObject); +var + FFMainId:string; +begin + + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + CopyOrderData(Self.Order_Main); + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString)+'FZ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + CopyOrderData(Self.CDS_ZP); + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString)+'FZ'; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNewCK.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.Button1Click(Sender: TObject); +begin + if RadioGroup1.ItemIndex=0 then + begin + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + begin + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=0; + FMainId:=''; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.TV2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBCK.Click; +end; + +procedure TfrmProductOrderListNewCK.TV2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=1; + Tv2.Bands[0].Caption:='ġ'; + Tv3.Bands[0].Caption:='Ʒ'; + + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmProductOrderListNewCK.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=2; + Tv2.Bands[0].Caption:=''; + Tv3.Bands[0].Caption:='Ʒ'; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +end. diff --git a/应收应付/U_ProductOrderListNewCKMX.dfm b/应收应付/U_ProductOrderListNewCKMX.dfm new file mode 100644 index 0000000..3666195 --- /dev/null +++ b/应收应付/U_ProductOrderListNewCKMX.dfm @@ -0,0 +1,938 @@ +object frmProductOrderListNewCKMX: TfrmProductOrderListNewCKMX + Left = 25 + Top = 49 + Width = 1277 + Height = 684 + Caption = #29983#20135#25351#31034#21333#26126#32454 + 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 = 1269 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23548#20986 + ImageIndex = 102 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1269 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#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 = 189 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 324 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 460 + 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 Label2: TLabel + Left = 189 + Top = 39 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 324 + Top = 39 + 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 Label7: TLabel + Left = 460 + Top = 39 + 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 Label9: TLabel + Left = 596 + Top = 15 + Width = 26 + Height = 12 + Caption = #33457#22411 + 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 = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 230 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 353 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 230 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object SWFBFK10: TEdit + Tag = 2 + Left = 353 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object SWFBKZ10: TEdit + Tag = 2 + Left = 489 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 625 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1269 + Height = 550 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #35746#21333#26126#32454 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK10' + HeaderAlignmentHorz = taCenter + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ10' + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'SOrdQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ProductSpec' + HeaderAlignmentHorz = taCenter + Width = 105 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object Panel3: TPanel + Left = 544 + Top = 185 + Width = 201 + Height = 195 + TabOrder = 4 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 864 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + Left = 288 + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 888 + Top = 232 + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/应收应付/U_ProductOrderListNewCKMX.pas b/应收应付/U_ProductOrderListNewCKMX.pas new file mode 100644 index 0000000..56e1a0c --- /dev/null +++ b/应收应付/U_ProductOrderListNewCKMX.pas @@ -0,0 +1,314 @@ +unit U_ProductOrderListNewCKMX; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNewCKMX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + Label2: TLabel; + Label6: TLabel; + Label7: TLabel; + SWFBColor: TEdit; + SWFBFK10: TEdit; + SWFBKZ10: TEdit; + Label9: TLabel; + SWFBHW: TEdit; + ToolButton1: TToolButton; + V2Column9: TcxGridDBBandedColumn; + 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 TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNewCKMX: TfrmProductOrderListNewCKMX; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNewCKMX.FormDestroy(Sender: TObject); +begin + frmProductOrderListNewCKMX:=nil; +end; + +procedure TfrmProductOrderListNewCKMX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNewCKMX.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmProductOrderListNewCKMX.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбMX',Tv2,'ָʾ'); +end; + +procedure TfrmProductOrderListNewCKMX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_Select_OrderMainSub :WSql'); + Parameters.ParamByName('WSql').Value:=' and A.OrderDate>='''+formatdatetime('yyyy-MM-dd',BegDate.DateTime)+'''' + +' and A.OrderDate<'''+formatdatetime('yyyy-MM-dd',EndDate.DateTime+1)+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNewCKMX.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNewCKMX.InitForm(); +begin + ReadCxBandedGrid('޷IJָʾбMX',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + +end; + +procedure TfrmProductOrderListNewCKMX.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmProductOrderListNewCKMX.DelData(Order_Main10:TClientDataSet):Boolean; +begin + +end; + +procedure TfrmProductOrderListNewCKMX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCKMX.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNewCKMX.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderListNewCKMX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNewCKMX.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNewCKMX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCKMX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNewCKMX.CopyOrderData(Order_MainFF:TClientDataSet); +begin +end; +procedure TfrmProductOrderListNewCKMX.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNewCKMX.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCKMX.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + SelExportDataBand(Tv2,ADOQueryMain,'ָʾ'); +end; + +end. diff --git a/应收应付/U_ProductOrderListOLJ.dfm b/应收应付/U_ProductOrderListOLJ.dfm new file mode 100644 index 0000000..e6331d6 --- /dev/null +++ b/应收应付/U_ProductOrderListOLJ.dfm @@ -0,0 +1,690 @@ +object frmProductOrderListOLJ: TfrmProductOrderListOLJ + Left = 131 + Top = 114 + Width = 1094 + Height = 600 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1086 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1086 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #25509#21333#26102#38388 + 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 = #35746#21333#21495 + 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 = 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 Label5: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 441 + Top = 16 + Width = 52 + Height = 12 + Caption = #21517#31216#27454#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 441 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 495 + Top = 12 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1086 + Height = 464 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = v1Column7 + end + item + Format = '0' + Position = spFooter + Column = v1Column11 + end + item + Format = '0' + Position = spFooter + Column = v1Column12 + end + item + Format = '0' + Position = spFooter + Column = v1Column14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.Default + Styles.BandHeader = DataLink_YSYF.Default + Bands = < + item + Width = 948 + end + item + Caption = #38376#26550 + Width = 144 + end + item + Caption = #21512#39029 + Width = 75 + end + item + Width = 278 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21517#31216#27454#24335 + DataBinding.FieldName = 'PRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #38376#22411 + DataBinding.FieldName = 'PRTType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #35268#26684'('#39640'*'#23485')' + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #38376#25159#39640 + DataBinding.FieldName = 'PRTGao' + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #38145#20855 + DataBinding.FieldName = 'PRTSJ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #26041#21521 + DataBinding.FieldName = 'PRTFX' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #27431#24335#36793 + DataBinding.FieldName = 'PRTMJ1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 79 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #24179#36793 + DataBinding.FieldName = 'PRTMJ2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 83 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #26263 + DataBinding.FieldName = 'SOrdFlag1' + HeaderAlignmentHorz = taCenter + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #26126 + DataBinding.FieldName = 'SOrdFlag2' + HeaderAlignmentHorz = taCenter + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #38376#27099 + DataBinding.FieldName = 'SOrddefstr1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #38376#38083#21644#13#10#29483#30524 + DataBinding.FieldName = 'SOrdFlag3' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #25289#25163 + DataBinding.FieldName = 'SOrddefstr2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 54 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column16: TcxGridDBBandedColumn + Caption = #27668#31383 + DataBinding.FieldName = 'SOrddefstr3' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 83 + Position.BandIndex = 3 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column17: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column18: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column19: TcxGridDBBandedColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column20: TcxGridDBBandedColumn + Caption = #22320#22336 + DataBinding.FieldName = 'OrdDefStr2' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column21: TcxGridDBBandedColumn + Caption = #25509#21333#26102#38388 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column22: TcxGridDBBandedColumn + Caption = #20132#36135#26102#38388 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v1Column23: TcxGridDBBandedColumn + Caption = #20215#26684 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v1Column24: TcxGridDBBandedColumn + Caption = #29983#20135#21333#21495 + DataBinding.FieldName = 'SCNO' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = ADOQueryPrint + 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_ProductOrderListOLJ.pas b/应收应付/U_ProductOrderListOLJ.pas new file mode 100644 index 0000000..9f093e9 --- /dev/null +++ b/应收应付/U_ProductOrderListOLJ.pas @@ -0,0 +1,509 @@ +unit U_ProductOrderListOLJ; + +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, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI + ,IniFiles,jpeg, cxButtonEdit, cxGridBandedTableView, + cxGridDBBandedTableView; + +type + TfrmProductOrderListOLJ = 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; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label5: TLabel; + OrdPerson1: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label13: TLabel; + PRTSpec: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + v1Column7: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v1Column10: TcxGridDBBandedColumn; + v1Column11: TcxGridDBBandedColumn; + v1Column12: TcxGridDBBandedColumn; + v1Column13: TcxGridDBBandedColumn; + v1Column14: TcxGridDBBandedColumn; + v1Column15: TcxGridDBBandedColumn; + v1Column16: TcxGridDBBandedColumn; + cxGrid1Level1: TcxGridLevel; + v1Column17: TcxGridDBBandedColumn; + v1Column18: TcxGridDBBandedColumn; + v1Column19: TcxGridDBBandedColumn; + v1Column20: TcxGridDBBandedColumn; + v1Column21: TcxGridDBBandedColumn; + v1Column22: TcxGridDBBandedColumn; + v1Column23: TcxGridDBBandedColumn; + v1Column24: TcxGridDBBandedColumn; + 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 TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure ReadINIFile(); + procedure SaveImage(); + procedure SetSaveImage(ADOQuerycmd:TADOQuery;MyPic:string;Image1:TImage); + procedure CreThumb(Width, Height: Integer;Image10,Image20:TImage); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderListOLJ: TfrmProductOrderListOLJ; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderListOLJ.FormDestroy(Sender: TObject); +begin + frmProductOrderListOLJ:=nil; +end; + +procedure TfrmProductOrderListOLJ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListOLJ.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderListOLJ.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxBandedGrid('ָʾб',Tv1,'ָʾ') + else + WriteCxBandedGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListOLJ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select OrdDate=convert(varchar(10),OrdDate,120),DlyDate=convert(varchar(10),DlyDate,120) '); + sql.Add(',Case when SOrdFlag1=0 then '''' else '''' end as SOrdFlag1'); + sql.Add(',Case when SOrdFlag2=0 then '''' else '''' end as SOrdFlag2'); + sql.Add(',Case when SOrdFlag3=0 then '''' else '''' end as SOrdFlag3'); + sql.add(', A.*,B.*,A.OrderNo OrderNoM'); + sql.Add('from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + + SQL.Add('where OrdDate>=:begdate and OrdDate<:enddate'); + + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListOLJ.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListOLJ.InitForm(); +begin + + + ReadCxBandedGrid('ָʾбѡ',Tv1,'ָʾ'); + + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderListOLJ.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 TfrmProductOrderListOLJ.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListOLJ.SaveImage(); +var + JPGImg:TJPEGImage; + ADOData:TADOBlobStream; +begin + +end; +procedure TfrmProductOrderListOLJ.SetSaveImage(ADOQuerycmd:TADOQuery;MyPic:string;Image1:TImage); +var + JPGImg:TJPEGImage; + ADOData:TADOBlobStream; +begin + +end; +procedure TfrmProductOrderListOLJ.CreThumb(Width, Height: Integer;Image10,Image20:TImage); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + +end; + +procedure TfrmProductOrderListOLJ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListOLJ.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 TfrmProductOrderListOLJ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListOLJ.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderListOLJ.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListOLJ.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListOLJ.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderListOLJ.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderListOLJ.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 TfrmProductOrderListOLJ.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderListOLJ.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListOLJ.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 TfrmProductOrderListOLJ.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select OrderNoM=A.OrderNo,OrdDate=convert(varchar(10),OrdDate,120),DlyDate=convert(varchar(10),DlyDate,120) '); + sql.Add(',Case when SOrdFlag1=0 then '''' else '''' end as SOrdFlag1'); + sql.Add(',Case when SOrdFlag2=0 then '''' else '''' end as SOrdFlag2'); + sql.Add(',Case when SOrdFlag3=0 then '''' else '''' end as SOrdFlag3'); + sql.add(', A.*,B.* '); + sql.Add('from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + + SQL.Add('where A.orderNo like '''+Trim(fsj)+''''); + + //ShowMessage(ADOQueryMain.SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +end. diff --git a/应收应付/U_ProductOrderListSel.dfm b/应收应付/U_ProductOrderListSel.dfm new file mode 100644 index 0000000..3f4cad4 --- /dev/null +++ b/应收应付/U_ProductOrderListSel.dfm @@ -0,0 +1,345 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + Left = 210 + Top = 75 + Width = 1094 + Height = 600 + Caption = #29983#20135#25351#31034#21333#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 = 1078 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 35 + 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 OrderNoM: TEdit + Tag = 2 + Left = 76 + Top = 18 + Width = 149 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoMKeyPress + end + end + object cxGrid1: TcxGrid + Left = 4 + Top = 100 + Width = 1065 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + 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 + OptionsView.Indicator = True + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1KHConNO: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + 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_YSYF.Default + Width = 64 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 63 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_ProductOrderListSel.pas b/应收应付/U_ProductOrderListSel.pas new file mode 100644 index 0000000..556af41 --- /dev/null +++ b/应收应付/U_ProductOrderListSel.pas @@ -0,0 +1,168 @@ +unit U_ProductOrderListSel; + +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; + +type + TfrmProductOrderListSel = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1KHConNO: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + 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 OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1DblClick(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { 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; +end; + +procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListSel.InitGrid(); +begin + if Length(Trim(OrderNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.*,A.*,A.OrderNo orderNoM,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.add('from JYOrder_sub A'); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + SQL.Add('where B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderListSel.InitForm(); +begin + // ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmProductOrderListSel.FormShow(Sender: TObject); +begin + InitForm(); + if FFInt=1 then + begin + v1Column4.Visible:=False; + v1Column4.Hidden:=True; + end; +end; + +procedure TfrmProductOrderListSel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +end. diff --git a/应收应付/U_ProductOrderNewList.dfm b/应收应付/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..734dcf5 --- /dev/null +++ b/应收应付/U_ProductOrderNewList.dfm @@ -0,0 +1,633 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 113 + Top = 117 + Width = 1094 + Height = 600 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1078 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 67 + 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 = #35746#21333#21495 + 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 = 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 441 + Top = 15 + Width = 53 + 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 Label6: TLabel + Left = 588 + Top = 39 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 741 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 588 + Top = 15 + Width = 52 + Height = 12 + Caption = #20013#25991#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 = #21512#21516#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 = 741 + Top = 15 + Width = 26 + 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 = 441 + Top = 39 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 861 + Top = 39 + 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 = 861 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 495 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 641 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 770 + Top = 35 + Width = 76 + Height = 20 + Enabled = False + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 641 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 770 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 890 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 890 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1078 + Height = 410 + Align = alTop + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + 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_YSYF.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 97 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 96 + end + object v1Column3: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHAddress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXFS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1EditTime: TcxGridDBColumn + Caption = #20462#25913#26085#26399 + DataBinding.FieldName = 'EditTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1ordderNote1: TcxGridDBColumn + Caption = #20462#25913#22791#27880 + DataBinding.FieldName = 'orddefNote1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_ProductOrderNewList.pas b/应收应付/U_ProductOrderNewList.pas new file mode 100644 index 0000000..58d3792 --- /dev/null +++ b/应收应付/U_ProductOrderNewList.pas @@ -0,0 +1,467 @@ +unit U_ProductOrderNewList; + +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; + +type + TfrmProductOrderNewList = 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; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label6: TLabel; + MPRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + 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 TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + fsyrName:string; + + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList:=nil; +end; + +procedure TfrmProductOrderNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +var + fWSql:string; +begin + + fwsql:=''; + + IF trim(fsyrName)='֯' then fsyrName:='֯'; + + IF trim(fsyrName)<>'' then + fwsql:=fwsql+' and syrName='+quotedstr(trim(fsyrName)); + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + { if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + + end; } + Parameters.ParamByName('WSql').Value:=fwsql; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmProductOrderNewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + + end else + begin + v1Column4.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.DelData():Boolean; +begin +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+fsj+''''; + end; + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +end. diff --git a/应收应付/U_ProductOrderNewListZS.dfm b/应收应付/U_ProductOrderNewListZS.dfm new file mode 100644 index 0000000..bc3cd6b --- /dev/null +++ b/应收应付/U_ProductOrderNewListZS.dfm @@ -0,0 +1,493 @@ +object frmProductOrderNewListZS: TfrmProductOrderNewListZS + Left = 94 + Top = 133 + Width = 1272 + Height = 600 + Caption = #37319#36141#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 = 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1264 + Height = 67 + 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 = 198 + Top = 39 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 366 + 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 = 197 + Top = 15 + Width = 53 + 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 Label10: TLabel + Left = 364 + 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 Label12: TLabel + Left = 541 + Top = 39 + 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 = 541 + Top = 15 + 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 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 = 76 + Top = 35 + 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 CompanyName: TEdit + Tag = 2 + Left = 252 + Top = 35 + Width = 77 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 419 + Top = 11 + Width = 78 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = ConNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 252 + Top = 11 + Width = 77 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 420 + Top = 35 + Width = 78 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = ConNoChange + end + object KZQty: TEdit + Tag = 2 + Left = 570 + Top = 35 + Width = 75 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = ConNoChange + end + object MFQty: TEdit + Tag = 2 + Left = 570 + Top = 11 + Width = 75 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = ConNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1264 + Height = 369 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.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_YSYF.Default + Width = 68 + end + object v1CompanyName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'CompanyName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1FILLTIME: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'FILLTIME' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 89 + end + object v1C_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 110 + end + object v1C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1MFQty: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1KZQty: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v1C_Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 90 + end + object v1C_Note: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 155 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1264 + Height = 21 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #37319#36141#21512#21516 + #21152#24037#21512#21516) + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 1264 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_ProductOrderNewListZS.pas b/应收应付/U_ProductOrderNewListZS.pas new file mode 100644 index 0000000..d6ff3cc --- /dev/null +++ b/应收应付/U_ProductOrderNewListZS.pas @@ -0,0 +1,395 @@ +unit U_ProductOrderNewListZS; + +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; + +type + TfrmProductOrderNewListZS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + v1FILLTIME: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1C_Spec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CompanyName: TEdit; + v1C_CodeName: TcxGridDBColumn; + v1MFQty: TcxGridDBColumn; + v1C_Qty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label8: TLabel; + C_CodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1C_Note: TcxGridDBColumn; + v1KZQty: TcxGridDBColumn; + v1CompanyName: TcxGridDBColumn; + Label10: TLabel; + C_Spec: TEdit; + Label12: TLabel; + KZQty: TEdit; + Label13: TLabel; + MFQty: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + 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 TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ConNoChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewListZS: TfrmProductOrderNewListZS; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderNewListZS.FormDestroy(Sender: TObject); +begin + frmProductOrderNewListZS:=nil; +end; + +procedure TfrmProductOrderNewListZS.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewListZS.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewListZS.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewListZS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select A.Mainid,A.ConNo,B.C_CodeName,A.CompanyName,B.C_Spec,A.DeliveryDate,B.MFQty,B.KZQty,B.C_Qty,B.C_Note,A.FILLTIME '); + SQL.ADD('from Contract_Main A '); + sql.add('inner join Contract_Sub B on B.Mainid=A.Mainid '); + SQL.Add('where A.filltime>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.filltime<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + if cxTabControl1.TabIndex=1 then + begin + sql.Add('select A.Mainid,A.ConNo,B.PRTCodeName C_CodeName,A.company CompanyName,B.PRTSpec C_Spec '); + SQL.ADD(',A.JGdate DeliveryDate,B.PRTMF MFQty,B.PRTKZ KZQty,B.JGQty C_Qty,B.SOrdDefNote1 C_Note,A.FILLTIME '); + SQL.ADD('from contractJG_Main A '); + sql.add('inner join contractJG_Sub B on B.Mainid=A.Mainid '); + SQL.Add('where A.filltime>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.filltime<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewListZS.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewListZS.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderNewListZS.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 TfrmProductOrderNewListZS.DelData():Boolean; +begin +end; + +procedure TfrmProductOrderNewListZS.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderNewListZS.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewListZS.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewListZS.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewListZS.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewListZS.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewListZS.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewListZS.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 + 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 TfrmProductOrderNewListZS.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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 + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewListZS.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewListZS.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +procedure TfrmProductOrderNewListZS.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 TfrmProductOrderNewListZS.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/应收应付/U_SKCR.dfm b/应收应付/U_SKCR.dfm new file mode 100644 index 0000000..939ae4c --- /dev/null +++ b/应收应付/U_SKCR.dfm @@ -0,0 +1,429 @@ +object frmSKCR: TfrmSKCR + Left = 151 + Top = 66 + Width = 1038 + Height = 618 + Caption = #25910#27454#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = tchkClick + end + object tnochk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + Enabled = False + ImageIndex = 56 + OnClick = tnochkClick + end + object ToolButton1: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 92 + Width = 1022 + Height = 488 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2DerateMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object v2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2DerateMoneyPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 90 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 70 + Width = 1022 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1022 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_SKCR.pas b/应收应付/U_SKCR.pas new file mode 100644 index 0000000..1fa0e6f --- /dev/null +++ b/应收应付/U_SKCR.pas @@ -0,0 +1,990 @@ +unit U_SKCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmSKCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2Column1: TcxGridDBColumn; + v2DerateMoney: TcxGridDBColumn; + tchk: TToolButton; + tnochk: TToolButton; + cxTabControl1: TcxTabControl; + v2Ssel: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2DerateMoneyPropertiesEditValueChanged(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure tnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + Procedure SetStatus(); + + public + fflag:integer; + { Public declarations } + RKFlag,FCYID,fmanage:String; + + end; + +var + frmSKCR: TfrmSKCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_ZdyAttachment, U_ProductOrderListSel; + +{$R *.dfm} + +Procedure TfrmSKCR.SetStatus(); +var + i:integer; +begin + + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; +// Ttj.Enabled:=false; +// TnoTj.Enabled:=false; + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + + + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=1 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + end; + + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=false; + TBDel.Enabled:=true; + for i:=1 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + + end; + end; +end; + +procedure TfrmSKCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' left join YF_Money_KC B on A.CRID=B.CRID'); + // SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''տǼ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmSKCR.InitGridHZ(); +begin +end; + +procedure TfrmSKCR.FormDestroy(Sender: TObject); +begin + frmSKCR:=nil; +end; + +procedure TfrmSKCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ1',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmSKCR.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmSKCR.FormShow(Sender: TObject); +begin + fflag:=0; + ReadCxGrid('տǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:='ʵս'; + end; + SetStatus(); + InitGrid(); +end; + +procedure TfrmSKCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCR.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmSKCR.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmSKCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmSKCR.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' '); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + // FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('YFDefFlag1').Value:=fFlag; + FieldByName('status').Value:=0; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + if ShowModal=1 then + begin + + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('HuiLv').Value:=1; + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachment.Free; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmSKCR.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + FFInt:=1; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,OrderNo='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmSKCR.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmSKCR.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; +procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('DerateMoney').Value:=StrToFloatdef(mvalue,0); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set DerateMoney='+mvalue); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmSKCR.tchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmSKCR.tnochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmSKCR.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +end. diff --git a/应收应付/U_SKCRLZ.dfm b/应收应付/U_SKCRLZ.dfm new file mode 100644 index 0000000..9b98d22 --- /dev/null +++ b/应收应付/U_SKCRLZ.dfm @@ -0,0 +1,408 @@ +object frmSKCRLZ: TfrmSKCRLZ + Left = 73 + Top = 136 + Width = 1038 + Height = 618 + Caption = #25910#27454#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 830 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = VBB + end + item + Kind = skSum + Column = VYB + 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_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 65 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column1: TcxGridDBColumn + Caption = #20195#29702 + DataBinding.FieldName = 'YFDefFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v2ZFTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 95 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_SKCRLZ.pas b/应收应付/U_SKCRLZ.pas new file mode 100644 index 0000000..078895b --- /dev/null +++ b/应收应付/U_SKCRLZ.pas @@ -0,0 +1,1034 @@ +unit U_SKCRLZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmSKCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2Column1: TcxGridDBColumn; + v2ZFTT: TcxGridDBColumn; + Label5: TLabel; + ComTaiTou: TEdit; + v2Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + function SaveDataKC():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmSKCRLZ: TfrmSKCRLZ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmSKCRLZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''տǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmSKCRLZ.InitGridHZ(); +begin +end; + +procedure TfrmSKCRLZ.FormDestroy(Sender: TObject); +begin + frmSKCRLZ:=nil; +end; + +procedure TfrmSKCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmSKCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmSKCRLZ.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('տǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2ZFTT,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + InitGrid(); +end; + +procedure TfrmSKCRLZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmSKCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmSKCRLZ.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmSKCRLZ.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +function TfrmSKCRLZ.SaveDataKC():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with CDS_HZ do + begin + Edit; + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSKCRLZ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + //Ӧտ + if Trim(CDS_HZ.fieldbyname('MainId').AsString)<>'' then + begin + if Trim(FFieldName)='HuiLv' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set HuiLv='+FHuiLv); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set BBMoney=Money*HuiLv'); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCBBMoney='); + sql.Add('(select Sum(BBMoney*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add('where CRID in( select CRID from YF_Money_CR'); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRFlag=''Ӧ'' )'); + ExecSQL; + end; + end; + + end; + //Ӧտ + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRLZ.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRLZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmSKCRLZ.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + FCRID:string; +begin + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + FieldByName('FactoryName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('CustomerNoName').AsString); + FieldByName('FactoryNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('CustomerNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + FCRID:=CDS_HZ.fieldbyname('CRID').AsString; + SaveDataKC(); + + if Trim(CDS_HZ.fieldbyname('MainId').AsString)<>'' then + begin + if Trim(CDS_HZ.fieldbyname('HuiLv').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set HuiLv='+CDS_HZ.fieldbyname('HuiLv').AsString); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set BBMoney=Money*HuiLv'); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCBBMoney='); + sql.Add('(select Sum(BBMoney*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add('where CRID in( select CRID from YF_Money_CR'); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRFlag=''Ӧ'' )'); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCBBMoney='); + sql.Add('(select Sum(BBMoney*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add('where CRID in( select CRID from YF_Money_CR'); + sql.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRFlag=''Ӧ'' )'); + ExecSQL; + end; + end; + + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCBBMoney=(select Sum(BBMoney*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' KCMoney=(select Sum(Money*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + if Trim(FCRID)<>Trim(Cds_HZ.fieldbyname('CRID').AsString) then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCBBMoney=(select Sum(BBMoney*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' KCMoney=(select Sum(Money*QtyFlag) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Cds_HZ.fieldbyname('CRID').AsString); + ExecSQL; + end; + end; + + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmSKCRLZ.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmSKCRLZ.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + FFieldName:String; + mvalue:Boolean; +begin + //mvalue:=TcxTextEdit(Sender).EditingText; + mvalue:=TcxCheckBox(Sender).EditingValue; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + if mvalue=True then + FieldByName('YFDefFlag1').Value:=1 + else + FieldByName('YFDefFlag1').Value:=0; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if mvalue=True then + begin + sql.Add(' Set YFDefFlag1=1'); + end else + begin + sql.Add(' Set YFDefFlag1=0'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.orderNo like :OrderNo'); + sql.Add('and A.CRType=''տǼ'''); + Parameters.ParamByName('OrderNo').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_SKCROLJ.dfm b/应收应付/U_SKCROLJ.dfm new file mode 100644 index 0000000..f21189b --- /dev/null +++ b/应收应付/U_SKCROLJ.dfm @@ -0,0 +1,397 @@ +object frmSKCROLJ: TfrmSKCROLJ + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #24212#25910#27454#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = VBB + end + item + Kind = skSum + Column = VYB + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + Width = 78 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column4: TcxGridDBColumn + Caption = #29983#20135#21333#21495 + DataBinding.FieldName = 'SCNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517#27454#24335 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v2Column2: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_SKCROLJ.pas b/应收应付/U_SKCROLJ.pas new file mode 100644 index 0000000..e57150f --- /dev/null +++ b/应收应付/U_SKCROLJ.pas @@ -0,0 +1,832 @@ +unit U_SKCROLJ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmSKCROLJ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmSKCROLJ: TfrmSKCROLJ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderListOLJ; + +{$R *.dfm} + + + +procedure TfrmSKCROLJ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select BB.Filler, A.* '); + sql.Add(',BB.OrderNo,BB.CustomerNoName,CC.SCNO,CC.PRTCodeName '); + sql.Add(',CC.PRTType,CC.PRTSpec,CC.PRTColor '); + sql.Add(',KHZJM=dbo.getPinYin(A.FactoryName)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + Sql.add(' left join JYOrder_Main BB on A.MainId=BB.MainId'); + Sql.add(' left join JYOrder_Sub CC on A.SubId=CC.SubId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''տǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmSKCROLJ.InitGridHZ(); +begin +end; + +procedure TfrmSKCROLJ.FormDestroy(Sender: TObject); +begin + frmSKCROLJ:=nil; +end; + +procedure TfrmSKCROLJ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCROLJ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmSKCROLJ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmSKCROLJ.FormShow(Sender: TObject); +begin + ReadCxGrid('տǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + InitGrid(); +end; + +procedure TfrmSKCROLJ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCROLJ.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmSKCROLJ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmSKCROLJ.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmSKCROLJ.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSKCROLJ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCROLJ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCROLJ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCROLJ.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCROLJ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCROLJ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCROLJ.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCROLJ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmSKCROLJ.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCROLJ.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListOLJ:=TfrmProductOrderListOLJ.Create(Application); + with frmProductOrderListOLJ do + begin + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('Filler').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('Filler').AsString); + FieldByName('PRTSpec').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('Filler').AsString); + FieldByName('SCNO').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('SCNO').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderListOLJ.Free; + end; +end; + +procedure TfrmSKCROLJ.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCROLJ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmSKCROLJ.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/应收应付/U_SKCR_Gd.dfm b/应收应付/U_SKCR_Gd.dfm new file mode 100644 index 0000000..31c5927 --- /dev/null +++ b/应收应付/U_SKCR_Gd.dfm @@ -0,0 +1,406 @@ +object frmSKCR_Gd: TfrmSKCR_Gd + Left = 185 + Top = 117 + Width = 1038 + Height = 618 + Caption = #25910#27454#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #25910#27454#26041#24335 + DataBinding.FieldName = 'fstr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object VOrderNo: TcxGridDBColumn + Caption = #20986#24211#21333 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object MovePanel2: TMovePanel + Left = 404 + Top = 192 + Width = 289 + Height = 49 + BevelInner = bvLowered + Caption = #27491#22312#21152#36733#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 ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_SKCR_Gd.pas b/应收应付/U_SKCR_Gd.pas new file mode 100644 index 0000000..1e91332 --- /dev/null +++ b/应收应付/U_SKCR_Gd.pas @@ -0,0 +1,880 @@ +unit U_SKCR_Gd; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, MovePanel; + +type + TfrmSKCR_Gd = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + MovePanel2: TMovePanel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column3PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + procedure SetStatus(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmSKCR_Gd: TfrmSKCR_Gd; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_ZdyAttachment, U_BpGdCklist; + +{$R *.dfm} + +procedure TfrmSKCR_Gd.SetStatus(); +begin +end; + +procedure TfrmSKCR_Gd.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.CRNO as OrderNO '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join BP_InOut C on A.MainId=C.CRNO and C.CRID=A.subID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''տǼ'' and A.YFDefFlag1=1 '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmSKCR_Gd.InitGridHZ(); +begin +end; + +procedure TfrmSKCR_Gd.FormDestroy(Sender: TObject); +begin + frmSKCR_Gd:=nil; +end; + +procedure TfrmSKCR_Gd.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCR_Gd.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmSKCR_Gd.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmSKCR_Gd.FormShow(Sender: TObject); +begin + ReadCxGrid('տǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + InitGrid(); +end; + +procedure TfrmSKCR_Gd.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCR_Gd.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmSKCR_Gd.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmSKCR_Gd.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmSKCR_Gd.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' and YFDefFlag1=1'); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=1; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('YFDefFlag1').Value:=1; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSKCR_Gd.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.ToolButton3Click(Sender: TObject); +begin + +// CDS_HZ.DisableControls; + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:='㶫ͻ'; + if ShowModal=1 then + begin + CDS_HZ.DisableControls; + CDS_HZ.First; + while not CDS_HZ.Eof do + begin + MovePanel2.Visible:=True; + MovePanel2.Refresh; + IF CDS_HZ.FieldByName('ssel').AsBoolean then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + CDS_HZ.Next; + end; + CDS_HZ.First; + CDS_HZ.EnableControls; + end; + end; + finally + frmZdyAttachment.Free; + // CDS_HZ.EnableControls; + MovePanel2.Visible:=false; + end; +end; + +procedure TfrmSKCR_Gd.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR_Gd.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR_Gd.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR_Gd.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'б'); +end; + +procedure TfrmSKCR_Gd.v2Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmBpGdCklist:=TfrmBpGdCklist.Create(Application); + with frmBpGdCklist do + begin + fCKName:='㶫ֿ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmBpGdCklist.CDS_Main.fieldbyname('CRNO').AsString); + FieldByName('subID').Value:=Trim(frmBpGdCklist.CDS_Main.fieldbyname('CRID').AsString); + FieldByName('orderNO').Value:=Trim(frmBpGdCklist.CDS_Main.fieldbyname('CRNO').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmBpGdCklist.CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmBpGdCklist.Free; + end; +end; + +procedure TfrmSKCR_Gd.VBBPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FKCBB:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('BBMoney').Value:=StrToFloat(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set BBMoney='+mvalue); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney+'+FKCBB+'-'+mvalue); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmSKCR_Gd.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + if Trim(mvalue)='' then mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName('DerateMoney').Value:=StrToFloatdef(mvalue,0); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' set DerateMoney='+mvalue); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + +end; + +procedure TfrmSKCR_Gd.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSKCR_Gd.v2Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + +end; + +end. diff --git a/应收应付/U_SXCKNewList.dfm b/应收应付/U_SXCKNewList.dfm new file mode 100644 index 0000000..cc89525 --- /dev/null +++ b/应收应付/U_SXCKNewList.dfm @@ -0,0 +1,587 @@ +object frmSXCKNewList: TfrmSXCKNewList + Left = 50 + Top = 137 + Width = 1289 + Height = 593 + Caption = #22383#24067#21152#24037#37319#36141#20449#24687#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 = 1273 + 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_YSYF.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 = #30830#23450 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1273 + Height = 68 + 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 Label3: TLabel + Left = 351 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 492 + Top = 12 + Width = 78 + Height = 12 + Caption = #20379#24212#21830'/'#21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 351 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 492 + Top = 36 + Width = 60 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 664 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 664 + Top = 36 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + 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 = 1 + end + object SPName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 572 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #21152#24037#20837#24211 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 572 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 713 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 713 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 121 + Width = 1273 + Height = 434 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.Default + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830'/'#21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 101 + Width = 1273 + Height = 20 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#29983#25104 + #24050#29983#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1273 + ClientRectTop = 19 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 928 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 800 + Top = 264 + end +end diff --git a/应收应付/U_SXCKNewList.pas b/应收应付/U_SXCKNewList.pas new file mode 100644 index 0000000..0c857fe --- /dev/null +++ b/应收应付/U_SXCKNewList.pas @@ -0,0 +1,445 @@ +unit U_SXCKNewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmSXCKNewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + SSType: TComboBox; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton1: TToolButton; + cxTabControl1: TcxTabControl; + cxGridPopupMenu1: TcxGridPopupMenu; + 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + canshu1,canshu2:string; + procedure InitGrid(); + function YFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKNewList: TfrmSXCKNewList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} +function TfrmSXCKNewList.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='+quotedstr(Trim(CDS_Main.fieldbyname('factoryName').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(CDS_Main.fieldbyname('factoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='+quotedstr(Trim(CDS_Main.fieldbyname('factoryName').AsString))); + sql.Add(' and mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + // sql.Add(' and subID='''+Trim(Order_Sub.fieldbyname('subID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'YF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(CDS_Main.fieldbyname('SPID').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(CDS_Main.fieldbyname('factoryName').AsString); + FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').AsDateTime; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('PS').Value:=CDS_Main.fieldbyname('PiQty').AsFloat; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=0; + FieldByName('money').Value:=0; + FieldByName('BBmoney').Value:=0; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + FieldByName('P_CodeName').Value:=Trim(CDS_Main.fieldbyname('SPName').AsString); + // FieldByName('P_Color').Value:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + + IF Trim(CDS_Main.fieldbyname('CRType').AsString)='ɹ' then + FieldByName('YFName').Value:='' + else + FieldByName('YFName').Value:='ӹ'; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('SPID').AsString); + // FieldByName('subId').Value:=Trim(Order_Sub.fieldbyname('subId').AsString); + FieldByName('status').Value:='0'; + Post; + 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; + Result:=True; +end; +procedure TfrmSXCKNewList.FormDestroy(Sender: TObject); +begin + frmSXCKNewList:=nil; +end; + +procedure TfrmSXCKNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKNewList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmSXCKNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and CRType in(''ɹ'',''ӹ'')'); + SQL.Add(' and CRFlag='''' '); + IF cxTabControl1.TabIndex=0 then + SQL.Add(' and not exists(select maiNID from YF_Money_CR X where X.MainID=A.SPID ) ') + else + SQL.Add(' and exists(select maiNID from YF_Money_CR X where X.MainID=A.SPID )'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKNewList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKNewList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKNewList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCKNewList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'ֿ'); + { if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end;} + //InitGrid(); +end; + +procedure TfrmSXCKNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmSXCKNewList.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 TfrmSXCKNewList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKNewList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKNewList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmSXCKNewList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKNewList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKNewList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKNewList.ToolButton1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + IF not CDS_Main.Locate('ssel',true,[]) then + begin + application.MessageBox('ûѡݣ','ʾϢ',0); + exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + IF not YFData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('Ӧʧܣ','ʾϢ',0); + end; + end; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + + application.MessageBox('Ӧɹ','ʾϢ'); + initGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('Ӧʧܣ','ʾϢ',0); + + end; +end; + +procedure TfrmSXCKNewList.cxTabControl1Change(Sender: TObject); +begin + INITGrid(); +end; + +procedure TfrmSXCKNewList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if button=mbright then +end; + +end. diff --git a/应收应付/U_YFCR.dfm b/应收应付/U_YFCR.dfm new file mode 100644 index 0000000..839eddf --- /dev/null +++ b/应收应付/U_YFCR.dfm @@ -0,0 +1,575 @@ +object frmYFCR: TfrmYFCR + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #24212#20184#27454#31649#29702 + 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 = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + Caption = #33258#21160#29983#25104 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object ToolButton3: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + Enabled = False + ImageIndex = 56 + OnClick = TnochkClick + end + object ToolButton1: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 82 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 222 + Top = 37 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 234 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 60 + Top = 33 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label4: TLabel + Left = 450 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 450 + Top = 37 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label7: TLabel + Left = 660 + Top = 16 + Width = 24 + Height = 12 + Caption = #21333#20215 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object FactoryName: TEdit + Tag = 2 + Left = 282 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 72 + Top = 29 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object P_CodeName: TEdit + Tag = 2 + Left = 476 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object P_spec: TEdit + Tag = 2 + Left = 476 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object Edit1: TEdit + Left = 688 + Top = 12 + Width = 65 + Height = 20 + TabOrder = 5 + end + object Button1: TButton + Left = 756 + Top = 12 + Width = 49 + Height = 21 + Caption = #30830#23450 + TabOrder = 6 + OnClick = Button1Click + end + object CheckBox1: TCheckBox + Left = 24 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + OnClick = CheckBox1Click + end + object YFName: TComboBox + Tag = 2 + Left = 280 + Top = 32 + Width = 93 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = FactoryNameChange + Items.Strings = ( + #21152#24037#36153 + #22383#24067#36153#29992) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 135 + Width = 1366 + Height = 581 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object v2ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object VOrderNo: TcxGridDBColumn + Caption = #20973#35777#21495 + DataBinding.FieldName = 'YFTypeID' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v2OrderNO: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2OrderNOPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2C_CodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 113 + Width = 1366 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCR.pas b/应收应付/U_YFCR.pas new file mode 100644 index 0000000..ef459b4 --- /dev/null +++ b/应收应付/U_YFCR.pas @@ -0,0 +1,1178 @@ +unit U_YFCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmYFCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2C_CodeName: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2ssel: TcxGridDBColumn; + P_CodeName: TEdit; + Label4: TLabel; + Label5: TLabel; + P_spec: TEdit; + Edit1: TEdit; + Label7: TLabel; + Button1: TButton; + CheckBox1: TCheckBox; + YFName: TComboBox; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + ToolButton4: TToolButton; + v2OrderNO: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2T_qtyPropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure v2T_PricePropertiesEditValueChanged(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2OrderNOPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID,fmanage:String; + + end; + +var + frmYFCR: TfrmYFCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS, U_SXCKNewList, U_ProductOrderListSel; + +{$R *.dfm} + + + +procedure TfrmYFCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + // sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join CK_SXPB_CR C on A.MainId=C.SPID '); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''ӦǼ'' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmYFCR.InitGridHZ(); +begin +end; + +procedure TfrmYFCR.FormDestroy(Sender: TObject); +begin + // frmYFCR:=nil; + frmYFCR:=nil; +end; + +procedure TfrmYFCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCR.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYFCR.FormShow(Sender: TObject); +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + InitGrid(); +end; + +procedure TfrmYFCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCR.ToolButton2Click(Sender: TObject); +var + sql:string; +begin + if ADOQueryMain.Active then + begin + sql:=SGetFilters(Panel1,1,2); + { if sql='' THEN + begin + if trim(ComboBox1.Text)='ӹ' then + begin + sql:=' LX like ''%ӹ%'' '; + end + else if trim(ComboBox1.Text)='' then + begin + sql:=' LX ='''' AND '; + end; + end + else + begin + if trim(ComboBox1.Text)='ӹ' then + begin + sql:=sql+' AND LX like ''%ӹ%'' '; + end + else if trim(ComboBox1.Text)='' then + begin + sql:=sql+' AND LX = '''' '; + end; + end; } + SDofilter(ADOQueryMain,sql); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCR.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCR.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' '); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + FieldByName('status').Value:='0'; + + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYFCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYFCR.ToolButton3Click(Sender: TObject); +begin + + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('BZType').Value:='RMB'; + FieldByName('HuiLv').Value:=1; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + tv2.Controller.EditingController.ShowEdit(); +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; + } +end; + +procedure TfrmYFCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCR.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR.v2T_qtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName,TMoney:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + TMoney:= format('%.2f',[CDS_HZ.Fieldbyname('T_Price').AsFloat*strtofloat(mvalue)]); + + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + + FieldByName('T_Money').Value:=trim(TMoney); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + + + sql.Add(',T_Money='+TMoney); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + ExecSQL; + end; +end; + +procedure TfrmYFCR.Button1Click(Sender: TObject); +begin + + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + If fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add('where YFID='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + open; + edit; + Fieldbyname('Price').Value:=strtofloatdef(edit1.Text,0); + Fieldbyname('Money').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + Fieldbyname('BBMoney').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + post; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmYFCR.CheckBox1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; + +end; + +procedure TfrmYFCR.v2T_PricePropertiesEditValueChanged(Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName,TMoney:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + TMoney:= format('%.2f',[CDS_HZ.Fieldbyname('T_Qty').AsFloat*strtofloat(mvalue)]); + + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + + FieldByName('T_Money').Value:=trim(TMoney); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + + + sql.Add(',T_Money='+TMoney); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + ExecSQL; + end; +end; + +procedure TfrmYFCR.cxTabControl1Change(Sender: TObject); +var + i:integer; +begin + + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; +// Ttj.Enabled:=false; +// TnoTj.Enabled:=false; + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + + + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + end; + + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + + end; + end; + InitGrid(); +end; + +procedure TfrmYFCR.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYFCR.TnochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYFCR.ToolButton4Click(Sender: TObject); +begin + frmSXCKNewList:=TfrmSXCKNewList.create(self) ; + with frmSXCKNewList do + begin + show; + end; +end; + +procedure TfrmYFCR.v2OrderNOPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + FFInt:=1; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + // FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('P_CodeName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPrtCodeName').AsString); + FieldByName('P_Spec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('Mprtspec').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set OrderNO='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNO').AsString)+''''); + sql.Add(' ,P_CodeName='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPrtCodeName').AsString)+''''); + sql.Add(' ,P_Spec='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('Mprtspec').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +end. diff --git a/应收应付/U_YFCRLZ.dfm b/应收应付/U_YFCRLZ.dfm new file mode 100644 index 0000000..a940340 --- /dev/null +++ b/应收应付/U_YFCRLZ.dfm @@ -0,0 +1,514 @@ +object frmYFCRLZ: TfrmYFCRLZ + Left = 64 + Top = 60 + Width = 1176 + Height = 670 + Caption = #24212#20184#27454#31649#29702 + 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 = 1168 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1168 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object Label7: TLabel + Left = 918 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Price: TEdit + Tag = 1 + Left = 809 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 966 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1168 + Height = 566 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2PS: TcxGridDBColumn + Caption = #31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column4: TcxGridDBColumn + Caption = #25253#20851#21517#31216 + DataBinding.FieldName = 'CPZHName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v2Column5: TcxGridDBColumn + Caption = #25104#20221'%'#27604 + DataBinding.FieldName = 'CPCFBi' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 869 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 901 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCRLZ.pas b/应收应付/U_YFCRLZ.pas new file mode 100644 index 0000000..1146be6 --- /dev/null +++ b/应收应付/U_YFCRLZ.pas @@ -0,0 +1,984 @@ +unit U_YFCRLZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + Price: TEdit; + v2Column3: TcxGridDBColumn; + Label7: TLabel; + ComTaiTou: TEdit; + ToolButton4: TToolButton; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFCRLZ: TfrmYFCRLZ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFCRLZ.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,1,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFCRLZ.InitGridHZ(); +begin +end; + +procedure TfrmYFCRLZ.FormDestroy(Sender: TObject); +begin + frmYFCRLZ:=nil; +end; + +procedure TfrmYFCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCRLZ.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='' then + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + v2BatchNo.Hidden:=False; + v2BatchNo.Visible:=True; + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + v2BatchNo.Hidden:=True; + v2BatchNo.Visible:=False; + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmYFCRLZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCRLZ.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFFactory'; + flagname:='Էλ'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCRLZ.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFCRLZ.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZ.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.ToolButton4Click(Sender: TObject); +var + FColumn:String; +begin + begdate.SetFocus; + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if ((Trim(FColumn)='Note') or (Trim(FColumn)='YFName') or (Trim(FColumn)='ComTaiTou') or (Trim(FColumn)='Price')) then + begin + + end else + begin + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv2,CDS_HZ); + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if Trim(FColumn)<>'Price' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '+Trim(FColumn)+'='''+Trim(CDS_HZ.fieldbyname(FColumn).Value)+''''); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(CDS_HZ.fieldbyname(FColumn).AsString)<>'' then + sql.Add('Update YF_Money_CR Set Price='+Trim(CDS_HZ.fieldbyname(FColumn).AsString)) + else + sql.Add('Update YF_Money_CR Set Price=0 '); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select sum(QtyFlag*Money) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select sum(QtyFlag*BBMoney) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(' where CRID=(select CRID from YF_Money_CR B where B.YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''')'); + ExecSQL; + end; + end; + + Next; + end; + end; + CDS_HZ.EnableControls; +end; + +procedure TfrmYFCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,2,:orderno '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YFCRLZQty.dfm b/应收应付/U_YFCRLZQty.dfm new file mode 100644 index 0000000..990f829 --- /dev/null +++ b/应收应付/U_YFCRLZQty.dfm @@ -0,0 +1,511 @@ +object frmYFCRLZQty: TfrmYFCRLZQty + Left = 34 + Top = 84 + Width = 1144 + Height = 670 + Caption = #24212#20184#27454#31649#29702 + 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 = 1136 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1136 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object Label7: TLabel + Left = 918 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Price: TEdit + Tag = 1 + Left = 809 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 966 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1136 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv2StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2PS: TcxGridDBColumn + Caption = #31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column4: TcxGridDBColumn + Caption = #21442#32771#25968#37327 + DataBinding.FieldName = 'CanKaoQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 869 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 901 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCRLZQty.pas b/应收应付/U_YFCRLZQty.pas new file mode 100644 index 0000000..2f26ffc --- /dev/null +++ b/应收应付/U_YFCRLZQty.pas @@ -0,0 +1,1013 @@ +unit U_YFCRLZQty; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRLZQty = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + Price: TEdit; + v2Column3: TcxGridDBColumn; + Label7: TLabel; + ComTaiTou: TEdit; + ToolButton4: TToolButton; + v2Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv2StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFCRLZQty: TfrmYFCRLZQty; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFCRLZQty.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,1,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFCRLZQty.InitGridHZ(); +begin +end; + +procedure TfrmYFCRLZQty.FormDestroy(Sender: TObject); +begin + frmYFCRLZQty:=nil; +end; + +procedure TfrmYFCRLZQty.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRLZQty.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCRLZQty.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCRLZQty.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='' then + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + v2BatchNo.Hidden:=False; + v2BatchNo.Visible:=True; + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + v2BatchNo.Hidden:=True; + v2BatchNo.Visible:=False; + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmYFCRLZQty.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRLZQty.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRLZQty.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRLZQty.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCRLZQty.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZQty.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFFactory'; + flagname:='Էλ'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZQty.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZQty.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZQty.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZQty.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCRLZQty.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFCRLZQty.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZQty.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZQty.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRLZQty.ToolButton4Click(Sender: TObject); +var + FColumn:String; +begin + begdate.SetFocus; + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if ((Trim(FColumn)='Note') or (Trim(FColumn)='YFName') or (Trim(FColumn)='ComTaiTou') or (Trim(FColumn)='Price')) then + begin + + end else + begin + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv2,CDS_HZ); + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if Trim(FColumn)<>'Price' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '+Trim(FColumn)+'='''+Trim(CDS_HZ.fieldbyname(FColumn).Value)+''''); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(CDS_HZ.fieldbyname(FColumn).AsString)<>'' then + sql.Add('Update YF_Money_CR Set Price='+Trim(CDS_HZ.fieldbyname(FColumn).AsString)) + else + sql.Add('Update YF_Money_CR Set Price=0 '); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select sum(QtyFlag*Money) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select sum(QtyFlag*BBMoney) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(' where CRID=(select CRID from YF_Money_CR B where B.YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''')'); + ExecSQL; + end; + end; + + Next; + end; + end; + CDS_HZ.EnableControls; +end; + +procedure TfrmYFCRLZQty.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,2,:orderno '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +procedure TfrmYFCRLZQty.Tv2StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + +var + Id,Id10:Integer; +begin + try + if Tv2.GroupedItemCount=0 then + begin + Id:=TV2.GetColumnByFieldName('Qty').Index;//;-TV1.GroupedItemCount; + Id10:=TV2.GetColumnByFieldName('CanKaoQty').Index; + if ARecord.Values[Id]<>ARecord.Values[Id10] then + begin + if ARecord.Values[Id10]<>null then + AStyle:=DataLink_YSYF.Green; + end; + end else + begin + + end; + except + end; +end; + + +end. diff --git a/应收应付/U_YFCRLZView.dfm b/应收应付/U_YFCRLZView.dfm new file mode 100644 index 0000000..378f06d --- /dev/null +++ b/应收应付/U_YFCRLZView.dfm @@ -0,0 +1,521 @@ +object frmYFCRLZView: TfrmYFCRLZView + Left = 81 + Top = 72 + Width = 1144 + Height = 670 + Caption = #24212#20184#27454#26597#35810 + 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 = 1136 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1136 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object Label7: TLabel + Left = 918 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Price: TEdit + Tag = 1 + Left = 809 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 966 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1136 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv2StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2PS: TcxGridDBColumn + Caption = #31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column5: TcxGridDBColumn + Caption = #21442#32771#25968#37327 + DataBinding.FieldName = 'CanKaoQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 869 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 901 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCRLZView.pas b/应收应付/U_YFCRLZView.pas new file mode 100644 index 0000000..61a3eec --- /dev/null +++ b/应收应付/U_YFCRLZView.pas @@ -0,0 +1,1011 @@ +unit U_YFCRLZView; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRLZView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + Price: TEdit; + v2Column3: TcxGridDBColumn; + Label7: TLabel; + ComTaiTou: TEdit; + ToolButton4: TToolButton; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv2StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFCRLZView: TfrmYFCRLZView; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFCRLZView.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,1,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFCRLZView.InitGridHZ(); +begin +end; + +procedure TfrmYFCRLZView.FormDestroy(Sender: TObject); +begin + frmYFCRLZView:=nil; +end; + +procedure TfrmYFCRLZView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRLZView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCRLZView.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCRLZView.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='' then + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + v2BatchNo.Hidden:=False; + v2BatchNo.Visible:=True; + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + v2BatchNo.Hidden:=True; + v2BatchNo.Visible:=False; + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmYFCRLZView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRLZView.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRLZView.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRLZView.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCRLZView.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZView.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFFactory'; + flagname:='Էλ'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZView.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZView.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZView.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZView.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCRLZView.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFCRLZView.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRLZView.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZView.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRLZView.ToolButton4Click(Sender: TObject); +var + FColumn:String; +begin + begdate.SetFocus; + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if ((Trim(FColumn)='Note') or (Trim(FColumn)='YFName') or (Trim(FColumn)='ComTaiTou') or (Trim(FColumn)='Price')) then + begin + + end else + begin + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv2,CDS_HZ); + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if Trim(FColumn)<>'Price' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '+Trim(FColumn)+'='''+Trim(CDS_HZ.fieldbyname(FColumn).Value)+''''); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(CDS_HZ.fieldbyname(FColumn).AsString)<>'' then + sql.Add('Update YF_Money_CR Set Price='+Trim(CDS_HZ.fieldbyname(FColumn).AsString)) + else + sql.Add('Update YF_Money_CR Set Price=0 '); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select sum(QtyFlag*Money) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select sum(QtyFlag*BBMoney) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(' where CRID=(select CRID from YF_Money_CR B where B.YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''')'); + ExecSQL; + end; + end; + + Next; + end; + end; + CDS_HZ.EnableControls; +end; + +procedure TfrmYFCRLZView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,2,:orderno '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmYFCRLZView.Tv2StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + Id,Id10:Integer; +begin + try + if Tv2.GroupedItemCount=0 then + begin + Id:=TV2.GetColumnByFieldName('Qty').Index;//;-TV1.GroupedItemCount; + Id10:=TV2.GetColumnByFieldName('CanKaoQty').Index; + if ARecord.Values[Id]<>ARecord.Values[Id10] then + begin + if ARecord.Values[Id10]<>null then + AStyle:=DataLink_YSYF.Green; + end; + end else + begin + + end; + except + end; +end; + +end. diff --git a/应收应付/U_YFCRWT.dfm b/应收应付/U_YFCRWT.dfm new file mode 100644 index 0000000..e0402b9 --- /dev/null +++ b/应收应付/U_YFCRWT.dfm @@ -0,0 +1,457 @@ +object frmYFCRWT: TfrmYFCRWT + Left = 32 + Top = 72 + Width = 1176 + Height = 670 + Caption = #24212#20184#27454#31649#29702 + 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 = 1168 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1168 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Price: TEdit + Tag = 1 + Left = 809 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1168 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 869 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 901 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCRWT.pas b/应收应付/U_YFCRWT.pas new file mode 100644 index 0000000..af69eba --- /dev/null +++ b/应收应付/U_YFCRWT.pas @@ -0,0 +1,969 @@ +unit U_YFCRWT; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRWT = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + Price: TEdit; + ToolButton4: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFCRWT: TfrmYFCRWT; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFCRWT.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,1,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFCRWT.InitGridHZ(); +begin +end; + +procedure TfrmYFCRWT.FormDestroy(Sender: TObject); +begin + frmYFCRWT:=nil; +end; + +procedure TfrmYFCRWT.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRWT.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCRWT.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCRWT.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + {fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,False,''); } + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='֧ʽ' then + begin + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmYFCRWT.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRWT.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRWT.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRWT.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCRWT.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCRWT.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFFactory'; + flagname:='Էλ'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRWT.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRWT.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRWT.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRWT.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCRWT.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFCRWT.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRWT.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRWT.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRWT.ToolButton4Click(Sender: TObject); +var + FColumn:String; +begin + begdate.SetFocus; + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if ((Trim(FColumn)='Note') or (Trim(FColumn)='YFName') or (Trim(FColumn)='ComTaiTou') or (Trim(FColumn)='Price')) then + begin + + end else + begin + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv2,CDS_HZ); + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if Trim(FColumn)<>'Price' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '+Trim(FColumn)+'='''+Trim(CDS_HZ.fieldbyname(FColumn).Value)+''''); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(CDS_HZ.fieldbyname(FColumn).AsString)<>'' then + sql.Add('Update YF_Money_CR Set Price='+Trim(CDS_HZ.fieldbyname(FColumn).AsString)) + else + sql.Add('Update YF_Money_CR Set Price=0 '); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select sum(QtyFlag*Money) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select sum(QtyFlag*BBMoney) from YF_Money_CR where CRId=YF_Money_KC.CRID)'); + sql.Add(' where CRID=(select CRID from YF_Money_CR B where B.YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''')'); + ExecSQL; + end; + end; + + Next; + end; + end; + CDS_HZ.EnableControls; +end; + +procedure TfrmYFCRWT.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_YFK :begdate,:Enddate,2,:orderno '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YFCRYCL.dfm b/应收应付/U_YFCRYCL.dfm new file mode 100644 index 0000000..55adcc6 --- /dev/null +++ b/应收应付/U_YFCRYCL.dfm @@ -0,0 +1,439 @@ +object frmYFCRYCL: TfrmYFCRYCL + Left = 14 + Top = 81 + Width = 1144 + Height = 670 + Caption = #24212#20184#27454#31649#29702 + 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 = 1136 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1136 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1136 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2PS: TcxGridDBColumn + Caption = #31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #29289#26009#35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCRYCL.pas b/应收应付/U_YFCRYCL.pas new file mode 100644 index 0000000..823d52f --- /dev/null +++ b/应收应付/U_YFCRYCL.pas @@ -0,0 +1,882 @@ +unit U_YFCRYCL; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYFCRYCL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFCRYCL: TfrmYFCRYCL; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFCRYCL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.YCLName,YCLSpec '); + sql.Add(',KHZJM=dbo.getPinYin(A.FactoryName)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join CK_YCL_CR C on A.YFTypeId=C.MSId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''ӦǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFCRYCL.InitGridHZ(); +begin +end; + +procedure TfrmYFCRYCL.FormDestroy(Sender: TObject); +begin + frmYFCRYCL:=nil; +end; + +procedure TfrmYFCRYCL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRYCL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCRYCL.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCRYCL.FormShow(Sender: TObject); +begin + ReadCxGrid('ӦǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='' then + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + v2BatchNo.Hidden:=False; + v2BatchNo.Visible:=True; + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + v2BatchNo.Hidden:=True; + v2BatchNo.Visible:=False; + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmYFCRYCL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRYCL.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYFCRYCL.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRYCL.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCRYCL.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCRYCL.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + //flag:='YFFactory'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRYCL.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRYCL.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRYCL.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRYCL.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCRYCL.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFCRYCL.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCRYCL.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/应收应付/U_YFCR_GD.dfm b/应收应付/U_YFCR_GD.dfm new file mode 100644 index 0000000..69428ee --- /dev/null +++ b/应收应付/U_YFCR_GD.dfm @@ -0,0 +1,590 @@ +object frmYFCR_GD: TfrmYFCR_GD + Left = 79 + Top = 62 + Width = 1144 + Height = 670 + Caption = #24212#20184#27454#31649#29702 + 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 = 1128 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBADD: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TBADDClick + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 315 + Top = 0 + Caption = #25764#38144#23457#26680 + Enabled = False + ImageIndex = 56 + OnClick = TnochkClick + end + object ToolButton1: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1128 + Height = 74 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 290 + Top = 37 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 60 + Top = 33 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label4: TLabel + Left = 518 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 518 + Top = 37 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 732 + Top = 12 + Width = 24 + Height = 12 + Caption = #21333#20215 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object YFName: TEdit + Tag = 2 + Left = 350 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 72 + Top = 29 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object P_CodeName: TEdit + Tag = 2 + Left = 544 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object P_Color: TEdit + Tag = 2 + Left = 544 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object Edit1: TEdit + Left = 760 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 6 + end + object Button1: TButton + Left = 828 + Top = 8 + Width = 49 + Height = 21 + Caption = #30830#23450 + TabOrder = 7 + OnClick = Button1Click + end + object CheckBox1: TCheckBox + Left = 24 + Top = 52 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 127 + Width = 1128 + Height = 505 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2PS: TcxGridDBColumn + Caption = #31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2C_CodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2T_qty: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_QTy' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2T_qtyPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_Money' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 60 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1128 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1128 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFCR_GD.pas b/应收应付/U_YFCR_GD.pas new file mode 100644 index 0000000..f1305e0 --- /dev/null +++ b/应收应付/U_YFCR_GD.pas @@ -0,0 +1,1191 @@ +unit U_YFCR_GD; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmYFCR_GD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + TBADD: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + v2C_CodeName: TcxGridDBColumn; + v2T_qty: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + P_CodeName: TEdit; + Label4: TLabel; + Label5: TLabel; + P_Color: TEdit; + Edit1: TEdit; + Label7: TLabel; + Button1: TButton; + CheckBox1: TCheckBox; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2T_qtyPropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + procedure SetStatus(); + function SaveData():Boolean; + + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID:String; + fmanage:string; + + end; + +var + frmYFCR_GD: TfrmYFCR_GD; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmYFCR_GD.SetStatus(); +var + i:integer; +begin + + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; +// Ttj.Enabled:=false; +// TnoTj.Enabled:=false; + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + + + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + end; + + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + + end; + end; +end; + +procedure TfrmYFCR_GD.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' select A.*,C.OrderNO '); + sql.Add(' from YF_Money_CR A'); + // sql.Add(' left join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_sub C on A.MainId=C.MainId AND C.SUBID=A.SUBID'); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''ӦǼ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmYFCR_GD.InitGridHZ(); +begin +end; + +procedure TfrmYFCR_GD.FormDestroy(Sender: TObject); +begin + frmYFCR_GD:=nil; +end; + +procedure TfrmYFCR_GD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCR_GD.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFCR_GD.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCR_GD.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + VBB.Visible:=true; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters6)='' then + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + v2BatchNo.Hidden:=False; + v2BatchNo.Visible:=True; + v2PayMent.Hidden:=False; + v2PayMent.Visible:=True; + end else + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + v2BatchNo.Hidden:=True; + v2BatchNo.Visible:=False; + v2PayMent.Hidden:=True; + v2PayMent.Visible:=False; + end; + SetStatus(); + InitGrid(); +end; + +procedure TfrmYFCR_GD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCR_GD.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCR_GD.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCR_GD.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFCR_GD.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' and YFDefFlag1='''+inttostr(fFlag)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFCR_GD.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR_GD.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + { if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end;} + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYFCR_GD.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYFCR_GD.TBADDClick(Sender: TObject); +begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=''; + FieldByName('FactoryName').Value:='֯'; + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + tv2.Controller.EditingController.ShowEdit(); +{ + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; + } +end; + +procedure TfrmYFCR_GD.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR_GD.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR_GD.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR_GD.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFCR_GD.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString)='Զ' then + begin + Application.MessageBox('Զɵݲ޸!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + IF fFlag=1 then + CustomerNoName.Text:='㶫в' + else + if fFlag=2 then + CustomerNoName.Text:='в'; + CustomerNoName.Enabled:=false; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('subID').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('subID').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('p_CodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('p_Color').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTColor').AsString); + post; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(SELF.CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(SELF.CDS_HZ.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,p_CodeName='''+Trim(SELF.CDS_HZ.fieldbyname('p_CodeName').AsString)+''''); + sql.Add(' ,p_Color='''+Trim(SELF.CDS_HZ.fieldbyname('p_Color').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmYFCR_GD.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR_GD.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR_GD.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFCR_GD.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCR_GD.v2T_qtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName,TMoney:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + + TMoney:= format('%.2f',[CDS_HZ.Fieldbyname('Price').AsFloat*strtofloat(mvalue)]); + + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + + FieldByName('T_Money').Value:=trim(TMoney); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + + + sql.Add(',T_Money='+TMoney); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + ExecSQL; + end; +end; + +procedure TfrmYFCR_GD.Button1Click(Sender: TObject); +begin + + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + If fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add('where YFID='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + open; + edit; + Fieldbyname('Price').Value:=strtofloatdef(edit1.Text,0); + Fieldbyname('Money').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + Fieldbyname('BBMoney').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + post; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmYFCR_GD.CheckBox1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; + +end; + +procedure TfrmYFCR_GD.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYFCR_GD.TnochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYFCR_GD.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +end. diff --git a/应收应付/U_YFFKList.dfm b/应收应付/U_YFFKList.dfm new file mode 100644 index 0000000..834e94c --- /dev/null +++ b/应收应付/U_YFFKList.dfm @@ -0,0 +1,331 @@ +object frmYFFKList: TfrmYFFKList + Left = 188 + Top = 122 + Width = 1038 + Height = 618 + Caption = #24212#20184#27454#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label1: TLabel + Left = 470 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object ComTaiTou: TEdit + Tag = 2 + Left = 518 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + 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 + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + Column = v2BQKP + end + item + Kind = skSum + Column = v2WKP + end + item + Kind = skSum + Column = v2Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 142 + end + object v2GSTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#27424#27454 + DataBinding.FieldName = 'SQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 125 + end + object v2Column1: TcxGridDBColumn + Caption = #26412#26399#24212#20184#27454 + DataBinding.FieldName = 'YFMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 121 + end + object v2Column2: TcxGridDBColumn + Caption = #26412#26399#20184#27454 + DataBinding.FieldName = 'FKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 123 + end + object v2Column3: TcxGridDBColumn + Caption = #26412#26399#27424#27454 + DataBinding.FieldName = 'BQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 127 + end + object v2Column4: TcxGridDBColumn + Caption = #26412#26399#20943#20813 + DataBinding.FieldName = 'DerateMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2BQKP: TcxGridDBColumn + Caption = #26412#26399#24320#31080 + DataBinding.FieldName = 'BQKP' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2WKP: TcxGridDBColumn + Caption = #26410#24320#31080 + DataBinding.FieldName = 'WKP' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + CommandTimeout = 60 + Parameters = <> + Left = 308 + Top = 300 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 208 + end +end diff --git a/应收应付/U_YFFKList.pas b/应收应付/U_YFFKList.pas new file mode 100644 index 0000000..d563b16 --- /dev/null +++ b/应收应付/U_YFFKList.pas @@ -0,0 +1,188 @@ +unit U_YFFKList; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYFFKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2BQKP: TcxGridDBColumn; + v2WKP: TcxGridDBColumn; + v2GSTT: TcxGridDBColumn; + Label1: TLabel; + ComTaiTou: TEdit; + v2Column4: TcxGridDBColumn; + ADOQueryMain: TADOQuery; + CDS_HZ: TClientDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fDParameters1:string; + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFFKList: TfrmYFFKList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmYFFKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + SQL.Clear; + Filtered:=False; +{ if Trim(DParameters10)='' then + sql.Add(' exec P_YFFK_List10 :begdate,:Enddate,:Flag') + else + SQL.Add(' exec '+Trim(DParameters10)+' :begdate,:Enddate'); } + sql.Add(' exec P_YFFK_List10 :begdate,:Enddate,:Flag') ; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('Flag').Value:=Trim(fDParameters1); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + //ToolButton2.Click; +end; + + +procedure TfrmYFFKList.FormDestroy(Sender: TObject); +begin + frmYFFKList:=nil; +end; + +procedure TfrmYFFKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFFKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧͳ1',Tv2,''); + Close; +end; +procedure TfrmYFFKList.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧͳ1',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; +{ if Trim(DParameters5)='Ʊ' then + begin + v2BQKP.Hidden:=False; + v2BQKP.Visible:=True; + v2WKP.Hidden:=False; + v2WKP.Visible:=True; + end else + begin + v2BQKP.Hidden:=True; + v2BQKP.Visible:=False; + v2WKP.Hidden:=True; + v2WKP.Visible:=False; + end; + if Trim(DParameters9)='̨֧ͷ' then + begin + v2GSTT.Hidden:=False; + v2GSTT.Visible:=True; + Label1.Visible:=True; + ComTaiTou.Visible:=True; + end else + begin + v2GSTT.Hidden:=True; + v2GSTT.Visible:=False; + Label1.Visible:=False; + ComTaiTou.Visible:=False; + end; +} + + InitGrid(); +end; + +procedure TfrmYFFKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFFKList.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,Trim(SGetFilters(Panel1,1,2))); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYFFKList.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFFKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧͳб'); +end; + +end. diff --git a/应收应付/U_YFFP.dfm b/应收应付/U_YFFP.dfm new file mode 100644 index 0000000..891a4a5 --- /dev/null +++ b/应收应付/U_YFFP.dfm @@ -0,0 +1,426 @@ +object frmYFFP: TfrmYFFP + Left = 75 + Top = 57 + Width = 1144 + Height = 670 + Caption = #36827#39033#21457#31080#31649#29702 + 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 = 1128 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1128 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #24320#31080#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 607 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 746 + Top = 57 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 493 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 353 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 644 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 798 + Top = 49 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1128 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object v2Column6: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24320#31080#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFFP.pas b/应收应付/U_YFFP.pas new file mode 100644 index 0000000..8845909 --- /dev/null +++ b/应收应付/U_YFFP.pas @@ -0,0 +1,897 @@ +unit U_YFFP; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFFP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + ComTaiTou: TEdit; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFFP: TfrmYFFP; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + + + +procedure TfrmYFFP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''ӦƱǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYFFP.InitGridHZ(); +begin +end; + +procedure TfrmYFFP.FormDestroy(Sender: TObject); +begin + frmYFFP:=nil; +end; + +procedure TfrmYFFP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFFP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦƱ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYFFP.TBDelClick(Sender: TObject); +var + FBBMoney:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFFP.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('ӦƱ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; + + InitGrid(); +end; + +procedure TfrmYFFP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFFP.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFFP.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFFP.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYFFP.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦƱǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYFFP.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FKPMoney,FKPNow,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKPMoney:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='1'; + if Trim(FFieldName)<>'KPMoney' then + begin + FKPNow:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + end else + begin + FKPNow:=CDS_HZ.fieldbyname('KPMoney').AsString; + end; + with CDS_HZ do + begin + Edit; + FieldByName('KPMoney').Value:=StrToFloat(FKPNow); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'KPMoney' then + begin + sql.Add(',KPMoney='+FKPNow); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKPMoney+'+'+FKPNow); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('BZType').Value:='RMB'; + FieldByName('HuiLv').Value:=1; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + tv2.Controller.EditingController.ShowEdit(); +{ + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFFactory'; + flagname:='Էλ'; + if Trim(DParameters8)='' then + begin + flag:='YFFactory'; + end else + begin + flag:=Trim(DParameters8); + end; + if Trim(DParameters4)='Էλֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmYFFP.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFFP.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFFP.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFFP.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYFFP.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYFFP.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName,FQty:String; + FPrice:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + if Trim(CDS_HZ.fieldbyname('Qty').AsString)<>'' then + begin + FQty:=CDS_HZ.fieldbyname('Qty').AsString; + if StrToFloat(FQty)=0 then Exit; + FPrice:=StrToFloat(FBBMoney)*1.00/StrToFloat(FQty); + with CDS_HZ do + begin + Edit; + FieldByName('Price').Value:=FPrice; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate YF_Money_CR Set Price='+CDS_HZ.fieldbyname('Price').AsString); + sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYFFP.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFFP.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFFP.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.orderNo like :OrderNo'); + sql.Add('and A.CRType=''ӦƱǼ'''); + Parameters.ParamByName('OrderNo').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmYFFP.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + FFInt:=1; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + // FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('P_CodeName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPrtCodeName').AsString); + FieldByName('P_Spec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('Mprtspec').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set OrderNO='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNO').AsString)+''''); + sql.Add(' ,P_CodeName='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPrtCodeName').AsString)+''''); + sql.Add(' ,P_Spec='''+Trim(frmProductOrderListSel.Order_Main.fieldbyname('Mprtspec').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +end. diff --git a/应收应付/U_YFMXlist.dfm b/应收应付/U_YFMXlist.dfm new file mode 100644 index 0000000..0e4a970 --- /dev/null +++ b/应收应付/U_YFMXlist.dfm @@ -0,0 +1,543 @@ +object frmYFMXlist: TfrmYFMXlist + Left = 162 + Top = 120 + Width = 1093 + Height = 621 + Caption = #24212#20184#27454#26126#32454 + 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 = 1077 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1077 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 702 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 510 + Top = 13 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 598 + Top = 77 + Width = 48 + Height = 12 + Caption = #25910#27454#36827#24230 + end + object Label5: TLabel + Left = 324 + Top = 14 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object P_CodeName: TEdit + Tag = 2 + Left = 730 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 0 + OnChange = P_CodeNameChange + end + object conNo: TEdit + Tag = 2 + Left = 562 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 1 + OnChange = conNoChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrdDefNote3: TComboBox + Tag = 1 + Left = 662 + Top = 65 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 4 + OnChange = P_CodeNameChange + Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '') + end + object factoryName: TEdit + Tag = 2 + Left = 364 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 5 + OnChange = P_CodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1077 + Height = 367 + Align = alTop + TabOrder = 2 + 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 + Column = cxQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2BBMoney + end + item + Kind = skSum + Column = VMoney + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2DerateMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object v2factoryName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxCRTime: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2MRPTspec: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2gangNo: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2YFName: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'YFName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxQtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 66 + end + object v2Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VMoney: TcxGridDBColumn + Caption = #24212#20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object v2BBMoney: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v2Column3: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column4: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_QTy' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2T_Price: TcxGridDBColumn + Caption = #36864#36135#21333#20215 + DataBinding.FieldName = 'T_Price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxMoneyYe: TcxGridDBColumn + Caption = #20313#39069 + DataBinding.FieldName = 'MoneyYe' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.FonePurple + Width = 99 + end + object v2note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panetime: TPanel + Left = 318 + Top = 164 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end + object RMGridReport1: 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 = 432 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 360 + Top = 260 + 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 = 652 + Top = 244 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 484 + Top = 4 + end +end diff --git a/应收应付/U_YFMXlist.pas b/应收应付/U_YFMXlist.pas new file mode 100644 index 0000000..5f06dd6 --- /dev/null +++ b/应收应付/U_YFMXlist.pas @@ -0,0 +1,265 @@ +unit U_YFMXlist; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls; + +type + TfrmYFMXlist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + P_CodeName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + conNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxCRTime: TcxGridDBColumn; + cxMoneyYe: TcxGridDBColumn; + cxQty: TcxGridDBColumn; + cxQtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Price: TcxGridDBColumn; + VMoney: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2BBMoney: TcxGridDBColumn; + v2MPRTCodeName: TcxGridDBColumn; + Label4: TLabel; + OrdDefNote3: TComboBox; + v2factoryName: TcxGridDBColumn; + v2MRPTspec: TcxGridDBColumn; + v2YFName: TcxGridDBColumn; + Label5: TLabel; + factoryName: TEdit; + ToolButton3: TToolButton; + RMGridReport1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v2gangNo: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2note: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v2DerateMoney: TcxGridDBColumn; + v2T_Price: TcxGridDBColumn; + Panetime: TPanel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + fType:string; + + end; + +var + frmYFMXlist: TfrmYFMXlist; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYFMXlist.InitGrid(); +begin + IF trim(factoryName.Text)='' then + begin + application.MessageBox('빩Ӧ̣Ա߲ѯٶȣ','ʾϢ',MB_ICONERROR); + exit; + end; + screen.Cursor:=crsqlwait; + Panetime.Visible:=true; + Panetime.Left:=(Width-Panetime.Width) div 2; + Panetime.top:=(Height-Panetime.Height-200) div 2; + application.ProcessMessages; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_Qry_Yfk_mx :begdate,:enddate,:Type,:factoryName'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('Type').Value:=Trim(fType); + Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; +end; + + +procedure TfrmYFMXlist.FormDestroy(Sender: TObject); +begin + frmYFMXlist:=nil; +end; + +procedure TfrmYFMXlist.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFMXlist.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + Close; +end; +procedure TfrmYFMXlist.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + if fType='1' then + begin + VOrderNo.Caption:='ⵥ'; + Label3.Caption:='ⵥ'; + end; + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + + IF trim(fType)='1' then factoryName.Text:='֯'; +// InitGrid(); +end; + +procedure TfrmYFMXlist.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYFMXlist.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFMXlist.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFMXlist.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,self.Caption); +end; + +procedure TfrmYFMXlist.conNoChange(Sender: TObject); +begin + + ToolButton2.Click; +end; + +procedure TfrmYFMXlist.P_CodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFMXlist.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=AlClient; +end; + +procedure TfrmYFMXlist.ToolButton3Click(Sender: TObject); +var + filepath:string; + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date); + if CDS_HZ.IsEmpty then exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' exec P_Qry_Yfk_mx_dz '); + sql.Add(' @begdate='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''' '); + sql.Add(',@Type='''+Trim(fType)+''' '); + sql.Add(',@factoryName='''+Trim(CDS_HZ.fieldbyname('factoryName').AsString)+''' '); + Open; + end; + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧ˵.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + // RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date); + // RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date); + RMVariables['zdr'] :=trim(DName); + RmVariables['begDate'] :=FormatDateTime('yymmdd',begDate.Date)+'-'+FormatDateTime('yymmdd',enddate.Date); + ADOQueryPrint.First; + RmVariables['QCNum'] :=ADOQueryPrint.fieldbyname('MoneyYe').AsFloat - ADOQueryPrint.fieldbyname('Money').AsFloat + ADOQueryPrint.fieldbyname('BBMoney').AsFloat + ADOQueryPrint.fieldbyname('T_money').AsFloat + ADOQueryPrint.fieldbyname('DerateMoney').AsFloat; + ADOQueryPrint.Last; + RmVariables['endNum'] :=ADOQueryPrint.fieldbyname('MoneyYe').AsString; + RMGridReport1.LoadFromFile(filepath); + // RMGridReport1.PrintReport; + RMGridReport1.ShowReport; + + finally + + end; + +end; + +end. diff --git a/应收应付/U_YFZDList_MX.dfm b/应收应付/U_YFZDList_MX.dfm new file mode 100644 index 0000000..d8073a9 --- /dev/null +++ b/应收应付/U_YFZDList_MX.dfm @@ -0,0 +1,304 @@ +object frmYFZDList_MX: TfrmYFZDList_MX + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #24212#20184#27454#23545#36134#20449#24687 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 426 + Top = 13 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label1: TLabel + Left = 470 + Top = 49 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object FactoryName: TEdit + Left = 458 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 2 + end + object ComTaiTou: TEdit + Tag = 2 + Left = 522 + Top = 49 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1022 + Height = 335 + Align = alTop + TabOrder = 2 + 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 + Column = v2Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object v2Column1: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2ps: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column7: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column8: TcxGridDBColumn + Caption = #24212#20184#27454#37329#39069 + DataBinding.FieldName = 'yfk' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column9: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'fk' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #32047#35745#27424#27454 + DataBinding.FieldName = 'yfkye' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Width = 200 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YFZDList_MX.pas b/应收应付/U_YFZDList_MX.pas new file mode 100644 index 0000000..9444189 --- /dev/null +++ b/应收应付/U_YFZDList_MX.pas @@ -0,0 +1,210 @@ +unit U_YFZDList_MX; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYFZDList_MX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label1: TLabel; + ComTaiTou: TEdit; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2ps: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFZDList_MX: TfrmYFZDList_MX; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmYFZDList_MX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('exec P_Get_zk_MX '); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@FactoryName='+quotedstr(trim(FactoryName.Text))); + sql.Add(',@sfFlag='+quotedstr(trim('0'))); + sql.Add(',@isgd='+quotedstr(trim('0'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYFZDList_MX.FormDestroy(Sender: TObject); +begin + frmYFZDList_MX:=nil; +end; + +procedure TfrmYFZDList_MX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFZDList_MX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + Close; +end; +procedure TfrmYFZDList_MX.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; +{ if Trim(DParameters5)='Ʊ' then + begin + v2BQKP.Hidden:=False; + v2BQKP.Visible:=True; + v2WKP.Hidden:=False; + v2WKP.Visible:=True; + end else + begin + v2BQKP.Hidden:=True; + v2BQKP.Visible:=False; + v2WKP.Hidden:=True; + v2WKP.Visible:=False; + end; + if Trim(DParameters9)='̨֧ͷ' then + begin + v2GSTT.Hidden:=False; + v2GSTT.Visible:=True; + Label1.Visible:=True; + ComTaiTou.Visible:=True; + end else + begin + v2GSTT.Hidden:=True; + v2GSTT.Visible:=False; + Label1.Visible:=False; + ComTaiTou.Visible:=False; + end; + } + + InitGrid(); +end; + +procedure TfrmYFZDList_MX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFZDList_MX.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + fsj:=''; + if Trim(FactoryName.Text)<>'' then + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYFZDList_MX.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFZDList_MX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧͳб'); +end; + +procedure TfrmYFZDList_MX.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=AlClient; +end; + +end. diff --git a/应收应付/U_YPCR.dfm b/应收应付/U_YPCR.dfm new file mode 100644 index 0000000..dc8701d --- /dev/null +++ b/应收应付/U_YPCR.dfm @@ -0,0 +1,300 @@ +object frmYPCR: TfrmYPCR + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #20837#24211#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TradeManage.ThreeImgList + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object CYSpec: TEdit + Tag = 2 + Left = 515 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = CYNameChange + end + object CYName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 3 + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 129 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 140 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 110 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 3 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'CRQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 472 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YPCR.pas b/应收应付/U_YPCR.pas new file mode 100644 index 0000000..b871d6f --- /dev/null +++ b/应收应付/U_YPCR.pas @@ -0,0 +1,345 @@ +unit U_YPCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYPCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + CYSpec: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + CYName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + + public + { Public declarations } + RKFlag,FCYID:String; + procedure InitGrid(); + function SaveData():Boolean; + end; + +var + frmYPCR: TfrmYPCR; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + + + +procedure TfrmYPCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYPCR.InitGridHZ(); +begin +end; + +procedure TfrmYPCR.FormDestroy(Sender: TObject); +begin + frmYPCR:=nil; +end; + +procedure TfrmYPCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'Ʒ'); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end; + Close; +end; +procedure TfrmYPCR.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('CRID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + SQL.Add('Update CP_YDang Set KCQty=(select isnull(Sum(CRQty*CRFlag),0) from CK_YP_CR A where A.CYID=CP_YDang.CYID )'); + sql.Add(' where CYID='''+Trim(CDS_HZ.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYPCR.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'Ʒ'); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; + //InitGrid(); +end; + +procedure TfrmYPCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYPCR.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYPCR.CYNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYPCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYPCR.SaveData():Boolean; +var + maxId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'RK','CK_YP_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CYId').Value:=Trim(FCYID); + FieldByName('CRId').Value:=Trim(maxId); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'CK_YP_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:=Trim(RKFlag); + if Trim(RKFlag)='' then + begin + FieldByName('CRFlag').Value:=1; + end else + begin + FieldByName('CRFlag').Value:=-1; + end; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('CRId').Value:=Trim(maxId); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYPCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYPCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CRId='''+Trim(CDS_HZ.fieldbyname('CRId').AsString)+''''); + SQL.Add('Update CP_YDang Set KCQty=(select isnull(Sum(CRQty*CRFlag),0) from CK_YP_CR A where A.CYID=CP_YDang.CYID )'); + sql.Add(' where CYID='''+Trim(CDS_HZ.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYPCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CRId='''+Trim(CDS_HZ.fieldbyname('CRId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/应收应付/U_YSCR.dfm b/应收应付/U_YSCR.dfm new file mode 100644 index 0000000..4d08cd9 --- /dev/null +++ b/应收应付/U_YSCR.dfm @@ -0,0 +1,578 @@ +object frmYSCR: TfrmYSCR + Left = 15 + Top = 15 + Width = 1334 + Height = 675 + Caption = #24212#25910#27454#31649#29702 + 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 = 1318 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + Enabled = False + ImageIndex = 56 + OnClick = TnochkClick + end + object ToolButton1: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1318 + Height = 74 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 214 + Top = 37 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 226 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 56 + Top = 37 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label4: TLabel + Left = 454 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 454 + Top = 37 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label7: TLabel + Left = 836 + Top = 8 + Width = 24 + Height = 12 + Caption = #21333#20215 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 274 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 274 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 72 + Top = 33 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object P_CodeName: TEdit + Tag = 2 + Left = 480 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object P_Spec: TEdit + Tag = 2 + Left = 480 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object Edit1: TEdit + Left = 864 + Top = 4 + Width = 65 + Height = 20 + TabOrder = 6 + end + object Button1: TButton + Left = 932 + Top = 4 + Width = 49 + Height = 21 + Caption = #30830#23450 + TabOrder = 7 + OnClick = Button1Click + end + object CheckBox1: TCheckBox + Left = 24 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnClick = CheckBox1Click + end + object orderNo: TEdit + Tag = 2 + Left = 672 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 127 + Width = 1318 + Height = 408 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = v2PS + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 140 + end + object v2PS: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column7: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'invoiceNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 66 + end + object v2Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 98 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1318 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1318 + ClientRectTop = 19 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSCR.pas b/应收应付/U_YSCR.pas new file mode 100644 index 0000000..4db32a1 --- /dev/null +++ b/应收应付/U_YSCR.pas @@ -0,0 +1,1116 @@ +unit U_YSCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmYSCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + P_CodeName: TEdit; + Label4: TLabel; + P_Spec: TEdit; + Label5: TLabel; + Label7: TLabel; + Edit1: TEdit; + Button1: TButton; + CheckBox1: TCheckBox; + orderNo: TEdit; + Label8: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + cxTabControl1: TcxTabControl; + v2Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2KPMoneyPropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + procedure SetStatus(); + + public + + fflag:integer; + { Public declarations } + RKFlag,FCYID:String; + fmanage:string; + + end; + +var + frmYSCR: TfrmYSCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList, U_ProductOrderList, + U_ZdyAttachment, U_SXCKNewList; + +{$R *.dfm} +procedure TfrmYSCR.SetStatus(); +begin + Tchk.Enabled:=false; + TNochk.Enabled:=false; + + v2Column1.Options.Editing:=false; + IF fmanage='ѯ' then + begin + if cxTabControl1.TabIndex=0 then + begin + //Tchk.Enabled:=true; + // v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + // TNochk.Enabled:=true; + // Ttj.Enabled:=true; + // v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=2 then + begin + // TNotj.Enabled:=true; + end; + end + else + IF fmanage='Ȩ' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=2 then + begin + end; + end + else + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Enabled:=true; + v2Column1.Options.Editing:=true; + end; + if cxTabControl1.TabIndex=2 then + begin + // TNotj.Enabled:=true; + end; + end; +end; + + +procedure TfrmYSCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.invoiceNo'); + sql.Add(' from YF_Money_CR A'); + // sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrderFB_Main C on A.MainId=C.MainId '); + sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(' and A.CRType=''ӦտǼ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmYSCR.InitGridHZ(); +begin +end; + +procedure TfrmYSCR.FormDestroy(Sender: TObject); +begin + frmYSCR:=nil; +end; + +procedure TfrmYSCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦտǼ1',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSCR.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYSCR.FormShow(Sender: TObject); +begin + ReadCxGrid('ӦտǼ1',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; +{ if Trim(DParameters7)<>'ƥ' then + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + end else + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + end; } + SetStatus(); + InitGrid(); +end; + +procedure TfrmYSCR.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSCR.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSCR.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSCR.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YS','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + // FieldByName('YFDefFlag1').Value:=fFlag; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('YFDefFlag1').Value:=fFlag; + FieldByName('status').Value:='0'; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYSCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('HuiLv').Value:=1; + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachment.Free; + end; +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmYSCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտб'); +end; + +procedure TfrmYSCR.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲɾ!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + if fflag=2 then + fsyrName:='в'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + // FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + // FieldByName('subID').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('subID').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTColor').AsString); + // FieldByName('Filler').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('Filler').AsString); + post; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(SELF.CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(SELF.CDS_HZ.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,p_CodeName='''+Trim(SELF.CDS_HZ.fieldbyname('PRTCodeName').AsString)+''''); + sql.Add(' ,p_Color='''+Trim(SELF.CDS_HZ.fieldbyname('PRTColor').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmYSCR.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR.v2KPMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR.Button1Click(Sender: TObject); +begin + + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + If fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add('where YFID='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + open; + edit; + Fieldbyname('Price').Value:=strtofloatdef(edit1.Text,0); + Fieldbyname('Money').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + Fieldbyname('BBMoney').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + post; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmYSCR.CheckBox1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; + +end; + +procedure TfrmYSCR.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + + InitGrid(); +end; + +procedure TfrmYSCR.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alclient; +end; + +procedure TfrmYSCR.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''1'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmYSCR.TnochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YF_Money_CR SET status=''0'' '); + sql.Add('where YFID ='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/应收应付/U_YSCRJZC.dfm b/应收应付/U_YSCRJZC.dfm new file mode 100644 index 0000000..6dc6dea --- /dev/null +++ b/应收应付/U_YSCRJZC.dfm @@ -0,0 +1,506 @@ +object frmYSCRJZC: TfrmYSCRJZC + Left = 79 + Top = 98 + Width = 1038 + Height = 618 + Caption = #24212#25910#27454#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + Caption = #21516#27493 + ImageIndex = 60 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 830 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 140 + end + object v2PS: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PIPayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2ZFTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column7: TcxGridDBColumn + Caption = #20195#29702 + DataBinding.FieldName = 'YFDefFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v2Column8: TcxGridDBColumn + Caption = #25253#20851#21517#31216 + DataBinding.FieldName = 'CPZHName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2Column9: TcxGridDBColumn + Caption = #25104#20221'%'#27604 + DataBinding.FieldName = 'CPCFBi' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSCRJZC.pas b/应收应付/U_YSCRJZC.pas new file mode 100644 index 0000000..114557f --- /dev/null +++ b/应收应付/U_YSCRJZC.pas @@ -0,0 +1,1178 @@ +unit U_YSCRJZC; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSCRJZC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + ToolButton4: TToolButton; + v2ZFTT: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + Label5: TLabel; + ComTaiTou: TEdit; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2KPMoneyPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column7PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSCRJZC: TfrmYSCRJZC; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSCRJZC.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select C.Filler,A.*,C.OrderNo,C.MPRTCodeName '); + sql.Add(',PIPayMent=(select Top 1 PayMent from JYOrderCon_Main AA where AA.ConNo=C.OrderNo) '); + sql.Add(',CPZHName=(select Top 1 CPZHName from JYOrderCon_Main JM where JM.ConNo=C.ConNo)'); + sql.Add(',CPCFBi=(select Top 1 CPCFBi from JYOrderCon_Main JM where JM.ConNo=C.ConNo)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''''); + sql.Add('and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + sql.Add('and A.CRType=''ӦտǼ'''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYSCRJZC.InitGridHZ(); +begin +end; + +procedure TfrmYSCRJZC.FormDestroy(Sender: TObject); +begin + frmYSCRJZC:=nil; +end; + +procedure TfrmYSCRJZC.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSCRJZC.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦտǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSCRJZC.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYSCRJZC.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('ӦտǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2ZFTT,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters7)<>'ƥ' then + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + end else + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + end; + //InitGrid(); +end; + +procedure TfrmYSCRJZC.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSCRJZC.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSCRJZC.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSCRJZC.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSCRJZC.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YS','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCRJZC.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRJZC.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRJZC.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRJZC.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRJZC.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտб'); +end; + +procedure TfrmYSCRJZC.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲɾ!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('MPRTCodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('Filler').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('Filler').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYSCRJZC.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.v2KPMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +function TfrmYSCRJZC.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FFactoryName:String; + CRTime:TDateTime; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CK_BanCP_CR where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRTime:=ADOQueryTemp.fieldbyname('CRTime').Value; + end else + begin + Result:=False; + Application.MessageBox('ûзͬӦտ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + SQL.Clear; + sql.Add('select Case when isnull(CustomerNoName,'''')='''' then '); + sql.Add(' OrderNo else CustomerNoName end as KHName from JYOrder_Main'); + sql.Add(' where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFactoryName:=Trim(ADOQueryTemp.fieldbyname('KHName').AsString); + 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(FFactoryName)+''''); + 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(FFactoryName); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').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 YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + // 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(FFactoryName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main10.fieldbyname('Price').Value; + //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; + YFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set CRTime='''+Trim(FormatDateTime('yyyy-MM-dd',CRTime))+''''); + SQL.Add(',BZType='''+Trim(PriceUnit)+''''); + SQL.Add(',QtyUnit='''+Trim(OrderUnit)+''''); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + 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('Price').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; + Result:=True; +end; + +procedure TfrmYSCRJZC.ToolButton4Click(Sender: TObject); +var + FYFID:String; +begin + if Trim(CDS_HZ.fieldbyname('Price').AsString)='' then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_HZ.fieldbyname('MainId').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'Զ' then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + SQL.Add(' and YFType=''Զ'' '); + sql.Add(' and Price='+CDS_HZ.fieldbyname('Price').AsString); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ǰݴԶɵͬ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where Mainid='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PRTPrice='+CDS_HZ.fieldbyname('Price').AsString); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ָʾûӦļ۸ͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪͬ','ʾ',32+4)<>IDYES then Exit; + FYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + try + ADOQueryCmd.Connection.BeginTrans; + if YSData(CDS_HZ)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͬʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ͬɹ!','ʾ',0); + TBRafresh.Click; + ToolButton2.Click; + //FactoryName.SetFocus; + CDS_HZ.Locate('YFID',FYFID,[]); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCRJZC.v2Column7PropertiesEditValueChanged(Sender: TObject); +var + FFieldName:String; + mvalue:Boolean; +begin + //mvalue:=TcxTextEdit(Sender).EditingText; + mvalue:=TcxCheckBox(Sender).EditingValue; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + if mvalue=True then + FieldByName('YFDefFlag1').Value:=1 + else + FieldByName('YFDefFlag1').Value:=0; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if mvalue=True then + begin + sql.Add(' Set YFDefFlag1=1'); + end else + begin + sql.Add(' Set YFDefFlag1=0'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRJZC.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + ToolBar1.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select C.Filler,A.*,C.OrderNo,C.MPRTCodeName '); + sql.Add(',PIPayMent=(select Top 1 PayMent from JYOrderCon_Main AA where AA.ConNo=C.OrderNo) '); + sql.Add(',CPZHName=(select Top 1 CPZHName from JYOrderCon_Main JM where JM.ConNo=C.ConNo)'); + sql.Add(',CPCFBi=(select Top 1 CPCFBi from JYOrderCon_Main JM where JM.ConNo=C.ConNo)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.orderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add('and A.CRType=''ӦտǼ'''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YSCRLZ.dfm b/应收应付/U_YSCRLZ.dfm new file mode 100644 index 0000000..8a1d51c --- /dev/null +++ b/应收应付/U_YSCRLZ.dfm @@ -0,0 +1,492 @@ +object frmYSCRLZ: TfrmYSCRLZ + Left = 79 + Top = 98 + Width = 1038 + Height = 618 + Caption = #24212#25910#27454#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + Caption = #21516#27493 + ImageIndex = 60 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 782 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 830 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 140 + end + object v2PS: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PIPayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2ZFTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column7: TcxGridDBColumn + Caption = #20195#29702 + DataBinding.FieldName = 'YFDefFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSCRLZ.pas b/应收应付/U_YSCRLZ.pas new file mode 100644 index 0000000..19c5534 --- /dev/null +++ b/应收应付/U_YSCRLZ.pas @@ -0,0 +1,1172 @@ +unit U_YSCRLZ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + ToolButton4: TToolButton; + v2ZFTT: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + Label5: TLabel; + ComTaiTou: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2KPMoneyPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column7PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSCRLZ: TfrmYSCRLZ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSCRLZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select C.Filler,A.*,C.OrderNo,C.MPRTCodeName '); + sql.Add(',PIPayMent=(select Top 1 PayMent from JYOrderCon_Main AA where AA.ConNo=C.OrderNo) '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''''); + sql.Add('and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + sql.Add('and A.CRType=''ӦտǼ'''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYSCRLZ.InitGridHZ(); +begin +end; + +procedure TfrmYSCRLZ.FormDestroy(Sender: TObject); +begin + frmYSCRLZ:=nil; +end; + +procedure TfrmYSCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦտǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYSCRLZ.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('ӦտǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2ZFTT,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters7)<>'ƥ' then + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + end else + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + end; + //InitGrid(); +end; + +procedure TfrmYSCRLZ.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSCRLZ.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSCRLZ.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YS','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCRLZ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRLZ.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCRLZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտб'); +end; + +procedure TfrmYSCRLZ.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲɾ!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('MPRTCodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('Filler').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('Filler').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYSCRLZ.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.v2KPMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +function TfrmYSCRLZ.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FFactoryName:String; + CRTime:TDateTime; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CK_BanCP_CR where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRTime:=ADOQueryTemp.fieldbyname('CRTime').Value; + end else + begin + Result:=False; + Application.MessageBox('ûзͬӦտ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + SQL.Clear; + sql.Add('select Case when isnull(CustomerNoName,'''')='''' then '); + sql.Add(' OrderNo else CustomerNoName end as KHName from JYOrder_Main'); + sql.Add(' where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFactoryName:=Trim(ADOQueryTemp.fieldbyname('KHName').AsString); + 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(FFactoryName)+''''); + 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(FFactoryName); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').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 YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + // 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(FFactoryName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main10.fieldbyname('Price').Value; + //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; + YFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set CRTime='''+Trim(FormatDateTime('yyyy-MM-dd',CRTime))+''''); + SQL.Add(',BZType='''+Trim(PriceUnit)+''''); + SQL.Add(',QtyUnit='''+Trim(OrderUnit)+''''); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + 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('Price').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; + Result:=True; +end; + +procedure TfrmYSCRLZ.ToolButton4Click(Sender: TObject); +var + FYFID:String; +begin + if Trim(CDS_HZ.fieldbyname('Price').AsString)='' then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_HZ.fieldbyname('MainId').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'Զ' then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + SQL.Add(' and YFType=''Զ'' '); + sql.Add(' and Price='+CDS_HZ.fieldbyname('Price').AsString); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ǰݴԶɵͬ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where Mainid='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PRTPrice='+CDS_HZ.fieldbyname('Price').AsString); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ָʾûӦļ۸ͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪͬ','ʾ',32+4)<>IDYES then Exit; + FYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + try + ADOQueryCmd.Connection.BeginTrans; + if YSData(CDS_HZ)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͬʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ͬɹ!','ʾ',0); + TBRafresh.Click; + ToolButton2.Click; + //FactoryName.SetFocus; + CDS_HZ.Locate('YFID',FYFID,[]); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCRLZ.v2Column7PropertiesEditValueChanged(Sender: TObject); +var + FFieldName:String; + mvalue:Boolean; +begin + //mvalue:=TcxTextEdit(Sender).EditingText; + mvalue:=TcxCheckBox(Sender).EditingValue; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + if mvalue=True then + FieldByName('YFDefFlag1').Value:=1 + else + FieldByName('YFDefFlag1').Value:=0; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if mvalue=True then + begin + sql.Add(' Set YFDefFlag1=1'); + end else + begin + sql.Add(' Set YFDefFlag1=0'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + ToolBar1.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select C.Filler,A.*,C.OrderNo,C.MPRTCodeName '); + sql.Add(',PIPayMent=(select Top 1 PayMent from JYOrderCon_Main AA where AA.ConNo=C.OrderNo) '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.orderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add('and A.CRType=''ӦտǼ'''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YSCROL.dfm b/应收应付/U_YSCROL.dfm new file mode 100644 index 0000000..2780576 --- /dev/null +++ b/应收应付/U_YSCROL.dfm @@ -0,0 +1,455 @@ +object frmYSCROL: TfrmYSCROL + Left = 79 + Top = 98 + Width = 1038 + Height = 618 + Caption = #24212#25910#27454#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + Caption = #21516#27493 + ImageIndex = 60 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 634 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object YFName: TEdit + Tag = 2 + Left = 528 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 671 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 514 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 140 + end + object v2PS: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517#27454#24335 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSCROL.pas b/应收应付/U_YSCROL.pas new file mode 100644 index 0000000..be2d58a --- /dev/null +++ b/应收应付/U_YSCROL.pas @@ -0,0 +1,1087 @@ +unit U_YSCROL; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYSCROL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + ToolButton4: TToolButton; + v2Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2KPMoneyPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSCROL: TfrmYSCROL; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderListOLJ; + +{$R *.dfm} + + + +procedure TfrmYSCROL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select BB.Filler, A.* '); + sql.Add(',BB.OrderNo,BB.CustomerNoName,CC.SCNO,CC.PRTCodeName '); + sql.Add(',CC.PRTType,CC.PRTSpec,CC.PRTColor '); + sql.Add(',KHZJM=dbo.getPinYin(A.FactoryName)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + Sql.add(' left join JYOrder_Main BB on A.MainId=BB.MainId'); + Sql.add(' left join JYOrder_Sub CC on A.SubId=CC.SubId'); + sql.Add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''''); + sql.Add('and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + sql.Add('and A.CRType=''ӦտǼ'''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYSCROL.InitGridHZ(); +begin +end; + +procedure TfrmYSCROL.FormDestroy(Sender: TObject); +begin + frmYSCROL:=nil; +end; + +procedure TfrmYSCROL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSCROL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦտǼ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSCROL.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + 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 YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYSCROL.FormShow(Sender: TObject); +begin + ReadCxGrid('ӦտǼ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + label4.Visible:=False; + OrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters7)<>'ƥ' then + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + end else + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + end; + //InitGrid(); +end; + +procedure TfrmYSCROL.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSCROL.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYSCROL.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSCROL.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSCROL.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YS','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCROL.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCROL.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCROL.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCROL.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCROL.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտб'); +end; + +procedure TfrmYSCROL.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲɾ!','ʾ',0); + Exit; + end; + try + frmProductOrderListOLJ:=TfrmProductOrderListOLJ.Create(Application); + with frmProductOrderListOLJ do + begin + + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('Filler').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('Filler').AsString); + FieldByName('PRTSpec').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('Filler').AsString); + FieldByName('SCNO').Value:=Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('SCNO').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(frmProductOrderListOLJ.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderListOLJ.Free; + end; +end; + +procedure TfrmYSCROL.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.v2KPMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCROL.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +function TfrmYSCROL.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FFactoryName:String; + CRTime:TDateTime; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CK_BanCP_CR where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRTime:=ADOQueryTemp.fieldbyname('CRTime').Value; + end else + begin + Result:=False; + Application.MessageBox('ûзͬӦտ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + SQL.Clear; + sql.Add('select Case when isnull(CustomerNoName,'''')='''' then '); + sql.Add(' OrderNo else CustomerNoName end as KHName from JYOrder_Main'); + sql.Add(' where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFactoryName:=Trim(ADOQueryTemp.fieldbyname('KHName').AsString); + 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(FFactoryName)+''''); + 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(FFactoryName); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').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 YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + // 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(FFactoryName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime)); + 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; + YFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set CRTime='''+Trim(FormatDateTime('yyyy-MM-dd',CRTime))+''''); + sql.Add(' ,Price='+Price); + SQL.Add(',BZType='''+Trim(PriceUnit)+''''); + SQL.Add(',QtyUnit='''+Trim(OrderUnit)+''''); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + 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 where '); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' )'); + sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR A where '); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').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; + Result:=True; +end; + +procedure TfrmYSCROL.ToolButton4Click(Sender: TObject); +var + FYFID:String; +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'Զ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + sql.Add(' and CRType=''ӦտǼ'' '); + SQL.Add(' and YFType=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ǰݴԶɵͬ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪͬ','ʾ',32+4)<>IDYES then Exit; + FYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + try + ADOQueryCmd.Connection.BeginTrans; + if YSData(CDS_HZ)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͬʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ͬɹ!','ʾ',0); + TBRafresh.Click; + ToolButton2.Click; + //FactoryName.SetFocus; + CDS_HZ.Locate('YFID',FYFID,[]); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʧ!','ʾ',0); + end; +end; + +end. diff --git a/应收应付/U_YSCR_Gd.dfm b/应收应付/U_YSCR_Gd.dfm new file mode 100644 index 0000000..f0007f2 --- /dev/null +++ b/应收应付/U_YSCR_Gd.dfm @@ -0,0 +1,520 @@ +object frmYSCR_Gd: TfrmYSCR_Gd + Left = 111 + Top = 94 + Width = 1173 + Height = 622 + Caption = #24212#25910#27454#31649#29702 + 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 = 1157 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1157 + Height = 74 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 246 + Top = 37 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 258 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 60 + Top = 37 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label4: TLabel + Left = 498 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 498 + Top = 37 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 712 + Top = 12 + Width = 24 + Height = 12 + Caption = #21333#20215 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object YFName: TEdit + Tag = 2 + Left = 306 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 306 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 72 + Top = 33 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object P_CodeName: TEdit + Tag = 2 + Left = 524 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object P_COlor: TEdit + Tag = 2 + Left = 524 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object Edit1: TEdit + Left = 740 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 6 + end + object Button1: TButton + Left = 808 + Top = 8 + Width = 49 + Height = 21 + Caption = #30830#23450 + TabOrder = 7 + OnClick = Button1Click + end + object CheckBox1: TCheckBox + Left = 24 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1157 + Height = 479 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object v2Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 140 + end + object v2PS: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #21407#24065#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #26412#24065#37329#39069 + DataBinding.FieldName = 'BBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object VOrderNo: TcxGridDBColumn + Caption = #38144#21806#21333 + DataBinding.FieldName = 'mainID' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 66 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v2Column7: TcxGridDBColumn + Caption = #23458#25143#22320#22336 + DataBinding.FieldName = 'custaddress' + HeaderAlignmentHorz = taRightJustify + Options.Editing = False + Width = 120 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSCR_Gd.pas b/应收应付/U_YSCR_Gd.pas new file mode 100644 index 0000000..949cf32 --- /dev/null +++ b/应收应付/U_YSCR_Gd.pas @@ -0,0 +1,938 @@ +unit U_YSCR_Gd; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYSCR_Gd = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + P_CodeName: TEdit; + Label4: TLabel; + Label5: TLabel; + P_COlor: TEdit; + Edit1: TEdit; + Label7: TLabel; + Button1: TButton; + v2Column4: TcxGridDBColumn; + CheckBox1: TCheckBox; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2KPMoneyPropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + + fflag,fmanage:string; + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSCR_Gd: TfrmYSCR_Gd; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList, U_ProductOrderList, + U_ZdyAttachment; + +{$R *.dfm} + + + +procedure TfrmYSCR_Gd.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.CRNO,C.P_CodeName,C.P_Color,C.custaddress '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join BP_InOut C on A.MainId=C.CRNO and C.CRID=A.subID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''ӦտǼ'' and A.YFDefFlag1=1 '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmYSCR_Gd.InitGridHZ(); +begin +end; + +procedure TfrmYSCR_Gd.FormDestroy(Sender: TObject); +begin + frmYSCR_Gd:=nil; +end; + +procedure TfrmYSCR_Gd.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSCR_Gd.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSCR_Gd.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; + str1:string; +begin + if CDS_HZ.IsEmpty then Exit; + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + if Application.MessageBox('ԶɣȷҪִв','ʾ',32+4)<>IDYES then Exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + If fieldbyname('ssel').AsBoolean then + begin + str1:='MAINID:'+trim(CDS_HZ.FieldByName('mainID').AsString); + str1:=str1+' SUBID:'+trim(CDS_HZ.FieldByName('subID').AsString); + 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(trim(self.Caption))); + sql.Add(','+quotedstr(trim('㶫Ӧտɾ'))); + sql.Add(','+quotedstr(trim('ţ'+trim(str1) ))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + SQL.Add('Update YF_Money_KC Set KCBBMoney=(select sum(BBMoney) from YF_Money_CR X where X.CRID=YF_Money_KC.CRID)'); + sql.Add('where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ɾʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmYSCR_Gd.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + VYB.Hidden:=True; + VYB.Visible:=False; + VBB.Caption:=''; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + if Trim(DParameters7)<>'ƥ' then + begin + v2PS.Hidden:=True; + v2PS.Visible:=False; + end else + begin + v2PS.Hidden:=False; + v2PS.Visible:=True; + end; + InitGrid(); + if trim(fmanage)<>'Ȩ' then + begin + TBDel.Visible:=false; + v2Column1.Options.Editing:=false; + end; +end; + +procedure TfrmYSCR_Gd.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSCR_Gd.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSCR_Gd.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSCR_Gd.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSCR_Gd.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YS','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' and YFDefFlag1=1'); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=1; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('YFDefFlag1').Value:=1; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSCR_Gd.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:='㶫ͻ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + // FieldByName('custaddress').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmYSCR_Gd.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR_Gd.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR_Gd.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR_Gd.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտб'); +end; + +procedure TfrmYSCR_Gd.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲɾ!','ʾ',0); + Exit; + end; + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('subID').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('subID').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('Filler').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('Filler').AsString); + post; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmYSCR_Gd.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.v2KPMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSCR_Gd.Button1Click(Sender: TObject); +begin + + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + If fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add('where YFID='+quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString))); + open; + edit; + Fieldbyname('Price').Value:=strtofloatdef(edit1.Text,0); + Fieldbyname('Money').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + Fieldbyname('BBMoney').Value:=format('%.2f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + post; + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmYSCR_Gd.CheckBox1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; + +end; + +end. diff --git a/应收应付/U_YSFP.dfm b/应收应付/U_YSFP.dfm new file mode 100644 index 0000000..2216d9e --- /dev/null +++ b/应收应付/U_YSFP.dfm @@ -0,0 +1,435 @@ +object frmYSFP: TfrmYSFP + Left = 75 + Top = 57 + Width = 1144 + Height = 670 + Caption = #38144#39033#21457#31080#31649#29702 + 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 = 1136 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1136 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 610 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 766 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object YFName: TEdit + Tag = 2 + Left = 493 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 353 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 647 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 814 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1136 + Height = 563 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.Default + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24320#31080#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 115 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v2PayMent: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2PayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2KP: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 62 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2ZFTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSFP.pas b/应收应付/U_YSFP.pas new file mode 100644 index 0000000..2b46b3a --- /dev/null +++ b/应收应付/U_YSFP.pas @@ -0,0 +1,825 @@ +unit U_YSFP; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSFP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2PayMent: TcxGridDBColumn; + v2Note: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + v2ZFTT: TcxGridDBColumn; + Label5: TLabel; + ComTaiTou: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2PSPropertiesEditValueChanged(Sender: TObject); + procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject); + procedure v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSFP: TfrmYSFP; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSFP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''ӦտƱǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYSFP.InitGridHZ(); +begin +end; + +procedure TfrmYSFP.FormDestroy(Sender: TObject); +begin + frmYSFP:=nil; +end; + +procedure TfrmYSFP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSFP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӦտƱ',Tv2,''); + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end;} + Close; +end; +procedure TfrmYSFP.TBDelClick(Sender: TObject); +var + FBBMoney:string; +begin + if CDS_HZ.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+Trim(cds_hz.fieldbyname('YFID').AsString)+''''); + Open; + end; + FBBMoney:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYSFP.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxGrid('ӦտƱ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; + fsj:='select Name=ZdyName,code='''' from KH_Zdy where Type=''OrdDefStr2'' '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2ZFTT,fsj,0,False,''); + if Trim(DParameters1)='޶' then + begin + VOrderNo.Hidden:=True; + VOrderNo.Visible:=False; + end; + if Trim(DParameters2)='' then + begin + VHL.Hidden:=True; + VHL.Visible:=False; + VBZ.Hidden:=True; + VBZ.Visible:=False; + end; + if Trim(DParameters5)<>'Ʊ' then + begin + v2KP.Hidden:=True; + v2KP.Visible:=False; + end else + begin + v2KP.Hidden:=False; + v2KP.Visible:=True; + end; + InitGrid(); +end; + +procedure TfrmYSFP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYSFP.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSFP.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSFP.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYSFP.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.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('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + 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(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտƱǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYSFP.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FKPMoney,FKPNow,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKPMoney:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='1'; + if Trim(FFieldName)<>'KPMoney' then + begin + FKPNow:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + end else + begin + FKPNow:=CDS_HZ.fieldbyname('KPMoney').AsString; + end; + with CDS_HZ do + begin + Edit; + FieldByName('KPMoney').Value:=StrToFloat(FKPNow); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'KPMoney' then + begin + sql.Add(',KPMoney='+FKPNow); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKPMoney+'+'+FKPNow); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Էλ'; + if Trim(DParameters4)='Էλֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSFP.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if Trim(DParameters3)='Ŀֿ' then + MainType:='տ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set YFCode='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + sql.Add(' ,YFName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSFP.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSFP.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set BZType='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSFP.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmYSFP.v2Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('ComTaiTou').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(',ComTaiTou='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrdDefStr2').AsString)+''''); + //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + end; + finally + frmProductOrderNewList.Free; + end; +end; + +procedure TfrmYSFP.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FBBMoney,FKCBB,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(KPMoney,0) KPMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('KPMoney').AsString; + FBBMoney:=CDS_HZ.fieldbyname('KPMoney').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add('Update YF_Money_KC Set KCKPMoney=KCKPMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.v2PSPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.v2BatchNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSFP.v2PayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set PayMent='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSFP.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSFP.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo '); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add('where C.orderNo like :OrderNo'); + sql.Add('and A.CRType=''ӦտƱǼ'''); + Parameters.ParamByName('OrderNo').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YSHZMX.dfm b/应收应付/U_YSHZMX.dfm new file mode 100644 index 0000000..7741af8 --- /dev/null +++ b/应收应付/U_YSHZMX.dfm @@ -0,0 +1,471 @@ +object frmYSHZMX: TfrmYSHZMX + Left = 63 + Top = 110 + Width = 1265 + Height = 618 + Caption = #24212#25910#36134#27454#26126#32454 + 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 = 1257 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1257 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 610 + Top = 13 + Width = 48 + Height = 12 + Caption = #25910#27454#36827#24230 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 494 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrdDefNote3: TComboBox + Tag = 1 + Left = 662 + Top = 9 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 4 + OnChange = MPRTCodeNameChange + Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1257 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + Column = v2KP + end + item + Kind = skSum + Column = cxGridDBColumn3 + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + Column = v2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'YSYBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #24212#25910#21407#24065#20313#39069 + DataBinding.FieldName = 'YSYBYMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 111 + end + object v2Column8: TcxGridDBColumn + Caption = #24050#25910#27454#21407#24065#37329#39069 + DataBinding.FieldName = 'SKYBMoney' + Options.Focusing = False + Width = 105 + end + object v2KP: TcxGridDBColumn + Caption = #36864#31246#37329#39069 + DataBinding.FieldName = 'SKTSBBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object VBB: TcxGridDBColumn + Caption = #29260#20215#27454 + DataBinding.FieldName = 'PJMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v2PS: TcxGridDBColumn + Caption = #24050#25910#27454#26412#24065#37329#39069 + DataBinding.FieldName = 'SKBBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 111 + end + object v2Column7: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'FKFS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #25910#27454#36827#24230 + DataBinding.FieldName = 'OrdDefNote3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '' + '') + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdDefNote4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSHZMX.pas b/应收应付/U_YSHZMX.pas new file mode 100644 index 0000000..83ca211 --- /dev/null +++ b/应收应付/U_YSHZMX.pas @@ -0,0 +1,432 @@ +unit U_YSHZMX; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSHZMX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2KP: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + OrdDefNote3: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSHZMX: TfrmYSHZMX; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSHZMX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSK :begdate,:enddate,1,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYSHZMX.FormDestroy(Sender: TObject); +begin + frmYSHZMX:=nil; +end; + +procedure TfrmYSHZMX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSHZMX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ˿ϸ',Tv2,''); + Close; +end; +procedure TfrmYSHZMX.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ˿ϸ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + InitGrid(); +end; + +procedure TfrmYSHZMX.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSHZMX.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSHZMX.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMX.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMX.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMX.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧ˿б'); +end; + +procedure TfrmYSHZMX.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMX.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMX.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSHZMX.MPRTCodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMX.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSK :begdate,:enddate,2,:orderno '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +end. diff --git a/应收应付/U_YSHZMXDL.dfm b/应收应付/U_YSHZMXDL.dfm new file mode 100644 index 0000000..0df1fee --- /dev/null +++ b/应收应付/U_YSHZMXDL.dfm @@ -0,0 +1,455 @@ +object frmYSHZMXDL: TfrmYSHZMXDL + Left = 15 + Top = 123 + Width = 1265 + Height = 618 + Caption = #24212#25910#36134#27454#26126#32454'('#20195#29702')' + 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 = 1257 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1257 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 610 + Top = 13 + Width = 48 + Height = 12 + Caption = #25910#27454#36827#24230 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 494 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrdDefNote3: TComboBox + Tag = 1 + Left = 662 + Top = 9 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 4 + OnChange = MPRTCodeNameChange + Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1257 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn3 + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + Column = v2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'YSYBMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object v2PS: TcxGridDBColumn + Caption = #24050#25910#27454#37329#39069 + DataBinding.FieldName = 'SKBBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v2Column7: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #24212#25910#24320#31080#20313#39069 + DataBinding.FieldName = 'YSKPMoneyY' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 99 + end + object v2Column8: TcxGridDBColumn + Caption = #24212#25910#21407#24065#20313#39069 + DataBinding.FieldName = 'YSYBMoneyY' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Column6: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'FKFS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #25910#27454#36827#24230 + DataBinding.FieldName = 'OrdDefNote3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '' + '') + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdDefNote4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSHZMXDL.pas b/应收应付/U_YSHZMXDL.pas new file mode 100644 index 0000000..80b9cf5 --- /dev/null +++ b/应收应付/U_YSHZMXDL.pas @@ -0,0 +1,429 @@ +unit U_YSHZMXDL; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSHZMXDL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + OrdDefNote3: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure v2Column8PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSHZMXDL: TfrmYSHZMXDL; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSHZMXDL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSKDL :begdate,:enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYSHZMXDL.FormDestroy(Sender: TObject); +begin + frmYSHZMXDL:=nil; +end; + +procedure TfrmYSHZMXDL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSHZMXDL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ˿ϸDL',Tv2,''); + Close; +end; +procedure TfrmYSHZMXDL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ˿ϸDL',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + InitGrid(); +end; + +procedure TfrmYSHZMXDL.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSHZMXDL.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSHZMXDL.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXDL.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXDL.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXDL.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXDL.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧ˿б'); +end; + +procedure TfrmYSHZMXDL.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXDL.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXDL.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSHZMXDL.MPRTCodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXDL.v2Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + if Trim(mvalue)='' then + mvalue:='0'; + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + sql.Add(' Set YSYBMoneyFZ='+Trim(mvalue)); + sql.Add(',YSYBFlag=1'); + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/应收应付/U_YSHZMXOLJ.dfm b/应收应付/U_YSHZMXOLJ.dfm new file mode 100644 index 0000000..496b2fe --- /dev/null +++ b/应收应付/U_YSHZMXOLJ.dfm @@ -0,0 +1,441 @@ +object frmYSHZMXOLJ: TfrmYSHZMXOLJ + Left = 96 + Top = 109 + Width = 1265 + Height = 618 + Caption = #24212#25910#36134#27454#26126#32454 + 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 = 1257 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1257 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 586 + Top = 13 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label3: TLabel + Left = 291 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 714 + Top = 13 + Width = 48 + Height = 12 + Caption = #21697#21517#27454#24335 + end + object Label5: TLabel + Left = 435 + Top = 13 + Width = 48 + Height = 12 + Caption = #29983#20135#21333#21495 + end + object Label7: TLabel + Left = 1011 + Top = 13 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 869 + Top = 13 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object CustomerNoName: TEdit + Left = 614 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = SCNOChange + end + object OrderNo: TEdit + Tag = 2 + Left = 328 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object PRTCodeName: TEdit + Tag = 2 + Left = 766 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = SCNOChange + end + object SCNO: TEdit + Tag = 2 + Left = 483 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = SCNOChange + end + object PRTColor: TEdit + Tag = 2 + Left = 1039 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = SCNOChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 895 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 7 + OnChange = SCNOChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1257 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = VBB + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v2Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object VBZ: TcxGridDBColumn + Caption = #29983#20135#21333#21495 + DataBinding.FieldName = 'SCNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517#27454#24335 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object VHL: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object VYB: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 95 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VBB: TcxGridDBColumn + Caption = #24212#25910#27454#37329#39069 + DataBinding.FieldName = 'YSBBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object v2PS: TcxGridDBColumn + Caption = #24050#25910#27454#37329#39069 + DataBinding.FieldName = 'SKBBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #26410#25910#20313#39069 + DataBinding.FieldName = 'YSBBYMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 111 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 83 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSHZMXOLJ.pas b/应收应付/U_YSHZMXOLJ.pas new file mode 100644 index 0000000..799abe7 --- /dev/null +++ b/应收应付/U_YSHZMXOLJ.pas @@ -0,0 +1,426 @@ +unit U_YSHZMXOLJ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSHZMXOLJ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + CustomerNoName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VBB: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + Label5: TLabel; + PRTCodeName: TEdit; + SCNO: TEdit; + Label7: TLabel; + Label8: TLabel; + PRTColor: TEdit; + PRTSpec: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure SCNOChange(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSHZMXOLJ: TfrmYSHZMXOLJ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSHZMXOLJ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSK :begdate,:enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYSHZMXOLJ.FormDestroy(Sender: TObject); +begin + frmYSHZMXOLJ:=nil; +end; + +procedure TfrmYSHZMXOLJ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSHZMXOLJ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ˿ϸ',Tv2,''); + Close; +end; +procedure TfrmYSHZMXOLJ.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ˿ϸ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + InitGrid(); +end; + +procedure TfrmYSHZMXOLJ.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSHZMXOLJ.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(CustomerNoName.Text)<>'' then + begin + fsj:=' CustomerNoName like '''+'%'+Trim(CustomerNoName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(CustomerNoName.Text)+'%'+''''; + end; + + end else + begin + if Trim(CustomerNoName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (CustomerNoName like '''+'%'+Trim(CustomerNoName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(CustomerNoName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYSHZMXOLJ.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXOLJ.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXOLJ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXOLJ.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXOLJ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧ˿б'); +end; + +procedure TfrmYSHZMXOLJ.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXOLJ.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXOLJ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSHZMXOLJ.CustomerNoNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXOLJ.SCNOChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +end. diff --git a/应收应付/U_YSHZMXView.dfm b/应收应付/U_YSHZMXView.dfm new file mode 100644 index 0000000..8cd8deb --- /dev/null +++ b/应收应付/U_YSHZMXView.dfm @@ -0,0 +1,468 @@ +object frmYSHZMXView: TfrmYSHZMXView + Left = 35 + Top = 87 + Width = 1265 + Height = 618 + Caption = #24212#25910#36134#27454#26597#35810 + 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 = 1257 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1257 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 302 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 466 + Top = 13 + Width = 48 + Height = 12 + Caption = #25910#27454#36827#24230 + end + object OrderNo: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object OrdDefNote3: TComboBox + Tag = 1 + Left = 518 + Top = 9 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 3 + OnChange = MPRTCodeNameChange + Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1257 + Height = 514 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2PS + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + Column = v2Column8 + end + item + Kind = skSum + Column = v2Column9 + end + item + Kind = skSum + Column = v2Column10 + end + item + Kind = skSum + Column = v2Column11 + end + item + Kind = skSum + Column = v2Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv2StylesGetContentStyle + Styles.Header = DataLink_YSYF.FonePurple + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VBZ: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object VHL: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object v2Column11: TcxGridDBColumn + Caption = #24212#25910#21407#24065#37329#39069 + DataBinding.FieldName = 'YSYBMoney' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Column8: TcxGridDBColumn + Caption = #24212#25910#26412#24065#37329#39069 + DataBinding.FieldName = 'YSBBMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v2Column10: TcxGridDBColumn + Caption = #24050#25910#21407#24065#37329#39069 + DataBinding.FieldName = 'SKYBMoney' + OnCustomDrawCell = v2Column10CustomDrawCell + Options.Focusing = False + Width = 86 + end + object v2PS: TcxGridDBColumn + Caption = #24050#25910#27454#26412#24065#37329#39069 + DataBinding.FieldName = 'SKBBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 106 + end + object v2Column12: TcxGridDBColumn + Caption = #24212#25910#21407#24065#20313#39069 + DataBinding.FieldName = 'YSYBYMoney' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v2Column9: TcxGridDBColumn + Caption = #24212#25910#26412#24065#20313#39069 + DataBinding.FieldName = 'YSBBYMoney' + Options.Focusing = False + Width = 91 + end + object v2Column7: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'KPMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'FKFS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #25910#27454#36827#24230 + DataBinding.FieldName = 'OrdDefNote3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '' + '') + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdDefNote4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSHZMXView.pas b/应收应付/U_YSHZMXView.pas new file mode 100644 index 0000000..ca40a5e --- /dev/null +++ b/应收应付/U_YSHZMXView.pas @@ -0,0 +1,522 @@ +unit U_YSHZMXView; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYSHZMXView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column1: TcxGridDBColumn; + VHL: TcxGridDBColumn; + VBZ: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2PS: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label4: TLabel; + OrdDefNote3: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure v2Column10CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure Tv2StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FDate:TDateTime; + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSHZMXView: TfrmYSHZMXView; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSHZMXView.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSK_View :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + if Trim(DParameters1)<>'' then + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+'''' + else + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYSHZMXView.FormDestroy(Sender: TObject); +begin + frmYSHZMXView:=nil; +end; + +procedure TfrmYSHZMXView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSHZMXView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ˿ϸѯ',Tv2,''); + Close; +end; +procedure TfrmYSHZMXView.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ˿ϸѯ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-50; + FDate:=SGetServerDate(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmYSHZMXView.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSHZMXView.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSHZMXView.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXView.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXView.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; +begin + {if Trim(CDS_HZ.fieldbyname('YFType').AsString)<>'' then + begin + Application.MessageBox('Զݲܸ!','ʾ',0); + Exit; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + Open; + end; + FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + + FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney)='' then FMoney:='0'; + + FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv)='' then FHuiLv:='0'; + + {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); + if Trim(FBBMoney)='' then FBBMoney:='0'; } + + if Trim(FFieldName)<>'Money' then + begin + if Trim(FFieldName)<>'HuiLv' then + begin + FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + + end else + begin + FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + end; + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + if Trim(FFieldName)<>'Money' then + begin + sql.Add(',Money='+FMoney); + end; + + sql.Add(',BBMoney='+FBBMoney); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + + SQL.Add('Update YF_Money_KC Set KCBBMoney=KCBBMoney-'+FKCBB+'+'+FBBMoney); + sql.Add(' where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXView.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYSHZMXView.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧ˿б'); +end; + +procedure TfrmYSHZMXView.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXView.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(' where MainId='''+Trim(CDS_HZ.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmYSHZMXView.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSHZMXView.MPRTCodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSHZMXView.v2Column10CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10,Id20,i:Integer; + +begin + {Id:=TV2.GetColumnByFieldName('SKYBMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV2.GetColumnByFieldName('Qty').Index; + Id20:=TV2.GetColumnByFieldName('CRTime').Index; + if Id<0 then Exit; + if Id10<0 then Exit; + if AViewInfo.GridRecord.Values[Id]=0 then + begin + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + i:=FDate-AViewInfo.GridRecord.Values[Id20]; + if (i<30) and (i>0) then + begin + + end else + if (i>=30) and (i<60) then + ACanvas.Brush.Color:=clYellow + else if (i>=60) and (i<90) then + ACanvas.Brush.Color:=clRed + else + ACanvas.Brush.Color:=clGreen; + + end; + + end; } +end; + +procedure TfrmYSHZMXView.Tv2StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + Id,Id10,Id20,Id30,i:Integer; + +begin + try + if Tv2.GroupedItemCount=0 then + begin + Id:=TV2.GetColumnByFieldName('SKYBMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV2.GetColumnByFieldName('Qty').Index; + Id20:=TV2.GetColumnByFieldName('CRTime').Index; + Id30:=TV2.GetColumnByFieldName('SKBBMoney').Index; + if (ARecord.Values[Id]=0) and (ARecord.Values[Id30]=0) then + begin + if ARecord.Values[Id10]>0 then + begin + i:=FDate-ARecord.Values[Id20]; + if (i<30) and (i>0) then + begin + + end else + if (i>=30) and (i<60) then + AStyle:=DataLink_YSYF.QHuangSe + else if (i>=60) and (i<90) then + + AStyle:=DataLink_YSYF.Red + else + + AStyle:=DataLink_YSYF.Green; + + end; + + end; + end else + begin + + end; + except + end; +end; + +procedure TfrmYSHZMXView.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + fsj:=''; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_OrderNo_YSK_View :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value:='2000-01-01'; + Parameters.ParamByName('Enddate').Value:='2050-10-10'; + if Trim(DParameters1)<>'' then + Parameters.ParamByName('WSql').Value:=fsj+' and A.Filler='''+Trim(DName)+'''' + else + Parameters.ParamByName('WSql').Value:=fsj+''; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_YSMXlist.dfm b/应收应付/U_YSMXlist.dfm new file mode 100644 index 0000000..5b6eeca --- /dev/null +++ b/应收应付/U_YSMXlist.dfm @@ -0,0 +1,506 @@ +object frmYSMXlist: TfrmYSMXlist + Left = 137 + Top = 147 + Width = 1093 + Height = 621 + Caption = #24212#20184#27454#26126#32454 + 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 = 1077 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1077 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 702 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 514 + Top = 13 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 598 + Top = 77 + Width = 48 + Height = 12 + Caption = #25910#27454#36827#24230 + end + object Label5: TLabel + Left = 324 + Top = 14 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 730 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 562 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrdDefNote3: TComboBox + Tag = 1 + Left = 662 + Top = 65 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 4 + OnChange = MPRTCodeNameChange + Items.Strings = ( + #24050#20132#21333 + #24050#25215#20817 + #24050#25276#27719 + #24050#25910#27454 + #25276#27719#20013 + #20511#27454 + '' + '') + end + object factoryName: TEdit + Tag = 2 + Left = 364 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1077 + Height = 444 + Align = alTop + TabOrder = 2 + 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 + Column = cxQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2BBMoney + end + item + Kind = skSum + Column = VMoney + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2ps + end + item + Kind = skSum + Column = v2DerateMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object v2factoryName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxCRTime: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object VOrderNo: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v2MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2MRPTspec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTspec' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MPRTCOLor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2YFName: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'YFName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2ps: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object cxQtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 66 + end + object v2Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object VMoney: TcxGridDBColumn + Caption = #24212#25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object v2BBMoney: TcxGridDBColumn + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'BBMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxMoneyYe: TcxGridDBColumn + Caption = #20313#39069 + DataBinding.FieldName = 'MoneyYe' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.FonePurple + Width = 99 + end + object v2note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#22320#22336 + DataBinding.FieldName = 'custaddress' + Options.Editing = False + Width = 80 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805#21495#30721 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Width = 86 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panetime: TPanel + Left = 318 + Top = 164 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 309 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end + object RMGridReport1: 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 = 432 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 360 + Top = 260 + 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 = 652 + Top = 244 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 484 + Top = 4 + end +end diff --git a/应收应付/U_YSMXlist.pas b/应收应付/U_YSMXlist.pas new file mode 100644 index 0000000..c4dee54 --- /dev/null +++ b/应收应付/U_YSMXlist.pas @@ -0,0 +1,272 @@ +unit U_YSMXlist; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls; + +type + TfrmYSMXlist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxCRTime: TcxGridDBColumn; + cxMoneyYe: TcxGridDBColumn; + cxQty: TcxGridDBColumn; + cxQtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Price: TcxGridDBColumn; + VMoney: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + v2BBMoney: TcxGridDBColumn; + v2MPRTCodeName: TcxGridDBColumn; + Label4: TLabel; + OrdDefNote3: TComboBox; + v2factoryName: TcxGridDBColumn; + v2MRPTspec: TcxGridDBColumn; + v2YFName: TcxGridDBColumn; + Label5: TLabel; + factoryName: TEdit; + v2Column1: TcxGridDBColumn; + v2ps: TcxGridDBColumn; + ToolButton3: TToolButton; + RMGridReport1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + v2note: TcxGridDBColumn; + RMXLSExport1: TRMXLSExport; + v2DerateMoney: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + Panetime: TPanel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + fType:string; + + end; + +var + frmYSMXlist: TfrmYSMXlist; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSMXlist.InitGrid(); +begin + IF trim(factoryName.Text)='' then + begin + application.MessageBox('ͻԱ߲ѯٶȣ','ʾϢ',MB_ICONERROR); + exit; + end; + screen.Cursor:=crsqlwait; + Panetime.Visible:=true; + Panetime.Left:=(Width-Panetime.Width) div 2; + Panetime.top:=(Height-Panetime.Height-200) div 2; + application.ProcessMessages; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' exec P_Qry_Ysk_mx :begdate,:enddate,:Type,:factoryName'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('Type').Value:=Trim(fType); + Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; +end; + + +procedure TfrmYSMXlist.FormDestroy(Sender: TObject); +begin + frmYSMXlist:=nil; +end; + +procedure TfrmYSMXlist.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSMXlist.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + Close; +end; +procedure TfrmYSMXlist.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; +// InitGrid(); + { if fType='1' then + begin + VOrderNo.Caption:='۵'; + Label3.Caption:='۵'; + end; } +end; + +procedure TfrmYSMXlist.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmYSMXlist.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYSMXlist.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,self.Caption); +end; + +procedure TfrmYSMXlist.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYSMXlist.MPRTCodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSMXlist.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=AlClient; +end; + +procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject); +var + filepath:string; + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date); + if CDS_HZ.IsEmpty then exit; + + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + IF fType='1' THEN + sql.Add(' exec P_Qry_Ysk_mx_dz_Gd ') + else + sql.Add(' exec P_Qry_Ysk_mx_dz '); + sql.Add(' @begdate='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''' '); + sql.Add(',@Type='''+Trim(fType)+''' '); + sql.Add(',@factoryName='''+Trim(CDS_HZ.fieldbyname('factoryName').AsString)+''' '); + Open; + end; + + try + IF fType='2' THEN + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧտ˵.rmf' + ELSE + IF fType='1' THEN + filepath:=ExtractFilePath(Application.ExeName) + 'report\㶫Ӧտ˵.rmf' + ELSE + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧտ˵.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date); + RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date); + RMVariables['zdr'] :=trim(DName); + RmVariables['begDate'] :=FormatDateTime('yymmdd',begDate.Date)+'-'+FormatDateTime('yymmdd',enddate.Date); + ADOQueryPrint.First; + RmVariables['QCNum'] :=ADOQueryPrint.fieldbyname('MoneyYe').AsFloat - ADOQueryPrint.fieldbyname('Money').AsFloat + ADOQueryPrint.fieldbyname('BBMoney').AsFloat + ADOQueryPrint.fieldbyname('DerateMoney').AsFloat ; + ADOQueryPrint.Last; + RmVariables['endNum'] :=ADOQueryPrint.fieldbyname('MoneyYe').AsString; + RMGridReport1.LoadFromFile(filepath); + // RMGridReport1.PrintReport; + RMGridReport1.ShowReport; + + finally + + end; + +end; + + +end. diff --git a/应收应付/U_YSSKList.dfm b/应收应付/U_YSSKList.dfm new file mode 100644 index 0000000..71ce793 --- /dev/null +++ b/应收应付/U_YSSKList.dfm @@ -0,0 +1,383 @@ +object frmYSSKList: TfrmYSSKList + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #24212#25910#27454#31649#29702 + 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 = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#21333#20301 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label1: TLabel + Left = 926 + Top = 13 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object Label4: TLabel + Left = 482 + Top = 13 + Width = 24 + Height = 12 + Caption = #22320#22336 + end + object Label5: TLabel + Left = 626 + Top = 13 + Width = 24 + Height = 12 + Caption = #22320#21306 + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object ComTaiTou: TEdit + Tag = 2 + Left = 974 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object FHAddress: TEdit + Tag = 2 + Left = 510 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object FHdq: TEdit + Tag = 2 + Left = 662 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1366 + Height = 646 + Align = alClient + TabOrder = 2 + 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 + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2JMmoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object v2GSTT: TcxGridDBColumn + Caption = #25903#20184#21488#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 142 + end + object v2FHAddress: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'FHAddress' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 135 + end + object v2Column11: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'FHdq' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #19978#26399#27424#27454'('#21407#24065')' + DataBinding.FieldName = 'SQMoneyYB' + Width = 99 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#27424#27454 + DataBinding.FieldName = 'SQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 98 + end + object v2Column7: TcxGridDBColumn + Caption = #26412#26399#24212#25910#27454'('#21407#24065')' + DataBinding.FieldName = 'YFMoneyYB' + Width = 111 + end + object v2Column1: TcxGridDBColumn + Caption = #26412#26399#24212#25910#27454 + DataBinding.FieldName = 'YFMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 95 + end + object v2Column8: TcxGridDBColumn + Caption = #26412#26399#25910#27454'('#21407#24065')' + DataBinding.FieldName = 'FKMoneyYB' + Width = 96 + end + object v2Column2: TcxGridDBColumn + Caption = #26412#26399#25910#27454 + DataBinding.FieldName = 'FKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + end + object v2JMmoney: TcxGridDBColumn + Caption = #26412#26399#20943#20813 + DataBinding.FieldName = 'JMmoney' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v2Column9: TcxGridDBColumn + Caption = #26412#26399#27424#27454'('#21407#24065')' + DataBinding.FieldName = 'BQMoneyYB' + Width = 97 + end + object v2Column3: TcxGridDBColumn + Caption = #26412#26399#27424#27454 + DataBinding.FieldName = 'BQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSSKList.pas b/应收应付/U_YSSKList.pas new file mode 100644 index 0000000..b36a4e3 --- /dev/null +++ b/应收应付/U_YSSKList.pas @@ -0,0 +1,193 @@ +unit U_YSSKList; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYSSKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2GSTT: TcxGridDBColumn; + Label1: TLabel; + ComTaiTou: TEdit; + v2JMmoney: TcxGridDBColumn; + v2FHAddress: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + Label4: TLabel; + FHAddress: TEdit; + Label5: TLabel; + FHdq: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fDParameters1:string; + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSSKList: TfrmYSSKList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmYSSKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + if Trim(DParameters10)='' then + sql.Add(' exec P_YSSK_List :begdate,:Enddate') + else + SQL.Add(' exec '+Trim(DParameters10)+' :begdate,:Enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + ToolButton2.Click; +end; + + +procedure TfrmYSSKList.FormDestroy(Sender: TObject); +begin + frmYSSKList:=nil; +end; + +procedure TfrmYSSKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSSKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧտͳ',Tv2,''); + Close; +end; +procedure TfrmYSSKList.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧտͳ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + if Trim(DParameters5)='Ʊ' then + begin + // v2BQKP.Hidden:=False; + // v2BQKP.Visible:=True; + // v2WKP.Hidden:=False; + // v2WKP.Visible:=True; + end else + begin + // v2BQKP.Hidden:=True; + // v2BQKP.Visible:=False; + // v2WKP.Hidden:=True; + // v2WKP.Visible:=False; + end; + if Trim(DParameters9)='̨֧ͷ' then + begin + v2GSTT.Hidden:=False; + v2GSTT.Visible:=True; + Label1.Visible:=True; + ComTaiTou.Visible:=True; + end else + begin + v2GSTT.Hidden:=True; + v2GSTT.Visible:=False; + Label1.Visible:=False; + ComTaiTou.Visible:=False; + end; + + InitGrid(); +end; + +procedure TfrmYSSKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYSSKList.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + + SDofilter(ADOQueryMain,Trim(SGetFilters(Panel1,1,2))); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYSSKList.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSSKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'Ӧտͳб'); +end; + +end. diff --git a/应收应付/U_YSZDList_MX.dfm b/应收应付/U_YSZDList_MX.dfm new file mode 100644 index 0000000..18a81a3 --- /dev/null +++ b/应收应付/U_YSZDList_MX.dfm @@ -0,0 +1,318 @@ +object frmYSZDList_MX: TfrmYSZDList_MX + Left = 155 + Top = 175 + Width = 1038 + Height = 618 + Caption = #24212#20184#27454#23545#36134#20449#24687 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 426 + Top = 13 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label1: TLabel + Left = 470 + Top = 49 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object FactoryName: TEdit + Left = 458 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Format = 'yyyy-MM-dd' + Time = 41256.918237847230000000 + TabOrder = 2 + end + object ComTaiTou: TEdit + Tag = 2 + Left = 522 + Top = 49 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1022 + Height = 404 + Align = alTop + TabOrder = 2 + 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 + Column = v2Column4 + end + item + Kind = skSum + Column = v2ps + end + item + Kind = skSum + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.FonePurple + object v2Column1: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PrtCodeName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2PrtColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PrtColor' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2ps: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column7: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column8: TcxGridDBColumn + Caption = #24212#25910#27454#37329#39069 + DataBinding.FieldName = 'ysk' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column9: TcxGridDBColumn + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'sk' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #32047#35745#27424#27454 + DataBinding.FieldName = 'yskye' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Width = 200 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 264 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/应收应付/U_YSZDList_MX.pas b/应收应付/U_YSZDList_MX.pas new file mode 100644 index 0000000..ac2cae4 --- /dev/null +++ b/应收应付/U_YSZDList_MX.pas @@ -0,0 +1,211 @@ +unit U_YSZDList_MX; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYSZDList_MX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label1: TLabel; + ComTaiTou: TEdit; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2PrtColor: TcxGridDBColumn; + v2ps: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYSZDList_MX: TfrmYSZDList_MX; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmYSZDList_MX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('exec P_Get_zk_MX '); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@FactoryName='+quotedstr(trim(FactoryName.Text))); + sql.Add(',@sfFlag='+quotedstr(trim('1'))); + sql.Add(',@isgd='+quotedstr(trim('0'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYSZDList_MX.FormDestroy(Sender: TObject); +begin + frmYSZDList_MX:=nil; +end; + +procedure TfrmYSZDList_MX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYSZDList_MX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,''); + Close; +end; +procedure TfrmYSZDList_MX.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; +{ if Trim(DParameters5)='Ʊ' then + begin + v2BQKP.Hidden:=False; + v2BQKP.Visible:=True; + v2WKP.Hidden:=False; + v2WKP.Visible:=True; + end else + begin + v2BQKP.Hidden:=True; + v2BQKP.Visible:=False; + v2WKP.Hidden:=True; + v2WKP.Visible:=False; + end; + if Trim(DParameters9)='̨֧ͷ' then + begin + v2GSTT.Hidden:=False; + v2GSTT.Visible:=True; + Label1.Visible:=True; + ComTaiTou.Visible:=True; + end else + begin + v2GSTT.Hidden:=True; + v2GSTT.Visible:=False; + Label1.Visible:=False; + ComTaiTou.Visible:=False; + end; + } + + InitGrid(); +end; + +procedure TfrmYSZDList_MX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYSZDList_MX.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + fsj:=''; + if Trim(FactoryName.Text)<>'' then + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYSZDList_MX.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYSZDList_MX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧͳб'); +end; + +procedure TfrmYSZDList_MX.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=AlClient; +end; + +end. diff --git a/应收应付/U_ZdyAttachCP.dfm b/应收应付/U_ZdyAttachCP.dfm new file mode 100644 index 0000000..a48d66c --- /dev/null +++ b/应收应付/U_ZdyAttachCP.dfm @@ -0,0 +1,350 @@ +object frmZdyAttachCP: TfrmZdyAttachCP + Left = 108 + Top = 101 + Width = 1038 + Height = 618 + Caption = #20135#21697#36164#26009#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2DEFNote1: TcxGridDBColumn + Caption = #21517#31216 + DataBinding.FieldName = 'DEFNote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v2Column8: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'DEFstr4' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v2Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'DEFstr6' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.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 diff --git a/应收应付/U_ZdyAttachCP.pas b/应收应付/U_ZdyAttachCP.pas new file mode 100644 index 0000000..924dcdf --- /dev/null +++ b/应收应付/U_ZdyAttachCP.pas @@ -0,0 +1,202 @@ +unit U_ZdyAttachCP; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachCP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2DEFNote1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachCP: TfrmZdyAttachCP; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachCP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''CP'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachCP.FormDestroy(Sender: TObject); +begin + frmZdyAttachCP:=nil; +end; + +procedure TfrmZdyAttachCP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachCP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachCP.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; } +end; + +procedure TfrmZdyAttachCP.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachCP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCP.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachCP.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachCP.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachCP.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application); + with frmZdyAttInputCP do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputCP.Free; + end; } +end; + +procedure TfrmZdyAttachCP.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/应收应付/U_ZdyAttachGYS.dfm b/应收应付/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..29d055c --- /dev/null +++ b/应收应付/U_ZdyAttachGYS.dfm @@ -0,0 +1,330 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 192 + Top = 103 + Width = 1038 + Height = 618 + Caption = #20379#24212#21830#36164#26009#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label2: TLabel + Left = 395 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 267 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 424 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #21152#24037#21378) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + 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 = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.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 diff --git a/应收应付/U_ZdyAttachGYS.pas b/应收应付/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..79490f2 --- /dev/null +++ b/应收应付/U_ZdyAttachGYS.pas @@ -0,0 +1,214 @@ +unit U_ZdyAttachGYS; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachGYS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr5: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYS:=nil; +end; + +procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2); + Close; +end; +procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete;} +end; + +procedure TfrmZdyAttachGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2); + InitGrid(); + +end; + +procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/应收应付/U_ZdyAttachment.dfm b/应收应付/U_ZdyAttachment.dfm new file mode 100644 index 0000000..52ac379 --- /dev/null +++ b/应收应付/U_ZdyAttachment.dfm @@ -0,0 +1,392 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 113 + Top = 139 + Width = 1038 + Height = 618 + Caption = #23458#25143#36164#26009#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YSYF.ThreeImgList + Flat = True + Images = DataLink_YSYF.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 106 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 190 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label2: TLabel + Left = 350 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label4: TLabel + Left = 502 + Top = 13 + Width = 24 + Height = 12 + Caption = #22320#21306 + end + object ZdyName: TEdit + Tag = 2 + Left = 238 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TEdit + Tag = 2 + Left = 388 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyNameChange + end + object DEFStr7: TEdit + Tag = 2 + Left = 532 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = ZdyNameChange + end + object CheckBox1: TCheckBox + Left = 664 + Top = 10 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 + OptionsView.Indicator = True + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.handBlack + object v2Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 127 + end + object v2Column12: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column8: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'DEFNote2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.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 diff --git a/应收应付/U_ZdyAttachment.pas b/应收应付/U_ZdyAttachment.pas new file mode 100644 index 0000000..fd3830b --- /dev/null +++ b/应收应付/U_ZdyAttachment.pas @@ -0,0 +1,235 @@ +unit U_ZdyAttachment; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + v2Column10: TcxGridDBColumn; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TEdit; + v2Column11: TcxGridDBColumn; + ToolButton5: TToolButton; + v2Column12: TcxGridDBColumn; + DEFStr7: TEdit; + Label4: TLabel; + CheckBox1: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachment.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); + // sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); +begin + frmZdyAttachment:=nil; +end; + +procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachment.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; } +end; + +procedure TfrmZdyAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachment.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInput.Free; + end; } +end; + +procedure TfrmZdyAttachment.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmZdyAttachment.ToolButton5Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmZdyAttachment.CheckBox1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +end. + + diff --git a/应收应付/U_frmContractListNX.dfm b/应收应付/U_frmContractListNX.dfm new file mode 100644 index 0000000..c5cddfe --- /dev/null +++ b/应收应付/U_frmContractListNX.dfm @@ -0,0 +1,536 @@ +object frmContractListNX: TfrmContractListNX + Left = 286 + Top = 171 + Width = 1033 + Height = 543 + Caption = #20869#38144#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 = 1025 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1025 + Height = 67 + 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 = 219 + Top = 39 + 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 Label5: TLabel + Left = 381 + Top = 15 + Width = 53 + 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 Label7: TLabel + Left = 567 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 381 + Top = 39 + Width = 52 + Height = 12 + Caption = #20013#25991#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 = 208 + 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 Label10: TLabel + Left = 567 + Top = 15 + Width = 26 + 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 Label12: TLabel + Left = 720 + Top = 39 + 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 = 720 + Top = 15 + 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 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 = 76 + Top = 35 + 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 = 250 + Top = 35 + Width = 87 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object ConPerson1: TEdit + Tag = 2 + Left = 438 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 596 + Top = 35 + Width = 76 + Height = 20 + Enabled = False + TabOrder = 4 + OnChange = ConNoChange + end + object PrtCodeName: TEdit + Tag = 2 + Left = 438 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 250 + Top = 11 + Width = 87 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + object prtspec: TEdit + Tag = 2 + Left = 596 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = ConNoChange + end + object prtkz: TEdit + Tag = 2 + Left = 749 + Top = 35 + Width = 74 + Height = 20 + TabOrder = 8 + OnChange = ConNoChange + end + object prtmf: TEdit + Tag = 2 + Left = 749 + Top = 11 + Width = 74 + Height = 20 + TabOrder = 9 + OnChange = ConNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1025 + Height = 373 + Align = alTop + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1SYRName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1ConPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ConPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + 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_YSYF.Default + Width = 68 + end + object v1DlyDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DlyDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 82 + end + object v1prtspec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'prtspec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 78 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1prtmf: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'prtmf' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1prtkz: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'prtkz' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 144 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_frmContractListNX.pas b/应收应付/U_frmContractListNX.pas new file mode 100644 index 0000000..cea1a4f --- /dev/null +++ b/应收应付/U_frmContractListNX.pas @@ -0,0 +1,389 @@ +unit U_frmContractListNX; + +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; + +type + TfrmContractListNX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + v1OrdDate: TcxGridDBColumn; + v1DlyDate: TcxGridDBColumn; + v1ConPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1prtspec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1prtmf: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label5: TLabel; + ConPerson1: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + PrtCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Note: TcxGridDBColumn; + v1prtkz: TcxGridDBColumn; + v1SYRName: TcxGridDBColumn; + Label10: TLabel; + prtspec: TEdit; + Label12: TLabel; + prtkz: TEdit; + Label13: TLabel; + prtmf: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1PRTColor: TcxGridDBColumn; + v1Ssel: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DlyDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractListNX: TfrmContractListNX; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmContractListNX.FormDestroy(Sender: TObject); +begin + frmContractListNX:=nil; +end; + +procedure TfrmContractListNX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractListNX.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractListNX.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractListNX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('select A.*,B.* from JYOrderCon_Main A '); + SQL.Add('inner join JYOrderCon_Sub B on B.Mainid=A.Mainid '); + SQL.Add('where OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListNX.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListNX.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.DelData():Boolean; +begin +end; + +procedure TfrmContractListNX.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + + +procedure TfrmContractListNX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractListNX.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmContractListNX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractListNX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmContractListNX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractListNX.v1DlyDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmContractListNX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +end. diff --git a/应收应付/U_frmContractListZS.dfm b/应收应付/U_frmContractListZS.dfm new file mode 100644 index 0000000..cd68f22 --- /dev/null +++ b/应收应付/U_frmContractListZS.dfm @@ -0,0 +1,660 @@ +object frmContractListZS: TfrmContractListZS + Left = 153 + Top = 101 + Width = 1144 + Height = 564 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1136 + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1136 + Height = 67 + 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 = #35746#21333#21495 + 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 = 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 441 + Top = 15 + Width = 53 + 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 Label6: TLabel + Left = 588 + Top = 39 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 741 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 588 + Top = 15 + Width = 52 + Height = 12 + Caption = #20013#25991#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 = #21512#21516#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 = 741 + Top = 15 + Width = 26 + 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 = 441 + Top = 39 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 873 + Top = 39 + 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 = 873 + Top = 15 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = OrderNoMChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 495 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 641 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 770 + Top = 35 + Width = 76 + Height = 20 + Enabled = False + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 641 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + OnChange = OrderNoMChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 770 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 10 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 11 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 902 + Top = 35 + Width = 67 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 12 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 902 + Top = 11 + Width = 67 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 13 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1133 + Height = 397 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_YSYF.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 60 + 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_YSYF.Default + Width = 68 + 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_YSYF.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'OrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 90 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YSYF.Default + Width = 96 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 260 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/U_frmContractListZS.pas b/应收应付/U_frmContractListZS.pas new file mode 100644 index 0000000..81a8ef7 --- /dev/null +++ b/应收应付/U_frmContractListZS.pas @@ -0,0 +1,445 @@ +unit U_frmContractListZS; + +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; + +type + TfrmContractListZS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + CustomerNoName: TEdit; + JGFactoryName: TEdit; + OrdPerson1: TEdit; + MPRTCF: TEdit; + PRTColor: TEdit; + MPRTCodeName: TEdit; + ConNo: TEdit; + MPRTSpec: TEdit; + OrdDefStr1: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + 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; + 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 TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DlyDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure OrderNoMChange(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractListZS: TfrmContractListZS; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmContractListZS.FormDestroy(Sender: TObject); +begin + frmContractListZS:=nil; +end; + +procedure TfrmContractListZS.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractListZS.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractListZS.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractListZS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListZS.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListZS.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmContractListZS.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 TfrmContractListZS.DelData():Boolean; +begin +end; + +procedure TfrmContractListZS.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + + +procedure TfrmContractListZS.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractListZS.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmContractListZS.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractListZS.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmContractListZS.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractListZS.v1DlyDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractListZS.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 TfrmContractListZS.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmContractListZS.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmContractListZS.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +procedure TfrmContractListZS.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 TfrmContractListZS.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+fsj+''''; + end; + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/应收应付/U_testdll.dfm b/应收应付/U_testdll.dfm new file mode 100644 index 0000000..5cee148 --- /dev/null +++ b/应收应付/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 153 + Top = 124 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 775 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/应收应付/U_testdll.pas b/应收应付/U_testdll.pas new file mode 100644 index 0000000..d5ea543 --- /dev/null +++ b/应收应付/U_testdll.pas @@ -0,0 +1,105 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('YSYF.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('sa'), + PChar('dsa'), + PChar('bsa'), + PChar('tsa'), + PChar('d1sa'), + PChar('d2sa'), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/应收应付/YSYF.cfg b/应收应付/YSYF.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/应收应付/YSYF.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof new file mode 100644 index 0000000..236737d --- /dev/null +++ b/应收应付/YSYF.dof @@ -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= +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=E:\\Ŀ\Խ\ӦӦ\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 diff --git a/应收应付/YSYF.dpr b/应收应付/YSYF.dpr new file mode 100644 index 0000000..db849c9 --- /dev/null +++ b/应收应付/YSYF.dpr @@ -0,0 +1,74 @@ +library YSYF; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, + 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_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + U_ProductOrderCost in 'U_ProductOrderCost.pas' {frmProductOrderCost}, + U_YSSKList in 'U_YSSKList.pas' {frmYSSKList}, + U_SKCROLJ in 'U_SKCROLJ.pas' {frmSKCROLJ}, + U_YSCROL in 'U_YSCROL.pas' {frmYSCROL}, + U_FKCRLZ in 'U_FKCRLZ.pas' {frmFKCRLZ}, + U_YSFP in 'U_YSFP.pas' {frmYSFP}, + U_ProductOrderList in 'U_ProductOrderList.pas' {frmProductOrderList}, + U_YSZDList_MX in 'U_YSZDList_MX.pas' {frmYSZDList_MX}, + U_PbProductList in 'U_PbProductList.pas' {frmPbProductList}, + U_ProductOrderListOLJ in 'U_ProductOrderListOLJ.pas' {frmProductOrderListOLJ}, + U_YSCRJZC in 'U_YSCRJZC.pas' {frmYSCRJZC}, + U_SKCRLZ in 'U_SKCRLZ.pas' {frmSKCRLZ}, + U_YSHZMXView in 'U_YSHZMXView.pas' {frmYSHZMXView}, + U_YFCRLZView in 'U_YFCRLZView.pas' {frmYFCRLZView}, + U_YFCRLZQty in 'U_YFCRLZQty.pas' {frmYFCRLZQty}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_YSMXlist in 'U_YSMXlist.pas' {frmYSMXlist}, + U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_BpGdCklist in 'U_BpGdCklist.pas' {frmBpGdCklist}, + U_SXCKNewList in 'U_SXCKNewList.pas' {frmSXCKNewList}, + U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}; + +// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', + // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, + // U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField}, + // U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + //U_FormPas in '..\CommonPas\formPas\U_FormPas.pas', + //U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas'; + +//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas'; + +{$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. + diff --git a/应收应付/YSYF.rar b/应收应付/YSYF.rar new file mode 100644 index 0000000..5e4bd05 Binary files /dev/null and b/应收应付/YSYF.rar differ diff --git a/应收应付/YSYF.res b/应收应付/YSYF.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/应收应付/YSYF.res differ diff --git a/应收应付/YSYF.zip b/应收应付/YSYF.zip new file mode 100644 index 0000000..886e80e Binary files /dev/null and b/应收应付/YSYF.zip differ diff --git a/应收应付/testDll.cfg b/应收应付/testDll.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/应收应付/testDll.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/应收应付/testDll.dof b/应收应付/testDll.dof new file mode 100644 index 0000000..7819019 --- /dev/null +++ b/应收应付/testDll.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +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= diff --git a/应收应付/testDll.dpr b/应收应付/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/应收应付/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/应收应付/testDll.res b/应收应付/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/应收应付/testDll.res differ diff --git a/应收应付/样品仓库/CPCK.cfg b/应收应付/样品仓库/CPCK.cfg new file mode 100644 index 0000000..d272be9 --- /dev/null +++ b/应收应付/样品仓库/CPCK.cfg @@ -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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\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 diff --git a/应收应付/样品仓库/CPCK.dof b/应收应付/样品仓库/CPCK.dof new file mode 100644 index 0000000..e4da9f4 --- /dev/null +++ b/应收应付/样品仓库/CPCK.dof @@ -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=E:\\Ŀ10\\Ʒֿ\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 diff --git a/应收应付/样品仓库/CPCK.res b/应收应付/样品仓库/CPCK.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/应收应付/样品仓库/CPCK.res differ diff --git a/应收应付/样品仓库/ProjectGroup1.bpg b/应收应付/样品仓库/ProjectGroup1.bpg new file mode 100644 index 0000000..e6b2914 --- /dev/null +++ b/应收应付/样品仓库/ProjectGroup1.bpg @@ -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) + + diff --git a/应收应付/样品仓库/ProjectGroup1.~bpg b/应收应付/样品仓库/ProjectGroup1.~bpg new file mode 100644 index 0000000..dfcf494 --- /dev/null +++ b/应收应付/样品仓库/ProjectGroup1.~bpg @@ -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 CPCK.dll +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +testDll.exe: testDll.dpr + $(DCC) + +CPCK.dll: CPCK.dpr + $(DCC) + + diff --git a/应收应付/样品仓库/SYSTEMSET.ini b/应收应付/样品仓库/SYSTEMSET.ini new file mode 100644 index 0000000..e4904d4 --- /dev/null +++ b/应收应付/样品仓库/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=127.0.0.1 +=XXXXXXX1 \ No newline at end of file diff --git a/应收应付/样品仓库/U_BJGCl.dfm b/应收应付/样品仓库/U_BJGCl.dfm new file mode 100644 index 0000000..1b2edcd --- /dev/null +++ b/应收应付/样品仓库/U_BJGCl.dfm @@ -0,0 +1,698 @@ +object frmBJGCl: TfrmBJGCl + Left = 109 + Top = 115 + Width = 1194 + Height = 620 + Caption = #21152#24037#32467#31639#21333 + 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 = 1178 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 89 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = LbQryPrint_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object Tqry: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TqryClick + end + object Tprint: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TprintClick + end + object Txls: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986'Excel' + ImageIndex = 75 + OnClick = TxlsClick + end + object tclose: TToolButton + Left = 219 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = tcloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1178 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 16 + Width = 52 + Height = 12 + Caption = #26816#39564#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 592 + Top = 64 + Width = 52 + Height = 12 + Caption = #21592#24037#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 772 + Top = 64 + Width = 52 + Height = 12 + Caption = #21592#24037#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 672 + Top = 156 + Width = 48 + Height = 12 + Caption = #26816#39564#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 236 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label4: TLabel + Left = 480 + Top = 16 + Width = 26 + Height = 12 + Caption = #36710#38388 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object begdate: TDateTimePicker + Left = 84 + Top = 12 + Width = 90 + Height = 20 + Date = 40422.816672789360000000 + Format = 'yyyy-MM-dd' + Time = 40422.816672789360000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object enddate: TDateTimePicker + Left = 252 + Top = 12 + Width = 95 + Height = 20 + Date = 40422.816949467590000000 + Format = 'yyyy-MM-dd' + Time = 40422.816949467590000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object userID: TEdit + Tag = 2 + Left = 644 + Top = 60 + Width = 100 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnChange = userIDChange + end + object userName: TEdit + Tag = 2 + Left = 828 + Top = 60 + Width = 100 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnChange = userIDChange + end + object ComboBox1: TComboBox + Left = 752 + Top = 152 + Width = 113 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentFont = False + TabOrder = 4 + end + object begTime: TDateTimePicker + Left = 172 + Top = 12 + Width = 55 + Height = 20 + Date = 41583.333333333340000000 + Format = 'HH:mm' + Time = 41583.333333333340000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 5 + end + object endTime: TDateTimePicker + Left = 344 + Top = 12 + Width = 55 + Height = 20 + Date = 41583.333333333340000000 + Format = 'HH:mm' + Time = 41583.333333333340000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 6 + end + object dept: TComboBox + Left = 512 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + OnChange = userIDChange + Items.Strings = ( + '' + #19968#36710#38388 + #20108#36710#38388) + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1178 + Height = 448 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V1Column2 + end + item + Kind = skSum + Column = V1Column3 + end + item + Kind = skSum + Column = V1Column4 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = V1Column9 + end + item + Kind = skSum + Column = V1Column10 + end + item + Kind = skSum + Column = V1Column11 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = V1Column17 + end + item + Kind = skSum + Column = V1Column18 + end + item + Kind = skSum + Column = V1Column19 + 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 = V1Column33 + end + item + Kind = skSum + Column = V1Column34 + end + item + Kind = skSum + Column = V1Column35 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Footer = LbQryPrint_DataLink.cxStyle_gridFoot + Styles.GroupByBox = LbQryPrint_DataLink.cxStyle_gridGroupBox + Styles.Header = LbQryPrint_DataLink.cxStyle_gridHead + Styles.BandHeader = LbQryPrint_DataLink.cxStyle_gridHead + Bands = < + item + Width = 213 + end + item + Caption = #30002 + Width = 240 + end + item + Caption = #20057 + Width = 240 + end + item + Caption = #19993 + Width = 240 + end + item + Caption = #24635#21512#35745 + Width = 260 + end> + object V1FillTime: TcxGridDBBandedColumn + Caption = #36710#38388 + DataBinding.FieldName = 'dept' + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1MachType: TcxGridDBBandedColumn + Caption = #31867#21035 + DataBinding.FieldName = 'MachType' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column5: TcxGridDBBandedColumn + Caption = #21306#22495 + DataBinding.FieldName = 'machFlag' + HeaderAlignmentHorz = taCenter + Width = 84 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column2: TcxGridDBBandedColumn + Caption = 'A' + DataBinding.FieldName = 'X_A_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 40 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column3: TcxGridDBBandedColumn + Caption = 'B' + DataBinding.FieldName = 'X_B_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 37 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column4: TcxGridDBBandedColumn + Caption = 'A+B' + DataBinding.FieldName = 'X_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 42 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column1: TcxGridDBBandedColumn + Caption = 'A'#32423#29575 + DataBinding.FieldName = 'X_A_Qty_rate' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 41 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1Column9: TcxGridDBBandedColumn + Caption = 'A' + DataBinding.FieldName = 'Y_A_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column10: TcxGridDBBandedColumn + Caption = 'B' + DataBinding.FieldName = 'Y_B_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column11: TcxGridDBBandedColumn + Caption = 'A+B' + DataBinding.FieldName = 'Y_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column12: TcxGridDBBandedColumn + Caption = 'A'#32423#29575 + DataBinding.FieldName = 'Y_A_Qty_rate' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1Column17: TcxGridDBBandedColumn + Caption = 'A' + DataBinding.FieldName = 'Z_A_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 40 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column18: TcxGridDBBandedColumn + Caption = 'B' + DataBinding.FieldName = 'Z_B_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 26 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column19: TcxGridDBBandedColumn + Caption = 'A+B' + DataBinding.FieldName = 'Z_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 54 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column20: TcxGridDBBandedColumn + Caption = 'A'#32423#29575 + DataBinding.FieldName = 'Z_A_Qty_rate' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 40 + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1Column33: TcxGridDBBandedColumn + Caption = 'A' + DataBinding.FieldName = 'A_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column34: TcxGridDBBandedColumn + Caption = 'B' + DataBinding.FieldName = 'B_Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column35: TcxGridDBBandedColumn + Caption = 'A+B' + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column36: TcxGridDBBandedColumn + Caption = 'A'#32423#29575 + DataBinding.FieldName = 'A_Qty_rate' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1MachOrder: TcxGridDBBandedColumn + DataBinding.FieldName = 'MachOrder' + Visible = False + Hidden = True + Options.CellMerging = True + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object Panetime: TPanel + Left = 318 + Top = 164 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ADOQueryTmp: TADOQuery + AutoCalcFields = False + Connection = LbQryPrint_DataLink.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 652 + Top = 260 + end + object DataSource1: TDataSource + DataSet = ADOQueryTmp + Left = 640 + Top = 220 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 132 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryTmp + Left = 464 + Top = 184 + end + object RMGridReport1: 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 = 624 + Top = 180 + 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 = 684 + Top = 164 + end +end diff --git a/应收应付/样品仓库/U_BJGCl.pas b/应收应付/样品仓库/U_BJGCl.pas new file mode 100644 index 0000000..5b8f604 --- /dev/null +++ b/应收应付/样品仓库/U_BJGCl.pas @@ -0,0 +1,261 @@ +unit U_BJGCl; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset, cxCheckBox, cxCalendar, + cxGridBandedTableView, cxGridDBBandedTableView, Buttons, cxCurrencyEdit; + +type + TfrmBJGCl = class(TForm) + ToolBar1: TToolBar; + Tqry: TToolButton; + Tprint: TToolButton; + Txls: TToolButton; + tclose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + begdate: TDateTimePicker; + enddate: TDateTimePicker; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + Panetime: TPanel; + cxGridPopupMenu1: TcxGridPopupMenu; + RMDBDataSet1: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + Label7: TLabel; + userID: TEdit; + Label8: TLabel; + userName: TEdit; + Label3: TLabel; + ComboBox1: TComboBox; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + Label2: TLabel; + Label4: TLabel; + dept: TComboBox; + TV1: TcxGridDBBandedTableView; + V1FillTime: TcxGridDBBandedColumn; + V1Column2: TcxGridDBBandedColumn; + V1Column3: TcxGridDBBandedColumn; + V1Column4: TcxGridDBBandedColumn; + V1Column1: TcxGridDBBandedColumn; + V1Column9: TcxGridDBBandedColumn; + V1Column10: TcxGridDBBandedColumn; + V1Column11: TcxGridDBBandedColumn; + V1Column12: TcxGridDBBandedColumn; + V1Column17: TcxGridDBBandedColumn; + V1Column18: TcxGridDBBandedColumn; + V1Column19: TcxGridDBBandedColumn; + V1Column20: TcxGridDBBandedColumn; + V1Column33: TcxGridDBBandedColumn; + V1Column34: TcxGridDBBandedColumn; + V1Column35: TcxGridDBBandedColumn; + V1Column36: TcxGridDBBandedColumn; + V1Column5: TcxGridDBBandedColumn; + V1MachType: TcxGridDBBandedColumn; + V1MachOrder: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TqryClick(Sender: TObject); + procedure TxlsClick(Sender: TObject); + procedure tcloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TprintClick(Sender: TObject); + procedure userIDChange(Sender: TObject); + procedure V1Column2CompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); + private + fstr1:string; + fstr2:string; + procedure DoQuery(); + procedure FilterData(); + { Private declarations } + public + istyjp:boolean; + fdept:string; + { Public declarations } + end; + +var + frmBJGCl: TfrmBJGCl; + +implementation +uses U_Fun10,U_DataLink; +{$R *.dfm} + + +procedure TfrmBJGCl.DoQuery(); +var + mBegdate,mEnddate:string; + i:integer; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + screen.Cursor:=crsqlwait; + Panetime.Visible:=true; + Panetime.Left:=(Width-Panetime.Width) div 2; + Panetime.top:=(Height-Panetime.Height-200) div 2; + application.ProcessMessages; + + try + with adoqueryTmp do + begin + close; + sql.Clear; + filtered:=false; + sql.Add(' exec P_Get_BJGCl '); + sql.Add(' @begdate='+quotedstr(trim(mbegdate))); + sql.Add(',@Enddate='+quotedstr(trim(menddate))); + sql.Add(',@dept='+quotedstr(trim(''))); + sql.Add(',@otherwhere='+quotedstr(trim(''))); + open; + end; + FilterData(); + finally + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; +end; +procedure TfrmBJGCl.FilterData(); +var + filterStr:string; +begin + filterStr:=''; + if trim(dept.Text)<>'' then + filterStr:=filterStr+' and dept like '+quotedstr('%'+trim(dept.Text)+'%'); + if trim(userID.Text)<>'' then + filterStr:=filterStr+' and userID like '+quotedstr('%'+trim(userID.Text)+'%'); + if trim(userName.Text)<>'' then + filterStr:=filterStr+' and UserName like '+quotedstr('%'+trim(userName.Text)+'%'); + try + ADOQueryTmp.DisableControls ; + if trim(filterStr)='' then + begin + ADOQueryTmp.Filtered:=false; + ADOQueryTmp.EnableControls; + exit; + end; + filterStr:=trim(Copy(filterStr,5,length(filterStr)-4)); + with ADOQueryTmp do + begin + filtered:=false; + filter:=filterStr; + filtered:=true; + end; + finally + ADOQueryTmp.EnableControls; + end; +end; +procedure TfrmBJGCl.FormDestroy(Sender: TObject); +begin + frmBJGCl:=nil; +end; + +procedure TfrmBJGCl.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCxBandedGrid(self.Caption+tv1.Name,tv1,'ۺϲѯ'); + action:=cafree; +end; + +procedure TfrmBJGCl.TqryClick(Sender: TObject); +begin + DoQuery(); +end; + +procedure TfrmBJGCl.TxlsClick(Sender: TObject); +begin + if adoquerytmp.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBJGCl.tcloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBJGCl.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + enddate.Date:=DServerDate; + begdate.Date:=strtodate(formatdateTime('yyyy-MM',enddate.Date)+'-01'); + +end; + +procedure TfrmBJGCl.FormShow(Sender: TObject); +begin + writeCxBandedGrid(self.Caption+tv1.Name,tv1,'ۺϲѯ'); +// Tqry.Click; + + +end; + +procedure TfrmBJGCl.TprintClick(Sender: TObject); +var + filepath:string; + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + if ADOQueryTmp.IsEmpty then exit; + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\޹˱.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',DServerDate); + RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date); + RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date); + RMVariables['zdr'] :=trim(DName); + RMVariables['fstr1'] :=trim(fstr1); + RMVariables['fstr2'] :=trim(fstr2); + RmVariables['begDate'] :=mbegdate+' - '+menddate; + RmVariables['dept'] :=trim(dept.Text); + RMGridReport1.LoadFromFile(filepath); + // RMGridReport1.PrintReport; + RMGridReport1.ShowReport; + + finally + + end; + +end; + +procedure TfrmBJGCl.userIDChange(Sender: TObject); +begin + FilterData(); +end; + +procedure TfrmBJGCl.V1Column2CompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); +var + i:integer; +begin + i:=tv1.GetColumnByFieldName('MachOrder').Index; + if ARow1.Values[i] = ARow2.Values[i] then + AAreEqual := True + else + AAreEqual := False; + + +end; + +end. diff --git a/应收应付/样品仓库/U_BpCk.dfm b/应收应付/样品仓库/U_BpCk.dfm new file mode 100644 index 0000000..02af166 --- /dev/null +++ b/应收应付/样品仓库/U_BpCk.dfm @@ -0,0 +1,537 @@ +object frmbpCk: TfrmbpCk + Left = 93 + Top = 102 + Width = 1112 + Height = 582 + BorderIcons = [biSystemMenu] + Caption = #26679#21697#20986#24211#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1096 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1096 + Height = 75 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object Label2: TLabel + Left = 409 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label3: TLabel + Left = 644 + Top = 92 + Width = 48 + Height = 12 + Caption = #21457#24448#21333#20301 + end + object Label4: TLabel + Left = 364 + Top = 120 + Width = 48 + Height = 12 + Caption = #20179' '#24211 + end + object Label5: TLabel + Left = 36 + Top = 96 + Width = 48 + Height = 12 + Caption = #35746#21333#20449#24687 + end + object Label6: TLabel + Left = 594 + Top = 20 + Width = 48 + Height = 12 + Caption = #36816#36755#26041#24335 + end + object Label7: TLabel + Left = 594 + Top = 44 + Width = 48 + Height = 12 + Caption = #25910' '#36135' '#20154 + end + object Label8: TLabel + Left = 223 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label9: TLabel + Left = 223 + Top = 44 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label12: TLabel + Left = 36 + Top = 44 + Width = 48 + Height = 12 + Caption = #19994' '#21153' '#21592 + end + object CRTime: TDateTimePicker + Left = 88 + Top = 16 + Width = 100 + Height = 20 + Date = 41509.970132187500000000 + Format = 'yyyy-MM-dd' + Time = 41509.970132187500000000 + TabOrder = 0 + end + object CRType: TComboBox + Left = 461 + Top = 16 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = #38144#21806#20986#24211 + Items.Strings = ( + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object ToCustName: TBtnEditA + Left = 696 + Top = 88 + Width = 321 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = ToCustNameBtnClick + end + object ckName: TComboBox + Left = 416 + Top = 116 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 3 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object orderNO: TBtnEditA + Left = 88 + Top = 96 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = orderNOBtnClick + end + object defstr2: TEdit + Left = 650 + Top = 40 + Width = 105 + Height = 20 + TabOrder = 5 + end + object InoutNo: TEdit + Left = 275 + Top = 16 + Width = 100 + Height = 20 + TabOrder = 6 + end + object custName: TBtnEditA + Left = 275 + Top = 40 + Width = 286 + Height = 20 + ReadOnly = True + TabOrder = 7 + OnBtnClick = custNameBtnClick + end + object ywy: TBtnEditA + Left = 88 + Top = 40 + Width = 100 + Height = 20 + TabOrder = 8 + OnBtnClick = ywyBtnClick + end + object defstr1: TBtnEditA + Left = 650 + Top = 16 + Width = 105 + Height = 20 + TabOrder = 9 + OnBtnClick = defstr1BtnClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 135 + Width = 1096 + Height = 407 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1Column5: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1Column4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 60 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'KG' + #20010) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 65 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 104 + Width = 1096 + Height = 31 + 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 = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25195#25551#21024#34892 + ImageIndex = 48 + Visible = False + OnClick = ToolButton3Click + end + end + object Panel2: TPanel + Left = 352 + Top = 200 + Width = 289 + Height = 121 + Color = clSkyBlue + TabOrder = 4 + Visible = False + OnDblClick = Panel2DblClick + object Label10: TLabel + Left = 36 + Top = 24 + Width = 26 + Height = 12 + Caption = #26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 36 + Top = 72 + Width = 8 + Height = 14 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 68 + Top = 20 + Width = 137 + Height = 20 + TabOrder = 0 + OnKeyPress = Edit1KeyPress + end + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 292 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 340 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 400 + Top = 9 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 101 + end +end diff --git a/应收应付/样品仓库/U_BpCk.pas b/应收应付/样品仓库/U_BpCk.pas new file mode 100644 index 0000000..eda3c15 --- /dev/null +++ b/应收应付/样品仓库/U_BpCk.pas @@ -0,0 +1,770 @@ +unit U_BpCk; + +interface + +uses + Windows, Messages, SysUtils,StrUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, + cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, BtnEdit, cxTextEdit; + +type + TfrmbpCk = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTime: TDateTimePicker; + Label2: TLabel; + CRType: TComboBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + ToCustName: TBtnEditA; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label4: TLabel; + Label5: TLabel; + orderNO: TBtnEditA; + Label6: TLabel; + Label7: TLabel; + defstr2: TEdit; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + Label8: TLabel; + InoutNo: TEdit; + Label9: TLabel; + custName: TBtnEditA; + ToolButton3: TToolButton; + Panel2: TPanel; + Label10: TLabel; + Edit1: TEdit; + Label11: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + ywy: TBtnEditA; + Label12: TLabel; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + defstr1: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToCustNameBtnClick(Sender: TObject); + procedure orderNOBtnClick(Sender: TObject); + procedure custNameBtnClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure Panel2DblClick(Sender: TObject); + procedure v1QtyPropertiesEditValueChanged(Sender: TObject); + procedure ywyBtnClick(Sender: TObject); + procedure defstr1BtnClick(Sender: TObject); + private + procedure InitGrid(); + function savedate():Boolean; + procedure SetComboBox(); + function YSData(fYFName:string):Boolean; + { Private declarations } + public + fkeyNO:string; + FType:integer; + fCKName:string; + { Public declarations } + end; + +var + frmbpCk: TfrmbpCk; + +implementation + uses + U_DataLink,U_Fun10,U_ZDYHelp, U_Bpkclist, U_ZdyAttachment, U_Bpkcsumlist; +{$R *.dfm} +function TfrmbpCk.YSData(fYFName:string):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(custName.Text)+''' '); + Open; + end; + + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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(custName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName='''+trim(fYFName)+''' '); + Open; + end; + + if ADOQueryTmp.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(CDS_Main.fieldbyname('CRNO').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(custName.Text); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').AsFloat; + FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').AsFloat; + FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('QtyUnit').Value:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(custName.Text); + FieldByName('YFName').Value:=fYFName; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('CRNO').AsString); + FieldByName('subID').Value:=Trim(CDS_Main.fieldbyname('CRID').AsString); + FieldByName('orderNo').Value:=Trim(CDS_Main.fieldbyname('P_Code').AsString); + FieldByName('P_CodeName').Value:=Trim(CDS_Main.fieldbyname('P_CodeName').AsString); + FieldByName('P_Spec').Value:=Trim(CDS_Main.fieldbyname('P_Spec').AsString); + FieldByName('P_Color').Value:=Trim(CDS_Main.fieldbyname('P_Color').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.fieldbyname('YFID').AsString); + end; + + Result:=True; +end; +procedure TfrmbpCk.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +function TfrmbpCk.savedate():Boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; + maxno:string; +begin + result:=false; + try + ADOQueryCmd.Connection.BeginTrans; + + if FType=0 then + begin + Filler:=DName; + FillTime:=SGetServerDateTime(adoqueryTmp); + End + else + begin + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from YP_InOut'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + open; + Filler:=adoqueryTmp.fieldbyname('Filler').AsString; + FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime; + end; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_kc set RollNum=A.RollNum + B.RollNum, Qty=A.Qty + B.Qty '); + sql.Add('from YP_kc A'); + sql.Add('inner join YP_INout B on B.kcid=A.kcid'); + sql.Add('where B.CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(fkeyNO)+''''); + // sql.Add(' and YFName='''' '); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from YP_INout'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + CDS_Main.DisableControls; + CDS_Main.First; + with CDS_Main do + begin + while not eof do + begin + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YP_INout'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=recNo; + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('InoutNO').Value:=trim(InoutNO.Text); + ADOQueryCmd.FieldByName('custNo').Value:=trim(custName.TxtCode); + ADOQueryCmd.FieldByName('custName').Value:=trim(custName.Text); + ADOQueryCmd.FieldByName('TocustNo').Value:=trim(TocustName.TxtCode); + ADOQueryCmd.FieldByName('TocustName').Value:=trim(TocustName.Text); + ADOQueryCmd.FieldByName('ywy').Value:=trim(ywy.Text); + ADOQueryCmd.FieldByName('factoryName').Value:=trim(fieldbyname('factoryName').AsString); + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('kuwei').Value:=trim(fieldbyname('kuwei').AsString); + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('CPTYPE').Value:=trim(fieldbyname('CPTYPE').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('P_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('P_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('P_spec').AsString); + ADOQueryCmd.FieldByName('P_CF').Value:=trim(fieldbyname('P_CF').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('P_Color').AsString); + ADOQueryCmd.FieldByName('P_MF').Value:=fieldbyname('P_MF').AsFloat; + ADOQueryCmd.FieldByName('P_KZ').Value:=fieldbyname('P_KZ').AsFloat; + ADOQueryCmd.FieldByName('RollNum').Value:=fieldbyname('RollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('QtyUnit').AsString); + ADOQueryCmd.FieldByName('note').Value:=trim(fieldbyname('note').AsString); + ADOQueryCmd.FieldByName('Price').Value:=fieldbyname('Price').AsFloat; + ADOQueryCmd.FieldByName('money').Value:=fieldbyname('money').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=dateTimetostr(FillTime); + ADOQueryCmd.FieldByName('inoutNo').Value:=trim(inoutNo.Text); + ADOQueryCmd.FieldByName('defstr1').Value:=trim(defstr1.Text); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(defstr2.Text); + // ADOQueryCmd.FieldByName('FirstNo').Value:=trim(FirstName.TxtCode); + // ADOQueryCmd.FieldByName('FirstName').Value:=trim(FirstName.Text); + if FType=1 then + begin + ADOQueryCmd.FieldByName('editer').Value:=trim(dName); + ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp); + end; + ADOQueryCmd.FieldByName('kcID').Value:=FieldByName('kcID').AsInteger; + ADOQueryCmd.Post; + + CDS_Main.edit; + CDS_Main.FieldByName('CRNO').Value:=trim(fkeyNO); + CDS_Main.FieldByName('CRID').Value:=recNo; + + if trim(CRType.Text)='Ʒ' then + begin + if not YSData('Ʒ') then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + next; + end; + + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_kc set RollNum=A.RollNum - B.RollNum, Qty=A.Qty - B.Qty '); + sql.Add('from YP_kc A'); + sql.Add('inner join YP_INout B on B.kcid=A.kcid'); + sql.Add('where B.CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CP_kc set RollNum=1'); + sql.Add('from CP_kc A'); + sql.Add('where A.RollNum=0 and A.Qty<>0 '); + execsql; + end; + } + + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmbpCk.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ,B.defnote5 from YP_InOut A'); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + // sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('where A.CRNO='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + if not CDS_Main.IsEmpty then + begin + CRTime.Date:= CDS_Main.fieldbyname('CRTime').AsDateTime; + CKName.ItemIndex:=CKName.Items.IndexOf(trim(CDS_Main.fieldbyname('CKName').AsString)); + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString)); + InoutNO.Text:=trim(CDS_Main.fieldbyname('InoutNO').AsString); + // orderNo.Text:=trim(CDS_Main.fieldbyname('orderNo').AsString); + // PRTCodeName.Text:=trim(CDS_Main.fieldbyname('PRTCodeName').AsString); + // PRTColor.Text:=trim(CDS_Main.fieldbyname('PRTColor').AsString); + custName.TxtCode:=trim(CDS_Main.fieldbyname('custNo').AsString); + custName.Text:=trim(CDS_Main.fieldbyname('custName').AsString); + ywy.Text:=trim(CDS_Main.fieldbyname('ywy').AsString); + TocustName.TxtCode:=trim(CDS_Main.fieldbyname('TocustNo').AsString); + TocustName.Text:=trim(CDS_Main.fieldbyname('TocustName').AsString); + defstr1.Text:=trim(CDS_Main.fieldbyname('defstr1').AsString); + defstr2.Text:=trim(CDS_Main.fieldbyname('defstr2').AsString); + end; + finally + end; +end; + +procedure TfrmbpCk.FormDestroy(Sender: TObject); +begin + frmbpCk:=nil; +end; + +procedure TfrmbpCk.FormCreate(Sender: TObject); +begin + CRTime.Date:=DServerDate; + cxGrid1.Align:=alclient; +end; + +procedure TfrmbpCk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cahide; +end; + +procedure TfrmbpCk.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + InitGrid(); + if fType=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNo,'CK','YP_InOut',3,1)=False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + inoutNo.Text:='C'+Trim(RightBStr(fkeyNo,Length(fkeyNo)-2)); + end; +end; + +procedure TfrmbpCk.TBSaveClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + CRTime.SetFocus; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + + if (trim(CRType.Text)='') and (trim(custName.Text)='') then + begin + application.MessageBox('ͻϢΪգ','ʾϢ',0); + exit; + end; + + if cds_main.Locate('QtyUnit','',[]) then + begin + application.MessageBox('λΪգ','ʾϢ',0); + exit; + end; + if cds_main.Locate('QtyUnit',NULL,[]) then + begin + application.MessageBox('λΪգ','ʾϢ',0); + exit; + end; + + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + begin + application.MessageBox('ݱʧܣ','ʾϢ',MB_ICONERROR); + end; +end; + +procedure TfrmbpCk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmbpCk.ToolButton1Click(Sender: TObject); +begin + frmBpkcsumlist:=TfrmBpkcsumlist.create(self); + with frmBpkcsumlist do + begin + fType:=10; + fckName:=self.fckName; + if showmodal=1 then + begin + cds_main.DisableControls; + cds_main.First; + while not cds_main.Eof do + begin + if (cds_main.fieldbyname('ssel').AsBoolean) then + begin + self.cds_main.Append; + // self.cds_main.FieldByName('kcid').Value:=trim(cds_main.fieldbyname('kcid').AsString); + self.cds_main.FieldByName('factoryName').Value:=trim(cds_main.fieldbyname('factoryName').AsString); + // self.cds_main.FieldByName('mainID').Value:=trim(cds_main.fieldbyname('mainID').AsString); + // self.cds_main.FieldByName('subID').Value:=trim(cds_main.fieldbyname('subID').AsString); + // self.cds_main.FieldByName('kuwei').Value:=trim(cds_main.fieldbyname('kuwei').AsString); + // self.cds_main.FieldByName('MJID').Value:=trim(cds_main.fieldbyname('MJID').AsString); + // self.cds_main.FieldByName('MJXH').Value:=trim(cds_main.fieldbyname('MJXH').AsString); + // self.cds_main.FieldByName('CPTYPE').Value:=trim(cds_main.fieldbyname('CPTYPE').AsString); + self.cds_main.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('P_Code').AsString); + self.cds_main.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('P_CodeName').AsString); + self.cds_main.FieldByName('P_cf').Value:=trim(cds_main.fieldbyname('P_cf').AsString); + self.cds_main.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('P_spec').AsString); + self.cds_main.FieldByName('defnote5').Value:=trim(cds_main.fieldbyname('defnote5').AsString); + self.cds_main.FieldByName('P_Color').Value:=trim(cds_main.fieldbyname('P_Color').AsString); + self.cds_main.FieldByName('CYMF').Value:=trim(cds_main.fieldbyname('CYMF').AsString); + self.cds_main.FieldByName('CYKZ').Value:=trim(cds_main.fieldbyname('CYKZ').AsString); + self.cds_main.FieldByName('P_MF').Value:=0; + self.cds_main.FieldByName('P_KZ').Value:=0; + self.cds_main.FieldByName('RollNum').Value:=cds_main.fieldbyname('kcRollNum').AsFloat; + self.cds_main.FieldByName('Qty').Value:=cds_main.fieldbyname('kcQty').AsFloat; + self.cds_main.FieldByName('QtyUnit').Value:=trim(cds_main.fieldbyname('QtyUnit').AsString); + self.cds_main.FieldByName('kuwei').Value:=trim(cds_main.fieldbyname('kuwei').AsString); + // self.cds_main.FieldByName('Price').Value:=cds_main.fieldbyname('Price').AsFloat; + // self.cds_main.FieldByName('money').Value:=cds_main.fieldbyname('money').AsFloat; + // self.cds_main.FieldByName('defstr1').Value:=trim(cds_main.fieldbyname('defstr1').AsString); + self.cds_main.Post; + end; + cds_main.Next; + end; + cds_main.EnableControls; + end; + free; + end; + +end; + +procedure TfrmbpCk.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + CDS_Main.Delete; +end; + +procedure TfrmbpCk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmbpCk.ToCustNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + ToCustName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + ToCustName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmbpCk.orderNOBtnClick(Sender: TObject); +begin + { frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + if showmodal=1 then + begin + self.fmainID:=trim(Order_Main.fieldbyname('MainID').AsString); + self.fsubID:=trim(Order_Main.fieldbyname('subID').AsString); + self.orderNo.Text:=trim(Order_Main.fieldbyname('orderNo').AsString); + self.PRTCodeName.Text:=trim(Order_Main.fieldbyname('PRTCodeName').AsString); + self.PRTColor.Text:=trim(Order_Main.fieldbyname('PRTColor').AsString); + end; + free; + end; } +end; + +procedure TfrmbpCk.custNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fywy:=trim(ywy.Text); + if ShowModal=1 then + begin + CustName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + CustName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + CustName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmbpCk.ToolButton3Click(Sender: TObject); +begin + Panel2.Visible:=true; +end; + +procedure TfrmbpCk.Edit1KeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + IF CDS_Main.IsEmpty then exit; + IF trim(edit1.Text)='' then exit; + IF CDS_Main.Locate('MJID',trim(edit1.Text),[]) then + begin + CDS_Main.Delete; + Label11.Caption:=':'+trim(edit1.Text)+'ɾɹ'; + end + else + begin + Label11.Caption:=':'+trim(edit1.Text)+'ɾʧܣ'; + end; + + edit1.Text:=''; + end; +end; + +procedure TfrmbpCk.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmbpCk.v1QtyPropertiesEditValueChanged(Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Main do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%0.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + + +end; + +procedure TfrmbpCk.ywyBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ywy'; + flagname:='ҵԱ'; + if ShowModal=1 then + begin + ywy.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmbpCk.defstr1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPYSType'; + flagname:='Ʒ䷽ʽ'; + if ShowModal=1 then + begin + defstr1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpCklist.dfm b/应收应付/样品仓库/U_BpCklist.dfm new file mode 100644 index 0000000..fc44019 --- /dev/null +++ b/应收应付/样品仓库/U_BpCklist.dfm @@ -0,0 +1,687 @@ +object frmBpCklist: TfrmBpCklist + Left = 125 + Top = 134 + Width = 1163 + Height = 569 + Caption = #20986#24211#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 = 1147 + 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 = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + Visible = False + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBsmADD: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25195#25551#20986#24211 + ImageIndex = 3 + Visible = False + OnClick = TBsmADDClick + end + object TBEdit: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TnochkClick + end + object TBExport: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #25171#21360#32454#30721#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TbPrint1: TToolButton + Left = 714 + Top = 0 + Caption = #25171#21360#21457#36135#21333 + ImageIndex = 12 + OnClick = TbPrint1Click + end + object TBClose: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1147 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #20986#24211#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 = 440 + Top = 40 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 440 + Top = 16 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#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 = 224 + Top = 16 + Width = 52 + Height = 12 + Caption = #20986#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 320 + Top = 108 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 660 + Top = 16 + 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 = 964 + Top = 112 + Width = 26 + Height = 12 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 660 + Top = 40 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 224 + Top = 40 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 90 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 90 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object P_CodeName: TEdit + Tag = 2 + Left = 496 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object P_Code: TEdit + Tag = 2 + Left = 496 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = P_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 280 + Top = 11 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeNameChange + Items.Strings = ( + '' + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object ckName: TComboBox + Left = 348 + Top = 104 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object ywy: TEdit + Tag = 2 + Left = 704 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + object kuwei: TEdit + Tag = 2 + Left = 996 + Top = 108 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_CodeNameChange + end + object P_Color: TEdit + Tag = 2 + Left = 704 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = P_CodeNameChange + end + object custName: TEdit + Tag = 2 + Left = 280 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 113 + Width = 1147 + Height = 396 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1inoutNO: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'inoutNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1custName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'custName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1CRTime: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1CRType: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 90 + end + object v1defnote5: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1CPTYPE: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPTYPE' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Filler: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1FillTime: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column6: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column8: TcxGridDBColumn + Caption = #36816#36755#26041#24335 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #25910#36135#20154 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 93 + Width = 1147 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1147 + ClientRectTop = 19 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 952 + Top = 156 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 624 + Top = 132 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 1132 + Top = 137 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 828 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 132 + end + object ADOPrint: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 944 + Top = 124 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 648 + Top = 188 + end + object RMGridReport1: 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 = 1000 + Top = 92 + 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 = 1036 + Top = 132 + end +end diff --git a/应收应付/样品仓库/U_BpCklist.pas b/应收应付/样品仓库/U_BpCklist.pas new file mode 100644 index 0000000..08660df --- /dev/null +++ b/应收应付/样品仓库/U_BpCklist.pas @@ -0,0 +1,496 @@ +unit U_BpCklist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, RM_Common, RM_Class, RM_e_Xls, RM_GridReport, RM_System, + RM_Dataset, cxPC; + +type + TfrmBpCklist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRType: TcxGridDBColumn; + v1CRTime: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1FillTime: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + P_CodeName: TEdit; + P_Code: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + v1CPTYPE: TcxGridDBColumn; + ckName: TComboBox; + Label6: TLabel; + v1P_Color: TcxGridDBColumn; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + v1P_Code: TcxGridDBColumn; + v1inoutNO: TcxGridDBColumn; + TBsmADD: TToolButton; + ywy: TEdit; + Label7: TLabel; + v1custName: TcxGridDBColumn; + TbPrint1: TToolButton; + v1Column1: TcxGridDBColumn; + kuwei: TEdit; + Label8: TLabel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1defnote5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + P_Color: TEdit; + Label9: TLabel; + custName: TEdit; + Label2: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBsmADDClick(Sender: TObject); + procedure TbPrint1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + procedure SetStatus(); + { Private declarations } + public + fCKName:string; + canshu1:string; + { Public declarations } + end; + +var + frmBpCklist: TfrmBpCklist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpCk, U_BpSmCk; +{$R *.dfm} +procedure TfrmBpCklist.SetStatus(); +begin + TBedit.Visible:=false; + Tbdel.Visible:=false; + Tchk.Visible:=false; + Tnochk.Visible:=false; + IF trim(canshu1)='' then + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + end; + 1:begin + // tbcdel.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + Tchk.Visible:=true; + + end; + 1:begin + Tnochk.Visible:=true; + end; + end; + end; +end; +procedure TfrmBpCklist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpCklist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ,B.defnote5 from YP_InOut A'); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add('where CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add('and CRFlag='''' '); + sql.Add('and valid=''Y'' '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); + if cxTabControl1.TabIndex<2 then + sql.Add('and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpCklist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmBpCklist.FormDestroy(Sender: TObject); +begin + frmBpCklist:=nil; +end; + +procedure TfrmBpCklist.TBAddClick(Sender: TObject); +begin + frmbpck:=Tfrmbpck.create(self); + with frmbpck do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + IF trim(self.canshu1)='ҵԱ'then + begin + ywy.text:=trim(Dname); + ywy.Enabled:=false; + end; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpCklist.P_CodeNameChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpCklist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + SetStatus(); + InitGrid(); +end; + +procedure TfrmBpCklist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpCklist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpCklist.TBEditClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BP_InOut A'); + SQL.Add('where A.kcid='''+Trim(CDS_Main.fieldbyname('kcid').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('Ѳݣ޸ģ','ʾ',0); + Exit; + end; } + + frmbpck:=Tfrmbpck.create(self); + with frmbpck do + begin + fkeyNo:=self.cds_main.fieldbyname('CRNO').AsString; + fType:=1; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpCklist.TBDelClick(Sender: TObject); +var + YFID,CRID:string; +begin + if CDS_Main.IsEmpty then Exit; + + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + + + try + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + + sql.Add('update YP_InOut SET valid=''N'' '); + sql.Add(',editer='+quotedstr(trim(DName))); + sql.Add(',edittime=getdate()'); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + + sql.Add('delete from YF_money_CR '); + SQL.Add('where mainID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + SQL.Add('and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''' '); + + execsql; + end; + TBRafresh.Click; + except + Application.MessageBox('ɾʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpCklist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmBpCklist.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Print_cpCkMd '); + sql.Add('@inoutNo='+quotedstr(trim(CDS_Main.fieldbyname('inoutNO').AsString))); + sql.Add(',@flag='+quotedstr(trim(''))); + open; + end; + + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmBpCklist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpCklist.TBsmADDClick(Sender: TObject); +begin + frmbpsmck:=Tfrmbpsmck.create(self); + with frmbpsmck do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + // self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + TBRafresh.Click; + free; + end; +end; + +procedure TfrmBpCklist.TbPrint1Click(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add(' select A.*,B.CYMF,B.CYKZ,B.defnote5, '); + sql.Add(' FilesOther=(select top 1 X1.FilesOther from TP_File X1,CP_YDang X2 where X1.WBID=X2.CYID and X2.CYNo=A.P_Code and X1.TFType=''Ʒ'') '); + sql.Add(' from YP_INout A '); + sql.Add(' left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add(' where A.inoutNo='+quotedstr(trim(CDS_Main.fieldbyname('inoutNO').AsString))); + open; + end; + + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ʒ.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmBpCklist.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initGrid(); +end; + +procedure TfrmBpCklist.TchkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''1'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpCklist.TnochkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''0'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpJylist.dfm b/应收应付/样品仓库/U_BpJylist.dfm new file mode 100644 index 0000000..b8dcc7e --- /dev/null +++ b/应收应付/样品仓库/U_BpJylist.dfm @@ -0,0 +1,517 @@ +object frmBpJylist: TfrmBpJylist + Left = 172 + Top = 168 + Width = 956 + Height = 500 + Caption = #24067#21305#20449#24687#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 = 940 + 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 = CPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TOk: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + Visible = False + OnClick = TOkClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 940 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26816#39564#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 = 64 + Top = 40 + Width = 13 + Height = 12 + Caption = #33267 + 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 = 40 + 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 Label4: TLabel + Left = 552 + Top = 16 + Width = 52 + Height = 12 + Caption = #35268#26684#22411#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 = 120 + Top = 80 + Width = 52 + Height = 12 + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 288 + Top = 72 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 328 + Top = 16 + Width = 47 + Height = 12 + Caption = #21697' '#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 = 100 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 100 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + ShowCheckbox = True + TabOrder = 1 + end + object MJstr7: TEdit + Tag = 2 + Left = 384 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = MJstr7Change + end + object MPrtSpec: TEdit + Tag = 2 + Left = 612 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = MJstr7Change + end + object CRType: TComboBox + Tag = 2 + Left = 176 + Top = 76 + Width = 120 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = MJstr7Change + Items.Strings = ( + '' + #29983#20135#20837#24211) + end + object CheckBox1: TCheckBox + Left = 564 + Top = 88 + Width = 97 + Height = 17 + Caption = #21547#24211#23384#20026#38646 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object ckName: TComboBox + Left = 320 + Top = 68 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object MPrtCode: TEdit + Tag = 2 + Left = 384 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = MJstr7Change + end + object begTime: TDateTimePicker + Left = 172 + Top = 11 + Width = 55 + Height = 20 + Date = 41583.333333333340000000 + Format = 'HH:mm' + Time = 41583.333333333340000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 8 + end + object endTime: TDateTimePicker + Left = 172 + Top = 35 + Width = 55 + Height = 20 + Date = 41583.333333333340000000 + Format = 'HH:mm' + Time = 41583.333333333340000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 9 + end + object CheckBox2: TCheckBox + Left = 556 + Top = 40 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 10 + OnClick = CheckBox2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 93 + Width = 940 + Height = 316 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = CPCK_DataLink.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + end + object v1CRTime: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1MJID: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1MJXH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'MPrtCode' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MJstr7' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'MPrtSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'P_MF' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_KZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'P_KZ' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 59 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 59 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'Mjstr1' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 536 + Top = 4 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 576 + Top = 1 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 612 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 504 + Top = 12 + end +end diff --git a/应收应付/样品仓库/U_BpJylist.pas b/应收应付/样品仓库/U_BpJylist.pas new file mode 100644 index 0000000..2b01184 --- /dev/null +++ b/应收应付/样品仓库/U_BpJylist.pas @@ -0,0 +1,250 @@ +unit U_BpJylist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, cxCheckBox; + +type + TfrmBpJylist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRTime: TcxGridDBColumn; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + MJstr7: TEdit; + MPrtSpec: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + TOk: TToolButton; + v1Ssel: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1MJID: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label6: TLabel; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + Label7: TLabel; + MPrtCode: TEdit; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + CheckBox2: TCheckBox; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure MJstr7Change(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TOkClick(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + { Private declarations } + public + fType:integer; + fCKName:string; + + { Public declarations } + end; + +var + frmBpJylist: TfrmBpJylist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpRk; +{$R *.dfm} +procedure TfrmBpJylist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpJylist.InitGrid(); +var + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.MPrtCode,MPrtCodeName=A.MJStr7,B.MPrtSpec from WFB_MJJY A'); + sql.Add('INNER JOIN JYOrder_main B on B.MainID=A.mainID '); + sql.Add('where A.MJstr2=''δ'''); + if begdate.Checked then + sql.Add('and A.FillTime>='''+trim(mbegdate)+''' '); + if enddate.Checked then + sql.Add('and A.FillTime<'''+trim(menddate)+''' '); + if not CheckBox1.Checked then + // sql.Add('and (RollNum<>0 or qty<>0 ) '); +{ if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); } + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpJylist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + if fType=10 then Action:=cahide + else Action:=cafree; +end; + +procedure TfrmBpJylist.FormDestroy(Sender: TObject); +begin + frmBpJylist:=nil; +end; + +procedure TfrmBpJylist.MJstr7Change(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpJylist.FormShow(Sender: TObject); +begin + if fType=10 then + begin + TOk.Visible:=true; + v1Ssel.Visible:=true; + end; + TOk.Visible:=true; + v1Ssel.Visible:=true; + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + InitGrid(); +end; + +procedure TfrmBpJylist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpJylist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpJylist.TBRafreshClick(Sender: TObject); +begin + + initGrid(); +end; + +procedure TfrmBpJylist.TBPrintClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpJylist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpJylist.TOkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +procedure TfrmBpJylist.CheckBox2Click(Sender: TObject); +begin + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + edit; + fieldbyname('Ssel').Value:=checkbox2.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpRk.dfm b/应收应付/样品仓库/U_BpRk.dfm new file mode 100644 index 0000000..a7e5f50 --- /dev/null +++ b/应收应付/样品仓库/U_BpRk.dfm @@ -0,0 +1,472 @@ +object frmbpRk: TfrmbpRk + Left = 120 + Top = 128 + Width = 1166 + Height = 555 + BorderIcons = [biSystemMenu] + Caption = #26679#21697#20837#24211#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1150 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1150 + Height = 68 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 16 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 437 + Top = 16 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label3: TLabel + Left = 344 + Top = 76 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label8: TLabel + Left = 230 + Top = 16 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label4: TLabel + Left = 36 + Top = 40 + Width = 48 + Height = 12 + Caption = #19994' '#21153' '#21592 + end + object Label9: TLabel + Left = 230 + Top = 40 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object CRTime: TDateTimePicker + Left = 88 + Top = 12 + Width = 100 + Height = 20 + Date = 41509.970132187500000000 + Format = 'yyyy-MM-dd' + Time = 41509.970132187500000000 + TabOrder = 0 + end + object CRType: TComboBox + Left = 493 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = #29983#20135#20837#24211 + Items.Strings = ( + #29983#20135#20837#24211 + #22806#36141#20837#24211) + end + object ckName: TComboBox + Left = 376 + Top = 72 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 2 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object InoutNo: TEdit + Left = 278 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 3 + end + object ywy: TBtnEditA + Left = 88 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 4 + OnBtnClick = ywyBtnClick + end + object factoryName: TBtnEditA + Left = 278 + Top = 36 + Width = 315 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = factoryNameBtnClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 126 + Width = 1150 + Height = 319 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 104 + end + object v1Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column6: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column3: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'Kuwei' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_ColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 60 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 69 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'qtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'KG' + #20010) + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 55 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 97 + Width = 1150 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 189 + Top = 0 + Width = 901 + Height = 30 + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 0 + object Label15: TLabel + Left = 60 + Top = 12 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object CYNO: TEdit + Left = 109 + Top = 4 + Width = 152 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = CYNOKeyPress + end + end + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 292 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 344 + Top = 4 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 400 + Top = 1 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 532 + Top = 65 + end +end diff --git a/应收应付/样品仓库/U_BpRk.pas b/应收应付/样品仓库/U_BpRk.pas new file mode 100644 index 0000000..9b687cf --- /dev/null +++ b/应收应付/样品仓库/U_BpRk.pas @@ -0,0 +1,760 @@ +unit U_BpRk; + +interface + +uses + Windows, Messages, SysUtils,StrUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, + cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu,cxTextEdit, BtnEdit; + +type + TfrmbpRk = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTime: TDateTimePicker; + Label2: TLabel; + CRType: TComboBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + ckName: TComboBox; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + InoutNo: TEdit; + Label8: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label4: TLabel; + ywy: TBtnEditA; + v1Column3: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + factoryName: TBtnEditA; + Label9: TLabel; + Panel4: TPanel; + Label15: TLabel; + CYNO: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure v1P_ColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1P_CodePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ywyBtnClick(Sender: TObject); + procedure v1QtyPropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure factoryNameBtnClick(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + private + procedure InitGrid(); + function savedate():Boolean; + procedure SetComboBox(); + function YFData():Boolean; + { Private declarations } + public + fkeyNO:string; + FType:integer; + fCKName:string; + { Public declarations } + end; + +var + frmbpRk: TfrmbpRk; + +implementation + uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpJylist, U_CPManageSel, U_ZdyAttachGYS; +{$R *.dfm} +function TfrmbpRk.YFData():Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(factoryName.Text)+''' '); + Open; + end; + + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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(factoryName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''Ʒɹ'' '); + Open; + end; + + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'YF','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(CDS_Main.fieldbyname('CRNO').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(factoryName.Text); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').AsFloat; + FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').AsFloat; + FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('QtyUnit').Value:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(factoryName.Text); + FieldByName('YFName').Value:='Ʒɹ'; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('CRNO').AsString); + FieldByName('subID').Value:=Trim(CDS_Main.fieldbyname('CRID').AsString); + FieldByName('orderNo').Value:=Trim(CDS_Main.fieldbyname('P_Code').AsString); + FieldByName('P_CodeName').Value:=Trim(CDS_Main.fieldbyname('P_CodeName').AsString); + FieldByName('P_Spec').Value:=Trim(CDS_Main.fieldbyname('P_Spec').AsString); + FieldByName('P_Color').Value:=Trim(CDS_Main.fieldbyname('P_Color').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.fieldbyname('YFID').AsString); + end; + + Result:=True; +end; +procedure TfrmbpRk.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +function TfrmbpRk.savedate():Boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; +begin + result:=false; + try + ADOQueryCmd.Connection.BeginTrans; + if FType=0 then + begin + Filler:=DName; + FillTime:=SGetServerDateTime(adoqueryTmp); + end + else + begin + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from YP_InOut'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + open; + Filler:=adoqueryTmp.fieldbyname('Filler').AsString; + FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(fkeyNO)+''''); + sql.Add(' and YFName=''Ʒɹ'' '); + execsql; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from YP_InOut'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from YP_kc'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + + CDS_Main.DisableControls; + CDS_Main.First; + with CDS_Main do + begin + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update YP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from YP_Kcid'); + Open; + end; + fkcID:=ADOQueryCmd.fieldbyname('kcid').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YP_InOut'); + sql.Add('where 1=2 '); + open; + end; + + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=recNo; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('InOutNo').Value:=trim(InOutNo.Text); + ADOQueryCmd.FieldByName('ywy').Value:=trim(ywy.Text); + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + ADOQueryCmd.FieldByName('factoryName').Value:=trim(factoryName.Text); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('CPTYPE').Value:=trim(fieldbyname('CPTYPE').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('P_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('P_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('P_spec').AsString); + ADOQueryCmd.FieldByName('P_CF').Value:=trim(fieldbyname('P_CF').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('P_Color').AsString); + ADOQueryCmd.FieldByName('P_MF').Value:=fieldbyname('P_MF').AsFloat; + ADOQueryCmd.FieldByName('P_KZ').Value:=fieldbyname('P_KZ').AsFloat; + ADOQueryCmd.FieldByName('RollNum').Value:=fieldbyname('RollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('QtyUnit').AsString); + ADOQueryCmd.FieldByName('Price').Value:=fieldbyname('Price').AsFloat; + ADOQueryCmd.FieldByName('money').Value:=fieldbyname('money').AsFloat; + ADOQueryCmd.FieldByName('note').Value:=trim(fieldbyname('note').AsString); + ADOQueryCmd.FieldByName('kuwei').Value:=trim(fieldbyname('kuwei').AsString); + ADOQueryCmd.FieldByName('defstr1').Value:=trim(fieldbyname('defstr1').AsString); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(fieldbyname('defstr2').AsString); + ADOQueryCmd.FieldByName('defstr3').Value:=trim(fieldbyname('defstr3').AsString); + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=dateTimetostr(FillTime); + + if FType=1 then + begin + ADOQueryCmd.FieldByName('editer').Value:=trim(dName); + ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp); + end; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from YP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=recNo; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('ywy').Value:=trim(ywy.Text); + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('CPType').Value:=trim(fieldbyname('CPType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('P_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('P_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('P_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('P_Color').AsString); + ADOQueryCmd.FieldByName('P_MF').Value:=fieldbyname('P_MF').AsFloat; + ADOQueryCmd.FieldByName('P_KZ').Value:=fieldbyname('P_KZ').AsFloat; + ADOQueryCmd.FieldByName('RollNum').Value:=fieldbyname('RollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('QtyUnit').AsString); + ADOQueryCmd.FieldByName('kuwei').Value:=trim(fieldbyname('kuwei').AsString); + ADOQueryCmd.FieldByName('defstr1').Value:=trim(fieldbyname('defstr1').AsString); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(fieldbyname('defstr2').AsString); + ADOQueryCmd.FieldByName('defstr3').Value:=trim(fieldbyname('defstr3').AsString); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + CDS_Main.edit; + CDS_Main.FieldByName('CRNO').Value:=trim(fkeyNO); + CDS_Main.FieldByName('CRID').Value:=recNo; + + if trim(CRType.Text)='ɹ' then + begin + if not YFData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmbpRk.InitGrid(); + +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ,B.defNote5 from YP_InOut A'); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + if not CDS_Main.IsEmpty then + begin + CRTime.Date:= CDS_Main.fieldbyname('CRTime').AsDateTime; + CKName.ItemIndex:=CKName.Items.IndexOf(trim(CDS_Main.fieldbyname('CKName').AsString)); + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString)); + inoutNo.Text:=CDS_Main.fieldbyname('inoutNo').asstring; + ywy.Text:=CDS_Main.fieldbyname('ywy').asstring; + factoryName.Text:=CDS_Main.fieldbyname('factoryName').asstring; + // FirstName.TxtCode:=trim(CDS_Main.fieldbyname('FirstNo').AsString); + // FirstName.Text:=trim(CDS_Main.fieldbyname('FirstName').AsString); + end; + finally + end; +end; + +procedure TfrmbpRk.FormDestroy(Sender: TObject); +begin + frmbpRk:=nil; +end; + +procedure TfrmbpRk.FormCreate(Sender: TObject); +begin + CRTime.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmbpRk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cahide; +end; + +procedure TfrmbpRk.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + InitGrid(); + if fType=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNo,'RK','CP_InOut',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + inoutNo.Text:='R'+Trim(RightBStr(fkeyNo,Length(fkeyNo)-2)); + end; +end; + +procedure TfrmbpRk.TBSaveClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + CRTime.SetFocus; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if (trim(CRType.Text)='Ʒ') and (trim(factoryName.Text)='') then + begin + application.MessageBox('ӦϢΪգ','ʾϢ',0); + exit; + end; + + if cds_main.Locate('QtyUnit','',[]) then + begin + application.MessageBox('λΪգ','ʾϢ',0); + exit; + end; + if cds_main.Locate('QtyUnit',NULL,[]) then + begin + application.MessageBox('λΪգ','ʾϢ',0); + exit; + end; + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + begin + application.MessageBox('ݱʧܣ','ʾϢ',MB_ICONERROR); + end; +end; + +procedure TfrmbpRk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmbpRk.ToolButton1Click(Sender: TObject); +begin + frmCPManageSel:=TfrmCPManageSel.create(self); + with frmCPManageSel do + begin + if showmodal=1 then + begin + self.cds_main.DisableControls; + CDS_Main.DisableControls; + CDS_Main.First; + while not CDS_Main.Eof do + begin + if (cds_main.fieldbyname('ssel').AsBoolean) and + (not self.cds_main.Locate('P_Code',trim(cds_main.fieldbyname('CYNo').AsString),[])) then + begin + self.cds_main.Append; + // self.cds_main.FieldByName('kcid').Value:=trim(cds_main.fieldbyname('kcid').AsString); + // self.cds_main.FieldByName('mainID').Value:=trim(cds_main.fieldbyname('mainID').AsString); + // self.cds_main.FieldByName('subID').Value:=trim(cds_main.fieldbyname('subID').AsString); + // self.cds_main.FieldByName('MJID').Value:=trim(cds_main.fieldbyname('MJID').AsString); + // self.cds_main.FieldByName('MJXH').Value:=trim(cds_main.fieldbyname('MJXH').AsString); + // self.cds_main.FieldByName('CPTYPE').Value:=trim(cds_main.fieldbyname('MJType').AsString); + self.cds_main.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('CYNo').AsString); + self.cds_main.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('CYName').AsString); + self.cds_main.FieldByName('defnote5').Value:=trim(cds_main.fieldbyname('defnote5').AsString); + self.cds_main.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('CYSpec').AsString); + self.cds_main.FieldByName('P_cf').Value:=trim(cds_main.fieldbyname('CYECF').AsString); + self.cds_main.FieldByName('CYMF').Value:=trim(cds_main.fieldbyname('CYMF').AsString); + self.cds_main.FieldByName('CYKZ').Value:=trim(cds_main.fieldbyname('CYKZ').AsString); + self.cds_main.FieldByName('factoryName').Value:=trim(cds_main.fieldbyname('DefStr7').AsString); + self.cds_main.FieldByName('Kuwei').Value:=trim(cds_main.fieldbyname('DefStr2').AsString); + // self.cds_main.FieldByName('P_Color').Value:=trim(cds_main.fieldbyname('P_Color').AsString); + // self.cds_main.FieldByName('P_MF').Value:=cds_main.fieldbyname('P_MF').AsFloat; + // self.cds_main.FieldByName('P_KZ').Value:=cds_main.fieldbyname('P_KZ').AsFloat; + // self.cds_main.FieldByName('RollNum').Value:=; + // self.cds_main.FieldByName('Qty').Value:=cds_main.fieldbyname('MJLen').AsFloat; + // self.cds_main.FieldByName('QtyUnit').Value:=trim(cds_main.fieldbyname('MJTypeother').AsString); + self.cds_main.Post; + end; + cds_main.Next; + end; + cds_main.EnableControls; + self.cds_main.EnableControls; + end; + free; + end; +// cds_main.Append; +// cds_Main.fieldbyname('qtyUnit').Value:='M'; +// cds_main.post; +end; + +procedure TfrmbpRk.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + CDS_Main.Delete; +end; + +procedure TfrmbpRk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmbpRk.v1P_ColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_Color').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Main.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmbpRk.v1P_CodePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPCode'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmbpRk.ywyBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ywy'; + flagname:='ҵԱ'; + if ShowModal=1 then + begin + ywy.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmbpRk.v1QtyPropertiesEditValueChanged(Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Main do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%0.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmbpRk.ToolButton3Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + CopyAddRowCDS(CDS_Main); + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmbpRk.factoryNameBtnClick(Sender: TObject); +begin + frmZdyAttachGYS:=TfrmZdyAttachGYS.create(self); + with frmZdyAttachGYS do + begin + // DEFstr5.ItemIndex:=DEFstr5.Items.IndexOf('ӹ'); + // DEFstr5.Enabled:=false; + if showmodal=1 then + begin + factoryName.Text:=CDS_Hz.fieldbyname('zdyName').asstring; + end; + free; + end; +end; + +procedure TfrmbpRk.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_YDang where CYNO='''+trim(CYNO.Text)+''' '); + open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + IF (not cds_main.Locate('P_Code',trim(ADOQueryTmp.fieldbyname('CYNo').AsString),[])) then + begin + cds_main.Append; + self.cds_main.FieldByName('P_Code').Value:=trim(ADOQueryTmp.fieldbyname('CYNo').AsString); + self.cds_main.FieldByName('P_CodeName').Value:=trim(ADOQueryTmp.fieldbyname('CYName').AsString); + self.cds_main.FieldByName('defnote5').Value:=trim(ADOQueryTmp.fieldbyname('defnote5').AsString); + self.cds_main.FieldByName('P_spec').Value:=trim(ADOQueryTmp.fieldbyname('CYSpec').AsString); + self.cds_main.FieldByName('P_cf').Value:=trim(ADOQueryTmp.fieldbyname('CYECF').AsString); + self.cds_main.FieldByName('CYMF').Value:=trim(ADOQueryTmp.fieldbyname('CYMF').AsString); + self.cds_main.FieldByName('CYKZ').Value:=trim(ADOQueryTmp.fieldbyname('CYKZ').AsString); + self.cds_main.FieldByName('factoryName').Value:=trim(ADOQueryTmp.fieldbyname('DefStr7').AsString); + self.cds_main.FieldByName('Kuwei').Value:=trim(ADOQueryTmp.fieldbyname('DefStr2').AsString); + cds_main.Post; + CYNO.Text:=''; + end; + end + else + begin + application.MessageBox('˱Ŵ','ʾϢ',MB_ICONERROR); + CYNO.Text:=''; + end; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpRklist.dfm b/应收应付/样品仓库/U_BpRklist.dfm new file mode 100644 index 0000000..2fdd2ac --- /dev/null +++ b/应收应付/样品仓库/U_BpRklist.dfm @@ -0,0 +1,631 @@ +object frmBpRklist: TfrmBpRklist + Left = 92 + Top = 174 + Width = 1188 + Height = 518 + Caption = #20837#24211#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 = 1172 + AutoSize = True + 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 = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + Visible = False + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBAddSM: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25195#25551#20837#24211 + ImageIndex = 3 + Visible = False + OnClick = TBAddSMClick + end + object TBEdit: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TnochkClick + end + object TBExport: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1172 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #20837#24211#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 = 60 + Top = 36 + Width = 13 + Height = 12 + Caption = #33267 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 444 + Top = 16 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 224 + Top = 40 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#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 = 224 + Top = 16 + Width = 52 + Height = 12 + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 288 + Top = 100 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 444 + Top = 40 + Width = 53 + 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 = 676 + Top = 16 + Width = 54 + Height = 12 + Caption = #24211' '#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 676 + Top = 40 + Width = 53 + Height = 12 + Caption = #20379' '#24212' '#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 856 + Top = 16 + Width = 26 + Height = 12 + Caption = #39068#33394 + 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object P_CodeName: TEdit + Tag = 2 + Left = 500 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object P_Code: TEdit + Tag = 2 + Left = 280 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = P_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 280 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeNameChange + Items.Strings = ( + '' + #29983#20135#20837#24211) + end + object ckName: TComboBox + Left = 320 + Top = 96 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object ywy: TEdit + Tag = 2 + Left = 500 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + object kuwei: TEdit + Tag = 2 + Left = 732 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_CodeNameChange + end + object factoryName: TEdit + Tag = 2 + Left = 732 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = P_CodeNameChange + end + object P_Color: TEdit + Tag = 2 + Left = 888 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 113 + Width = 1172 + Height = 352 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1INoutNo: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'INoutNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1DefStr6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1CRTime: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + Width = 60 + end + object v1CRType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + end + object v1Column1: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1ywy: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 90 + end + object v1Column5: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 60 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Filler: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1FillTime: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1editer: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1editTime: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 93 + Width = 1172 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1172 + ClientRectTop = 19 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 1056 + Top = 128 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 772 + Top = 140 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 772 + Top = 145 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 876 + Top = 169 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 968 + Top = 12 + end +end diff --git a/应收应付/样品仓库/U_BpRklist.pas b/应收应付/样品仓库/U_BpRklist.pas new file mode 100644 index 0000000..e3b34f5 --- /dev/null +++ b/应收应付/样品仓库/U_BpRklist.pas @@ -0,0 +1,491 @@ +unit U_BpRklist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, cxPC; + +type + TfrmBpRklist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRType: TcxGridDBColumn; + v1CRTime: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1FillTime: TcxGridDBColumn; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + P_CodeName: TEdit; + P_Code: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label6: TLabel; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + TBAddSM: TToolButton; + v1INoutNo: TcxGridDBColumn; + Label7: TLabel; + ywy: TEdit; + v1ywy: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + kuwei: TEdit; + Label8: TLabel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1editer: TcxGridDBColumn; + v1editTime: TcxGridDBColumn; + v1DefStr6: TcxGridDBColumn; + Label9: TLabel; + factoryName: TEdit; + P_Color: TEdit; + Label10: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBAddSMClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + procedure Setstatus(); + { Private declarations } + public + fCKName:string; + canshu1:string; + { Public declarations } + end; + +var + frmBpRklist: TfrmBpRklist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpRk, U_BpSmRk; +{$R *.dfm} +procedure TfrmBpRklist.SetStatus(); +begin + TBedit.Visible:=false; + Tbdel.Visible:=false; + Tchk.Visible:=false; + Tnochk.Visible:=false; + IF trim(canshu1)='' then + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + end; + 1:begin + // tbcdel.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + Tchk.Visible:=true; + + end; + 1:begin + Tnochk.Visible:=true; + end; + end; + end; +end; +procedure TfrmBpRklist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpRklist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ,B.defnote5,B.defstr6 from YP_InOut A'); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add('where CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add('and CRFlag='''' '); + sql.Add('and valid=''Y'' '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(fckName)) ); + if cxTabControl1.TabIndex<2 then + sql.Add('and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpRklist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmBpRklist.FormDestroy(Sender: TObject); +begin + frmBpRklist:=nil; +end; + +procedure TfrmBpRklist.TBAddClick(Sender: TObject); +begin + frmbpRk:=TfrmbpRk.create(self); + with frmbpRk do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpRklist.P_CodeNameChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpRklist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + SetStatus(); + InitGrid(); +end; + +procedure TfrmBpRklist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; +end; + +procedure TfrmBpRklist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpRklist.TBEditClick(Sender: TObject); +var + rkNum,ckNum:double; +begin + if CDS_Main.IsEmpty then Exit; + { if Trim(CDS_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + rkNum:=0.0; + ckNum:=0.0; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select sum(Qty)as Qty from YP_InOut A'); + SQL.Add('where A.P_Code='''+Trim(CDS_Main.fieldbyname('P_Code').AsString)+''' '); + SQL.Add('and A.CRNO<'''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + sQL.Add('and A.valid=''Y'''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + rkNum:= ADOQueryCmd.fieldbyname('Qty').AsFloat; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select sum(Qty)as Qty from YP_InOut A'); + SQL.Add('where A.P_Code='''+Trim(CDS_Main.fieldbyname('P_Code').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + sQL.Add('and A.valid=''Y'''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + ckNum:= ADOQueryCmd.fieldbyname('Qty').AsFloat; + end; + + IF rkNum< ckNum then + begin + Application.MessageBox('Ѳݣ޸ģ','ʾ',0); + exit; + end; + + frmbpRk:=TfrmbpRk.create(self); + with frmbpRk do + begin + fkeyNo:=self.cds_main.fieldbyname('CRNO').AsString; + fType:=1; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpRklist.TBDelClick(Sender: TObject); +var + rkNum,ckNum:double; +begin + if CDS_Main.IsEmpty then Exit; + { if Trim(CDS_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + rkNum:=0.0; + ckNum:=0.0; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select sum(Qty)as Qty from YP_InOut A'); + SQL.Add('where A.P_Code='''+Trim(CDS_Main.fieldbyname('P_Code').AsString)+''' '); + SQL.Add('and A.CRNO<'''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + sQL.Add('and A.valid=''Y'''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + rkNum:= ADOQueryCmd.fieldbyname('Qty').AsFloat; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select sum(Qty)as Qty from YP_InOut A'); + SQL.Add('where A.P_Code='''+Trim(CDS_Main.fieldbyname('P_Code').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + sQL.Add('and A.valid=''Y'''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + ckNum:= ADOQueryCmd.fieldbyname('Qty').AsFloat; + end; + + IF rkNum< ckNum then + begin + Application.MessageBox('Ѳݣɾ','ʾ',0); + exit; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YP_InOut SET valid=''N'' '); + sql.Add(',editer='+quotedstr(trim(DName))); + sql.Add(',edittime=getdate()'); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + SQL.Add('and CRID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''' '); + + sql.Add('delete from YF_money_CR '); + SQL.Add('where CRType=''ӦǼ'' and YFName=''Ʒɹ'' '); + SQL.Add('and mainID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); +// SQL.Add('and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''' '); + { sql.Add('delete from YP_InOut '); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + SQL.Add('and CRID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''' '); + sql.Add('delete from YP_kc '); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); } + execsql; + end; + TBRafresh.Click; + except + Application.MessageBox('ɾʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpRklist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmBpRklist.TBPrintClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpRklist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpRklist.TBAddSMClick(Sender: TObject); +begin + frmBpSmRk:=TfrmBpSmRk.create(self); + with frmBpSmRk do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + // self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpRklist.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initGrid(); +end; + +procedure TfrmBpRklist.TchkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''1'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpRklist.TnochkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''0'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpSmCk.dfm b/应收应付/样品仓库/U_BpSmCk.dfm new file mode 100644 index 0000000..e1478bd --- /dev/null +++ b/应收应付/样品仓库/U_BpSmCk.dfm @@ -0,0 +1,828 @@ +object frmBpSmCk: TfrmBpSmCk + Left = 63 + Top = 181 + Width = 1308 + Height = 707 + Caption = #25195#25551#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1292 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = CPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 228 + Width = 1292 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object Label2: TLabel + Left = 504 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label3: TLabel + Left = 36 + Top = 80 + Width = 48 + Height = 12 + Caption = #21457#24448#21333#20301 + end + object Label4: TLabel + Left = 364 + Top = 20 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label5: TLabel + Left = 36 + Top = 64 + Width = 48 + Height = 12 + Caption = #35746#21333#20449#24687 + end + object Label6: TLabel + Left = 252 + Top = 64 + Width = 24 + Height = 12 + Caption = #20135#21697 + end + object Label7: TLabel + Left = 488 + Top = 64 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label8: TLabel + Left = 196 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label10: TLabel + Left = 856 + Top = 20 + Width = 48 + Height = 12 + Caption = #21457#24448#21333#20301 + end + object Label11: TLabel + Left = 668 + Top = 20 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object CRTime: TDateTimePicker + Left = 72 + Top = 16 + Width = 100 + Height = 20 + Date = 41509.970132187500000000 + Format = 'yyyy-MM-dd' + Time = 41509.970132187500000000 + TabOrder = 0 + end + object CRType: TComboBox + Left = 556 + Top = 16 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = #38144#21806#20986#24211 + Items.Strings = ( + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object FirstName: TBtnEditA + Left = 88 + Top = 76 + Width = 557 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FirstNameBtnClick + end + object ckName: TComboBox + Left = 392 + Top = 16 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 3 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object orderNO: TBtnEditA + Left = 88 + Top = 60 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = orderNOBtnClick + end + object PRTCodeName: TEdit + Left = 280 + Top = 60 + Width = 100 + Height = 20 + Enabled = False + ReadOnly = True + TabOrder = 5 + end + object PRTColor: TEdit + Left = 544 + Top = 60 + Width = 100 + Height = 20 + Enabled = False + ReadOnly = True + TabOrder = 6 + end + object InoutNo: TEdit + Left = 244 + Top = 16 + Width = 100 + Height = 20 + TabOrder = 7 + end + object ToCustName: TBtnEditA + Left = 912 + Top = 16 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ToCustNameBtnClick + end + object custName: TBtnEditA + Left = 720 + Top = 16 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 9 + OnBtnClick = custNameBtnClick + end + end + object GroupBox1: TGroupBox + Left = 0 + Top = 280 + Width = 565 + Height = 389 + Align = alLeft + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 561 + Height = 373 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = CPCK_DataLink.Default + object v1MJID: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1MJXH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'P_MF' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_KZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'P_KZ' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 60 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object GroupBox2: TGroupBox + Left = 565 + Top = 280 + Width = 612 + Height = 389 + Align = alLeft + TabOrder = 3 + object Panel2: TPanel + Left = 2 + Top = 14 + Width = 608 + Height = 75 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object Label9: TLabel + Left = 28 + Top = 20 + Width = 60 + Height = 20 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MJID: TEdit + Left = 92 + Top = 16 + Width = 185 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + end + object cxGrid3: TcxGrid + Left = 2 + Top = 89 + Width = 608 + Height = 298 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = Tv3CustomDrawCell + DataController.DataSource = DS_inout + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = cxGridDBColumn7 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = CPCK_DataLink.Default + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Width = 132 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 50 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 60 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 29 + Width = 1292 + Height = 199 + Align = alTop + BevelOuter = bvNone + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1180 + Height = 199 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_CP + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = CPCK_DataLink.SHuangSe + Styles.IncSearch = CPCK_DataLink.SHuangSe + Styles.Selection = CPCK_DataLink.SHuangSe + Styles.Header = CPCK_DataLink.Default + object v1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'MPrtCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1pbRollNum: TcxGridDBColumn + Caption = #26410#20837#24211#21305#25968 + DataBinding.FieldName = 'pbRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1pbQty: TcxGridDBColumn + Caption = #26410#20837#24211#25968#37327 + DataBinding.FieldName = 'pbQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkRollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rkRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkqty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'rkqty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckRollNum: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckQty: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'kcRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcQty: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'kcQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object Panel4: TPanel + Left = 1180 + Top = 0 + Width = 112 + Height = 199 + Align = alRight + TabOrder = 1 + object cxButton1: TcxButton + Left = 4 + Top = 16 + Width = 105 + Height = 37 + Caption = #36873#25321#20135#21697 + TabOrder = 0 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + end + end + object Panel5: TPanel + Left = 40 + Top = 320 + Width = 485 + Height = 261 + Caption = 'PanelXs' + TabOrder = 5 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 292 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 340 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 340 + Top = 341 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 337 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 101 + end + object CDS_CP: TClientDataSet + Aggregates = <> + Params = <> + Left = 350 + Top = 163 + end + object DS_CP: TDataSource + DataSet = CDS_CP + Left = 294 + Top = 155 + end + object CDS_Inout: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 296 + end + object DS_inout: TDataSource + DataSet = CDS_Inout + Left = 820 + Top = 308 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 628 + Top = 113 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 536 + Top = 101 + end +end diff --git a/应收应付/样品仓库/U_BpSmCk.pas b/应收应付/样品仓库/U_BpSmCk.pas new file mode 100644 index 0000000..82affba --- /dev/null +++ b/应收应付/样品仓库/U_BpSmCk.pas @@ -0,0 +1,864 @@ +unit U_BpSmCk; + +interface + +uses + Windows, Messages, SysUtils,StrUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, + cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, BtnEdit, Menus, cxLookAndFeelPainters, cxButtons, + cxCheckBox, cxCalendar; + +type + TfrmBpSmCk = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTime: TDateTimePicker; + Label2: TLabel; + CRType: TComboBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + FirstName: TBtnEditA; + v1MJID: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label4: TLabel; + Label5: TLabel; + orderNO: TBtnEditA; + Label6: TLabel; + PRTCodeName: TEdit; + Label7: TLabel; + PRTColor: TEdit; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + Label8: TLabel; + InoutNo: TEdit; + GroupBox1: TGroupBox; + Panel3: TPanel; + GroupBox2: TGroupBox; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label9: TLabel; + MJID: TEdit; + CDS_CP: TClientDataSet; + DS_CP: TDataSource; + CDS_Inout: TClientDataSet; + DS_inout: TDataSource; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + v1SSel: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1pbRollNum: TcxGridDBColumn; + v1pbQty: TcxGridDBColumn; + v1rkRollNum: TcxGridDBColumn; + v1rkqty: TcxGridDBColumn; + v1ckRollNum: TcxGridDBColumn; + v1ckQty: TcxGridDBColumn; + v1kcRollNum: TcxGridDBColumn; + v1kcQty: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + cxButton1: TcxButton; + Panel5: TPanel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + ToCustName: TBtnEditA; + Label10: TLabel; + custName: TBtnEditA; + Label11: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FirstNameBtnClick(Sender: TObject); + procedure orderNOBtnClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToCustNameBtnClick(Sender: TObject); + procedure custNameBtnClick(Sender: TObject); + private + fcrId:integer; + TblCprk:string; + procedure InitGrid(); + function savedate():Boolean; + procedure SetComboBox(); + function YSData(Order_Main10:TClientDataSet):Boolean; + procedure DoCRkNum(); + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + fkeyNO:string; + FType:integer; + fCKName:string; + { Public declarations } + end; + +var + frmBpSmCk: TfrmBpSmCk; + +implementation + uses + U_DataLink,U_Fun10,U_ZDYHelp, U_Bpkclist, U_ProductOrderNewList; +{$R *.dfm} +procedure TfrmBpSmCk.DropTable(); +var + strSQL:string; +begin + // TblCprk := '[##CP_INOut123' + trim(DCode) + IntToStr(Handle)+formatdatetime('hhnnsszzz',time) + ']'; + //ʱ + strSQL := 'IF OBJECT_ID(''tempdb..' + TblCprk + ''') IS NOT NULL DROP TABLE ' + TblCprk; + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmBpSmCk.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_INOut123' + trim(DCode) + IntToStr(Handle)+formatdatetime('hhnnsszzz',time) + ']'; + //ʱ + strSQL := 'IF OBJECT_ID(''tempdb..' + TblCprk + ''') IS NOT NULL DROP TABLE ' + TblCprk + #13 + + 'CREATE TABLE ' + TblCprk + ' (' + + 'MainID VARCHAR(20),' + + 'subID VARCHAR(20))'#13; + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmBpSmCk.DocRkNum(); +var + strsql:string; +begin + if cds_Cp.IsEmpty then exit; + strsql:=''; + + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add('delete from '+TblCprk); + execsql; + end; + with cds_Cp do + begin + DisableControls; + First; + while not eof do + begin + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(MainID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_CP.fieldbyname('mainID').AsString))); + sql.add(')'); + execsql; + end; + next; + end; + EnableControls; + end; + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_KC A'); + sql.Add('inner join '+TblCprk+' B on B.mainID=A.MainID '); + sql.Add('where A.Qty<>0'); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Inout); + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); +end; +function TfrmBpSmCk.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with Order_Main10 do + begin + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_main where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + Open; + cust:=FieldbyName('customerNOName').AsString; + end; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_sub where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+''''); + Open; + Price:=FieldbyName('PrtPrice').AsString; + end; + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(cust)+''' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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(cust); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTmp 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 YFName=''Ʒ'' '); + Open; + end; + if ADOQueryTmp.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(cust); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',date())); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Price; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(cust); + FieldByName('YFName').Value:='Ʒ'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString); + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.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 BP_INout A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType=''Ʒ'' )'); + sql.Add(',PS=(select isnull(count(*),0) from BP_INout A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType=''Ʒ'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + 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; + end; + Result:=True; +end; +procedure TfrmBpSmCk.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPCKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +function TfrmBpSmCk.savedate():Boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; + maxno:string; +begin + result:=false; + try + ADOQueryCmd.Connection.BeginTrans; + if FType=0 then + begin + Filler:=DName; + FillTime:=SGetServerDateTime(adoqueryTmp); + end + else + begin + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_InOut'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + open; + Filler:=adoqueryTmp.fieldbyname('Filler').AsString; + FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime; + end; + end; + + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CP_kc set RollNum=A.RollNum + B.RollNum, Qty=A.Qty + B.Qty '); + sql.Add('from CP_kc A'); + sql.Add('inner join CP_INout B on B.kcid=A.kcid'); + sql.Add('where B.CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CP_INout'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + execsql; + end; } + // CDS_Main.DisableControls; + // CDS_Main.First; + with CDS_Main do + begin + // while not eof do + // begin + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CP_INout'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=fcrid; + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('InoutNO').Value:=trim(InoutNO.Text); + ADOQueryCmd.FieldByName('custNo').Value:=trim(custName.TxtCode); + ADOQueryCmd.FieldByName('custName').Value:=trim(custName.Text); + ADOQueryCmd.FieldByName('TocustNo').Value:=trim(TocustName.TxtCode); + ADOQueryCmd.FieldByName('TocustName').Value:=trim(TocustName.Text); + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('CPTYPE').Value:=trim(fieldbyname('CPTYPE').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('P_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('P_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('P_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('P_Color').AsString); + ADOQueryCmd.FieldByName('P_MF').Value:=fieldbyname('P_MF').AsFloat; + ADOQueryCmd.FieldByName('P_KZ').Value:=fieldbyname('P_KZ').AsFloat; + ADOQueryCmd.FieldByName('RollNum').Value:=fieldbyname('RollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('QtyUnit').AsString); +// ADOQueryCmd.FieldByName('note').Value:=trim(fieldbyname('note').AsString); + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=dateTimetostr(FillTime); + // ADOQueryCmd.FieldByName('FirstNo').Value:=trim(FirstName.TxtCode); + // ADOQueryCmd.FieldByName('FirstName').Value:=trim(FirstName.Text); + if FType=1 then + begin + ADOQueryCmd.FieldByName('editer').Value:=trim(dName); + ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp); + end; + ADOQueryCmd.FieldByName('kcID').Value:=FieldByName('kcID').AsInteger; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CP_kc set RollNum=A.RollNum - B.RollNum, Qty=A.Qty - B.Qty '); + sql.Add('from CP_kc A'); + sql.Add('inner join CP_INout B on B.kcid=A.kcid'); + sql.Add('where B.CRNO='+quotedstr(trim(fkeyNO))); + sql.Add('and B.CRID='''+inttostr(fcriD)+''''); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CP_kc set RollNum=1'); + sql.Add('from CP_kc A'); + sql.Add('where A.RollNum=0 and A.Qty<>0 '); + execsql; + end; + + { if trim(CRType.Text)='Ʒ' then + begin + if not YSData(CDS_Main) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; } + end; + // CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + fcrId:=fcrId+1; + result:=true; + except + // CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmBpSmCk.InitGrid(); +begin + try + with adoqueryTmp do + begin + Close; + sql.Clear; + Filtered:=False; + sql.add('exec P_View_Order_CP :begdate,:enddate,:WSql') ; + Parameters.ParamByName('begdate').Value:='2012-10-01'; + Parameters.ParamByName('enddate').Value:='2011-10-01'; + Parameters.ParamByName('WSql').Value:=' and 1=2 '; + Open; + end; + SCreateCDS20(adoqueryTmp,CDS_CP); + SInitCDSData20(adoqueryTmp,CDS_CP); + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.* from CP_InOut A'); + // sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('where A.CRNO='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Inout); + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + if not CDS_Main.IsEmpty then + begin + CRTime.Date:= CDS_Main.fieldbyname('CRTime').AsDateTime; + CKName.ItemIndex:=CKName.Items.IndexOf(trim(CDS_Main.fieldbyname('CKName').AsString)); + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString)); + InoutNO.Text:=trim(CDS_Main.fieldbyname('InoutNO').AsString); + // orderNo.Text:=trim(CDS_Main.fieldbyname('orderNo').AsString); + // PRTCodeName.Text:=trim(CDS_Main.fieldbyname('PRTCodeName').AsString); + // PRTColor.Text:=trim(CDS_Main.fieldbyname('PRTColor').AsString); + // FirstName.TxtCode:=trim(CDS_Main.fieldbyname('FirstNo').AsString); + // FirstName.Text:=trim(CDS_Main.fieldbyname('FirstName').AsString); + end; + finally + end; +end; + +procedure TfrmBpSmCk.FormDestroy(Sender: TObject); +begin + frmBpSmCk:=nil; +end; + +procedure TfrmBpSmCk.FormCreate(Sender: TObject); +begin + CRTime.Date:=DServerDate; + GroupBox2.Align:=alclient; + + CreateTable(); + fcrID:=1; +end; + +procedure TfrmBpSmCk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + DropTable(); + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption,Tv3,'Ʒֿ'); + Action:=cahide; +end; + +procedure TfrmBpSmCk.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + readCxGrid(self.Caption,Tv2,'Ʒֿ'); + readCxGrid(self.Caption,Tv3,'Ʒֿ'); + SetComboBox(); + InitGrid(); + if fType=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNo,'CK','CP_InOut',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + inoutNo.Text:='C'+Trim(RightBStr(fkeyNo,Length(fkeyNo)-2)); + end; + MJID.SetFocus; +end; + +procedure TfrmBpSmCk.TBSaveClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + CRTime.SetFocus; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if trim(inoutNo.Text)='' then + begin + application.MessageBox('ⵥŲΪգ','ʾϢ',0); + exit; + end; + + if savedate() then + begin + InitCDSToCDS(CDS_Main,CDS_Inout); + CDS_Main.Delete; + with CDS_Inout do + begin + edit; + fieldbyname('SDefNote').Value:='ɹ'; + post; + end; + end + else + begin + // InitCDSToCDS(CDS_Main,CDS_Inout); + with CDS_Inout do + begin + append; + fieldbyname('MJID').Value:=CDS_Main.fieldbyname('MJID').AsString; + fieldbyname('SDefNote').Value:='ʧ'; + post; + end; + end; +end; + +procedure TfrmBpSmCk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBpSmCk.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + CDS_Main.Delete; +end; + +procedure TfrmBpSmCk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpSmCk.FirstNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='ص'; + MainType:='RanFactory'; + if ShowModal=1 then + begin + FirstName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FirstName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBpSmCk.orderNOBtnClick(Sender: TObject); +begin + { frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + if showmodal=1 then + begin + self.fmainID:=trim(Order_Main.fieldbyname('MainID').AsString); + self.fsubID:=trim(Order_Main.fieldbyname('subID').AsString); + self.orderNo.Text:=trim(Order_Main.fieldbyname('orderNo').AsString); + self.PRTCodeName.Text:=trim(Order_Main.fieldbyname('PRTCodeName').AsString); + self.PRTColor.Text:=trim(Order_Main.fieldbyname('PRTColor').AsString); + end; + free; + end; } +end; + +procedure TfrmBpSmCk.cxButton1Click(Sender: TObject); +begin + frmProductOrderNewList:=TfrmProductOrderNewList.create(self); + with frmProductOrderNewList do + begin + // fType:=10; + // fckName:=self.fckName; + if showmodal=1 then + begin + self.CDS_CP.EmptyDataSet; + Order_Main.DisableControls; + Order_Main.First; + + while not Order_Main.Eof do + begin + + if (order_main.fieldbyname('ssel').AsBoolean) and + (not self.CDS_CP.Locate('MprtCode',order_main.fieldbyname('MprtCode').AsString,[])) then + begin + InitCDSToCDS(order_main,self.CDS_CP); + end; + Order_Main.Next; + end; + Order_Main.EnableControls; + end; + free; + end; + DocRkNum(); + MJID.SetFocus; +end; + +procedure TfrmBpSmCk.MJIDKeyPress(Sender: TObject; var Key: Char); +var + IsCz:boolean; +begin + IsCz:=false; + if key=#13 then + begin + if trim(MJID.Text)='' then exit; + + if CDS_Main.Locate('MJID',trim(MJID.Text),[]) then + begin + TBsave.Click; + end + else + begin + with CDS_Inout do + begin + append; + fieldbyname('MJID').Value:=trim(MJID.Text); + fieldbyname('SDefNote').Value:=''; + post; + end; + end; + MJID.text:=''; + MJID.SetFocus; + end; +end; + +procedure TfrmBpSmCk.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin + i:=tv3.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]='ʧ') or (AViewInfo.GridRecord.Values[i]='') then + ACanvas.Brush.Color:=clred; + +end; + +procedure TfrmBpSmCk.ToCustNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + ToCustName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + ToCustName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBpSmCk.custNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + CustName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + CustName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + ToCustName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + ToCustName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_BpSmRk.dfm b/应收应付/样品仓库/U_BpSmRk.dfm new file mode 100644 index 0000000..d763891 --- /dev/null +++ b/应收应付/样品仓库/U_BpSmRk.dfm @@ -0,0 +1,796 @@ +object frmBpSmRk: TfrmBpSmRk + Left = 38 + Top = 26 + Width = 1308 + Height = 707 + Caption = #25195#25551#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1292 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = CPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 228 + Width = 1292 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 600 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label3: TLabel + Left = 36 + Top = 80 + Width = 48 + Height = 12 + Caption = #21457#24448#21333#20301 + end + object Label4: TLabel + Left = 420 + Top = 20 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label5: TLabel + Left = 36 + Top = 64 + Width = 48 + Height = 12 + Caption = #35746#21333#20449#24687 + end + object Label6: TLabel + Left = 252 + Top = 64 + Width = 24 + Height = 12 + Caption = #20135#21697 + end + object Label7: TLabel + Left = 488 + Top = 64 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label8: TLabel + Left = 228 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object CRTime: TDateTimePicker + Left = 84 + Top = 16 + Width = 100 + Height = 20 + Date = 41509.970132187500000000 + Format = 'yyyy-MM-dd' + Time = 41509.970132187500000000 + TabOrder = 0 + end + object CRType: TComboBox + Left = 656 + Top = 16 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = #38144#21806#20986#24211 + Items.Strings = ( + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object FirstName: TBtnEditA + Left = 88 + Top = 76 + Width = 557 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FirstNameBtnClick + end + object ckName: TComboBox + Left = 448 + Top = 16 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 3 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object orderNO: TBtnEditA + Left = 88 + Top = 60 + Width = 100 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = orderNOBtnClick + end + object PRTCodeName: TEdit + Left = 280 + Top = 60 + Width = 100 + Height = 20 + Enabled = False + ReadOnly = True + TabOrder = 5 + end + object PRTColor: TEdit + Left = 544 + Top = 60 + Width = 100 + Height = 20 + Enabled = False + ReadOnly = True + TabOrder = 6 + end + object InoutNo: TEdit + Left = 280 + Top = 16 + Width = 100 + Height = 20 + TabOrder = 7 + end + end + object GroupBox1: TGroupBox + Left = 0 + Top = 280 + Width = 565 + Height = 389 + Align = alLeft + TabOrder = 2 + Visible = False + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 561 + Height = 373 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = CPCK_DataLink.Default + object v1MJID: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1MJXH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'P_MF' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_KZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'P_KZ' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 60 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object GroupBox2: TGroupBox + Left = 565 + Top = 280 + Width = 612 + Height = 389 + Align = alLeft + TabOrder = 3 + object Panel2: TPanel + Left = 2 + Top = 14 + Width = 608 + Height = 75 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object Label9: TLabel + Left = 28 + Top = 20 + Width = 60 + Height = 20 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MJID: TEdit + Left = 92 + Top = 16 + Width = 185 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + end + object cxGrid3: TcxGrid + Left = 2 + Top = 89 + Width = 608 + Height = 298 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = Tv3CustomDrawCell + DataController.DataSource = DS_inout + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = cxGridDBColumn7 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = CPCK_DataLink.Default + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Width = 148 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 50 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLEn' + HeaderAlignmentHorz = taCenter + Styles.Content = CPCK_DataLink.FontBlue + Styles.Footer = CPCK_DataLink.FontBlue + Styles.Header = CPCK_DataLink.FontBlue + Width = 60 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MJStr7' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'MPRTSPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MJTypeother' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 29 + Width = 1292 + Height = 199 + Align = alTop + BevelOuter = bvNone + TabOrder = 4 + Visible = False + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1180 + Height = 199 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_CP + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = CPCK_DataLink.SHuangSe + Styles.IncSearch = CPCK_DataLink.SHuangSe + Styles.Selection = CPCK_DataLink.SHuangSe + Styles.Header = CPCK_DataLink.Default + object v1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'MPrtCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1pbRollNum: TcxGridDBColumn + Caption = #26410#20837#24211#21305#25968 + DataBinding.FieldName = 'pbRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1pbQty: TcxGridDBColumn + Caption = #26410#20837#24211#25968#37327 + DataBinding.FieldName = 'pbQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkRollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rkRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkqty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'rkqty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckRollNum: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckQty: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'kcRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcQty: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'kcQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object Panel4: TPanel + Left = 1180 + Top = 0 + Width = 112 + Height = 199 + Align = alRight + TabOrder = 1 + object cxButton1: TcxButton + Left = 4 + Top = 16 + Width = 105 + Height = 37 + Caption = #36873#25321#20135#21697 + TabOrder = 0 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + end + end + object Panel5: TPanel + Left = 52 + Top = 328 + Width = 485 + Height = 261 + Caption = 'PanelXs' + TabOrder = 5 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 292 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 340 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 340 + Top = 341 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 337 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 101 + end + object CDS_CP: TClientDataSet + Aggregates = <> + Params = <> + Left = 350 + Top = 163 + end + object DS_CP: TDataSource + DataSet = CDS_CP + Left = 294 + Top = 155 + end + object CDS_Inout: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 296 + end + object DS_inout: TDataSource + DataSet = CDS_Inout + Left = 820 + Top = 308 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 628 + Top = 113 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 536 + Top = 101 + end +end diff --git a/应收应付/样品仓库/U_BpSmRk.pas b/应收应付/样品仓库/U_BpSmRk.pas new file mode 100644 index 0000000..956f2c9 --- /dev/null +++ b/应收应付/样品仓库/U_BpSmRk.pas @@ -0,0 +1,844 @@ +unit U_BpSmRk; + +interface + +uses + Windows, Messages, SysUtils,StrUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, + cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, BtnEdit, Menus, cxLookAndFeelPainters, cxButtons, + cxCheckBox, cxCalendar; + +type + TfrmBpSmRk = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTime: TDateTimePicker; + Label2: TLabel; + CRType: TComboBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + FirstName: TBtnEditA; + v1MJID: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label4: TLabel; + Label5: TLabel; + orderNO: TBtnEditA; + Label6: TLabel; + PRTCodeName: TEdit; + Label7: TLabel; + PRTColor: TEdit; + v1P_Color: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + Label8: TLabel; + InoutNo: TEdit; + GroupBox1: TGroupBox; + Panel3: TPanel; + GroupBox2: TGroupBox; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label9: TLabel; + MJID: TEdit; + CDS_CP: TClientDataSet; + DS_CP: TDataSource; + CDS_Inout: TClientDataSet; + DS_inout: TDataSource; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + v1SSel: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1pbRollNum: TcxGridDBColumn; + v1pbQty: TcxGridDBColumn; + v1rkRollNum: TcxGridDBColumn; + v1rkqty: TcxGridDBColumn; + v1ckRollNum: TcxGridDBColumn; + v1ckQty: TcxGridDBColumn; + v1kcRollNum: TcxGridDBColumn; + v1kcQty: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + cxButton1: TcxButton; + Panel5: TPanel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FirstNameBtnClick(Sender: TObject); + procedure orderNOBtnClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + // fmainID,fsubID:string; + TblCprk:string; + fiscreate:boolean; + fCRID:integer; + procedure InitGrid(); + function savedate():Boolean; + procedure SetComboBox(); + function YSData(Order_Main10:TClientDataSet):Boolean; + procedure DoCRkNum(); + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + fkeyNO:string; + FType:integer; + fCKName:string; + + { Public declarations } + end; + +var + frmBpSmRk: TfrmBpSmRk; + +implementation + uses + U_DataLink,U_Fun10,U_ZDYHelp, U_Bpkclist, U_ProductOrderNewList; +{$R *.dfm} +procedure TfrmBpSmRk.DropTable(); +var + strSQL:string; +begin + // TblCprk := '[##CP_INOut123' + trim(DCode) + IntToStr(Handle)+formatdatetime('hhnnsszzz',time) + ']'; + //ʱ + strSQL := 'IF OBJECT_ID(''tempdb..' + TblCprk + ''') IS NOT NULL DROP TABLE ' + TblCprk; + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmBpSmRk.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_INOut123RK' + trim(DCode) + IntToStr(Handle)+formatdatetime('hhnnsszzz',time) + ']'; + //ʱ + strSQL := 'IF OBJECT_ID(''tempdb..' + TblCprk + ''') IS NOT NULL DROP TABLE ' + TblCprk + #13 + + 'CREATE TABLE ' + TblCprk + ' (' + + 'MainID VARCHAR(20),' + + 'subID VARCHAR(20))'#13; + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmBpSmRk.DocRkNum(); +var + strsql:string; +begin +{ if cds_Cp.IsEmpty then exit; + strsql:=''; + + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add('delete from '+TblCprk); + execsql; + end; + with cds_Cp do + begin + DisableControls; + First; + while not eof do + begin + with adoqueryTmp do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(MainID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_CP.fieldbyname('mainID').AsString))); + sql.add(')'); + execsql; + end; + next; + end; + EnableControls; + end; + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_KC A'); + sql.Add('inner join '+TblCprk+' B on B.mainID=A.MainID '); + sql.Add('where A.Qty<>0'); + open; + end; } + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add(' select A.MJXH,A.MJID,A.MJLen,A.MainID,A.SubID,A.MJType,A.MJTypeother,A.MJStr2,A.MJSTR7,B.MPrtCode,B.MPRTSpec,RollNum=1 from WFB_MJJY A '); + sql.Add('inner join JYOrder_Main B on B.MainId=A.MainId'); + sql.Add(' where A.MJID='+quotedstr(trim(MJID.Text))); + open; + end; + IF fiscreate=false then + begin + SCreateCDS20(adoqueryTmp,CDS_Inout); + fiscreate:=true; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); +end; +function TfrmBpSmRk.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with Order_Main10 do + begin + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_main where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + Open; + cust:=FieldbyName('customerNOName').AsString; + end; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_sub where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+''''); + Open; + Price:=FieldbyName('PrtPrice').AsString; + end; + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(cust)+''' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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(cust); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTmp 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 YFName=''Ʒ'' '); + Open; + end; + if ADOQueryTmp.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(cust); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',date())); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Price; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(cust); + FieldByName('YFName').Value:='Ʒ'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString); + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.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 BP_INout A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType=''Ʒ'' )'); + sql.Add(',PS=(select isnull(count(*),0) from BP_INout A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType=''Ʒ'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + 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; + end; + Result:=True; +end; +procedure TfrmBpSmRk.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''CPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +function TfrmBpSmRk.savedate():Boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; + maxno:string; + +begin + result:=false; + try + if FType=0 then + begin + Filler:=DName; + FillTime:=SGetServerDateTime(adoqueryTmp); + end + else + begin + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_InOut'); + sql.Add('where CRNO='+quotedstr(trim(fkeyNO))); + open; + Filler:=adoqueryTmp.fieldbyname('Filler').AsString; + FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime; + end; + end; + + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from CP_Kcid'); + Open; + end; + fkcID:=ADOQueryCmd.fieldbyname('kcid').AsInteger; + + + + with CDS_Main do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CP_INout'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=fCRID; + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('InoutNO').Value:=trim(InoutNO.Text); + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('CPTYPE').Value:=trim(fieldbyname('MJTYPE').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('MPRTCode').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('MJSTR7').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('MPRTSPEC').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=''; + ADOQueryCmd.FieldByName('P_MF').Value:=0; + ADOQueryCmd.FieldByName('P_KZ').Value:=0; + ADOQueryCmd.FieldByName('RollNum').Value:=trim(fieldbyname('RollNum').AsString); + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('MJlen').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('MJTypeother').AsString); +// ADOQueryCmd.FieldByName('note').Value:=trim(fieldbyname('note').AsString); + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=dateTimetostr(FillTime); + // ADOQueryCmd.FieldByName('FirstNo').Value:=trim(FirstName.TxtCode); + // ADOQueryCmd.FieldByName('FirstName').Value:=trim(FirstName.Text); + if FType=1 then + begin + ADOQueryCmd.FieldByName('editer').Value:=trim(dName); + ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp); + end; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.FieldByName('CKName').Value:=trim(CKName.Text); + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('CRID').Value:=fCRID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + ADOQueryCmd.FieldByName('CRType').Value:=trim(CRType.Text); + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + ADOQueryCmd.FieldByName('subID').Value:=trim(fieldbyname('subID').AsString); + ADOQueryCmd.FieldByName('MJXH').Value:=trim(fieldbyname('MJXH').AsString); + ADOQueryCmd.FieldByName('MJID').Value:=trim(fieldbyname('MJID').AsString); + ADOQueryCmd.FieldByName('CPTYPE').Value:=trim(fieldbyname('MJTYPE').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('MPRTCode').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('MJSTR7').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('MPRTSPEC').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=''; + ADOQueryCmd.FieldByName('P_MF').Value:=0; + ADOQueryCmd.FieldByName('P_KZ').Value:=0; + ADOQueryCmd.FieldByName('RollNum').Value:=1; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('MJlen').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('MJTypeother').AsString); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update WFB_MJJY SET MJStr2='''' '); + sql.Add('where MJID='+quotedstr(trim(CDS_Main.fieldbyname('MJID').AsString))); + execsql; + end; + end; + // CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + fCRID:=fCRID+1; + result:=true; + except + // CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmBpSmRk.InitGrid(); +begin + try + with adoqueryTmp do + begin + Close; + sql.Clear; + Filtered:=False; + sql.add('exec P_View_Order_CP :begdate,:enddate,:WSql') ; + Parameters.ParamByName('begdate').Value:='2012-10-01'; + Parameters.ParamByName('enddate').Value:='2011-10-01'; + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(adoqueryTmp,CDS_CP); + SInitCDSData20(adoqueryTmp,CDS_CP); + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.* from CP_InOut A'); + // sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('where A.CRNO='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Inout); + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + if not CDS_Main.IsEmpty then + begin + CRTime.Date:= CDS_Main.fieldbyname('CRTime').AsDateTime; + CKName.ItemIndex:=CKName.Items.IndexOf(trim(CDS_Main.fieldbyname('CKName').AsString)); + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString)); + // fmainID:=trim(CDS_Main.fieldbyname('MainID').AsString); + // fsubID:=trim(CDS_Main.fieldbyname('subID').AsString); + InoutNO.Text:=trim(CDS_Main.fieldbyname('InoutNO').AsString); + // orderNo.Text:=trim(CDS_Main.fieldbyname('orderNo').AsString); + // PRTCodeName.Text:=trim(CDS_Main.fieldbyname('PRTCodeName').AsString); + // PRTColor.Text:=trim(CDS_Main.fieldbyname('PRTColor').AsString); + // FirstName.TxtCode:=trim(CDS_Main.fieldbyname('FirstNo').AsString); + // FirstName.Text:=trim(CDS_Main.fieldbyname('FirstName').AsString); + end; + finally + end; +end; + +procedure TfrmBpSmRk.FormDestroy(Sender: TObject); +begin + frmBpSmRk:=nil; +end; + +procedure TfrmBpSmRk.FormCreate(Sender: TObject); +begin + CRTime.Date:=DServerDate; + GroupBox2.Align:=alclient; + + fCRID:=1; + CreateTable(); + fiscreate:=false; +end; + +procedure TfrmBpSmRk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + DropTable(); + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption,Tv3,'Ʒֿ'); + Action:=cahide; +end; + +procedure TfrmBpSmRk.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + readCxGrid(self.Caption,Tv2,'Ʒֿ'); + readCxGrid(self.Caption,Tv3,'Ʒֿ'); + SetComboBox(); + InitGrid(); + if fType=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNO,'RK','CP_InOut',3,1)=False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + inoutNo.Text:='R'+Trim(RightBStr(fkeyNo,Length(fkeyNo)-2)); + end; + MJID.SetFocus; +end; + +procedure TfrmBpSmRk.TBSaveClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + CRTime.SetFocus; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if trim(inoutNo.Text)='' then + begin + application.MessageBox('ⵥŲΪգ','ʾϢ',0); + exit; + end; + + if savedate() then + begin + InitCDSToCDS(CDS_Main,CDS_Inout); + CDS_Main.Delete; + with CDS_Inout do + begin + edit; + fieldbyname('SDefNote').Value:='ɹ'; + post; + end; + end + else + begin + // InitCDSToCDS(CDS_Main,CDS_Inout); + with CDS_Inout do + begin + append; + fieldbyname('MJID').Value:=CDS_Main.fieldbyname('MJID').AsString; + fieldbyname('SDefNote').Value:='ʧ'; + post; + end; + end; +end; + +procedure TfrmBpSmRk.v1P_CodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBpSmRk.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + CDS_Main.Delete; +end; + +procedure TfrmBpSmRk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpSmRk.FirstNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='ص'; + MainType:='RanFactory'; + if ShowModal=1 then + begin + FirstName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FirstName.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBpSmRk.orderNOBtnClick(Sender: TObject); +begin + { frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1:='Ȩ'; + if showmodal=1 then + begin + self.fmainID:=trim(Order_Main.fieldbyname('MainID').AsString); + self.fsubID:=trim(Order_Main.fieldbyname('subID').AsString); + self.orderNo.Text:=trim(Order_Main.fieldbyname('orderNo').AsString); + self.PRTCodeName.Text:=trim(Order_Main.fieldbyname('PRTCodeName').AsString); + self.PRTColor.Text:=trim(Order_Main.fieldbyname('PRTColor').AsString); + end; + free; + end; } +end; + +procedure TfrmBpSmRk.cxButton1Click(Sender: TObject); +begin + frmProductOrderNewList:=TfrmProductOrderNewList.create(self); + with frmProductOrderNewList do + begin + // fType:=10; + // fckName:=self.fckName; + if showmodal=1 then + begin + self.CDS_CP.EmptyDataSet; + Order_Main.DisableControls; + Order_Main.First; + while not Order_Main.Eof do + begin + if (order_main.fieldbyname('ssel').AsBoolean) and + (not self.CDS_CP.Locate('MprtCode',order_main.fieldbyname('MprtCode').AsString,[])) then + begin + InitCDSToCDS(order_main,self.CDS_CP); + end; + Order_Main.Next; + end; + Order_Main.EnableControls; + end; + free; + end; + DocRkNum(); +end; + +procedure TfrmBpSmRk.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if key=#13 then + begin + if trim(MJID.Text)='' then exit; + DocRkNum(); + IF CDS_Main.IsEmpty then + begin + with CDS_Inout do + begin + append; + fieldbyname('MJID').Value:=trim(MJID.Text); + fieldbyname('SDefNote').Value:='ɨʧ<벻>'; + post; + end; + end + else + IF trim(CDS_Main.FieldByName('MJStr2').AsString)<>'δ' then + begin + with CDS_Inout do + begin + append; + fieldbyname('MJID').Value:=trim(MJID.Text); + fieldbyname('SDefNote').Value:='ɨʧ<>'; + post; + end; + end + else + if CDS_Main.Locate('MJID',trim(MJID.Text),[]) then + begin + TBsave.Click; + end; + MJID.text:=''; + MJID.SetFocus; + end; +end; + +procedure TfrmBpSmRk.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin + i:=tv3.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]<>'ɹ') then + ACanvas.Brush.Color:=clred; + +end; + +end. diff --git a/应收应付/样品仓库/U_Bpckchklist.dfm b/应收应付/样品仓库/U_Bpckchklist.dfm new file mode 100644 index 0000000..1aa3023 --- /dev/null +++ b/应收应付/样品仓库/U_Bpckchklist.dfm @@ -0,0 +1,674 @@ +object frmBpckchklist: TfrmBpckchklist + Left = 125 + Top = 134 + Width = 1163 + Height = 569 + Caption = #20986#24211#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 = 1147 + 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 = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + Visible = False + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBsmADD: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25195#25551#20986#24211 + ImageIndex = 3 + Visible = False + OnClick = TBsmADDClick + end + object TBEdit: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TnochkClick + end + object TBExport: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #25171#21360#32454#30721#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TbPrint1: TToolButton + Left = 714 + Top = 0 + Caption = #25171#21360#21457#36135#21333 + ImageIndex = 12 + Visible = False + OnClick = TbPrint1Click + end + object TBClose: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1147 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #20986#24211#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 = 464 + Top = 40 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 464 + Top = 16 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#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 = 232 + Top = 16 + Width = 52 + Height = 12 + Caption = #20986#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 316 + Top = 164 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 688 + Top = 16 + 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 = 968 + Top = 160 + Width = 26 + Height = 12 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 688 + Top = 40 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 232 + Top = 40 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 90 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 90 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object P_CodeName: TEdit + Tag = 2 + Left = 520 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object P_Code: TEdit + Tag = 2 + Left = 520 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = P_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 288 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeNameChange + Items.Strings = ( + '' + #38144#21806#20986#24211 + #21152#24037#20986#24211) + end + object ckName: TComboBox + Left = 344 + Top = 160 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object ywy: TEdit + Tag = 2 + Left = 732 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + object kuwei: TEdit + Tag = 2 + Left = 1000 + Top = 156 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_CodeNameChange + end + object P_Color: TEdit + Tag = 2 + Left = 732 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = P_CodeNameChange + end + object custName: TEdit + Tag = 2 + Left = 288 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 117 + Width = 1147 + Height = 396 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1inoutNO: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'inoutNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1custName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'custName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1CRTime: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1CRType: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 90 + end + object v1defnote5: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1CPTYPE: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPTYPE' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 50 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Filler: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1FillTime: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column6: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 97 + Width = 1147 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1147 + ClientRectTop = 19 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 1132 + Top = 40 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 624 + Top = 100 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 1096 + Top = 37 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 828 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 944 + Top = 56 + end + object ADOPrint: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 844 + Top = 52 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 876 + Top = 48 + end + object RMGridReport1: 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 = 896 + Top = 8 + 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 = 948 + Top = 20 + end +end diff --git a/应收应付/样品仓库/U_Bpckchklist.pas b/应收应付/样品仓库/U_Bpckchklist.pas new file mode 100644 index 0000000..fc18143 --- /dev/null +++ b/应收应付/样品仓库/U_Bpckchklist.pas @@ -0,0 +1,480 @@ +unit U_Bpckchklist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, RM_Common, RM_Class, RM_e_Xls, RM_GridReport, RM_System, + RM_Dataset, cxPC; + +type + TfrmBpckchklist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRType: TcxGridDBColumn; + v1CRTime: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1FillTime: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + P_CodeName: TEdit; + P_Code: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + v1CPTYPE: TcxGridDBColumn; + ckName: TComboBox; + Label6: TLabel; + v1P_Color: TcxGridDBColumn; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + v1P_Code: TcxGridDBColumn; + v1inoutNO: TcxGridDBColumn; + TBsmADD: TToolButton; + ywy: TEdit; + Label7: TLabel; + v1custName: TcxGridDBColumn; + TbPrint1: TToolButton; + v1Column1: TcxGridDBColumn; + kuwei: TEdit; + Label8: TLabel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1defnote5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + P_Color: TEdit; + Label9: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + custName: TEdit; + Label2: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBsmADDClick(Sender: TObject); + procedure TbPrint1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + procedure SetStatus(); + { Private declarations } + public + fCKName:string; + canshu1:string; + { Public declarations } + end; + +var + frmBpckchklist: TfrmBpckchklist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpCk, U_BpSmCk; +{$R *.dfm} +procedure TfrmBpckchklist.SetStatus(); +begin + TBedit.Visible:=false; + Tbdel.Visible:=false; + TBAdd.Visible:=true; + Tchk.Visible:=false; + Tnochk.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + Tchk.Visible:=true; + end; + 1:begin + Tnochk.Visible:=true; + end; + end; +end; +procedure TfrmBpckchklist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpckchklist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ,B.defnote5 from YP_InOut A'); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add('where CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add('and CRFlag='''' '); + sql.Add('and valid=''Y'' '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); + if trim(canshu1)='ҵԱ' then + sql.Add('and A.Filler='+quotedstr(trim(DName)) ); + if cxTabControl1.TabIndex<2 then + sql.Add('and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpckchklist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmBpckchklist.FormDestroy(Sender: TObject); +begin + frmBpckchklist:=nil; +end; + +procedure TfrmBpckchklist.TBAddClick(Sender: TObject); +begin + frmbpck:=Tfrmbpck.create(self); + with frmbpck do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + IF trim(self.canshu1)='ҵԱ'then + begin + ywy.text:=trim(Dname); + ywy.Enabled:=false; + end; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpckchklist.P_CodeNameChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpckchklist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + SetStatus(); + InitGrid(); +end; + +procedure TfrmBpckchklist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpckchklist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpckchklist.TBEditClick(Sender: TObject); +begin + if cds_main.IsEmpty then exit; + + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BP_InOut A'); + SQL.Add('where A.kcid='''+Trim(CDS_Main.fieldbyname('kcid').AsString)+''' '); + sQL.Add('and A.CRFlag='''''); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('Ѳݣ޸ģ','ʾ',0); + Exit; + end; } + + frmbpck:=Tfrmbpck.create(self); + with frmbpck do + begin + fkeyNo:=self.cds_main.fieldbyname('CRNO').AsString; + fType:=1; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + free; + end; +end; + +procedure TfrmBpckchklist.TBDelClick(Sender: TObject); +var + YFID,CRID:string; +begin + if CDS_Main.IsEmpty then Exit; + + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + + + try + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + + sql.Add('update YP_InOut SET valid=''N'' '); + sql.Add(',editer='+quotedstr(trim(DName))); + sql.Add(',edittime=getdate()'); + SQL.Add('where CRNO='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + + sql.Add('delete from YF_money_CR '); + SQL.Add('where mainID='''+Trim(CDS_Main.fieldbyname('CRNO').AsString)+''' '); + SQL.Add('and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''' '); + + execsql; + end; + TBRafresh.Click; + except + Application.MessageBox('ɾʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpckchklist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmBpckchklist.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Print_cpCkMd '); + sql.Add('@inoutNo='+quotedstr(trim(CDS_Main.fieldbyname('inoutNO').AsString))); + sql.Add(',@flag='+quotedstr(trim(''))); + open; + end; + + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmBpckchklist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpckchklist.TBsmADDClick(Sender: TObject); +begin + frmbpsmck:=Tfrmbpsmck.create(self); + with frmbpsmck do + begin + fkeyNo:=''; + fType:=0; + fckName:=self.fckName; + if showmodal=1 then + begin + TBRafresh.Click; + // self.CDS_Main.Locate('crNo',trim(fkeyNo),[]) ; + end; + TBRafresh.Click; + free; + end; +end; + +procedure TfrmBpckchklist.TbPrint1Click(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select inoutNo,custName,TocustName,P_Code,P_CodeName,P_Spec,sum(RollNum) as RollNum,sum(Qty) as Qty from CP_INout A '); + sql.Add('where A.inoutNo='+quotedstr(trim(CDS_Main.fieldbyname('inoutNO').AsString))); + sql.Add('group by inoutNo,custName,TocustName,P_Code,P_CodeName,P_Spec '); + sql.Add('order by inoutNo,custName,TocustName,P_Code '); + open; + end; + + try + filepath:=ExtractFilePath(Application.ExeName) + 'report\.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmBpckchklist.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initGrid(); +end; + +procedure TfrmBpckchklist.TchkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''1'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmBpckchklist.TnochkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YP_InOut SET status=''0'' '); + sql.Add('where CRNO='+quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/应收应付/样品仓库/U_Bpkclist.dfm b/应收应付/样品仓库/U_Bpkclist.dfm new file mode 100644 index 0000000..c40a499 --- /dev/null +++ b/应收应付/样品仓库/U_Bpkclist.dfm @@ -0,0 +1,538 @@ +object frmBpkclist: TfrmBpkclist + Left = 90 + Top = 168 + Width = 1196 + Height = 557 + Caption = #26679#21697#24211#23384#20449#24687#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 = 1180 + 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 = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TOk: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + Visible = False + OnClick = TOkClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1180 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #20837#24211#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 = 64 + Top = 40 + Width = 13 + Height = 12 + Caption = #33267 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 248 + Top = 40 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 448 + Top = 40 + Width = 52 + Height = 12 + Caption = #35268#26684#22411#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 = 248 + Top = 16 + Width = 52 + Height = 12 + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 288 + Top = 72 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 448 + Top = 16 + 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 Label8: TLabel + Left = 672 + Top = 16 + Width = 26 + Height = 12 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 672 + Top = 40 + Width = 26 + Height = 12 + Caption = #39068#33394 + 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 = 100 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 100 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + ShowCheckbox = True + TabOrder = 1 + end + object P_Code: TEdit + Tag = 2 + Left = 304 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeChange + end + object P_spec: TEdit + Tag = 2 + Left = 504 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = P_CodeChange + end + object CRType: TComboBox + Tag = 2 + Left = 304 + Top = 12 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeChange + Items.Strings = ( + '' + #29983#20135#20837#24211) + end + object CheckBox1: TCheckBox + Left = 872 + Top = 12 + Width = 97 + Height = 17 + Caption = #21547#24211#23384#20026#38646 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object ckName: TComboBox + Left = 320 + Top = 68 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object P_CodeName: TEdit + Tag = 2 + Left = 504 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_CodeChange + end + object kuwei: TEdit + Tag = 2 + Left = 700 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = P_CodeChange + end + object P_Color: TEdit + Tag = 2 + Left = 700 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = P_CodeChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1180 + Height = 316 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + Column = v1Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + end + object v1CRTime: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1CRType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'P_MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_KZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'P_KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1CPType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 59 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 59 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #36135#29289#26469#28304 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 536 + Top = 4 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 576 + Top = 1 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 612 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 504 + Top = 12 + end +end diff --git a/应收应付/样品仓库/U_Bpkclist.pas b/应收应付/样品仓库/U_Bpkclist.pas new file mode 100644 index 0000000..ad85ba1 --- /dev/null +++ b/应收应付/样品仓库/U_Bpkclist.pas @@ -0,0 +1,230 @@ +unit U_Bpkclist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, cxCheckBox; + +type + TfrmBpkclist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRType: TcxGridDBColumn; + v1CRTime: TcxGridDBColumn; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + P_Code: TEdit; + P_spec: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + TOk: TToolButton; + v1Ssel: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1CPType: TcxGridDBColumn; + ckName: TComboBox; + Label6: TLabel; + v1Column1: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + P_CodeName: TEdit; + Label7: TLabel; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + kuwei: TEdit; + Label8: TLabel; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + P_Color: TEdit; + Label9: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure P_CodeChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TOkClick(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + { Private declarations } + public + fType:integer; + fCKName:string; + + { Public declarations } + end; + +var + frmBpkclist: TfrmBpkclist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpRk; +{$R *.dfm} +procedure TfrmBpkclist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; +end; +procedure TfrmBpkclist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.Price,cast(A.Qty*B.Price as decimal(18,2)) as money '); + sql.Add('from YP_KC A'); + sql.Add('inner join YP_Inout B on B.CRNO=A.CRNO and B.CRID=A.CRID'); + sql.Add('where 1=1'); + if begdate.Checked then + sql.Add('and A.CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + if enddate.Checked then + sql.Add('and A.CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + if not CheckBox1.Checked then + sql.Add('and A.qty<>0 '); + if trim(FckName)<>'' then + sql.Add('and A.ckName='+quotedstr(trim(FckName)) ); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpkclist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + if fType=10 then Action:=cahide + else Action:=cafree; +end; + +procedure TfrmBpkclist.FormDestroy(Sender: TObject); +begin + frmBpkclist:=nil; +end; + +procedure TfrmBpkclist.P_CodeChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpkclist.FormShow(Sender: TObject); +begin + if fType=10 then + begin + TOk.Visible:=true; + v1Ssel.Visible:=true; + end; + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetComboBox(); + InitGrid(); +end; + +procedure TfrmBpkclist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpkclist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpkclist.TBRafreshClick(Sender: TObject); +begin + + initGrid(); +end; + +procedure TfrmBpkclist.TBPrintClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpkclist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpkclist.TOkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +end. diff --git a/应收应付/样品仓库/U_Bpkcsumlist.dfm b/应收应付/样品仓库/U_Bpkcsumlist.dfm new file mode 100644 index 0000000..9158ac0 --- /dev/null +++ b/应收应付/样品仓库/U_Bpkcsumlist.dfm @@ -0,0 +1,640 @@ +object frmBpkcsumlist: TfrmBpkcsumlist + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #26679#21697#24211#23384#20449#24687#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 = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#35810 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TOk: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + Visible = False + OnClick = TOkClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #35774#32622#39044#35686#25968#37327 + ImageIndex = 52 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 57 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 83 + Width = 52 + Height = 12 + Caption = #20837#24211#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 = 64 + Top = 108 + Width = 13 + Height = 12 + Caption = #33267 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 16 + Top = 20 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 320 + Top = 20 + Width = 26 + 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 Label5: TLabel + Left = 172 + Top = 108 + Width = 52 + Height = 12 + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 288 + Top = 72 + Width = 24 + Height = 12 + Caption = #20179#24211 + end + object Label7: TLabel + Left = 164 + Top = 20 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 620 + Top = 64 + Width = 26 + Height = 12 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 828 + Top = 20 + Width = 52 + Height = 12 + Caption = #39044#35686#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 880 + Top = 40 + Width = 144 + Height = 12 + Caption = #25913#21464#39044#35686#25968#37327#21518#35831#28857#20987#26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 456 + Top = 20 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 584 + Top = 20 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + 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 = 79 + Width = 100 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 103 + Width = 100 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + ShowCheckbox = True + TabOrder = 1 + end + object P_Code: TEdit + Tag = 2 + Left = 72 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = P_CodeChange + end + object P_spec: TEdit + Tag = 2 + Left = 352 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = P_CodeChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 104 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + OnChange = P_CodeChange + Items.Strings = ( + '' + #29983#20135#20837#24211) + end + object CheckBox1: TCheckBox + Left = 732 + Top = 16 + Width = 97 + Height = 17 + Caption = #21547#24211#23384#20026#38646 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = CheckBox1Click + end + object ckName: TComboBox + Left = 320 + Top = 68 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object P_CodeName: TEdit + Tag = 2 + Left = 220 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = P_CodeChange + end + object kuwei: TEdit + Tag = 2 + Left = 648 + Top = 60 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = P_CodeChange + end + object Edit1: TEdit + Left = 880 + Top = 16 + Width = 53 + Height = 20 + TabOrder = 9 + Text = '5' + end + object CheckBox2: TCheckBox + Left = 944 + Top = 16 + Width = 129 + Height = 17 + Caption = #21482#26174#31034#39044#35686#35760#24405 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = CheckBox2Click + end + object P_Color: TEdit + Tag = 2 + Left = 484 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = P_CodeChange + end + object factoryName: TEdit + Tag = 2 + Left = 624 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = P_CodeChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1366 + Height = 496 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1P_CodeName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1RollNum + end + item + Kind = skSum + Column = v1Qty + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + end + object v1kuwei: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kuwei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object v1factoryName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1P_Code: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_SPEC: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_SPEC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1defnote5: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1P_MF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1P_KZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1RollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 60 + end + object v1Qty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.FontBlue + Styles.Footer = YPCK_DataLink.FontBlue + Styles.Header = YPCK_DataLink.FontBlue + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckRollnum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclGreen + Styles.Footer = YPCK_DataLink.cxStyle_fontclGreen + Styles.Header = YPCK_DataLink.cxStyle_fontclGreen + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclGreen + Styles.Footer = YPCK_DataLink.cxStyle_fontclGreen + Styles.Header = YPCK_DataLink.cxStyle_fontclGreen + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'kcRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'kcQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Footer = YPCK_DataLink.cxStyle_fontclFuchsia + Styles.Header = YPCK_DataLink.cxStyle_fontclFuchsia + Width = 60 + end + object v1QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 536 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 576 + Top = 1 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 612 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 500 + end +end diff --git a/应收应付/样品仓库/U_Bpkcsumlist.pas b/应收应付/样品仓库/U_Bpkcsumlist.pas new file mode 100644 index 0000000..190fc02 --- /dev/null +++ b/应收应付/样品仓库/U_Bpkcsumlist.pas @@ -0,0 +1,306 @@ +unit U_Bpkcsumlist; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu, cxCheckBox; + +type + TfrmBpkcsumlist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1P_SPEC: TcxGridDBColumn; + v1P_MF: TcxGridDBColumn; + v1P_KZ: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + P_Code: TEdit; + P_spec: TEdit; + CRType: TComboBox; + Label5: TLabel; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + CDS_Main: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + TOk: TToolButton; + v1Ssel: TcxGridDBColumn; + CheckBox1: TCheckBox; + ckName: TComboBox; + Label6: TLabel; + v1Column1: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + P_CodeName: TEdit; + Label7: TLabel; + kuwei: TEdit; + Label8: TLabel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label9: TLabel; + Edit1: TEdit; + Label10: TLabel; + v1factoryName: TcxGridDBColumn; + v1defnote5: TcxGridDBColumn; + CheckBox2: TCheckBox; + v1kuwei: TcxGridDBColumn; + ToolButton1: TToolButton; + P_Color: TEdit; + Label11: TLabel; + factoryName: TEdit; + Label12: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure P_CodeChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TOkClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + procedure SetComboBox(); + { Private declarations } + public + fType:integer; + fCKName:string; + canshu2:string; + + { Public declarations } + end; + +var + frmBpkcsumlist: TfrmBpkcsumlist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, U_BpRk; +{$R *.dfm} +procedure TfrmBpkcsumlist.SetComboBox(); +begin + ckName.Items.Clear; + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPCK'' '); + if trim(fCKName)<>'' then + sql.Add('and zdyName='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + ckName.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if ckName.Items.Count>0 then ckName.ItemIndex:=0; + + CRType.Items.Clear; + CRType.Items.Add(''); + with adoQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''YPRKTYPE'''); + if trim(fCKName)<>'' then + sql.Add('and note='+quotedstr(trim(fCKName))); + open; + while not eof do + begin + CRType.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + end; + if CRType.Items.Count>0 then CRType.ItemIndex:=0; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''YPKCJYFLAG'''); + open; + IF not IsEmpty then + Edit1.Text:=trim(fieldbyname('zdyName').AsString); + end; +end; +procedure TfrmBpkcsumlist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('exec P_View_YpKc '); + sql.Add('@begdate='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''''); + sql.Add(',@enddate='''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + if CheckBox1.Checked then + sql.Add(',@iskc=''1'' ') + else + sql.Add(',@iskc=''0'' '); + + IF CheckBox2. Checked then + sql.Add(',@isyj=''1'' ') + else + sql.Add(',@isyj=''0'' '); + + sql.Add(',@yjNum='''+trim(Edit1.text)+''' '); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_Main); + SInitCDSData20(adoqueryTmp,CDS_Main); + finally + end; +end; + +procedure TfrmBpkcsumlist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + if fType=10 then Action:=cahide + else Action:=cafree; +end; + +procedure TfrmBpkcsumlist.FormDestroy(Sender: TObject); +begin + frmBpkcsumlist:=nil; +end; + +procedure TfrmBpkcsumlist.P_CodeChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmBpkcsumlist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + if fType=10 then + begin + TOk.Visible:=true; + v1Ssel.Visible:=true; + end; + IF canshu2='ҵԱ'then + begin + v1factoryName.Visible:=false; + v1factoryName.Hidden:=true; + end + else + begin + v1factoryName.Visible:=true; + v1factoryName.Hidden:=false; + end; + SetComboBox(); + InitGrid(); +end; + +procedure TfrmBpkcsumlist.FormCreate(Sender: TObject); +begin + BegDate.Date:=DServerDate-7; + EndDate.Date:=DServerDate; + cxGrid1.Align:=alclient; + +end; + +procedure TfrmBpkcsumlist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBpkcsumlist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmBpkcsumlist.TBPrintClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpkcsumlist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmBpkcsumlist.TOkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +procedure TfrmBpkcsumlist.CheckBox1Click(Sender: TObject); +begin + initgrid(); +end; + +procedure TfrmBpkcsumlist.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('kcQty').Index] + 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 = YPCK_DataLink.Red + Styles.Selection = YPCK_DataLink.Red + Styles.IncSearch = YPCK_DataLink.Red + TabOrder = 1 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 160 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxSplitter1: TcxSplitter + Left = 181 + Top = 93 + Width = 8 + Height = 623 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxDBTreeList1 + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 193 + 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 = 3 + Visible = False + end + object Panel3: TPanel + Left = 187 + Top = 188 + Width = 1073 + Height = 492 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel3' + TabOrder = 4 + object GroupBox1: TGroupBox + Left = 2 + Top = 295 + Width = 1069 + Height = 195 + Align = alBottom + Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 + TabOrder = 0 + 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 = 293 + Align = alClient + TabOrder = 1 + 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 + Styles.Inactive = YPCK_DataLink.SHuangSe + Styles.IncSearch = YPCK_DataLink.SHuangSe + Styles.Selection = YPCK_DataLink.SHuangSe + Styles.Header = YPCK_DataLink.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = YPCK_DataLink.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #24211#20301#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 71 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 67 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 58 + end + object v1Column37: TcxGridDBColumn + Caption = #22383#24067#32463#23494'/CM' + DataBinding.FieldName = 'defstr10' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column38: TcxGridDBColumn + Caption = #22383#24067#32428#23494'/CM' + DataBinding.FieldName = 'defstr11' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column39: TcxGridDBColumn + Caption = #25104#21697#32463#23494'/CM' + DataBinding.FieldName = 'defstr12' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column40: TcxGridDBColumn + Caption = #25104#21697#32428#23494'/CM' + DataBinding.FieldName = 'defstr13' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column25: TcxGridDBColumn + Caption = #24037#21378#32534#30721 + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column34: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'DefStr7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = YPCK_DataLink.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 54 + end + object v1Column26: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'price1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column27: TcxGridDBColumn + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column31: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column33: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column35: TcxGridDBColumn + Caption = #24213#24067#26469#28304 + DataBinding.FieldName = 'DefStr8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column36: TcxGridDBColumn + Caption = #19978#26426#35268#26684 + DataBinding.FieldName = 'DefStr9' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = YPCK_DataLink.Default + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 5 + 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 + Visible = False + end + object Label1: TLabel + Left = 192 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 690 + Top = 39 + Width = 60 + Height = 12 + Caption = #21360#26579#20379#24212#21830 + end + object Label5: TLabel + Left = 56 + Top = 39 + Width = 48 + Height = 12 + Caption = #32433' '#25903 + end + object Label3: TLabel + Left = 56 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 1209 + Top = 15 + Width = 24 + Height = 12 + Caption = #20221#25968 + Visible = False + end + object Label7: TLabel + Left = 438 + Top = 39 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label8: TLabel + Left = 192 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 314 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 438 + Top = 15 + Width = 48 + Height = 12 + Caption = #26377#25928#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 + 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 + end + object Label13: TLabel + Left = 566 + Top = 15 + Width = 48 + Height = 12 + Caption = #32769' '#32534' '#21495 + end + object Label14: TLabel + Left = 978 + Top = 15 + Width = 48 + Height = 12 + Caption = #23458#25143#27454#21495 + end + object Label15: TLabel + Left = 690 + Top = 15 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label16: TLabel + Left = 314 + Top = 39 + Width = 48 + Height = 12 + Caption = #35746#21333#26469#28304 + end + object Label17: TLabel + Left = 566 + Top = 39 + Width = 48 + Height = 12 + Caption = #20840' '#24133 + end + object Label18: TLabel + Left = 822 + Top = 39 + Width = 72 + Height = 12 + Caption = #21518#21152#24037#20379#24212#21830 + end + object Label19: TLabel + Left = 822 + Top = 15 + Width = 72 + Height = 12 + Caption = #21069#21152#24037#20379#24212#21830 + end + object CYID: TEdit + Tag = 3 + Left = 28 + Top = 11 + Width = 21 + Height = 20 + TabOrder = 0 + Visible = False + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 242 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object defstr16: TEdit + Tag = 2 + Left = 748 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object defnote5: TEdit + Tag = 2 + Left = 105 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 105 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 1167 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + Visible = False + end + object CYKZ: TEdit + Tag = 2 + Left = 488 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 6 + OnChange = CYNoChange + end + object CYCF: TEdit + Tag = 2 + Left = 242 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 7 + OnChange = CYNoChange + end + object CYECF: TEdit + Tag = 2 + Left = 363 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 8 + OnChange = CYNoChange + end + object CYMF: TEdit + Tag = 2 + Left = 488 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 9 + OnChange = CYNoChange + end + object defstr1: TEdit + Tag = 2 + Left = 616 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 10 + OnChange = CYNoChange + end + object defstr14: TEdit + Tag = 2 + Left = 1024 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 11 + OnChange = CYNoChange + end + object defstr7: TEdit + Tag = 2 + Left = 748 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 12 + OnChange = CYNoChange + end + object defnote3: TEdit + Tag = 2 + Left = 363 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 13 + OnChange = CYNoChange + end + object defnote2: TEdit + Tag = 2 + Left = 616 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 14 + OnChange = CYNoChange + end + object defstr17: TEdit + Tag = 2 + Left = 892 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 15 + OnChange = CYNoChange + end + object defstr19: TEdit + Tag = 2 + Left = 892 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 16 + OnChange = CYNoChange + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 945 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 881 + Top = 65521 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 476 + Top = 152 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 157 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 368 + Top = 132 + 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 = 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 = 561 + Top = 144 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end + object adoqueryPicture: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end +end diff --git a/应收应付/样品仓库/U_CPManageSel.pas b/应收应付/样品仓库/U_CPManageSel.pas new file mode 100644 index 0000000..3796a93 --- /dev/null +++ b/应收应付/样品仓库/U_CPManageSel.pas @@ -0,0 +1,516 @@ +unit U_CPManageSel; + +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 + TfrmCPManageSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + TBFind: TToolButton; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + TOK: TToolButton; + Panel2: TPanel; + ComboBox1: TComboBox; + Panel3: TPanel; + GroupBox1: TGroupBox; + ScrollBox1: TScrollBox; + adoqueryPicture: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column19: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column37: TcxGridDBColumn; + v1Column38: TcxGridDBColumn; + v1Column39: TcxGridDBColumn; + v1Column40: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column34: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + v1Column35: TcxGridDBColumn; + v1Column36: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label2: TLabel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label3: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + CYID: TEdit; + CYName: TEdit; + defstr16: TEdit; + defnote5: TEdit; + CYNO: TEdit; + Edit1: TEdit; + CYKZ: TEdit; + CYCF: TEdit; + CYECF: TEdit; + CYMF: TEdit; + defstr1: TEdit; + defstr14: TEdit; + defstr7: TEdit; + defnote3: TEdit; + defnote2: TEdit; + defstr17: TEdit; + defstr19: TEdit; + Label19: TLabel; + 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 TBFindClick(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(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 CYSpecChange(Sender: TObject); + procedure TOKClick(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + + public + { Public declarations } + end; + +var + frmCPManageSel: TfrmCPManageSel; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun10; + +{$R *.dfm} + +procedure TfrmCPManageSel.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); + + 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 TfrmCPManageSel.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageSel.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; + tbfind.Click; +end; + +procedure TfrmCPManageSel.FormDestroy(Sender: TObject); +begin + frmCPManageSel:=nil; +end; + +procedure TfrmCPManageSel.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); + Action:=caFree; +end; + +procedure TfrmCPManageSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageSel.FormShow(Sender: TObject); +begin + Panel3.Align:=alclient; + InitTree(); + ReadCxGrid(self.Caption,Tv1,'Ʒ'); + //InitGrid(); +end; + +procedure TfrmCPManageSel.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageSel.TBRafreshClick(Sender: TObject); +begin + inittree(); + InitGrid(); +end; + +procedure TfrmCPManageSel.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 TfrmCPManageSel.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageSel.CYNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCPManageSel.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageSel.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +procedure TfrmCPManageSel.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 TfrmCPManageSel.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 TfrmCPManageSel.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 TfrmCPManageSel.CYSpecChange(Sender: TObject); +begin +// if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageSel.TOKClick(Sender: TObject); +begin + IF CDS_main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmCPManageSel.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + TBRafresh.Click; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_DataLink.dfm b/应收应付/样品仓库/U_DataLink.dfm new file mode 100644 index 0000000..62c5a21 --- /dev/null +++ b/应收应付/样品仓库/U_DataLink.dfm @@ -0,0 +1,18105 @@ +object YPCK_DataLink: TYPCK_DataLink + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 444 + Top = 266 + Height = 349 + Width = 482 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 72 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A400000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C900000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C0000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA00000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF8000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC00000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB800263873000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B10028387100000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC0028397700000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D0034468200000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA900000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F428500000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF0000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D00000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D00000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE1000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A200000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB80000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 000000000000808080005050500080808000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB10000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 000000000000808080005555550080808000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B70000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 000000000000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 000000000000000000000000000000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A0000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF0000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D0000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB300000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB00000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 00000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 00000000000000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF100000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E0000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C00000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E600000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA5000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E00000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D7000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB0000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD00000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE10000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE300000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C9000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A6000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D9000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F600000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB40000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE1000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E9000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF800000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F0000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F9000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD700000000000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F100000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA0000000000000000000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F100000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F90000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC00000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 000000000000000000000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC00000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 00000000000000000000000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E500000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D40000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D300000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB40000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E10000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F70000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD00000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC2000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD700000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF600000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F4000000000000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF5000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F519400000000000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB1000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C30000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC50000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF6000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C0000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F60000000000000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 00000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 00000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 000000000000000000000000000000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF00000000000000000000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C50000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A4000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F40000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C760000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD80000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C0000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC003143830000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E40000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA0000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E2000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A3000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF00000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B900000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D1000000000000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F7000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF00000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC500000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B930000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F990000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A10000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B10000000000000000000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A990000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D0000000000000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F1000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D0003143840000000000000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F20000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E0000000000000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B90000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA0000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC0000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC80000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A7000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F4491000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 00000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC00324999000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 000000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 000000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA1000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A9000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B0000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB30000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB40000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD00000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A30000000000000000000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A000000000000000000000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C6002333670000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D0000000000000000000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB000324910029397200000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 7100000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA0030428200000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 7400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB00033468700000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C9200000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A509700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D200000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF00000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB00000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC000000000000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB50000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD000000000000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB0000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD000000000000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD00000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C0000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC3000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF7000000000000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF800000000000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F5000000000000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF500000000000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF70000000000000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 000000000000000000000000000000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 000000000000000000000000000000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 000000000000000000000000000000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 000000000000000000000000000000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF5000000000000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C00000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D4186000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A800000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB003147920000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A3000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB30000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB40000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB6000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B9000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C1000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E90000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C5000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D41870000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C9000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C3003247900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C4003348930000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A950000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F990000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 000000000000000000000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A20000000000000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C0000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A50000000000000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA80000000000000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF5000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD00000000000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC7000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF60000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD0000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C90000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB900000000000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C9000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB000000000000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B500263774000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D71000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D8100000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D00000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A0000000000000000000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB0031479200000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC00000000000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C9000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A300000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E00000000000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA500000000000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D1000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD000000000000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D5000000000000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB00000000000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E200000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B700000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE00000000000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D6000000000000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C8000000000000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F0068676900555769000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB000000000000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F300000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC2000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF2000000000000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A6387000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D200000000000000000000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C30000000000000000000000000000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C700000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 000000000000000000000000000000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 000000000000000000000000000000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 0000000000000000000000000000000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF80000000000000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA000000000000000000000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 000000000000000000000000000000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 820000000000000000000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 88000000000000000000000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C870000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F000000000000000000000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B9600000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F70000000000000000000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A0000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD000000000000000000000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A9000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC0000000000000000000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B00000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA0000000000000000000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A0000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD0000000000000000000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE000000000000000000000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B8000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD00000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C0000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C50000000000000000000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC1000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C60000000000000000000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC2000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB00000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C90000000000000000000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE0000000000000000000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB0000000000000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F00000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE000000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F0000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A800000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB00000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE0000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B800000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD00516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA00435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB00000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC00445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD00000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB00445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE00000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC00445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF00516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 000000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC100000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E300748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 000000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF600BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E80000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC40000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC8000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF6000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC6000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE2000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD0000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C7000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C700000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D20000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E00000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F20000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F200000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E40000000000000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 000000000000000000000000000000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F300000000000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 00000000000000000000000000000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF500000000000000000000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF300000000000000000000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 000000000000000000000000000000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F2000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC50000000000000000000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC00000000000000000000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D800000000000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED000000000000000000000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED00000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC50000000000000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB00000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A0000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F41800000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C9003144870000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F80000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D950000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F519200000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D0000000000000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F0000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A40000000000000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB30000000000000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB0000000000000000000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A400000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD0000000000000000000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF0000000000000000000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C10000000000000000000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC20000000000000000000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C1000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC40000000000000000000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD3000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC60000000000000000000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E900000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C700000000000000000000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 00000000000000000000000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 00000000000000000000000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 0000000000000000000000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D0000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB00000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E90000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D60000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB00000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E10000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E00000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC20000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA0000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F100000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B20000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F2000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF3000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF3000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF3000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC40000000000000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC700000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 000000000000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B700000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB200000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 000000000000000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC10000000000000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D20000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 00000000000000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C60000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 00000000000000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 00000000000000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD00000000000000000000000000031D3D85093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF010D1D3A000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000C458BFF1D54ABFF1E54A9FF1E54 + A9FF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54 + AAFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1D54ABFF1D54 + ABFF1D54ABFF1C54AEFF0D468CFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000F4791FF14439DFF14439DFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF3E8AD8FF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000F4792FF15459FFF1546A0FF1546 + A0FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1D55AFFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000F4892FF1749A3FF184CA6FF194D + A7FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1B4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1B51ABFF448EDAFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA00324894000000000000000000000000000F4893FF1A4EA8FF1B51ABFF1C54 + AEFF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF4C92DCFF0B448AFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C00000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF0B448AFF000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF053D82FF053D82FF0D4187FF053D + 82FF053D82FF053D82FF053D82FF03254F9B000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A500000000000000000000000000114995FF1A4EA8FF1C53ADFF1D56 + B0FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59 + B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1C54AEFF3D5978FF6C715CFF3458 + 88FF1C54AEFF1C54AEFF1A4FA9FF053D82FF000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000114A96FF194FA9FF1C53ADFF1D57 + B1FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5A + B4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1C54AEFF3F463CFF32372CFF3B45 + 42FF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB100000000000000000000000000114A97FF1A4FA9FF1D54AEFF1E58 + B2FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205B + B5FF205BB5FF205BB5FF205BB5FF205BB5FF1C54AEFF43586CFFD3D6B6FF3956 + 7BFF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000114B97FF1A50AAFF1D55AFFF1E59 + B3FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205C + B6FF205CB6FF205CB6FF205CB6FF205CB6FF5495DEFF3786D5FF327DCEFF327D + CEFF327DCEFF327DCFFF2D77C4FF032F65C788878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB700000000000000000000000000124B98FF1A4FA9FF1D55AFFF1F59 + B3FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF6EA7E8FF0B4489FF0000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000124C99FF1A50AAFF1D56B0FF1F59 + B3FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF70A9EAFF0B4489FF000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B900000000000000000000000000134C99FF2661B5FF3071C2FF3479 + C9FF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377D + CDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377C + CDFF387ECEFF2360B9FF0B448AFF000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB00000000000000000000000000134C9AFF2D6ABCFF377ACBFF3B81 + CFFF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF74ABEBFF0B448AFF0000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC00000000000000000000000000134D9BFF1E57B1FF6AA0E3FF70A6 + E7FF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74AB + EBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225F + B9FF74ABEBFF74ABEBFF0C458AFF00000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD000000000000000000000000001A529AFF7FB5F2FF337ECFFF3481 + D1FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF7FB5F2FF0C458BFF0000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C0000000000000000000000000000D468BFF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF0C458BFF010D1C3800000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C000000000000000000000000000031C3B730D468BFF0D468BFF0D46 + 8BFF0D468BFF0D468BFF0D468CFF0D468CFF0D468CFF0D468CFF0D478CFF0D46 + 8CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D46 + 8CFF0D468CFF0D468CFF00000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000110000001C0000002E0000002E0000002E0000002E0000002E0000 + 002E0000002E0000002E0000002E0000002E0000002E0000002E0000001C0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101020000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000005000000090000000C0000 + 000F00000016000000190000001D00000024000000260000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A00000024000000200000001D0000 + 0016000000130000000F00000009000000060000000000000000000000000000 + 00000000000000000000339F70FF339F70FF339F70FF339F70FF339F70FF339F + 70FF339F70FF339F70FF339F70FF339F70FF339F70FF339F70FF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000003B2A9C75FF2A9C75FF2A9C75FF0000003E0000 + 003B000000330000002800000017000000140000000E0000000B000000080000 + 000300000002000000000000000000000000000000060000000D000000120000 + 001800000024A5A5A5E6CECECEFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7 + E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFCCCCCCFF2525 + 254D0000001D000000180000000D000000090000000000000000000000000000 + 0000000000000000000032A072FF12BC8EFF12BC8EFF12BC8EFF12BC8EFF12BC + 8EFF12BC8DFF12BC8EFF12BC8DFF12BC8EFF3CD7A7FF32A172FF000E0B120000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 000000000000040F0B190000000035CD98FF15B081FF38D19BFF0D34276F0000 + 0024000000200000001800000014000000100000000900000006000000040000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F17B3B3B3EFCECECEFFE4E4E4FFE4E4E4FFE4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFF2F2F2FFD4DDD9FFE2E2E2FFE1E1E1FFEFEFEFFFCCCCCCFF5B5B + 5B76000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A172FF12BD8EFF12BC8EFF12BD8EFF12BC8EFF12BD + 8EFF12BC8EFF12BD8EFF12BD8EFF12BD8EFF3CD7A7FF31A172FF000E0B120000 + 0000000000000000000000000000000000000000001E131313EF121212EF1111 + 11EF111111EF111111EF111111EF111111EF111111EF111111EF111111EF1111 + 11FD111111FD111111EF111111EF111111EF111111EF111111EF121212EF1212 + 12EF131313EF141414EF111111B6000000000000000000000000000000000000 + 00000209060F000000002A9C75FF13B082FF13B082FF17B687FF259771F1030C + 0914000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333349C2C2C2FCD5D5D5FFE4E4E4FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3 + F3FFE3E3E3FF5DB591FFBFD7CDFFF3F3F3FFF2F2F2FFEDEDEDFFD5D5D5FF8383 + 83AE000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A273FF11C090FF0DCB95FF0CCA94FF0DCB94FF0CCB + 95FF0CCB94FF0CCB95FF0CCA95FF0CCB95FF3CD7A7FF30A273FF000E0B120000 + 000000000000000000000000000000000000000000003B3B3BFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF1B1B1BF6000000000000000000000000000000000000 + 00002A9C75FF32D59FFF14B183FF10CF9EFF10CF9DFF12C191FF31D39DFF23A0 + 78F60D3225520000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8CC1CFCFCFFFE8E8E8FF6CC0A0FF38B284FF39B083FF3BB083FF3AAE + 82FF78C0A4FF3EAC80FF3BAC81FF3DAB7FFF3DAA7DFFD1DFD8FFE9E9E9FFACAC + ACE6000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA575FF11C291FF0CCD97FF0DCD97FF0CCC96FF0CCC + 96FF0CCC97FF0DCC96FF0DCC96FF0DCC97FF3BD7A7FF2EA574FF000E0B120000 + 000000000000000000000000000000000000000000002A2A2AFF2E2E2EFF3939 + 39FF393939FF393939FF393939FF393939FF393939FF393939FF3A3A3AFF3A3A + 3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A + 3AFF3B3B3BFF323232FF1F1F1FC6000000000000000000000000000000000223 + 1A2C2BD19CFF14B284FF13B284FF16D2A1FF11D09EFF10D09EFF16B687FF27CB + 99FF259670F00000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9DD6D0D0D0FFEFEFEFFF39B285FF39B184FF5DBC98FF64BC9BFF58B8 + 94FFDEE3E1FF3CAB80FF92CAB3FF84C4AAFF3EAA7EFF96C9B3FFEEEEEEFFB9B9 + B9F5020202040000000000000000000000000000000000000000000000000000 + 000000000000000000002CA676FF11C392FF0DCE98FF0DCE98FF0DCD97FF0DCE + 97FF0DCD98FF0DCE98FF0DCD97FF0CCE97FF3BD7A7FF2CA676FF011C14220000 + 00000000000000000000000000000000000000000000323232FE343434FF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3E3E3EFF383838FF1212127100000000000000000000000001150F1A2AA0 + 75FF15B384FF13B283FF0FCE9BFF80EFD0FF6EE5BFFF0FD19EFF13B788FF24C9 + 96FF1FB78AFC0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACACE8D0D0D0FFF1F1F1FF44B98EFF38B285FF41B288FFCFDFD9FFE6E6 + E6FFE6E6E6FF58B691FFA5D0BEFFB9D7CCFF3BAA7DFFAED1C2FFF0F0F0FFC4C4 + C4FE252525340000000000000000000000000000000000000000000000000000 + 000000000000000000002BA776FF10C492FF0DCE98FF0DCF99FF0DCF99FF0DCE + 98FF0DCF99FF0DCE99FF0DCE99FF0DCF99FF3AD7A6FF2BA877FF000E0B120000 + 00000000000000000000000000000000000000000000272727F04E4E4EFF4040 + 40FF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF404040FF4040 + 40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040 + 40FF424242FF4B4B4BFF0505052200000000000000002AA078FF1BD09DFF1DD2 + 9FFF0FD09EFF16D4A3FF5DE7BFFF40AC89FF33A37EF255DCB3FF0FD29FFF11C0 + 90FF1ACC99FF259871EF02090710000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CACACAFEDADADAFFF2F2F2FFE0E7E4FF45B98FFF35B486FF8DCDB5FFE8E8 + E8FFE8E8E8FFE6E6E6FF6FC0A1FF3BAE82FFD7E1DCFFE5E5E5FFEEEEEEFFCDCD + CDFF838383B20000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA79FF10C794FF0DD19BFF0DD19BFF0ED19BFF0DD1 + 9BFF0ED19BFF0DD19BFF0ED19BFF0DD19AFF38D7A6FF28AA79FF000E0B120000 + 0000000000000000000000000000000000000000000000000000121212612C2C + 2CE7686868FF616161FF555555FF464646FF464646FF464646FF464646FF4646 + 46FF464646FF464646FF464646FF474747FF494949FF535353FF5E5E5EFF4A4A + 4AFD303030F01313136500000000000000000001010218CF9CFF1CD4A0FF10D3 + A0FF16D5A3FF5CE8C0FF46CFA8E600000000071E162F269F77F147E4B9FF0FD3 + A0FF0FD3A0FF1DB78AFB1B7255B2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D0D0D0FFE5E5E5FFEFEFEFFF59C09CFF39B88BFF35B587FFE7E9E8FFE6E8 + E7FFE8E8E8FFE8E8E8FFE5E6E6FF80C7ACFFE6E6E6FFE6E6E6FFEBEBEBFFCFCF + CFFF9A9A9ACF0000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7AFF10C795FF0DD29CFF0ED29CFF0ED29CFF0ED2 + 9CFF0ED29CFF0DD29DFF0DD29DFF0DD29CFF37D6A6FF26AB7AFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000202 + 020B2F2F2FE83C3C3CEE525252FD6A6A6AFF4F4F4FFF494949FF4A4A4AFF4A4A + 4AFF4A4A4AFF4A4A4AFF4A4A4AFF515151FF6D6D6DFF585858FF434343F81C1C + 1C850202020B0000000000000000000000002AA379FF1AD5A1FF10D4A1FF0FD4 + A1FF5BEAC1FF4CD7B1EE2CAA7FFF0000000000000000071E162F51DCB3FF44E4 + B8FF0FD3A1FF1DD3A1FF23A178F40C2F234B0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2D2D2FFEDEDEDFFEDEDEDFFEAEAEAFFEAEAEAFFDCE6E2FF3EB88CFF81CB + AFFFE5E8E7FF48B78EFF37AF82FF7FC5AAFFE7E7E7FFE6E6E6FFE8E8E8FFCFCF + CFFFA8A8A8E10000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7BFF11C996FF0ED39DFF0DD39DFF0ED39EFF0DD3 + 9EFF0ED39DFF0DD39EFF0ED39DFF0DD49DFF36D6A6FF25AD7BFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000202020A0F0F0F481E1E1E8E3A3A3AF4656565FF585858FF4D4D4DFF4D4D + 4DFF4D4D4DFF4D4D4DFF606060FF6A6A6AFF333333E1202020950F0F0F480000 + 00000000000000000000000000000000000006140F1D3BCDA1FD3EE2B6FF56E9 + C0FF2EAF83FF00020103000000000000000000000000000000000820183127A4 + 7AF14DDCB2FF0FD5A1FF15D5A1FF1CB88BF90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000B0B + 0B10D3D3D3FFF4F4F4FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFF31B686FF35B5 + 87FF94D1BAFF36B385FF3DB388FF2EAE80FFE9E9E9FFE8E8E8FFE8E8E8FFD0D0 + D0FFC6C6C6FC2C2C2C3F00000000000000000000000000000000000000000000 + 0000000000000000000022B17EFF10CB98FF0ED6A0FF0ED69FFF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF33D7A6FF22B07DFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000001010105313131C3545454FF5454 + 54FF545454FF464646F9262626A0010101050000000000000000000000000000 + 00000000000000000000000000000000000000000000259E76E587EBCDFFFFFF + FFFF010504080000000000000000000000000000000000000000000000000821 + 183127A67AF136E0B3FF10D5A2FF13D4A1FF0C2E234800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002C2C + 2C40D6D6D6FFF5F5F5FFECECECFFEBEBEBFFEBEBEBFFEBEBEBFF7CCCAFFF34B6 + 88FF35B587FF38B587FFCEE2DAFF96D0B8FFE9E9E9FFE9E9E9FFE9E9E9FFD6D6 + D6FFCDCDCDFF5C5C5C80000000000000000020B27FFF21B27FFF21B27FFF21B2 + 7FFF20B27FFF21B27FFF21B27FFF10CC99FF0ED7A2FF0ED7A1FF0FD7A1FF0ED7 + A1FF0ED8A1FF0ED7A1FF0ED7A1FF0ED7A1FF31D7A6FF21B27FFF20B27FFF21B2 + 7FFF20B27FFF20B27FFF21B27FFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282899595959FF5959 + 59FF595959FF444444F41B1B1B75000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000004100C1828A179E528A2 + 7AE3000000000000000000000000000000000000000000000000000000000000 + 00000822193249DCB1FF33E0B2FF0FD6A3FF259C74EC0209060E000000000000 + 0000000000000000000000000000000000000000000000000000000000005B5B + 5B8FD1D1D1FFE4E4E4FFDDDDDDFFDCDCDCFFDCDCDCFFDCDCDCFFD9DBDAFF30AB + 80FF30AA7FFF2AA77BFFDADBDAFFDBDBDBFFDADADAFFD9D9D9FFD9D9D9FFD1D1 + D1FFC2C2C2FF797979B8000000000000000005291D3842E6B8FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE9BFF0ED9A3FF0ED8A2FF0ED8A3FF0ED8 + A3FF0ED8A2FF0ED8A2FF0ED8A3FF0FD9A2FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF38E3B4FF05291D38000000000000000000000000000000000000 + 000000000000000000000000000000000000040404113F3F3FF85D5D5DFF5D5D + 5DFF5D5D5DFF5A5A5AFF3B3B3BEE0303030E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A3427A77EF146DDB1FF10D6A3FF26A97EF30C2E22450000 + 0000000000000000000000000000000000000000000000000000000000007171 + 71DEA4A4A4FF949494FF929292FF929292FF929292FF929292FF929292FF9191 + 91FF919191FF909090FF909090FF909090FF909090FF909090FF909090FFA3A3 + A3FF8B8B8BFF767676E500000000000000000000000005291D381CB783FF52EB + C0FF0FDAA5FF0EDBA5FF0EDAA4FF0FDBA5FF0EDBA5FF0FDAA5FF0EDBA5FF0FDB + A5FF0FDBA5FF0EDBA5FF0FDBA5FF0FDBA5FF0FDBA4FF0EDBA5FF0EDBA5FF49E9 + BCFF1CB783FF05291D3800000000000000000000000000000000000000000000 + 000000000000000000000000000000000000434343DD5F5F5FFF636363FF6363 + 63FF636363FF636363FF606060FF333333B30000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B3428AA7FF12BDFAFFF14D09EFF27A177EB0000 + 000000000000000000000000000000000000000000000E7C5AAA21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF0E7C5AAA00000000000000000000000005291D381AB8 + 84FF0FDCA6FF0FDCA6FF0FDCA6FF0EDCA7FF0EDCA6FF0FDCA6FF0FDCA6FF0FDC + A6FF0EDCA6FF0FDCA6FF0EDDA6FF0FDCA6FF0FDCA6FF0FDCA6FF0FDCA6FF1AB8 + 84FF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000020202064E4E4EFC656565FF666666FF6666 + 66FF666666FF666666FF666666FF414141DD0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B3444DDB1FF28DFAFFF1DBC8EF80000 + 0000000000000000000000000000000000000000000021B17FFF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF21B17FFF000000000000000000000000000000000529 + 1D3860F0C7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDDA7FF0EDDA7FF0FDEA7FF0FDD + A7FF0FDDA7FF0EDDA8FF0FDEA7FF0FDDA7FF0FDDA7FF0EDDA8FF5AEEC4FF0529 + 1D38000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001313132F515151FF686868FF696969FF6969 + 69FF696969FF696969FF696969FF4A4A4AED0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C372AAC7FF140DCB0FF29A4 + 7AEA0208060C0000000000000000000000000000000021B17FFF12C28EFF12C2 + 8EFF13C28DFF13C38EFF12C28EFF12C28EFF12C28DFF13C28EFF12C28EFF12C2 + 8EFF12C38DFF13C28EFF12C38EFF12C38EFF12C38EFF12C28EFF13C28EFF13C2 + 8EFF12C38EFF13C38EFF21B17FFF000000000000000000000000000000000000 + 000005291D3817BD87FF6FF3CDFF0FE0AAFF0FDFAAFF0FE0AAFF0FDFA9FF10DF + AAFF0FDFAAFF0FDFA9FF0FE0A9FF0FE0A9FF6AF2CBFF17BD88FF05291D380000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002222224F5B5B5BFF6F6F6FFF707070FF7070 + 70FF707070FF707070FF707070FF585858F60000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D372BAC80F126C1 + 94F81B7256A20000000000000000000000000000000021B17FFF12C490FF11C4 + 8FFF12C48FFF12C48FFF11C48FFF11C48FFF11C48FFF12C48FFF12C48FFF12C4 + 8FFF11C48FFF12C48FFF12C48FFF12C48FFF11C48FFF11C38FFF12C48FFF12C4 + 8FFF11C48FFF11C48FFF21B17FFF000000000000000000000000000000000000 + 00000000000005291D3815BE88FF10E0AAFF0FE0AAFF0FE1ABFF0FE0AAFF0FE1 + ABFF0FE0AAFF10E1ABFF0FE1AAFF0FE1ABFF15BE88FF05291D38000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D3F5A5A5AFF727272FF737373FF7373 + 73FF737373FF737373FF737373FF555555F00000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D373ADB + ADFF2BB285F40B2C213F00000000000000000000000021B17FFF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF21B17FFF000000000000000000000000000000000000 + 0000000000000000000005291D387BF6D2FF0FE1ACFF10E1ABFF0FE1ACFF0FE1 + ABFF0FE2ABFF0FE1ABFF0FE2ACFF78F5D1FF05291D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D1B5E5E5EFF757575FF767676FF7676 + 76FF767676FF767676FF767676FF565656E90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E392CAF84F232C093FC00000000000000000000000016BD88FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF16BD88FF010604070000000000000000000000000000 + 000000000000000000000000000005291D3813C28BFF86F8D6FF10E4ADFF0FE3 + ADFF0FE4AEFF84F7D5FF12C18BFF05291D380000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003939398E696969FF7C7C7CFF7C7C + 7CFF7C7C7CFF818181FF676767FC191919500000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F3A2CB185F413392C4B00000000000000000E382C4216BD88FF17E8 + B4FF299065FF289266FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF0CBE + 89FF46E7B5FF17E8B4FF0E372A40000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D3812C38CFF10E4AEFF10E4 + AEFF10E4AEFF11C38CFF05291D38000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020207494949D58F8F8FFF8A8A + 8AFF898989FF707070FE444444CA020202070000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B203C2FAE84EF0208060B00000000000000010F3C2E4616BD + 88FF48E6B5FF299065FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF4DEC + BAFF17E8B4FF16BD88FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D388DF9D8FF10E4 + AFFF8DF9D8FF05291D3800000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070718525252EB5D5D + 5DF85D5D5DF8353535A307070718000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B203C2EAE83F40000000000000000000000000001 + 010217DCA7FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D1 + 97FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF16CE + 99FF0F3A2D440001010200000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D380FC5 + 8EFF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C000000240000 + 0027339F70FF0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000001E00000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000270000001E0000001E319F70FF32A071FF319F + 70FF31A070FF319F71FF32A071FF32A070FF31A071FF32A070FFD58F6AFFD58F + 6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFF000000001560BCFF1560 + BDFF1560BDFF1660BDFF00000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AEFFFED6AEFFFED6AEFFFED7B0FFFED7 + B0FFFED8B1FFFED9B4FFFEDAB6FFFEDAB6FFFEDCB9FFFEDCB9FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A071FF32A071FF0F342452000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000252422FF262624FF2625 + 23FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF262524FF262524FF0000000000000000000000000DC992FF13B98CFF13B9 + 8CFF13B98CFF13B98CFF13B98CFF13B98CFF0EC992FF2FA171FFD58F6AFFEBA5 + 7DFFE19D79FFE19D79FFE19D79FFE19D79FFD58F6AFF000000001661BEFF076E + E6FF076EE6FF0578EAFF00000000000000000000000E00000013000000140000 + 0016000000191111113114141431FED4AAFFFED4AAFFFED4AAFFFED5ACFFFED5 + AEFFFED6AFFFFED8B2FFFED8B2FFFED9B4FFFEDAB7FFFFDBB9FF111111310000 + 00180000001600000014000000100000000E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172FF3BD7A7FF30A271FF0F3424520000000000000000000000000000 + 00000000000000000000000000000000000000000000262523FF282724FF2727 + 24FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF272625FF000000000000000000000000000000000DCA93FF13B98CFF0DCA + 93FF0DCA93FF0DCA94FF0DCA93FF13B98CFF0DCA93FF2FA272FFD58F6AFFECA5 + 7DFFE29E79FFECA57DFFECA57CFFE29E79FFD58F6BFF000000001662C0FF057A + EBFF0388F0FF057BEAFF000000000000000000000017000000343F3F3F7FACAC + ACFFACACACFFACACACFF636262FFFFCD9DFFFFCD9DFFFFCE9FFFFFD0A3FFFFD2 + A6FFFFD4AAFFFFD7AFFFFFD8B1FFFFD9B5FFFFDDBCFFFFDDBCFF636363FFACAC + ACFFACACACFF4B4B4B8C00000030000000170000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A373FF10BF8EFF39D6A6FF30A373FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000272624FF292826FF2929 + 26FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF2A2927FF292826FF0000000000000000000000000DCB95FF13BA8DFF0DCB + 95FF0DCC94FF0DCB94FF0DCB94FF13B98CFF0ECB94FF2EA273FFD68F6AFFECA5 + 7EFFE39E7AFFECA67DFFECA67DFFE39E7AFFD5906BFF000000001764C3FF057C + EBFF0389F0FF057CEBFF000000000000000000000000ACACACFFD1D1D1FFD1D1 + D1FFD1D1D1FFD1D1D1FF323232FFC49F7BFFC4A07EFFC4A17FFFC4A383FFC4A5 + 87FFC4A688FFC4A78BFFC4A88EFFC4A991FFC4AC96FFC4AC96FF323232FFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000003020400040306000403060004 + 030600040306000403060009060C000403060004030600040306000403060000 + 00002DA575FF10BF8EFF10BF8EFF10BF8EFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000292927FF2E2D2AFF2E2D + 2AFFFBE7D0FFFBE6D0FFFBE7CFFFFCE6CFFFFBE7D0FFFBE7D0FFFBE6D0FFFCE7 + D0FFFBE6CFFFFBE6CFFFFBE7D0FFFCE7CFFFFBE6D0FFFBE6CFFFFBE7CFFFFBE6 + CFFF2D2C2AFF2D2C2AFF0000000000000000000000000DCD97FF13BD8FFF0ECE + 97FF0ECE97FF0DCE97FF0ECE98FF13BC8EFF0ECD97FF2CA575FFD6906BFFEDA7 + 7FFFE5A17BFFECA77EFFECA77EFFE6A17BFFD6906BFF000000001A66C7FF0581 + EDFF038DF1FF0581EDFF000000000000000000000000ACACACFFD4D4D4FFD4D4 + D4FFD4D4D4FFD4D4D4FF333131FF9E8373FF9E8373FF9E8373FF9E8474FF9E84 + 74FF9E8475FF9E8576FF9E8576FF9E8577FF9E8577FF9E8577FF333131FFC8CC + CAFFCECECEFFCECECEFF00000000000000002CA676FF2CA776FF2CA676FF2CA6 + 75FF2CA675FF2BA676FF2BA675FF2CA675FF2BA676FF2CA676FF2CA676FF2CA6 + 76FF2BA776FF10BF8EFF0DCA94FF10C08EFF31D4A3FF2CA675FF0F3424520000 + 000000000000000000000000000000000000000000002B2927FF302E2CFF302E + 2DFFFBE7D0FFFCE7D0FFFCE7D0FFFBE7D1FFFBE7D1FFFCE7D0FFFBE7D1FFFBE7 + D1FFFBE7D0FFFBE7D1FFFBE7D0FFFBE7D0FFFCE7D1FFFBE7D1FFFCE7D0FFFBE7 + D0FF302E2CFF302F2CFF0000000000000000000000000ECF99FF12C090FF0ECF + 98FF0ECF99FF0ECF99FF0ECF99FF12BF8FFF0ECF99FF2BA675FFD6906CFFEDA8 + 7FFFE7A27CFFECA87FFFECA87FFFE7A27CFFD6906BFF000000001A68CBFF0482 + EDFF038EF1FF0483EEFF000000000000000000000000ACACACFFD7D7D7FFD7D7 + D7FFD7D7D7FFD7D7D7FFD6D6D6FFD6D6D6FFD5D5D5FFD5D5D5FFD5D5D5FFD4D4 + D4FFD4D4D4FFD4D4D4FFD3D3D3FFD3D3D3FFD3D3D3FFD2D2D2FFD2D2D2FF39A4 + 76FFC4CDCAFFD1D1D1FF00000000000000002AA777FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF10BF8EFF0DCB95FF0DCC95FF0FC18FFF2ED4A2FF2BA777FF0000 + 000000000000000000000000000000000000000000002C2A29FF33312EFF3231 + 2FFFC4D1D7FFC4D0D7FFC4D0D7FFC4D0D7FFC4D0D8FFC4D0D7FFC4D1D7FFC4D1 + D8FFC4D1D7FFC4D1D7FFC4D1D8FFC4D0D8FFC4D0D8FFC4D1D7FFC4D0D8FFC4D0 + D7FF33302FFF33302FFF0000000000000000000000000ED09AFF11C392FF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF11C191FF0FD09AFF2AA677FFD7906CFFEDA9 + 80FFE8A47DFFEDA980FFEDA980FFE8A47DFFD7906BFF000000001B6ACDFF0486 + EFFF038FF2FF0486EEFF000000000000000000000000ACACACFFDCDCDCFFEDED + EDFF269B6AFF279B6AFF279B6AFF279B69FF279A69FF289A69FF289A68FF289A + 68FF289A68FF289968FF289968FF289968FF289968FF289968FF289968FFCBE8 + DCFFEAEAEAFFD7D7D7FF000000000000000028AA7AFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF0FC793FF0ECE98FF0DCE98FF0DCE98FF0DCE98FF0FC492FF27AA + 7AFF0F342452000604080000000000000000000000002F2E2BFF373534FF3735 + 34FFFBE8D4FFFBE9D3FFFCE9D4FFFBE8D4FFFCE9D3FFFCE8D4FFFBE8D3FFFCE9 + D4FFFBE9D4FFFBE8D3FFFBE9D3FFFBE8D3FFFCE9D3FFFBE9D4FFFCE8D4FFFCE8 + D4FF383634FF373633FF00000000000000000000000013D59FFF10CB97FF0ED3 + 9CFF0FD39DFF0ED39DFF0ED39DFF10C996FF14D5A0FF27AA78FFD7916DFFEDAB + 81FFEBA880FFEDAA82FFEEAA82FFECA880FFD8926CFF000000001E6ED2FF048C + F1FF0391F3FF048BF1FF000000000000000000000000A3A3A3ECE0E0E0FFF9FC + FBFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC + 9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF2899 + 68FFFFFFFFFFDADADAFF000000000000000026AB7BFF0FC390FF10C18FFF0EC9 + 95FF0ECF99FF0DD099FF0DD09AFF0DD099FF0DCF9AFF0DD09AFF0DD099FF0DD0 + 99FF0ED099FF0DCF9AFF0ED09AFF0ED099FF0ED09AFF0ECF9AFF0DCF99FF19C9 + 97FF26AC7BFF0F342452000000000000000000000000302E2CFF3A3836FF3A38 + 36FFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2 + DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2 + DAFF3A3836FF3A3836FF00000000000000000000000016D7A2FF10CE9AFF0FD4 + 9EFF0ED59EFF0FD59EFF0ED49EFF10CC99FF17D7A2FF26AA79FFD8926DFFEDAB + 83FFEDAC82FFEEAC82FFEEAB83FFEEAC82FFD8926DFF000000001F6FD4FF038E + F1FF0393F2FF038EF1FF000000000000000000000000A1A1A1E6EAEAEAFFF4FA + F7FF47CA9DFF23A674FF23A674FF24A472FF24A472FF24A472FF24A472FF24A4 + 72FF24A472FF24A472FF24A472FF24A472FF24A472FF24A472FF23A674FF279B + 6BFFFFFFFFFFE5E5E5FF000000000000000024AD7CFF0FC492FF0ECA96FF0DD1 + 9BFF0DD29BFF0ED29BFF0DD19BFF0ED19AFF0DD19BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD29BFF0ED19BFF0DD19AFF0DD19BFF0DD19BFF0ED19BFF0ED19BFF0FC9 + 95FF19CB99FF24AD7CFF000403060000000000000000312F2EFF3D3B38FF3C3A + 39FFFCE9D5FFFCEAD5FFFCE9D5FFFBEAD6FFFCEAD5FFFCE9D5FFFCE9D6FFFCEA + D5FFFCEAD6FFFCEAD5FFFCEAD5FFFCEAD6FFFBEAD6FFFCE9D5FFFCEAD6FFFBE9 + D5FF3D3B39FF3D3B39FF0000000000000000000000001AD9A5FF0FD29DFF0ED5 + A0FF0FD5A0FF0FD6A0FF0FD69FFF10D19CFF1BD9A6FF25AC7AFFD9936DFFEEAE + 84FFEDAC83FFEEAC83FFEEAC83FFEEAC83FFD9926DFF000000002071D7FF0393 + F3FF0393F3FF0393F3FF000000000000000000000000A7A7A7E3FFFFFFFFEEFA + F5FF5AE0B6FF26C18FFF26C895FF26C895FF26C895FF26C895FF26C895FF26C8 + 95FF26C895FF26C895FF26C895FF26C895FF26C895FF26C895FF26C08EFF23A2 + 70FFFFFFFFFFFFFFFFFF000000000000000021B17FFF0FC995FF0ED49EFF0ED4 + 9EFF0DD49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED4 + 9DFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED5 + 9EFF0ED49EFF0FCF9AFF22B07FFF0F34245200000000353331FF43403EFF4240 + 3EFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D4DBFFC4D3DCFFC4D4DCFFC4D4 + DCFFC4D4DCFFC4D3DCFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D3DBFFC4D3 + DCFF42403EFF43403EFF00000000000000000000000022DDABFF0ED9A3FF0FD9 + A3FF0FD9A3FF0ED8A3FF0ED9A2FF0FD8A3FF25DFACFF22B07EFFD9946EFFF0B2 + 8AFFEFAE85FFEEAE85FFEFAE84FFEFAE84FFD9946EFF000000001584EAFF5DC7 + FBFF5DC7FBFF5DC7FBFF000000000000000000000000A8A8A8E0FFFFFFFFE6F8 + F2FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF21A7 + 74FFFFFFFFFFFFFFFFFF000000000000000020B280FF0FCC98FF0ED5A0FF0ED6 + A0FF0ED69FFF0ED5A0FF0ED59FFF0ED6A0FF0ED69FFF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED5A0FF0ED69FFF0ED69FFF0ED69FFF0ED69FFF0ED59FFF0ED6A0FF0ED5 + A0FF0ED69FFF0ED5A0FF2ADEACFF20B27FFF00000000363432FF454341FF4643 + 40FFFBEAD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEB + D7FFFCEBD7FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEAD8FFFCEB + D8FF454341FF454341FF00000000000000000000000027E0AEFF0EDAA4FF0EDA + A5FF0FDBA4FF0FDAA4FF0FDAA5FF0FDAA4FF29E0AEFF22B17FFFD9946EFFEFB4 + 8CFFEFAF86FFEEAF85FFEFAF85FFEFAF86FFDA936EFF00000000000000001584 + EAFF1584EAFF1584EAFF000000000000000000000000A0A0A0D5FFFFFFFFDDF7 + EFFF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF1EAB + 78FFFFFFFFFFFFFFFFFF00000000000000001FB381FF0FCF9AFF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0FD7A1FF1EB381FF063C2C5200000000383634FF484643FF4846 + 43FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEB + D8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFB2A6 + 9AFF484543FF484543FF0000000000000000000000002CE2B1FF0FDBA6FF0FDC + A5FF0FDBA6FF0FDBA6FF0FDCA6FF0FDCA6FF2EE3B1FF21B381FFDA946EFFF0B7 + 8FFFEFAF86FFEFB086FFEFB086FFEFB086FFDA946FFF00000000000000000000 + 000000000000000000000000000000000000000000007B7B7BA8EFEFEFFFF6FC + FAFF5CE7BDFF23C08DFFECBD96FFECBE97FFECBE97FFECBE97FFECBE97FFECBE + 97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FF24BD8BFF19B3 + 7FFFFFFFFFFFF3F3F3FF00000000000000001BB783FF0FD5A1FF0FDAA4FF0EDA + A4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDA + A4FF0EDAA4FF0FD9A4FF0ED9A4FF0EDAA5FF0FDAA4FF0EDAA4FF0FDAA4FF0EDA + A4FF46E7BAFF1BB684FF0000000000000000000000003B3836FF4E4B49FF4E4A + 49FF4E4B49FF4E4B49FF4E4B48FF3D3A39FF3C3A39FF3C3A39FF3C3A38FF3D3A + 39FF3C3A39FF3D3A38FF3C3A39FF3C3A39FF3D3A38FF3D3A39FF3C3A39FF4E4B + 49FF4E4A48FF4D4A49FF00000000000000000000000037E6B5FF0FDEA9FF0FDE + A8FF0FDEA9FF0FDEA9FF10DEA9FF0FDEA9FF39E6B6FF20B885FFDB956FFFF1BD + 94FFF0B188FFEFB188FFEFB187FFEFB187FFDB956FFF00000000000000000000 + 000000000000000000000000000000000000000000000D0D0D13959595C6C3CE + CAFD54BF9EFF48B48FFEF1C9A0FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CC + A3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CBA2FF46B28CFE18B7 + 83FFBDBDBDE99B9B9BCE000000000000000019B884FF0ED8A3FF0EDBA6FF0FDB + A6FF0EDBA6FF0FDBA6FF0EDBA5FF0FDCA6FF0EDCA6FF0EDBA5FF0FDBA5FF0FDC + A5FF0EDBA6FF0EDBA6FF0FDCA6FF0FDCA5FF0FDBA6FF0FDBA6FF0FDBA6FF4FEA + BFFF1AB885FF063C2C520000000000000000000000003C3938FF504D4BFF504E + 4BFF6D6B6AFF5F5B58FF5F5B58FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8 + C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FF3E3C3AFF504D + 4BFF504D4BFF504D4BFF0000000000000000000000003DE8B8FF0FE0A9FF0FDF + AAFF0FDFAAFF10E0A9FF0FE0AAFF0FDFA9FF3EE8B9FF1FB986FFDB9570FFF2C0 + 97FFF0B188FFF0B187FFEFB288FFF0B188FFDB956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002222 + 22321616162000000000F5D1ABFFF9D8B2FFF8D8B2FFF9D8B2FFF8D8B1FFF9D8 + B2FFF9D8B2FFF8D8B1FFF9D8B1FFF9D8B2FFF9D8B1FFF7D5AFFF161817231616 + 16201010101800000000000000000000000018B985FF0FDCA6FF0FDDA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDD + A7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF18BA + 85FF063C2C52000000000000000000000000000000003D3A39FF534F4DFF5350 + 4DFF5F5B58FF4A4645FF4A4645FFE9E8C4FFE9E9C4FFE9E9C4FFE9E9C5FFE8E9 + C4FFE8E9C4FFE9E8C4FF2F2E2CFF474341FFE9E9C5FFE9E9C5FF413D3CFF534F + 4DFF53504DFF53504EFF00000000000000000000000041E9BAFF0FE1ABFF0FE1 + ACFF0FE0ABFF10E0ABFF10E1ABFF0FE1ABFF43EABBFF1EBB88FFDC956FFFF2C2 + 99FFF0B288FFEFB389FFEFB288FFF0B288FFDC956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3CEA9FFFADBB7FFFADBB7FFF9DAB7FFFADBB7FFF9DB + B7FFF9DBB7FFF9DBB7FFF9DAB7FFFADBB7FFF9DBB7FFF5D2AEFF000000000000 + 00000000000000000000000000000000000013C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF16BC89FF0FE0AAFF0FDFAAFF0FE0AAFF0FE0A9FF6BF2CCFF16BC88FF0000 + 00000000000000000000000000000000000000000000403E3CFF575452FF5754 + 52FF5F5B58FF4A4645FF575452FFEBEBCDFFEBEBCCFFEBEBCCFFEBEBCCFFEBEC + CCFFEBEBCCFFEBEBCCFF2F2E2CFF474341FFEBEBCCFFEBEBCCFF444140FF5754 + 52FF575452FF575452FF0000000000000000000000004CECBEFF10E3AEFF0FE3 + ADFF10E2AEFF0FE2ADFF0FE3AEFF10E3ADFF4EECBFFF1DBE8BFFDC9670FFF5F9 + F7FFF7E1BAFFF7E1BAFFF7E1BAFFF7E1BAFFDC9670FF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2CCA8FFFADDBAFFFADCBAFFFADCBAFFFADDBAFFF9DC + BAFFFADDBAFFFADCBAFFF9DCBAFFFADCBAFFFADCB9FFF4D0ADFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89FF0FE1ABFF10E0ABFF10E1ABFF73F4CFFF14BD89FF063C2C520000 + 00000000000000000000000000000000000000000000413E3DFF5A5654FF5A56 + 54FF5F5B58FF4A4645FF5A5654FFEDECD0FFEDEDD1FFEDEDD0FFEDEDD1FFECEC + D0FFEDEDD0FFECEDD0FF2F2E2CFF474341FFECEDD0FFECECD1FF464341FF5A56 + 54FF5A5654FF595554FF00000000000000000000000051EDC0FF0FE3AFFF10E4 + AFFF10E4AEFF10E4AFFF10E3AFFF10E4AEFF53EDC1FF1DC18DFF54392B58D796 + 70E3F2AF85FFF3AE85FFF2AE85FFF2AE85FF35261D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA6FFFADEBCFFFADEBDFFFADDBCFFFADDBCFFFADE + BDFFFADEBDFFFADDBDFFFADEBCFFFADEBDFFFADDBDFFF3CFACFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8BFF0FE2ACFF10E1ADFF0FE2ACFF13BF8AFF063C2C52000000000000 + 0000000000000000000000000000000000000000000042403EFF5B5855FF5B57 + 56FF5F5B58FF4A4645FF5C5855FFEEEED5FFEEEED5FFEEEED5FFEEEED5FFEEEE + D5FFEEEED5FFEEEED5FF2F2E2CFF474341FFEEEED5FFEEEED5FF484442FF5B57 + 56FF5C5856FF5B5856FF00000000000000000000000056EEC2FF10E5AFFF0FE5 + B0FF10E5B0FF10E4AFFF10E5B0FF10E5B0FF58EEC2FF1CC28FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A4FFFAE0C1FFFBE0C2FFFAE0C1FFFBE0C2FFFAE0 + C2FFFAE0C2FFFAE0C2FFFAE0C1FFFBE0C1FFFAE0C2FFF1CBA8FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18CFF10E3AFFF89F8D7FF11C18CFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000444140FF5F5A58FF5F5B + 58FF5F5B58FF4A4645FF5E5B59FFF0F1DEFFF1F1DDFFF1F1DEFFF1F1DEFFF0F1 + DEFFF1F1DEFFF0F1DEFF2F2E2CFF2F2E2CFFF1F1DDFFF0F1DEFF494645FF5F5A + 59FF5F5B59FF6D6B6AFF0000000000000000000000005FEFC4FF10E7B1FF10E7 + B1FF10E6B1FF10E7B1FF10E6B1FF10E6B1FF61EFC5FF1CC591FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A4FFFBE2C3FFFAE1C4FFFBE1C3FFFAE2C3FFFBE1 + C4FFFAE1C4FFFBE1C4FFFBE1C3FFFBE1C3FFFBE1C4FFEFC8A6FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28DFF8EF9D8FF10C28DFF063C2C520000000000000000000000000000 + 00000000000000000000000000000000000000000000454241FF8D8C8BFF6D6B + 6AFF5F5B58FF4A4645FF6D6B6AFFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFB + F5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FF555353FF6D6B + 6AFF8D8C8BFF454240FF00000000000000000000000063F0C5FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF65F0C5FF1CC792FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7 + A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A5FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28DFF0FC28DFF063C2C52000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A37369B454241FF4542 + 40FF5F5B58FF4A4645FF454241FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3 + B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFF4F3E4FF363333FF4542 + 41FF454240FF1F1D1D5A00000000000000000000000068F0C7FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF68F0C7FF1DC894FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48FFF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001BCB97F420CA97F421CB + 98F421CB98F421CB98F421CB98F41FCB97F418C390EC00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202220A0A0938000000380000003800000038000000380000 + 0038000000380000003800000038000000380A0A093C02020222000000000000 + 0000000000000000000000000000000000000000000000000002000000040000 + 0002000000000000000B000000180000002A0000002900000029000000290000 + 00290000002900000028000000260000001A0000000900000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82FF8E8F82FF8E8F82FF8E8F82FF8E8F + 82FF8E8F82FF8E8F82FF8E8F82FF8E8F82FF1313122002020205000000000000 + 0000000000000000000000000000000000000000000000000004000000060000 + 00090000000C0000001000000025349E6FFF349E6FFF349E6FFF349E6FFF349E + 6FFF349E6FFF349E6FFF349E6FFF349E6FFF0000002400000021000000150000 + 000B000000090000000900000003000000020000001E00000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000520000003200000000BD8B6BFBD39E7AFFD39E + 7BFFD39E7AFFD39E7AFFD39E7AFFD49E7AFFD49E7AFFD49E7AFFD49E7AFFD49E + 7AFFD49E7AFFD49F7AFFD49F7AFFD49F7AFFD49F7AFFD59F7AFFD59F7AFFD59F + 7AFFD59F7AFFD59F7AFF73513D9F000000000000000000000000000000000000 + 0000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFA5A69BFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070FF3CD7A7FF13B98CFF13B98CFF13B9 + 8CFF13B98CFF13B98CFF3CD7A7FF329F70FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFF1361DFFF1361 + DFFF1361DFFF1361DFFF0F3EB0FFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFCC8865FF0000000000000000C29372FFF5C49CFFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF5C49CFFD09775FF020101030000000000000000000000000000 + 0000000000000000000000000000C2C3B4FFF0F0ECFFF0F0ECFFF0F0ECFFF0F0 + ECFFF0F0ECFFF0F0ECFFF0F0ECFFC2C3B4FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031A171FF39D7A6FF0CC78FFF0CC78FFF0CC7 + 8FFF0CC78FFF0CC78FFF39D7A6FF32A171FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFE59E + 75FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDC936FFF0353DCFF0353 + DCFF0352DBFF0353DBFF0F3FB1FFDD946FFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFE59E75FFCC8865FF0000000000000000DDAB86FFC59674FFF5C9 + A3FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B6 + 90FFE8B690FFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B6 + 8FFFF5C9A3FFCF9D7AFFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFA5A69BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000030A272FF34D5A4FF0CC790FF0CC790FF0CC7 + 90FF0CC790FF0CC790FF34D6A5FF31A272FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CD8965FFEEA97AFFDF97 + 72FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDB916EFF0455DCFF0455 + DCFF0454DCFF0454DCFF0E40B3FFDC926EFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFDF9772FFCD8965FF0000000000000000F4C49BFFF0C198FFE7B8 + 91FFF7D3B4FFEBBD96FFF5C89FFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C7 + 9EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFEBBC96FFD8A6 + 82FFECB890FFF2BD94FFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000818277FF818277FF818277FF8182 + 77FF818277FF818277FF818277FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA474FF29D3A1FF0DCA92FF0DCA92FF0DCA + 92FF0DCA92FF0DCA92FF29D3A1FF2EA473FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CE8A66FFEEA97BFFE19A + 74FFECA77FFFECA77EFFECA77EFFECA87FFFECA87EFFE09873FF0657DEFF0657 + DEFF0657DFFF0657DFFF0E42B7FFE29974FFECA77FFFECA77FFFECA77FFFECA7 + 7FFFECA87FFFE19974FFCE8A66FF0000000000000000F5C89EFFF5C89EFFF4C7 + 9DFFD3A582FFF8D9BCFFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CA + A1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF8D9BCFFF1BE + 96FFF4C198FFF4C198FFD09775FF02020104A5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002CA675FF23D29FFF0DCB93FF0DCB93FF0DCB + 93FF0DCB93FF0DCB93FF23D19FFF2DA574FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CF8A67FFEEA97CFFE39C + 76FFEDA981FFECA980FFECA980FFECA980FFECA980FFDE9671FF0759E0FF0759 + E0FF0759DFFF0759E0FF0D44BAFFE09772FFECA880FFEDA980FFECA980FFEDA9 + 80FFEDA980FFE39C76FFCF8B67FF0000000000000000F5C89EFFF5C89EFFF5C8 + 9EFFF3C59CFFDBAD88FFF9DFC5FFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C5 + 9DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF9DFC7FFE2B38DFFF4C4 + 9BFFF4C49BFFF4C49BFFD09775FF03020104A5A69BFFC3C4B5FFC2C3B5FFC2C4 + B5FFC3C4B4FFC2C4B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C3 + B5FFC3C3B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C4B4FFC3C4 + B5FFC3C3B4FFC2C4B5FFC3C3B5FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002BA676FF1DD09DFF0DCC94FF0DCC94FF0DCC + 94FF0DCC94FF0DCC94FF1DD19CFF2BA676FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000D08B68FFEEA97DFFE49F + 78FFEEAA81FFEEAB82FFEDAA82FFEDAB82FFEDAA82FFDC936FFF095AE1FF095A + E1FF085AE1FF095AE1FF0D45BDFFDD9470FFEEAB81FFEDAA82FFEEAA81FFEDAB + 82FFEEAA81FFE49F78FFCF8B67FF0000000000000000F6CDA4FFF6CDA4FFF6CD + A4FFF5CCA3FFF5CCA3FFF5CCA3FFFBE8D4FFE9B790FFE9B790FFE9B790FFE9B7 + 90FFE9B790FFE9B790FFE9B790FFE9B790FFECBF97FFF5C89FFFF5C89FFFF5C8 + 9EFFF5C89EFFF5C89EFFD09775FF03020104A5A69BFFE4E3DBFFE4E3DBFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFC7C7B8FFA5A69BFF28AA7AFF28AA7AFF27AA79FF28AA + 79FF28AA79FF28AA79FF28AA79FF27AA79FF14CE99FF0DCF98FF0DCF98FF0DCF + 98FF0DCF98FF0DCF98FF13CF99FF28A979FF29A978FF28A979FF28A978FF29A9 + 78FF28A978FF29A978FF29A978FF0000000000000000D28E69FFEFAE82FFECA9 + 81FFF0B086FFF0B086FFF0B086FFF0AF86FFF0AF86FFD68A68FF0D60E4FF0D60 + E4FF0D60E4FF0D60E5FF0E4DC8FFD78B69FFF0B086FFF0B086FFF0B086FFF0AF + 86FFF0AF86FFECAA81FFD28D69FF0000000000000000F6D0A7FFF6D0A7FFF6D0 + A7FFF6CFA6FFF6CFA6FFF6CFA6FFFDF2E6FFFDF4EAFFFBEBD9FFFBEBD9FFFBEB + D9FFFBEBD9FFFBEBD9FFFDF4EAFFFDF4EAFFF5CBA2FFF5CBA2FFF5CBA2FFF5CA + A1FFF5CAA1FFF5CAA1FFD09775FF03020104A5A69BFFD69773FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFC7C9B9FFA5A69BFF26AC7BFF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE98FF0DD099FF0DD099FF0DD0 + 99FF0DD099FF0DD099FF11CE98FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF27AA79FF0000000000000000D38E69FFEAA77DFFE8A5 + 7EFFEBA880FFEBA880FFEBA880FFEBA880FFEBA880FFD38564FF0E62E6FF0E62 + E6FF0E61E5FF0E62E6FF0E50CCFFD38665FFEBA881FFEAA981FFEBA880FFEBA8 + 80FFEBA880FFE8A57DFFD38E6AFF0000000000000000F7D3AAFFF7D3AAFFF7D3 + AAFFF6D2A9FFF6D2A9FFF6D3AAFF3786A9FF0685C4FF0685C5FF0299E8FF0299 + ECFF0299EFFF038FE3FF038FE3FF4FA4D4FFF6D0A8FFF6CEA5FFF6CEA5FFF6CD + A4FFF6CDA4FFF6CDA4FFD09775FF03020104A5A69BFFE6A47EFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFC9CABBFFA5A69BFF24AE7CFF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF11C996FF11C996FF11C996FF0DD29BFF0DD29BFF0DD2 + 9BFF0DD29BFF0DD29BFF0DD29BFF11C996FF11C996FF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF26AC7BFF0000000000000000D48F6AFFDB926EFFDA90 + 6EFFDB926EFFDB926EFFDB926EFFDB926EFFDB926EFFCE7F5FFF1064E7FF1064 + E7FF1064E7FF1064E7FF1054D0FFCE8060FFDB916EFFDB926EFFDB926EFFDB92 + 6EFFDB916EFFDB926EFFD48F6BFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF7D7B1FFF9E2CAFF0C8ABAFF069AD6FF04AFF2FF03AFF5FF03ACF6FF02AA + F6FF02A8F6FF02A3F6FF01A2F7FF01A0F7FF019DF7FFF9E2CAFFF2D7B6FFF7D3 + AAFFF7D3AAFFF7D3AAFFD09775FF03020104A5A69BFFE6A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCDBEFFA5A69BFF21B17FFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF22AF7DFF0000000000000000D6916CFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFF1368E9FF1368 + E9FF1367EAFF1367EAFF125BD9FFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFD6906CFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF8DFC3FF0997CAFF0999CEFF05B5F4FF05B5F5FF04B4F5FF04B1F5FF03AE + F5FF03ACF6FF02A8F6FF02A7F6FF02A5F6FF01A0F7FF019FF7FFF8DFC3FFF7D8 + B2FFF7D5ADFFF7D5ADFFD09775FF03020104A5A69BFFE5A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCEBFFFA5A69BFF1FB280FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF20B17FFF0000000000000000F4B78DFFF5B88DFFF4B8 + 8DFFF4B78DFFF4B78DFFF4B88DFFF4B88DFFF4B88DFFF0AF86FF1469EBFF1469 + EBFF166BEBFF1369EBFF135EDDFFF2B289FFF4B78DFFF4B78DFFF4B88DFFF4B8 + 8DFFF4B88DFFF5B78DFFF5BC93FFD7916CFF00000000F7D5ADFFF7D5ADFFEED2 + B0FB0B9BCAFF0AA5D6FF09AFE4FF06B9F5FF06B8F5FF05B6F5FF05B5F5FF04B2 + F5FF04B1F5FF03ACF5FF02ABF6FF02AAF6FF02A5F6FF02A3F6FF01A2F7FFF5D7 + B5FFF4D6B4FCF7D5ADFFD09775FF03020104A5A69BFFE5A37EFFE9A680FFE8A6 + 80FFE9A680FFE8A680FFE8A680FFE9A680FFE9A680FFE9A680FFE8A680FFE8A6 + 80FFE8A780FFE8A680FFE8A780FFE9A680FFE9A780FFE9A680FFE9A681FFE8A6 + 80FFE8A780FFE8A680FFCECFC0FFA5A69BFF1EB482FF10D8A1FF10D8A1FF10D8 + A1FF10D8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF20B280FF0000000000000000F5B98FFFEFB087FFEFB0 + 87FFEFB087FFEFB087FFEFB087FFEFAF87FFEFB087FFE8A57EFF146BECFF146B + ECFF2073EEFF156AECFF1462E0FFEAA780FFEFB087FFEFB087FFEFB087FFEFB0 + 87FFEFB087FFEFB087FFF5BD94FFD8926DFF00000000F1D3B3FBF5D8B7FFC9A5 + 8AFF35C4E7FF0BC3F4FF0BC3F4FF0AC1F4FF09C0F4FF08BEF4FF07BCF5FF06B9 + F5FF06B8F5FF05B5F5FF04B4F5FF04B2F5FF36AAD7FFA89D90FFC3A289FFE1B5 + 93FFF5D8B7FFF5D8B7FFDFB090FF03020104A5A69BFFE6A681FFEAAA84FFEAA9 + 84FFEBA983FFEBA983FFEBA984FFEAAA83FFEAAA83FFEBA983FFEAAA83FFEBAA + 83FFEAAA84FFEAAA83FFEBA983FFEAA983FFEAAA84FFEBAA83FFEBA983FFEAAA + 83FFEAAA84FFEAAA83FFD1D2C3FFA5A69BFF1AB784FF16DBA6FF16DBA6FF16DB + A6FF16DBA6FF15DBA6FF15DBA6FF15DBA6FF14DBA6FF14DBA6FF14DBA6FF14DB + A6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DB + A5FF13DBA5FF12DBA5FF1CB683FF0000000000000000F7C79FFFF2B58CFFF6BB + 90FFF6BC90FFF6BB90FFF6BB91FFF6BB90FFF6BB90FFEAA780FF176DEEFF176D + EEFF5196F4FF176EEDFF1568E7FFEAA780FFF6BB90FFF7BB91FFF6BB91FFF6BB + 91FFF6BB90FFF6BB90FFF7C7A0FFD9936EFF00000000E8C2A2FDE6BA96FFE0B2 + 90FF9EA598FF55D2EAFF0CC5F3FF0BC3F4FF0BC3F4FF0AC2F4FF09C0F4FF08BD + F4FF07BCF5FF06B8F5FF05B6F5FF0AB6F3FFBE9F88FFCDA88CFFDEB593FFE8BB + 97FFE8BC97FFE8BC97FFC39071EA00000000A5A69BFFE6A881FFECAB85FFECAC + 86FFEBAC85FFEBAB85FFEBAB85FFECAB85FFEBAC85FFECAC85FFEBAC85FFEBAC + 85FFECAB85FFEBAC85FFEBAC85FFECAC85FFEBAB85FFECAC85FFECAB85FFECAC + 85FFECAC85FFEBAC85FFD3D4C5FFA5A69BFF18B885FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF90F9D9FFF5F9F7FF1FDDA9FF19DCA7FF19DCA7FF19DC + A7FF18DCA7FF18DCA7FF1DDDA9FFF5F9F7FF90F9D9FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF1AB784FF0000000000000000F8CCA6FFF3B78DFFF6BC + 91FFF7BC91FFF7BC91FFF7BC91FFF6BC91FFF6BD91FFEAA881FF176EEEFF1970 + EEFF69A8F7FF176FEEFF166BEAFFE6A27CFFF7BC91FFF7BD91FFF7BC91FFF6BC + 91FFF6BC92FFF6BC91FFF8CCA6FFDA946EFF00000000DAA886FFECCAACFEE7BB + 98FFD7AE90FFB3A793FF74D9EAFF0CC5F3FF0BC3F3FF0BC3F4FF0BC3F4FF0AC1 + F4FF09C0F4FF07BCF4FF21B7E6FF97A49DFFD8B292FFE4B996FFE9BD99FFE9BE + 99FFE9BE9AFFEECFB1FD5642356500000000A5A69BFFE8A983FFECAE87FFECAE + 87FFEDAE87FFEDAE87FFECAE87FFECAD87FFECAE87FFEDAE87FFEDAE88FFEDAE + 87FFECAE88FFEDAE87FFEDAE87FFECAD87FFEDAE87FFECAE87FFECAE87FFECAE + 87FFECAE88FFECAE87FFD4D5C8FFA5A69BFF17BA87FF17BB87FF17BA86FF17BA + 86FF18BA87FF17B986FF17BA87FF17BA86FF2AE0ADFF1DDDA9FF1DDDA9FF1DDD + A9FF1CDDA9FF1CDDA9FF28E0ADFF18B986FF18B986FF18B986FF18B986FF18B9 + 86FF18B986FF19B985FF19B985FF0000000000000000F9DFC7FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFE7A47EFF186FEFFF277A + F1FF7AB4F9FF186FEFFF186EEEFFE7A47EFFF7BE93FFF7BE93FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFFAE8D8FFDA946FFF000000000000000055413464DAA8 + 86FFEAC09BFFE9BE99FFE5BB98FF9CE8F3FF11CDF2FF0FCAF3FF0DC8F3FF0CC5 + F3FF0EC9F4FFC1A78FFFDAB595FFE8BF9CFFECC29DFFECC29DFFECC39DFFF2D6 + B9FDDEAE8DFF564235650000000000000000A5A69BFFE8AC86FFEFB38CFFEFB3 + 8CFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB28CFFEFB38BFFEFB28CFFEFB3 + 8CFFEFB28BFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB38BFFEFB28CFFEFB3 + 8BFFEFB38BFFEFB28CFFD7D7CBFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000014BC88FF3FE4B3FF26DEABFF25DEABFF25DE + ABFF25DEABFF24DEABFF3CE3B2FF15BC88FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000DA9570FFAE8989FF3648 + 99FF1E3592FF454C91FF615178FFB67E62FFBF8260FF95654AC7146BECFF146B + ECFF146BECFF146BECFFBF8260FF95654AC7B67E63FF8C6B70FF7F708EFF203E + 9AFF1A3B9BFF374E9DFFDA9570FF8D654A8F0000000000000000000000005541 + 3464F2D8BDFDECC19EFFEBC19CFFCBB99EFFAFEEF8FF12CEF2FF10CCF3FF13CE + F3FF5CBFC8FFE3BD9AFFECC39EFFEEC59FFFEEC59FFFEEC59FFFEEC5A0FFDFB0 + 8EFF57433566000000000000000000000000A5A69BFFE9AD87FFF1B58EFFF1B5 + 8EFFF1B58EFFF0B58EFFF0B58DFFF0B58EFFF0B58EFFF1B58EFFF1B58EFFF0B5 + 8EFFF1B58EFFF1B58DFFF1B58EFFF1B58EFFF0B58DFFF1B58DFFF0B58DFFF0B5 + 8DFFF0B58EFFF1B58EFFD7D8CCFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BE8AFF46E5B5FF2ADEABFF29DEABFF29DE + ABFF29DEABFF29DEABFF45E5B5FF14BE89FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000017234F7C0E33A0FF1F5D + CEFF0D46BBFF0B4ECBFF0A44BBFF0C2890FF1C3796FF5B5684FF062E9EFF062E + 9EFF062E9EFF062E9EFF947272FF5C5984FF0F379EFF0D3FADFF0C4CC4FF0E48 + BEFF1662DFFF2063D4FF615A75C6000000010000000000000000000000000000 + 0000DCAA88FFF5DBC1FEEDC59FFFECC39DFFCDC2A6FFBFF1FAFF15D3F2FF5AC7 + CEFFDCB998FFEEC7A1FFEEC7A1FFEFC8A2FFEFC8A2FFEFC8A2FFF4DBC0FD5844 + 366800000000000000000000000000000000A5A69BFFEAAF89FFF1B78FFFF1B7 + 90FFF1B890FFF1B790FFF2B790FFF2B890FFF1B790FFF1B790FFF1B890FFF1B8 + 90FFF2B890FFF2B890FFF2B790FFF1B790FFF2B790FFF2B890FFF2B78FFFF2B7 + 8FFFF2B790FFF1B790FFD8DACEFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BF8BFF4CE6B7FF2EDEABFF2EDEABFF2DDE + ABFF2DDEABFF2DDEACFF4BE6B7FF13BF8BFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000C317FB61653C5FF3880 + EDFF0E50CCFF0C5FE3FF0448CEFF0E35A5FF0E34A4FF0D35A6FF103CADFF4990 + F1FF4990F1FF103CADFF1345B2FF0E36A3FF0E35A5FF0E35A5FF0D40B5FF0E50 + CCFF387BECFF3880EDFF0C317FB6000000000000000000000000000000000000 + 00000000000058443668DDAD8BFFF0CAA3FFF1CBA4FFF1CBA4FFF0CBA4FFF1CC + A4FFF2CCA5FFF2CDA5FFF2CDA5FFF3CEA6FFF5DDC3FDE1B593FF5B46376B0000 + 000000000000000000000000000000000000A5A69BFFEBB18BFFF4BB93FFF3BB + 94FFF3BB94FFF3BB94FFF4BB93FFF4BB94FFF4BB93FFF4BB94FFF3BB94FFF3BB + 94FFF3BC94FFF4BB94FFF3BB94FFF3BB93FFF4BC93FFF3BB94FFF4BB93FFF4BB + 94FFF4BB94FFF4BB94FFDBDBD0FFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000011C28CFF53E8B9FF35DDABFF34DDABFF34DD + ABFF34DEABFF34DEABFF53E8B9FF11C18CFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000B317FB7215BCAFF5195 + F8FF0C5BDDFF0C5FE3FF0E60E3FF2672E6FF2A6CDDFF124FCBFF123AA3F4173F + A5EF1241AEFF1241ABF80E45B6FD0D4CCBFF206CE4FF2270E7FF0E60E3FF0C5B + DDFF5091F6FF5195F8FF0B317FB7000000000000000000000000000000000000 + 000000000000000000005A45376AF7DFC6FEF7DEC2FFF7DEC2FFF7DEC2FFF7DE + C2FFF7DFC2FFF7DFC3FFF7DFC3FFF8DFC3FFE2B695FF5D47386D000000000000 + 000000000000000000000000000000000000A5A69BFFEBB28CFFF4BD94FFF4BC + 95FFF4BC95FFF4BC95FFF5BD95FFF4BD95FFF4BC95FFF4BD95FFF4BD95FFF5BD + 95FFF4BC95FFF4BD95FFF4BD95FFF5BD95FFF5BD95FFF4BD95FFF4BD95FFF4BD + 95FFF4BD94FFF5BD94FFDBDCD0FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000FC38DFF54E9BAFF37DDABFF37DDABFF37DD + ABFF37DDABFF37DDABFF54E9BAFF10C28DFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000928699A2158C7FF579B + FDFF1C6CE6FF3781ECFF478AEBFF0D48C8FF0D40B8FE0D34A0F2000001030000 + 00000000000000000203061B486C0F3EA5F20D49C8FF2464D8FF478AEBFF1C6C + E6FF5698FCFF579BFDFF0928699A000000000000000000000000000000000000 + 0000000000000000000000000000B28B6FCDE8BC98FFE8BC98FFE8BC98FFE8BD + 98FFE8BD99FFE8BE99FFE8BE99FFE9BE99FF5E48386E00000000000000000000 + 000000000000000000000000000000000000A5A69BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFDCDDD1FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000EC38EFF79EDC8FF3ADCABFF39DCABFF39DC + ABFF39DCABFF39DDABFF79EDC8FF0FC38EFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000061C4A6F1B50BEFF599C + FDFF97C3FAFF1859D4FF0D47C7FF0D36A4F70820629500030B11000000000000 + 000000000000000000000000000001040B110F40A9F70E46BCFF0D48C7FF97C3 + FAFF9BC8FDFF599CFDFF061C4A6F000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FF0000000000000000000000000000 + 00000000000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963791143 + B8FF0C3296DC071C578501030C13000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C130C3A + 9ADC0E42B0FB1249BBFF00000203000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00010000000300000005000000060000000C0000000E00000010000000140000 + 0011000000100000000C00000009000000060000000300000002000000010000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C0E33246A339F + 70FF0E33247F0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000001E000000320000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000003200000000000000000000000000000000000000000000 + 0002000000070000000A0000000C0000001C00000021000000240F34247F339F + 70FF0000002E00000021000000110000000D0000000600000003000000020000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523AD6A6FF13BA + 8CFF3AD6A6FF0F34245200000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF3569DCFF3569DCFF3569DCFF3569DCFF173BB6FF063384FF093889FF0938 + 89FF093889FF0C3C8FFF063384FF173BB6FF3568DCFF3568DCFF3568DCFF3568 + DCFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523CD7A7FF32A0 + 71FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245232A171FF13BA8CFF13BA + 8CFF13BA8CFF31A071FF0F342452000402050000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF366DDDFF366DDDFF366DDDFF366CDDFF173BB6FF063384FF13469DFF1346 + 9DFF13469DFF0E3E92FF063384FF173BB6FF366CDDFF366CDDFF366CDDFF366C + DDFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245230A271FF17CA95FF31A1 + 72FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A172FF35D5A5FF11BE8EFF12BD + 8EFF13BB8DFF35D5A5FF30A172FF0F3424520000000000000000000000000000 + 0000000000000000000000000000000000000000001800000021000000210000 + 00250000002A0000002A0000002A0000002A0000002A0000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A0000002A0000002A000000280000 + 0021000000210000001B00000000000000000000000000000000000000002E54 + D4FF5799EBFF5799EBFF5799EBFF72B7FFFF173BB6FF063384FF1548A0FF1448 + A0FF14489FFF114297FF063384FF173BB6FF5799EBFF5799EBFF5799EBFF5799 + EBFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A373FF39D6A6FF1FCE9AFF30A3 + 73FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245230D4A3FF12BD8EFF12BD8EFF0DCB95FF0DCB + 96FF0DCB95FF12BD8EFF12BD8EFF30D4A3FF0F34245200040205000000000000 + 00000000000000000000000000000000000000000010BD8462F1E8A97FFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFD595 + 70FF140E0B4A0000002700000000000000000000000000000000000000000000 + 0000D4D4D4FFBFBFBFFFBFBFBFFFBFBFBFFF9C9C9CFF063384FF194FA7FF184E + A7FF184EA7FF184EA5FF063384FF9C9C9CFFBFBFBFFFBFBFBFFFC3C3C3FFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245234D5A4FF10BF8EFF10BF8EFF30D4A2FF2DA5 + 75FF00000000000403060004030600040306000403060009060C000403060004 + 0306000403060004030600040306000302040000000000000000000000000000 + 0000000000000F3424522DA575FF12BE8FFF12BE8FFF0ECC97FF0ECC96FF0DCC + 96FF0ECC96FF0ECD97FF12BE8EFF12BF8FFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000B57D5BEFF6BB91FFE09B + 73FFD5916AFFD6926BFFD8946CFFD8956DFFD9956DFFDA966FFFDB976FFFDB97 + 6FFFDB976FFFDD9971FFDE9971FFDE9971FFE09A72FFE09A72FFE09B73FFE09C + 74FFB07C5ECD0000000000000000000000000000000000000000000000000000 + 0000D4D5D5FFBFBFBFFFCBCBCBFFCDCDCDFF9C9C9CFF063384FF093889FF0938 + 89FF093889FF1951AAFF063384FF9C9C9CFFCBCBCBFFCBCBCBFFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000008050A0F3424522CA675FF10C08FFF10C08EFF0DCA94FF37D6A5FF2BA7 + 76FF2CA676FF2CA676FF2CA676FF2BA676FF2BA676FF2BA675FF2BA676FF2CA6 + 76FF2CA675FF2CA676FF2BA675FF2CA676FF0000000000000000000000000000 + 00000F3424522CA676FF2AD3A2FF11C090FF0ECD98FF0ECD98FF0ECE97FF0ECD + 98FF0DCE97FF0ECE98FF0ECD98FF11C190FF2AD4A1FF2CA676FF0F3424520000 + 00000000000000000000000000000000000000000000B67E5CEEFDEFE2FFEDAC + 83FFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A3 + 7AFFE9A47AFFE9A47AFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE19C + 74FFD3946FFB0000000000000000000000000000000000000000000000000000 + 0000D6D6D6FFC3C3C3FFD3D3D3FFD6D6D6FF9C9C9CFF063384FF1D58B0FF1D57 + B0FF1D57AFFF114498FF063384FF9C9C9CFFD6D6D6FFD3D3D3FFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000F3424522BA777FF2ED4A2FF10C18FFF0DCC95FF0DCB95FF0DCB95FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF2AA777FF0000000000000000000000000F34 + 245224D4A1FF10C995FF10C995FF0ED09BFF0ED09AFF0ED09AFF0ED09BFF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF0ED09AFF10C996FF10C995FF24D4A1FF0F34 + 24520000000000000000000000000000000000000000B67E5DECF4C196FFEDB1 + 87FFE19C74FFEAA57CFFEAA57CFFEAA67DFFEAA67DFFEAA67DFFEAA67DFFEAA6 + 7DFFEAA67DFFEBA77DFFEBA77EFFEBA77EFFEBA87EFFEBA87EFFEBA87EFFEAA7 + 7EFFE6A57BFFC88D6BEE00000000000000000000000000000000000000000000 + 0000D9D9D9FFD0CFCFFFD8D8D9FFD8D9D9FF9C9C9CFF063384FF215EB8FF205D + B7FF205EB7FF1952A9FF063384FF9C9C9CFFD9D8D8FFD9D8D8FFC4C4C4FFB3B3 + B3FF000000000000000000000000000000000000000000000000000604080F34 + 245219C895FF0FC492FF0DCE98FF0DCF98FF0DCE98FF0ECE98FF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF19D29FFF28AA7AFF00000000000000000F34245227AB + 7AFF0FCC98FF0FCC97FF0ED19CFF0ED19CFF0ED19CFF0ED19BFF0FD19CFF0ED2 + 9CFF0ED19CFF0ED29BFF0ED19CFF0ED29CFF0ED19BFF0FCB97FF0FCC98FF27AA + 7AFF0F34245200000000000000000000000000000000B7805EEBF3C297FFCC8F + 69FFE19E76FFEAA67DFFEBA87EFFEBA87EFFEBA87EFFEBA87FFFECA97FFFECA9 + 7FFFECA97FFFECA97FFFECAA80FFECAA80FFECAA80FFECAA80FFEDAA80FFEDAB + 81FFE9A77EFFDB9C76FE00000000000000000000000000000000000000000000 + 0000DADADAFFD6D6D6FFDADADAFFDADADBFF9C9C9CFF063384FF3786D5FF3786 + D5FF3786D5FF1E5AB2FF063384FF9C9C9CFFDADADAFFDADADAFFCCCCCCFFB3B3 + B3FF0000000000000000000000000000000000000000000000000F34245226AC + 7BFF0FC793FF0DCF99FF0ECF9AFF0DD099FF0ED099FF0ED09AFF0DD099FF0ED0 + 99FF0DD099FF0ED099FF0DD09AFF0DCF9AFF0DCF9AFF0DD09AFF0DD099FF0DD0 + 9AFF0EC995FF10C18FFF20D6A2FF26AB7BFF000000000F34245226AC7BFF1ED4 + A1FF0FCF9AFF0ED39DFF0ED39DFF0ED29DFF0ED39DFF0ED29DFF0FD39DFF0ED3 + 9DFF0ED29DFF0ED39DFF0ED39DFF0ED39DFF0FD29DFF0ED39CFF10CE99FF1ED4 + A1FF26AC7AFF0F342452000000000000000000000000B77F5EE9F3C397FFC286 + 61FFE8AB82FFE5A47AFFECAA80FFEDAA80FFEDAB81FFEDAB81FFEDAB81FFEDAB + 81FFEDAC82FFEDAC82FFEDAC82FFEEAC83FFEEAD83FFEEAD83FFEEAD84FFEEAD + 84FFEDAD83FFE9AA80FF00000000000000000000000000000000000000000606 + 060BDCDBDBFFDCDCDBFFDBDCDBFFDBDBDCFF9C9C9CFF063384FF2260BAFF2260 + BAFF2260BAFF2260BAFF063384FF9C9C9CFFDBDBDBFFDBDBDCFFD3D3D3FFADAD + ADFF2C2C2C4B000000000000000000000000000000000F34245224AD7CFF19CB + 99FF0DD19BFF0ED19BFF0ED19BFF0ED19BFF0DD19BFF0DD19AFF0DD19BFF0DD2 + 9BFF0ED19BFF0ED19BFF0DD19BFF0DD19BFF0DD29BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD19BFF0ECA96FF27D9A6FF24AD7CFF0F342452D0F5EBFF57E7BEFF57E7 + BEFF56E9BFFF57EABFFFCEF5EBFF0ED59FFF0ED5A0FF0ED5A0FF0ED5A0FF0ED6 + A0FF0ED5A0FF0FD6A0FF0ED59FFF0ED59FFF23DBA9FFCEF5EBFF56EABFFF57E7 + BEFF57E7BEFFD0F5EBFF0F3424520000000000000000B78060E7F2C499FFCC90 + 6AFFEEC499FFEBAC83FFEDAD84FFF0B086FFF0B187FFF0B187FFF1B188FFF1B1 + 88FFF1B288FFF1B388FFF1B389FFF1B389FFF1B489FFF1B489FFF2B48AFFF2B4 + 8BFFF2B48BFFF3B58BFF936A50AD000000000000000000000000000000001935 + BFFF9F9F9FFFD4D4D5FFDEDFDEFFDFDEDEFF9C9C9CFF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF9C9C9CFFDEDEDFFFDEDEDFFFD1D0D0FFA3A3 + A3FE1226ADFF0000000000000000000000000F34245217D09CFF0FCF9AFF0ED4 + 9EFF0DD49EFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED4 + 9EFF0ED49DFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED4 + 9EFF0ED49EFF0ED49EFF34DFB0FF21B17FFF21B17EFF21B17FFF21B17FFF20B1 + 7FFF21B17FFF21B17FFF19B885FF0FD7A2FF0ED7A1FF0ED7A1FF0FD7A1FF0FD6 + A1FF0FD7A2FF0FD6A1FF0FD7A1FF0ED7A1FF27DEACFF18B985FF21B07EFF21B1 + 7FFF21B17EFF21B17EFF21B17FFF0000000000000000B88160E5F2C79AFFD195 + 6EFFE5B287FFEFC094FFECAF85FFF2B48AFFF2B48AFFF2B48BFFF3B58BFFF3B6 + 8BFFF3B68BFFF3B68BFFF3B68CFFF3B68CFFF4B78DFFF4B78DFFF4B78DFFF4B8 + 8EFFF4B88EFFF4B88EFFCA926FEE000000000000000000000000000000001935 + BFFFA1A1A1FF9F9F9FFFD5D5D5FFE0DFDFFFDFE0E0FFE0DFE0FF2A8F60FF0CC7 + 90FF2A8F60FFE0E0E0FFE0DFE0FFE0E0DFFFDFE0E0FFD2D2D2FF9C9C9CFF4275 + DBFF1226ADFF00000000000000000000000020B27FFF0ED6A0FF0ED5A0FF0ED6 + 9FFF0ED69FFF0ED6A0FF0ED59FFF0ED69FFF0ED69FFF0ED69FFF0ED5A0FF0ED5 + A0FF0ED69FFF0ED59FFF0ED59FFF0ED69FFF0ED5A0FF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED6A0FF0ED5A0FF3CE2B4FF20B280FF0000000000000000000000000000 + 0000000000000000000017BB87FF0FD8A3FF0FD8A3FF0FD8A3FF0FD8A2FF0FD9 + A3FF0FD8A2FF0FD8A2FF0ED9A3FF0ED8A3FF2CE0AEFF17BA87FF000000000000 + 00000000000000000000000000000000000000000000B88261E4F1C89BFFD69A + 72FFD79B73FFF0C99CFFF2B58BFFF4B78DFFF4B88DFFF4B88EFFF4B88EFFF4B9 + 8EFFF4B98EFFF5B98FFFF5B98FFFF5BA8FFFF6BA90FFF6BB90FFF6BB90FFF6BB + 90FFF6BB90FFF6BB90FFE8AD85FF624836730000000000000000000000001935 + BFFF4275DBFFA2A2A2FF9F9F9FFFE1E1E1FFE1E1E1FFE1E1E1FF0CC790FF2A8F + 60FF2E54D4FF2A8F60FFE1E1E1FFE1E1E1FFD2D2D2FF9D9D9DFFA4A5A5FF4A8D + EBFF1226ADFF000000000000000000000000063C2C5233E1B1FF0FD7A1FF0ED7 + A1FF0FD7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7A1FF0FD6 + A1FF0ED7A1FF0ED7A1FF42E5B7FF1FB381FF0000000000000000000000000000 + 0000000000000000000014BD8AFF0FDBA5FF0FDBA6FF0FDBA6FF0FDBA6FF0FDA + A5FF0FDBA6FF0FDBA5FF0FDAA6FF0FDBA5FF35E4B4FF14BD8AFF000000000000 + 00000000000000000000000000000000000000000000B88362E1EFC99CFFDFA3 + 7BFFDFA37BFFE2A77FFFFFFAF1FFFDF1DFFFFDEFDBFFFDEDD9FFFCEAD2FFFBE9 + CFFFFAE7CCFFF9E2C4FFF9E1C1FFF8DFBEFFF8DDBAFFF7DCB8FFF7DCB8FFF6DB + B7FFF6DAB6FFF6DAB6FFF5D9B5FFD7A481FA0000000000000000000000001935 + BFFF3562DAFF5092EFFF4275DBFFA0A0A0FFD8D9D9FFE4E3E3FF154BA3FFF1B1 + 87FFF1B187FFE4E4E3FFE3E3E3FFD5D5D5FFA4A4A5FF4275DBFF4B8EECFF1934 + BFFF1226ADFF00000000000000000000000000000000063C2C521BB684FF46E7 + BAFF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA5FF0ED9A4FF0FDAA4FF0EDA + A4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0FDA + A4FF0EDAA4FF0FDAA4FF4EE9BEFF1BB783FF0000000000000000000000000000 + 0000000000000000000013BF8BFF0FDCA7FF0FDCA7FF0FDCA7FF0FDCA7FF0FDC + A6FF0FDCA6FF10DCA7FF0FDCA6FF0FDCA7FF39E6B7FF13BF8BFF000000000000 + 00000000000000000000000000000000000000000000B98363E0EFCA9CFFE3A8 + 7FFFE3A87FFFE3A87FFFE7AE87FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF + 85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFDBA0 + 79FF91674EB18A624AA7886149A43D2C21490000000000000000000000000C17 + 3A462E54D4FF3563DAFF5699F1FFA1A1A3FFA0A0A0FFDADAD9FF154BA3FFF1B1 + 87FFF1B187FFE5E5E5FFD5D5D6FF9D9D9DFF4275DBFF4B8EECFF2447CAFF1226 + ADFF060E34460000000000000000000000000000000000000000063C2C521AB8 + 85FF0EDBA5FF0FDBA6FF0FDBA6FF0FDBA5FF0FDCA5FF0FDCA6FF0EDBA5FF0EDB + A6FF0FDCA5FF0FDBA6FF0EDBA5FF0EDCA6FF0FDCA6FF0EDBA5FF0FDBA6FF0FDB + A6FF0FDBA6FF0EDBA6FF53EBC1FF19B884FF0000000000000000000000000000 + 0000000000000000000012C08CFF0FDDA8FF0FDDA8FF10DDA8FF0FDDA8FF0FDD + A8FF0FDDA8FF0FDEA8FF0FDEA8FF0FDDA8FF3DE7BAFF12C08CFF000000000000 + 00000000000000000000000000000000000000000000B88463DEEFCA9DFFE8AD + 84FFEFB58AFFEFB58BFFEFB58BFFEFB48AFFEEB48AFFEEB48AFFEDB389FFEDB3 + 89FFEDB389FFECB288FFECB188FFECB187FFEBB086FFEAB086FFEAAF86FFDCA0 + 79FF17100B1E0000000000000000000000000000000000000000000000000000 + 00001935BFFF2E54D4FF3664DAFF4275DBFFA1A1A3FFA0A0A0FF063384FF0633 + 84FF063384FFD6D6D6FF9D9D9DFFA4A5A5FF5093EFFF244ACBFF1934BFFF060E + 334500000000000000000000000000000000000000000000000000000000063C + 2C5258EDC3FF0FDCA7FF0FDDA7FF0FDDA7FF0FDDA7FF0FDCA7FF0EDCA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDCA7FF0EDDA7FF0FDD + A7FF0EDDA7FF0FDDA7FF56EDC2FF18B985FF0000000000000000000000000000 + 0000000000000000000010C28DFF10E0ABFF10E0ABFF0FE0ABFF0FE0AAFF10E0 + AAFF10E0AAFF0FDFAAFF0FE0ABFF0FDFAAFF45EBBDFF10C28DFF000000000000 + 00000000000000000000000000000000000000000000BA8665DCEECC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFE2A7 + 7FFF140E0A1A0000000000000000000000000000000000000000000000000000 + 0000000000000B1535401935BFFF3664DBFF579BF2FF4275DBFFA0A0A0FFDBDC + DBFFD8D7D8FFA3A4A7FF4275DBFF579AF1FF878CA6FF1226ADFF060D2F400000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C5216BC88FF6BF2CCFF0FDFA9FF0FE0AAFF0FDFAAFF21E3B1FF16BC + 89FF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF0000000000000000000000000000 + 000000000000000000000FC38EFF0FE1ACFF0FE1ABFF0FE1ACFF10E1ACFF0FE1 + ACFF0FE1ACFF0FE1ABFF10E1ABFF0FE1ACFF4AECC0FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BC8867DCEDCC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFFADDB8FFFADD + B8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFD198 + 73F4050302070000000000000000000000000000000000000000000000000000 + 000000000000000000000B14323D2E54D4FF3664DBFF589BF2FFA0A1A4FFA0A0 + A0FF9D9D9DFF4275DBFF579BF2FF061D94FFABABABFF050C2D3D000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C5214BD89FF10E0ABFF10E1ABFF10E0ABFF2DE6B6FF14BD + 89FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38EFF0FE2ADFF10E2ADFF0FE2ADFF0FE2ADFF0FE2 + ADFF10E2ADFF10E2ADFF10E2ADFF10E2ADFF4DEDC1FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BF8A69E0EDCD9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF3D2AEFFDDAC8EFFDDAC + 8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFF3B2B + 2045000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BFFF2E54D4FF3664DBFF4275DBFF9FA1 + A5FF9D9FA7FF589CF2FF061D94FFA0A5BFFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C527CF5D2FF0FE2ACFF10E1ADFF3AEABBFF13BE + 8BFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E4AFFF10E4AFFF10E4AFFF10E4AFFF10E4 + AEFF10E4AFFF10E4AFFF10E4AFFF0FE4AFFF53EFC5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000087634C99D9A686FAD89D + 78FAD69C77F8D69B77F7D69B77F7D49A75F5C18B69E4271C1531000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E381935BFFF3563DAFF72B7 + FFFF72B7FFFF1934BFFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C5211C18CFF89F8D7FF50EEC4FF12C1 + 8CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E5B0FF10E5B0FF10E5B0FF10E5B0FF10E5 + B0FF10E5B0FF10E5B0FF0FE5B0FF0FE4B0FF55F0C5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C352E54D4FF3F82 + E6FF3F82E6FF1226ADFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C5210C28DFF57F0C7FF11C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0FE5B1FF10E6B0FF10E6B0FF10E5B0FF0FE5 + B1FF10E6B1FF10E5B0FF10E6B1FF10E6B1FF57F0C8FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BFFF3F82 + E6FF3F82E6FF050A2634ABABABFFE4EBEBFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C52F5F9F7FF10C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 181E0206161E0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8FFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000320000000000000017000000270000 + 0032000000400000004000000040000000400000004100000047000000400000 + 0040000000400000004500000047000000400000004000000040000000400000 + 0040000000250000001A00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000343433FF232323FF2222 + 22FF222222FF212121FF212121FF202020FF202020FF1F1F1FFF1F1F1FFF1E1E + 1EFF1E1E1EFF1D1D1DFF1D1D1DFF1D1D1DFF1C1C1CFF1C1C1CFF1B1B1BFF1B1B + 1BFF1B1B1BFF1A1A1AFF343433FF000000000000000000000000000000000534 + 6AFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF05346AFF000000000000000000000000000000179D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF00000017000000000000000000000000000000150000 + 001BE2B798FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FF000000110000000000000000363635FFF4E0BDFFF7E2 + BFFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFFF7E0 + BAFFF7E0BAFFF7E0BAFFF7E0BAFFF7E0BAFFFAEFCCFFF9EED0FFF7EBCFFFF5E5 + C9FFF2DFC0FFF2DAB6FF343433FF000000000000000000000000000000000534 + 6AFF0F5094FF073B75FF073A74FF073973FF073972FF073871FF063770FF0637 + 6FFF06376FFF06366EFF06356DFF05356DFF05356CFF05346BFF05346BFF0E50 + 94FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFE2B797FF000000000000000000000000393937FFF7E3C1FFF7E3 + C1FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E0 + BBFFF7E0BBFFF7E0BAFFF7E0BAFFF7E0BAFFF8E3BCFFFCF3CEFFFDF7D8FFFEF9 + E4FFFEF9E7FFF3DEBBFF343433FF000000000000000000000000000000000534 + 6AFF0F5195FFF6DDB6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DCB3FFF6DCB3FFF6DC + B3FFF6DCB2FFF6DCB2FFF6DCB2FFF9E9C1FFFAEDD2FFF9E9CDFFF7E1BDFF0F51 + 95FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E2BBFFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF8E0BAFFE2B898FF0000000000000000000000003E3D3BFFF8E4C4FFF8E4 + C4FFF7E4C3FFF7E4C3FFF7E3C2FFF7E3C1FFD8C7A9FF8C8171FFF7E2BFFFF7E2 + BEFFF7E2BEFFB4A48CFF756C5DFF736A5CFFF5DEBAFFF7E0BBFFF7E0BBFFFCF5 + D3FFFDF7DBFFF8EBD0FF343433FF000000000000000000000000000000000534 + 6AFF115499FFF6DFB9FFF6DFB8FFF6DEB7FFF6DEB7FFF6DDB5FFF6DDB4FFF6DD + B4FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF8E5BBFFFCF5D3FFFDF6DDFF1154 + 99FF05346AFF00000000000000000000000000000000CDCDCDFFCCCCCCFFDF98 + 71FFEBA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFEAA279FFFCC8 + A5FFEAA279FFEAA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFDF98 + 71FFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E1BEFFF3D6B1FFF5DAB5FFF8E1BBFFF8E0BBFFF8E1BBFFF8E1BBFFF8E1 + BBFFF8E1BBFFF8E1BCFFF8E1BBFFF8E1BBFFF9E1BCFFF8E1BBFFF8E1BBFFF4D7 + B2FFF8E1BBFFE3B99AFF00000000000000000000000040403CFFF8E5C7FFF8E5 + C7FFF8E4C5FFF8E4C4FFF7E4C3FFF7E4C3FFB7AA94FF262626FFF7E3C1FFF7E2 + C0FFF7E2C0FF1D1D1DFF1C1C1CFF1F1F1EFF615A4EFFF5DFBBFFF7E1BCFFF7E1 + BCFFFBEFCCFFFAF1D2FF343433FF000000000000000000000000000000000535 + 6BFF11559BFFF6E0BBFFF6DFB9FFF6DFB8FFF6DEB8FFF6DEB7FFF6DDB6FFF6DD + B6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF7DFB7FFFBF1CCFF1155 + 9AFF05356BFF00000000000000000000000000000000CECECEFFCDCDCDFFDE97 + 71FFEBA37AFFEBA27AFFEAA37AFFE9A178FFEAA179FFEBA37AFFEAA27AFFFCC8 + A5FFEAA27AFFEAA279FFEBA379FFEBA27AFFEAA37AFFEBA37AFFEBA27AFFDF98 + 71FFCDCDCDFFCDCDCDFF00000000000000000000000000000000000000000000 + 0000F8E2BFFFF3D7B2FFF8E2BCFFF8E1BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1 + BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1BCFFF8E1BCFFF9E1BCFFF8E1BCFFF5DA + B5FFF8E1BCFFE3BA9BFF00000000000000000000000042423EFFF8E6C9FFF8E6 + C9FFF8E5C8FFF8E5C7FFF8E4C5FFF8E4C4FFB9AB95FF292929FFF7E4C3FFF7E3 + C2FFE2D0B2FF252524FFC9B79DFFEDD9B7FF1B1B1BFFAA9C85FFF7E2BEFFF7E1 + BDFFF7E1BCFFF9E9C3FF343433FF000000000000000000000000000000000535 + 6CFF12569DFFF6E0BCFFF6E0BBFFF6E0BAFFF6E0BAFFF6DFB9FFF6DEB7FFF6DE + B7FFF6DEB7FFF6DDB6FFF6DDB5FFF6DDB5FFF6DDB5FFF6DDB5FFF6DEB5FF1256 + 9DFF06356CFF00000000000000000000000000000000CFCFCFFFCECECEFFDB94 + 6EFFEBA37AFFEAA37AFFE8A178FFDC9770FFE09971FFE8A079FFEAA37AFFFCC8 + A5FFEBA47AFFEBA37AFFEBA37BFFEBA37AFFEBA37AFFEBA37AFFEAA47BFFDF98 + 71FFCECECEFFCECECEFF00000000000000000000000000000000000000000000 + 0000F8E3BFFFF4D8B3FFF8E2BDFFF8E2BDFFF8E2BDFFF8E1BDFFF9E2BCFFF8E2 + BDFFF8E2BDFFF8E2BDFFF8E2BDFFF8E2BCFFF8E1BDFFF8E1BCFFF8E2BDFFF5DB + B6FFF8E1BDFFE3BC9CFF000000000000000000000000474742FFF8E7CCFFF8E7 + CCFFF8E7CBFFF8E7CBFFF8E6CAFFF8E6C9FFBBAF9AFF303030FFF8E5C7FFF8E4 + C5FFF8E4C5FFF7E4C3FFF7E4C3FFF7E4C3FF222222FF766E61FFF7E3C1FFF7E2 + C0FFF7E2BFFFF7E2BFFF343433FF000000000000000000000000000000000637 + 6FFF1359A0FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF6E0BDFFF6E0BBFFF6E0 + BBFFF6E0BBFFF6DFBAFFF6DFB9FFF6DFB9FFF6DFB9FFF6DEB8FFF6DEB8FF1359 + A1FF06366FFF00000000000000000000000000000000D1D1D1FFD0D0D0FFCC87 + 63FFD18C68FFCF8965FFCA8562FFCE9B81FFC7825FFFD18C68FFEBA47BFFFCC8 + A5FFECA57CFFECA57CFFE8A37BFFE9A27AFFEBA57CFFEBA57CFFECA57CFFDF9A + 73FFD0D0D0FFD0D0D0FF00000000000000000000000000000000000000000000 + 0000F9E4C3FFF4DAB5FFF8E2BFFFF8E3BFFFF8E3BFFFF9E3BFFFF8E2BEFFF8E3 + BEFFF9E3BFFFF8E2BFFFF8E2BFFFF8E3BFFFF8E2BFFFF8E2BEFFF8E3BEFFF5DC + B8FFF8E2BFFFE5BE9FFF0000000000000000000000004A4944FFF8E8CEFFF8E8 + CEFFF8E7CDFFF8E7CCFFF8E7CBFFF8E7CBFFBCB09DFF333333FFF8E6C9FFF8E5 + C8FFF6E3C5FF56524CFFBDAF99FFC9B9A1FF262626FFAB9F8BFFF7E4C3FFF7E3 + C2FFF7E3C1FFF7E3C1FF343433FF000000000000000000000000000000000737 + 70FF135AA3FFF7E3C1FFF7E2C0FFF7E2C0FFF7E2C0FFF7E2BFFFF7E1BEFFF7DF + BCFFF7E0BAFFF7E1BBFFF7E0BAFFF7E0BAFFF7E0BBFFF7E0BAFFF7E0BAFF135B + A3FF073771FF00000000000000000000000000000000D2D2D2FFD1D1D1FFD7A7 + 8EFFC78360FFCD8E6FFFDBBCACFFE4E2E1FFD49E81FFC98461FFE59F78FFFBC7 + A4FFEBA67DFFE6A279FFDE9A73FFDC9770FFEAA57DFFECA67DFFECA67DFFDF9A + 73FFD1D1D1FFD1D1D1FF00000000000000000000000000000000000000000000 + 0000F8E4C5FFF6DEBAFFF9E3BFFFF8E2BFFFF8E3C0FFF8E3C0FFF8E3C0FFF9E3 + C0FFF8E2C0FFF8E3C0FFF8E3BFFFF8E3C0FFF9E3C0FFF7E2BEFFF9E1BEFFF6DD + B9FFF7E1BDFFE5BFA0FF0000000000000000000000004C4C46FFF9E9CFFFF9E9 + CFFFF8E8CEFFF8E8CEFFF8E7CDFFF6E5CAFFBDB19FFF373737FFF8E7CBFFF8E6 + CAFFF8E6CAFF2E2E2EFF2D2D2DFF2C2C2CFF6E685EFFF7E3C3FFF8E4C4FFF7E4 + C3FFF7E4C3FFF7E4C3FF343433FF000000000000000000000000000000000738 + 72FF145BA4FFF8E3C3FFF7E3C2FFF7E3C1FFF7E3C1FFF7E2C0FFF7E2BFFFF7E1 + BDFFF6DFBAFFF7DFBAFFF7E1BBFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFF145C + A5FF073872FF00000000000000000000000000000000D3D3D3FFD2D2D2FFE6E4 + E3FFDFC4B5FFE6E4E3FFE6D6CCFFE8BBA1FFE5DED9FFCE906FFFDA956FFFF5BF + 9DFFEAA57DFFD9946DFFCB8763FFCA8663FFE8A37AFFEBA77EFFECA77EFFE09B + 74FFD2D2D2FFD2D2D2FF00000000000000000000000000000000000000000000 + 0000F9E5C5FFF7DFBDFFF8E3C0FFF9E3C0FFF9E3C1FFF8E3C0FFF8E3C0FFF9E3 + C0FFF9E3C0FFF8E2C0FFF9E3C1FFF9E4C1FFF7E2C0FFF8E3BFFFF7E2BFFFF5DD + BAFFF7E0BEFFE6C0A3FF000000000000000000000000515149FFF9EAD2FFF9EA + D2FFF9E9D1FFF9E9D1FFF9E9D0FF464544FF3E3E3EFF3D3D3DFFF8E8CEFFF8E7 + CDFFF8E7CDFF353535FF9E9485FFE2D3B9FFE2D2B8FFF3E2C4FFF8E6C9FFF8E5 + C8FFF8E5C7FFF8E5C7FF363634FF00000000000000000000000000000000073A + 76FF155EA9FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4C3FFF8E4C3FFF7E3C2FFF7E2 + C1FFF6E1BEFFF5DAB4FFF5DCB3FFF6DEB9FFF7E3C0FFF7E2BFFFF7E2BEFF155F + A9FF083A76FF00000000000000000000000000000000D5D5D5FFD4D4D4FFE19C + 75FFECA980FFECA980FFEDA980FFEDA980FFECAA82FFE9DAD1FFCA8662FFCE8D + 6BFFCB8764FFE4D5CEFFE9E5E3FFDFBFAEFFD08D68FFE29F77FFECA87FFFE09C + 75FFD4D4D4FFD4D4D4FF00000000000000000000000000000000000000000000 + 0000F9E6C9FFF7E1BFFFF9E4C2FFF8E4C3FFF8E4C2FFF9E4C2FFF8E4C2FFF9E4 + C2FFF7E3C2FFF7E1BFFFF5DEBDFFF5DFBDFFF5DFBEFFF5DEBEFFF5DEBDFFF3DC + BAFFF3DCBCFFE8C3A5FF00000000000000000000000053534BFFF9EBD4FFF9EB + D4FFF9EAD3FFF9EAD2FFF9E9D1FFE1D3BDFF5D5B57FF414141FFF9E9CFFFF8E8 + CEFFF8E8CEFF393939FF383838FF363636FF333333FFCBBDA7FFF8E7CBFFF8E6 + CAFFF8E6C9FFF8E6C9FF363635FF00000000000000000000000000000000083B + 78FF1660ABFFF8E5C7FFF8E5C5FFF8E5C4FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4 + C3FFF8E3C2FFF5DFB7FFF5DBB2FFF5DCB4FFF7E1BEFFF7E3C0FFF7E3C0FF1660 + ABFF083C78FF00000000000000000000000000000000D7D7D7FFD6D6D6FFEBB1 + 8FFFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFF9CAABFFDEB49DFFC887 + 65FFD6A991FFEBCDBAFFF4C4A6FFECE7E4FFCC8B69FFDCA07EFFF3BD9BFFEBB1 + 8FFFD5D5D5FFD5D5D5FF00000000000000000000000000000000000000000000 + 0000F9E7CAFFF7E2C0FFF9E5C4FFF8E4C3FFF9E5C4FFF8E5C4FFF9E5C3FFF9E4 + C4FFF8E3C1FFF4DEBEFFF2DCBCFFF3DDBDFFF4DDBEFFF5DEBEFFF4DEBDFFF4DD + BAFFF4DEBDFFE8C5A7FF00000000000000000000000053534BFFF9ECD5FFF9EC + D5FFF9EBD4FFF9EBD4FFF9EAD3FFF9EAD2FFDACEB9FF504F4DFFF9E9D1FFF9E9 + D0FFF9E9D0FF6B6760FF6A6660FF69655FFF67635CFFD7C9B1FFF8E7CCFFF8E7 + CBFFF8E7CBFFF8E7CBFF383836FF00000000000000000000000000000000093C + 7AFF1662ADFFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF8E5C5FFF8E4C4FFF8E4 + C3FFF8E4C3FFF8E1BFFFF5DFB8FFF4DAB0FFF5DFBAFFF7E1BFFFF7E3C2FF1661 + ADFF093D7AFF00000000000000000000000000000000D8D8D8FFD7D7D7FFE19E + 77FFEDAB82FFEEAB82FFEEAB82FFEDAB82FFEDAB82FFEDAB82FFEEE9E7FFE7D1 + C3FFECE3DEFFEBA981FFEDAB82FFEBB99AFFD29B7EFFCA8663FFDB9772FFE19E + 77FFD7D7D7FFD7D7D7FF00000000000000000000000000000000000000000000 + 0000F9E8CCFFF8E5C4FFF9E5C5FFF9E5C5FFF9E5C5FFF9E5C4FFF8E5C4FFF8E4 + C4FFF8E3C2FFF2DCBDFFF3DCBDFFF2DBBAFFF2DBBBFFF2DCBCFFF3DCBCFFF3DD + BCFFF3DCBDFFE9C7A9FF00000000000000000000000058584FFF0C5DDDFF0B5C + DCFF0A5ADAFF0959D9FF0958D8FF0855D6FF0754D5FF0653D4FF0551D2FF0550 + D1FF044FD1FF034DCFFF034DCEFF024CCEFF024BCDFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3A3A38FF000000000000000000000000000000000A3F + 7EFF1864B2FFF8E7CBFFF8E7CAFFF8E7CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5 + C8FFF8E5C8FFF8E5C5FFF8E4C4FFF8E2C1FFF6DBB4FFF5DBB3FFF7E0BDFF1864 + B1FF0A3F7EFF00000000000000000000000000000000DADADAFFD9D9D9FFE19F + 78FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFFCC8 + A5FFEEAD85FFEEAD84FFEEAD84FFEEAD84FFEFD7C8FFECD9CFFFCA8663FFDA98 + 72FFD9D9D9FFD9D9D9FF00000000000000000000000000000000000000000000 + 0000F9E8CDFFF8E6C7FFF9E6C8FFF9E5C8FFF8E6C8FFF9E5C7FFF9E6C8FFF7E4 + C5FFF6E1C3FFEDD5B7FFEACFB1FFE8CCAFFFE7CBACFFE6CBADFFE7CBACFFE8CC + AFFFDEBEA3FFE7C3A8FF0101010200000000000000005A5A50FF0C5EDEFF0C5D + DEFF0B5BDCFF0A5ADBFF0A59DAFF0957D8FF0856D7FF0755D6FF0653D4FF0652 + D3FF0551D2FF044FD0FF044ED0FF034DCFFF024CCEFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3C3C39FF000000000000000000000000000000000A41 + 81FF1965B3FFF8E8CCFFF8E7CBFFF8E7CBFFF8E7CBFFF8E7CAFFF8E6C9FFF8E6 + C9FFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF6E0BBFFF5DAB3FFF6DCB6FF1865 + B3FF0A4081FF00000000000000000000000000000000DBDBDBFFDADADAFFE2A0 + 79FFEFAE85FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFEFAE85FFEEAE85FFFCC9 + A6FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFECAE87FFF2E4DCFFE5C7B5FFD28E + 6AFFDADADAFFDADADAFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E6C8FFF9E7C8FFF9E6C8FFF9E6C8FFF8E6C9FFF9E7C9FFF8E5 + C7FFF5E1C3FFEACFB3FFE4C5AAFFE2C0A5FFDBB89CFFDBB89CFFD9B69BFFD9B7 + 9BFFE8CDAEFFE7C3A8FF0000000000000000000000005D5C52FF0D5FE0FF0D5F + DFFF0C5DDDFF0B5CDDFF0B5BDCFF0A59DAFF0958D9FF0857D8FF0754D6FF0753 + D5FF0652D4FF0550D2FF044FD1FF044ED0FF034DCEFF034CCEFF024BCDFF024B + CDFF024BCDFF024BCDFF3E3E3BFF000000000000000000000000000000000B41 + 82FF1966B5FFF8E8CEFFF8E8CDFFF8E8CCFFF8E8CCFFF8E7CBFFF8E7CAFFF8E7 + CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5C8FFF8E2C3FFF6E0BCFFF5DDB5FF1967 + B5FF0B4282FF00000000000000000000000000000000DCDCDCFFDBDBDBFFE2A1 + 79FFEFAF86FFEEAF86FFEEAE85FFEFAF86FFEFAF86FFEFAF86FFEFAF86FFFCC9 + A6FFEEAE86FFEEAF86FFEFAF86FFEFAF86FFEFAF86FFECB58FFFF5EFEBFFCC88 + 64FFDBDBDBFFDBDBDBFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E7C9FFF8E7C9FFF9E7C9FFF8E6C9FFF9E7CAFFF9E6C9FFF8E5 + C8FFF4E0C1FFE8CBAFFFE2C2A7FFE4C7AEFFDFBFA6FFE1C3A8FFEAD2B6FFF5DF + BCFFE8C5AAFF483B3252000000000000000000000000626156FF0E61E1FF0E61 + E1FF0D60E0FF2A70E4FF3D79E6FF3270E0FF0B5BDCFF0A5ADBFF0958D9FF0857 + D8FF0856D7FF0753D5FF0652D4FF2769DFFF3B77E5FF306CDDFF044ECFFF034C + CEFF024BCDFF024BCDFF43433FFF000000000000000000000000000000000C44 + 87FF1B69B9FFF9E9D0FFF8E9CFFF9B9280FF9B9280FF9B927FFF9B927FFF9B92 + 7FFF9B927EFF9B917EFF9B917DFF9B917DFF9B917DFFBFB299FFF8E5C7FF1B69 + B8FF0C4487FF00000000000000000000000000000000DEDEDEFFDDDDDDFFE3A1 + 7AFFEFB187FFEFB188FFEFB087FFEFB088FFEFB187FFEFB187FFEFB188FFFCCA + A7FFEFB187FFEFB187FFEFB188FFF0B188FFEFB188FFEFB088FFEFB088FFF5EA + E3FFDDDDDDFFDDDDDDFF00000000000000000000000000000000000000000000 + 0000F9EAD1FFF9E7CBFFF9E8CBFFF9E8CBFFF9E7CCFFF9E8CBFFF9E8CBFFF6E6 + C9FFF1DDC0FFFCF9F7FFF8F2ECFFFDF7EEFFFAECD5FFF8E3C3FFF7E0BBFF483D + 33520000000000000000000000000000000000000000646458FF0E61E1FF0E61 + E1FF1F6BE4FF2E65D0FF133896FF133896FF2A5CBFFF0B5CDCFF0A5ADAFF0959 + D9FF0957D8FF0855D6FF1B62DCFF2D63CEFF173271FF133896FF2A5EC5FF034D + CFFF034CCEFF024CCEFF454540FF000000000000000000000000000000000D45 + 8AFF1B6AB9FFF9EAD1FFF9E9D0FF565544FF575545FF575544FF575644FF5755 + 44FF565544FF575545FF575544FF575644FF86806CFF9B917DFFF8E7CAFF1B69 + BAFF0D4589FF00000000000000000000000000000000DFDFDFFFDEDEDEFFE3A3 + 7BFFEFB288FFF0B188FFEFB288FFF0B188FFEFB188FFEFB188FFF0B288FFFCCA + A7FFEFB288FFF0B188FFEFB288FFEFB289FFF0B188FFEFB188FFF0B188FFEFD1 + BDFFDEDEDEFFDEDEDEFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CCFFF8E7CCFFF9E8CCFFF9E7CCFFF9E8CCFFF8E7CBFFF7E4 + C8FFF2DDC0FFFEFAF5FFFCF6ECFFFBF0DDFFF8E3C2FFF7DFBAFFEDD0B4FF0000 + 0000000000000000000000000000000000000000000067665AFF0E61E1FF0E61 + E1FF1565E2FF133CA0FF526D97FF506C97FF163A8BFF0C59D5FF0B5BDCFF0A5A + DBFF0A59DAFF0957D8FF115BD9FF123BA0FF4774C5FF506C97FF1742A4FF044E + D0FF034ECFFF034DCFFF484842FF000000000000000000000000000000000D47 + 8CFF1C6BBBFFF9EAD2FFF9EAD1FF908974FF908974FF908974FF908974FF9089 + 74FF908974FF908974FF908974FF908974FF5A5A48FF9B917EFFF8E7CBFF1C6A + BBFF0D468CFF00000000000000000000000000000000E1E1E1FFE0E0E0FFE2A3 + 7BFFEFB289FFF0B289FFF0B289FFF0B289FFF0B288FFF0B289FFEFB289FFFCCA + A7FFF0B289FFEFB289FFEFB289FFEFB289FFEFB289FFEFB289FFF0B289FFE9B7 + 98FFDFDFDFFFDFDFDFFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CDFFF9E8CDFFF9E8CCFFF9E8CDFFF8E8CDFFF9E7CBFFF6E4 + C9FFF1DCBFFFFCF4E7FFFBEFDCFFF9E8CEFFF7DFB9FFEFD3B7FF493E35520000 + 000000000000000000000000000000000000000000006B6B5DFF579BF0FF579B + F0FF579BF0FF579BF0FF46453DFF48473FFF345E98FF4C89D6FF579BF0FF579B + F0FF579BF0FF579BF0FF579BF0FF579BF0FF3D3C36FF48473FFF345E98FF579B + F0FF579BF0FF579BF0FF4B4B45FF000000000000000000000000000000000E49 + 90FF3786D5FF3786D5FF3786D5FFF5F6EFFFE3E5D2FFD3D6B6FFD3D6B6FFD3D6 + B6FFD3D6B6FFD3D6B6FFD3D6B6FFDDDFC7FF64634FFF2F5B83FF3786D5FF3786 + D5FF0E4990FF00000000000000000000000000000000E3E3E3FFE2E2E2FFE3A3 + 7CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFEBB2 + 90FFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A3 + 7CFFE2E2E2FFE2E2E2FF00000000000000000000000000000000000000000000 + 0000F9EBD4FFF9E8CEFFF9E8CEFFF9E8CEFFF9E9CEFFF9E9CEFFF7E6CDFFF5E1 + C8FFF0DABEFFF7E2C0FFF7E1BEFFF7DFB9FF51463C5900000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF4078AFFF2380 + E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF1F6EC5FF2380E4FF2380 + E4FF2380E4FF2380E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF2380 + E4FF2380E4FF3770A9FF4F4E47FF000000000000000000000000000000000B39 + 71C70E4A93FF0E4B92FF0F4A92FF686754FF686754FF686754FF72725EFF7272 + 5EFF72725EFF72725EFF686854FF686754FF455C6DFF183A5EFF0E4B92FF0F4A + 92FF0B3971C700000000000000000000000000000000E4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FF00000000000000000000000000000000000000000000 + 0000FAECD4FFF9E8CEFFF9E9CFFFF9E9CEFFF9E9CFFFF9E8CDFFF7E5CCFFF4E2 + C7FFF0DABFFFF7DFB9FFF7DFB9FFF1D8BCFF0000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF6C6C5EFF6B6B + 5DFF6A695CFF69685BFFA9A98AFFB8B998FF32363FFF52544FFF636257FF6261 + 56FF626156FF5F5F54FF5E5E53FF5E5D53FFD4D4ABFFB8B998FF2C313BFF5858 + 4FFF58584FFF57564EFF79786DFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B57FF646351FF6463 + 51FF646351FF646351FF6D6C58FF000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000 + 0000FAECD5FFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CEFFF7E6CCFFF6E3 + C9FFF1DDC2FFF4DCB8FFF1D8BCFF6A5E50720000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000515044C7515044C70000000000000000000000000000 + 000000000000000000000000000000000000686758FF515044C7000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545389B73725DFF7372 + 5DFF73725DFF73725DFF4545389B000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8 + BCFFF1D8BCFF7266587900000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FFE00007000000FFFFFF80FFFFC00007000000010101807FFF + E00007000000010101803FFFE00007800001010101801FFFE000078000030101 + 01800FFFE00007C000030101018007FFE00007E00007010101E003FFE00007E0 + 0007010101F001FFF0000FF0000FEFEFEFF000FFF8001FF0001FEFEFEFFC007F + FE00FFF0001FE0000FFE0007FF00FFF8001FFFEFFFFE0003FE00FFFC003FFE00 + FFFF8001FE007FFE007FFE00FFFFC000FE007FFE007FFE00FFFFC000FE007FFE + 00FFFE00FFFFF020FE007FFF00FFFE00FFFFF070FE007FFF00FFFE00FFFFF038 + FE00FFFFC1FFFE00FFFFF01CFE00FFFFC3FFFE00FFFFF81FFF00FFFFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFE00FF800001FFFFFF00003FFE00FF000000FFFFFF8000FFFE00FF + 000000FFFFFF8000FFFE00FF0000008007F98000FFFE00FF0000008007F18000 + FFFE00FF0000008007F18000FFFE00FF000000801FE18000FFFE00FF00000080 + 3FC38000FFFE00FF000000801F038000FFFE00FF0000008000038000F8FE00FF + 0000008000038000F8FE00FF0000008000078000F8FE00FF00000080000FFFE3 + F8E0000300000080000FFFE3F8E0000700000080001FFFE3F8F0000F000000FC + 003FFFE1F0F8001F000000FE00FFFFE1F0FC003F000000FF01FFFFE0E0FE007F + 800003FFFFFFFFF001FF00FFFFFFFFFFFFFFFFF803FF81FFFFFFFFFFFFFFFFFC + 07FFC3FFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFC00007FE003FFFFFFFC0000FE0001FFE003F000000C0000FE0001F + FFC0FF800003C0000FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C000 + 0FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C0FC0FE0001FFFC1FF80 + 0003C0FC0FE0001FFFC1FF800003C0FC0FE0001FFFC1FF800001C0FC0FE0001F + FFC1FF800001C0FC0FE0001FFFC1FF800001C0FC0FE0001FFFC1FF800001C0C0 + 00E0001FFFC1FF800001C0C000E0001FFFC1FF800001C0C000E0001FF3C1E3FE + 007FC0F003E0001FF1C1E3FE007FC0F803800007F1C1C3FE007FC0F807800007 + F00003FFFFFFC0FE1F800007F00003FFFFFFE1FF1F800007F00003FFFFFFFFFF + 1FC0000FFFFFFFFFFFFFFFFFFFFF87FFF0000FFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFF801FF0000FFFFFFFC00001FFE0FFE00007FFFFFFC00001FFC07F + C00003FFFFFFC00001FFC03F800001FFFFFFC00001FF001F000000FFFFFFC000 + 01FE000F000000FFFFFFC00001FE0007000000FFFFFFC00001F8000300000080 + 0003C00001F00001000000800003C00001F00000000000800003C00001C00001 + 000000E00007C00001800003000000E00007C00001800003000000F0000FC000 + 0180000F000000F0000FC0000180001F000000F0000FC0000180001F000000F0 + 000FC0000182007F800001F0001FC000018200FF800003F8001FC000018000FF + E00007FFFFFFFFFFFFC003FFF0000FFFFFFFFFFFFFE007FFF0001FFFFFFFFFFF + FFF007FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF000FF01C07FC0FFFFF87FFFFFC3FF07F0FF007FFFF87FFFFF83FF83E1F + F003FFFF87FFFFF83FF8181FC000FFF8007FFFE03FFC001FC0C0FFF8007FFFC0 + 3FFC001F81E0FFF8007FFC003FFC001F83F0FFFF03FFF0001FFE003F87F8FFFE + 00FFF0001FFE001F87F8FFFC00FFF0000FF8001F83F0FFF0003FF0000FE00003 + 81E0FFF0303FF0000FC00003C0C0C7F0781FF0000F800000E00047F0FC1FF000 + 1F800000F00007F1FE1FF0001FFF80FFF00007F1FE1FF0003FFF80FFFFF807F0 + FC1FFFC03FFFC1FFFFF807F0781FFFE03FFFC1FFFFE007F0303FFFF03FFFC3FF + FFE007F8007FFFF83FFFC3FFFFE007FC00FFFFFC3FFFE7FFFFFFFFFE00FFFFFE + 3FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00FFF03E0FC0 + 000FE00007FF81FFF07F0780001FF8003FFE00FFF07F0780001FF8003FFE007F + F03E0780001FF8003FFE007FF03C2780001FF8003FF8001FF01847F0001FF800 + 3FF0001FF00807F0001FF8003FF0001FF0000FF0001FF8003FF0000FF8001FF0 + 001FF8003FE00007FE003FF0001FF8003FE00007FF80FFF0001FF8003FC00003 + FF80FFF0001FF8003FC00003FF00FFF0001FF8003FC00003FE087FF0001FF800 + 3FC00003FE183FF0001FF8003FC00003FE183FF0001FF8003FC00003FC3E1FF0 + 0003F8003FC00003F87F1FF00003F8003FC00003F07F0FF00003F8003FC00003 + F1FF8FF00003F8003FFF81FFF1FFCFF00003F8003FFFC3FFF3FFEFF80003F800 + 3FFFC7FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003FFFFFFFFFFFFFC001FFC001FC00003E00003F0000FF0000F800003C00003 + F00007F00007800003800003E00003E00003800003800003C00003C000038000 + 03800003C00003C0000380000380000380000180000180000380000380000180 + 0001800003800003800001800001800003800003800001800001800003800003 + 8000018000018000038000038000018000018000038000038000018000018000 + 03800003800001800001800003800003C00003C00003800003800003E00003E0 + 0003800003800003F00007F00007800003800003F00007F00007800003800003 + FC001FFC001F800003800003FE003FFE003FC00003800003FF00FFFF00FFE000 + 07800003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003E00003FFFFFFFC001FFC001FFC001FFC007FF0000FF0000FF0000FF8003F + F00007F00007F00007F0001FE00003E00003E00003E0000FC00003C00003C000 + 03C00007C00003C00003C0000380000380000180000180000180000380000180 + 0001800001800003800001800001800001800003800001800001800001800003 + 8000018000018000018000038000018000018000018000038000018000018000 + 01800003800001800001800001800003C00003C00003C00003800003E00003E0 + 0003E00003800003F00007F00007F00007C00007F00007F00007F00007E0000F + FC001FFC001FFC001FF0001FFE003FFE003FFE003FF8003FFF00FFFF00FFFF00 + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFC3FFFFF8FFFC007FFFFFFFFF80E3FFF8FFF8003F + FFFFFFFF00C3FFF87FF0001FFFFFFFFE0001FFF81FE0000FFFFFFFFC0001FFF8 + 1FC00007FFFFFFF8000180000F800003800001F00003800003800003800001E0 + 0003800003800003800001E00003800001800003800001800001800001800003 + 8000018000018000018000038000018000018000038000038000018000018000 + 0780000380000180000180000F800003800001800001FFF81F800003FFFFFF80 + 0001FFF83F800003FFFFFF800001FFF87FC00007FFFFFF800001FFF8FFE0000F + FFFFFF801803FFFFFFF0001FFFFFFFC03803FFFFFFF8003FFFFFFFF03E07FFFF + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003F80 + 07FFFFFFFFFFFFFFFC003F83FFFF80007FFFFFFFF0001FC1FFFF80007FFFFFFF + F0000FE0FFFF80007FFFFFFF800003F03E7F8000639FFFFF800003F03C7F8000 + 439FE001800003F0187F8000418FE001800003FC007FC200018FF001800003FE + 007FE3000187F801800003FE007FFF000183F801800003FF803FC20001806001 + 800003FF001F800001C00001800003FE001F800001C00001C00003FC00078000 + 63E00001E00007FC000380007FF00001F0001FFC000080007FF00001F0001FFF + F80080007FF80019F0001FFFF801FE07FFFC003FF0001FFFFC03FC03FFFE007F + FC003FFFFF07F801FFFFFFFFFC003FFFFF0FF801FFFFFFFFFC003FFFFF1FF801 + FFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0 + 0007800001FFFFFFFE0003F00007C00003F07FFFFC0003F00007C00003E03FFF + F80003F00007C00003C01FFFF00003F00007C000038007FFE00003F00007C000 + 038007FFE00003F00007C000038003FFE00003F00007C000038000FFE00003F0 + 0007C000038000FFE00003F00007C00003C0007FE00003F00007C00003E0001F + E00003F00007C00003F0001FE00003F00007C00003F0000FE00003F00007C000 + 03FC0007E00003F00007C00003FE0003E00003F00007C00003FE0003E00003F0 + 0007C00003FF8003E00003F00007C00003FFC003E00003F00007C00003FFC003 + E00003F00007C00003FFF007FFFFFFF00007C00003FFF80FFFFFFFFE493FC000 + 03FFFC1FFFFFFFFE493FFFFFFFFFFFFFC00FFFFFFFFFFFFFFFFFFFFFC07FFFFF + FFFFFFFFFFFE001F807FFFFFFFFF800003FFF8FF807FFFFFFFFF800003FFF0FF + 807E1FFC003F800003FFE0FF807807000000800003FFC0FFC078070000008000 + 03FF80C7E07807000000800003F00083F87807000000800003C00003F87807FC + 003F800003C00003F87C07FF00FF800003C00003F87F07FF00FF800003C00007 + F87F87FF00FF800003C00007F87F87FF00FFFC0003C00003F87F87FFC3FFFC00 + 03C00003F80F87FFC3FFFC0003C00003F80187FFC3FFFC0003E00003F80007FF + C3FFFC0003FF80C7F80007FFC3FFFC0003FFC0FFF80007FFC3FFFC0003FFC0FF + FC0007FFC3FFFC0003FFF0FFFF0007FFFFFFFFFFFFFFF8FFFFE007FFFFFFFFFF + FFFFF8FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FF00007FF + FFFFFFFFFFFFC3FFFC001FF0001FFFFFFFFF00FFFC001FFC003FFFFFFFFE00FF + FC001FFC003FF8000FFE007FFC001FFF00FFFF181FFE007FFC001F000000FF18 + 1FFF81FFFC001F000000FE101FF381CFFC001F000000FE007FE381C3FC001F00 + 0000FE00FFC00003FC001F000000FC00FF800001FC001F000000F8007F000000 + FC001F000000F8003F000000FC001F000000F0003F000000FC001F000000F000 + FF800003FC001F000000F003FFC381C3FC001F000000F007FFE381C7FC001F00 + 0000E03FFFFF81FFFC001F000000C0FFFFFE007FFC001F000000C3FFFFFE007F + FC001F000000FFFFFFFE00FFFC001F000000FFFFFFFF00FFFC001F000000FFFF + FFFF81FFFFFFFFFFFFFFFFFFFFFFC7FFC0000FFFFFFFFFFFFFFFFFFFE07FFFFF + FFFFFFFFFFFFFFFF803FFF80000383FFFFFFFFFF801FFFE0000F81FFFFFFFFFF + 860FFFE0000F81FFFFFFFFFF8F07FFE0000FC07FFF8000018707FFE0000FE03F + FF8000018207FFE0000FF03FFF800001C007FFE0000FF80FFF800001E007FFE0 + 000FFC07FF800001F003FFE0000FFE07FF800001F8001FE0000FFF00CF800001 + FC000FE0000FFF8007800001FFC007F0001FFFC007800001FFE003F8FE3FFFE0 + 03800001FFE001F8FE3FFFE001800001FFE061F8FE3FFFE001800001FFF0F0F8 + 7C3FFFF803800001FFF070F87C3FFFF803800001FFF820F8383FFFF003800001 + FFFC01FC007FFFF003800001FFFE03FE00FFFFFE1FFFFFFFFFFF03FF01FFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FFFFFFFFFFFFFF3FFFFFFF01FFFFFFFFFFFFFE3FFFFFFF01800000800001 + FE3FFFFFFE01800000800003F83FFFFFF801900081800003F03FFFFFF8039000 + 81800003F00001FFF003900081800003C00001FFE00F900081800003800001F0 + 001F900081800003800001E0001F90008180000380000180007F9000FF800003 + 8000018000FF9000FF8000038000018001FF9000FF800003E000010001FF9000 + FF800003F000010001FF9FC0FF800003F03FFF0001FF9FC0FF800003FC3FFF00 + 01FF9FC0FF800003FE3FFF0001FF9FC0FF800003FE3FFF0001FF9FC0FF800003 + FFFFFF8003FF9FC0FFFFFFFFFFFFFF8007FF9FC0FFFFFFFFFFFFFFC007FF9FFF + FFFFFFFFFFFFFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 3FFFFFFFFFFFFFFF80007FC01FFFFFFFFF80000383FFFF800FFFFFFFFF800003 + 83FFFF8207FFFFFFFF80000381FFFF8F87FFFFFFFF800003807FFF8FC7FF8000 + 01800003C03FFF8FC7FF800001800003F00FFF8F07FF800001800003F000FF82 + 07FF800001800003F8003F8003FF800001800003FE001FE000FF800001800003 + FE0007F000FF800001800003FF0003FFC07F800001800003FF0003FFF01F8000 + 01800003FF0003FFF81F800001800003FF0203FFF80FEFFFFF800003FF8703FF + FE03E00003800003FF8707FFFF03FFFFFF800003FFC20FFFFF01FFFFFF800003 + FFE01FFFFF00FFFFFFFFFFFFFFE03FFFFF00FFFFFFFFFFFFFFF07FFFFF00FFFF + FFFFFFFFFFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFF + BFFFFFFFFFF0001FF1FFFFFF8FFF000000F8001FF1FFFFFF8FFF800001F8001F + F1FFFFFF87FF800001F8001FF1FFFFFF87FF800001C00003F1FFFFFF83FF8000 + 01800003F1FFFFFFC3FF800001800003F1FFFFFFC0FF800001C03C03F1FFFFFF + C0FF800001C07E03F1FFFFFFC0FF80000180FF03F00003FE007F80000181FF01 + F00003FE003F80000181FF01F00003FE003F80000180FF01F00003FE001F8000 + 01C07E03F00003FE001F800001C03C03F00003FE01FF800001801803F00003FE + 00FF800001800003F00003FE00FF800001C00003F00003FE00FF803FFFF8001F + F00003FE007F807FFFF8001FF001F3FE003F80FFFFF8001FF0FFFFFE003FFFFF + FFFCC33FF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003800001FF9FFF807E03E00007CC0033FF87FF807E03E00007CC0033FF87FF + 80FF03E00007C00003FF83FF807E03E00007C00003FF81FF803C03E00007CC00 + 33FF81FF803803E00007CC0033FF81FF880013E00007C00003FF81FFFC003FE0 + 0007C00003FF81FFFE007FE00007CC0033FF81FFFF00FFE00007C00003FF00FF + FF00FFE00007C00003FE007FFE00FFE00007C00003FE003FFC003FE00007CC00 + 33F8001F880013E00007C00003F0000F801803E00007C00003F00007803C03E0 + 0007CC0033C00003807E03E00007CC003380000180FF03E00007C00003800001 + 807E03E00007C00003800001807E03E0000FCC0033800001807E03E0001FCC00 + 33800001FFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFC00003800001C1FFFFFC007F800003800001C0FFFFF8003F + 800003800001E03FFFF0001F800003800001F00FFFE0000F800003800001F007 + FFC00007800003800001F007FF800003800003800001F001FF80000380000380 + 0001F800FF800003800003800001F800FF800003800003800001FE003F800003 + 800003800001FE001F800003800003800001FF001F800003800003800001FFC0 + 07800003800003800001FFC003800003800003800001FFE00380000380000380 + 0001FFF801800003800003803FFFFFF801C00007800003803FFFFFFC01E0000F + 80000380FFFFFFFF01F0001FC00003FFFFFFFFFF83F8003FE00007FFFFFFFFFF + C3FC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFF7FFF03E0780 + 0001F0001FFFC7FFE07E07E00007F0001FFF81FFC03C03E00007F0001FFF00FF + 803803E00007F0001FFE00FF800001E00007F0001FFC003F800001E00007F000 + 1FF8001F800001E00007F0001FF0001FC00003E00007F0001FE00007E00007E0 + 0007F0001FE00003F0000FE00007F0001FE00007F8001FE00007F0001FFE00FF + F8001FE00007F0001FFE00FFF0001FE00007F0001FFE00FFE00007E00007F000 + 1FFE00FFC00003E00007F0001FFE00FF800003E00007F0001FFE00FF800001E0 + 0007F0001FFE00FF800001E00007F0001FFE00FF801801E00007F0001FFE00FF + C03C03E00007F0001FFE00FFE07E07E0000FF0001FFE00FFF0FF0FE0001FF000 + 1FFE00FFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + F0E3FF00FFFFFFFFFFF1FFFFF003FC001FE0000FFFE1FFFFF003F0000FE0000F + FFE1FFFFF003F00007E0000FFFC1FFFE001FE00003E0000FC00003FE001FC000 + 03E0000F800003FE001FC00003E0000F800001C0021F800001E0000F800001C0 + 021F800001E0000F800001C0021F800001E0000F800001C0021F800001E0000F + 800001C0021F800001E0000F800001C0021F800001E0000F800001C0021F8000 + 01E0000F800001C0021F800001E0000F800001C0021FC00003E0000F800001C0 + 021FE00003E0000F800001C0021FF00007E0000F800001C0021FF00007E0000F + 800001FE001FFC001FE0000F800001FE001FFE003FE0000F800003FE001FFF00 + FFF0001FFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF00FFFC003FFF + FFFF800001FE003FF0000FFC03FFE00007F0000FE00007F803FFE00007F00007 + C00003F003FFE00007E00003800003E001FFE00007C00003800001C001FFE000 + 07800001800001C001FFE00007800001000000E000FFE00007800000000000F0 + 40FFE00007800000000800F0C0FFE00007800000003800FFE07FE00007800000 + 003C00FFE03FE00007800000003800FFF03FE00007800000000000FFF81FE000 + 07800000000000FFF81FE00007800000000000FFFC0FE00007800001800001FF + FF03E00007C00003800003FFFF03E00007C00003800003FFFF83E00007E00003 + E00007FFFFE1E00007F0000FF0000FFFFFFFF0000FF8001FF0001FFFFFFFFE00 + FFFE003FFE00FFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFFFFFFF8001FFFFFFF800003C1F0FFF0000F840023800003C0007F + F00007840021800003C000FFE00003840021800003E3F8FFC01E038E00618000 + 03FFFC7FC00F03840021800003FFFC7F80078180000180000380003F8003C180 + 000180000380003F8001C180000180000380003F8100C180000180000380001F + 81804180000180000380001F81C00180000180000380001F81E0018000018000 + 0380001F81F001800001E0000780000FC0F803800001E0000780000FE0000380 + 0001E00007C00007E00007800001FFFFFFFFE007F00007800001FFFFFFFFFFC1 + F8001FFFFFFFFFFFFFFFFFE1FE003FFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80001FFFFFFFFFFFFFFFFFFFC00003FF + FFFF800003FFFFFFC0000780001FC00007FFFFFFC0000780000FC00007800003 + C00007800007C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800001C0000780 + 0003C00007800001C00007800003C00007800001C00007800003C00007800001 + C00007800003C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800003C0001F80 + 0003C00007E00007C0001F800003C00007F8001FC001FF800003C00007FFC01F + C001FF800003C00007FFFFFFC001FF800003C00007FFFFFFC001FFFFFFFFC000 + 07FFFFFFF007FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFFFFFFFFF9 + F3FFFFFFFFFFFFFFE00007F8E3FF000000FFFFFFC00003F843FF000000800003 + C00003F803FF000000800003C00003F803FF000000800003C00003F803FF0000 + 00800003C00003F803FF000000800003C00003F803FF000000800003C00003F8 + 03FF000000800003C00003F803FF000000800003800001F803FF000000800003 + 800001F803FF000000800003800001F8001F000000800003800001F8001F0000 + 00800003FFC7FFF8001F000000800003FFC7FFF8001F000000800003FFC7FFF8 + 001F000000800003FFC7FFF8001F800001800003FFC7FFF8001FFE3CFF800003 + FFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00 + FFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFE0000FFF + C1FFFFFFFFF8001FE0000FFE003FFE7E7FFE00FFE0000FFC001FF83C1FFE18FF + E0000FF8000FF03C1FFE38FFC00007F00003F0181FFE3CFFC00007C0C181F818 + 1FFC38FF800003C1C1C1F8001FFC38FF800003C1C1C1FE007FFC38FF800003C1 + C1E1FE007FFC38FF800003C3E3E1FE00FFFC38FF800003CFE3F9800001FC38FF + 800003CFE3FD800001FC38FF800003FF80FF800001FC38FF800003FF80FF8000 + 01FC38FF800003FFE3FFFE00FFFC30FF800003FFC1FFFE007FFC30FF800003FF + 80FFFC003FFC00FF800003FF80FFFC001FFC84FF800003FF88FFF8181FFCFCFF + 800003FF80FFF0381FFC38FFC06C07FF80FFF03C1FFC00FFF0C60FFFC0FFF83C + 1FFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FC001FC0001F000000FFFF01FF00FFC00007000001FFFF01FF00FFC00007 + 000001FFFE01FF00FFC00007000001FFF801FF00FFC00007000001FFF803FF00 + FFC00007000001FFF003FF00FFC00007000001FFE00F800000C00007000001F0 + 001F800000C00007000000E0001F800000C0000700000080007F800000C00007 + 0000008000FF800000C000070000008001FF800000C000070000000001FF8000 + 00C000070000010001FF800000C000070000010001FF800000C0000700000100 + 001FFF00FFC0000700000100001FFF00FFC0000700000100001FFF00FFC00007 + 0000018003FFFF00FFC000070000018007FFFF00FFC00007000001C007FFFF00 + FFC00007FFFFFFF03FFFFF00FFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFE000F00 + 0000FC001FFFFFFFFC0007000000FC001F000000FA000FF0000FFC001F000001 + F00FFFF0000FFC001F800001F007FFF0000FFC001F800001E003FFF00007FC00 + 1F8000018003FFF00007FC001F8000018001FFF00007FC001FC000030001FFF0 + 0007FC001FE0000701807FF00003FC001FF0000F03C07FE00003FC003FFF00FF + 87E07FE00003000001FF81FF87F03FE00003000001FF00FFFFF81FE000018000 + 03FF00FFFFFC0F800001C00007FE00FFFFFE0F800001E0000FFE00FFFFFF0780 + 0001F0001FFE00FFFFFF87800001F8003FFE00FFFFFFC1800001FC007FFE00FF + FFFFE1800000FE00FFFF00FFFFFFF1800001FF01FFFF00FFFFFFF8800001FF83 + FFFF81FFFFFFFCE00003FFC7FFFFFFFFFFFFFFF0000FFFFFFF000001F8000FF0 + 000F000000000041FE003FFFF1FF800001800041000000FFF0FF800005800041 + 000000FFF07F80000180004180000100103F80000180004180000100000F8000 + 0180004180000100000780000180004180000100000380000180004180000100 + 0003800001800041800001000000800001800041800001000000800001800041 + 80000100000080000180006380000100000080000180007F8000010000018000 + 0180007F80000100000380000180007FE4000700000780000180007FFC003F00 + 000F80000180007FFC003FFFF01F80000180007FFC003FFFF03F800001803FFF + FC003FFFF07F800001803FFFFC003FFFF0FF800001803FFFFC003FFFF1FF8000 + 01803FFFFFFFFFFFF7FFFFFFFF807FFFFFFFFFF8003F88007FFFFFFF000000FE + 003F800000000000800001FE00FFFE00FF800001800000FE00FFFE00FF800001 + 800000FF01FFFE00FF800001800000FF01FFFE00FF800001800000000000FE00 + FF800001800000000000FE00FF80000180000000000000000180000180000000 + 0000000001800001800000000000000001800001800000000000000001800001 + 8000000000000000018000008000000000000000018000008000000000000000 + 01800000800001000000000001800000800001000000000001800000C0000300 + 0000FE00FF800000E00007000000FE00FF800000F0000F000000FE00FF800001 + F8001F000000FE00FF800001FC003F000000FE00FF801801FE007F000000FE00 + FF803E01FFFFFF000000FE00FFC1FFC1F0000FFFFFFFFFFFFFE0001FF0000FFF + FFFF800001E0001FFF83FFFFFFFFE00007FF8FFFFF00FFFFFFFFE00007FF0FFF + FE007F000001E00007FE0FFFFC003F000001F0000FFC0800F8003F800007F000 + 0FF00000F0000F800003F0000FE00000E0000F800003F0000FC00000C0000780 + 0001F0000FC00000800001800001E00007000000000001800001E00007000000 + 000001800001E00007000000FC003F800000E00007000000FC003F800000E000 + 07800000FC003F800000E00007C00000FC003F800007F0000FE00000FC003F80 + 0007F8001FF00000FC003F800007FC003FF80FFFFC003F80000FFE007FFC0FFF + FC003F803FFFFF007FFE0FFFFC003FFFFFFFFF807FFF0FFFFC003FFFFFFFFFC0 + 7FFF8FFFFC003FFFFFFFFFE7FFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFF00000080 + 0001000001E00001800001E00007000001C00001800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00003800001E000078000 + 01F00003800001E00007800001F00003800001E00007800001F00003800001E0 + 0007800001F00003800001E00007800001F00003800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00001800001E000078000 + 01F00001800001E00007800001F00001800001E00007800001F00003800001E0 + 0007800001F0000F800001E00007800001F0000F800001E00007800001F0001F + 800001E00007800001F0007F800001E00007800001F0007F800001FF81FF8000 + 01F000FFFCFF3FFF81FFFFFFFFF003FF00000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + 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 = clOlive + 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 = clPurple + 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 = clWindowText + 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 cxStyleRepository1: TcxStyleRepository + Left = 265 + Top = 174 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clInactiveCaption + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = 4707838 + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_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 cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object Timer1: TTimer + Enabled = False + Interval = 10000 + Left = 272 + Top = 104 + end +end diff --git a/应收应付/样品仓库/U_DataLink.pas b/应收应付/样品仓库/U_DataLink.pas new file mode 100644 index 0000000..d7b7c36 --- /dev/null +++ b/应收应付/样品仓库/U_DataLink.pas @@ -0,0 +1,89 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils, ExtCtrls, AppEvnts; +var + DConString:String; {ȫַ} + server, dtbase, user, pswd: String; {ݿӲ} + DCurHandle:hwnd; //ǰ + PicSvr:string; + 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; //˾ +type + TYPCK_DataLink = 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; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + Timer1: TTimer; + 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 + YPCK_DataLink: TYPCK_DataLink; + +implementation +{$R *.dfm} + + +procedure TYPCK_DataLink.DataModuleDestroy(Sender: TObject); +begin + YPCK_DataLink:=nil; +end; + +end. + + + + diff --git a/应收应付/样品仓库/U_GetDllForm.pas b/应收应付/样品仓库/U_GetDllForm.pas new file mode 100644 index 0000000..a5d7378 --- /dev/null +++ b/应收应付/样品仓库/U_GetDllForm.pas @@ -0,0 +1,346 @@ +unit U_GetDllForm; +interface +uses + Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,IniFiles; +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; +Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean; + +implementation +uses + U_DataLink,U_getDogServer,U_BpRklist,U_Bpcklist,U_Bpckchklist,U_Bpkclist,U_ZDYHelp,U_Bpkcsumlist,U_ZdyAttachmentBJ; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=GName; + DCode:=GName; + 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; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + server:='47.101.61.158,7781'; + dtbase:='haoyuedata'; + user:='sa'; + pswd:='rightsoft@123'; +// server:='139.196.255.193,7781'; +// dtbase:='wumandata'; +// user:='sa'; +// pswd:='rightsoft@123'; + DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID=' + +user+';Initial Catalog='+dtbase+';Data Source='+server; + DConString:=DataBaseStr; +//DName:='ADMIN'; +// Parameters1:='Ʒֿ'; +// DParameters2:='ҵԱ'; + + // if GetLinkDog(DCurHandle,DConString)<0 then application.Terminate; + if not ConnData() then + begin + result:=0; + exit; + end; + GetsysParam('',''); + // 崰 ״̬ + if WinStyle=0 then + begin + mstyle := fsMDIChild ; + mstate := wsMaximized ; + mborderstyle := bsSizeable; + end + else + begin + mstyle := fsNormal ; + mstate := wsNormal ; + mborderstyle := bsSizeable; + end; + ///////////////////// + //ģ鴰 + case FormId of + -1: //ֿ + begin + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPCK'; + flagname:=''; + if ShowModal=1 then + begin + + end; + free; + end; + end; + -2: // + begin + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPRKTYPE'; + flagname:=''; + fnote:=true; + if ShowModal=1 then + begin + + end; + free; + end; + end; + -3: // + begin + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPCKTYPE'; + flagname:=''; + fnote:=true; + if ShowModal=1 then + begin + + end; + free; + end; + end; + 10: //Ʒ + begin + if frmBpRklist=nil then + begin + frmBpRklist:= TfrmBpRklist.Create(application.MainForm); + with frmBpRklist do + begin + caption:=Trim(Title); + fCkName:=trim(Parameters1); + canshu1:=trim(Parameters2); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBpRklist.BringToFront; + // + mNewHandle:=frmBpRklist.Handle; + end; + 20: //Ʒ + begin + if frmBpCklist=nil then + begin + frmBpCklist:= TfrmBpCklist.Create(application.MainForm); + with frmBpCklist do + begin + caption:=Trim(Title); + fCkName:=trim(Parameters1); + canshu1:=trim(Parameters2); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBpCklist.BringToFront; + // + mNewHandle:=frmBpCklist.Handle; + + end; + 21: //Ʒ + begin + if frmBpckchklist=nil then + begin + frmBpckchklist:= TfrmBpckchklist.Create(application.MainForm); + with frmBpckchklist do + begin + caption:=Trim(Title); + fCkName:=trim(Parameters1); + canshu1:=trim(Parameters2); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBpckchklist.BringToFront; + // + mNewHandle:=frmBpckchklist.Handle; + + end; + 30: //Ʒ + begin + if frmBpkclist=nil then + begin + frmBpkclist:= TfrmBpkclist.Create(application.MainForm); + with frmBpkclist do + begin + caption:=Trim(Title); + fCkName:=trim(Parameters1); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBpkclist.BringToFront; + // + mNewHandle:=frmBpkclist.Handle; + end; + 31: //Ʒ + begin + if frmBpkcsumlist=nil then + begin + frmBpkcsumlist:= TfrmBpkcsumlist.Create(application.MainForm); + with frmBpkcsumlist do + begin + caption:=Trim(Title); + fCkName:=trim(Parameters1); + canshu2:=trim(Parameters2); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBpkcsumlist.BringToFront; + // + mNewHandle:=frmBpkcsumlist.Handle; + end; + + 40: //Ʒ + begin + if frmZdyAttachmentCB=nil then + begin + frmZdyAttachmentCB:= TfrmZdyAttachmentCB.Create(application.MainForm); + with frmZdyAttachmentCB do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachmentCB.BringToFront; + // + mNewHandle:=frmZdyAttachmentCB.Handle; + end; + + end ; // end case + + Result:= mnewHandle; + NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +var + IniFile: TIniFile; +begin + try + IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI'); + PicSvr := IniFile.ReadString('SERVER', 'ַ','127.0.0.1'); + finally + IniFile.Free; + end; + if not Assigned(YPCK_DataLink) then + YPCK_DataLink:=TYPCK_DataLink.Create(Application); + Try + with YPCK_DataLink.ADOLink do + begin + if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + // BaseData10_DataLink.Timer1.Enabled:=true; + end; + end; + Result:=true; + Except + Result:=false; + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + +end; +//========================================================= + //ȡϵͳ +//========================================================= +Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean; +begin + result:=true; + ////////////////////////////// + shortDateFormat:='yyyy-MM-dd'; + // + with YPCK_DataLink.AdoDataLink do + begin + close; + sql.Clear; + sql.Add('select getDate()as dt'); + open; + DServerDate:=fieldByName('dt').AsDatetime; + end; + result:=true; +end; + +INITIALIZATION + OldDllApp:= Application; + +FINALIZATION + YPCK_DataLink.Free; + Application := OldDllApp; + +end. + diff --git a/应收应付/样品仓库/U_PackList.dfm b/应收应付/样品仓库/U_PackList.dfm new file mode 100644 index 0000000..07cd745 --- /dev/null +++ b/应收应付/样品仓库/U_PackList.dfm @@ -0,0 +1,648 @@ +object frmPackList: TfrmPackList + Left = 77 + Top = 101 + Width = 921 + Height = 634 + Caption = #25171#21253#20449#24687 + 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 = 913 + 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 = Packaged_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 47 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 49 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 48 + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986#30721#21333 + ImageIndex = 44 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 913 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 239 + Top = 12 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #25171#21253#26085#26399 + end + object Label2: TLabel + Left = 240 + Top = 32 + Width = 48 + Height = 12 + Caption = #35745#21010#21333#21495 + end + object Label4: TLabel + Left = 444 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object khName: TEdit + Left = 292 + Top = 7 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = khNameChange + end + object begdate: TDateTimePicker + Left = 76 + Top = 8 + Width = 97 + Height = 20 + Date = 41009.831677152770000000 + Format = 'yyyy-MM-dd' + Time = 41009.831677152770000000 + TabOrder = 1 + end + object enddate: TDateTimePicker + Left = 76 + Top = 28 + Width = 97 + Height = 20 + Date = 41009.831677152770000000 + Format = 'yyyy-MM-dd' + Time = 41009.831677152770000000 + TabOrder = 2 + end + object orderNo: TEdit + Left = 292 + Top = 28 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = khNameChange + end + object cpName: TEdit + Left = 500 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = khNameChange + end + object CheckBox1: TCheckBox + Left = 444 + Top = 32 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + OnClick = CheckBox1Click + end + end + object CXGrid1: TcxGrid + Left = 4 + Top = 89 + Width = 505 + Height = 316 + TabOrder = 2 + LookAndFeel.Kind = lfStandard + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = TV1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = V1qtyMi + end + item + Kind = skSum + Column = V1qtyjz + end + item + Kind = skSum + Column = V1qtyMa + end + item + Kind = skSum + Column = V1QtyMz + end + item + Kind = skSum + Column = V1QtyPZ + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.ContentOdd = Packaged_DataLink.cxStyle_gridRow + Styles.Footer = Packaged_DataLink.cxStyle_gridFoot + Styles.GroupByBox = Packaged_DataLink.cxStyle_gridGroupBox + Styles.Header = Packaged_DataLink.cxStyle_gridHead + object V1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object V1packID: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'packID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object V1FillTime: TcxGridDBColumn + Caption = #25171#21253#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V1packNo: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object TV1KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object TV1OrderNo: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object TV1CPName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 109 + end + object V1qtyMi: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'qtyMi' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = Packaged_DataLink.cxStyle_fontclBlue + Styles.Footer = Packaged_DataLink.cxStyle_fontclBlue + Styles.Header = Packaged_DataLink.cxStyle_fontclBlue + Width = 50 + end + object V1qtyjz: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'qtyjz' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = Packaged_DataLink.cxStyle_fontclFuchsia + Styles.Footer = Packaged_DataLink.cxStyle_fontclFuchsia + Styles.Header = Packaged_DataLink.cxStyle_fontclFuchsia + Width = 50 + end + object V1qtyMa: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'qtyMa' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object V1QtyMz: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'QtyMz' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object V1QtyPZ: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'QtyPZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + end + object CXGrid1L1: TcxGridLevel + GridView = TV1 + end + end + object cxSplitter1: TcxSplitter + Left = 641 + Top = 89 + Width = 8 + Height = 319 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 649 + Top = 89 + Width = 264 + Height = 319 + Align = alRight + TabOrder = 4 + LookAndFeel.Kind = lfStandard + object tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBqtyMi + end + item + Kind = skSum + Column = cxGridDBqtyjz + end + item + Kind = skSum + Column = cxGridDBqtyMa + end + item + Kind = skSum + Column = cxGridDBQtyMz + end + item + Kind = skSum + Column = cxGridDBQtyPZ + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.ContentOdd = Packaged_DataLink.cxStyle_gridRow + Styles.Footer = Packaged_DataLink.cxStyle_gridFoot + Styles.GroupByBox = Packaged_DataLink.cxStyle_gridGroupBox + Styles.Header = Packaged_DataLink.cxStyle_gridHead + object cxGridDBTMID: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'TMID' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object cxGridDBJH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBHX: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'HX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object cxGridDBqtyMi: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'qtyMi' + HeaderAlignmentHorz = taCenter + Styles.Content = Packaged_DataLink.cxStyle_fontclBlue + Styles.Footer = Packaged_DataLink.cxStyle_fontclBlue + Styles.Header = Packaged_DataLink.cxStyle_fontclBlue + Width = 50 + end + object cxGridDBqtyjz: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'qtyjz' + HeaderAlignmentHorz = taCenter + Styles.Content = Packaged_DataLink.cxStyle_fontclFuchsia + Styles.Footer = Packaged_DataLink.cxStyle_fontclFuchsia + Styles.Header = Packaged_DataLink.cxStyle_fontclFuchsia + Width = 50 + end + object cxGridDBqtyMa: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'qtyMa' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBQtyMz: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'QtyMz' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBQtyPZ: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'QtyPZ' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel1: TcxGridLevel + GridView = tv2 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 408 + Width = 913 + Height = 194 + Align = alBottom + TabOrder = 5 + Visible = False + object TV3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object TV3ORDERNO: TcxGridDBColumn + Caption = 'ORDER NO' + DataBinding.FieldName = 'ORDERNO' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 70 + end + object TV3BALNO: TcxGridDBColumn + Caption = 'BAL NO' + DataBinding.FieldName = 'PackNo' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 60 + end + object TV3TYpe: TcxGridDBColumn + DataBinding.FieldName = 'TYPE' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 60 + IsCaptionAssigned = True + end + object TV3DESNO: TcxGridDBColumn + Caption = 'DES NO' + DataBinding.FieldName = 'HX' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 60 + end + object TV31: TcxGridDBColumn + Caption = '1' + DataBinding.FieldName = 'ROW1' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV32: TcxGridDBColumn + Caption = '2' + DataBinding.FieldName = 'ROW2' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV33: TcxGridDBColumn + Caption = '3' + DataBinding.FieldName = 'ROW3' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV34: TcxGridDBColumn + Caption = '4' + DataBinding.FieldName = 'ROW4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV35: TcxGridDBColumn + Caption = '5' + DataBinding.FieldName = 'ROW5' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV36: TcxGridDBColumn + Caption = '6' + DataBinding.FieldName = 'ROW6' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV37: TcxGridDBColumn + Caption = '7' + DataBinding.FieldName = 'ROW7' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV38: TcxGridDBColumn + Caption = '8' + DataBinding.FieldName = 'ROW8' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV39: TcxGridDBColumn + Caption = '9' + DataBinding.FieldName = 'ROW9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV310: TcxGridDBColumn + Caption = '10' + DataBinding.FieldName = 'ROW10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV3TTL: TcxGridDBColumn + Caption = 'TTL' + DataBinding.FieldName = 'ROWSUM' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid3Level1: TcxGridLevel + GridView = TV3 + end + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 356 + Top = 181 + end + object ADOQuerymain: TADOQuery + Connection = Packaged_DataLink.ADOLink + Parameters = <> + SQL.Strings = ( + 'SELECT * FROM JD_Pack A' + '' + '' + '' + '' + '') + Left = 412 + Top = 164 + end + object ADOQuerysub: TADOQuery + Connection = Packaged_DataLink.ADOLink + Parameters = <> + Left = 684 + Top = 188 + end + object DataSource2: TDataSource + DataSet = ADOQuerysub + Left = 720 + Top = 248 + end + object ADOQueryPrint: TADOQuery + Connection = Packaged_DataLink.ADOLink + Parameters = <> + Left = 292 + Top = 408 + end + object DataSource3: TDataSource + DataSet = ADOQueryPrint + Left = 324 + Top = 408 + end + object ADOQueryCMD: TADOQuery + Connection = Packaged_DataLink.ADOLink + Parameters = <> + Left = 644 + Top = 45 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 468 + Top = 216 + end +end diff --git a/应收应付/样品仓库/U_ProductOrderNewList.dfm b/应收应付/样品仓库/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..5e47f12 --- /dev/null +++ b/应收应付/样品仓库/U_ProductOrderNewList.dfm @@ -0,0 +1,673 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 93 + Top = 81 + Width = 1124 + Height = 633 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1108 + 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 = CPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #30830#23450 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1108 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 19 + Top = 47 + 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 = 35 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 63 + Top = 83 + Width = 40 + 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 Label2: TLabel + Left = 314 + Top = 99 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 285 + Top = 76 + Width = 53 + 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 Label6: TLabel + Left = 588 + Top = 103 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 585 + Top = 87 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 425 + Top = 15 + Width = 52 + Height = 12 + Caption = #20013#25991#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 = 99 + 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 Label10: TLabel + Left = 729 + Top = 103 + Width = 26 + 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 = 437 + Top = 99 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 861 + Top = 115 + 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 = 861 + Top = 91 + 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 Label14: TLabel + Left = 160 + Top = 48 + Width = 6 + Height = 12 + Caption = '-' + end + object Label15: TLabel + Left = 231 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#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 = 47 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 172 + Top = 47 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 80 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 104 + Top = 79 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 343 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 339 + Top = 71 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 641 + Top = 99 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 614 + Top = 83 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 479 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 95 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 758 + Top = 99 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 491 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 890 + Top = 111 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 890 + Top = 87 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 260 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 14 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1108 + Height = 424 + Align = alTop + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = CPCK_DataLink.SHuangSe + Styles.IncSearch = CPCK_DataLink.SHuangSe + Styles.Selection = CPCK_DataLink.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = CPCK_DataLink.Default + object v1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #21697#21495 + DataBinding.FieldName = 'MPrtCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = CPCK_DataLink.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1pbRollNum: TcxGridDBColumn + Caption = #26410#20837#24211#21305#25968 + DataBinding.FieldName = 'pbRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1pbQty: TcxGridDBColumn + Caption = #26410#20837#24211#25968#37327 + DataBinding.FieldName = 'pbQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkRollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rkRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1rkqty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'rkqty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckRollNum: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1ckQty: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'kcRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1kcQty: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'kcQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = CPCK_DataLink.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = CPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = CPCK_DataLink.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = CPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/应收应付/样品仓库/U_ProductOrderNewList.pas b/应收应付/样品仓库/U_ProductOrderNewList.pas new file mode 100644 index 0000000..893edaa --- /dev/null +++ b/应收应付/样品仓库/U_ProductOrderNewList.pas @@ -0,0 +1,458 @@ +unit U_ProductOrderNewList; + +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; + +type + TfrmProductOrderNewList = 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; + OrderNo: TEdit; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label6: TLabel; + MPRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SSel: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1pbRollNum: TcxGridDBColumn; + v1pbQty: TcxGridDBColumn; + v1rkRollNum: TcxGridDBColumn; + v1rkqty: TcxGridDBColumn; + v1ckRollNum: TcxGridDBColumn; + v1ckQty: TcxGridDBColumn; + v1kcRollNum: TcxGridDBColumn; + v1kcQty: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label14: TLabel; + MPRTCode: TEdit; + Label15: TLabel; + 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 OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + +implementation +uses + U_DataLink,U_Fun10; + + +{$R *.dfm} + +procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList:=nil; +end; + +procedure TfrmProductOrderNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + // WriteCxGrid('ָʾб10',Tv1,'ָʾ') + else + // WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.add('exec P_View_Order_CP :begdate,:enddate,:WSql') ; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +// TBFind.Click; +end; +procedure TfrmProductOrderNewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + // ReadCxGrid('ָʾб10',Tv1,'ָʾ') + else + // ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + // v1Column4.Visible:=True; + + end else + begin + // v1Column4.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.DelData():Boolean; +begin +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderNewList.OrderNoChange(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 TfrmProductOrderNewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin +{ if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:='%'+Trim(OrderNoM.Text)+'%'; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+fsj+''''; + end; + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmProductOrderNewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +end. diff --git a/应收应付/样品仓库/U_SLT.dfm b/应收应付/样品仓库/U_SLT.dfm new file mode 100644 index 0000000..b4a485e --- /dev/null +++ b/应收应付/样品仓库/U_SLT.dfm @@ -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 diff --git a/应收应付/样品仓库/U_SLT.pas b/应收应付/样品仓库/U_SLT.pas new file mode 100644 index 0000000..7c5056e --- /dev/null +++ b/应收应付/样品仓库/U_SLT.pas @@ -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. diff --git a/应收应付/样品仓库/U_ZdyAttachGYS.dfm b/应收应付/样品仓库/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..7011b06 --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachGYS.dfm @@ -0,0 +1,338 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 192 + Top = 103 + Width = 1038 + Height = 618 + Caption = #20379#24212#21830#36164#26009#31649#29702 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = YPCK_DataLink.ThreeImgList + Flat = True + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label2: TLabel + Left = 395 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 267 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 424 + Top = 8 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067#21378 + #21152#24037#21378) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = YPCK_DataLink.SHuangSe + Styles.IncSearch = YPCK_DataLink.SHuangSe + Styles.Selection = YPCK_DataLink.SHuangSe + Styles.Header = YPCK_DataLink.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column10: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'zdyNameTj' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + 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 = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 773 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 813 + Top = 17 + end + object ADOQueryMain: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 733 + Top = 17 + 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 = 768 + Top = 216 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 776 + Top = 184 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 184 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 731 + Top = 179 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 184 + end +end diff --git a/应收应付/样品仓库/U_ZdyAttachGYS.pas b/应收应付/样品仓库/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..d0e18d0 --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachGYS.pas @@ -0,0 +1,215 @@ +unit U_ZdyAttachGYS; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachGYS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + TBFind: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +end; + + +procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYS:=nil; +end; + +procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2); + Close; +end; +procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete;} +end; + +procedure TfrmZdyAttachGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2); + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); +begin + TBFind.Click; +end; + + +procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/应收应付/样品仓库/U_ZdyAttachment.dfm b/应收应付/样品仓库/U_ZdyAttachment.dfm new file mode 100644 index 0000000..ef5e9ba --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachment.dfm @@ -0,0 +1,361 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 239 + Top = 86 + Width = 812 + Height = 612 + Caption = #23458#25143#36164#26009#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 796 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = YPCK_DataLink.ThreeImgList + Flat = True + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 796 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 190 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label2: TLabel + Left = 350 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object ZdyName: TEdit + Tag = 2 + Left = 238 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TEdit + Tag = 2 + Left = 388 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 796 + Height = 504 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = YPCK_DataLink.SHuangSe + Styles.IncSearch = YPCK_DataLink.SHuangSe + Styles.Selection = YPCK_DataLink.SHuangSe + Styles.Header = YPCK_DataLink.Default + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + end + object v2Column15: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'zdyNameZ' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v2Column11: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2DEFStr7: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + 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 = 165 + end + object v2Column12: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column13: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column14: TcxGridDBColumn + Caption = #27424#27454#39069#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = YPCK_DataLink.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 + 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 diff --git a/应收应付/样品仓库/U_ZdyAttachment.pas b/应收应付/样品仓库/U_ZdyAttachment.pas new file mode 100644 index 0000000..dbbe5e5 --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachment.pas @@ -0,0 +1,204 @@ +unit U_ZdyAttachment; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + fywy:string; + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachment.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); + IF trim(fkhType)<>'' then + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + IF trim(fywy)<>'' then + sql.Add(' and Filler='+quotedstr(trim(fywy))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); +begin + frmZdyAttachment:=nil; +end; + +procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachment.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; } +end; + +procedure TfrmZdyAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachment.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInput.Free; + end; } +end; + +procedure TfrmZdyAttachment.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/应收应付/样品仓库/U_ZdyAttachmentBJ.dfm b/应收应付/样品仓库/U_ZdyAttachmentBJ.dfm new file mode 100644 index 0000000..b442b3e --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachmentBJ.dfm @@ -0,0 +1,673 @@ +object frmZdyAttachmentCB: TfrmZdyAttachmentCB + Left = 296 + Top = 247 + Width = 812 + Height = 578 + Caption = #23458#25143#25253#20215#31649#29702 + 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 = 796 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = YPCK_DataLink.ThreeImgList + Flat = True + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBADD: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBADDClick + end + object TBedit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBeditClick + end + object TCopy: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = TCopyClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + Wrap = True + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TnochkClick + end + object ToolButton1: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 150 + Top = 30 + AutoSize = True + Caption = #25171#21360#25253#20215#21333 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 249 + Top = 30 + AutoSize = True + Caption = #25171#21360#25343#26679#28165#21333 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object TBClosexx: TToolButton + Left = 360 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBClosexxClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 796 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 322 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label5: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #25253#20215#26085#26399 + end + object Label6: TLabel + Left = 184 + Top = 12 + Width = 6 + Height = 12 + Caption = '-' + end + object Label2: TLabel + Left = 498 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 670 + Top = 13 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object Label4: TLabel + Left = 830 + Top = 13 + Width = 48 + Height = 12 + Caption = #20013#25991#21697#21517 + end + object custNo: TEdit + Tag = 2 + Left = 374 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = custNoChange + end + object begdate: TDateTimePicker + Left = 80 + Top = 8 + Width = 100 + Height = 20 + Date = 42391.664898645830000000 + Time = 42391.664898645830000000 + TabOrder = 1 + end + object enddate: TDateTimePicker + Left = 192 + Top = 8 + Width = 100 + Height = 20 + Date = 42391.664898645830000000 + Time = 42391.664898645830000000 + TabOrder = 2 + end + object custName: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = custNoChange + end + object P_Code: TEdit + Tag = 2 + Left = 722 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = custNoChange + end + object P_CodeName: TEdit + Tag = 2 + Left = 882 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = custNoChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 89 + Width = 796 + Height = 451 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_Main + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = YPCK_DataLink.SHuangSe + Styles.IncSearch = YPCK_DataLink.SHuangSe + Styles.Selection = YPCK_DataLink.SHuangSe + Styles.Header = YPCK_DataLink.handBlack + object v2DEFStr7: TcxGridDBColumn + Caption = #25253#20215#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v2Column4: TcxGridDBColumn + Caption = #25253#20215#21333#21495 + DataBinding.FieldName = 'BJNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'custNO' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'custName' + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v2Column10: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'custcustCountry' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column11: TcxGridDBColumn + Caption = #20986#36816#28207 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v2Column19: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'Toplace' + HeaderAlignmentHorz = taCenter + end + object v2Column3: TcxGridDBColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'custphone' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column5: TcxGridDBColumn + Caption = #26377#25928#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'priceNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column8: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2Column9: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'P_CodeName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column16: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'P_CodeNameE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column17: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column20: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column21: TcxGridDBColumn + Caption = #26377#25928#38376#24133 + DataBinding.FieldName = 'P_MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column22: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'P_KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column15: TcxGridDBColumn + Caption = #38144#21806#20215#26684 + DataBinding.FieldName = 'price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column18: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'priceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column14: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'huilv' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column28: TcxGridDBColumn + Caption = #36215#35746#37327 + DataBinding.FieldName = 'BJstr6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v2Column12: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column13: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 151 + end + object v2Column23: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BJstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column24: TcxGridDBColumn + Caption = #25253#20215#21442#25968 + DataBinding.FieldName = 'BJQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column25: TcxGridDBColumn + Caption = #20840#24133 + DataBinding.FieldName = 'BJstr9' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 69 + Width = 796 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 796 + ClientRectTop = 19 + end + object Panel4: TPanel + Left = 487 + Top = 112 + Width = 231 + Height = 216 + TabOrder = 4 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 79 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #25253#20215#20449#24687#34920 + #25253#20215#20449#24687#34920'('#33521#25991')') + TabOrder = 2 + end + end + object ADOQueryTemp: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 965 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 885 + Top = 17 + end + object ADOQueryMain: TADOQuery + Connection = YPCK_DataLink.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 533 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 660 + Top = 132 + end + object DS_Main: TDataSource + DataSet = CDS_Main + Left = 899 + Top = 235 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 460 + Top = 168 + end + object ADOQueryPrint: TADOQuery + Connection = YPCK_DataLink.ADOLink + Parameters = <> + Left = 740 + Top = 156 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 372 + Top = 300 + ReportData = {} + end + object RMllPDFExport1: TRMllPDFExport + ShowDialog = False + ShowAfterExport = True + ShowBackPicture = True + Left = 928 + Top = 164 + 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 = 684 + Top = 336 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 356 + Top = 252 + end +end diff --git a/应收应付/样品仓库/U_ZdyAttachmentBJ.pas b/应收应付/样品仓库/U_ZdyAttachmentBJ.pas new file mode 100644 index 0000000..fbbd319 --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachmentBJ.pas @@ -0,0 +1,467 @@ +unit U_ZdyAttachmentBJ; + +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, cxCalendar, + cxButtonEdit, cxTextEdit, cxDBLookupComboBox, RM_e_Xls, RM_E_llPDF, cxPC; + +type + TfrmZdyAttachmentCB = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + Label3: TLabel; + custNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_Main: TDataSource; + CDS_Main: TClientDataSet; + TBADD: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + TBedit: TToolButton; + v2Column11: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + Label5: TLabel; + begdate: TDateTimePicker; + Label6: TLabel; + enddate: TDateTimePicker; + v2Column4: TcxGridDBColumn; + custName: TEdit; + Label2: TLabel; + v2Column15: TcxGridDBColumn; + ToolButton5: TToolButton; + ADOQueryPrint: TADOQuery; + RM1: TRMGridReport; + RMllPDFExport1: TRMllPDFExport; + RMXLSExport1: TRMXLSExport; + RMDBDataSet1: TRMDBDataSet; + v2Column18: TcxGridDBColumn; + v2Column19: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2Column20: TcxGridDBColumn; + v2Column21: TcxGridDBColumn; + v2Column22: TcxGridDBColumn; + v2Column28: TcxGridDBColumn; + Tchk: TToolButton; + Tnochk: TToolButton; + cxTabControl1: TcxTabControl; + v2Column23: TcxGridDBColumn; + v2Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + TCopy: TToolButton; + v2Column25: TcxGridDBColumn; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + P_Code: TEdit; + Label1: TLabel; + P_CodeName: TEdit; + Label4: TLabel; + TBClosexx: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBClosexxClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure custNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBeditClick(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TCopyClick(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + private + + { Private declarations } + procedure InitGrid(); + procedure SetStatus(); + public + fkhType:string; + Fmanage:string; + canshu1:string; + end; + +var + frmZdyAttachmentCB: TfrmZdyAttachmentCB; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp, + U_ZdyAttachmentBJ_Edit; + +{$R *.dfm} + +procedure TfrmZdyAttachmentCB.SetStatus(); +begin + TBedit.Visible:=false; + Tbdel.Visible:=false; + Tchk.Visible:=false; + Tnochk.Visible:=false; + + IF trim(canshu1)='ҵԱ' then + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + end; + 1:begin + // tbcdel.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBedit.Visible:=true; + Tbdel.Visible:=true; + Tchk.Visible:=true; + end; + 1:begin + Tnochk.Visible:=true; + end; + end; + end; + +end; + +procedure TfrmZdyAttachmentCB.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + SQL.Clear; + sql.Add('select A.* from KH_CP_BJ A'); + sql.Add(' where A.CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''''); + sql.Add(' and A.CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + IF trim(canshu1)='ҵԱ'then + sql.Add(' and A.Filler='+quotedstr(trim(DName))); + if cxTabControl1.TabIndex<2 then + sql.Add('and A.status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachmentCB.FormDestroy(Sender: TObject); +begin + frmZdyAttachmentCB:=nil; +end; + +procedure TfrmZdyAttachmentCB.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachmentCB.TBClosexxClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+'1',Tv2,'ͻԶ'); + Close; +end; + +procedure TfrmZdyAttachmentCB.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_CP_BJ where BJNO='''+Trim(CDS_Main.fieldbyname('BJNO').AsString)+''''); + ExecSQL; + end; + initgrid(); +end; + +procedure TfrmZdyAttachmentCB.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+'1',Tv2,'ͻԶ'); + cxTabControl1.TabIndex:=0; + SetStatus(); + InitGrid(); +end; + +procedure TfrmZdyAttachmentCB.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachmentCB.ToolButton2Click(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 TfrmZdyAttachmentCB.custNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachmentCB.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); + // SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachmentCB.TBeditClick(Sender: TObject); +begin + IF CDS_main.IsEmpty then exit; + try + frmZdyAttachmentBJ_Edit:=TfrmZdyAttachmentBJ_Edit.Create(Application); + with frmZdyAttachmentBJ_Edit do + begin + fkeyNo:=self.cds_main.fieldbyname('BJNO').asstring; + fType:=1; + canshu1:=self.canshu1; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttachmentBJ_Edit.Free; + end; +end; + +procedure TfrmZdyAttachmentCB.TBADDClick(Sender: TObject); +begin + try + frmZdyAttachmentBJ_Edit:=TfrmZdyAttachmentBJ_Edit.Create(Application); + with frmZdyAttachmentBJ_Edit do + begin + fkeyNO:=''; + fType:=0; + canshu1:=self.canshu1; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttachmentBJ_Edit.Free; + end; +end; + +procedure TfrmZdyAttachmentCB.FormCreate(Sender: TObject); +begin + enddate.Date:=date(); + begdate.Date:=strtodate(formatdateTime('yyyy-MM',enddate.Date)+'-01'); + canshu1:=trim(DParameters2); +end; + +procedure TfrmZdyAttachmentCB.ToolButton5Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + Panel4.Left:=(self.Width-Panel4.Width) div 2; + Panel4.Visible:=true; + +end; + +procedure TfrmZdyAttachmentCB.TchkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update KH_CP_BJ SET status=''1'' '); + sql.Add('where BJNO='+quotedstr(trim(CDS_Main.fieldbyname('BJNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmZdyAttachmentCB.TnochkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update KH_CP_BJ SET status=''0'' '); + sql.Add('where BJNO='+quotedstr(trim(CDS_Main.fieldbyname('BJNO').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmZdyAttachmentCB.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +// TBClose.Visible:=True; +end; + +procedure TfrmZdyAttachmentCB.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\嵥.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.CYMF,B.CYKZ, '); + sql.Add('FilesOther=(select Top 1 X1.FilesOther from TP_File X1,CP_YDang X2 where X1.WBID=X2.CYID and X2.CYNO=A.P_Code) '); + sql.Add('from KH_CP_BJ A '); + sql.Add('left join CP_YDang B on B.CYNO=A.P_Code'); + sql.Add('Where A.BJNO='''+Trim(CDS_Main.fieldbyname('BJNO').AsString)+''''); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + exit; + end; + +end; + +procedure TfrmZdyAttachmentCB.TCopyClick(Sender: TObject); +begin + IF CDS_main.IsEmpty then exit; + try + frmZdyAttachmentBJ_Edit:=TfrmZdyAttachmentBJ_Edit.Create(Application); + with frmZdyAttachmentBJ_Edit do + begin + fkeyNo:=self.cds_main.fieldbyname('BJNO').asstring; + fType:=2; + canshu1:=self.canshu1; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttachmentBJ_Edit.Free; + end; +end; + +procedure TfrmZdyAttachmentCB.Tv2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBedit.Click; +end; + +procedure TfrmZdyAttachmentCB.Image2Click(Sender: TObject); +begin + Panel4.Visible:=false; +end; + +procedure TfrmZdyAttachmentCB.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex])+'.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*, '); + sql.Add('FilesOther=(select Top 1 X1.FilesOther from TP_File X1,CP_YDang X2 where X1.WBID=X2.CYID and X2.CYNO=A.P_Code)'); + sql.Add('from KH_CP_BJ A '); + sql.Add('Where A.BJNO='''+Trim(CDS_Main.fieldbyname('BJNO').AsString)+''''); + Open; + end; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + Panel4.Visible:=false; + end else + begin + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + exit; + end; +end; + +end. + + diff --git a/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.dfm b/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.dfm new file mode 100644 index 0000000..ceefbec --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.dfm @@ -0,0 +1,705 @@ +object frmZdyAttachmentBJ_Edit: TfrmZdyAttachmentBJ_Edit + Left = 29 + Top = 90 + Width = 812 + Height = 565 + Caption = #25253#20215#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Label17: TLabel + Left = 32 + Top = 96 + Width = 48 + Height = 12 + Caption = #20960' '#39068' '#33394 + end + object Label9: TLabel + Left = 836 + Top = 124 + Width = 48 + Height = 12 + Caption = #25104#20154#25104#26412 + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 884 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = YPCK_DataLink.ThreeImgList + Flat = True + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object Tsave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TsaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 884 + Height = 481 + Align = alClient + BevelOuter = bvNone + TabOrder = 1 + object GroupBox1: TGroupBox + Left = 0 + Top = 0 + Width = 884 + Height = 189 + Align = alTop + Color = clSkyBlue + ParentColor = False + TabOrder = 0 + object Label1: TLabel + Left = 36 + Top = 28 + Width = 48 + Height = 12 + Caption = #25253#20215#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 289 + Top = 28 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label3: TLabel + Left = 540 + Top = 78 + Width = 48 + Height = 12 + Caption = #20215#26684#26465#27454 + end + object Label6: TLabel + Left = 541 + Top = 29 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label12: TLabel + Left = 36 + Top = 54 + Width = 48 + Height = 12 + Caption = #22269' '#23478 + end + object Label39: TLabel + Left = 541 + Top = 54 + Width = 48 + Height = 12 + Caption = #20986' '#36816' '#28207 + end + object Label4: TLabel + Left = 289 + Top = 54 + Width = 48 + Height = 12 + Caption = #32852#31995#30005#35805 + end + object Label5: TLabel + Left = 289 + Top = 78 + Width = 48 + Height = 12 + Caption = #26377' '#25928' '#26399 + end + object Label7: TLabel + Left = 36 + Top = 126 + Width = 48 + Height = 12 + Caption = #22791' '#27880 + end + object Label8: TLabel + Left = 36 + Top = 102 + Width = 48 + Height = 12 + Caption = #24065' '#31181 + end + object Label10: TLabel + Left = 36 + Top = 232 + Width = 48 + Height = 12 + Caption = #27719' '#29575 + end + object Label11: TLabel + Left = 36 + Top = 78 + Width = 48 + Height = 12 + Caption = #30446' '#30340' '#28207 + end + object Label13: TLabel + Left = 289 + Top = 104 + Width = 48 + Height = 12 + Caption = #27719' '#29575 + end + object Label16: TLabel + Left = 769 + Top = 29 + Width = 48 + Height = 12 + Caption = #23458#25143#31561#32423 + end + object Label18: TLabel + Left = 769 + Top = 53 + Width = 48 + Height = 12 + Caption = #20184#27454#26041#24335 + end + object Label19: TLabel + Left = 769 + Top = 77 + Width = 48 + Height = 12 + Caption = #19994' '#21153' '#21592 + end + object Label20: TLabel + Left = 769 + Top = 104 + Width = 48 + Height = 12 + Caption = #35745#20215#21333#20301 + end + object Label21: TLabel + Left = 541 + Top = 105 + Width = 48 + Height = 12 + Caption = #23458#25143#19994#21153 + end + object custName: TEdit + Tag = 2 + Left = 593 + Top = 25 + Width = 140 + Height = 20 + TabOrder = 0 + Text = 'Edit1' + end + object FromPlace: TEdit + Tag = 2 + Left = 593 + Top = 50 + Width = 140 + Height = 20 + TabOrder = 1 + Text = 'Edit1' + end + object custphone: TEdit + Tag = 2 + Left = 341 + Top = 50 + Width = 140 + Height = 20 + TabOrder = 2 + Text = 'custphone' + end + object note: TMemo + Tag = 2 + Left = 88 + Top = 124 + Width = 877 + Height = 57 + Lines.Strings = ( + 'note') + ScrollBars = ssVertical + TabOrder = 3 + end + object priceNote: TComboBox + Tag = 2 + Left = 592 + Top = 74 + Width = 140 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + 'FOB' + 'CIF' + 'CNF' + 'EXW' + #21547#31246#21547#36816 + #21547#31246#19981#21547#36816 + '' + '') + end + object CRTime: TDateTimePicker + Tag = 2 + Left = 88 + Top = 24 + Width = 140 + Height = 20 + Date = 42680.847243599540000000 + Format = 'yyyy-MM-dd' + Time = 42680.847243599540000000 + TabOrder = 5 + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 340 + Top = 74 + Width = 140 + Height = 20 + Date = 42680.847243599540000000 + Format = 'yyyy-MM-dd' + Time = 42680.847243599540000000 + TabOrder = 6 + end + object Priceunit: TComboBox + Tag = 2 + Left = 88 + Top = 100 + Width = 140 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = PriceunitChange + Items.Strings = ( + 'RMB' + 'USD' + 'EU' + '' + '' + '' + '') + end + object custNo: TBtnEditA + Tag = 2 + Left = 340 + Top = 24 + Width = 141 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = custNoBtnClick + end + object huilv: TcxCurrencyEdit + Tag = 2 + Left = 340 + Top = 100 + Properties.DisplayFormat = '0.##' + Properties.NullString = '1' + Properties.OnEditValueChanged = huilvPropertiesEditValueChanged + TabOrder = 9 + Width = 140 + end + object ToPlace: TEdit + Tag = 2 + Left = 88 + Top = 74 + Width = 140 + Height = 20 + TabOrder = 10 + Text = 'ToPlace' + end + object custCountry: TBtnEditA + Tag = 2 + Left = 88 + Top = 48 + Width = 141 + Height = 20 + TabOrder = 11 + OnBtnClick = custCountryBtnClick + end + object BJstr2: TEdit + Tag = 2 + Left = 821 + Top = 25 + Width = 140 + Height = 20 + TabOrder = 12 + Text = 'BJstr2' + end + object BJstr3: TEdit + Tag = 2 + Left = 821 + Top = 49 + Width = 140 + Height = 20 + TabOrder = 13 + Text = 'BJstr2' + end + object YWY: TEdit + Tag = 2 + Left = 821 + Top = 74 + Width = 140 + Height = 20 + TabOrder = 14 + Text = 'BJstr2' + end + object BJstr1: TComboBox + Tag = 2 + Left = 821 + Top = 100 + Width = 140 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 15 + OnChange = PriceunitChange + Items.Strings = ( + 'M' + 'Y' + 'KG') + end + object BJstr4: TEdit + Tag = 2 + Left = 593 + Top = 100 + Width = 140 + Height = 20 + TabOrder = 16 + Text = 'BJstr2' + end + end + object Panel2: TPanel + Left = 0 + Top = 189 + Width = 884 + Height = 292 + Align = alClient + BevelOuter = bvNone + Caption = 'Panel2' + TabOrder = 1 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 884 + Height = 292 + Align = alClient + BevelOuter = bvNone + Caption = 'Panel3' + TabOrder = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 884 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = YPCK_DataLink.ThreeImgList + Flat = True + Images = YPCK_DataLink.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 100 + Wrap = True + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 0 + Top = 30 + Width = 1015 + Height = 30 + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 0 + object Label14: TLabel + Left = 36 + Top = 12 + Width = 24 + Height = 12 + Caption = #26465#30721 + end + object Label15: TLabel + Left = 268 + Top = 12 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object CYID: TEdit + Left = 61 + Top = 4 + Width = 152 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYNO: TEdit + Left = 317 + Top = 4 + Width = 152 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = CYNOKeyPress + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 31 + Width = 884 + Height = 261 + Align = alClient + TabOrder = 1 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = YPCK_DataLink.Default + object V1Column1: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V1Column2: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object V1Column3: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'P_CodeNameE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object V1Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'P_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object V1Column10: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'P_CF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V1Column4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'P_MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'P_KZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V1Column16: TcxGridDBColumn + Caption = #20840#24133 + DataBinding.FieldName = 'BJstr9' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V1Column11: TcxGridDBColumn + Caption = #25104#21697#32463#23494 + DataBinding.FieldName = 'BJstr7' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V1Column12: TcxGridDBColumn + Caption = #25104#21697#32428#23494 + DataBinding.FieldName = 'BJstr8' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object V1Column15: TcxGridDBColumn + Caption = #36215#35746#37327 + DataBinding.FieldName = 'BJstr6' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object V1Column14: TcxGridDBColumn + Caption = #38144#21806#37329#39069'(RMB)' + DataBinding.FieldName = 'Price1' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object V1Column13: TcxGridDBColumn + Caption = #38144#21806#20215#26684'('#20854#20182#24065')' + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 116 + end + object V1Column6: TcxGridDBColumn + Caption = #25253#20215#21442#25968 + DataBinding.FieldName = 'BJQty1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Properties.OnEditValueChanged = V1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V1Column5: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'BJstr5' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V1Column7: TcxGridDBColumn + Caption = #35814#32454#25551#36848 + DataBinding.FieldName = 'Note1' + HeaderAlignmentHorz = taCenter + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + end + end + end + object PopupMenu1: TPopupMenu + Left = 1140 + Top = 103 + object N1: TMenuItem + Caption = #21024#38500 + end + object N3: TMenuItem + Caption = '-' + end + object N2: TMenuItem + Caption = #21478#23384#20026'...' + end + end + object ADOQueryCmd: TADOQuery + Connection = YPCK_DataLink.ADOLink + EnableBCD = False + Parameters = <> + Left = 932 + Top = 87 + end + object ADOQueryTmp: TADOQuery + Connection = YPCK_DataLink.ADOLink + EnableBCD = False + Parameters = <> + Left = 1056 + Top = 143 + end + object ADOQuerymain: TADOQuery + Connection = YPCK_DataLink.ADOLink + EnableBCD = False + Parameters = <> + Left = 716 + Top = 191 + end + object CDS1: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 283 + end + object DS1: TDataSource + DataSet = CDS1 + Left = 464 + Top = 288 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 780 + Top = 149 + end +end diff --git a/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.pas b/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.pas new file mode 100644 index 0000000..988515c --- /dev/null +++ b/应收应付/样品仓库/U_ZdyAttachmentBJ_Edit.pas @@ -0,0 +1,644 @@ +unit U_ZdyAttachmentBJ_Edit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, cxPC, cxControls, ComCtrls, ToolWin, StdCtrls, Menus, + cxTextEdit, cxCurrencyEdit, BtnEdit, cxContainer, cxEdit, cxImage, DB, + ADODB, cxDBEdit, cxLookAndFeelPainters, cxButtons, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, + cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxButtonEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit; + +type + TfrmZdyAttachmentBJ_Edit = class(TForm) + ToolBar1: TToolBar; + Tsave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + GroupBox1: TGroupBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label6: TLabel; + custName: TEdit; + Label17: TLabel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + ADOQuerymain: TADOQuery; + Label12: TLabel; + Label39: TLabel; + FromPlace: TEdit; + custphone: TEdit; + Label4: TLabel; + Label5: TLabel; + note: TMemo; + Label7: TLabel; + priceNote: TComboBox; + Panel2: TPanel; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + CDS1: TClientDataSet; + Label9: TLabel; + DS1: TDataSource; + CRTime: TDateTimePicker; + DlyDate: TDateTimePicker; + V1Column1: TcxGridDBColumn; + V1Column2: TcxGridDBColumn; + V1Column3: TcxGridDBColumn; + V1Column4: TcxGridDBColumn; + Label8: TLabel; + Priceunit: TComboBox; + custNo: TBtnEditA; + cxGridPopupMenu1: TcxGridPopupMenu; + Label10: TLabel; + huilv: TcxCurrencyEdit; + V1Column8: TcxGridDBColumn; + ToPlace: TEdit; + Label11: TLabel; + Label13: TLabel; + V1Column13: TcxGridDBColumn; + custCountry: TBtnEditA; + V1Column7: TcxGridDBColumn; + V1Column9: TcxGridDBColumn; + V1Column10: TcxGridDBColumn; + V1Column15: TcxGridDBColumn; + CYID: TEdit; + V1Column6: TcxGridDBColumn; + Panel4: TPanel; + Label14: TLabel; + Label15: TLabel; + CYNO: TEdit; + BJstr2: TEdit; + Label16: TLabel; + BJstr3: TEdit; + Label18: TLabel; + YWY: TEdit; + Label19: TLabel; + Label20: TLabel; + BJstr1: TComboBox; + BJstr4: TEdit; + Label21: TLabel; + V1Column5: TcxGridDBColumn; + V1Column11: TcxGridDBColumn; + V1Column12: TcxGridDBColumn; + V1Column14: TcxGridDBColumn; + V1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TsaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBImage1DblClick(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure MTypeBtnDnClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure custNoBtnClick(Sender: TObject); + procedure PriceunitChange(Sender: TObject); + procedure V1Column8PropertiesEditValueChanged(Sender: TObject); + procedure huilvPropertiesEditValueChanged(Sender: TObject); + procedure custCountryBtnClick(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure V1Column6PropertiesEditValueChanged(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + private + function savedata():Boolean; + procedure InitGrid(); + procedure InitImage(); + // procedure GetPrice(); + { Private declarations } + public + fkeyNo:string; + FType:integer; + canshu1:string; + { Public declarations } + end; + +var + frmZdyAttachmentBJ_Edit: TfrmZdyAttachmentBJ_Edit; + +implementation + uses + U_DataLink,U_Fun10, U_ZDYHelp, U_CPManageSel, U_ZdyAttachment; +{$R *.dfm} + + +function TfrmZdyAttachmentBJ_Edit.savedata():Boolean; +var + Filler,fmxType:string; + FillTime:TdateTime; +begin + result:=false; + + ADOQueryCmd.Connection.BeginTrans; + try + IF FType=0 then + begin + fmxType:='BJ'+uppercase(formatdateTime('yyyyMMdd',DServerDate)); + if GetLSNo(ADOQueryTmp,fkeyNo,fmxType,'KH_CP_BJ',3,0)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + Filler:=DName; + FillTime:=SGetServerDateTime(adoqueryTmp); + end + else + begin + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+''''); + Open; + end; + Filler:=adoqueryTmp.fieldbyname('Filler').AsString; + FillTime:=adoqueryTmp.fieldbyname('FillTime').AsDateTime; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+''''); + execsql; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_CP_BJ where BJNO='''+Trim(fkeyNo)+''''); + Open; + end; + with cds1 do + begin + DisableControls; + First; + while not eof do + begin + ADOQueryCmd.Append; + SSetsaveSqlNew(ADOQueryCmd,'KH_CP_BJ',GroupBox1,2); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,cds1,'KH_CP_BJ',0); + ADOQueryCmd.FieldByName('BJNO').Value:=trim(fkeyNO); + ADOQueryCmd.FieldByName('BJID').Value:=recNo; + ADOQueryCmd.FieldByName('Filler').Value:=Trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=FillTime; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + ADOQueryCmd.FieldByName('DlyDate').Value:=formatdateTime('yyyy-MM-dd',DlyDate.DateTime); + ADOQueryCmd.FieldByName('FillTime').Value:=FillTime; + ADOQueryCmd.FieldByName('price').Value:=cds1.fieldbyname('price').AsFloat; + ADOQueryCmd.FieldByName('price1').Value:=cds1.fieldbyname('price1').AsFloat; + ADOQueryCmd.FieldByName('BJQty1').Value:=cds1.fieldbyname('BJQty1').AsFloat; + if FType=1 then + begin + ADOQueryCmd.FieldByName('editer').Value:=trim(dName); + ADOQueryCmd.FieldByName('editTime').Value:=SGetServerDateTime(adoqueryTmp); + end; + ADOQueryCmd.Post; + + next; + end; + EnableControls; + end; + + result:=true; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmZdyAttachmentBJ_Edit.InitGrid(); +begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select A.* from KH_CP_BJ A'); + sql.Add('where BJNO='+quotedstr(trim(fkeyNo))); + open; + end; + IF not ADOQueryMain.IsEmpty then + begin + SCSHDataNew(ADOQueryMain,GroupBox1,2); + + end; + SCreateCDS20(ADOQueryMain,CDS1); + SInitCDSData20(ADOQueryMain,CDS1); +end; +procedure TfrmZdyAttachmentBJ_Edit.InitImage(); +begin + { with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where TFid='+quotedstr(trim(zdyCode.Text))); + open; + end; } +end; + +procedure TfrmZdyAttachmentBJ_Edit.FormDestroy(Sender: TObject); +begin + frmZdyAttachmentBJ_Edit:=nil; +end; + +procedure TfrmZdyAttachmentBJ_Edit.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+'1',Tv1); + close; +end; + +procedure TfrmZdyAttachmentBJ_Edit.FormCreate(Sender: TObject); +begin + Panel1.Align:=alclient; + clearControl(GroupBox1,2); + huilv.Text:='1'; +end; + +procedure TfrmZdyAttachmentBJ_Edit.TsaveClick(Sender: TObject); +begin +// zdyName.SetFocus; + cxgrid1.SetFocus; + if cds1.IsEmpty then exit; + IF trim(custName.Text)='' then + begin + application.MessageBox('ͻƲΪգ','ʾϢ',MB_ICONERROR); + exit; + end; + + + try + IF not savedata() then + begin + application.MessageBox('ݱʧܣ','ʾϢ',MB_ICONERROR); + end + else + begin + application.MessageBox('ݱɹ','ʾϢ'); + self.ModalResult:=1; + end; + + except + + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption+'1',Tv1); + if canshu1='ҵԱ' then ywy.Text:=DName; + InitGrid(); + IF fType=2 then + begin + fkeyNO:=''; + FType:=0; + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.cxDBImage1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; +begin +{ + IF TcxDBImage(Sender).Picture.Height=0 then exit; + + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=adoqueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring; + + sFieldName:=sFieldName+'\'+trim(fileName); + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + try + IdFTP1.Get('TP\'+ Trim(fileName), sFieldName,false, true); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); } +end; + +procedure TfrmZdyAttachmentBJ_Edit.FileNameClick(Sender: TObject); +begin + {IF trim(custNo.Text)='' then + begin + application.MessageBox('ƷŲΪգ','ʾϢ',MB_ICONERROR); + exit; + end; + + try + FormGetPic := TFormGetPic.Create(Application); + with FormGetPic do + begin + fkeyNO:=trim(zdyCode.Text); + pat1:=TCXbutton(Sender).Name; + pic1:=TCXbutton(Sender).Hint; + FTFType:='Ʒ'; + // pat1:='PatFile1'; +// pic1:='Picture1'; + IF ShowModal = 1 then + begin + // self.Timage(Tbutton(Sender).Hint).Picture.Assign(FormGetPic.Image2.Picture.Bitmap); + zdycode.Enabled:=false; + end; + + Release; + end; + Initimage(); + except + if FormGetPic<>nil then FormGetPic.Release; + end;} +end; + +procedure TfrmZdyAttachmentBJ_Edit.MTypeBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmZdyAttachmentBJ_Edit.ToolButton2Click(Sender: TObject); +begin + IF CDS1.IsEmpty then exit; + CDS1.Delete; +end; + +procedure TfrmZdyAttachmentBJ_Edit.ToolButton1Click(Sender: TObject); +begin + frmCPManageSel:=TfrmCPManageSel.create(self); + with frmCPManageSel do + begin + IF showmodal=1 then + begin + cds_main.DisableControls; + cds_main.first; + while not cds_main.Eof do + begin + if cds_main.FieldByName('ssel').AsBoolean then + begin + cds1.append; + cds1.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('CYNo').AsString); + cds1.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('CYName').AsString); + cds1.FieldByName('P_CodeNameE').Value:=trim(cds_main.fieldbyname('CYEName').AsString); + cds1.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('CYSpec').AsString); + cds1.FieldByName('P_cf').Value:=trim(cds_main.fieldbyname('CYECF').AsString); + cds1.FieldByName('P_MF').Value:=trim(cds_main.fieldbyname('CYMF').AsString); + cds1.FieldByName('P_KZ').Value:=trim(cds_main.fieldbyname('CYKZ').AsString); +// cds1.FieldByName('BJstr1').Value:=trim(cds_main.fieldbyname('defstr18').AsString); +// cds1.FieldByName('BJstr7').Value:=trim(cds_main.fieldbyname('defstr12').AsString); +// cds1.FieldByName('BJstr8').Value:=trim(cds_main.fieldbyname('defstr13').AsString); + cds1.FieldByName('BJstr9').Value:=trim(cds_main.fieldbyname('defnote2').AsString); + cds1.FieldByName('Price').Value:=cds_main.fieldbyname('price6').AsFloat; + cds1.FieldByName('Price1').Value:=cds_main.fieldbyname('price6').AsFloat; + cds1.FieldByName('BJQty1').Value:=1; + cds1.Post; + end; + cds_main.next; + end; + cds_main.EnableControls; + end; + free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmZdyAttachmentBJ_Edit.custNoBtnClick(Sender: TObject); +begin + frmZdyAttachment:=TfrmZdyAttachment.create(self); + with frmZdyAttachment do + begin + if canshu1='ҵԱ' then fywy:=DName; + if showmodal=1 then + begin + custNo.Text:=trim(cds_hz.fieldbyname('zdyCode').AsString); + custName.Text:=trim(cds_hz.fieldbyname('zdyName').AsString); + custCountry.Text:=trim(cds_hz.fieldbyname('DEFStr7').AsString); + custphone.Text:=trim(cds_hz.fieldbyname('DEFstr1').AsString); + BJstr2.Text:= trim(cds_hz.fieldbyname('DEFstr6').AsString); + BJstr3.Text:= trim(cds_hz.fieldbyname('DEFnote3').AsString); + ywy.Text:= trim(cds_hz.fieldbyname('defstr5').AsString); + end; + free; + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.PriceunitChange(Sender: TObject); +begin + IF trim(huilv.Text)='' then + begin + huilv.Text:='1'; + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.V1Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:string; +begin +{ mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS1 do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName('Price').Value:=format('%.2f',[fieldbyname('Price1').AsFloat * strtofloatdef(trim(huilv.Text),1)]); + Post; + end; + tv1.Controller.EditingController.ShowEdit();} +end; + +procedure TfrmZdyAttachmentBJ_Edit.huilvPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:string; +begin + mvalue:=TcxCurrencyEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='1'; + end; + huilv.Text:= mvalue; + IF not cds1.Active then exit; + IF cds1.IsEmpty then exit; + with cds1 do + begin + DisableControls; + first; + while not eof do + begin + Edit; + IF strtofloatdef(trim(huilv.Text),1)<>0 then + FieldByName('Price').Value:=format('%.2f',[fieldbyname('Price1').AsFloat / strtofloatdef(trim(huilv.Text),1)]); + Post; + next; + end; + EnableControls; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmZdyAttachmentBJ_Edit.custCountryBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='custCountry'; + flagname:=''; + if ShowModal=1 then + begin + custCountry.Text:=Trim(ClientDataSet1.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.CYIDKeyPress(Sender: TObject; + var Key: Char); +begin + IF key=#13 then + begin + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+trim(CYID.Text)+''' '); + open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + cds1.append; + cds1.FieldByName('P_Code').Value:=trim(ADOQueryTmp.fieldbyname('CYNo').AsString); + cds1.FieldByName('P_CodeName').Value:=trim(ADOQueryTmp.fieldbyname('CYName').AsString); + cds1.FieldByName('P_CodeNameE').Value:=trim(ADOQueryTmp.fieldbyname('CYEName').AsString); + cds1.FieldByName('P_spec').Value:=trim(ADOQueryTmp.fieldbyname('CYSpec').AsString); + cds1.FieldByName('P_cf').Value:=trim(ADOQueryTmp.fieldbyname('CYECF').AsString); + cds1.FieldByName('P_MF').Value:=trim(ADOQueryTmp.fieldbyname('CYMF').AsString); + cds1.FieldByName('P_KZ').Value:=trim(ADOQueryTmp.fieldbyname('CYKZ').AsString); +// cds1.FieldByName('BJstr1').Value:=trim(ADOQueryTmp.fieldbyname('defstr18').AsString); +// cds1.FieldByName('BJstr7').Value:=trim(ADOQueryTmp.fieldbyname('defstr12').AsString); +// cds1.FieldByName('BJstr8').Value:=trim(ADOQueryTmp.fieldbyname('defstr13').AsString); +// cds1.FieldByName('BJstr9').Value:=trim(ADOQueryTmp.fieldbyname('defnote2').AsString); + cds1.FieldByName('Price').Value:=ADOQueryTmp.fieldbyname('price6').AsFloat; + cds1.FieldByName('Price1').Value:=ADOQueryTmp.fieldbyname('price6').AsFloat; + cds1.FieldByName('BJQty1').Value:=1; + cds1.Post; + CYID.Text:=''; + end + else + begin + application.MessageBox('','ʾϢ',MB_ICONERROR); + CYID.Text:=''; + end; + end; +end; + +procedure TfrmZdyAttachmentBJ_Edit.V1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:string; +begin + mvalue:=TcxCurrencyEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='1'; + end; + with cds1 do + begin + Edit; + FieldByName('BJQty1').Value:=strtofloat(mvalue); + IF FieldByName('BJQty1').AsFloat<>0 then + FieldByName('Price').Value:=format('%.2f',[fieldbyname('Price1').AsFloat / FieldByName('BJQty1').AsFloat]) + else + FieldByName('Price').Value:=fieldbyname('Price1').AsFloat; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttachmentBJ_Edit.CYNOKeyPress(Sender: TObject; + var Key: Char); +begin + IF key=#13 then + begin + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CP_YDang where CYNO='''+trim(CYNO.Text)+''' '); + open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + // IF (not cds1.Locate('P_Code',trim(ADOQueryTmp.fieldbyname('CYNo').AsString),[])) then + // begin + cds1.append; + cds1.FieldByName('P_Code').Value:=trim(ADOQueryTmp.fieldbyname('CYNo').AsString); + cds1.FieldByName('P_CodeName').Value:=trim(ADOQueryTmp.fieldbyname('CYName').AsString); + cds1.FieldByName('P_CodeNameE').Value:=trim(ADOQueryTmp.fieldbyname('CYEName').AsString); + cds1.FieldByName('P_spec').Value:=trim(ADOQueryTmp.fieldbyname('CYSpec').AsString); + cds1.FieldByName('P_cf').Value:=trim(ADOQueryTmp.fieldbyname('CYECF').AsString); + cds1.FieldByName('P_MF').Value:=trim(ADOQueryTmp.fieldbyname('CYMF').AsString); + cds1.FieldByName('P_KZ').Value:=trim(ADOQueryTmp.fieldbyname('CYKZ').AsString); +// cds1.FieldByName('BJstr1').Value:=trim(ADOQueryTmp.fieldbyname('defstr18').AsString); +// cds1.FieldByName('BJstr7').Value:=trim(ADOQueryTmp.fieldbyname('defstr12').AsString); +// cds1.FieldByName('BJstr8').Value:=trim(ADOQueryTmp.fieldbyname('defstr13').AsString); +// cds1.FieldByName('BJstr9').Value:=trim(ADOQueryTmp.fieldbyname('defnote2').AsString); + cds1.FieldByName('Price').Value:=ADOQueryTmp.fieldbyname('price6').AsFloat; + cds1.FieldByName('Price1').Value:=ADOQueryTmp.fieldbyname('price6').AsFloat; + cds1.FieldByName('BJQty1').Value:=1; + cds1.FieldByName('Price').Value:=0; + cds1.Post; + CYNO.Text:=''; + // end; + end + else + begin + application.MessageBox('˱Ŵ','ʾϢ',MB_ICONERROR); + CYNO.Text:=''; + end; + end; +end; + +end. diff --git a/应收应付/样品仓库/U_testdll.dfm b/应收应付/样品仓库/U_testdll.dfm new file mode 100644 index 0000000..6fdbe41 --- /dev/null +++ b/应收应付/样品仓库/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 97 + Top = 122 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 775 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/应收应付/样品仓库/U_testdll.pas b/应收应付/样品仓库/U_testdll.pas new file mode 100644 index 0000000..c1a8171 --- /dev/null +++ b/应收应付/样品仓库/U_testdll.pas @@ -0,0 +1,106 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('YPCK.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('sa'), + PChar('dsa'), + PChar('bsa'), + PChar('tsa'), + PChar('d1sa'), + PChar('d2sa'), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; + +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/应收应付/样品仓库/YPCK.cfg b/应收应付/样品仓库/YPCK.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/应收应付/样品仓库/YPCK.cfg @@ -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 diff --git a/应收应付/样品仓库/YPCK.dof b/应收应付/样品仓库/YPCK.dof new file mode 100644 index 0000000..f57e619 --- /dev/null +++ b/应收应付/样品仓库/YPCK.dof @@ -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:\֣ƽ\Ŀ\Խ\Ʒֿ\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 diff --git a/应收应付/样品仓库/YPCK.dpr b/应收应付/样品仓库/YPCK.dpr new file mode 100644 index 0000000..0397d71 --- /dev/null +++ b/应收应付/样品仓库/YPCK.dpr @@ -0,0 +1,53 @@ +library YPCK; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {YPCK_DataLink: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_getDogServer in '..\..\..\ThreeFun\Fun\U_getDogServer.pas', + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_BpSmRk in 'U_BpSmRk.pas' {frmBpSmRk}, + U_Bpckchklist in 'U_Bpckchklist.pas' {frmBpckchklist}, + U_BpJylist in 'U_BpJylist.pas' {frmBpJylist}, + U_BpRk in 'U_BpRk.pas' {frmbpRk}, + U_ProductOrderNewList in 'U_ProductOrderNewList.pas' {frmProductOrderNewList}, + U_BpCk in 'U_BpCk.pas' {frmbpCk}, + U_BpSmCk in 'U_BpSmCk.pas' {frmBpSmCk}, + U_BpRklist in 'U_BpRklist.pas' {frmBpRklist}, + U_CPManageSel in 'U_CPManageSel.pas' {frmCPManageSel}, + U_SLT in 'U_SLT.pas' {frmSLT: TFrame}, + U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_Bpkcsumlist in 'U_Bpkcsumlist.pas' {frmBpkcsumlist}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_ZdyAttachmentBJ in 'U_ZdyAttachmentBJ.pas' {frmZdyAttachmentCB}, + U_ZdyAttachmentBJ_Edit in 'U_ZdyAttachmentBJ_Edit.pas' {frmZdyAttachmentBJ_Edit}; + +{$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. + diff --git a/应收应付/样品仓库/YPCK.rar b/应收应付/样品仓库/YPCK.rar new file mode 100644 index 0000000..3294b83 Binary files /dev/null and b/应收应付/样品仓库/YPCK.rar differ diff --git a/应收应付/样品仓库/YPCK.res b/应收应付/样品仓库/YPCK.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/应收应付/样品仓库/YPCK.res differ diff --git a/应收应付/样品仓库/consvr.ini b/应收应付/样品仓库/consvr.ini new file mode 100644 index 0000000..3a03c34 --- /dev/null +++ b/应收应付/样品仓库/consvr.ini @@ -0,0 +1,2 @@ +[SERVER] +SERVER=192.168.88.254 \ No newline at end of file diff --git a/应收应付/样品仓库/testDll.cfg b/应收应付/样品仓库/testDll.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/应收应付/样品仓库/testDll.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/应收应付/样品仓库/testDll.dof b/应收应付/样品仓库/testDll.dof new file mode 100644 index 0000000..b0e203c --- /dev/null +++ b/应收应付/样品仓库/testDll.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=F:\selfware_83398\selfware\ֿ\Ŀ\self\Ϣ\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= diff --git a/应收应付/样品仓库/testDll.dpr b/应收应付/样品仓库/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/应收应付/样品仓库/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/应收应付/样品仓库/testDll.res b/应收应付/样品仓库/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/应收应付/样品仓库/testDll.res differ diff --git a/样品/DyeTwoStore.INI b/样品/DyeTwoStore.INI new file mode 100644 index 0000000..da4b15a --- /dev/null +++ b/样品/DyeTwoStore.INI @@ -0,0 +1,2 @@ +[Ʒ] += diff --git a/样品/JWLCK.cfg b/样品/JWLCK.cfg new file mode 100644 index 0000000..08e3903 --- /dev/null +++ b/样品/JWLCK.cfg @@ -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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\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 diff --git a/样品/JWLCK.dof b/样品/JWLCK.dof new file mode 100644 index 0000000..6c84f87 --- /dev/null +++ b/样品/JWLCK.dof @@ -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=F:\selfware_83398\selfware\ֿ\Ŀ\self\ϲֿ\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 diff --git a/样品/JWLCK.res b/样品/JWLCK.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/样品/JWLCK.res differ diff --git a/样品/OrderManage.cfg b/样品/OrderManage.cfg new file mode 100644 index 0000000..08e3903 --- /dev/null +++ b/样品/OrderManage.cfg @@ -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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\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 diff --git a/样品/OrderManage.dof b/样品/OrderManage.dof new file mode 100644 index 0000000..30929e3 --- /dev/null +++ b/样品/OrderManage.dof @@ -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=F:\selfware_83398\selfware\ֿ\Ŀ\self\\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 diff --git a/样品/OrderManage.res b/样品/OrderManage.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/样品/OrderManage.res differ diff --git a/样品/ProjectGroup1.bpg b/样品/ProjectGroup1.bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/样品/ProjectGroup1.bpg @@ -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) + + diff --git a/样品/SYSTEMSET.ini b/样品/SYSTEMSET.ini new file mode 100644 index 0000000..922358a --- /dev/null +++ b/样品/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=127.0.0.1 +=֯ \ No newline at end of file diff --git a/样品/U_BaseIn.dfm b/样品/U_BaseIn.dfm new file mode 100644 index 0000000..65cc596 --- /dev/null +++ b/样品/U_BaseIn.dfm @@ -0,0 +1,362 @@ +object frmBaseIn: TfrmBaseIn + Left = 58 + Top = 224 + Width = 1211 + Height = 591 + Caption = #20837#24211#32534#36753 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1203 + Height = 20 + AutoSize = True + ButtonHeight = 18 + ButtonWidth = 60 + Caption = 'ToolBar1' + Flat = True + List = True + ShowCaptions = True + TabOrder = 0 + Transparent = True + Wrapable = False + object BtnSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = BtnSaveClick + end + object ToolButton2: TToolButton + Left = 40 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 23 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 80 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 66 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 144 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 208 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 24 + OnClick = ToolButton3Click + end + object BtnExit: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 10 + OnClick = BtnExitClick + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 32 + Width = 1137 + Height = 433 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + Column = v1P_ChnName10 + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'P_Code' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 1 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1defstr6: TcxGridDBColumn + Tag = 2 + Caption = #29677#27425 + DataBinding.FieldName = 'defstr6' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1defstr7: TcxGridDBColumn + Tag = 2 + Caption = #29677#32452 + DataBinding.FieldName = 'defstr7' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1defstr7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1DepotClass: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'DepotClass' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1DepotClassPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1batchnum: TcxGridDBColumn + Tag = 2 + Caption = #21367#21495 + DataBinding.FieldName = 'batchnum' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1PlanNo: TcxGridDBColumn + Tag = 2 + Caption = #25209#21495 + DataBinding.FieldName = 'PlanNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PlanNoPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'P_ChnName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 105 + end + object v1P_ChnName10: TcxGridDBColumn + Caption = #22522#24067#21517#31216 + DataBinding.FieldName = 'P_ChnName10' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1P_ChnName10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 118 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ShortName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ShortNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1DefStr3: TcxGridDBColumn + Tag = 2 + Caption = #22522#24067#39068#33394 + DataBinding.FieldName = 'DefStr3' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1DefFlt1: TcxGridDBColumn + Tag = 2 + Caption = #21402#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Quantity' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'UnitName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1UnitNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1DefStr4: TcxGridDBColumn + Tag = 2 + Caption = #31561#32423 + DataBinding.FieldName = 'DefStr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1DefStr4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 108 + end + object v1P_SeqNo: TcxGridDBColumn + Tag = 2 + Caption = #35745#21010#21333#24207#21495 + DataBinding.FieldName = 'P_SeqNo' + Visible = False + Width = 67 + end + object v1P_Code: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'P_Code' + Visible = False + HeaderAlignmentHorz = taCenter + end + object v1DefStr1: TcxGridDBColumn + Tag = 2 + Caption = #22522#24067#32534#21495 + DataBinding.FieldName = 'DefStr1' + Visible = False + Width = 56 + end + object v1DefStr2: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr2' + Visible = False + Width = 68 + end + object v1RollUnit: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301#32534#21495 + DataBinding.FieldName = 'RollUnit' + Visible = False + FooterAlignmentHorz = taCenter + Width = 52 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 216 + Top = 144 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 160 + end + object ADOQueryMain: TADOQuery + Parameters = <> + Left = 184 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Parameters = <> + Left = 224 + Top = 224 + end + object ADOQueryTemp: TADOQuery + Parameters = <> + Left = 264 + Top = 224 + end +end diff --git a/样品/U_BaseIn.pas b/样品/U_BaseIn.pas new file mode 100644 index 0000000..0ab3988 --- /dev/null +++ b/样品/U_BaseIn.pas @@ -0,0 +1,585 @@ +unit U_BaseIn; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, + cxButtonEdit, cxDropDownEdit, cxCalendar; + +type + TfrmBaseIn = class(TForm) + ToolBar1: TToolBar; + BtnSave: TToolButton; + BtnExit: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1PlanNo: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1P_ChnName10: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1DefStr3: TcxGridDBColumn; + v1DefFlt1: TcxGridDBColumn; + v1DefStr4: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + v1DefStr2: TcxGridDBColumn; + v1DefStr1: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1RollUnit: TcxGridDBColumn; + ToolButton1: TToolButton; + v1P_SeqNo: TcxGridDBColumn; + v1batchnum: TcxGridDBColumn; + v1DepotClass: TcxGridDBColumn; + v1defstr6: TcxGridDBColumn; + v1defstr7: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure BtnExitClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1P_ChnName10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1DefStr4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PlanNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BtnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v1DepotClassPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1defstr7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitGrid(); + function SaveData():Boolean; + { Private declarations } + public + DepotNo:string; + { Public declarations } + end; + +var + frmBaseIn: TfrmBaseIn; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmBaseIn.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmBaseIn.BtnExitClick(Sender: TObject); +begin + Close; +end; +procedure TfrmBaseIn.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('exec P_Get_ClothInOutList :begdate,:enddate,:DepotNo,:DepotCode,:PState,:CRK'); + Parameters.ParamByName('DepotNo').Value:=Trim(DepotNo); + Parameters.ParamByName('PState').Value:=2; + Open; + end; + CreateCDS20(ADOQueryMain,CDS_Sub); + InitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBaseIn.ToolButton2Click(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + CDS_Sub.FieldByName('UnitName').Value:=''; + CDS_Sub.FieldByName('RollUnit').Value:='JL004'; + CDS_Sub.FieldByName('DefStr4').Value:='һ'; + Post; + end; +end; + +procedure TfrmBaseIn.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + CDS_Sub.Delete; +end; + +procedure TfrmBaseIn.ToolButton4Click(Sender: TObject); +begin + CopyAddRow(tv1,CDS_Sub); + ///CDS_Sub.FieldByName('DepotNo').Value:=''; +end; + +procedure TfrmBaseIn.ToolButton1Click(Sender: TObject); +begin + OneKeyPost(Tv1,CDS_Sub); +end; + +function TfrmBaseIn.SaveData():Boolean; +var + MaxNo,strSQL:string; + KID,i,SubId,j:Integer; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.First; + for i:=0 to CDS_Sub.RecordCount-1 do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + begin + MaxNo:=Trim(CDS_Sub.fieldbyname('DepotNo').AsString); + KID:=CDS_Sub.fieldbyname('KcID').AsInteger; + end else + begin + if GetMaxNo20(ADOQueryCmd,MaxNo,'WC_ClothInout','BR',1,4)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPDATE WC_ClothKcid SET KcID = KcID+1'); + SQL.Add('SELECT KcID FROM WC_ClothKcid'); + Open; + KID:=fieldbyname('KcID').AsInteger; + end; + end; + + // + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WC_ClothInout where DepotNO='''+Trim(DepotNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + Edit + else + Append; + FieldByName('DepotNo').Value:=Trim(MaxNo); + FieldByName('DepotCode').Value:=Trim(gDef1); + FieldByName('DepotType').Value:=1; + FieldByName('Filler').Value:=Trim(gUserName); + FieldByName('FillTime').Value:=Trim(CDS_Sub.fieldbyname('FillTime').AsString); + FieldByName('DepotClass').Value:=Trim(CDS_Sub.fieldbyname('DepotClass').AsString); + FieldByName('Status').Value:='I9'; + FieldByName('DepotNo').Value:=Trim(MaxNo); + //SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInout',1); + Post; + end; + //ӱ + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WC_ClothInOut_Info where DepotNO='''+Trim(DepotNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + Edit + else + Append; + FieldByName('DepotNo').Value:=Trim(MaxNo); + FieldByName('KCID').Value:=KID; + FieldByName('ID').Value:=1; + {if Trim(gdatabase)<>'ڳ' then + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)='' then + begin + FieldByName('DefFlt2').Value:=SubId; + FieldByName('DefFlt3').Value:=((SubId-1) div 10); + end; + + end; } + + SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInOut_Info',2); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select DepotNo,DefFlt2,DefFlt3 from WC_ClothInout_Info where DepotNo like ''BR%'' '); + if Trim(CDS_Sub.fieldbyname('PlanNo').AsString)<>'' then + SQL.Add(' and PlanNo='''+CDS_Sub.fieldbyname('PlanNo').AsString+''''); + if Trim(CDS_Sub.fieldbyname('P_Code').AsString)<>'' then + SQL.Add(' and P_Code='''+CDS_Sub.fieldbyname('P_Code').AsString+''''); + if Trim(CDS_Sub.fieldbyname('DefStr1').AsString)<>'' then + SQL.Add(' and DefStr1='''+CDS_Sub.fieldbyname('DefStr1').AsString+''''); + if Trim(CDS_Sub.fieldbyname('DefStr2').AsString)<>'' then + SQL.Add(' and DefStr2='''+CDS_Sub.fieldbyname('DefStr2').AsString+''''); + if Trim(CDS_Sub.fieldbyname('DefStr3').AsString)<>'' then + SQL.Add(' and DefStr3='''+CDS_Sub.fieldbyname('DefStr3').AsString+''''); + if Trim(CDS_Sub.fieldbyname('DefStr4').AsString)<>'' then + SQL.Add(' and DefStr4='''+CDS_Sub.fieldbyname('DefStr4').AsString+''''); + if Trim(CDS_Sub.fieldbyname('Defflt1').AsString)<>'' then + SQL.Add(' and Defflt1='''+CDS_Sub.fieldbyname('Defflt1').AsString+''''); + Open; + { if ADOQueryTemp.fieldbyname('aa').AsInteger>0 then + SubId:=ADOQueryTemp.fieldbyname('aa').AsInteger + else} + //SubId:=ADOQueryTemp.fieldbyname('aa').AsInteger+1; + end; + with ADOQueryTemp do + begin + First; + j:=1; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WC_ClothInout_Info Set defflt2='+inttostr(j)); + sql.Add(',defflt3='+inttostr((j-1) div 10) ); + sql.Add(' where DepotNo='''+Trim(ADOQueryTemp.fieldbyname('DepotNo').AsString)+''''); + ExecSQL; + end; + j:=j+1; + Next; + end; + end; + //浽 + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)='' then + begin + strSQL := 'INSERT WC_ClothClothing (' + + 'KcID,' + + 'batchnum,' + + 'P_Code,' + + 'P_ChnName,' + + 'Quantity,' + + 'RollUnit,' + + 'DepotNo' + + ') VALUES (' + + IntToStr(KID) + ',' + + QuotedStr(Trim(CDS_Sub.fieldbyname('batchnum').AsString)) + ',' + + QuotedStr(Trim(CDS_Sub.fieldbyname('P_Code').AsString)) + ',' + + QuotedStr(Trim(CDS_Sub.fieldbyname('P_ChnName').AsString)) + ',' + + CDS_Sub.fieldbyname('Quantity').AsString + ',' + + QuotedStr(Trim(CDS_Sub.fieldbyname('RollUnit').AsString)) + ',' + + QuotedStr(MaxNo) + + ')'; + end else + begin + //µ + strSQL := 'UPDATE WC_ClothClothing SET ' + + 'batchnum = ' + QuotedStr(Trim(CDS_Sub.fieldbyname('batchnum').AsString)) + ',' + + 'P_Code = ' + QuotedStr(Trim(CDS_Sub.fieldbyname('P_Code').AsString)) + ',' + + 'P_ChnName = ' + QuotedStr(Trim(CDS_Sub.fieldbyname('P_ChnName').AsString)) + ',' + + 'Quantity = ' + CDS_Sub.fieldbyname('Quantity').AsString+ ',' + + 'RollUnit = ' + QuotedStr(Trim(CDS_Sub.fieldbyname('RollUnit').AsString)) + ' ' + + 'WHERE KcID = ' + IntToStr(KID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(strSQL); + ExecSQL; + end; + //¾ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WC_ClothInout_Info set batchnum='''+Trim(CDS_Sub.fieldbyname('batchnum').AsString)+''''); + sql.Add(' where KCID='+IntToStr(KID)); + ExecSQL; + end; + CDS_Sub.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + DepotNo:=MaxNo; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmBaseIn.v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductHelp:=TfrmProductHelp.Create(Application); + with frmProductHelp do + begin + fDipFlag:=3; + cxTabControl1.Tabs[0].Visible:=False; + cxTabControl1.Tabs[1].Visible:=False; + cxTabControl1.Tabs[2].Visible:=False; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('P_Code').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString; + CDS_Sub.FieldByName('P_ChnName').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString; + end; + end; + finally + frmProductHelp.Free; + end; +end; + +procedure TfrmBaseIn.v1P_ChnName10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductHelp:=TfrmProductHelp.Create(Application); + with frmProductHelp do + begin + fDipFlag:=2; + cxTabControl1.Tabs[0].Visible:=False; + cxTabControl1.Tabs[1].Visible:=False; + cxTabControl1.Tabs[3].Visible:=False; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('DefStr1').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString; + CDS_Sub.FieldByName('P_ChnName10').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString; + end; + end; + finally + frmProductHelp.Free; + end; +end; + +procedure TfrmBaseIn.v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmSupplyHelp:=TfrmSupplyHelp.Create(Application); + with frmSupplyHelp do + begin + FLType:=''; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + self.CDS_Sub.FieldByName('ShortName').Value:=Trim(ADOQueryHelp.fieldbyname('ShortName').AsString); + self.CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('CustomNo').AsString); + end; + end; + finally + frmSupplyHelp.Free; + end; +end; + +procedure TfrmBaseIn.v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + kf_frmJlUnitHelp:=Tkf_frmJlUnitHelp.Create(Application); + with kf_frmJlUnitHelp do + begin + Fflag:='length'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('UnitName').Value:=Trim(ADOQueryHelp.fieldbyname('').AsString); + Self.CDS_Sub.FieldByName('RollUnit').Value:=Trim(ADOQueryHelp.fieldbyname('').AsString); + end; + end; + finally + kf_frmJlUnitHelp.Free; + end; +end; + +procedure TfrmBaseIn.v1DefStr4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='DefStr4'; + flagname:='˹ȼ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('DefStr4').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +procedure TfrmBaseIn.v1PlanNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGetPlanListHelp:=TfrmGetPlanListHelp.Create(Application); + with frmGetPlanListHelp do + begin + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('PlanNo').Value:=Trim(ADOQueryHelp.fieldbyname('PlanNo').AsString); + CDS_Sub.FieldByName('P_SeqNo').Value:=Trim(ADOQueryHelp.fieldbyname('P_SeqNo').AsString); + CDS_Sub.FieldByName('DefStr1').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseCode').AsString); + CDS_Sub.FieldByName('P_ChnName10').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseChnName').AsString); + CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('P_Factory').AsString); + CDS_Sub.FieldByName('Shortname').Value:=Trim(ADOQueryHelp.fieldbyname('SupplierName').AsString); + CDS_Sub.FieldByName('DefStr3').Value:=Trim(ADOQueryHelp.fieldbyname('SBtr2').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('Select P_Code from MC_CatLog where P_ChnName='''+Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString)+''''); + Open; + if not IsEmpty then + begin + CDS_Sub.FieldByName('P_Code').Value:=Trim(ADOQueryTemp.fieldbyname('P_Code').AsString); + CDS_Sub.FieldByName('P_ChnName').Value:=Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString); + end; + end; + end; + end; + finally + frmGetPlanListHelp.Free; + end; +end; + +procedure TfrmBaseIn.BtnSaveClick(Sender: TObject); +begin + if CDS_Sub.Locate('FillTime',Null,[]) then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PlanNo',Null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('P_ChnName',Null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('DepotClass',Null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Quantity',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.IsEmpty then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmBaseIn.FormShow(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaseIn.v1DepotClassPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='BSInType'; + flagname:='˹'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('DepotClass').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +procedure TfrmBaseIn.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='BSBC'; + flagname:='˹'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('defstr6').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +procedure TfrmBaseIn.v1defstr7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='BSBZ'; + flagname:='˹'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('defstr7').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +end. diff --git a/样品/U_BaseInList.dfm b/样品/U_BaseInList.dfm new file mode 100644 index 0000000..703f147 --- /dev/null +++ b/样品/U_BaseInList.dfm @@ -0,0 +1,317 @@ +object frmBaseInList: TfrmBaseInList + Left = 61 + Top = 97 + Width = 1165 + Height = 618 + Caption = #20837#24211#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 = 1157 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + DisabledImages = DataLink_JWLCK.ThreeImgList + Flat = True + Images = DataLink_JWLCK.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #39640#32423#36807#28388 + ImageIndex = 57 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBView: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 25 + Visible = False + OnClick = TBViewClick + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1157 + Height = 73 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 184 + Top = 12 + Width = 48 + Height = 12 + Caption = #29289#26009#21517#31216 + end + object Label4: TLabel + Left = 360 + Top = 12 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 184 + Top = 36 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object PlanNo: TEdit + Tag = 2 + Left = 233 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = PlanNoChange + end + object P_ChnName20: TEdit + Tag = 2 + Left = 398 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = PlanNoChange + end + object ShorName: TEdit + Tag = 2 + Left = 233 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = PlanNoChange + end + end + object cxGrid1: TcxGrid + Left = 28 + Top = 124 + Width = 1093 + Height = 389 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1DepotClass: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'DepotClass' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1batchnum: TcxGridDBColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'batchnum' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column2: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'defstr6' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ShortName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Quantity: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Quantity' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'UnitName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 99 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 496 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Parameters = <> + Left = 552 + Top = 176 + end + object ADOQueryMain: TADOQuery + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 176 + end + object ADOQueryTemp: TADOQuery + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 176 + end + object DataSource1: TDataSource + DataSet = ADOQueryMain + Left = 640 + Top = 176 + end +end diff --git a/样品/U_BaseInList.pas b/样品/U_BaseInList.pas new file mode 100644 index 0000000..7e60311 --- /dev/null +++ b/样品/U_BaseInList.pas @@ -0,0 +1,331 @@ +unit U_BaseInList; + +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; + +type + TfrmBaseInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + TBView: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + PlanNo: TEdit; + P_ChnName20: TEdit; + ShorName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1batchnum: TcxGridDBColumn; + v1DepotClass: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + 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 TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure PlanNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBaseInList: TfrmBaseInList; + +implementation +uses + U_DataLink,U_Fun,U_BaseIn; + +{$R *.dfm} + +procedure TfrmBaseInList.FormDestroy(Sender: TObject); +begin + frmBaseInList:=nil; +end; + +procedure TfrmBaseInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBaseInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmBaseInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'˹ֿ'); +end; + +procedure TfrmBaseInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_Get_ClothInOutList :begdate,:enddate,:DepotNo,:DepotCode,:PState,:CRK'); + Parameters.ParamByName('DepotCode').Value:=Trim(gDef1); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Parameters.ParamByName('PState').Value:=1; + Parameters.ParamByName('CRK').Value:=1; + Open; + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBaseInList.InitForm(); +begin + ReadCxGrid('б',Tv1,'˹ֿ'); + BegDate.DateTime:=GetServerTime10(ADOQueryTemp);//SGetServerDate10(ADOQueryTemp); + EndDate.DateTime:=GetServerTime10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmBaseInList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmBaseInList.TBEditClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WC_ClothInout_Info where KCID='+Trim(ADOQueryMain.fieldbyname('KCID').AsString)); + sql.Add(' and DepotNO like ''BC%'' '); + open; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('˱˹Ѿг¼ܽв','ʾ',0); + Exit; + end; + end; + + try + frmBaseIn:=TfrmBaseIn.Create(Application); + with frmBaseIn do + begin + DepotNo:=Trim(self.ADOQueryMain.fieldbyname('DepotNo').AsString); + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.ADOQueryMain.Locate('DepotNo',DepotNo,[]); + end; + end; + finally + frmBaseIn.Free; + end; +end; + +procedure TfrmBaseInList.TBDelClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WC_ClothInout_Info where KCID='+Trim(ADOQueryMain.fieldbyname('KCID').AsString)); + sql.Add(' and DepotNO like ''BC%'' '); + open; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('˱˹Ѿг¼ܽв','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + TBRafresh.Click; + TBFind.Click; + end; +end; + +function TfrmBaseInList.DelData():Boolean; +var + FInt:Integer; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from WC_ClothInout_Info where DefFlt2>0 '); + SQL.Add(' and DepotNo<>'''+Trim(ADOQueryMain.fieldbyname('DepotNo').AsString)+''''); + if Trim(ADOQueryMain.fieldbyname('PlanNo').AsString)<>'' then + SQL.Add(' and PlanNo='''+ADOQueryMain.fieldbyname('PlanNo').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('P_Code').AsString)<>'' then + SQL.Add(' and P_Code='''+ADOQueryMain.fieldbyname('P_Code').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('DefStr1').AsString)<>'' then + SQL.Add(' and DefStr1='''+ADOQueryMain.fieldbyname('DefStr1').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('DefStr2').AsString)<>'' then + SQL.Add(' and DefStr2='''+ADOQueryMain.fieldbyname('DefStr2').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('DefStr3').AsString)<>'' then + SQL.Add(' and DefStr3='''+ADOQueryMain.fieldbyname('DefStr3').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('DefStr4').AsString)<>'' then + SQL.Add(' and DefStr4='''+ADOQueryMain.fieldbyname('DefStr4').AsString+''''); + if Trim(ADOQueryMain.fieldbyname('Defflt1').AsString)<>'' then + SQL.Add(' and Defflt1='+ADOQueryMain.fieldbyname('Defflt1').AsString); + Open; + end; + with ADOQueryTemp do + begin + if not IsEmpty then + begin + First; + FInt:=1; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WC_ClothInout_Info Set DefFlt2='+inttostr(FInt)); + sql.Add(',DefFlt3='+inttostr((FInt-1) div 10)); + sql.Add(' where DepotNo='''+Trim(ADOQueryTemp.fieldbyname('DepotNo').AsString)+''''); + ExecSQL; + end; + FInt:=FInt+1; + Next; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WC_ClothInout_Info where depotno='''+Trim(ADOQueryMain.fieldbyname('depotno').AsString)+''''); + sql.Add(' delete WC_ClothInout where depotno='''+Trim(ADOQueryMain.fieldbyname('depotno').AsString)+''''); + sql.Add(' delete WC_ClothClothing where KCID='+Trim(ADOQueryMain.fieldbyname('KCID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBaseInList.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; +end; + +procedure TfrmBaseInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmBaseInList.TBPrintClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; +end; + +procedure TfrmBaseInList.TBAddClick(Sender: TObject); +begin + try + frmBaseIn:=TfrmBaseIn.Create(Application); + with frmBaseIn do + begin + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.ADOQueryMain.Locate('DepotNo',DepotNo,[]); + end; + end; + finally + frmBaseIn.Free; + end; +end; + +procedure TfrmBaseInList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaseInList.PlanNoChange(Sender: TObject); +begin + if ADOQueryMain.Active then + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmBaseInList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBaseInList.ToolButton1Click(Sender: TObject); +begin + // if ADOQueryMain.IsEmpty then Exit; + SeniorFilter(Tv1,ADOQueryMain); +end; + +end. diff --git a/样品/U_BaseOut.dfm b/样品/U_BaseOut.dfm new file mode 100644 index 0000000..8a4eee1 --- /dev/null +++ b/样品/U_BaseOut.dfm @@ -0,0 +1,341 @@ +object frmBaseOut: TfrmBaseOut + Left = 58 + Top = 246 + Width = 1211 + Height = 591 + Caption = #20986#24211#32534#36753 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1203 + Height = 24 + AutoSize = True + ButtonWidth = 51 + Caption = 'ToolBar1' + Flat = True + Images = ADODBMD_BSCK.ImageList24 + List = True + ShowCaptions = True + TabOrder = 0 + Transparent = True + Wrapable = False + object BtnSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = BtnSaveClick + end + object ToolButton2: TToolButton + Left = 55 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 23 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 110 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 24 + OnClick = ToolButton3Click + end + object BtnExit: TToolButton + Left = 165 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 10 + OnClick = BtnExitClick + end + end + object cxGrid1: TcxGrid + Left = 16 + Top = 32 + Width = 1169 + Height = 433 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + Column = v1P_ChnName10 + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'P_Code' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 1 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1DepotClass: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'DepotClass' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1DepotClassPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #29677#32452 + DataBinding.FieldName = 'defstr7' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #29677#27425 + DataBinding.FieldName = 'defstr6' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1batchnum: TcxGridDBColumn + Tag = 2 + Caption = #21367#21495 + DataBinding.FieldName = 'batchnum' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v1PlanNo: TcxGridDBColumn + Tag = 2 + Caption = #25209#21495 + DataBinding.FieldName = 'PlanNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PlanNoPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v1P_SeqNo: TcxGridDBColumn + Tag = 2 + Caption = #35745#21010#21333#24207#21495 + DataBinding.FieldName = 'P_SeqNo' + Visible = False + Width = 67 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'P_ChnName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 105 + end + object v1P_Code: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'P_Code' + Visible = False + HeaderAlignmentHorz = taCenter + end + object v1P_ChnName10: TcxGridDBColumn + Caption = #22522#24067#21517#31216 + DataBinding.FieldName = 'P_ChnName10' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1P_ChnName10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 118 + end + object v1DefStr1: TcxGridDBColumn + Tag = 2 + Caption = #22522#24067#32534#21495 + DataBinding.FieldName = 'DefStr1' + Visible = False + Width = 56 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ShortName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ShortNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1DefStr2: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr2' + Visible = False + Width = 68 + end + object v1DefStr3: TcxGridDBColumn + Tag = 2 + Caption = #22522#24067#39068#33394 + DataBinding.FieldName = 'DefStr3' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v1DefFlt1: TcxGridDBColumn + Tag = 2 + Caption = #21402#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Quantity' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'UnitName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1UnitNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 44 + end + object v1RollUnit: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301#32534#21495 + DataBinding.FieldName = 'RollUnit' + Visible = False + FooterAlignmentHorz = taCenter + Width = 52 + end + object v1DefStr4: TcxGridDBColumn + Tag = 2 + Caption = #31561#32423 + DataBinding.FieldName = 'DefStr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1DefStr4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 108 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 216 + Top = 144 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 160 + end + object ADOQueryMain: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + Parameters = <> + Left = 184 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + Parameters = <> + Left = 224 + Top = 224 + end + object ADOQueryTemp: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + Parameters = <> + Left = 264 + Top = 224 + end +end diff --git a/样品/U_BaseOut.pas b/样品/U_BaseOut.pas new file mode 100644 index 0000000..e1c90cc --- /dev/null +++ b/样品/U_BaseOut.pas @@ -0,0 +1,471 @@ +unit U_BaseOut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, + cxButtonEdit, cxDropDownEdit, cxCalendar; + +type + TfrmBaseOut = class(TForm) + ToolBar1: TToolBar; + BtnSave: TToolButton; + BtnExit: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1PlanNo: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1P_ChnName10: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1DefStr3: TcxGridDBColumn; + v1DefFlt1: TcxGridDBColumn; + v1DefStr4: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1DefStr2: TcxGridDBColumn; + v1DefStr1: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1RollUnit: TcxGridDBColumn; + v1P_SeqNo: TcxGridDBColumn; + v1DepotClass: TcxGridDBColumn; + v1batchnum: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure BtnExitClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1P_ChnName10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1DefStr4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PlanNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BtnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v1DepotClassPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitGrid(); + function SaveData():Boolean; + { Private declarations } + public + DepotNo:string; + QuantityCK:string; + { Public declarations } + end; + +var + frmBaseOut: TfrmBaseOut; + +implementation +uses + U_adodbmd,U_global,U_FormPas,U_SelfForm,U_ProductHelp, + U_SupplyHelp,U_JlUnitHelp,U_ItemManageNew,U_GetPlanListHelp + ,U_GetBaseInList; + +{$R *.dfm} + +procedure TfrmBaseOut.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + +end; + +procedure TfrmBaseOut.BtnExitClick(Sender: TObject); +begin + Close; +end; +procedure TfrmBaseOut.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('exec P_Get_ClothInOutList :begdate,:enddate,:DepotNo,:DepotCode,:PState,:CRK'); + Parameters.ParamByName('DepotNo').Value:=Trim(DepotNo); + Parameters.ParamByName('PState').Value:=2; + Open; + end; + CreateCDS20(ADOQueryMain,CDS_Sub); + InitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBaseOut.ToolButton2Click(Sender: TObject); +begin + try + frmGetBaseInList:=TfrmGetBaseInList.Create(Application); + with frmGetBaseInList do + begin + if ShowModal=1 then + begin + with CDS_Sub do + begin + Append; + CDS_Sub.FieldByName('PlanNo').Value:=Trim(ADOQueryMain.fieldbyname('PlanNo').AsString); + CDS_Sub.FieldByName('P_SeqNO').Value:=Trim(ADOQueryMain.fieldbyname('P_SeqNO').AsString); + CDS_Sub.FieldByName('P_Code').Value:=Trim(ADOQueryMain.fieldbyname('P_Code').AsString); + CDS_Sub.FieldByName('P_ChnName').Value:=Trim(ADOQueryMain.fieldbyname('P_ChnName').AsString); + CDS_Sub.FieldByName('DefStr1').Value:=Trim(ADOQueryMain.fieldbyname('DefStr1').AsString); + CDS_Sub.FieldByName('P_ChnName10').Value:=Trim(ADOQueryMain.fieldbyname('P_ChnName10').AsString); + CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryMain.fieldbyname('DefStr2').AsString); + CDS_Sub.FieldByName('ShortName').Value:=Trim(ADOQueryMain.fieldbyname('ShortName').AsString); + CDS_Sub.FieldByName('DefStr3').Value:=Trim(ADOQueryMain.fieldbyname('DefStr3').AsString); + CDS_Sub.FieldByName('DefFlt1').Value:=Trim(ADOQueryMain.fieldbyname('DefFlt1').AsString); + CDS_Sub.FieldByName('DefStr6').Value:=Trim(ADOQueryMain.fieldbyname('DefStr6').AsString); + CDS_Sub.FieldByName('DefStr7').Value:=Trim(ADOQueryMain.fieldbyname('DefStr7').AsString); + CDS_Sub.FieldByName('Quantity').Value:=Trim(ADOQueryMain.fieldbyname('QuantityKC').AsString); + CDS_Sub.FieldByName('UnitName').Value:=Trim(ADOQueryMain.fieldbyname('UnitName').AsString); + CDS_Sub.FieldByName('RollUnit').Value:=Trim(ADOQueryMain.fieldbyname('RollUnit').AsString); + CDS_Sub.FieldByName('DefStr4').Value:=Trim(ADOQueryMain.fieldbyname('DefStr4').AsString); + CDS_Sub.FieldByName('KCID').Value:=Trim(ADOQueryMain.fieldbyname('KCID').AsString); + CDS_Sub.FieldByName('batchnum').Value:=Trim(ADOQueryMain.fieldbyname('batchnum').AsString); + Post; + end; + end; + end; + finally + frmGetBaseInList.Free; + end; +end; + +procedure TfrmBaseOut.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + CDS_Sub.Delete; +end; + +function TfrmBaseOut.SaveData():Boolean; +var + MaxNo,strSQL:string; + KID,i:Integer; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.First; + for i:=0 to CDS_Sub.RecordCount-1 do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + begin + MaxNo:=Trim(CDS_Sub.fieldbyname('DepotNo').AsString); + end else + begin + if GetMaxNo20(ADOQueryCmd,MaxNo,'WC_ClothInout','BC',1,4)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end; + KID:=CDS_Sub.fieldbyname('KcID').AsInteger; + // + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WC_ClothInout where DepotNO='''+Trim(DepotNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + Edit + else + Append; + FieldByName('DepotNo').Value:=Trim(MaxNo); + FieldByName('DepotCode').Value:=Trim(gDef1); + FieldByName('DepotType').Value:=0; + FieldByName('Filler').Value:=Trim(gUserName); + FieldByName('FillTime').Value:=Trim(CDS_Sub.fieldbyname('FillTime').AsString); + FieldByName('DepotClass').Value:=Trim(CDS_Sub.fieldbyname('DepotClass').AsString); + FieldByName('Status').Value:='I9'; + FieldByName('DepotNo').Value:=Trim(MaxNo); + //SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInout',1); + Post; + end; + //ӱ + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WC_ClothInOut_Info where DepotNO='''+Trim(DepotNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then + Edit + else + Append; + FieldByName('DepotNo').Value:=Trim(MaxNo); + FieldByName('KCID').Value:=KID; + FieldByName('ID').Value:=1; + SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInOut_Info',2); + Post; + end; + //浽 + if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)='' then + begin + //µ + strSQL := 'UPDATE WC_ClothClothing SET ' + + 'Quantity =Quantity-' + CDS_Sub.fieldbyname('Quantity').AsString+ ' ' + + 'WHERE KcID = ' + IntToStr(KID); + end else + begin + //µ + strSQL := 'UPDATE WC_ClothClothing SET ' + + 'Quantity =Quantity+'+QuantityCK+'-'+CDS_Sub.fieldbyname('Quantity').AsString+ ' ' + + 'WHERE KcID = ' + IntToStr(KID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(strSQL); + ExecSQL; + end; + CDS_Sub.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + DepotNo:=MaxNo; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmBaseOut.v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductHelp:=TfrmProductHelp.Create(Application); + with frmProductHelp do + begin + fDipFlag:=3; + cxTabControl1.Tabs[0].Visible:=False; + cxTabControl1.Tabs[1].Visible:=False; + cxTabControl1.Tabs[2].Visible:=False; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('P_Code').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString; + CDS_Sub.FieldByName('P_ChnName').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString; + end; + end; + finally + frmProductHelp.Free; + end; +end; + +procedure TfrmBaseOut.v1P_ChnName10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductHelp:=TfrmProductHelp.Create(Application); + with frmProductHelp do + begin + fDipFlag:=2; + cxTabControl1.Tabs[0].Visible:=False; + cxTabControl1.Tabs[1].Visible:=False; + cxTabControl1.Tabs[3].Visible:=False; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('DefStr1').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString; + CDS_Sub.FieldByName('P_ChnName10').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString; + end; + end; + finally + frmProductHelp.Free; + end; +end; + +procedure TfrmBaseOut.v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmSupplyHelp:=TfrmSupplyHelp.Create(Application); + with frmSupplyHelp do + begin + FLType:=''; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + self.CDS_Sub.FieldByName('ShortName').Value:=Trim(ADOQueryHelp.fieldbyname('ShortName').AsString); + self.CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('CustomNo').AsString); + end; + end; + finally + frmSupplyHelp.Free; + end; +end; + +procedure TfrmBaseOut.v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + kf_frmJlUnitHelp:=Tkf_frmJlUnitHelp.Create(Application); + with kf_frmJlUnitHelp do + begin + Fflag:='length'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('UnitName').Value:=Trim(ADOQueryHelp.fieldbyname('').AsString); + Self.CDS_Sub.FieldByName('RollUnit').Value:=Trim(ADOQueryHelp.fieldbyname('').AsString); + end; + end; + finally + kf_frmJlUnitHelp.Free; + end; +end; + +procedure TfrmBaseOut.v1DefStr4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='DefStr4'; + flagname:='˹ȼ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('DefStr4').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +procedure TfrmBaseOut.v1PlanNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGetPlanListHelp:=TfrmGetPlanListHelp.Create(Application); + with frmGetPlanListHelp do + begin + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('PlanNo').Value:=Trim(ADOQueryHelp.fieldbyname('PlanNo').AsString); + CDS_Sub.FieldByName('P_SeqNo').Value:=Trim(ADOQueryHelp.fieldbyname('P_SeqNo').AsString); + CDS_Sub.FieldByName('DefStr1').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseCode').AsString); + CDS_Sub.FieldByName('P_ChnName10').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseChnName').AsString); + CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('P_Factory').AsString); + CDS_Sub.FieldByName('Shortname').Value:=Trim(ADOQueryHelp.fieldbyname('SupplierName').AsString); + CDS_Sub.FieldByName('DefStr3').Value:=Trim(ADOQueryHelp.fieldbyname('SBtr2').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('Select P_Code from MC_CatLog where P_ChnName='''+Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString)+''''); + Open; + if not IsEmpty then + begin + CDS_Sub.FieldByName('P_Code').Value:=Trim(ADOQueryTemp.fieldbyname('P_Code').AsString); + CDS_Sub.FieldByName('P_ChnName').Value:=Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString); + end; + end; + end; + end; + finally + frmGetPlanListHelp.Free; + end; +end; + +procedure TfrmBaseOut.BtnSaveClick(Sender: TObject); +begin + if CDS_Sub.Locate('FillTime',Null,[]) then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PlanNo',Null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('batchnum',Null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('DepotClass',Null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('P_ChnName',Null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Quantity',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.IsEmpty then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmBaseOut.FormShow(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaseOut.v1DepotClassPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmItemManageNew:=TfrmItemManageNew.Create(Application); + with frmItemManageNew do + begin + flag:='BSOutType'; + flagname:='˹'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('DepotClass').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString); + end; + end; + finally + frmItemManageNew.Free; + end; +end; + +end. diff --git a/样品/U_BaseOutList.dfm b/样品/U_BaseOutList.dfm new file mode 100644 index 0000000..5b55e6f --- /dev/null +++ b/样品/U_BaseOutList.dfm @@ -0,0 +1,465 @@ +object frmBaseOutList: TfrmBaseOutList + Left = 83 + Top = 124 + Width = 1024 + Height = 618 + Caption = #20986#24211#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 = 1016 + Height = 23 + ButtonWidth = 75 + Caption = 'ToolBar1' + Flat = True + Images = ADODBMD_BSCK.ImageList24 + List = True + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 30 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 55 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 2 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 110 + Top = 0 + Caption = #39640#32423#36807#28388 + ImageIndex = 57 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 240 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 15 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 295 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 7 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 350 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 47 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 405 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 460 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 10 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 23 + Width = 1016 + Height = 73 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 184 + Top = 12 + Width = 48 + Height = 12 + Caption = #25209' '#21495 + end + object Label4: TLabel + Left = 344 + Top = 12 + Width = 36 + Height = 12 + Caption = #21697#21517#20108 + end + object Label5: TLabel + Left = 184 + Top = 36 + Width = 48 + Height = 12 + Caption = #22522#24067#21517#31216 + end + object Label6: TLabel + Left = 509 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 344 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label8: TLabel + Left = 509 + Top = 12 + Width = 24 + Height = 12 + Caption = #21402#24230 + end + object Label9: TLabel + Left = 645 + Top = 12 + Width = 48 + Height = 12 + Caption = #21367' '#21495 + end + object Label10: TLabel + Left = 645 + Top = 36 + Width = 48 + Height = 12 + Caption = #36125#26031#31867#21035 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object PlanNo: TEdit + Tag = 2 + Left = 233 + Top = 9 + Width = 86 + Height = 20 + TabOrder = 2 + OnChange = PlanNoChange + end + object P_ChnName20: TEdit + Tag = 2 + Left = 382 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = PlanNoChange + end + object P_ChnName10: TEdit + Tag = 2 + Left = 233 + Top = 33 + Width = 86 + Height = 20 + TabOrder = 4 + OnChange = PlanNoChange + end + object DefStr3: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 86 + Height = 20 + TabOrder = 5 + OnChange = PlanNoChange + end + object ShorName: TEdit + Tag = 2 + Left = 382 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = PlanNoChange + end + object HD: TEdit + Tag = 2 + Left = 534 + Top = 9 + Width = 86 + Height = 20 + TabOrder = 7 + OnChange = PlanNoChange + end + object batchnum: TEdit + Tag = 2 + Left = 695 + Top = 9 + Width = 85 + Height = 20 + TabOrder = 8 + OnChange = PlanNoChange + end + object BSTypeName: TEdit + Tag = 2 + Left = 695 + Top = 33 + Width = 86 + Height = 20 + TabOrder = 9 + OnChange = PlanNoChange + end + end + object cxGrid1: TcxGrid + Left = 28 + Top = 100 + Width = 925 + Height = 357 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1DepotClass: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'DepotClass' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #29677#27425 + DataBinding.FieldName = 'defstr6' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column3: TcxGridDBColumn + Caption = #29677#32452 + DataBinding.FieldName = 'defstr7' + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v1batchnum: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'batchnum' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1PlanNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'PlanNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1P_ChnName: TcxGridDBColumn + Caption = #21697#21517#19968 + DataBinding.FieldName = 'P_ChnName20' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1P_Spec10: TcxGridDBColumn + Caption = #21697#21517#20108 + DataBinding.FieldName = 'P_Spec10' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1BSTypeName: TcxGridDBColumn + Caption = #36125#26031#31867#21035 + DataBinding.FieldName = 'BSTypeName' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1P_ChnName10: TcxGridDBColumn + Caption = #22522#24067#21517#31216 + DataBinding.FieldName = 'P_ChnName10' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ShortName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1DefStr3: TcxGridDBColumn + Caption = #22522#24067#39068#33394 + DataBinding.FieldName = 'DefStr3' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1DefFlt1: TcxGridDBColumn + Caption = #21402#24230 + DataBinding.FieldName = 'HD' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Quantity: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Quantity' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'UnitName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1DefStr4: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DefStr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 145 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 496 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + Parameters = <> + Left = 664 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = ADODBMD_BSCK.ADOCon + LockType = ltReadOnly + Parameters = <> + Left = 848 + Top = 224 + end + object DataSource1: TDataSource + DataSet = ADOQueryMain + Left = 800 + Top = 192 + end +end diff --git a/样品/U_BaseOutList.pas b/样品/U_BaseOutList.pas new file mode 100644 index 0000000..b2d271b --- /dev/null +++ b/样品/U_BaseOutList.pas @@ -0,0 +1,267 @@ +unit U_BaseOutList; + +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; + +type + TfrmBaseOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + PlanNo: TEdit; + P_ChnName20: TEdit; + P_ChnName10: TEdit; + DefStr3: TEdit; + ShorName: TEdit; + HD: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1PlanNo: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1P_ChnName10: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1DefStr3: TcxGridDBColumn; + v1DefFlt1: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + v1DefStr4: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1P_Spec10: TcxGridDBColumn; + v1BSTypeName: TcxGridDBColumn; + v1DepotClass: TcxGridDBColumn; + v1batchnum: TcxGridDBColumn; + Label9: TLabel; + batchnum: TEdit; + Label10: TLabel; + BSTypeName: TEdit; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton1: TToolButton; + 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 TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure PlanNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBaseOutList: TfrmBaseOutList; + +implementation +uses + U_adodbmd,U_SelfForm,U_CxGridSet,U_FormPas,U_BaseOut,U_global; + +{$R *.dfm} + +procedure TfrmBaseOutList.FormDestroy(Sender: TObject); +begin + frmBaseOutList:=nil; +end; + +procedure TfrmBaseOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBaseOutList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmBaseOutList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'˹ֿ'); +end; + +procedure TfrmBaseOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_Get_ClothInOutList :begdate,:enddate,:DepotNo,:DepotCode,:PState,:CRK'); + Parameters.ParamByName('DepotCode').Value:=Trim(gDef1); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Parameters.ParamByName('PState').Value:=1; + Parameters.ParamByName('CRK').Value:=0; + Open; + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBaseOutList.InitForm(); +begin + ReadCxGrid('б',Tv1,'˹ֿ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + EndDate.DateTime:=BegDate.DateTime; + InitGrid(); +end; + +procedure TfrmBaseOutList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmBaseOutList.TBEditClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + try + frmBaseOut:=TfrmBaseOut.Create(Application); + with frmBaseOut do + begin + DepotNo:=Trim(self.ADOQueryMain.fieldbyname('DepotNo').AsString); + QuantityCK:=Trim(self.ADOQueryMain.fieldbyname('Quantity').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.ADOQueryMain.Locate('DepotNo',DepotNo,[]); + end; + end; + finally + frmBaseOut.Free; + end; +end; + +procedure TfrmBaseOutList.TBDelClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + TBRafresh.Click; + TBFind.Click; + end; +end; + +function TfrmBaseOutList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WC_ClothInout_Info where depotno='''+Trim(ADOQueryMain.fieldbyname('depotno').AsString)+''''); + sql.Add(' delete WC_ClothInout where depotno='''+Trim(ADOQueryMain.fieldbyname('depotno').AsString)+''''); + SQL.Add(' Update WC_ClothClothing Set Quantity=Quantity+'+Trim(ADOQueryMain.fieldbyname('Quantity').AsString)); + sql.Add(' where KCID='+Trim(ADOQueryMain.fieldbyname('KCID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBaseOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmBaseOutList.TBPrintClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; +end; + +procedure TfrmBaseOutList.TBAddClick(Sender: TObject); +begin + try + frmBaseOut:=TfrmBaseOut.Create(Application); + with frmBaseOut do + begin + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.ADOQueryMain.Locate('DepotNo',DepotNo,[]); + end; + end; + finally + frmBaseOut.Free; + end; +end; + +procedure TfrmBaseOutList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaseOutList.PlanNoChange(Sender: TObject); +begin + if ADOQueryMain.Active then + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmBaseOutList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBaseOutList.ToolButton1Click(Sender: TObject); +begin + SeniorFilter(Tv1,ADOQueryMain); +end; + +end. diff --git a/样品/U_CPAdd.dfm b/样品/U_CPAdd.dfm new file mode 100644 index 0000000..89406b6 --- /dev/null +++ b/样品/U_CPAdd.dfm @@ -0,0 +1,477 @@ +object frmCPAdd: TfrmCPAdd + Left = 234 + Top = 254 + Width = 1015 + Height = 345 + Align = alCustom + 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 = 999 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object Panel1: TPanel + Left = 126 + Top = 0 + Width = 131 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 10 + Top = 7 + Width = 97 + Height = 17 + Caption = #38376#24133#21333#20301#33521#23544 + TabOrder = 0 + end + end + end + object Panel2: TPanel + Left = 0 + Top = 33 + Width = 999 + Height = 274 + Align = alClient + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 41 + Top = 26 + Width = 85 + Height = 16 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 41 + Top = 61 + Width = 87 + Height = 16 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 41 + Top = 98 + Width = 87 + Height = 16 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 41 + Top = 135 + Width = 87 + Height = 16 + Caption = #33457' '#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 669 + Top = 98 + Width = 87 + Height = 16 + Caption = #24211' '#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 355 + Top = 26 + Width = 85 + Height = 16 + Caption = #20013#25991#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 355 + Top = 98 + Width = 85 + Height = 16 + Caption = #26377#25928#38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 39 + Top = 173 + Width = 87 + Height = 16 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 670 + Top = 26 + Width = 85 + Height = 16 + Caption = #33521#25991#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 358 + Top = 61 + Width = 85 + Height = 16 + Caption = #33521#25991#25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 670 + Top = 61 + Width = 85 + Height = 16 + Caption = #33521#25991#39068#33394#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 356 + Top = 132 + Width = 87 + Height = 16 + Caption = #23494' '#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 670 + Top = 131 + Width = 85 + Height = 16 + Caption = #32463#32428#25467#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 670 + Top = 168 + Width = 85 + Height = 16 + Caption = #26368#20302#25253#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CYNo: TEdit + Left = 121 + Top = 22 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = CYNoKeyPress + end + object CYSpec: TEdit + Left = 121 + Top = 57 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnKeyPress = CYSpecKeyPress + end + object CYKZ: TEdit + Left = 121 + Top = 94 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnKeyPress = CYKZKeyPress + end + object CYHX: TEdit + Left = 121 + Top = 131 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnKeyPress = CYHXKeyPress + end + object DefStr2: TEdit + Left = 746 + Top = 94 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnKeyPress = DefStr2KeyPress + end + object CYName: TEdit + Left = 435 + Top = 22 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + OnKeyPress = CYNameKeyPress + end + object CYEName: TEdit + Left = 746 + Top = 22 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnKeyPress = CYENameKeyPress + end + object CYECF: TEdit + Left = 434 + Top = 57 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + OnKeyPress = CYECFKeyPress + end + object CYMF: TEdit + Left = 435 + Top = 94 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnKeyPress = CYMFKeyPress + end + object CYColorEng: TEdit + Left = 746 + Top = 57 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 9 + OnKeyPress = CYColorEngKeyPress + end + object CYNote: TEdit + Left = 120 + Top = 169 + Width = 513 + Height = 64 + AutoSize = False + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 10 + end + object DefStr4: TEdit + Left = 746 + Top = 127 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 11 + OnKeyPress = defstr4KeyPress + end + object DefStr3: TEdit + Left = 436 + Top = 128 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 12 + OnKeyPress = CYColorKeyPress + end + object ZDBJ: TEdit + Left = 746 + Top = 164 + Width = 200 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 13 + OnKeyPress = defstr4KeyPress + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 105 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 413 + Top = 113 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 365 + Top = 113 + end +end diff --git a/样品/U_CPAdd.pas b/样品/U_CPAdd.pas new file mode 100644 index 0000000..d2c8cf3 --- /dev/null +++ b/样品/U_CPAdd.pas @@ -0,0 +1,424 @@ +unit U_CPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit, + StdCtrls, ExtCtrls, cxCurrencyEdit, cxDropDownEdit, cxCalendar; + +type + TfrmCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + CheckBox1: TCheckBox; + Panel2: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label9: TLabel; + Label11: TLabel; + Label13: TLabel; + Label17: TLabel; + Label18: TLabel; + Label20: TLabel; + CYNo: TEdit; + CYSpec: TEdit; + CYKZ: TEdit; + CYHX: TEdit; + CYName: TEdit; + CYEName: TEdit; + CYECF: TEdit; + CYMF: TEdit; + CYColorEng: TEdit; + CYNote: TEdit; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + DefStr2: TEdit; + Label6: TLabel; + Label7: TLabel; + DefStr4: TEdit; + DefStr3: TEdit; + Label8: TLabel; + ZDBJ: TEdit; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CheckBox1Click(Sender: TObject); + procedure v1Column46PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CYMFExit(Sender: TObject); + procedure CYKZExit(Sender: TObject); + procedure CYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNameKeyPress(Sender: TObject; var Key: Char); + procedure CYENameKeyPress(Sender: TObject; var Key: Char); + procedure CYSpecKeyPress(Sender: TObject; var Key: Char); + procedure CYCFKeyPress(Sender: TObject; var Key: Char); + procedure CYECFKeyPress(Sender: TObject; var Key: Char); + procedure CYKZKeyPress(Sender: TObject; var Key: Char); + procedure CYMFKeyPress(Sender: TObject; var Key: Char); + procedure DefStr2KeyPress(Sender: TObject; var Key: Char); + procedure CYHXKeyPress(Sender: TObject; var Key: Char); + procedure CYColorKeyPress(Sender: TObject; var Key: Char); + procedure price1KeyPress(Sender: TObject; var Key: Char); + procedure CYColorEngKeyPress(Sender: TObject; var Key: Char); + procedure DefStr4KeyPress(Sender: TObject; var Key: Char); + private + canshu1:string; + Fint:Integer; + procedure InitSubGrid(); + function SaveData():Boolean; + { Private declarations } + public + FCYID,FCPID:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmCPAdd: TfrmCPAdd; + +implementation +uses + U_DataLink,U_Fun,U_iniParam,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add(' select * from CP_YDang where CYID='''+Trim(FCYID)+''' '); + Open; + end; + SCSHDataNew(ADOQueryMain,Panel2,0); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCPAdd.FormShow(Sender: TObject); +begin + InitSubGrid(); + if CopyInt=1 then + begin + FCYID:=''; + end; + + if CheckBox1.Checked=True then + begin + canshu1:='Ӣ'; + end else + begin + canshu1:=''; + end; +end; + +procedure TfrmCPAdd.TBCloseClick(Sender: TObject); +begin + Close; +end; + +function TfrmCPAdd.SaveData():Boolean; +var + maxId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'','CP_YDang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCYID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCYID)='' then + begin + Append; + FieldByName('CYType').Value:=Trim(FCPID); + FieldByName('CYID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + SSetsavedataNew(ADOQueryCmd,'CP_YDang',Panel2,0); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select count(CYNO) as AA from CP_YDang where CYNo='''+Trim(CYNo.Text)+''' '); + Open; + if FieldByName('AA').AsInteger>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('Ʒظ','ʾ',0); + Exit; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + FCYID:=Trim(maxId); + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCPAdd.ToolButton1Click(Sender: TObject); +begin + if ( Trim(CYNo.Text)='' ) then + begin + Application.MessageBox('ƷŲΪգ','ʾ',0); + Exit; + end; + if ( Trim(CYName.Text)='' ) then + begin + Application.MessageBox('ƷΪգ','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmCPAdd.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName('CYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end;} +end; + +procedure TfrmCPAdd.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked=True then + begin + canshu1:='Ӣ'; + end else + begin + canshu1:=''; + end; +end; + +procedure TfrmCPAdd.v1Column46PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + { try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName('defstr19').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; } +end; + +procedure TfrmCPAdd.CYMFExit(Sender: TObject); +var + mvalue:string; + FReal:Double; +begin + mvalue:=Trim(TcxTextEdit(Sender).EditingText); + if ( TryStrToFloat(mvalue,FReal) ) then + begin + if Trim(canshu1)='Ӣ' then + mvalue:=mvalue+'"' + else + mvalue:=mvalue+'CM'; + end; + TEdit(Sender).Text:=mvalue; +end; + +procedure TfrmCPAdd.CYKZExit(Sender: TObject); +var + mvalue:string; + FReal:Double; +begin + mvalue:=Trim(TcxTextEdit(Sender).EditingText); + if ( TryStrToFloat(mvalue,FReal) ) then + begin + mvalue:=mvalue+'GSM'; + end; + TEdit(Sender).Text:=mvalue; +end; + +procedure TfrmCPAdd.CYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYName.SetFocus; + end; +end; + + +procedure TfrmCPAdd.CYNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYEName.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYENameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYSpec.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYSpecKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYECF.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYCFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYECF.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYECFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYColorEng.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYKZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYMF.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYMFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + DefStr2.SetFocus; + end; +end; + +procedure TfrmCPAdd.DefStr2KeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYHX.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYHXKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + DefStr3.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYColorKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + DefStr4.SetFocus; + end; +end; + + + +procedure TfrmCPAdd.price1KeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYNote.SetFocus; + end; +end; + +procedure TfrmCPAdd.CYColorEngKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYKZ.SetFocus; + end; +end; + +procedure TfrmCPAdd.DefStr4KeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + CYNote.SetFocus; + end; +end; + +end. diff --git a/样品/U_CPManage.dfm b/样品/U_CPManage.dfm new file mode 100644 index 0000000..0c20558 --- /dev/null +++ b/样品/U_CPManage.dfm @@ -0,0 +1,951 @@ +object frmCPManage: TfrmCPManage + Left = 39 + Top = 91 + Width = 1382 + Height = 754 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + 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 = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton9: TToolButton + Left = 378 + Top = 0 + Caption = #20462#25913#31867#22411 + ImageIndex = 54 + OnClick = ToolButton9Click + end + object ToolButton1: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton8: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #26631#31614#39044#35272 + ImageIndex = 12 + OnClick = ToolButton8Click + end + object ToolButton5: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 785 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 935 + Top = 5 + Width = 112 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #26679#21697#26631#31614 + Items.Strings = ( + #26679#21697#26631#31614 + #26679#21697#26631#31614'1' + #26679#21697#26631#31614'2') + 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 = 2 + 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 Label4: TLabel + Left = 474 + Top = 15 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #32433' '#25903 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 1033 + Top = 15 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #25104' '#20998 + end + object Label10: TLabel + Left = 606 + 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 + 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 + end + object Label13: TLabel + Left = 726 + Top = 15 + Width = 48 + Height = 12 + Caption = #32769' '#32534' '#21495 + end + object Label14: TLabel + Left = 726 + Top = 39 + Width = 48 + Height = 12 + Caption = #24211#20301#20301#32622 + end + object Label15: TLabel + Left = 850 + Top = 39 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label16: TLabel + Left = 850 + Top = 15 + Width = 48 + Height = 12 + Caption = #35746#21333#26469#28304 + 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 = 1 + OnChange = CYNameChange + end + object DefStr6: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + end + object defnote5: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 991 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 8 + OnChange = CYNameChange + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = CYMFChange + end + object defstr1: TEdit + Tag = 2 + Left = 776 + Top = 11 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = CYMFChange + end + object DefStr2: TEdit + Tag = 2 + Left = 776 + Top = 35 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = CYMFChange + end + object defstr7: TEdit + Tag = 2 + Left = 900 + Top = 35 + Width = 65 + Height = 20 + TabOrder = 12 + OnChange = CYMFChange + end + object defnote3: TEdit + Tag = 2 + Left = 900 + Top = 11 + Width = 65 + Height = 20 + TabOrder = 13 + 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 = 3 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 93 + Width = 220 + Height = 623 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + 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_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.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 = 224 + Top = 100 + Width = 1073 + Height = 609 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel3' + TabOrder = 5 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1069 + Height = 410 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + 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 + Styles.Inactive = DataLink_YPGL.SHuangSe + Styles.IncSearch = DataLink_YPGL.SHuangSe + Styles.Selection = DataLink_YPGL.SHuangSe + Styles.Header = DataLink_YPGL.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #24211#20301#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #24120#35268#21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column22: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 54 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column25: TcxGridDBColumn + Caption = #26222#36890#26469#28304 + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'price1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column27: TcxGridDBColumn + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column31: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column33: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column34: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'DefStr7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column35: TcxGridDBColumn + Caption = #21407#26009#32452#25104 + DataBinding.FieldName = 'DefStr8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column36: TcxGridDBColumn + Caption = #19978#26426#35268#26684 + DataBinding.FieldName = 'DefStr9' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column37: TcxGridDBColumn + Caption = #26368#20302#25253#20215 + DataBinding.FieldName = 'ZDBJ' + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + 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 + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.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_YPGL.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end +end diff --git a/样品/U_CPManage.pas b/样品/U_CPManage.pas new file mode 100644 index 0000000..adf2e69 --- /dev/null +++ b/样品/U_CPManage.pas @@ -0,0 +1,963 @@ +unit U_CPManage; + +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 + TfrmCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + DefStr6: TEdit; + Label5: TLabel; + defnote5: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + defstr1: TEdit; + Label13: TLabel; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + DefStr2: TEdit; + Label14: TLabel; + defstr7: TEdit; + Label15: TLabel; + defnote3: TEdit; + Label16: TLabel; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + ComboBox1: TComboBox; + Panel3: TPanel; + GroupBox1: TGroupBox; + ScrollBox1: TScrollBox; + adoqueryPicture: TADOQuery; + ToolButton8: TToolButton; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column34: TcxGridDBColumn; + v1Column35: TcxGridDBColumn; + v1Column36: TcxGridDBColumn; + ToolButton9: TToolButton; + v1Column37: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(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 Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + + +var + frmCPManage: TfrmCPManage; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR, U_YPTypeHelp; + +{$R *.dfm} + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPManage.FormDestroy(Sender: TObject); +begin + frmCPManage:=nil; +end; + +procedure TfrmCPManage.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 TfrmCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбYT',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',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; + +procedure TfrmCPManage.FormShow(Sender: TObject); +begin + Panel3.Align:=alclient; + InitTree(); + ReadCxGrid('ƷбYT',Tv1,'Ʒ'); + if DParameters1='1' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton3.Visible:=False; + ToolButton5.Visible:=False; + end; + 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 TfrmCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.TBAddClick(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + if ShowModal=1 then + begin + InitGrid(); + Self.CDS_Main.Locate('CYID',frmCPAdd.FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.ToolButton3Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.CDS_Main.fieldbyname('CYType').AsString); + if ShowModal=1 then + begin + InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + // RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManage.ToolButton7Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.CDS_Main.fieldbyname('CYType').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',frmCPAdd.FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + // RM1.PrintReport; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton9Click(Sender: TObject); + +var + flb:string; +begin + if CDS_Main.IsEmpty then Exit; + if not CDS_Main.Locate('ssel',true,[]) then + begin + application.MessageBox('ûѡݣ','ʾϢ',0); + exit; + end; + if Application.MessageBox('ȷҪ޸Ʒ','ʾ',32+4)<>IDYES then Exit; + flb:=''; + + frmYPTypeHelp:=TfrmYPTypeHelp.create(self); + with frmYPTypeHelp do + begin + if showmodal=1 then + begin + flb:=trim(ADOQueryHelp.fieldbyname('CPID').AsString); + end; + free; + end; + + if trim(flb)='' then exit; + with CDS_Main do + begin + DisableControls; + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update CP_YDang SET CYType='''+trim(flb)+''' where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + Next; + end; + EnableControls; + end; + InitGrid(); +end; + +end. diff --git a/样品/U_CPManageCX.dfm b/样品/U_CPManageCX.dfm new file mode 100644 index 0000000..2d080b7 --- /dev/null +++ b/样品/U_CPManageCX.dfm @@ -0,0 +1,823 @@ +object frmCPManageCX: TfrmCPManageCX + Left = 84 + Top = 137 + Width = 1382 + Height = 754 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + 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 = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton10: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #26631#31614#39044#35272 + ImageIndex = 12 + OnClick = ToolButton10Click + end + object ToolButton8: TToolButton + Left = 615 + Top = 0 + Caption = #26679#21697#20837#24211 + ImageIndex = 103 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton9: TToolButton + Left = 698 + Top = 0 + Caption = #26679#21697#20986#24211 + ImageIndex = 107 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton5: TToolButton + Left = 781 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 868 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 955 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 1018 + Top = 5 + Width = 112 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #26679#21697#26631#31614 + Items.Strings = ( + #26679#21697#26631#31614 + #26679#21697#26631#31614'1') + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 72 + Width = 121 + Height = 644 + Align = alLeft + 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_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.Red + TabOrder = 1 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxSplitter1: TcxSplitter + Left = 121 + Top = 72 + Width = 8 + Height = 644 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxDBTreeList1 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + 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 = 361 + Top = 15 + Width = 48 + Height = 12 + Caption = #24120#35268#21517#31216 + end + object Label4: TLabel + Left = 471 + Top = 15 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label5: TLabel + Left = 603 + Top = 15 + Width = 24 + Height = 12 + Caption = #32433#25903 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 1046 + Top = 16 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 719 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label13: TLabel + Left = 842 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + 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 = 411 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object DefStr6: TEdit + Tag = 2 + Left = 532 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object defnote5: TEdit + Tag = 2 + Left = 629 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = defnote5Change + end + object CYNO: TEdit + Tag = 2 + Left = 262 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object Edit1: TEdit + Left = 1004 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + end + object DefStr7: TEdit + Tag = 2 + Left = 753 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = defnote5Change + end + object defstr1: TEdit + Tag = 2 + Left = 880 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = defnote5Change + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 193 + 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 = 4 + Visible = False + end + object Panel3: TPanel + Left = 127 + Top = 83 + Width = 1073 + Height = 609 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel3' + TabOrder = 5 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1069 + Height = 410 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + 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 + Styles.Inactive = DataLink_YPGL.SHuangSe + Styles.IncSearch = DataLink_YPGL.SHuangSe + Styles.Selection = DataLink_YPGL.SHuangSe + Styles.Header = DataLink_YPGL.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #24211#20301#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #24120#35268#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 54 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #22383#24067#23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'defnote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #24211#23384#20301#32622 + DataBinding.FieldName = 'defnote2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column25: TcxGridDBColumn + Caption = #26222#36890#26469#28304 + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'price1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column27: TcxGridDBColumn + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column31: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column33: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column34: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column35: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column36: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'DefStr7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column37: TcxGridDBColumn + Caption = #21407#26009#32452#25104 + DataBinding.FieldName = 'DefStr8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column38: TcxGridDBColumn + Caption = #19978#26426#35268#26684 + DataBinding.FieldName = 'DefStr9' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + 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 + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 909 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 877 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 456 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 185 + 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 + 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 = 485 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end + object adoqueryPicture: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end +end diff --git a/样品/U_CPManageCX.pas b/样品/U_CPManageCX.pas new file mode 100644 index 0000000..5fb383a --- /dev/null +++ b/样品/U_CPManageCX.pas @@ -0,0 +1,816 @@ +unit U_CPManageCX; + +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 + TfrmCPManageCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + Panel2: TPanel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label3: TLabel; + Label6: TLabel; + CYName: TEdit; + DefStr6: TEdit; + defnote5: TEdit; + CYNO: TEdit; + Edit1: TEdit; + Label7: TLabel; + DefStr7: TEdit; + defstr1: TEdit; + Label13: TLabel; + ComboBox1: TComboBox; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column19: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + GroupBox1: TGroupBox; + ScrollBox1: TScrollBox; + adoqueryPicture: TADOQuery; + v1Column34: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column35: TcxGridDBColumn; + v1Column36: TcxGridDBColumn; + v1Column37: TcxGridDBColumn; + v1Column38: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(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 Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure defnote5Change(Sender: TObject); + procedure ToolButton10Click(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 + frmCPManageCX: TfrmCPManageCX; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR; + +{$R *.dfm} + +procedure TfrmCPManageCX.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); + + 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 TfrmCPManageCX.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageCX.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 TfrmCPManageCX.FormDestroy(Sender: TObject); +begin + frmCPManageCX:=nil; +end; + +procedure TfrmCPManageCX.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); + Action:=caFree; +end; + +procedure TfrmCPManageCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageCX.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',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; + +procedure TfrmCPManageCX.FormShow(Sender: TObject); +begin + Panel3.Align:=alclient; + InitTree(); + ReadCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if DParameters1='1' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton3.Visible:=False; + ToolButton5.Visible:=False; + end; + //InitGrid(); +end; + +procedure TfrmCPManageCX.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.TBAddClick(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.ToolButton3Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton2Click(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 TfrmCPManageCX.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageCX.CYNoChange(Sender: TObject); +begin +// if Length(Trim(CYNO.Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageCX.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageCX.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +procedure TfrmCPManageCX.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManageCX.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 TfrmCPManageCX.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 TfrmCPManageCX.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 TfrmCPManageCX.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManageCX.ToolButton7Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton8Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton9Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + frmYPCR.cxGridDBColumn1.Caption:=''; + frmYPCR.cxGridDBColumn5.Caption:=''; + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.defnote5Change(Sender: TObject); +begin +// if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageCX.ToolButton10Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + // RM1.PrintReport; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +end. diff --git a/样品/U_CPManageSel.dfm b/样品/U_CPManageSel.dfm new file mode 100644 index 0000000..dbe16c8 --- /dev/null +++ b/样品/U_CPManageSel.dfm @@ -0,0 +1,703 @@ +object frmCPManageSel: TfrmCPManageSel + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #20135#21697#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 + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton7: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 57 + Visible = False + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 402 + Top = 5 + Width = 112 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #26679#21697#26631#31614 + Visible = False + Items.Strings = ( + #26679#21697#26631#31614 + #26679#21697#26631#31614'1') + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 73 + Width = 121 + Height = 643 + Align = alLeft + 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_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.Red + TabOrder = 1 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxSplitter1: TcxSplitter + Left = 121 + Top = 73 + Width = 8 + Height = 643 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxDBTreeList1 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label2: TLabel + Left = 12 + Top = 55 + 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 = 177 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 295 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 419 + Top = 15 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label3: TLabel + Left = 32 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 1046 + Top = 48 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 539 + Top = 15 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label13: TLabel + Left = 842 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + end + object CYID: TEdit + Tag = 3 + Left = 60 + Top = 51 + Width = 121 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 227 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 344 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 445 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = CYSpecChange + end + object CYNO: TEdit + Tag = 2 + Left = 78 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object Edit1: TEdit + Left = 1004 + Top = 43 + Width = 38 + Height = 20 + TabOrder = 5 + end + object CYKZ: TEdit + Tag = 2 + Left = 565 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYSpecChange + end + object defstr1: TEdit + Tag = 2 + Left = 880 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = CYSpecChange + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 193 + 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 = 4 + Visible = False + end + object Panel3: TPanel + Left = 127 + Top = 83 + Width = 1073 + Height = 609 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel3' + TabOrder = 5 + 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 + Styles.Inactive = DataLink_YPGL.SHuangSe + Styles.IncSearch = DataLink_YPGL.SHuangSe + Styles.Selection = DataLink_YPGL.SHuangSe + Styles.Header = DataLink_YPGL.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 54 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #22383#24067#23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #25346#38057#25968 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column25: TcxGridDBColumn + Caption = #26222#36890#26469#28304 + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'price1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column27: TcxGridDBColumn + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column31: TcxGridDBColumn + Caption = #21442#32771#20215 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column33: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + 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 + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 909 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 877 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 456 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 185 + 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 + 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 = 485 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end + object adoqueryPicture: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end +end diff --git a/样品/U_CPManageSel.pas b/样品/U_CPManageSel.pas new file mode 100644 index 0000000..9cd966a --- /dev/null +++ b/样品/U_CPManageSel.pas @@ -0,0 +1,475 @@ +unit U_CPManageSel; + +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 + TfrmCPManageSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton7: TToolButton; + Panel2: TPanel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label3: TLabel; + Label6: TLabel; + CYName: TEdit; + CYEName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + Edit1: TEdit; + Label7: TLabel; + CYKZ: TEdit; + defstr1: TEdit; + Label13: TLabel; + ComboBox1: TComboBox; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column19: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + GroupBox1: TGroupBox; + ScrollBox1: TScrollBox; + adoqueryPicture: TADOQuery; + 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 ToolButton1Click(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 CYSpecChange(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 + frmCPManageSel: TfrmCPManageSel; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCPManageSel.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); + + 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 TfrmCPManageSel.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageSel.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 TfrmCPManageSel.FormDestroy(Sender: TObject); +begin + frmCPManageSel:=nil; +end; + +procedure TfrmCPManageSel.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); + Action:=caFree; +end; + +procedure TfrmCPManageSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageSel.FormShow(Sender: TObject); +begin + Panel3.Align:=alclient; + InitTree(); + ReadCxGrid(self.Caption,Tv1,'Ʒ'); + //InitGrid(); +end; + +procedure TfrmCPManageSel.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageSel.ToolButton2Click(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 TfrmCPManageSel.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageSel.CYNoChange(Sender: TObject); +begin +// if Length(Trim(CYNO.Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageSel.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageSel.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +procedure TfrmCPManageSel.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 TfrmCPManageSel.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 TfrmCPManageSel.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 TfrmCPManageSel.CYSpecChange(Sender: TObject); +begin +// if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +end. diff --git a/样品/U_CPType.dfm b/样品/U_CPType.dfm new file mode 100644 index 0000000..281a4d8 --- /dev/null +++ b/样品/U_CPType.dfm @@ -0,0 +1,183 @@ +object frmCPType: TfrmCPType + Left = 281 + Top = 184 + Width = 870 + Height = 505 + Caption = #20135#21697#31867#21035 + 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 = 862 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686#23376#31867 + ImageIndex = 3 + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 435 + Align = alLeft + 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 + TabOrder = 1 + OnClick = cxDBTreeList1Click + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 270 + Top = 54 + Width = 315 + Height = 150 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 66 + Top = 24 + Width = 48 + Height = 12 + Caption = #29238' '#31867 + end + object Label2: TLabel + Left = 66 + Top = 65 + Width = 48 + Height = 12 + Caption = #31867#21035#21517#31216 + end + object Label3: TLabel + Left = 66 + Top = 105 + Width = 48 + Height = 12 + Caption = #31867#21035#32534#30721 + end + object CPTopName: TEdit + Left = 129 + Top = 21 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object CPName: TEdit + Left = 129 + Top = 61 + Width = 121 + Height = 20 + TabOrder = 1 + OnKeyPress = CPNameKeyPress + end + object CPNo: TEdit + Left = 129 + Top = 101 + Width = 121 + Height = 20 + TabOrder = 2 + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 709 + Top = 209 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 677 + Top = 137 + end +end diff --git a/样品/U_CPType.pas b/样品/U_CPType.pas new file mode 100644 index 0000000..e3be500 --- /dev/null +++ b/样品/U_CPType.pas @@ -0,0 +1,239 @@ +unit U_CPType; + +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; + +type + TfrmCPType = 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; + CPTopName: TEdit; + CPName: TEdit; + CPNo: 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 CPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmCPType: TfrmCPType; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCPType.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPType.FormDestroy(Sender: TObject); +begin + frmCPType:=nil; +end; + +procedure TfrmCPType.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPType.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmCPType.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmCPType.TBAddClick(Sender: TObject); +begin + PState:=11; + CPTopName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + CPName.Text:=''; + CPNo.Text:=''; + CPName.SetFocus; +end; + +procedure TfrmCPType.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + CPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('CPName').AsString); + CPName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CPNo.Text:=Trim(ADOQueryTree.fieldbyname('CPNo').AsString); +end; + +procedure TfrmCPType.ToolButton1Click(Sender: TObject); +var + maxId:String; +begin + if Trim(CPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if Trim(CPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'CP','CP_Type',4,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 CP_Type where CPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.Text); + FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FieldByName('CPLevel').Value:=ADOQueryTree.fieldbyname('CPLevel').AsInteger+1; + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.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 TfrmCPType.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('CPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ಻ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYType='''+Trim(ADOQueryTree.fieldbyname('CPID').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 CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + sql.Add('delete CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmCPType.CPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + CPNo.SetFocus; +end; + +procedure TfrmCPType.FormShow(Sender: TObject); +begin + InitTree(); +end; + +end. diff --git a/样品/U_ClothContractInPut.dfm b/样品/U_ClothContractInPut.dfm new file mode 100644 index 0000000..7af25ac --- /dev/null +++ b/样品/U_ClothContractInPut.dfm @@ -0,0 +1,513 @@ +object frmClothContractInPut: TfrmClothContractInPut + Left = 198 + Top = 87 + Width = 829 + Height = 625 + Caption = #22383#24067#35746#36141#21512#21516#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 = 821 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_OrderManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 821 + Height = 281 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 617 + Top = 15 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 312 + Top = 16 + Width = 66 + Height = 12 + Caption = #22383' '#24067' '#21378#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 = 46 + Top = 53 + Width = 13 + Height = 84 + Caption = #20184#13#10#13#10#27454#13#10#13#10#26041#13#10#13#10#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 425 + Top = 53 + Width = 13 + Height = 84 + Caption = #20132#13#10#13#10#26399#13#10#13#10#35201#13#10#13#10#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 46 + Top = 165 + Width = 13 + Height = 84 + Caption = #36136#13#10#13#10#37327#13#10#13#10#26631#13#10#13#10#20934 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 420 + Top = 165 + Width = 26 + Height = 84 + Caption = #35299#20915#13#10#13#10#21512#21516#13#10#13#10#32416#32439#13#10#13#10#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 13 + Width = 100 + Height = 18 + TabOrder = 0 + end + object DeliveryDate: TDateTimePicker + Left = 679 + Top = 11 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Left = 375 + Top = 10 + Hint = 'FactoryNo' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + ShowHint = False + TabOrder = 2 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object ConTK1: TRichEdit + Left = 86 + Top = 48 + Width = 291 + Height = 98 + TabOrder = 3 + end + object ConTK2: TRichEdit + Left = 472 + Top = 48 + Width = 305 + Height = 98 + TabOrder = 4 + end + object ConTK3: TRichEdit + Left = 86 + Top = 160 + Width = 291 + Height = 98 + TabOrder = 5 + end + object ConTK4: TRichEdit + Left = 472 + Top = 160 + Width = 305 + Height = 98 + TabOrder = 6 + end + object PanZDY: TPanel + Left = 617 + Top = 112 + Width = 202 + Height = 153 + TabOrder = 7 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 310 + Width = 821 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_OrderManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 339 + Width = 821 + Height = 249 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 75 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #38754#26009#35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 78 + end + object v1PRTColor: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 65 + end + object v1PRTMF: TcxGridDBColumn + Caption = #20811#37325#21333#20301 + DataBinding.FieldName = 'KZUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTMFPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 64 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #21487#35009#21098#38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 76 + end + object v1OrderQty: TcxGridDBColumn + Caption = #38376#24133#21333#20301 + DataBinding.FieldName = 'MFUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 63 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 51 + end + object v1ClothQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 58 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 50 + end + object v1Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 46 + end + object v1PRTQty: TcxGridDBColumn + Tag = 1 + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 125 + end + object ADOCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 624 + Top = 157 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 16 + end + object ADOQuery1: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 576 + Top = 173 + end +end diff --git a/样品/U_ClothContractInPut.pas b/样品/U_ClothContractInPut.pas new file mode 100644 index 0000000..9306249 --- /dev/null +++ b/样品/U_ClothContractInPut.pas @@ -0,0 +1,580 @@ +unit U_ClothContractInPut; + +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; + +type + TfrmClothContractInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + Label6: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1OrderQty: TcxGridDBColumn; + v1ClothQty: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + Label7: TLabel; + Label3: TLabel; + Label8: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ConTK1: TRichEdit; + ConTK2: TRichEdit; + ConTK3: TRichEdit; + ConTK4: TRichEdit; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState:Integer; + FMainId:String; + { Public declarations } + end; + +var + frmClothContractInPut: TfrmClothContractInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContract_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from Contract_Main order by FillTime desc '); + Open; + end; + ConTK1.Text:=ADOTemp.fieldbyname('ConTK1').AsString; + ConTK2.Text:=ADOTemp.fieldbyname('ConTK2').AsString; + ConTK3.Text:=ADOTemp.fieldbyname('ConTK3').AsString; + ConTK4.Text:=ADOTemp.fieldbyname('ConTK4').AsString; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmClothContractInPut.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPut.FormShow(Sender: TObject); +begin + if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; + InitData(); +end; + +function TfrmClothContractInPut.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'CS','Contract_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPut.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); +end; + +end. diff --git a/样品/U_ClothContractList.dfm b/样品/U_ClothContractList.dfm new file mode 100644 index 0000000..8c6da88 --- /dev/null +++ b/样品/U_ClothContractList.dfm @@ -0,0 +1,672 @@ +object frmClothContractList: TfrmClothContractList + Left = 113 + Top = 123 + Width = 1280 + Height = 554 + Caption = #22383#24067#37319#36141#21512#21516 + 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 = 1272 + AutoSize = True + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton6: TToolButton + Left = 441 + Top = 0 + Width = 48 + Caption = 'ToolButton6' + ImageIndex = 115 + Style = tbsSeparator + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + Width = 41 + Caption = 'ToolButton1' + ImageIndex = 60 + Style = tbsSeparator + end + object ToolButton2: TToolButton + Left = 593 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 656 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 719 + Top = 0 + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 802 + Top = 0 + Caption = #22383#24067#23433#25490 + ImageIndex = 114 + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1272 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + Top = 15 + Width = 52 + Height = 12 + Caption = #38754#26009#35268#26684 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 323 + Top = 11 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 627 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = -172 + Top = 112 + Width = 1366 + Height = 369 + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 777 + Height = 369 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 63 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #38754#26009#35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #21487#35009#38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133#21333#20301 + DataBinding.FieldName = 'MFUnit' + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #20811#37325#21333#20301 + DataBinding.FieldName = 'KZUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 57 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 785 + Top = 0 + Width = 320 + Height = 369 + Align = alRight + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + 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_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v2ComeDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 70 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v2Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 44 + end + object v2MxQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 48 + end + object v2MxNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 1113 + Top = 0 + Width = 253 + Height = 369 + Align = alRight + TabOrder = 2 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + 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 cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 70 + end + object v3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 63 + end + object cxPRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 73 + end + object cxGridDBPRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 36 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxSplitter1: TcxSplitter + Left = 1105 + Top = 0 + Width = 8 + Height = 369 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid3 + end + object cxSplitter2: TcxSplitter + Left = 777 + Top = 0 + Width = 8 + Height = 369 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 656 + Top = 96 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 608 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 64 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 704 + Top = 64 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 96 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end +end diff --git a/样品/U_ClothContractList.pas b/样品/U_ClothContractList.pas new file mode 100644 index 0000000..b82bdc1 --- /dev/null +++ b/样品/U_ClothContractList.pas @@ -0,0 +1,652 @@ +unit U_ClothContractList; + +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; + +type + TfrmClothContractList = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxPRTSpec: TcxGridDBColumn; + cxGridDBPRTColor: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton1: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v3Column1: TcxGridDBColumn; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + v1Qty1: TcxGridDBColumn; + v2Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + 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 ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + FInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList: TfrmClothContractList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList; + +{$R *.dfm} + +procedure TfrmClothContractList.FormDestroy(Sender: TObject); +begin + frmClothContractList:=nil; +end; + +procedure TfrmClothContractList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothContractList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬб',Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList.InitForm(); +begin + ReadCxGrid('ͬб',Tv1,'ָʾ'); + if Trim(DParameters1)='1' then + begin + TBPrint.Visible:=False; + v1Column1.Visible:=False; + v1Column1.Hidden:=True; + v1PRTUnit.Visible:=False; + v1PRTUnit.Hidden:=True; + v1PRTQty.Visible:=False; + v1PRTQty.Hidden:=True; + end else + begin + v1Column1.Visible:=True; + v1Column1.Hidden:=False; + v1PRTUnit.Visible:=True; + v1PRTUnit.Hidden:=False; + v1PRTQty.Visible:=True; + v1PRTQty.Hidden:=False; + TBPrint.Visible:=True; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList.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 TfrmClothContractList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut:=TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + end; +end; + +procedure TfrmClothContractList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; +end; + +function TfrmClothContractList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + FConNoM:=Trim(Order_Main.fieldbyname('ConNoM').AsString); + SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + 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\ͬ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ConNoM',FConNoM,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmClothContractList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut:=TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + end; +end; + +procedure TfrmClothContractList.ConNoMChange(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 TfrmClothContractList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if FInt=2 then + begin + ClientDataSet2.Append; + ClientDataSet2.Post; + end else + if FInt=3 then + begin + ClientDataSet3.Append; + ClientDataSet3.Post; + end; +end; + +procedure TfrmClothContractList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Sub_Mx where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PRTSpec,B.PRTColor,C.PRTCodeName,C.OrderNo from Contract_Sub_MxTo A inner join Order_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join Order_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractList.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BatchNo',null,[]) then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'Contract_Sub_Mx',0); + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ȷɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.TBTP.Visible:=False; + frmProductOrderList.cxGrid2.Visible:=False; + + if ShowModal=1 then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('OrdSubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('PRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTSpec').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + + end; + end; + end; + finally + frmProductOrderList.Free; + end; +end; + +procedure TfrmClothContractList.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PRTSpec,B.PRTColor,C.PRTCodeName,C.OrderNo from Contract_Sub_MxTo A inner join Order_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join Order_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractList.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ųɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.ToolButton3Click(Sender: TObject); +begin + if FInt=2 then + begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end else + if FInt=3 then + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; +end; + +end. diff --git a/样品/U_ClothContractPay.dfm b/样品/U_ClothContractPay.dfm new file mode 100644 index 0000000..e2e5208 --- /dev/null +++ b/样品/U_ClothContractPay.dfm @@ -0,0 +1,587 @@ +object frmClothContractPay: TfrmClothContractPay + Left = -6 + Top = 129 + Width = 1292 + Height = 554 + Caption = #22383#24067#23545#36134#21333 + 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 = 1284 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #22383#24067#20184#27454 + ImageIndex = 113 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object TBPrint: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1284 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + Top = 15 + Width = 52 + Height = 12 + Caption = #38754#26009#35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 734 + Top = 15 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 323 + Top = 11 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 627 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 787 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = -172 + Top = 112 + Width = 1366 + Height = 369 + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1083 + Height = 369 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 63 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #38754#26009#35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #21487#35009#38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133#21333#20301 + DataBinding.FieldName = 'MFUnit' + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #20811#37325#21333#20301 + DataBinding.FieldName = 'KZUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PQty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 57 + end + object v1Column8: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 64 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 55 + end + object v1Column5: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Column4: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #23454#38469#37329#39069 + DataBinding.FieldName = 'SJMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 1091 + Top = 0 + Width = 275 + Height = 369 + Align = alRight + TabOrder = 1 + Visible = False + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_OrderManage.SkyBlue + Styles.IncSearch = DataLink_OrderManage.SkyBlue + Styles.Selection = DataLink_OrderManage.SkyBlue + object v2ComeDate: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 70 + end + object v2BatchNo: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v2Qty1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 44 + end + object v2MxNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter2: TcxSplitter + Left = 1083 + Top = 0 + Width = 8 + Height = 369 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + Visible = False + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 648 + Top = 200 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 576 + Top = 80 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 80 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 512 + Top = 80 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 480 + Top = 80 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 544 + Top = 80 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + end +end diff --git a/样品/U_ClothContractPay.pas b/样品/U_ClothContractPay.pas new file mode 100644 index 0000000..bbf8744 --- /dev/null +++ b/样品/U_ClothContractPay.pas @@ -0,0 +1,472 @@ +unit U_ClothContractPay; + +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; + +type + TfrmClothContractPay = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + cxSplitter2: TcxSplitter; + v1Qty1: TcxGridDBColumn; + v2Qty1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + FactoryNoName: 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 TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton3Click(Sender: TObject); + private + FInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractPay: TfrmClothContractPay; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList; + +{$R *.dfm} + +procedure TfrmClothContractPay.FormDestroy(Sender: TObject); +begin + frmClothContractPay:=nil; +end; + +procedure TfrmClothContractPay.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractPay.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothContractPay.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ˵',Tv1,'ָʾ'); +end; + +procedure TfrmClothContractPay.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryPayList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractPay.InitForm(); +begin + ReadCxGrid('ͬ˵',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractPay.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 TfrmClothContractPay.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractPay.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬ˵',cxGrid1); +end; + +procedure TfrmClothContractPay.TBPrintClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; +end; + +procedure TfrmClothContractPay.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractPay.ConNoMChange(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 TfrmClothContractPay.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractPay.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if FInt=2 then + begin + ClientDataSet2.Append; + ClientDataSet2.Post; + end else + if FInt=3 then + begin + ClientDataSet3.Append; + ClientDataSet3.Post; + end; +end; + +procedure TfrmClothContractPay.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Sub_Mx where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PRTSpec,B.PRTColor,C.PRTCodeName,C.OrderNo from Contract_Sub_MxTo A inner join Order_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join Order_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractPay.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractPay.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractPay.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractPay.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BatchNo',null,[]) then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'Contract_Sub_Mx',0); + Post; + end; + Next; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ȷɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractPay.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.TBTP.Visible:=False; + frmProductOrderList.cxGrid2.Visible:=False; + + if ShowModal=1 then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('OrdSubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTCodeName').AsString); + FieldByName('PRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTSpec').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + + end; + end; + end; + finally + frmProductOrderList.Free; + end; +end; + +procedure TfrmClothContractPay.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PRTSpec,B.PRTColor,C.PRTCodeName,C.OrderNo from Contract_Sub_MxTo A inner join Order_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join Order_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractPay.ToolButton3Click(Sender: TObject); +begin + if FInt=2 then + begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end else + if FInt=3 then + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; +end; + +end. diff --git a/样品/U_ClothKCQty.dfm b/样品/U_ClothKCQty.dfm new file mode 100644 index 0000000..e6e9f1a --- /dev/null +++ b/样品/U_ClothKCQty.dfm @@ -0,0 +1,467 @@ +object frmClothKCQty: TfrmClothKCQty + Left = 184 + Top = 155 + Width = 1014 + Height = 500 + Caption = #22383#24067#20986#20837#23384 + 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 = 1006 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1006 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 Label2: TLabel + Left = 161 + Top = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + Top = 15 + Width = 52 + Height = 12 + Caption = #38754#26009#35268#26684 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 323 + Top = 11 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 627 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + end + object cxGrid1: TcxGrid + Left = 24 + Top = 112 + Width = 897 + Height = 200 + TabOrder = 2 + object cxGrid1DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + Bands = < + item + Caption = #22522#26412#20449#24687 + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + end + item + Caption = #19978#26399#32467#23384 + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + end + item + Caption = #26412#26399#20837#24211 + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + end + item + Caption = #26412#26399#20986#24211 + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + end + item + Caption = #26412#26399#32467#23384 + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNoM' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #38754#26009#35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JCS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PJCS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CKS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 60 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PCKS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'RKS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRKS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'QCS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PQCS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end + object DataSource1: TDataSource + DataSet = ADOQueryMain + Left = 584 + Top = 120 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end +end diff --git a/样品/U_ClothKCQty.pas b/样品/U_ClothKCQty.pas new file mode 100644 index 0000000..e939661 --- /dev/null +++ b/样品/U_ClothKCQty.pas @@ -0,0 +1,157 @@ +unit U_ClothKCQty; + +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; + +type + TfrmClothKCQty = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + Label4: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ConNoM: TEdit; + C_CodeNameM: TEdit; + C_Spec: TEdit; + cxGrid1DBTableView1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v1Column10: TcxGridDBBandedColumn; + v1Column11: TcxGridDBBandedColumn; + v1Column12: TcxGridDBBandedColumn; + v1Column13: TcxGridDBBandedColumn; + v1Column14: TcxGridDBBandedColumn; + v1Column15: TcxGridDBBandedColumn; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + 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); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothKCQty: TfrmClothKCQty; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmClothKCQty.FormDestroy(Sender: TObject); +begin + frmClothKCQty:=nil; +end; + +procedure TfrmClothKCQty.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothKCQty.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmClothKCQty.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Cloth_KCQty :begdate,:enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothKCQty.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothKCQty.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmClothKCQty.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('',Tv1,''); + Close; +end; + +procedure TfrmClothKCQty.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('',Tv1,''); + InitGrid(); +end; + +procedure TfrmClothKCQty.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('',cxGrid1); +end; + +procedure TfrmClothKCQty.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +end. diff --git a/样品/U_DataLink.dfm b/样品/U_DataLink.dfm new file mode 100644 index 0000000..3d2d933 --- /dev/null +++ b/样品/U_DataLink.dfm @@ -0,0 +1,17972 @@ +object DataLink_YPGL: TDataLink_YPGL + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 244 + Top = 208 + Height = 349 + Width = 482 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 72 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A400000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C900000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C0000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA00000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF8000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC00000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB800263873000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B10028387100000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC0028397700000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D0034468200000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA900000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F428500000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF0000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D00000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D00000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE1000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A200000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB80000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 000000000000808080005050500080808000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB10000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 000000000000808080005555550080808000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B70000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 000000000000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 000000000000000000000000000000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A0000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF0000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D0000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB300000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB00000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 00000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 00000000000000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF100000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E0000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C00000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E600000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA5000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E00000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D7000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB0000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD00000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE10000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE300000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C9000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A6000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D9000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F600000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB40000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE1000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E9000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF800000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F0000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F9000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD700000000000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F100000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA0000000000000000000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F100000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F90000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC00000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 000000000000000000000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC00000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 00000000000000000000000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E500000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D40000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D300000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB40000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E10000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F70000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD00000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC2000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD700000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF600000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F4000000000000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF5000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F519400000000000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB1000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C30000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC50000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF6000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C0000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F60000000000000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 00000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 00000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 000000000000000000000000000000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF00000000000000000000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C50000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A4000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F40000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C760000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD80000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C0000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC003143830000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E40000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA0000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E2000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A3000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF00000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B900000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D1000000000000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F7000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF00000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC500000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B930000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F990000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A10000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B10000000000000000000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A990000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D0000000000000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F1000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D0003143840000000000000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F20000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E0000000000000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B90000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA0000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC0000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC80000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A7000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F4491000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 00000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC00324999000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 000000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 000000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA1000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A9000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B0000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB30000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB40000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD00000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A30000000000000000000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A000000000000000000000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C6002333670000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D0000000000000000000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB000324910029397200000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 7100000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA0030428200000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 7400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB00033468700000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C9200000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A509700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D200000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF00000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB00000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC000000000000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB50000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD000000000000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB0000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD000000000000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD00000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C0000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC3000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF7000000000000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF800000000000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F5000000000000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF500000000000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF70000000000000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 000000000000000000000000000000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 000000000000000000000000000000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 000000000000000000000000000000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 000000000000000000000000000000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF5000000000000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C00000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D4186000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A800000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB003147920000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A3000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB30000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB40000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB6000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B9000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C1000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E90000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C5000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D41870000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C9000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C3003247900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C4003348930000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A950000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F990000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 000000000000000000000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A20000000000000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C0000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A50000000000000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA80000000000000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF5000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD00000000000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC7000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF60000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD0000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C90000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB900000000000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C9000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB000000000000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B500263774000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D71000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D8100000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D00000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A0000000000000000000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB0031479200000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC00000000000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C9000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A300000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E00000000000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA500000000000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D1000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD000000000000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D5000000000000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB00000000000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E200000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B700000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE00000000000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D6000000000000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C8000000000000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F0068676900555769000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB000000000000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F300000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC2000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF2000000000000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A6387000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D200000000000000000000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C30000000000000000000000000000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C700000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 000000000000000000000000000000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 000000000000000000000000000000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 0000000000000000000000000000000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF80000000000000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA000000000000000000000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 000000000000000000000000000000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 820000000000000000000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 88000000000000000000000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C870000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F000000000000000000000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B9600000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F70000000000000000000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A0000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD000000000000000000000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A9000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC0000000000000000000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B00000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA0000000000000000000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A0000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD0000000000000000000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE000000000000000000000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B8000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD00000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C0000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C50000000000000000000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC1000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C60000000000000000000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC2000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB00000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C90000000000000000000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE0000000000000000000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB0000000000000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F00000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE000000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F0000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A800000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB00000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE0000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B800000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD00516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA00435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB00000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC00445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD00000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB00445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE00000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC00445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF00516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 000000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC100000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E300748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 000000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF600BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E80000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC40000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC8000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF6000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC6000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE2000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD0000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C7000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C700000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D20000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E00000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F20000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F200000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E40000000000000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 000000000000000000000000000000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F300000000000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 00000000000000000000000000000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF500000000000000000000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF300000000000000000000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 000000000000000000000000000000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F2000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC50000000000000000000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC00000000000000000000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D800000000000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED000000000000000000000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED00000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC50000000000000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB00000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A0000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F41800000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C9003144870000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F80000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D950000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F519200000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D0000000000000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F0000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A40000000000000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB30000000000000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB0000000000000000000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A400000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD0000000000000000000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF0000000000000000000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C10000000000000000000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC20000000000000000000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C1000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC40000000000000000000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD3000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC60000000000000000000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E900000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C700000000000000000000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 00000000000000000000000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 00000000000000000000000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 0000000000000000000000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D0000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB00000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E90000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D60000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB00000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E10000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E00000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC20000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA0000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F100000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B20000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F2000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF3000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF3000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF3000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC40000000000000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC700000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 000000000000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B700000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB200000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 000000000000000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC10000000000000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D20000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 00000000000000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C60000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 00000000000000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 00000000000000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD00000000000000000000000000031D3D85093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF010D1D3A000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000C458BFF1D54ABFF1E54A9FF1E54 + A9FF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54 + AAFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1D54ABFF1D54 + ABFF1D54ABFF1C54AEFF0D468CFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000F4791FF14439DFF14439DFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF3E8AD8FF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000F4792FF15459FFF1546A0FF1546 + A0FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1D55AFFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000F4892FF1749A3FF184CA6FF194D + A7FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1B4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1B51ABFF448EDAFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA00324894000000000000000000000000000F4893FF1A4EA8FF1B51ABFF1C54 + AEFF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF4C92DCFF0B448AFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C00000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF0B448AFF000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF053D82FF053D82FF0D4187FF053D + 82FF053D82FF053D82FF053D82FF03254F9B000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A500000000000000000000000000114995FF1A4EA8FF1C53ADFF1D56 + B0FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59 + B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1C54AEFF3D5978FF6C715CFF3458 + 88FF1C54AEFF1C54AEFF1A4FA9FF053D82FF000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000114A96FF194FA9FF1C53ADFF1D57 + B1FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5A + B4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1C54AEFF3F463CFF32372CFF3B45 + 42FF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB100000000000000000000000000114A97FF1A4FA9FF1D54AEFF1E58 + B2FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205B + B5FF205BB5FF205BB5FF205BB5FF205BB5FF1C54AEFF43586CFFD3D6B6FF3956 + 7BFF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000114B97FF1A50AAFF1D55AFFF1E59 + B3FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205C + B6FF205CB6FF205CB6FF205CB6FF205CB6FF5495DEFF3786D5FF327DCEFF327D + CEFF327DCEFF327DCFFF2D77C4FF032F65C788878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB700000000000000000000000000124B98FF1A4FA9FF1D55AFFF1F59 + B3FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF6EA7E8FF0B4489FF0000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000124C99FF1A50AAFF1D56B0FF1F59 + B3FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF70A9EAFF0B4489FF000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B900000000000000000000000000134C99FF2661B5FF3071C2FF3479 + C9FF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377D + CDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377C + CDFF387ECEFF2360B9FF0B448AFF000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB00000000000000000000000000134C9AFF2D6ABCFF377ACBFF3B81 + CFFF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF74ABEBFF0B448AFF0000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC00000000000000000000000000134D9BFF1E57B1FF6AA0E3FF70A6 + E7FF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74AB + EBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225F + B9FF74ABEBFF74ABEBFF0C458AFF00000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD000000000000000000000000001A529AFF7FB5F2FF337ECFFF3481 + D1FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF7FB5F2FF0C458BFF0000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C0000000000000000000000000000D468BFF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF0C458BFF010D1C3800000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C000000000000000000000000000031C3B730D468BFF0D468BFF0D46 + 8BFF0D468BFF0D468BFF0D468CFF0D468CFF0D468CFF0D468CFF0D478CFF0D46 + 8CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D46 + 8CFF0D468CFF0D468CFF00000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000110000001C0000002E0000002E0000002E0000002E0000002E0000 + 002E0000002E0000002E0000002E0000002E0000002E0000002E0000001C0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101020000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000005000000090000000C0000 + 000F00000016000000190000001D00000024000000260000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A00000024000000200000001D0000 + 0016000000130000000F00000009000000060000000000000000000000000000 + 00000000000000000000339F70FF339F70FF339F70FF339F70FF339F70FF339F + 70FF339F70FF339F70FF339F70FF339F70FF339F70FF339F70FF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000003B2A9C75FF2A9C75FF2A9C75FF0000003E0000 + 003B000000330000002800000017000000140000000E0000000B000000080000 + 000300000002000000000000000000000000000000060000000D000000120000 + 001800000024A5A5A5E6CECECEFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7 + E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFCCCCCCFF2525 + 254D0000001D000000180000000D000000090000000000000000000000000000 + 0000000000000000000032A072FF12BC8EFF12BC8EFF12BC8EFF12BC8EFF12BC + 8EFF12BC8DFF12BC8EFF12BC8DFF12BC8EFF3CD7A7FF32A172FF000E0B120000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 000000000000040F0B190000000035CD98FF15B081FF38D19BFF0D34276F0000 + 0024000000200000001800000014000000100000000900000006000000040000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F17B3B3B3EFCECECEFFE4E4E4FFE4E4E4FFE4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFF2F2F2FFD4DDD9FFE2E2E2FFE1E1E1FFEFEFEFFFCCCCCCFF5B5B + 5B76000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A172FF12BD8EFF12BC8EFF12BD8EFF12BC8EFF12BD + 8EFF12BC8EFF12BD8EFF12BD8EFF12BD8EFF3CD7A7FF31A172FF000E0B120000 + 0000000000000000000000000000000000000000001E131313EF121212EF1111 + 11EF111111EF111111EF111111EF111111EF111111EF111111EF111111EF1111 + 11FD111111FD111111EF111111EF111111EF111111EF111111EF121212EF1212 + 12EF131313EF141414EF111111B6000000000000000000000000000000000000 + 00000209060F000000002A9C75FF13B082FF13B082FF17B687FF259771F1030C + 0914000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333349C2C2C2FCD5D5D5FFE4E4E4FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3 + F3FFE3E3E3FF5DB591FFBFD7CDFFF3F3F3FFF2F2F2FFEDEDEDFFD5D5D5FF8383 + 83AE000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A273FF11C090FF0DCB95FF0CCA94FF0DCB94FF0CCB + 95FF0CCB94FF0CCB95FF0CCA95FF0CCB95FF3CD7A7FF30A273FF000E0B120000 + 000000000000000000000000000000000000000000003B3B3BFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF1B1B1BF6000000000000000000000000000000000000 + 00002A9C75FF32D59FFF14B183FF10CF9EFF10CF9DFF12C191FF31D39DFF23A0 + 78F60D3225520000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8CC1CFCFCFFFE8E8E8FF6CC0A0FF38B284FF39B083FF3BB083FF3AAE + 82FF78C0A4FF3EAC80FF3BAC81FF3DAB7FFF3DAA7DFFD1DFD8FFE9E9E9FFACAC + ACE6000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA575FF11C291FF0CCD97FF0DCD97FF0CCC96FF0CCC + 96FF0CCC97FF0DCC96FF0DCC96FF0DCC97FF3BD7A7FF2EA574FF000E0B120000 + 000000000000000000000000000000000000000000002A2A2AFF2E2E2EFF3939 + 39FF393939FF393939FF393939FF393939FF393939FF393939FF3A3A3AFF3A3A + 3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A + 3AFF3B3B3BFF323232FF1F1F1FC6000000000000000000000000000000000223 + 1A2C2BD19CFF14B284FF13B284FF16D2A1FF11D09EFF10D09EFF16B687FF27CB + 99FF259670F00000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9DD6D0D0D0FFEFEFEFFF39B285FF39B184FF5DBC98FF64BC9BFF58B8 + 94FFDEE3E1FF3CAB80FF92CAB3FF84C4AAFF3EAA7EFF96C9B3FFEEEEEEFFB9B9 + B9F5020202040000000000000000000000000000000000000000000000000000 + 000000000000000000002CA676FF11C392FF0DCE98FF0DCE98FF0DCD97FF0DCE + 97FF0DCD98FF0DCE98FF0DCD97FF0CCE97FF3BD7A7FF2CA676FF011C14220000 + 00000000000000000000000000000000000000000000323232FE343434FF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3E3E3EFF383838FF1212127100000000000000000000000001150F1A2AA0 + 75FF15B384FF13B283FF0FCE9BFF80EFD0FF6EE5BFFF0FD19EFF13B788FF24C9 + 96FF1FB78AFC0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACACE8D0D0D0FFF1F1F1FF44B98EFF38B285FF41B288FFCFDFD9FFE6E6 + E6FFE6E6E6FF58B691FFA5D0BEFFB9D7CCFF3BAA7DFFAED1C2FFF0F0F0FFC4C4 + C4FE252525340000000000000000000000000000000000000000000000000000 + 000000000000000000002BA776FF10C492FF0DCE98FF0DCF99FF0DCF99FF0DCE + 98FF0DCF99FF0DCE99FF0DCE99FF0DCF99FF3AD7A6FF2BA877FF000E0B120000 + 00000000000000000000000000000000000000000000272727F04E4E4EFF4040 + 40FF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF404040FF4040 + 40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040 + 40FF424242FF4B4B4BFF0505052200000000000000002AA078FF1BD09DFF1DD2 + 9FFF0FD09EFF16D4A3FF5DE7BFFF40AC89FF33A37EF255DCB3FF0FD29FFF11C0 + 90FF1ACC99FF259871EF02090710000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CACACAFEDADADAFFF2F2F2FFE0E7E4FF45B98FFF35B486FF8DCDB5FFE8E8 + E8FFE8E8E8FFE6E6E6FF6FC0A1FF3BAE82FFD7E1DCFFE5E5E5FFEEEEEEFFCDCD + CDFF838383B20000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA79FF10C794FF0DD19BFF0DD19BFF0ED19BFF0DD1 + 9BFF0ED19BFF0DD19BFF0ED19BFF0DD19AFF38D7A6FF28AA79FF000E0B120000 + 0000000000000000000000000000000000000000000000000000121212612C2C + 2CE7686868FF616161FF555555FF464646FF464646FF464646FF464646FF4646 + 46FF464646FF464646FF464646FF474747FF494949FF535353FF5E5E5EFF4A4A + 4AFD303030F01313136500000000000000000001010218CF9CFF1CD4A0FF10D3 + A0FF16D5A3FF5CE8C0FF46CFA8E600000000071E162F269F77F147E4B9FF0FD3 + A0FF0FD3A0FF1DB78AFB1B7255B2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D0D0D0FFE5E5E5FFEFEFEFFF59C09CFF39B88BFF35B587FFE7E9E8FFE6E8 + E7FFE8E8E8FFE8E8E8FFE5E6E6FF80C7ACFFE6E6E6FFE6E6E6FFEBEBEBFFCFCF + CFFF9A9A9ACF0000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7AFF10C795FF0DD29CFF0ED29CFF0ED29CFF0ED2 + 9CFF0ED29CFF0DD29DFF0DD29DFF0DD29CFF37D6A6FF26AB7AFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000202 + 020B2F2F2FE83C3C3CEE525252FD6A6A6AFF4F4F4FFF494949FF4A4A4AFF4A4A + 4AFF4A4A4AFF4A4A4AFF4A4A4AFF515151FF6D6D6DFF585858FF434343F81C1C + 1C850202020B0000000000000000000000002AA379FF1AD5A1FF10D4A1FF0FD4 + A1FF5BEAC1FF4CD7B1EE2CAA7FFF0000000000000000071E162F51DCB3FF44E4 + B8FF0FD3A1FF1DD3A1FF23A178F40C2F234B0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2D2D2FFEDEDEDFFEDEDEDFFEAEAEAFFEAEAEAFFDCE6E2FF3EB88CFF81CB + AFFFE5E8E7FF48B78EFF37AF82FF7FC5AAFFE7E7E7FFE6E6E6FFE8E8E8FFCFCF + CFFFA8A8A8E10000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7BFF11C996FF0ED39DFF0DD39DFF0ED39EFF0DD3 + 9EFF0ED39DFF0DD39EFF0ED39DFF0DD49DFF36D6A6FF25AD7BFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000202020A0F0F0F481E1E1E8E3A3A3AF4656565FF585858FF4D4D4DFF4D4D + 4DFF4D4D4DFF4D4D4DFF606060FF6A6A6AFF333333E1202020950F0F0F480000 + 00000000000000000000000000000000000006140F1D3BCDA1FD3EE2B6FF56E9 + C0FF2EAF83FF00020103000000000000000000000000000000000820183127A4 + 7AF14DDCB2FF0FD5A1FF15D5A1FF1CB88BF90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000B0B + 0B10D3D3D3FFF4F4F4FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFF31B686FF35B5 + 87FF94D1BAFF36B385FF3DB388FF2EAE80FFE9E9E9FFE8E8E8FFE8E8E8FFD0D0 + D0FFC6C6C6FC2C2C2C3F00000000000000000000000000000000000000000000 + 0000000000000000000022B17EFF10CB98FF0ED6A0FF0ED69FFF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF33D7A6FF22B07DFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000001010105313131C3545454FF5454 + 54FF545454FF464646F9262626A0010101050000000000000000000000000000 + 00000000000000000000000000000000000000000000259E76E587EBCDFFFFFF + FFFF010504080000000000000000000000000000000000000000000000000821 + 183127A67AF136E0B3FF10D5A2FF13D4A1FF0C2E234800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002C2C + 2C40D6D6D6FFF5F5F5FFECECECFFEBEBEBFFEBEBEBFFEBEBEBFF7CCCAFFF34B6 + 88FF35B587FF38B587FFCEE2DAFF96D0B8FFE9E9E9FFE9E9E9FFE9E9E9FFD6D6 + D6FFCDCDCDFF5C5C5C80000000000000000020B27FFF21B27FFF21B27FFF21B2 + 7FFF20B27FFF21B27FFF21B27FFF10CC99FF0ED7A2FF0ED7A1FF0FD7A1FF0ED7 + A1FF0ED8A1FF0ED7A1FF0ED7A1FF0ED7A1FF31D7A6FF21B27FFF20B27FFF21B2 + 7FFF20B27FFF20B27FFF21B27FFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282899595959FF5959 + 59FF595959FF444444F41B1B1B75000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000004100C1828A179E528A2 + 7AE3000000000000000000000000000000000000000000000000000000000000 + 00000822193249DCB1FF33E0B2FF0FD6A3FF259C74EC0209060E000000000000 + 0000000000000000000000000000000000000000000000000000000000005B5B + 5B8FD1D1D1FFE4E4E4FFDDDDDDFFDCDCDCFFDCDCDCFFDCDCDCFFD9DBDAFF30AB + 80FF30AA7FFF2AA77BFFDADBDAFFDBDBDBFFDADADAFFD9D9D9FFD9D9D9FFD1D1 + D1FFC2C2C2FF797979B8000000000000000005291D3842E6B8FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE9BFF0ED9A3FF0ED8A2FF0ED8A3FF0ED8 + A3FF0ED8A2FF0ED8A2FF0ED8A3FF0FD9A2FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF38E3B4FF05291D38000000000000000000000000000000000000 + 000000000000000000000000000000000000040404113F3F3FF85D5D5DFF5D5D + 5DFF5D5D5DFF5A5A5AFF3B3B3BEE0303030E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A3427A77EF146DDB1FF10D6A3FF26A97EF30C2E22450000 + 0000000000000000000000000000000000000000000000000000000000007171 + 71DEA4A4A4FF949494FF929292FF929292FF929292FF929292FF929292FF9191 + 91FF919191FF909090FF909090FF909090FF909090FF909090FF909090FFA3A3 + A3FF8B8B8BFF767676E500000000000000000000000005291D381CB783FF52EB + C0FF0FDAA5FF0EDBA5FF0EDAA4FF0FDBA5FF0EDBA5FF0FDAA5FF0EDBA5FF0FDB + A5FF0FDBA5FF0EDBA5FF0FDBA5FF0FDBA5FF0FDBA4FF0EDBA5FF0EDBA5FF49E9 + BCFF1CB783FF05291D3800000000000000000000000000000000000000000000 + 000000000000000000000000000000000000434343DD5F5F5FFF636363FF6363 + 63FF636363FF636363FF606060FF333333B30000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B3428AA7FF12BDFAFFF14D09EFF27A177EB0000 + 000000000000000000000000000000000000000000000E7C5AAA21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF0E7C5AAA00000000000000000000000005291D381AB8 + 84FF0FDCA6FF0FDCA6FF0FDCA6FF0EDCA7FF0EDCA6FF0FDCA6FF0FDCA6FF0FDC + A6FF0EDCA6FF0FDCA6FF0EDDA6FF0FDCA6FF0FDCA6FF0FDCA6FF0FDCA6FF1AB8 + 84FF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000020202064E4E4EFC656565FF666666FF6666 + 66FF666666FF666666FF666666FF414141DD0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B3444DDB1FF28DFAFFF1DBC8EF80000 + 0000000000000000000000000000000000000000000021B17FFF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF21B17FFF000000000000000000000000000000000529 + 1D3860F0C7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDDA7FF0EDDA7FF0FDEA7FF0FDD + A7FF0FDDA7FF0EDDA8FF0FDEA7FF0FDDA7FF0FDDA7FF0EDDA8FF5AEEC4FF0529 + 1D38000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001313132F515151FF686868FF696969FF6969 + 69FF696969FF696969FF696969FF4A4A4AED0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C372AAC7FF140DCB0FF29A4 + 7AEA0208060C0000000000000000000000000000000021B17FFF12C28EFF12C2 + 8EFF13C28DFF13C38EFF12C28EFF12C28EFF12C28DFF13C28EFF12C28EFF12C2 + 8EFF12C38DFF13C28EFF12C38EFF12C38EFF12C38EFF12C28EFF13C28EFF13C2 + 8EFF12C38EFF13C38EFF21B17FFF000000000000000000000000000000000000 + 000005291D3817BD87FF6FF3CDFF0FE0AAFF0FDFAAFF0FE0AAFF0FDFA9FF10DF + AAFF0FDFAAFF0FDFA9FF0FE0A9FF0FE0A9FF6AF2CBFF17BD88FF05291D380000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002222224F5B5B5BFF6F6F6FFF707070FF7070 + 70FF707070FF707070FF707070FF585858F60000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D372BAC80F126C1 + 94F81B7256A20000000000000000000000000000000021B17FFF12C490FF11C4 + 8FFF12C48FFF12C48FFF11C48FFF11C48FFF11C48FFF12C48FFF12C48FFF12C4 + 8FFF11C48FFF12C48FFF12C48FFF12C48FFF11C48FFF11C38FFF12C48FFF12C4 + 8FFF11C48FFF11C48FFF21B17FFF000000000000000000000000000000000000 + 00000000000005291D3815BE88FF10E0AAFF0FE0AAFF0FE1ABFF0FE0AAFF0FE1 + ABFF0FE0AAFF10E1ABFF0FE1AAFF0FE1ABFF15BE88FF05291D38000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D3F5A5A5AFF727272FF737373FF7373 + 73FF737373FF737373FF737373FF555555F00000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D373ADB + ADFF2BB285F40B2C213F00000000000000000000000021B17FFF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF21B17FFF000000000000000000000000000000000000 + 0000000000000000000005291D387BF6D2FF0FE1ACFF10E1ABFF0FE1ACFF0FE1 + ABFF0FE2ABFF0FE1ABFF0FE2ACFF78F5D1FF05291D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D1B5E5E5EFF757575FF767676FF7676 + 76FF767676FF767676FF767676FF565656E90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E392CAF84F232C093FC00000000000000000000000016BD88FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF16BD88FF010604070000000000000000000000000000 + 000000000000000000000000000005291D3813C28BFF86F8D6FF10E4ADFF0FE3 + ADFF0FE4AEFF84F7D5FF12C18BFF05291D380000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003939398E696969FF7C7C7CFF7C7C + 7CFF7C7C7CFF818181FF676767FC191919500000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F3A2CB185F413392C4B00000000000000000E382C4216BD88FF17E8 + B4FF299065FF289266FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF0CBE + 89FF46E7B5FF17E8B4FF0E372A40000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D3812C38CFF10E4AEFF10E4 + AEFF10E4AEFF11C38CFF05291D38000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020207494949D58F8F8FFF8A8A + 8AFF898989FF707070FE444444CA020202070000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B203C2FAE84EF0208060B00000000000000010F3C2E4616BD + 88FF48E6B5FF299065FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF4DEC + BAFF17E8B4FF16BD88FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D388DF9D8FF10E4 + AFFF8DF9D8FF05291D3800000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070718525252EB5D5D + 5DF85D5D5DF8353535A307070718000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B203C2EAE83F40000000000000000000000000001 + 010217DCA7FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D1 + 97FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF16CE + 99FF0F3A2D440001010200000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D380FC5 + 8EFF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C000000240000 + 0027339F70FF0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000001E00000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000270000001E0000001E319F70FF32A071FF319F + 70FF31A070FF319F71FF32A071FF32A070FF31A071FF32A070FFD58F6AFFD58F + 6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFF000000001560BCFF1560 + BDFF1560BDFF1660BDFF00000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AEFFFED6AEFFFED6AEFFFED7B0FFFED7 + B0FFFED8B1FFFED9B4FFFEDAB6FFFEDAB6FFFEDCB9FFFEDCB9FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A071FF32A071FF0F342452000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000252422FF262624FF2625 + 23FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF262524FF262524FF0000000000000000000000000DC992FF13B98CFF13B9 + 8CFF13B98CFF13B98CFF13B98CFF13B98CFF0EC992FF2FA171FFD58F6AFFEBA5 + 7DFFE19D79FFE19D79FFE19D79FFE19D79FFD58F6AFF000000001661BEFF076E + E6FF076EE6FF0578EAFF00000000000000000000000E00000013000000140000 + 0016000000191111113114141431FED4AAFFFED4AAFFFED4AAFFFED5ACFFFED5 + AEFFFED6AFFFFED8B2FFFED8B2FFFED9B4FFFEDAB7FFFFDBB9FF111111310000 + 00180000001600000014000000100000000E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172FF3BD7A7FF30A271FF0F3424520000000000000000000000000000 + 00000000000000000000000000000000000000000000262523FF282724FF2727 + 24FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF272625FF000000000000000000000000000000000DCA93FF13B98CFF0DCA + 93FF0DCA93FF0DCA94FF0DCA93FF13B98CFF0DCA93FF2FA272FFD58F6AFFECA5 + 7DFFE29E79FFECA57DFFECA57CFFE29E79FFD58F6BFF000000001662C0FF057A + EBFF0388F0FF057BEAFF000000000000000000000017000000343F3F3F7FACAC + ACFFACACACFFACACACFF636262FFFFCD9DFFFFCD9DFFFFCE9FFFFFD0A3FFFFD2 + A6FFFFD4AAFFFFD7AFFFFFD8B1FFFFD9B5FFFFDDBCFFFFDDBCFF636363FFACAC + ACFFACACACFF4B4B4B8C00000030000000170000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A373FF10BF8EFF39D6A6FF30A373FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000272624FF292826FF2929 + 26FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF2A2927FF292826FF0000000000000000000000000DCB95FF13BA8DFF0DCB + 95FF0DCC94FF0DCB94FF0DCB94FF13B98CFF0ECB94FF2EA273FFD68F6AFFECA5 + 7EFFE39E7AFFECA67DFFECA67DFFE39E7AFFD5906BFF000000001764C3FF057C + EBFF0389F0FF057CEBFF000000000000000000000000ACACACFFD1D1D1FFD1D1 + D1FFD1D1D1FFD1D1D1FF323232FFC49F7BFFC4A07EFFC4A17FFFC4A383FFC4A5 + 87FFC4A688FFC4A78BFFC4A88EFFC4A991FFC4AC96FFC4AC96FF323232FFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000003020400040306000403060004 + 030600040306000403060009060C000403060004030600040306000403060000 + 00002DA575FF10BF8EFF10BF8EFF10BF8EFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000292927FF2E2D2AFF2E2D + 2AFFFBE7D0FFFBE6D0FFFBE7CFFFFCE6CFFFFBE7D0FFFBE7D0FFFBE6D0FFFCE7 + D0FFFBE6CFFFFBE6CFFFFBE7D0FFFCE7CFFFFBE6D0FFFBE6CFFFFBE7CFFFFBE6 + CFFF2D2C2AFF2D2C2AFF0000000000000000000000000DCD97FF13BD8FFF0ECE + 97FF0ECE97FF0DCE97FF0ECE98FF13BC8EFF0ECD97FF2CA575FFD6906BFFEDA7 + 7FFFE5A17BFFECA77EFFECA77EFFE6A17BFFD6906BFF000000001A66C7FF0581 + EDFF038DF1FF0581EDFF000000000000000000000000ACACACFFD4D4D4FFD4D4 + D4FFD4D4D4FFD4D4D4FF333131FF9E8373FF9E8373FF9E8373FF9E8474FF9E84 + 74FF9E8475FF9E8576FF9E8576FF9E8577FF9E8577FF9E8577FF333131FFC8CC + CAFFCECECEFFCECECEFF00000000000000002CA676FF2CA776FF2CA676FF2CA6 + 75FF2CA675FF2BA676FF2BA675FF2CA675FF2BA676FF2CA676FF2CA676FF2CA6 + 76FF2BA776FF10BF8EFF0DCA94FF10C08EFF31D4A3FF2CA675FF0F3424520000 + 000000000000000000000000000000000000000000002B2927FF302E2CFF302E + 2DFFFBE7D0FFFCE7D0FFFCE7D0FFFBE7D1FFFBE7D1FFFCE7D0FFFBE7D1FFFBE7 + D1FFFBE7D0FFFBE7D1FFFBE7D0FFFBE7D0FFFCE7D1FFFBE7D1FFFCE7D0FFFBE7 + D0FF302E2CFF302F2CFF0000000000000000000000000ECF99FF12C090FF0ECF + 98FF0ECF99FF0ECF99FF0ECF99FF12BF8FFF0ECF99FF2BA675FFD6906CFFEDA8 + 7FFFE7A27CFFECA87FFFECA87FFFE7A27CFFD6906BFF000000001A68CBFF0482 + EDFF038EF1FF0483EEFF000000000000000000000000ACACACFFD7D7D7FFD7D7 + D7FFD7D7D7FFD7D7D7FFD6D6D6FFD6D6D6FFD5D5D5FFD5D5D5FFD5D5D5FFD4D4 + D4FFD4D4D4FFD4D4D4FFD3D3D3FFD3D3D3FFD3D3D3FFD2D2D2FFD2D2D2FF39A4 + 76FFC4CDCAFFD1D1D1FF00000000000000002AA777FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF10BF8EFF0DCB95FF0DCC95FF0FC18FFF2ED4A2FF2BA777FF0000 + 000000000000000000000000000000000000000000002C2A29FF33312EFF3231 + 2FFFC4D1D7FFC4D0D7FFC4D0D7FFC4D0D7FFC4D0D8FFC4D0D7FFC4D1D7FFC4D1 + D8FFC4D1D7FFC4D1D7FFC4D1D8FFC4D0D8FFC4D0D8FFC4D1D7FFC4D0D8FFC4D0 + D7FF33302FFF33302FFF0000000000000000000000000ED09AFF11C392FF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF11C191FF0FD09AFF2AA677FFD7906CFFEDA9 + 80FFE8A47DFFEDA980FFEDA980FFE8A47DFFD7906BFF000000001B6ACDFF0486 + EFFF038FF2FF0486EEFF000000000000000000000000ACACACFFDCDCDCFFEDED + EDFF269B6AFF279B6AFF279B6AFF279B69FF279A69FF289A69FF289A68FF289A + 68FF289A68FF289968FF289968FF289968FF289968FF289968FF289968FFCBE8 + DCFFEAEAEAFFD7D7D7FF000000000000000028AA7AFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF0FC793FF0ECE98FF0DCE98FF0DCE98FF0DCE98FF0FC492FF27AA + 7AFF0F342452000604080000000000000000000000002F2E2BFF373534FF3735 + 34FFFBE8D4FFFBE9D3FFFCE9D4FFFBE8D4FFFCE9D3FFFCE8D4FFFBE8D3FFFCE9 + D4FFFBE9D4FFFBE8D3FFFBE9D3FFFBE8D3FFFCE9D3FFFBE9D4FFFCE8D4FFFCE8 + D4FF383634FF373633FF00000000000000000000000013D59FFF10CB97FF0ED3 + 9CFF0FD39DFF0ED39DFF0ED39DFF10C996FF14D5A0FF27AA78FFD7916DFFEDAB + 81FFEBA880FFEDAA82FFEEAA82FFECA880FFD8926CFF000000001E6ED2FF048C + F1FF0391F3FF048BF1FF000000000000000000000000A3A3A3ECE0E0E0FFF9FC + FBFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC + 9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF2899 + 68FFFFFFFFFFDADADAFF000000000000000026AB7BFF0FC390FF10C18FFF0EC9 + 95FF0ECF99FF0DD099FF0DD09AFF0DD099FF0DCF9AFF0DD09AFF0DD099FF0DD0 + 99FF0ED099FF0DCF9AFF0ED09AFF0ED099FF0ED09AFF0ECF9AFF0DCF99FF19C9 + 97FF26AC7BFF0F342452000000000000000000000000302E2CFF3A3836FF3A38 + 36FFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2 + DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2 + DAFF3A3836FF3A3836FF00000000000000000000000016D7A2FF10CE9AFF0FD4 + 9EFF0ED59EFF0FD59EFF0ED49EFF10CC99FF17D7A2FF26AA79FFD8926DFFEDAB + 83FFEDAC82FFEEAC82FFEEAB83FFEEAC82FFD8926DFF000000001F6FD4FF038E + F1FF0393F2FF038EF1FF000000000000000000000000A1A1A1E6EAEAEAFFF4FA + F7FF47CA9DFF23A674FF23A674FF24A472FF24A472FF24A472FF24A472FF24A4 + 72FF24A472FF24A472FF24A472FF24A472FF24A472FF24A472FF23A674FF279B + 6BFFFFFFFFFFE5E5E5FF000000000000000024AD7CFF0FC492FF0ECA96FF0DD1 + 9BFF0DD29BFF0ED29BFF0DD19BFF0ED19AFF0DD19BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD29BFF0ED19BFF0DD19AFF0DD19BFF0DD19BFF0ED19BFF0ED19BFF0FC9 + 95FF19CB99FF24AD7CFF000403060000000000000000312F2EFF3D3B38FF3C3A + 39FFFCE9D5FFFCEAD5FFFCE9D5FFFBEAD6FFFCEAD5FFFCE9D5FFFCE9D6FFFCEA + D5FFFCEAD6FFFCEAD5FFFCEAD5FFFCEAD6FFFBEAD6FFFCE9D5FFFCEAD6FFFBE9 + D5FF3D3B39FF3D3B39FF0000000000000000000000001AD9A5FF0FD29DFF0ED5 + A0FF0FD5A0FF0FD6A0FF0FD69FFF10D19CFF1BD9A6FF25AC7AFFD9936DFFEEAE + 84FFEDAC83FFEEAC83FFEEAC83FFEEAC83FFD9926DFF000000002071D7FF0393 + F3FF0393F3FF0393F3FF000000000000000000000000A7A7A7E3FFFFFFFFEEFA + F5FF5AE0B6FF26C18FFF26C895FF26C895FF26C895FF26C895FF26C895FF26C8 + 95FF26C895FF26C895FF26C895FF26C895FF26C895FF26C895FF26C08EFF23A2 + 70FFFFFFFFFFFFFFFFFF000000000000000021B17FFF0FC995FF0ED49EFF0ED4 + 9EFF0DD49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED4 + 9DFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED5 + 9EFF0ED49EFF0FCF9AFF22B07FFF0F34245200000000353331FF43403EFF4240 + 3EFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D4DBFFC4D3DCFFC4D4DCFFC4D4 + DCFFC4D4DCFFC4D3DCFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D3DBFFC4D3 + DCFF42403EFF43403EFF00000000000000000000000022DDABFF0ED9A3FF0FD9 + A3FF0FD9A3FF0ED8A3FF0ED9A2FF0FD8A3FF25DFACFF22B07EFFD9946EFFF0B2 + 8AFFEFAE85FFEEAE85FFEFAE84FFEFAE84FFD9946EFF000000001584EAFF5DC7 + FBFF5DC7FBFF5DC7FBFF000000000000000000000000A8A8A8E0FFFFFFFFE6F8 + F2FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF21A7 + 74FFFFFFFFFFFFFFFFFF000000000000000020B280FF0FCC98FF0ED5A0FF0ED6 + A0FF0ED69FFF0ED5A0FF0ED59FFF0ED6A0FF0ED69FFF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED5A0FF0ED69FFF0ED69FFF0ED69FFF0ED69FFF0ED59FFF0ED6A0FF0ED5 + A0FF0ED69FFF0ED5A0FF2ADEACFF20B27FFF00000000363432FF454341FF4643 + 40FFFBEAD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEB + D7FFFCEBD7FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEAD8FFFCEB + D8FF454341FF454341FF00000000000000000000000027E0AEFF0EDAA4FF0EDA + A5FF0FDBA4FF0FDAA4FF0FDAA5FF0FDAA4FF29E0AEFF22B17FFFD9946EFFEFB4 + 8CFFEFAF86FFEEAF85FFEFAF85FFEFAF86FFDA936EFF00000000000000001584 + EAFF1584EAFF1584EAFF000000000000000000000000A0A0A0D5FFFFFFFFDDF7 + EFFF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF1EAB + 78FFFFFFFFFFFFFFFFFF00000000000000001FB381FF0FCF9AFF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0FD7A1FF1EB381FF063C2C5200000000383634FF484643FF4846 + 43FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEB + D8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFB2A6 + 9AFF484543FF484543FF0000000000000000000000002CE2B1FF0FDBA6FF0FDC + A5FF0FDBA6FF0FDBA6FF0FDCA6FF0FDCA6FF2EE3B1FF21B381FFDA946EFFF0B7 + 8FFFEFAF86FFEFB086FFEFB086FFEFB086FFDA946FFF00000000000000000000 + 000000000000000000000000000000000000000000007B7B7BA8EFEFEFFFF6FC + FAFF5CE7BDFF23C08DFFECBD96FFECBE97FFECBE97FFECBE97FFECBE97FFECBE + 97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FF24BD8BFF19B3 + 7FFFFFFFFFFFF3F3F3FF00000000000000001BB783FF0FD5A1FF0FDAA4FF0EDA + A4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDA + A4FF0EDAA4FF0FD9A4FF0ED9A4FF0EDAA5FF0FDAA4FF0EDAA4FF0FDAA4FF0EDA + A4FF46E7BAFF1BB684FF0000000000000000000000003B3836FF4E4B49FF4E4A + 49FF4E4B49FF4E4B49FF4E4B48FF3D3A39FF3C3A39FF3C3A39FF3C3A38FF3D3A + 39FF3C3A39FF3D3A38FF3C3A39FF3C3A39FF3D3A38FF3D3A39FF3C3A39FF4E4B + 49FF4E4A48FF4D4A49FF00000000000000000000000037E6B5FF0FDEA9FF0FDE + A8FF0FDEA9FF0FDEA9FF10DEA9FF0FDEA9FF39E6B6FF20B885FFDB956FFFF1BD + 94FFF0B188FFEFB188FFEFB187FFEFB187FFDB956FFF00000000000000000000 + 000000000000000000000000000000000000000000000D0D0D13959595C6C3CE + CAFD54BF9EFF48B48FFEF1C9A0FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CC + A3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CBA2FF46B28CFE18B7 + 83FFBDBDBDE99B9B9BCE000000000000000019B884FF0ED8A3FF0EDBA6FF0FDB + A6FF0EDBA6FF0FDBA6FF0EDBA5FF0FDCA6FF0EDCA6FF0EDBA5FF0FDBA5FF0FDC + A5FF0EDBA6FF0EDBA6FF0FDCA6FF0FDCA5FF0FDBA6FF0FDBA6FF0FDBA6FF4FEA + BFFF1AB885FF063C2C520000000000000000000000003C3938FF504D4BFF504E + 4BFF6D6B6AFF5F5B58FF5F5B58FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8 + C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FF3E3C3AFF504D + 4BFF504D4BFF504D4BFF0000000000000000000000003DE8B8FF0FE0A9FF0FDF + AAFF0FDFAAFF10E0A9FF0FE0AAFF0FDFA9FF3EE8B9FF1FB986FFDB9570FFF2C0 + 97FFF0B188FFF0B187FFEFB288FFF0B188FFDB956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002222 + 22321616162000000000F5D1ABFFF9D8B2FFF8D8B2FFF9D8B2FFF8D8B1FFF9D8 + B2FFF9D8B2FFF8D8B1FFF9D8B1FFF9D8B2FFF9D8B1FFF7D5AFFF161817231616 + 16201010101800000000000000000000000018B985FF0FDCA6FF0FDDA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDD + A7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF18BA + 85FF063C2C52000000000000000000000000000000003D3A39FF534F4DFF5350 + 4DFF5F5B58FF4A4645FF4A4645FFE9E8C4FFE9E9C4FFE9E9C4FFE9E9C5FFE8E9 + C4FFE8E9C4FFE9E8C4FF2F2E2CFF474341FFE9E9C5FFE9E9C5FF413D3CFF534F + 4DFF53504DFF53504EFF00000000000000000000000041E9BAFF0FE1ABFF0FE1 + ACFF0FE0ABFF10E0ABFF10E1ABFF0FE1ABFF43EABBFF1EBB88FFDC956FFFF2C2 + 99FFF0B288FFEFB389FFEFB288FFF0B288FFDC956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3CEA9FFFADBB7FFFADBB7FFF9DAB7FFFADBB7FFF9DB + B7FFF9DBB7FFF9DBB7FFF9DAB7FFFADBB7FFF9DBB7FFF5D2AEFF000000000000 + 00000000000000000000000000000000000013C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF16BC89FF0FE0AAFF0FDFAAFF0FE0AAFF0FE0A9FF6BF2CCFF16BC88FF0000 + 00000000000000000000000000000000000000000000403E3CFF575452FF5754 + 52FF5F5B58FF4A4645FF575452FFEBEBCDFFEBEBCCFFEBEBCCFFEBEBCCFFEBEC + CCFFEBEBCCFFEBEBCCFF2F2E2CFF474341FFEBEBCCFFEBEBCCFF444140FF5754 + 52FF575452FF575452FF0000000000000000000000004CECBEFF10E3AEFF0FE3 + ADFF10E2AEFF0FE2ADFF0FE3AEFF10E3ADFF4EECBFFF1DBE8BFFDC9670FFF5F9 + F7FFF7E1BAFFF7E1BAFFF7E1BAFFF7E1BAFFDC9670FF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2CCA8FFFADDBAFFFADCBAFFFADCBAFFFADDBAFFF9DC + BAFFFADDBAFFFADCBAFFF9DCBAFFFADCBAFFFADCB9FFF4D0ADFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89FF0FE1ABFF10E0ABFF10E1ABFF73F4CFFF14BD89FF063C2C520000 + 00000000000000000000000000000000000000000000413E3DFF5A5654FF5A56 + 54FF5F5B58FF4A4645FF5A5654FFEDECD0FFEDEDD1FFEDEDD0FFEDEDD1FFECEC + D0FFEDEDD0FFECEDD0FF2F2E2CFF474341FFECEDD0FFECECD1FF464341FF5A56 + 54FF5A5654FF595554FF00000000000000000000000051EDC0FF0FE3AFFF10E4 + AFFF10E4AEFF10E4AFFF10E3AFFF10E4AEFF53EDC1FF1DC18DFF54392B58D796 + 70E3F2AF85FFF3AE85FFF2AE85FFF2AE85FF35261D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA6FFFADEBCFFFADEBDFFFADDBCFFFADDBCFFFADE + BDFFFADEBDFFFADDBDFFFADEBCFFFADEBDFFFADDBDFFF3CFACFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8BFF0FE2ACFF10E1ADFF0FE2ACFF13BF8AFF063C2C52000000000000 + 0000000000000000000000000000000000000000000042403EFF5B5855FF5B57 + 56FF5F5B58FF4A4645FF5C5855FFEEEED5FFEEEED5FFEEEED5FFEEEED5FFEEEE + D5FFEEEED5FFEEEED5FF2F2E2CFF474341FFEEEED5FFEEEED5FF484442FF5B57 + 56FF5C5856FF5B5856FF00000000000000000000000056EEC2FF10E5AFFF0FE5 + B0FF10E5B0FF10E4AFFF10E5B0FF10E5B0FF58EEC2FF1CC28FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A4FFFAE0C1FFFBE0C2FFFAE0C1FFFBE0C2FFFAE0 + C2FFFAE0C2FFFAE0C2FFFAE0C1FFFBE0C1FFFAE0C2FFF1CBA8FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18CFF10E3AFFF89F8D7FF11C18CFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000444140FF5F5A58FF5F5B + 58FF5F5B58FF4A4645FF5E5B59FFF0F1DEFFF1F1DDFFF1F1DEFFF1F1DEFFF0F1 + DEFFF1F1DEFFF0F1DEFF2F2E2CFF2F2E2CFFF1F1DDFFF0F1DEFF494645FF5F5A + 59FF5F5B59FF6D6B6AFF0000000000000000000000005FEFC4FF10E7B1FF10E7 + B1FF10E6B1FF10E7B1FF10E6B1FF10E6B1FF61EFC5FF1CC591FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A4FFFBE2C3FFFAE1C4FFFBE1C3FFFAE2C3FFFBE1 + C4FFFAE1C4FFFBE1C4FFFBE1C3FFFBE1C3FFFBE1C4FFEFC8A6FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28DFF8EF9D8FF10C28DFF063C2C520000000000000000000000000000 + 00000000000000000000000000000000000000000000454241FF8D8C8BFF6D6B + 6AFF5F5B58FF4A4645FF6D6B6AFFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFB + F5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FF555353FF6D6B + 6AFF8D8C8BFF454240FF00000000000000000000000063F0C5FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF65F0C5FF1CC792FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7 + A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A5FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28DFF0FC28DFF063C2C52000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A37369B454241FF4542 + 40FF5F5B58FF4A4645FF454241FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3 + B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFF4F3E4FF363333FF4542 + 41FF454240FF1F1D1D5A00000000000000000000000068F0C7FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF68F0C7FF1DC894FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48FFF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001BCB97F420CA97F421CB + 98F421CB98F421CB98F421CB98F41FCB97F418C390EC00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202220A0A0938000000380000003800000038000000380000 + 0038000000380000003800000038000000380A0A093C02020222000000000000 + 0000000000000000000000000000000000000000000000000002000000040000 + 0002000000000000000B000000180000002A0000002900000029000000290000 + 00290000002900000028000000260000001A0000000900000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82FF8E8F82FF8E8F82FF8E8F82FF8E8F + 82FF8E8F82FF8E8F82FF8E8F82FF8E8F82FF1313122002020205000000000000 + 0000000000000000000000000000000000000000000000000004000000060000 + 00090000000C0000001000000025349E6FFF349E6FFF349E6FFF349E6FFF349E + 6FFF349E6FFF349E6FFF349E6FFF349E6FFF0000002400000021000000150000 + 000B000000090000000900000003000000020000001E00000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000520000003200000000BD8B6BFBD39E7AFFD39E + 7BFFD39E7AFFD39E7AFFD39E7AFFD49E7AFFD49E7AFFD49E7AFFD49E7AFFD49E + 7AFFD49E7AFFD49F7AFFD49F7AFFD49F7AFFD49F7AFFD59F7AFFD59F7AFFD59F + 7AFFD59F7AFFD59F7AFF73513D9F000000000000000000000000000000000000 + 0000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFA5A69BFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070FF3CD7A7FF13B98CFF13B98CFF13B9 + 8CFF13B98CFF13B98CFF3CD7A7FF329F70FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFF1361DFFF1361 + DFFF1361DFFF1361DFFF0F3EB0FFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFCC8865FF0000000000000000C29372FFF5C49CFFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF5C49CFFD09775FF020101030000000000000000000000000000 + 0000000000000000000000000000C2C3B4FFF0F0ECFFF0F0ECFFF0F0ECFFF0F0 + ECFFF0F0ECFFF0F0ECFFF0F0ECFFC2C3B4FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031A171FF39D7A6FF0CC78FFF0CC78FFF0CC7 + 8FFF0CC78FFF0CC78FFF39D7A6FF32A171FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFE59E + 75FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDC936FFF0353DCFF0353 + DCFF0352DBFF0353DBFF0F3FB1FFDD946FFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFE59E75FFCC8865FF0000000000000000DDAB86FFC59674FFF5C9 + A3FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B6 + 90FFE8B690FFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B6 + 8FFFF5C9A3FFCF9D7AFFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFA5A69BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000030A272FF34D5A4FF0CC790FF0CC790FF0CC7 + 90FF0CC790FF0CC790FF34D6A5FF31A272FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CD8965FFEEA97AFFDF97 + 72FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDB916EFF0455DCFF0455 + DCFF0454DCFF0454DCFF0E40B3FFDC926EFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFDF9772FFCD8965FF0000000000000000F4C49BFFF0C198FFE7B8 + 91FFF7D3B4FFEBBD96FFF5C89FFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C7 + 9EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFEBBC96FFD8A6 + 82FFECB890FFF2BD94FFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000818277FF818277FF818277FF8182 + 77FF818277FF818277FF818277FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA474FF29D3A1FF0DCA92FF0DCA92FF0DCA + 92FF0DCA92FF0DCA92FF29D3A1FF2EA473FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CE8A66FFEEA97BFFE19A + 74FFECA77FFFECA77EFFECA77EFFECA87FFFECA87EFFE09873FF0657DEFF0657 + DEFF0657DFFF0657DFFF0E42B7FFE29974FFECA77FFFECA77FFFECA77FFFECA7 + 7FFFECA87FFFE19974FFCE8A66FF0000000000000000F5C89EFFF5C89EFFF4C7 + 9DFFD3A582FFF8D9BCFFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CA + A1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF8D9BCFFF1BE + 96FFF4C198FFF4C198FFD09775FF02020104A5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002CA675FF23D29FFF0DCB93FF0DCB93FF0DCB + 93FF0DCB93FF0DCB93FF23D19FFF2DA574FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CF8A67FFEEA97CFFE39C + 76FFEDA981FFECA980FFECA980FFECA980FFECA980FFDE9671FF0759E0FF0759 + E0FF0759DFFF0759E0FF0D44BAFFE09772FFECA880FFEDA980FFECA980FFEDA9 + 80FFEDA980FFE39C76FFCF8B67FF0000000000000000F5C89EFFF5C89EFFF5C8 + 9EFFF3C59CFFDBAD88FFF9DFC5FFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C5 + 9DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF9DFC7FFE2B38DFFF4C4 + 9BFFF4C49BFFF4C49BFFD09775FF03020104A5A69BFFC3C4B5FFC2C3B5FFC2C4 + B5FFC3C4B4FFC2C4B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C3 + B5FFC3C3B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C4B4FFC3C4 + B5FFC3C3B4FFC2C4B5FFC3C3B5FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002BA676FF1DD09DFF0DCC94FF0DCC94FF0DCC + 94FF0DCC94FF0DCC94FF1DD19CFF2BA676FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000D08B68FFEEA97DFFE49F + 78FFEEAA81FFEEAB82FFEDAA82FFEDAB82FFEDAA82FFDC936FFF095AE1FF095A + E1FF085AE1FF095AE1FF0D45BDFFDD9470FFEEAB81FFEDAA82FFEEAA81FFEDAB + 82FFEEAA81FFE49F78FFCF8B67FF0000000000000000F6CDA4FFF6CDA4FFF6CD + A4FFF5CCA3FFF5CCA3FFF5CCA3FFFBE8D4FFE9B790FFE9B790FFE9B790FFE9B7 + 90FFE9B790FFE9B790FFE9B790FFE9B790FFECBF97FFF5C89FFFF5C89FFFF5C8 + 9EFFF5C89EFFF5C89EFFD09775FF03020104A5A69BFFE4E3DBFFE4E3DBFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFC7C7B8FFA5A69BFF28AA7AFF28AA7AFF27AA79FF28AA + 79FF28AA79FF28AA79FF28AA79FF27AA79FF14CE99FF0DCF98FF0DCF98FF0DCF + 98FF0DCF98FF0DCF98FF13CF99FF28A979FF29A978FF28A979FF28A978FF29A9 + 78FF28A978FF29A978FF29A978FF0000000000000000D28E69FFEFAE82FFECA9 + 81FFF0B086FFF0B086FFF0B086FFF0AF86FFF0AF86FFD68A68FF0D60E4FF0D60 + E4FF0D60E4FF0D60E5FF0E4DC8FFD78B69FFF0B086FFF0B086FFF0B086FFF0AF + 86FFF0AF86FFECAA81FFD28D69FF0000000000000000F6D0A7FFF6D0A7FFF6D0 + A7FFF6CFA6FFF6CFA6FFF6CFA6FFFDF2E6FFFDF4EAFFFBEBD9FFFBEBD9FFFBEB + D9FFFBEBD9FFFBEBD9FFFDF4EAFFFDF4EAFFF5CBA2FFF5CBA2FFF5CBA2FFF5CA + A1FFF5CAA1FFF5CAA1FFD09775FF03020104A5A69BFFD69773FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFC7C9B9FFA5A69BFF26AC7BFF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE98FF0DD099FF0DD099FF0DD0 + 99FF0DD099FF0DD099FF11CE98FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF27AA79FF0000000000000000D38E69FFEAA77DFFE8A5 + 7EFFEBA880FFEBA880FFEBA880FFEBA880FFEBA880FFD38564FF0E62E6FF0E62 + E6FF0E61E5FF0E62E6FF0E50CCFFD38665FFEBA881FFEAA981FFEBA880FFEBA8 + 80FFEBA880FFE8A57DFFD38E6AFF0000000000000000F7D3AAFFF7D3AAFFF7D3 + AAFFF6D2A9FFF6D2A9FFF6D3AAFF3786A9FF0685C4FF0685C5FF0299E8FF0299 + ECFF0299EFFF038FE3FF038FE3FF4FA4D4FFF6D0A8FFF6CEA5FFF6CEA5FFF6CD + A4FFF6CDA4FFF6CDA4FFD09775FF03020104A5A69BFFE6A47EFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFC9CABBFFA5A69BFF24AE7CFF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF11C996FF11C996FF11C996FF0DD29BFF0DD29BFF0DD2 + 9BFF0DD29BFF0DD29BFF0DD29BFF11C996FF11C996FF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF26AC7BFF0000000000000000D48F6AFFDB926EFFDA90 + 6EFFDB926EFFDB926EFFDB926EFFDB926EFFDB926EFFCE7F5FFF1064E7FF1064 + E7FF1064E7FF1064E7FF1054D0FFCE8060FFDB916EFFDB926EFFDB926EFFDB92 + 6EFFDB916EFFDB926EFFD48F6BFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF7D7B1FFF9E2CAFF0C8ABAFF069AD6FF04AFF2FF03AFF5FF03ACF6FF02AA + F6FF02A8F6FF02A3F6FF01A2F7FF01A0F7FF019DF7FFF9E2CAFFF2D7B6FFF7D3 + AAFFF7D3AAFFF7D3AAFFD09775FF03020104A5A69BFFE6A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCDBEFFA5A69BFF21B17FFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF22AF7DFF0000000000000000D6916CFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFF1368E9FF1368 + E9FF1367EAFF1367EAFF125BD9FFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFD6906CFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF8DFC3FF0997CAFF0999CEFF05B5F4FF05B5F5FF04B4F5FF04B1F5FF03AE + F5FF03ACF6FF02A8F6FF02A7F6FF02A5F6FF01A0F7FF019FF7FFF8DFC3FFF7D8 + B2FFF7D5ADFFF7D5ADFFD09775FF03020104A5A69BFFE5A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCEBFFFA5A69BFF1FB280FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF20B17FFF0000000000000000F4B78DFFF5B88DFFF4B8 + 8DFFF4B78DFFF4B78DFFF4B88DFFF4B88DFFF4B88DFFF0AF86FF1469EBFF1469 + EBFF166BEBFF1369EBFF135EDDFFF2B289FFF4B78DFFF4B78DFFF4B88DFFF4B8 + 8DFFF4B88DFFF5B78DFFF5BC93FFD7916CFF00000000F7D5ADFFF7D5ADFFEED2 + B0FB0B9BCAFF0AA5D6FF09AFE4FF06B9F5FF06B8F5FF05B6F5FF05B5F5FF04B2 + F5FF04B1F5FF03ACF5FF02ABF6FF02AAF6FF02A5F6FF02A3F6FF01A2F7FFF5D7 + B5FFF4D6B4FCF7D5ADFFD09775FF03020104A5A69BFFE5A37EFFE9A680FFE8A6 + 80FFE9A680FFE8A680FFE8A680FFE9A680FFE9A680FFE9A680FFE8A680FFE8A6 + 80FFE8A780FFE8A680FFE8A780FFE9A680FFE9A780FFE9A680FFE9A681FFE8A6 + 80FFE8A780FFE8A680FFCECFC0FFA5A69BFF1EB482FF10D8A1FF10D8A1FF10D8 + A1FF10D8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF20B280FF0000000000000000F5B98FFFEFB087FFEFB0 + 87FFEFB087FFEFB087FFEFB087FFEFAF87FFEFB087FFE8A57EFF146BECFF146B + ECFF2073EEFF156AECFF1462E0FFEAA780FFEFB087FFEFB087FFEFB087FFEFB0 + 87FFEFB087FFEFB087FFF5BD94FFD8926DFF00000000F1D3B3FBF5D8B7FFC9A5 + 8AFF35C4E7FF0BC3F4FF0BC3F4FF0AC1F4FF09C0F4FF08BEF4FF07BCF5FF06B9 + F5FF06B8F5FF05B5F5FF04B4F5FF04B2F5FF36AAD7FFA89D90FFC3A289FFE1B5 + 93FFF5D8B7FFF5D8B7FFDFB090FF03020104A5A69BFFE6A681FFEAAA84FFEAA9 + 84FFEBA983FFEBA983FFEBA984FFEAAA83FFEAAA83FFEBA983FFEAAA83FFEBAA + 83FFEAAA84FFEAAA83FFEBA983FFEAA983FFEAAA84FFEBAA83FFEBA983FFEAAA + 83FFEAAA84FFEAAA83FFD1D2C3FFA5A69BFF1AB784FF16DBA6FF16DBA6FF16DB + A6FF16DBA6FF15DBA6FF15DBA6FF15DBA6FF14DBA6FF14DBA6FF14DBA6FF14DB + A6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DB + A5FF13DBA5FF12DBA5FF1CB683FF0000000000000000F7C79FFFF2B58CFFF6BB + 90FFF6BC90FFF6BB90FFF6BB91FFF6BB90FFF6BB90FFEAA780FF176DEEFF176D + EEFF5196F4FF176EEDFF1568E7FFEAA780FFF6BB90FFF7BB91FFF6BB91FFF6BB + 91FFF6BB90FFF6BB90FFF7C7A0FFD9936EFF00000000E8C2A2FDE6BA96FFE0B2 + 90FF9EA598FF55D2EAFF0CC5F3FF0BC3F4FF0BC3F4FF0AC2F4FF09C0F4FF08BD + F4FF07BCF5FF06B8F5FF05B6F5FF0AB6F3FFBE9F88FFCDA88CFFDEB593FFE8BB + 97FFE8BC97FFE8BC97FFC39071EA00000000A5A69BFFE6A881FFECAB85FFECAC + 86FFEBAC85FFEBAB85FFEBAB85FFECAB85FFEBAC85FFECAC85FFEBAC85FFEBAC + 85FFECAB85FFEBAC85FFEBAC85FFECAC85FFEBAB85FFECAC85FFECAB85FFECAC + 85FFECAC85FFEBAC85FFD3D4C5FFA5A69BFF18B885FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF90F9D9FFF5F9F7FF1FDDA9FF19DCA7FF19DCA7FF19DC + A7FF18DCA7FF18DCA7FF1DDDA9FFF5F9F7FF90F9D9FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF1AB784FF0000000000000000F8CCA6FFF3B78DFFF6BC + 91FFF7BC91FFF7BC91FFF7BC91FFF6BC91FFF6BD91FFEAA881FF176EEEFF1970 + EEFF69A8F7FF176FEEFF166BEAFFE6A27CFFF7BC91FFF7BD91FFF7BC91FFF6BC + 91FFF6BC92FFF6BC91FFF8CCA6FFDA946EFF00000000DAA886FFECCAACFEE7BB + 98FFD7AE90FFB3A793FF74D9EAFF0CC5F3FF0BC3F3FF0BC3F4FF0BC3F4FF0AC1 + F4FF09C0F4FF07BCF4FF21B7E6FF97A49DFFD8B292FFE4B996FFE9BD99FFE9BE + 99FFE9BE9AFFEECFB1FD5642356500000000A5A69BFFE8A983FFECAE87FFECAE + 87FFEDAE87FFEDAE87FFECAE87FFECAD87FFECAE87FFEDAE87FFEDAE88FFEDAE + 87FFECAE88FFEDAE87FFEDAE87FFECAD87FFEDAE87FFECAE87FFECAE87FFECAE + 87FFECAE88FFECAE87FFD4D5C8FFA5A69BFF17BA87FF17BB87FF17BA86FF17BA + 86FF18BA87FF17B986FF17BA87FF17BA86FF2AE0ADFF1DDDA9FF1DDDA9FF1DDD + A9FF1CDDA9FF1CDDA9FF28E0ADFF18B986FF18B986FF18B986FF18B986FF18B9 + 86FF18B986FF19B985FF19B985FF0000000000000000F9DFC7FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFE7A47EFF186FEFFF277A + F1FF7AB4F9FF186FEFFF186EEEFFE7A47EFFF7BE93FFF7BE93FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFFAE8D8FFDA946FFF000000000000000055413464DAA8 + 86FFEAC09BFFE9BE99FFE5BB98FF9CE8F3FF11CDF2FF0FCAF3FF0DC8F3FF0CC5 + F3FF0EC9F4FFC1A78FFFDAB595FFE8BF9CFFECC29DFFECC29DFFECC39DFFF2D6 + B9FDDEAE8DFF564235650000000000000000A5A69BFFE8AC86FFEFB38CFFEFB3 + 8CFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB28CFFEFB38BFFEFB28CFFEFB3 + 8CFFEFB28BFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB38BFFEFB28CFFEFB3 + 8BFFEFB38BFFEFB28CFFD7D7CBFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000014BC88FF3FE4B3FF26DEABFF25DEABFF25DE + ABFF25DEABFF24DEABFF3CE3B2FF15BC88FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000DA9570FFAE8989FF3648 + 99FF1E3592FF454C91FF615178FFB67E62FFBF8260FF95654AC7146BECFF146B + ECFF146BECFF146BECFFBF8260FF95654AC7B67E63FF8C6B70FF7F708EFF203E + 9AFF1A3B9BFF374E9DFFDA9570FF8D654A8F0000000000000000000000005541 + 3464F2D8BDFDECC19EFFEBC19CFFCBB99EFFAFEEF8FF12CEF2FF10CCF3FF13CE + F3FF5CBFC8FFE3BD9AFFECC39EFFEEC59FFFEEC59FFFEEC59FFFEEC5A0FFDFB0 + 8EFF57433566000000000000000000000000A5A69BFFE9AD87FFF1B58EFFF1B5 + 8EFFF1B58EFFF0B58EFFF0B58DFFF0B58EFFF0B58EFFF1B58EFFF1B58EFFF0B5 + 8EFFF1B58EFFF1B58DFFF1B58EFFF1B58EFFF0B58DFFF1B58DFFF0B58DFFF0B5 + 8DFFF0B58EFFF1B58EFFD7D8CCFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BE8AFF46E5B5FF2ADEABFF29DEABFF29DE + ABFF29DEABFF29DEABFF45E5B5FF14BE89FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000017234F7C0E33A0FF1F5D + CEFF0D46BBFF0B4ECBFF0A44BBFF0C2890FF1C3796FF5B5684FF062E9EFF062E + 9EFF062E9EFF062E9EFF947272FF5C5984FF0F379EFF0D3FADFF0C4CC4FF0E48 + BEFF1662DFFF2063D4FF615A75C6000000010000000000000000000000000000 + 0000DCAA88FFF5DBC1FEEDC59FFFECC39DFFCDC2A6FFBFF1FAFF15D3F2FF5AC7 + CEFFDCB998FFEEC7A1FFEEC7A1FFEFC8A2FFEFC8A2FFEFC8A2FFF4DBC0FD5844 + 366800000000000000000000000000000000A5A69BFFEAAF89FFF1B78FFFF1B7 + 90FFF1B890FFF1B790FFF2B790FFF2B890FFF1B790FFF1B790FFF1B890FFF1B8 + 90FFF2B890FFF2B890FFF2B790FFF1B790FFF2B790FFF2B890FFF2B78FFFF2B7 + 8FFFF2B790FFF1B790FFD8DACEFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BF8BFF4CE6B7FF2EDEABFF2EDEABFF2DDE + ABFF2DDEABFF2DDEACFF4BE6B7FF13BF8BFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000C317FB61653C5FF3880 + EDFF0E50CCFF0C5FE3FF0448CEFF0E35A5FF0E34A4FF0D35A6FF103CADFF4990 + F1FF4990F1FF103CADFF1345B2FF0E36A3FF0E35A5FF0E35A5FF0D40B5FF0E50 + CCFF387BECFF3880EDFF0C317FB6000000000000000000000000000000000000 + 00000000000058443668DDAD8BFFF0CAA3FFF1CBA4FFF1CBA4FFF0CBA4FFF1CC + A4FFF2CCA5FFF2CDA5FFF2CDA5FFF3CEA6FFF5DDC3FDE1B593FF5B46376B0000 + 000000000000000000000000000000000000A5A69BFFEBB18BFFF4BB93FFF3BB + 94FFF3BB94FFF3BB94FFF4BB93FFF4BB94FFF4BB93FFF4BB94FFF3BB94FFF3BB + 94FFF3BC94FFF4BB94FFF3BB94FFF3BB93FFF4BC93FFF3BB94FFF4BB93FFF4BB + 94FFF4BB94FFF4BB94FFDBDBD0FFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000011C28CFF53E8B9FF35DDABFF34DDABFF34DD + ABFF34DEABFF34DEABFF53E8B9FF11C18CFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000B317FB7215BCAFF5195 + F8FF0C5BDDFF0C5FE3FF0E60E3FF2672E6FF2A6CDDFF124FCBFF123AA3F4173F + A5EF1241AEFF1241ABF80E45B6FD0D4CCBFF206CE4FF2270E7FF0E60E3FF0C5B + DDFF5091F6FF5195F8FF0B317FB7000000000000000000000000000000000000 + 000000000000000000005A45376AF7DFC6FEF7DEC2FFF7DEC2FFF7DEC2FFF7DE + C2FFF7DFC2FFF7DFC3FFF7DFC3FFF8DFC3FFE2B695FF5D47386D000000000000 + 000000000000000000000000000000000000A5A69BFFEBB28CFFF4BD94FFF4BC + 95FFF4BC95FFF4BC95FFF5BD95FFF4BD95FFF4BC95FFF4BD95FFF4BD95FFF5BD + 95FFF4BC95FFF4BD95FFF4BD95FFF5BD95FFF5BD95FFF4BD95FFF4BD95FFF4BD + 95FFF4BD94FFF5BD94FFDBDCD0FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000FC38DFF54E9BAFF37DDABFF37DDABFF37DD + ABFF37DDABFF37DDABFF54E9BAFF10C28DFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000928699A2158C7FF579B + FDFF1C6CE6FF3781ECFF478AEBFF0D48C8FF0D40B8FE0D34A0F2000001030000 + 00000000000000000203061B486C0F3EA5F20D49C8FF2464D8FF478AEBFF1C6C + E6FF5698FCFF579BFDFF0928699A000000000000000000000000000000000000 + 0000000000000000000000000000B28B6FCDE8BC98FFE8BC98FFE8BC98FFE8BD + 98FFE8BD99FFE8BE99FFE8BE99FFE9BE99FF5E48386E00000000000000000000 + 000000000000000000000000000000000000A5A69BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFDCDDD1FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000EC38EFF79EDC8FF3ADCABFF39DCABFF39DC + ABFF39DCABFF39DDABFF79EDC8FF0FC38EFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000061C4A6F1B50BEFF599C + FDFF97C3FAFF1859D4FF0D47C7FF0D36A4F70820629500030B11000000000000 + 000000000000000000000000000001040B110F40A9F70E46BCFF0D48C7FF97C3 + FAFF9BC8FDFF599CFDFF061C4A6F000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FF0000000000000000000000000000 + 00000000000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963791143 + B8FF0C3296DC071C578501030C13000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C130C3A + 9ADC0E42B0FB1249BBFF00000203000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00010000000300000005000000060000000C0000000E00000010000000140000 + 0011000000100000000C00000009000000060000000300000002000000010000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C0E33246A339F + 70FF0E33247F0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000001E000000320000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000003200000000000000000000000000000000000000000000 + 0002000000070000000A0000000C0000001C00000021000000240F34247F339F + 70FF0000002E00000021000000110000000D0000000600000003000000020000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523AD6A6FF13BA + 8CFF3AD6A6FF0F34245200000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF3569DCFF3569DCFF3569DCFF3569DCFF173BB6FF063384FF093889FF0938 + 89FF093889FF0C3C8FFF063384FF173BB6FF3568DCFF3568DCFF3568DCFF3568 + DCFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523CD7A7FF32A0 + 71FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245232A171FF13BA8CFF13BA + 8CFF13BA8CFF31A071FF0F342452000402050000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF366DDDFF366DDDFF366DDDFF366CDDFF173BB6FF063384FF13469DFF1346 + 9DFF13469DFF0E3E92FF063384FF173BB6FF366CDDFF366CDDFF366CDDFF366C + DDFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245230A271FF17CA95FF31A1 + 72FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A172FF35D5A5FF11BE8EFF12BD + 8EFF13BB8DFF35D5A5FF30A172FF0F3424520000000000000000000000000000 + 0000000000000000000000000000000000000000001800000021000000210000 + 00250000002A0000002A0000002A0000002A0000002A0000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A0000002A0000002A000000280000 + 0021000000210000001B00000000000000000000000000000000000000002E54 + D4FF5799EBFF5799EBFF5799EBFF72B7FFFF173BB6FF063384FF1548A0FF1448 + A0FF14489FFF114297FF063384FF173BB6FF5799EBFF5799EBFF5799EBFF5799 + EBFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A373FF39D6A6FF1FCE9AFF30A3 + 73FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245230D4A3FF12BD8EFF12BD8EFF0DCB95FF0DCB + 96FF0DCB95FF12BD8EFF12BD8EFF30D4A3FF0F34245200040205000000000000 + 00000000000000000000000000000000000000000010BD8462F1E8A97FFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFD595 + 70FF140E0B4A0000002700000000000000000000000000000000000000000000 + 0000D4D4D4FFBFBFBFFFBFBFBFFFBFBFBFFF9C9C9CFF063384FF194FA7FF184E + A7FF184EA7FF184EA5FF063384FF9C9C9CFFBFBFBFFFBFBFBFFFC3C3C3FFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245234D5A4FF10BF8EFF10BF8EFF30D4A2FF2DA5 + 75FF00000000000403060004030600040306000403060009060C000403060004 + 0306000403060004030600040306000302040000000000000000000000000000 + 0000000000000F3424522DA575FF12BE8FFF12BE8FFF0ECC97FF0ECC96FF0DCC + 96FF0ECC96FF0ECD97FF12BE8EFF12BF8FFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000B57D5BEFF6BB91FFE09B + 73FFD5916AFFD6926BFFD8946CFFD8956DFFD9956DFFDA966FFFDB976FFFDB97 + 6FFFDB976FFFDD9971FFDE9971FFDE9971FFE09A72FFE09A72FFE09B73FFE09C + 74FFB07C5ECD0000000000000000000000000000000000000000000000000000 + 0000D4D5D5FFBFBFBFFFCBCBCBFFCDCDCDFF9C9C9CFF063384FF093889FF0938 + 89FF093889FF1951AAFF063384FF9C9C9CFFCBCBCBFFCBCBCBFFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000008050A0F3424522CA675FF10C08FFF10C08EFF0DCA94FF37D6A5FF2BA7 + 76FF2CA676FF2CA676FF2CA676FF2BA676FF2BA676FF2BA675FF2BA676FF2CA6 + 76FF2CA675FF2CA676FF2BA675FF2CA676FF0000000000000000000000000000 + 00000F3424522CA676FF2AD3A2FF11C090FF0ECD98FF0ECD98FF0ECE97FF0ECD + 98FF0DCE97FF0ECE98FF0ECD98FF11C190FF2AD4A1FF2CA676FF0F3424520000 + 00000000000000000000000000000000000000000000B67E5CEEFDEFE2FFEDAC + 83FFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A3 + 7AFFE9A47AFFE9A47AFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE19C + 74FFD3946FFB0000000000000000000000000000000000000000000000000000 + 0000D6D6D6FFC3C3C3FFD3D3D3FFD6D6D6FF9C9C9CFF063384FF1D58B0FF1D57 + B0FF1D57AFFF114498FF063384FF9C9C9CFFD6D6D6FFD3D3D3FFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000F3424522BA777FF2ED4A2FF10C18FFF0DCC95FF0DCB95FF0DCB95FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF2AA777FF0000000000000000000000000F34 + 245224D4A1FF10C995FF10C995FF0ED09BFF0ED09AFF0ED09AFF0ED09BFF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF0ED09AFF10C996FF10C995FF24D4A1FF0F34 + 24520000000000000000000000000000000000000000B67E5DECF4C196FFEDB1 + 87FFE19C74FFEAA57CFFEAA57CFFEAA67DFFEAA67DFFEAA67DFFEAA67DFFEAA6 + 7DFFEAA67DFFEBA77DFFEBA77EFFEBA77EFFEBA87EFFEBA87EFFEBA87EFFEAA7 + 7EFFE6A57BFFC88D6BEE00000000000000000000000000000000000000000000 + 0000D9D9D9FFD0CFCFFFD8D8D9FFD8D9D9FF9C9C9CFF063384FF215EB8FF205D + B7FF205EB7FF1952A9FF063384FF9C9C9CFFD9D8D8FFD9D8D8FFC4C4C4FFB3B3 + B3FF000000000000000000000000000000000000000000000000000604080F34 + 245219C895FF0FC492FF0DCE98FF0DCF98FF0DCE98FF0ECE98FF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF19D29FFF28AA7AFF00000000000000000F34245227AB + 7AFF0FCC98FF0FCC97FF0ED19CFF0ED19CFF0ED19CFF0ED19BFF0FD19CFF0ED2 + 9CFF0ED19CFF0ED29BFF0ED19CFF0ED29CFF0ED19BFF0FCB97FF0FCC98FF27AA + 7AFF0F34245200000000000000000000000000000000B7805EEBF3C297FFCC8F + 69FFE19E76FFEAA67DFFEBA87EFFEBA87EFFEBA87EFFEBA87FFFECA97FFFECA9 + 7FFFECA97FFFECA97FFFECAA80FFECAA80FFECAA80FFECAA80FFEDAA80FFEDAB + 81FFE9A77EFFDB9C76FE00000000000000000000000000000000000000000000 + 0000DADADAFFD6D6D6FFDADADAFFDADADBFF9C9C9CFF063384FF3786D5FF3786 + D5FF3786D5FF1E5AB2FF063384FF9C9C9CFFDADADAFFDADADAFFCCCCCCFFB3B3 + B3FF0000000000000000000000000000000000000000000000000F34245226AC + 7BFF0FC793FF0DCF99FF0ECF9AFF0DD099FF0ED099FF0ED09AFF0DD099FF0ED0 + 99FF0DD099FF0ED099FF0DD09AFF0DCF9AFF0DCF9AFF0DD09AFF0DD099FF0DD0 + 9AFF0EC995FF10C18FFF20D6A2FF26AB7BFF000000000F34245226AC7BFF1ED4 + A1FF0FCF9AFF0ED39DFF0ED39DFF0ED29DFF0ED39DFF0ED29DFF0FD39DFF0ED3 + 9DFF0ED29DFF0ED39DFF0ED39DFF0ED39DFF0FD29DFF0ED39CFF10CE99FF1ED4 + A1FF26AC7AFF0F342452000000000000000000000000B77F5EE9F3C397FFC286 + 61FFE8AB82FFE5A47AFFECAA80FFEDAA80FFEDAB81FFEDAB81FFEDAB81FFEDAB + 81FFEDAC82FFEDAC82FFEDAC82FFEEAC83FFEEAD83FFEEAD83FFEEAD84FFEEAD + 84FFEDAD83FFE9AA80FF00000000000000000000000000000000000000000606 + 060BDCDBDBFFDCDCDBFFDBDCDBFFDBDBDCFF9C9C9CFF063384FF2260BAFF2260 + BAFF2260BAFF2260BAFF063384FF9C9C9CFFDBDBDBFFDBDBDCFFD3D3D3FFADAD + ADFF2C2C2C4B000000000000000000000000000000000F34245224AD7CFF19CB + 99FF0DD19BFF0ED19BFF0ED19BFF0ED19BFF0DD19BFF0DD19AFF0DD19BFF0DD2 + 9BFF0ED19BFF0ED19BFF0DD19BFF0DD19BFF0DD29BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD19BFF0ECA96FF27D9A6FF24AD7CFF0F342452D0F5EBFF57E7BEFF57E7 + BEFF56E9BFFF57EABFFFCEF5EBFF0ED59FFF0ED5A0FF0ED5A0FF0ED5A0FF0ED6 + A0FF0ED5A0FF0FD6A0FF0ED59FFF0ED59FFF23DBA9FFCEF5EBFF56EABFFF57E7 + BEFF57E7BEFFD0F5EBFF0F3424520000000000000000B78060E7F2C499FFCC90 + 6AFFEEC499FFEBAC83FFEDAD84FFF0B086FFF0B187FFF0B187FFF1B188FFF1B1 + 88FFF1B288FFF1B388FFF1B389FFF1B389FFF1B489FFF1B489FFF2B48AFFF2B4 + 8BFFF2B48BFFF3B58BFF936A50AD000000000000000000000000000000001935 + BFFF9F9F9FFFD4D4D5FFDEDFDEFFDFDEDEFF9C9C9CFF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF9C9C9CFFDEDEDFFFDEDEDFFFD1D0D0FFA3A3 + A3FE1226ADFF0000000000000000000000000F34245217D09CFF0FCF9AFF0ED4 + 9EFF0DD49EFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED4 + 9EFF0ED49DFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED4 + 9EFF0ED49EFF0ED49EFF34DFB0FF21B17FFF21B17EFF21B17FFF21B17FFF20B1 + 7FFF21B17FFF21B17FFF19B885FF0FD7A2FF0ED7A1FF0ED7A1FF0FD7A1FF0FD6 + A1FF0FD7A2FF0FD6A1FF0FD7A1FF0ED7A1FF27DEACFF18B985FF21B07EFF21B1 + 7FFF21B17EFF21B17EFF21B17FFF0000000000000000B88160E5F2C79AFFD195 + 6EFFE5B287FFEFC094FFECAF85FFF2B48AFFF2B48AFFF2B48BFFF3B58BFFF3B6 + 8BFFF3B68BFFF3B68BFFF3B68CFFF3B68CFFF4B78DFFF4B78DFFF4B78DFFF4B8 + 8EFFF4B88EFFF4B88EFFCA926FEE000000000000000000000000000000001935 + BFFFA1A1A1FF9F9F9FFFD5D5D5FFE0DFDFFFDFE0E0FFE0DFE0FF2A8F60FF0CC7 + 90FF2A8F60FFE0E0E0FFE0DFE0FFE0E0DFFFDFE0E0FFD2D2D2FF9C9C9CFF4275 + DBFF1226ADFF00000000000000000000000020B27FFF0ED6A0FF0ED5A0FF0ED6 + 9FFF0ED69FFF0ED6A0FF0ED59FFF0ED69FFF0ED69FFF0ED69FFF0ED5A0FF0ED5 + A0FF0ED69FFF0ED59FFF0ED59FFF0ED69FFF0ED5A0FF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED6A0FF0ED5A0FF3CE2B4FF20B280FF0000000000000000000000000000 + 0000000000000000000017BB87FF0FD8A3FF0FD8A3FF0FD8A3FF0FD8A2FF0FD9 + A3FF0FD8A2FF0FD8A2FF0ED9A3FF0ED8A3FF2CE0AEFF17BA87FF000000000000 + 00000000000000000000000000000000000000000000B88261E4F1C89BFFD69A + 72FFD79B73FFF0C99CFFF2B58BFFF4B78DFFF4B88DFFF4B88EFFF4B88EFFF4B9 + 8EFFF4B98EFFF5B98FFFF5B98FFFF5BA8FFFF6BA90FFF6BB90FFF6BB90FFF6BB + 90FFF6BB90FFF6BB90FFE8AD85FF624836730000000000000000000000001935 + BFFF4275DBFFA2A2A2FF9F9F9FFFE1E1E1FFE1E1E1FFE1E1E1FF0CC790FF2A8F + 60FF2E54D4FF2A8F60FFE1E1E1FFE1E1E1FFD2D2D2FF9D9D9DFFA4A5A5FF4A8D + EBFF1226ADFF000000000000000000000000063C2C5233E1B1FF0FD7A1FF0ED7 + A1FF0FD7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7A1FF0FD6 + A1FF0ED7A1FF0ED7A1FF42E5B7FF1FB381FF0000000000000000000000000000 + 0000000000000000000014BD8AFF0FDBA5FF0FDBA6FF0FDBA6FF0FDBA6FF0FDA + A5FF0FDBA6FF0FDBA5FF0FDAA6FF0FDBA5FF35E4B4FF14BD8AFF000000000000 + 00000000000000000000000000000000000000000000B88362E1EFC99CFFDFA3 + 7BFFDFA37BFFE2A77FFFFFFAF1FFFDF1DFFFFDEFDBFFFDEDD9FFFCEAD2FFFBE9 + CFFFFAE7CCFFF9E2C4FFF9E1C1FFF8DFBEFFF8DDBAFFF7DCB8FFF7DCB8FFF6DB + B7FFF6DAB6FFF6DAB6FFF5D9B5FFD7A481FA0000000000000000000000001935 + BFFF3562DAFF5092EFFF4275DBFFA0A0A0FFD8D9D9FFE4E3E3FF154BA3FFF1B1 + 87FFF1B187FFE4E4E3FFE3E3E3FFD5D5D5FFA4A4A5FF4275DBFF4B8EECFF1934 + BFFF1226ADFF00000000000000000000000000000000063C2C521BB684FF46E7 + BAFF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA5FF0ED9A4FF0FDAA4FF0EDA + A4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0FDA + A4FF0EDAA4FF0FDAA4FF4EE9BEFF1BB783FF0000000000000000000000000000 + 0000000000000000000013BF8BFF0FDCA7FF0FDCA7FF0FDCA7FF0FDCA7FF0FDC + A6FF0FDCA6FF10DCA7FF0FDCA6FF0FDCA7FF39E6B7FF13BF8BFF000000000000 + 00000000000000000000000000000000000000000000B98363E0EFCA9CFFE3A8 + 7FFFE3A87FFFE3A87FFFE7AE87FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF + 85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFDBA0 + 79FF91674EB18A624AA7886149A43D2C21490000000000000000000000000C17 + 3A462E54D4FF3563DAFF5699F1FFA1A1A3FFA0A0A0FFDADAD9FF154BA3FFF1B1 + 87FFF1B187FFE5E5E5FFD5D5D6FF9D9D9DFF4275DBFF4B8EECFF2447CAFF1226 + ADFF060E34460000000000000000000000000000000000000000063C2C521AB8 + 85FF0EDBA5FF0FDBA6FF0FDBA6FF0FDBA5FF0FDCA5FF0FDCA6FF0EDBA5FF0EDB + A6FF0FDCA5FF0FDBA6FF0EDBA5FF0EDCA6FF0FDCA6FF0EDBA5FF0FDBA6FF0FDB + A6FF0FDBA6FF0EDBA6FF53EBC1FF19B884FF0000000000000000000000000000 + 0000000000000000000012C08CFF0FDDA8FF0FDDA8FF10DDA8FF0FDDA8FF0FDD + A8FF0FDDA8FF0FDEA8FF0FDEA8FF0FDDA8FF3DE7BAFF12C08CFF000000000000 + 00000000000000000000000000000000000000000000B88463DEEFCA9DFFE8AD + 84FFEFB58AFFEFB58BFFEFB58BFFEFB48AFFEEB48AFFEEB48AFFEDB389FFEDB3 + 89FFEDB389FFECB288FFECB188FFECB187FFEBB086FFEAB086FFEAAF86FFDCA0 + 79FF17100B1E0000000000000000000000000000000000000000000000000000 + 00001935BFFF2E54D4FF3664DAFF4275DBFFA1A1A3FFA0A0A0FF063384FF0633 + 84FF063384FFD6D6D6FF9D9D9DFFA4A5A5FF5093EFFF244ACBFF1934BFFF060E + 334500000000000000000000000000000000000000000000000000000000063C + 2C5258EDC3FF0FDCA7FF0FDDA7FF0FDDA7FF0FDDA7FF0FDCA7FF0EDCA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDCA7FF0EDDA7FF0FDD + A7FF0EDDA7FF0FDDA7FF56EDC2FF18B985FF0000000000000000000000000000 + 0000000000000000000010C28DFF10E0ABFF10E0ABFF0FE0ABFF0FE0AAFF10E0 + AAFF10E0AAFF0FDFAAFF0FE0ABFF0FDFAAFF45EBBDFF10C28DFF000000000000 + 00000000000000000000000000000000000000000000BA8665DCEECC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFE2A7 + 7FFF140E0A1A0000000000000000000000000000000000000000000000000000 + 0000000000000B1535401935BFFF3664DBFF579BF2FF4275DBFFA0A0A0FFDBDC + DBFFD8D7D8FFA3A4A7FF4275DBFF579AF1FF878CA6FF1226ADFF060D2F400000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C5216BC88FF6BF2CCFF0FDFA9FF0FE0AAFF0FDFAAFF21E3B1FF16BC + 89FF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF0000000000000000000000000000 + 000000000000000000000FC38EFF0FE1ACFF0FE1ABFF0FE1ACFF10E1ACFF0FE1 + ACFF0FE1ACFF0FE1ABFF10E1ABFF0FE1ACFF4AECC0FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BC8867DCEDCC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFFADDB8FFFADD + B8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFD198 + 73F4050302070000000000000000000000000000000000000000000000000000 + 000000000000000000000B14323D2E54D4FF3664DBFF589BF2FFA0A1A4FFA0A0 + A0FF9D9D9DFF4275DBFF579BF2FF061D94FFABABABFF050C2D3D000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C5214BD89FF10E0ABFF10E1ABFF10E0ABFF2DE6B6FF14BD + 89FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38EFF0FE2ADFF10E2ADFF0FE2ADFF0FE2ADFF0FE2 + ADFF10E2ADFF10E2ADFF10E2ADFF10E2ADFF4DEDC1FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BF8A69E0EDCD9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF3D2AEFFDDAC8EFFDDAC + 8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFF3B2B + 2045000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BFFF2E54D4FF3664DBFF4275DBFF9FA1 + A5FF9D9FA7FF589CF2FF061D94FFA0A5BFFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C527CF5D2FF0FE2ACFF10E1ADFF3AEABBFF13BE + 8BFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E4AFFF10E4AFFF10E4AFFF10E4AFFF10E4 + AEFF10E4AFFF10E4AFFF10E4AFFF0FE4AFFF53EFC5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000087634C99D9A686FAD89D + 78FAD69C77F8D69B77F7D69B77F7D49A75F5C18B69E4271C1531000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E381935BFFF3563DAFF72B7 + FFFF72B7FFFF1934BFFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C5211C18CFF89F8D7FF50EEC4FF12C1 + 8CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E5B0FF10E5B0FF10E5B0FF10E5B0FF10E5 + B0FF10E5B0FF10E5B0FF0FE5B0FF0FE4B0FF55F0C5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C352E54D4FF3F82 + E6FF3F82E6FF1226ADFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C5210C28DFF57F0C7FF11C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0FE5B1FF10E6B0FF10E6B0FF10E5B0FF0FE5 + B1FF10E6B1FF10E5B0FF10E6B1FF10E6B1FF57F0C8FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BFFF3F82 + E6FF3F82E6FF050A2634ABABABFFE4EBEBFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C52F5F9F7FF10C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 181E0206161E0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8FFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000320000000000000017000000270000 + 0032000000400000004000000040000000400000004100000047000000400000 + 0040000000400000004500000047000000400000004000000040000000400000 + 0040000000250000001A00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000343433FF232323FF2222 + 22FF222222FF212121FF212121FF202020FF202020FF1F1F1FFF1F1F1FFF1E1E + 1EFF1E1E1EFF1D1D1DFF1D1D1DFF1D1D1DFF1C1C1CFF1C1C1CFF1B1B1BFF1B1B + 1BFF1B1B1BFF1A1A1AFF343433FF000000000000000000000000000000000534 + 6AFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF05346AFF000000000000000000000000000000179D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF00000017000000000000000000000000000000150000 + 001BE2B798FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FF000000110000000000000000363635FFF4E0BDFFF7E2 + BFFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFFF7E0 + BAFFF7E0BAFFF7E0BAFFF7E0BAFFF7E0BAFFFAEFCCFFF9EED0FFF7EBCFFFF5E5 + C9FFF2DFC0FFF2DAB6FF343433FF000000000000000000000000000000000534 + 6AFF0F5094FF073B75FF073A74FF073973FF073972FF073871FF063770FF0637 + 6FFF06376FFF06366EFF06356DFF05356DFF05356CFF05346BFF05346BFF0E50 + 94FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFE2B797FF000000000000000000000000393937FFF7E3C1FFF7E3 + C1FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E0 + BBFFF7E0BBFFF7E0BAFFF7E0BAFFF7E0BAFFF8E3BCFFFCF3CEFFFDF7D8FFFEF9 + E4FFFEF9E7FFF3DEBBFF343433FF000000000000000000000000000000000534 + 6AFF0F5195FFF6DDB6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DCB3FFF6DCB3FFF6DC + B3FFF6DCB2FFF6DCB2FFF6DCB2FFF9E9C1FFFAEDD2FFF9E9CDFFF7E1BDFF0F51 + 95FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E2BBFFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF8E0BAFFE2B898FF0000000000000000000000003E3D3BFFF8E4C4FFF8E4 + C4FFF7E4C3FFF7E4C3FFF7E3C2FFF7E3C1FFD8C7A9FF8C8171FFF7E2BFFFF7E2 + BEFFF7E2BEFFB4A48CFF756C5DFF736A5CFFF5DEBAFFF7E0BBFFF7E0BBFFFCF5 + D3FFFDF7DBFFF8EBD0FF343433FF000000000000000000000000000000000534 + 6AFF115499FFF6DFB9FFF6DFB8FFF6DEB7FFF6DEB7FFF6DDB5FFF6DDB4FFF6DD + B4FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF8E5BBFFFCF5D3FFFDF6DDFF1154 + 99FF05346AFF00000000000000000000000000000000CDCDCDFFCCCCCCFFDF98 + 71FFEBA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFEAA279FFFCC8 + A5FFEAA279FFEAA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFDF98 + 71FFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E1BEFFF3D6B1FFF5DAB5FFF8E1BBFFF8E0BBFFF8E1BBFFF8E1BBFFF8E1 + BBFFF8E1BBFFF8E1BCFFF8E1BBFFF8E1BBFFF9E1BCFFF8E1BBFFF8E1BBFFF4D7 + B2FFF8E1BBFFE3B99AFF00000000000000000000000040403CFFF8E5C7FFF8E5 + C7FFF8E4C5FFF8E4C4FFF7E4C3FFF7E4C3FFB7AA94FF262626FFF7E3C1FFF7E2 + C0FFF7E2C0FF1D1D1DFF1C1C1CFF1F1F1EFF615A4EFFF5DFBBFFF7E1BCFFF7E1 + BCFFFBEFCCFFFAF1D2FF343433FF000000000000000000000000000000000535 + 6BFF11559BFFF6E0BBFFF6DFB9FFF6DFB8FFF6DEB8FFF6DEB7FFF6DDB6FFF6DD + B6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF7DFB7FFFBF1CCFF1155 + 9AFF05356BFF00000000000000000000000000000000CECECEFFCDCDCDFFDE97 + 71FFEBA37AFFEBA27AFFEAA37AFFE9A178FFEAA179FFEBA37AFFEAA27AFFFCC8 + A5FFEAA27AFFEAA279FFEBA379FFEBA27AFFEAA37AFFEBA37AFFEBA27AFFDF98 + 71FFCDCDCDFFCDCDCDFF00000000000000000000000000000000000000000000 + 0000F8E2BFFFF3D7B2FFF8E2BCFFF8E1BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1 + BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1BCFFF8E1BCFFF9E1BCFFF8E1BCFFF5DA + B5FFF8E1BCFFE3BA9BFF00000000000000000000000042423EFFF8E6C9FFF8E6 + C9FFF8E5C8FFF8E5C7FFF8E4C5FFF8E4C4FFB9AB95FF292929FFF7E4C3FFF7E3 + C2FFE2D0B2FF252524FFC9B79DFFEDD9B7FF1B1B1BFFAA9C85FFF7E2BEFFF7E1 + BDFFF7E1BCFFF9E9C3FF343433FF000000000000000000000000000000000535 + 6CFF12569DFFF6E0BCFFF6E0BBFFF6E0BAFFF6E0BAFFF6DFB9FFF6DEB7FFF6DE + B7FFF6DEB7FFF6DDB6FFF6DDB5FFF6DDB5FFF6DDB5FFF6DDB5FFF6DEB5FF1256 + 9DFF06356CFF00000000000000000000000000000000CFCFCFFFCECECEFFDB94 + 6EFFEBA37AFFEAA37AFFE8A178FFDC9770FFE09971FFE8A079FFEAA37AFFFCC8 + A5FFEBA47AFFEBA37AFFEBA37BFFEBA37AFFEBA37AFFEBA37AFFEAA47BFFDF98 + 71FFCECECEFFCECECEFF00000000000000000000000000000000000000000000 + 0000F8E3BFFFF4D8B3FFF8E2BDFFF8E2BDFFF8E2BDFFF8E1BDFFF9E2BCFFF8E2 + BDFFF8E2BDFFF8E2BDFFF8E2BDFFF8E2BCFFF8E1BDFFF8E1BCFFF8E2BDFFF5DB + B6FFF8E1BDFFE3BC9CFF000000000000000000000000474742FFF8E7CCFFF8E7 + CCFFF8E7CBFFF8E7CBFFF8E6CAFFF8E6C9FFBBAF9AFF303030FFF8E5C7FFF8E4 + C5FFF8E4C5FFF7E4C3FFF7E4C3FFF7E4C3FF222222FF766E61FFF7E3C1FFF7E2 + C0FFF7E2BFFFF7E2BFFF343433FF000000000000000000000000000000000637 + 6FFF1359A0FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF6E0BDFFF6E0BBFFF6E0 + BBFFF6E0BBFFF6DFBAFFF6DFB9FFF6DFB9FFF6DFB9FFF6DEB8FFF6DEB8FF1359 + A1FF06366FFF00000000000000000000000000000000D1D1D1FFD0D0D0FFCC87 + 63FFD18C68FFCF8965FFCA8562FFCE9B81FFC7825FFFD18C68FFEBA47BFFFCC8 + A5FFECA57CFFECA57CFFE8A37BFFE9A27AFFEBA57CFFEBA57CFFECA57CFFDF9A + 73FFD0D0D0FFD0D0D0FF00000000000000000000000000000000000000000000 + 0000F9E4C3FFF4DAB5FFF8E2BFFFF8E3BFFFF8E3BFFFF9E3BFFFF8E2BEFFF8E3 + BEFFF9E3BFFFF8E2BFFFF8E2BFFFF8E3BFFFF8E2BFFFF8E2BEFFF8E3BEFFF5DC + B8FFF8E2BFFFE5BE9FFF0000000000000000000000004A4944FFF8E8CEFFF8E8 + CEFFF8E7CDFFF8E7CCFFF8E7CBFFF8E7CBFFBCB09DFF333333FFF8E6C9FFF8E5 + C8FFF6E3C5FF56524CFFBDAF99FFC9B9A1FF262626FFAB9F8BFFF7E4C3FFF7E3 + C2FFF7E3C1FFF7E3C1FF343433FF000000000000000000000000000000000737 + 70FF135AA3FFF7E3C1FFF7E2C0FFF7E2C0FFF7E2C0FFF7E2BFFFF7E1BEFFF7DF + BCFFF7E0BAFFF7E1BBFFF7E0BAFFF7E0BAFFF7E0BBFFF7E0BAFFF7E0BAFF135B + A3FF073771FF00000000000000000000000000000000D2D2D2FFD1D1D1FFD7A7 + 8EFFC78360FFCD8E6FFFDBBCACFFE4E2E1FFD49E81FFC98461FFE59F78FFFBC7 + A4FFEBA67DFFE6A279FFDE9A73FFDC9770FFEAA57DFFECA67DFFECA67DFFDF9A + 73FFD1D1D1FFD1D1D1FF00000000000000000000000000000000000000000000 + 0000F8E4C5FFF6DEBAFFF9E3BFFFF8E2BFFFF8E3C0FFF8E3C0FFF8E3C0FFF9E3 + C0FFF8E2C0FFF8E3C0FFF8E3BFFFF8E3C0FFF9E3C0FFF7E2BEFFF9E1BEFFF6DD + B9FFF7E1BDFFE5BFA0FF0000000000000000000000004C4C46FFF9E9CFFFF9E9 + CFFFF8E8CEFFF8E8CEFFF8E7CDFFF6E5CAFFBDB19FFF373737FFF8E7CBFFF8E6 + CAFFF8E6CAFF2E2E2EFF2D2D2DFF2C2C2CFF6E685EFFF7E3C3FFF8E4C4FFF7E4 + C3FFF7E4C3FFF7E4C3FF343433FF000000000000000000000000000000000738 + 72FF145BA4FFF8E3C3FFF7E3C2FFF7E3C1FFF7E3C1FFF7E2C0FFF7E2BFFFF7E1 + BDFFF6DFBAFFF7DFBAFFF7E1BBFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFF145C + A5FF073872FF00000000000000000000000000000000D3D3D3FFD2D2D2FFE6E4 + E3FFDFC4B5FFE6E4E3FFE6D6CCFFE8BBA1FFE5DED9FFCE906FFFDA956FFFF5BF + 9DFFEAA57DFFD9946DFFCB8763FFCA8663FFE8A37AFFEBA77EFFECA77EFFE09B + 74FFD2D2D2FFD2D2D2FF00000000000000000000000000000000000000000000 + 0000F9E5C5FFF7DFBDFFF8E3C0FFF9E3C0FFF9E3C1FFF8E3C0FFF8E3C0FFF9E3 + C0FFF9E3C0FFF8E2C0FFF9E3C1FFF9E4C1FFF7E2C0FFF8E3BFFFF7E2BFFFF5DD + BAFFF7E0BEFFE6C0A3FF000000000000000000000000515149FFF9EAD2FFF9EA + D2FFF9E9D1FFF9E9D1FFF9E9D0FF464544FF3E3E3EFF3D3D3DFFF8E8CEFFF8E7 + CDFFF8E7CDFF353535FF9E9485FFE2D3B9FFE2D2B8FFF3E2C4FFF8E6C9FFF8E5 + C8FFF8E5C7FFF8E5C7FF363634FF00000000000000000000000000000000073A + 76FF155EA9FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4C3FFF8E4C3FFF7E3C2FFF7E2 + C1FFF6E1BEFFF5DAB4FFF5DCB3FFF6DEB9FFF7E3C0FFF7E2BFFFF7E2BEFF155F + A9FF083A76FF00000000000000000000000000000000D5D5D5FFD4D4D4FFE19C + 75FFECA980FFECA980FFEDA980FFEDA980FFECAA82FFE9DAD1FFCA8662FFCE8D + 6BFFCB8764FFE4D5CEFFE9E5E3FFDFBFAEFFD08D68FFE29F77FFECA87FFFE09C + 75FFD4D4D4FFD4D4D4FF00000000000000000000000000000000000000000000 + 0000F9E6C9FFF7E1BFFFF9E4C2FFF8E4C3FFF8E4C2FFF9E4C2FFF8E4C2FFF9E4 + C2FFF7E3C2FFF7E1BFFFF5DEBDFFF5DFBDFFF5DFBEFFF5DEBEFFF5DEBDFFF3DC + BAFFF3DCBCFFE8C3A5FF00000000000000000000000053534BFFF9EBD4FFF9EB + D4FFF9EAD3FFF9EAD2FFF9E9D1FFE1D3BDFF5D5B57FF414141FFF9E9CFFFF8E8 + CEFFF8E8CEFF393939FF383838FF363636FF333333FFCBBDA7FFF8E7CBFFF8E6 + CAFFF8E6C9FFF8E6C9FF363635FF00000000000000000000000000000000083B + 78FF1660ABFFF8E5C7FFF8E5C5FFF8E5C4FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4 + C3FFF8E3C2FFF5DFB7FFF5DBB2FFF5DCB4FFF7E1BEFFF7E3C0FFF7E3C0FF1660 + ABFF083C78FF00000000000000000000000000000000D7D7D7FFD6D6D6FFEBB1 + 8FFFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFF9CAABFFDEB49DFFC887 + 65FFD6A991FFEBCDBAFFF4C4A6FFECE7E4FFCC8B69FFDCA07EFFF3BD9BFFEBB1 + 8FFFD5D5D5FFD5D5D5FF00000000000000000000000000000000000000000000 + 0000F9E7CAFFF7E2C0FFF9E5C4FFF8E4C3FFF9E5C4FFF8E5C4FFF9E5C3FFF9E4 + C4FFF8E3C1FFF4DEBEFFF2DCBCFFF3DDBDFFF4DDBEFFF5DEBEFFF4DEBDFFF4DD + BAFFF4DEBDFFE8C5A7FF00000000000000000000000053534BFFF9ECD5FFF9EC + D5FFF9EBD4FFF9EBD4FFF9EAD3FFF9EAD2FFDACEB9FF504F4DFFF9E9D1FFF9E9 + D0FFF9E9D0FF6B6760FF6A6660FF69655FFF67635CFFD7C9B1FFF8E7CCFFF8E7 + CBFFF8E7CBFFF8E7CBFF383836FF00000000000000000000000000000000093C + 7AFF1662ADFFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF8E5C5FFF8E4C4FFF8E4 + C3FFF8E4C3FFF8E1BFFFF5DFB8FFF4DAB0FFF5DFBAFFF7E1BFFFF7E3C2FF1661 + ADFF093D7AFF00000000000000000000000000000000D8D8D8FFD7D7D7FFE19E + 77FFEDAB82FFEEAB82FFEEAB82FFEDAB82FFEDAB82FFEDAB82FFEEE9E7FFE7D1 + C3FFECE3DEFFEBA981FFEDAB82FFEBB99AFFD29B7EFFCA8663FFDB9772FFE19E + 77FFD7D7D7FFD7D7D7FF00000000000000000000000000000000000000000000 + 0000F9E8CCFFF8E5C4FFF9E5C5FFF9E5C5FFF9E5C5FFF9E5C4FFF8E5C4FFF8E4 + C4FFF8E3C2FFF2DCBDFFF3DCBDFFF2DBBAFFF2DBBBFFF2DCBCFFF3DCBCFFF3DD + BCFFF3DCBDFFE9C7A9FF00000000000000000000000058584FFF0C5DDDFF0B5C + DCFF0A5ADAFF0959D9FF0958D8FF0855D6FF0754D5FF0653D4FF0551D2FF0550 + D1FF044FD1FF034DCFFF034DCEFF024CCEFF024BCDFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3A3A38FF000000000000000000000000000000000A3F + 7EFF1864B2FFF8E7CBFFF8E7CAFFF8E7CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5 + C8FFF8E5C8FFF8E5C5FFF8E4C4FFF8E2C1FFF6DBB4FFF5DBB3FFF7E0BDFF1864 + B1FF0A3F7EFF00000000000000000000000000000000DADADAFFD9D9D9FFE19F + 78FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFFCC8 + A5FFEEAD85FFEEAD84FFEEAD84FFEEAD84FFEFD7C8FFECD9CFFFCA8663FFDA98 + 72FFD9D9D9FFD9D9D9FF00000000000000000000000000000000000000000000 + 0000F9E8CDFFF8E6C7FFF9E6C8FFF9E5C8FFF8E6C8FFF9E5C7FFF9E6C8FFF7E4 + C5FFF6E1C3FFEDD5B7FFEACFB1FFE8CCAFFFE7CBACFFE6CBADFFE7CBACFFE8CC + AFFFDEBEA3FFE7C3A8FF0101010200000000000000005A5A50FF0C5EDEFF0C5D + DEFF0B5BDCFF0A5ADBFF0A59DAFF0957D8FF0856D7FF0755D6FF0653D4FF0652 + D3FF0551D2FF044FD0FF044ED0FF034DCFFF024CCEFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3C3C39FF000000000000000000000000000000000A41 + 81FF1965B3FFF8E8CCFFF8E7CBFFF8E7CBFFF8E7CBFFF8E7CAFFF8E6C9FFF8E6 + C9FFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF6E0BBFFF5DAB3FFF6DCB6FF1865 + B3FF0A4081FF00000000000000000000000000000000DBDBDBFFDADADAFFE2A0 + 79FFEFAE85FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFEFAE85FFEEAE85FFFCC9 + A6FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFECAE87FFF2E4DCFFE5C7B5FFD28E + 6AFFDADADAFFDADADAFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E6C8FFF9E7C8FFF9E6C8FFF9E6C8FFF8E6C9FFF9E7C9FFF8E5 + C7FFF5E1C3FFEACFB3FFE4C5AAFFE2C0A5FFDBB89CFFDBB89CFFD9B69BFFD9B7 + 9BFFE8CDAEFFE7C3A8FF0000000000000000000000005D5C52FF0D5FE0FF0D5F + DFFF0C5DDDFF0B5CDDFF0B5BDCFF0A59DAFF0958D9FF0857D8FF0754D6FF0753 + D5FF0652D4FF0550D2FF044FD1FF044ED0FF034DCEFF034CCEFF024BCDFF024B + CDFF024BCDFF024BCDFF3E3E3BFF000000000000000000000000000000000B41 + 82FF1966B5FFF8E8CEFFF8E8CDFFF8E8CCFFF8E8CCFFF8E7CBFFF8E7CAFFF8E7 + CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5C8FFF8E2C3FFF6E0BCFFF5DDB5FF1967 + B5FF0B4282FF00000000000000000000000000000000DCDCDCFFDBDBDBFFE2A1 + 79FFEFAF86FFEEAF86FFEEAE85FFEFAF86FFEFAF86FFEFAF86FFEFAF86FFFCC9 + A6FFEEAE86FFEEAF86FFEFAF86FFEFAF86FFEFAF86FFECB58FFFF5EFEBFFCC88 + 64FFDBDBDBFFDBDBDBFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E7C9FFF8E7C9FFF9E7C9FFF8E6C9FFF9E7CAFFF9E6C9FFF8E5 + C8FFF4E0C1FFE8CBAFFFE2C2A7FFE4C7AEFFDFBFA6FFE1C3A8FFEAD2B6FFF5DF + BCFFE8C5AAFF483B3252000000000000000000000000626156FF0E61E1FF0E61 + E1FF0D60E0FF2A70E4FF3D79E6FF3270E0FF0B5BDCFF0A5ADBFF0958D9FF0857 + D8FF0856D7FF0753D5FF0652D4FF2769DFFF3B77E5FF306CDDFF044ECFFF034C + CEFF024BCDFF024BCDFF43433FFF000000000000000000000000000000000C44 + 87FF1B69B9FFF9E9D0FFF8E9CFFF9B9280FF9B9280FF9B927FFF9B927FFF9B92 + 7FFF9B927EFF9B917EFF9B917DFF9B917DFF9B917DFFBFB299FFF8E5C7FF1B69 + B8FF0C4487FF00000000000000000000000000000000DEDEDEFFDDDDDDFFE3A1 + 7AFFEFB187FFEFB188FFEFB087FFEFB088FFEFB187FFEFB187FFEFB188FFFCCA + A7FFEFB187FFEFB187FFEFB188FFF0B188FFEFB188FFEFB088FFEFB088FFF5EA + E3FFDDDDDDFFDDDDDDFF00000000000000000000000000000000000000000000 + 0000F9EAD1FFF9E7CBFFF9E8CBFFF9E8CBFFF9E7CCFFF9E8CBFFF9E8CBFFF6E6 + C9FFF1DDC0FFFCF9F7FFF8F2ECFFFDF7EEFFFAECD5FFF8E3C3FFF7E0BBFF483D + 33520000000000000000000000000000000000000000646458FF0E61E1FF0E61 + E1FF1F6BE4FF2E65D0FF133896FF133896FF2A5CBFFF0B5CDCFF0A5ADAFF0959 + D9FF0957D8FF0855D6FF1B62DCFF2D63CEFF173271FF133896FF2A5EC5FF034D + CFFF034CCEFF024CCEFF454540FF000000000000000000000000000000000D45 + 8AFF1B6AB9FFF9EAD1FFF9E9D0FF565544FF575545FF575544FF575644FF5755 + 44FF565544FF575545FF575544FF575644FF86806CFF9B917DFFF8E7CAFF1B69 + BAFF0D4589FF00000000000000000000000000000000DFDFDFFFDEDEDEFFE3A3 + 7BFFEFB288FFF0B188FFEFB288FFF0B188FFEFB188FFEFB188FFF0B288FFFCCA + A7FFEFB288FFF0B188FFEFB288FFEFB289FFF0B188FFEFB188FFF0B188FFEFD1 + BDFFDEDEDEFFDEDEDEFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CCFFF8E7CCFFF9E8CCFFF9E7CCFFF9E8CCFFF8E7CBFFF7E4 + C8FFF2DDC0FFFEFAF5FFFCF6ECFFFBF0DDFFF8E3C2FFF7DFBAFFEDD0B4FF0000 + 0000000000000000000000000000000000000000000067665AFF0E61E1FF0E61 + E1FF1565E2FF133CA0FF526D97FF506C97FF163A8BFF0C59D5FF0B5BDCFF0A5A + DBFF0A59DAFF0957D8FF115BD9FF123BA0FF4774C5FF506C97FF1742A4FF044E + D0FF034ECFFF034DCFFF484842FF000000000000000000000000000000000D47 + 8CFF1C6BBBFFF9EAD2FFF9EAD1FF908974FF908974FF908974FF908974FF9089 + 74FF908974FF908974FF908974FF908974FF5A5A48FF9B917EFFF8E7CBFF1C6A + BBFF0D468CFF00000000000000000000000000000000E1E1E1FFE0E0E0FFE2A3 + 7BFFEFB289FFF0B289FFF0B289FFF0B289FFF0B288FFF0B289FFEFB289FFFCCA + A7FFF0B289FFEFB289FFEFB289FFEFB289FFEFB289FFEFB289FFF0B289FFE9B7 + 98FFDFDFDFFFDFDFDFFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CDFFF9E8CDFFF9E8CCFFF9E8CDFFF8E8CDFFF9E7CBFFF6E4 + C9FFF1DCBFFFFCF4E7FFFBEFDCFFF9E8CEFFF7DFB9FFEFD3B7FF493E35520000 + 000000000000000000000000000000000000000000006B6B5DFF579BF0FF579B + F0FF579BF0FF579BF0FF46453DFF48473FFF345E98FF4C89D6FF579BF0FF579B + F0FF579BF0FF579BF0FF579BF0FF579BF0FF3D3C36FF48473FFF345E98FF579B + F0FF579BF0FF579BF0FF4B4B45FF000000000000000000000000000000000E49 + 90FF3786D5FF3786D5FF3786D5FFF5F6EFFFE3E5D2FFD3D6B6FFD3D6B6FFD3D6 + B6FFD3D6B6FFD3D6B6FFD3D6B6FFDDDFC7FF64634FFF2F5B83FF3786D5FF3786 + D5FF0E4990FF00000000000000000000000000000000E3E3E3FFE2E2E2FFE3A3 + 7CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFEBB2 + 90FFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A3 + 7CFFE2E2E2FFE2E2E2FF00000000000000000000000000000000000000000000 + 0000F9EBD4FFF9E8CEFFF9E8CEFFF9E8CEFFF9E9CEFFF9E9CEFFF7E6CDFFF5E1 + C8FFF0DABEFFF7E2C0FFF7E1BEFFF7DFB9FF51463C5900000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF4078AFFF2380 + E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF1F6EC5FF2380E4FF2380 + E4FF2380E4FF2380E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF2380 + E4FF2380E4FF3770A9FF4F4E47FF000000000000000000000000000000000B39 + 71C70E4A93FF0E4B92FF0F4A92FF686754FF686754FF686754FF72725EFF7272 + 5EFF72725EFF72725EFF686854FF686754FF455C6DFF183A5EFF0E4B92FF0F4A + 92FF0B3971C700000000000000000000000000000000E4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FF00000000000000000000000000000000000000000000 + 0000FAECD4FFF9E8CEFFF9E9CFFFF9E9CEFFF9E9CFFFF9E8CDFFF7E5CCFFF4E2 + C7FFF0DABFFFF7DFB9FFF7DFB9FFF1D8BCFF0000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF6C6C5EFF6B6B + 5DFF6A695CFF69685BFFA9A98AFFB8B998FF32363FFF52544FFF636257FF6261 + 56FF626156FF5F5F54FF5E5E53FF5E5D53FFD4D4ABFFB8B998FF2C313BFF5858 + 4FFF58584FFF57564EFF79786DFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B57FF646351FF6463 + 51FF646351FF646351FF6D6C58FF000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000 + 0000FAECD5FFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CEFFF7E6CCFFF6E3 + C9FFF1DDC2FFF4DCB8FFF1D8BCFF6A5E50720000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000515044C7515044C70000000000000000000000000000 + 000000000000000000000000000000000000686758FF515044C7000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545389B73725DFF7372 + 5DFF73725DFF73725DFF4545389B000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8 + BCFFF1D8BCFF7266587900000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FFE00007000000FFFFFF80FFFFC00007000000010101807FFF + E00007000000010101803FFFE00007800001010101801FFFE000078000030101 + 01800FFFE00007C000030101018007FFE00007E00007010101E003FFE00007E0 + 0007010101F001FFF0000FF0000FEFEFEFF000FFF8001FF0001FEFEFEFFC007F + FE00FFF0001FE0000FFE0007FF00FFF8001FFFEFFFFE0003FE00FFFC003FFE00 + FFFF8001FE007FFE007FFE00FFFFC000FE007FFE007FFE00FFFFC000FE007FFE + 00FFFE00FFFFF020FE007FFF00FFFE00FFFFF070FE007FFF00FFFE00FFFFF038 + FE00FFFFC1FFFE00FFFFF01CFE00FFFFC3FFFE00FFFFF81FFF00FFFFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFE00FF800001FFFFFF00003FFE00FF000000FFFFFF8000FFFE00FF + 000000FFFFFF8000FFFE00FF0000008007F98000FFFE00FF0000008007F18000 + FFFE00FF0000008007F18000FFFE00FF000000801FE18000FFFE00FF00000080 + 3FC38000FFFE00FF000000801F038000FFFE00FF0000008000038000F8FE00FF + 0000008000038000F8FE00FF0000008000078000F8FE00FF00000080000FFFE3 + F8E0000300000080000FFFE3F8E0000700000080001FFFE3F8F0000F000000FC + 003FFFE1F0F8001F000000FE00FFFFE1F0FC003F000000FF01FFFFE0E0FE007F + 800003FFFFFFFFF001FF00FFFFFFFFFFFFFFFFF803FF81FFFFFFFFFFFFFFFFFC + 07FFC3FFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFC00007FE003FFFFFFFC0000FE0001FFE003F000000C0000FE0001F + FFC0FF800003C0000FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C000 + 0FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C0FC0FE0001FFFC1FF80 + 0003C0FC0FE0001FFFC1FF800003C0FC0FE0001FFFC1FF800001C0FC0FE0001F + FFC1FF800001C0FC0FE0001FFFC1FF800001C0FC0FE0001FFFC1FF800001C0C0 + 00E0001FFFC1FF800001C0C000E0001FFFC1FF800001C0C000E0001FF3C1E3FE + 007FC0F003E0001FF1C1E3FE007FC0F803800007F1C1C3FE007FC0F807800007 + F00003FFFFFFC0FE1F800007F00003FFFFFFE1FF1F800007F00003FFFFFFFFFF + 1FC0000FFFFFFFFFFFFFFFFFFFFF87FFF0000FFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFF801FF0000FFFFFFFC00001FFE0FFE00007FFFFFFC00001FFC07F + C00003FFFFFFC00001FFC03F800001FFFFFFC00001FF001F000000FFFFFFC000 + 01FE000F000000FFFFFFC00001FE0007000000FFFFFFC00001F8000300000080 + 0003C00001F00001000000800003C00001F00000000000800003C00001C00001 + 000000E00007C00001800003000000E00007C00001800003000000F0000FC000 + 0180000F000000F0000FC0000180001F000000F0000FC0000180001F000000F0 + 000FC0000182007F800001F0001FC000018200FF800003F8001FC000018000FF + E00007FFFFFFFFFFFFC003FFF0000FFFFFFFFFFFFFE007FFF0001FFFFFFFFFFF + FFF007FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF000FF01C07FC0FFFFF87FFFFFC3FF07F0FF007FFFF87FFFFF83FF83E1F + F003FFFF87FFFFF83FF8181FC000FFF8007FFFE03FFC001FC0C0FFF8007FFFC0 + 3FFC001F81E0FFF8007FFC003FFC001F83F0FFFF03FFF0001FFE003F87F8FFFE + 00FFF0001FFE001F87F8FFFC00FFF0000FF8001F83F0FFF0003FF0000FE00003 + 81E0FFF0303FF0000FC00003C0C0C7F0781FF0000F800000E00047F0FC1FF000 + 1F800000F00007F1FE1FF0001FFF80FFF00007F1FE1FF0003FFF80FFFFF807F0 + FC1FFFC03FFFC1FFFFF807F0781FFFE03FFFC1FFFFE007F0303FFFF03FFFC3FF + FFE007F8007FFFF83FFFC3FFFFE007FC00FFFFFC3FFFE7FFFFFFFFFE00FFFFFE + 3FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00FFF03E0FC0 + 000FE00007FF81FFF07F0780001FF8003FFE00FFF07F0780001FF8003FFE007F + F03E0780001FF8003FFE007FF03C2780001FF8003FF8001FF01847F0001FF800 + 3FF0001FF00807F0001FF8003FF0001FF0000FF0001FF8003FF0000FF8001FF0 + 001FF8003FE00007FE003FF0001FF8003FE00007FF80FFF0001FF8003FC00003 + FF80FFF0001FF8003FC00003FF00FFF0001FF8003FC00003FE087FF0001FF800 + 3FC00003FE183FF0001FF8003FC00003FE183FF0001FF8003FC00003FC3E1FF0 + 0003F8003FC00003F87F1FF00003F8003FC00003F07F0FF00003F8003FC00003 + F1FF8FF00003F8003FFF81FFF1FFCFF00003F8003FFFC3FFF3FFEFF80003F800 + 3FFFC7FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003FFFFFFFFFFFFFC001FFC001FC00003E00003F0000FF0000F800003C00003 + F00007F00007800003800003E00003E00003800003800003C00003C000038000 + 03800003C00003C0000380000380000380000180000180000380000380000180 + 0001800003800003800001800001800003800003800001800001800003800003 + 8000018000018000038000038000018000018000038000038000018000018000 + 03800003800001800001800003800003C00003C00003800003800003E00003E0 + 0003800003800003F00007F00007800003800003F00007F00007800003800003 + FC001FFC001F800003800003FE003FFE003FC00003800003FF00FFFF00FFE000 + 07800003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003E00003FFFFFFFC001FFC001FFC001FFC007FF0000FF0000FF0000FF8003F + F00007F00007F00007F0001FE00003E00003E00003E0000FC00003C00003C000 + 03C00007C00003C00003C0000380000380000180000180000180000380000180 + 0001800001800003800001800001800001800003800001800001800001800003 + 8000018000018000018000038000018000018000018000038000018000018000 + 01800003800001800001800001800003C00003C00003C00003800003E00003E0 + 0003E00003800003F00007F00007F00007C00007F00007F00007F00007E0000F + FC001FFC001FFC001FF0001FFE003FFE003FFE003FF8003FFF00FFFF00FFFF00 + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFC3FFFFF8FFFC007FFFFFFFFF80E3FFF8FFF8003F + FFFFFFFF00C3FFF87FF0001FFFFFFFFE0001FFF81FE0000FFFFFFFFC0001FFF8 + 1FC00007FFFFFFF8000180000F800003800001F00003800003800003800001E0 + 0003800003800003800001E00003800001800003800001800001800001800003 + 8000018000018000018000038000018000018000038000038000018000018000 + 0780000380000180000180000F800003800001800001FFF81F800003FFFFFF80 + 0001FFF83F800003FFFFFF800001FFF87FC00007FFFFFF800001FFF8FFE0000F + FFFFFF801803FFFFFFF0001FFFFFFFC03803FFFFFFF8003FFFFFFFF03E07FFFF + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003F80 + 07FFFFFFFFFFFFFFFC003F83FFFF80007FFFFFFFF0001FC1FFFF80007FFFFFFF + F0000FE0FFFF80007FFFFFFF800003F03E7F8000639FFFFF800003F03C7F8000 + 439FE001800003F0187F8000418FE001800003FC007FC200018FF001800003FE + 007FE3000187F801800003FE007FFF000183F801800003FF803FC20001806001 + 800003FF001F800001C00001800003FE001F800001C00001C00003FC00078000 + 63E00001E00007FC000380007FF00001F0001FFC000080007FF00001F0001FFF + F80080007FF80019F0001FFFF801FE07FFFC003FF0001FFFFC03FC03FFFE007F + FC003FFFFF07F801FFFFFFFFFC003FFFFF0FF801FFFFFFFFFC003FFFFF1FF801 + FFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0 + 0007800001FFFFFFFE0003F00007C00003F07FFFFC0003F00007C00003E03FFF + F80003F00007C00003C01FFFF00003F00007C000038007FFE00003F00007C000 + 038007FFE00003F00007C000038003FFE00003F00007C000038000FFE00003F0 + 0007C000038000FFE00003F00007C00003C0007FE00003F00007C00003E0001F + E00003F00007C00003F0001FE00003F00007C00003F0000FE00003F00007C000 + 03FC0007E00003F00007C00003FE0003E00003F00007C00003FE0003E00003F0 + 0007C00003FF8003E00003F00007C00003FFC003E00003F00007C00003FFC003 + E00003F00007C00003FFF007FFFFFFF00007C00003FFF80FFFFFFFFE493FC000 + 03FFFC1FFFFFFFFE493FFFFFFFFFFFFFC00FFFFFFFFFFFFFFFFFFFFFC07FFFFF + FFFFFFFFFFFE001F807FFFFFFFFF800003FFF8FF807FFFFFFFFF800003FFF0FF + 807E1FFC003F800003FFE0FF807807000000800003FFC0FFC078070000008000 + 03FF80C7E07807000000800003F00083F87807000000800003C00003F87807FC + 003F800003C00003F87C07FF00FF800003C00003F87F07FF00FF800003C00007 + F87F87FF00FF800003C00007F87F87FF00FFFC0003C00003F87F87FFC3FFFC00 + 03C00003F80F87FFC3FFFC0003C00003F80187FFC3FFFC0003E00003F80007FF + C3FFFC0003FF80C7F80007FFC3FFFC0003FFC0FFF80007FFC3FFFC0003FFC0FF + FC0007FFC3FFFC0003FFF0FFFF0007FFFFFFFFFFFFFFF8FFFFE007FFFFFFFFFF + FFFFF8FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FF00007FF + FFFFFFFFFFFFC3FFFC001FF0001FFFFFFFFF00FFFC001FFC003FFFFFFFFE00FF + FC001FFC003FF8000FFE007FFC001FFF00FFFF181FFE007FFC001F000000FF18 + 1FFF81FFFC001F000000FE101FF381CFFC001F000000FE007FE381C3FC001F00 + 0000FE00FFC00003FC001F000000FC00FF800001FC001F000000F8007F000000 + FC001F000000F8003F000000FC001F000000F0003F000000FC001F000000F000 + FF800003FC001F000000F003FFC381C3FC001F000000F007FFE381C7FC001F00 + 0000E03FFFFF81FFFC001F000000C0FFFFFE007FFC001F000000C3FFFFFE007F + FC001F000000FFFFFFFE00FFFC001F000000FFFFFFFF00FFFC001F000000FFFF + FFFF81FFFFFFFFFFFFFFFFFFFFFFC7FFC0000FFFFFFFFFFFFFFFFFFFE07FFFFF + FFFFFFFFFFFFFFFF803FFF80000383FFFFFFFFFF801FFFE0000F81FFFFFFFFFF + 860FFFE0000F81FFFFFFFFFF8F07FFE0000FC07FFF8000018707FFE0000FE03F + FF8000018207FFE0000FF03FFF800001C007FFE0000FF80FFF800001E007FFE0 + 000FFC07FF800001F003FFE0000FFE07FF800001F8001FE0000FFF00CF800001 + FC000FE0000FFF8007800001FFC007F0001FFFC007800001FFE003F8FE3FFFE0 + 03800001FFE001F8FE3FFFE001800001FFE061F8FE3FFFE001800001FFF0F0F8 + 7C3FFFF803800001FFF070F87C3FFFF803800001FFF820F8383FFFF003800001 + FFFC01FC007FFFF003800001FFFE03FE00FFFFFE1FFFFFFFFFFF03FF01FFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FFFFFFFFFFFFFF3FFFFFFF01FFFFFFFFFFFFFE3FFFFFFF01800000800001 + FE3FFFFFFE01800000800003F83FFFFFF801900081800003F03FFFFFF8039000 + 81800003F00001FFF003900081800003C00001FFE00F900081800003800001F0 + 001F900081800003800001E0001F90008180000380000180007F9000FF800003 + 8000018000FF9000FF8000038000018001FF9000FF800003E000010001FF9000 + FF800003F000010001FF9FC0FF800003F03FFF0001FF9FC0FF800003FC3FFF00 + 01FF9FC0FF800003FE3FFF0001FF9FC0FF800003FE3FFF0001FF9FC0FF800003 + FFFFFF8003FF9FC0FFFFFFFFFFFFFF8007FF9FC0FFFFFFFFFFFFFFC007FF9FFF + FFFFFFFFFFFFFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 3FFFFFFFFFFFFFFF80007FC01FFFFFFFFF80000383FFFF800FFFFFFFFF800003 + 83FFFF8207FFFFFFFF80000381FFFF8F87FFFFFFFF800003807FFF8FC7FF8000 + 01800003C03FFF8FC7FF800001800003F00FFF8F07FF800001800003F000FF82 + 07FF800001800003F8003F8003FF800001800003FE001FE000FF800001800003 + FE0007F000FF800001800003FF0003FFC07F800001800003FF0003FFF01F8000 + 01800003FF0003FFF81F800001800003FF0203FFF80FEFFFFF800003FF8703FF + FE03E00003800003FF8707FFFF03FFFFFF800003FFC20FFFFF01FFFFFF800003 + FFE01FFFFF00FFFFFFFFFFFFFFE03FFFFF00FFFFFFFFFFFFFFF07FFFFF00FFFF + FFFFFFFFFFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFF + BFFFFFFFFFF0001FF1FFFFFF8FFF000000F8001FF1FFFFFF8FFF800001F8001F + F1FFFFFF87FF800001F8001FF1FFFFFF87FF800001C00003F1FFFFFF83FF8000 + 01800003F1FFFFFFC3FF800001800003F1FFFFFFC0FF800001C03C03F1FFFFFF + C0FF800001C07E03F1FFFFFFC0FF80000180FF03F00003FE007F80000181FF01 + F00003FE003F80000181FF01F00003FE003F80000180FF01F00003FE001F8000 + 01C07E03F00003FE001F800001C03C03F00003FE01FF800001801803F00003FE + 00FF800001800003F00003FE00FF800001C00003F00003FE00FF803FFFF8001F + F00003FE007F807FFFF8001FF001F3FE003F80FFFFF8001FF0FFFFFE003FFFFF + FFFCC33FF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003800001FF9FFF807E03E00007CC0033FF87FF807E03E00007CC0033FF87FF + 80FF03E00007C00003FF83FF807E03E00007C00003FF81FF803C03E00007CC00 + 33FF81FF803803E00007CC0033FF81FF880013E00007C00003FF81FFFC003FE0 + 0007C00003FF81FFFE007FE00007CC0033FF81FFFF00FFE00007C00003FF00FF + FF00FFE00007C00003FE007FFE00FFE00007C00003FE003FFC003FE00007CC00 + 33F8001F880013E00007C00003F0000F801803E00007C00003F00007803C03E0 + 0007CC0033C00003807E03E00007CC003380000180FF03E00007C00003800001 + 807E03E00007C00003800001807E03E0000FCC0033800001807E03E0001FCC00 + 33800001FFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFC00003800001C1FFFFFC007F800003800001C0FFFFF8003F + 800003800001E03FFFF0001F800003800001F00FFFE0000F800003800001F007 + FFC00007800003800001F007FF800003800003800001F001FF80000380000380 + 0001F800FF800003800003800001F800FF800003800003800001FE003F800003 + 800003800001FE001F800003800003800001FF001F800003800003800001FFC0 + 07800003800003800001FFC003800003800003800001FFE00380000380000380 + 0001FFF801800003800003803FFFFFF801C00007800003803FFFFFFC01E0000F + 80000380FFFFFFFF01F0001FC00003FFFFFFFFFF83F8003FE00007FFFFFFFFFF + C3FC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFF7FFF03E0780 + 0001F0001FFFC7FFE07E07E00007F0001FFF81FFC03C03E00007F0001FFF00FF + 803803E00007F0001FFE00FF800001E00007F0001FFC003F800001E00007F000 + 1FF8001F800001E00007F0001FF0001FC00003E00007F0001FE00007E00007E0 + 0007F0001FE00003F0000FE00007F0001FE00007F8001FE00007F0001FFE00FF + F8001FE00007F0001FFE00FFF0001FE00007F0001FFE00FFE00007E00007F000 + 1FFE00FFC00003E00007F0001FFE00FF800003E00007F0001FFE00FF800001E0 + 0007F0001FFE00FF800001E00007F0001FFE00FF801801E00007F0001FFE00FF + C03C03E00007F0001FFE00FFE07E07E0000FF0001FFE00FFF0FF0FE0001FF000 + 1FFE00FFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + F0E3FF00FFFFFFFFFFF1FFFFF003FC001FE0000FFFE1FFFFF003F0000FE0000F + FFE1FFFFF003F00007E0000FFFC1FFFE001FE00003E0000FC00003FE001FC000 + 03E0000F800003FE001FC00003E0000F800001C0021F800001E0000F800001C0 + 021F800001E0000F800001C0021F800001E0000F800001C0021F800001E0000F + 800001C0021F800001E0000F800001C0021F800001E0000F800001C0021F8000 + 01E0000F800001C0021F800001E0000F800001C0021FC00003E0000F800001C0 + 021FE00003E0000F800001C0021FF00007E0000F800001C0021FF00007E0000F + 800001FE001FFC001FE0000F800001FE001FFE003FE0000F800003FE001FFF00 + FFF0001FFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF00FFFC003FFF + FFFF800001FE003FF0000FFC03FFE00007F0000FE00007F803FFE00007F00007 + C00003F003FFE00007E00003800003E001FFE00007C00003800001C001FFE000 + 07800001800001C001FFE00007800001000000E000FFE00007800000000000F0 + 40FFE00007800000000800F0C0FFE00007800000003800FFE07FE00007800000 + 003C00FFE03FE00007800000003800FFF03FE00007800000000000FFF81FE000 + 07800000000000FFF81FE00007800000000000FFFC0FE00007800001800001FF + FF03E00007C00003800003FFFF03E00007C00003800003FFFF83E00007E00003 + E00007FFFFE1E00007F0000FF0000FFFFFFFF0000FF8001FF0001FFFFFFFFE00 + FFFE003FFE00FFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFFFFFFF8001FFFFFFF800003C1F0FFF0000F840023800003C0007F + F00007840021800003C000FFE00003840021800003E3F8FFC01E038E00618000 + 03FFFC7FC00F03840021800003FFFC7F80078180000180000380003F8003C180 + 000180000380003F8001C180000180000380003F8100C180000180000380001F + 81804180000180000380001F81C00180000180000380001F81E0018000018000 + 0380001F81F001800001E0000780000FC0F803800001E0000780000FE0000380 + 0001E00007C00007E00007800001FFFFFFFFE007F00007800001FFFFFFFFFFC1 + F8001FFFFFFFFFFFFFFFFFE1FE003FFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80001FFFFFFFFFFFFFFFFFFFC00003FF + FFFF800003FFFFFFC0000780001FC00007FFFFFFC0000780000FC00007800003 + C00007800007C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800001C0000780 + 0003C00007800001C00007800003C00007800001C00007800003C00007800001 + C00007800003C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800003C0001F80 + 0003C00007E00007C0001F800003C00007F8001FC001FF800003C00007FFC01F + C001FF800003C00007FFFFFFC001FF800003C00007FFFFFFC001FFFFFFFFC000 + 07FFFFFFF007FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFFFFFFFFF9 + F3FFFFFFFFFFFFFFE00007F8E3FF000000FFFFFFC00003F843FF000000800003 + C00003F803FF000000800003C00003F803FF000000800003C00003F803FF0000 + 00800003C00003F803FF000000800003C00003F803FF000000800003C00003F8 + 03FF000000800003C00003F803FF000000800003800001F803FF000000800003 + 800001F803FF000000800003800001F8001F000000800003800001F8001F0000 + 00800003FFC7FFF8001F000000800003FFC7FFF8001F000000800003FFC7FFF8 + 001F000000800003FFC7FFF8001F800001800003FFC7FFF8001FFE3CFF800003 + FFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00 + FFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFE0000FFF + C1FFFFFFFFF8001FE0000FFE003FFE7E7FFE00FFE0000FFC001FF83C1FFE18FF + E0000FF8000FF03C1FFE38FFC00007F00003F0181FFE3CFFC00007C0C181F818 + 1FFC38FF800003C1C1C1F8001FFC38FF800003C1C1C1FE007FFC38FF800003C1 + C1E1FE007FFC38FF800003C3E3E1FE00FFFC38FF800003CFE3F9800001FC38FF + 800003CFE3FD800001FC38FF800003FF80FF800001FC38FF800003FF80FF8000 + 01FC38FF800003FFE3FFFE00FFFC30FF800003FFC1FFFE007FFC30FF800003FF + 80FFFC003FFC00FF800003FF80FFFC001FFC84FF800003FF88FFF8181FFCFCFF + 800003FF80FFF0381FFC38FFC06C07FF80FFF03C1FFC00FFF0C60FFFC0FFF83C + 1FFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FC001FC0001F000000FFFF01FF00FFC00007000001FFFF01FF00FFC00007 + 000001FFFE01FF00FFC00007000001FFF801FF00FFC00007000001FFF803FF00 + FFC00007000001FFF003FF00FFC00007000001FFE00F800000C00007000001F0 + 001F800000C00007000000E0001F800000C0000700000080007F800000C00007 + 0000008000FF800000C000070000008001FF800000C000070000000001FF8000 + 00C000070000010001FF800000C000070000010001FF800000C0000700000100 + 001FFF00FFC0000700000100001FFF00FFC0000700000100001FFF00FFC00007 + 0000018003FFFF00FFC000070000018007FFFF00FFC00007000001C007FFFF00 + FFC00007FFFFFFF03FFFFF00FFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFE000F00 + 0000FC001FFFFFFFFC0007000000FC001F000000FA000FF0000FFC001F000001 + F00FFFF0000FFC001F800001F007FFF0000FFC001F800001E003FFF00007FC00 + 1F8000018003FFF00007FC001F8000018001FFF00007FC001FC000030001FFF0 + 0007FC001FE0000701807FF00003FC001FF0000F03C07FE00003FC003FFF00FF + 87E07FE00003000001FF81FF87F03FE00003000001FF00FFFFF81FE000018000 + 03FF00FFFFFC0F800001C00007FE00FFFFFE0F800001E0000FFE00FFFFFF0780 + 0001F0001FFE00FFFFFF87800001F8003FFE00FFFFFFC1800001FC007FFE00FF + FFFFE1800000FE00FFFF00FFFFFFF1800001FF01FFFF00FFFFFFF8800001FF83 + FFFF81FFFFFFFCE00003FFC7FFFFFFFFFFFFFFF0000FFFFFFF000001F8000FF0 + 000F000000000041FE003FFFF1FF800001800041000000FFF0FF800005800041 + 000000FFF07F80000180004180000100103F80000180004180000100000F8000 + 0180004180000100000780000180004180000100000380000180004180000100 + 0003800001800041800001000000800001800041800001000000800001800041 + 80000100000080000180006380000100000080000180007F8000010000018000 + 0180007F80000100000380000180007FE4000700000780000180007FFC003F00 + 000F80000180007FFC003FFFF01F80000180007FFC003FFFF03F800001803FFF + FC003FFFF07F800001803FFFFC003FFFF0FF800001803FFFFC003FFFF1FF8000 + 01803FFFFFFFFFFFF7FFFFFFFF807FFFFFFFFFF8003F88007FFFFFFF000000FE + 003F800000000000800001FE00FFFE00FF800001800000FE00FFFE00FF800001 + 800000FF01FFFE00FF800001800000FF01FFFE00FF800001800000000000FE00 + FF800001800000000000FE00FF80000180000000000000000180000180000000 + 0000000001800001800000000000000001800001800000000000000001800001 + 8000000000000000018000008000000000000000018000008000000000000000 + 01800000800001000000000001800000800001000000000001800000C0000300 + 0000FE00FF800000E00007000000FE00FF800000F0000F000000FE00FF800001 + F8001F000000FE00FF800001FC003F000000FE00FF801801FE007F000000FE00 + FF803E01FFFFFF000000FE00FFC1FFC1F0000FFFFFFFFFFFFFE0001FF0000FFF + FFFF800001E0001FFF83FFFFFFFFE00007FF8FFFFF00FFFFFFFFE00007FF0FFF + FE007F000001E00007FE0FFFFC003F000001F0000FFC0800F8003F800007F000 + 0FF00000F0000F800003F0000FE00000E0000F800003F0000FC00000C0000780 + 0001F0000FC00000800001800001E00007000000000001800001E00007000000 + 000001800001E00007000000FC003F800000E00007000000FC003F800000E000 + 07800000FC003F800000E00007C00000FC003F800007F0000FE00000FC003F80 + 0007F8001FF00000FC003F800007FC003FF80FFFFC003F80000FFE007FFC0FFF + FC003F803FFFFF007FFE0FFFFC003FFFFFFFFF807FFF0FFFFC003FFFFFFFFFC0 + 7FFF8FFFFC003FFFFFFFFFE7FFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFF00000080 + 0001000001E00001800001E00007000001C00001800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00003800001E000078000 + 01F00003800001E00007800001F00003800001E00007800001F00003800001E0 + 0007800001F00003800001E00007800001F00003800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00001800001E000078000 + 01F00001800001E00007800001F00001800001E00007800001F00003800001E0 + 0007800001F0000F800001E00007800001F0000F800001E00007800001F0001F + 800001E00007800001F0007F800001E00007800001F0007F800001FF81FF8000 + 01F000FFFCFF3FFF81FFFFFFFFF003FF00000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + 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 = clOlive + 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 = clPurple + 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 = clWindowText + 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 +end diff --git a/样品/U_DataLink.pas b/样品/U_DataLink.pas new file mode 100644 index 0000000..82a5796 --- /dev/null +++ b/样品/U_DataLink.pas @@ -0,0 +1,74 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils; +var + DConString:String; {ȫַ} + server, dtbase, user, pswd: String; {ݿӲ} + DCurHandle:hwnd; //ǰ + PicSvr:string; + 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; //˾ + IpCall:Integer; + IpWLDZStr:String; +type + TDataLink_YPGL = 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; + 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_YPGL: TDataLink_YPGL; + +implementation +{$R *.dfm} + + +procedure TDataLink_YPGL.DataModuleDestroy(Sender: TObject); +begin + DataLink_YPGL:=nil; +end; + +end. + + + + diff --git a/样品/U_FileUp.dfm b/样品/U_FileUp.dfm new file mode 100644 index 0000000..d38971a --- /dev/null +++ b/样品/U_FileUp.dfm @@ -0,0 +1,188 @@ +object frmFileUp: TfrmFileUp + Left = 247 + Top = 162 + Width = 660 + Height = 441 + 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 = 581 + Height = 362 + 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 = 581 + Top = 41 + Width = 63 + Height = 362 + Align = alRight + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_YPGL.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 = 644 + 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 = 445 + Top = 9 + Width = 60 + Height = 28 + 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_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ADOQueryFile + Left = 392 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 496 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + Top = 264 + end +end diff --git a/样品/U_FileUp.pas b/样品/U_FileUp.pas new file mode 100644 index 0000000..6813dcc --- /dev/null +++ b/样品/U_FileUp.pas @@ -0,0 +1,344 @@ +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,strutils; + +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(FTFID:string); + procedure ReadINIFile10(); + { Private declarations } + public + CYID:String; + { Public declarations } + end; + +var + frmFileUp: TfrmFileUp; + +implementation +uses + U_DataLink,U_Fun; + +{$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; + myStream: TADOBlobStream; +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 + IdFTP1.Host :=PicSvr;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end; + Panel16.Visible:=True; + Panel16.Refresh; + + try + AJpeg:=TJpegImage.Create(); + ADOQueryCmd.Connection.BeginTrans; + + for i:=0 to lstPat.Count - 1 do + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from XD_File'); + sql.Add('where CYID='''+trim(CYID)+''' '); + open; + end; + // PatFile:=Copy(ExtractFileName(lstPat[i]),(Pos('.',ExtractFileName(lstPat[i]))+1),(Length(ExtractFileName(lstPat[i]))-Pos('.',ExtractFileName(lstPat[i]))) ) ; + PatFile:=trim(Code.Text)+'-'+inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger)+'.'+Copy(ExtractFileName(lstPat[i]),(Pos('.',ExtractFileName(lstPat[i]))+1),(Length(ExtractFileName(lstPat[i]))-Pos('.',ExtractFileName(lstPat[i]))) ) ; + + AJpeg.LoadFromFile(ExtractFileName(lstPat[i])); + CreThumb(AJpeg,Image2,160, 120); + + if IdFTP1.Connected then + begin + try + IdFTP1.Put(lstPat[i], Trim('\YP')+'\'+Trim(PatFile)); + + 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; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID='''+Trim(MaxNo)+''''); + open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty 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(MaxNo); + FieldByName('WBID').Value:=Trim(CYID); + FieldByName('TFType').Value:='Ʒ'; + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; + except + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set TPFlag=1 where CYID='''+Trim(CYID)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + AJpeg.Free; + except + AJpeg.Free; + 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(FTFID:string); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FConNo,MaxNo:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + 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(FTFID); + FieldByName('WBID').Value:=Trim(CYID); + FieldByName('TFType').Value:='Ʒ'; + AJpeg.Assign(Image2.Picture.Graphic); + 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 TFID='''+Trim(ADOQueryFile.fieldbyname('XFID').AsString)+''''); + 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. diff --git a/样品/U_GetDllForm.pas b/样品/U_GetDllForm.pas new file mode 100644 index 0000000..c158e8c --- /dev/null +++ b/样品/U_GetDllForm.pas @@ -0,0 +1,234 @@ + +unit U_GetDllForm; +interface +uses + Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,IniFiles; +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_CPType,U_CPManage,U_KHGetCPManage,U_iniParam,U_CPManageCX; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=GName; + DCode:=GName; + 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; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + + // server:='115.239.234.54,7781'; //192.168.1.113 + server:='47.101.61.158,7781'; + dtbase:='haoyuedata'; + //dtbase:='YPdata'; + user:='sa'; + pswd:='rightsoft@123'; + DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID=' + +user+';Initial Catalog='+dtbase+';Data Source='+server; +// DConString:=DataBaseStr; + DParameters1:='Ӣ'; + DName:='ADMIN'; + //DParameters2:='ŷ޵λ'; + // DParameters5:=''; + if not ConnData() then + begin + result:=0; + exit; + end; + if IsINIFile() then + ReadINIFile() + else + WriteINIFile ; + // 崰 ״̬ + if WinStyle=0 then + begin + mstyle := fsMDIChild ; + mstate := wsMaximized ; + mborderstyle := bsSizeable; + end + else + begin + mstyle := fsNormal ; + mstate := wsNormal ; + mborderstyle := bsSizeable; + end; + ///////////////////// + //ģ鴰 + case FormId of + 1: // Ʒ + begin + if frmCPType=nil then + begin + frmCPType:= TfrmCPType.Create(application.MainForm); + with frmCPType do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCPType.BringToFront; + // + mNewHandle:=frmCPType.Handle; + + end ; + 2: // Ʒ + begin + if frmCPManage=nil then + begin + frmCPManage:= TfrmCPManage.Create(application.MainForm); + with frmCPManage do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCPManage.BringToFront; + // + mNewHandle:=frmCPManage.Handle; + + end ; + 3: // ͻȡ + begin + if frmKHGetCPManage=nil then + begin + frmKHGetCPManage:= TfrmKHGetCPManage.Create(application.MainForm); + with frmKHGetCPManage do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmKHGetCPManage.BringToFront; + // + mNewHandle:=frmKHGetCPManage.Handle; + + end ; + 4: // Ʒѯ + begin + if frmCPManageCX=nil then + begin + frmCPManageCX:= TfrmCPManageCX.Create(application.MainForm); + with frmCPManageCX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCPManageCX.BringToFront; + // + mNewHandle:=frmCPManageCX.Handle; + end ; + end ; // end case + + Result:= mnewHandle; + NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +var + IniFile: TIniFile; +begin + try + IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI'); + PicSvr := IniFile.ReadString('SERVER', 'ַ','127.0.0.1'); + finally + IniFile.Free; + end; + if not Assigned(DataLink_YPGL) then + DataLink_YPGL:=TDataLink_YPGL.Create(Application); + Try + with DataLink_YPGL.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 + OldDllApp:= Application; + +FINALIZATION + DataLink_YPGL.Free; + Application := OldDllApp; + +end. + diff --git a/样品/U_JWLIn.dfm b/样品/U_JWLIn.dfm new file mode 100644 index 0000000..3537b2a --- /dev/null +++ b/样品/U_JWLIn.dfm @@ -0,0 +1,240 @@ +object frmJWLIn: TfrmJWLIn + Left = 221 + Top = 143 + Width = 910 + Height = 461 + Caption = #20837#24211#32534#36753 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 902 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_JWLCK.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + Transparent = True + Wrapable = False + object BtnSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = BtnSaveClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 105 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20840#37096#26367#25442 + ImageIndex = 104 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object BtnExit: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = BtnExitClick + end + end + object cxGrid1: TcxGrid + Left = 16 + Top = 48 + Width = 857 + Height = 353 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + Column = v1ShortName + end + item + Format = 'YCLCode' + Column = v1P_ChnName + end + item + Format = '1' + Position = spFooter + Column = v1ShortName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1DepotClass: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #26399#21021#20837#24211 + #36710#38388#36864#22238 + #20854#23427#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Width = 131 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ShortNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'CRQty' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CRUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1UnitNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + HeaderAlignmentHorz = taCenter + Width = 108 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 192 + Top = 168 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 168 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_JWLCK.ADOLink + Parameters = <> + Left = 296 + Top = 200 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_JWLCK.ADOLink + Parameters = <> + Left = 264 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_JWLCK.ADOLink + Parameters = <> + Left = 224 + Top = 200 + end +end diff --git a/样品/U_JWLIn.pas b/样品/U_JWLIn.pas new file mode 100644 index 0000000..31185f5 --- /dev/null +++ b/样品/U_JWLIn.pas @@ -0,0 +1,373 @@ +unit U_JWLIn; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, + cxButtonEdit, cxDropDownEdit, cxCalendar; + +type + TfrmJWLIn = class(TForm) + ToolBar1: TToolBar; + BtnSave: TToolButton; + BtnExit: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1P_ChnName: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v1DepotClass: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure BtnExitClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitGrid(); + function SaveData():Boolean; + { Private declarations } + public + FMainID:string; + { Public declarations } + end; + +var + frmJWLIn: TfrmJWLIn; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmJWLIn.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmJWLIn.BtnExitClick(Sender: TObject); +begin + Close; +end; +procedure TfrmJWLIn.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,GYSName=C.ZDYName from CK_YCL_Main A inner join CK_YCL_Sub B on A.MainId=B.MainId '); + sql.Add(' left join KH_ZDY C on A.GYS=C.ZDYNO'); + SQL.Add(' where A.MainId='''+Trim(FMainID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJWLIn.ToolButton2Click(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmJWLIn.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('CRNo').AsString)<>'' then + begin + Application.MessageBox('ڴɾѾݣ','ʾ',0); + Exit; + end; + CDS_Sub.Delete; +end; + +procedure TfrmJWLIn.ToolButton4Click(Sender: TObject); +begin + CopyAddRow(tv1,CDS_Sub); +end; + +procedure TfrmJWLIn.ToolButton1Click(Sender: TObject); +begin + ToolBar1.SetFocus; + OneKeyPost(Tv1,CDS_Sub); +end; + +function TfrmJWLIn.SaveData():Boolean; +var + MaxNo,SubId,strSQL,LQuantity,LQty:string; + KID,i,PStatus,KID1:Integer; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.First; + while not CDS_Sub.Eof do + begin + if Trim(CDS_Sub.FieldByName('CRQty').AsString)='' then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('CRQty').Value:='0'; + CDS_Sub.Post; + end; + if Trim(CDS_Sub.fieldbyname('MainId').AsString)<>'' then + begin + MaxNo:=Trim(CDS_Sub.fieldbyname('MainId').AsString); + SubId:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + KID:=CDS_Sub.fieldbyname('CRID').AsInteger; + end else + begin + if GetLSNo(ADOQueryCmd,MaxNo,'MR','CK_YCL_Main',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + if GetLSNo(ADOQueryCmd,SubId,'SR','CK_YCL_Sub',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPDATE CK_CRID SET CRID = CRID+1'); + SQL.Add('SELECT CRID FROM CK_CRID'); + Open; + KID:=fieldbyname('CRID').AsInteger; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YCL_Sub where MainId='''+Trim(MaxNo)+''''); + SQL.Add(' and CRID='+Inttostr(KID)); + Open; + if not ADOQueryTemp.IsEmpty then + begin + LQuantity:=ADOQueryTemp.fieldbyname('CRQty').AsString; + end else + begin + LQuantity:='0.00'; + end; + end; + // + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YCL_Main where MainId='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('MainId').AsString)<>'' then + Edit + else + Append; + FieldByName('MainId').Value:=Trim(MaxNo); + FieldByName('CRFlag').Value:=''; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRTime').Value:=Trim(CDS_Sub.fieldbyname('CRTime').AsString); + FieldByName('CRType').Value:=Trim(CDS_Sub.fieldbyname('CRType').AsString); + FieldByName('GYS').Value:=Trim(CDS_Sub.fieldbyname('GYS').AsString); + FieldByName('CKName').Value:=Trim(DParameters1); + Post; + end; + //ӱ + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YCL_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)<>'' then + Edit + else + Append; + FieldByName('MainId').Value:=Trim(MaxNo); + FieldByName('SubId').Value:=Trim(SubId); + FieldByName('CRID').Value:=KID; + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,CDS_Sub,'CK_YCL_Sub',2); + Post; + end; + //浽 + if Trim(CDS_Sub.fieldbyname('MainId').AsString)='' then + begin + strSQL := 'INSERT CK_YCL_KC (' + + 'CRID,' + + 'RKNo,' + + 'KCQty' + + ') VALUES (' + + IntToStr(KID) + ',' + + QuotedStr(Trim(SubId)) + ',' + + QuotedStr(Trim(CDS_Sub.fieldbyname('CRQty').AsString)) + '' + + ')'; + + + end else + begin + //µ + strSQL := 'UPDATE CK_YCL_KC SET ' + + 'RKNo = ' + QuotedStr(Trim(SubId)) + ',' + + 'KCQty =KCQty-'+LQuantity+'+'+ CDS_Sub.fieldbyname('CRQty').AsString+ ' ' + + 'WHERE CRID = ' + IntToStr(KID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(strSQL); + ExecSQL; + end; + CDS_Sub.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FMainID:=MaxNo; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmJWLIn.BtnSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',Null,[]) then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('YCLName',Null,[]) then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',Null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRQty',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmJWLIn.FormShow(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJWLIn.v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YCL'; + flagname:='ԭ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJWLIn.v1ShortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYS'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJWLIn.v1UnitNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DW'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('CRUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/样品/U_JWLInList.dfm b/样品/U_JWLInList.dfm new file mode 100644 index 0000000..1a3b75a --- /dev/null +++ b/样品/U_JWLInList.dfm @@ -0,0 +1,137 @@ +object frmJWLInList: TfrmJWLInList + Left = 75 + Top = 155 + Width = 1165 + Height = 618 + Caption = #20837#24211#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 = 1157 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 496 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 552 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 176 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 504 + Top = 216 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 588 + Top = 224 + end +end diff --git a/样品/U_JWLInList.pas b/样品/U_JWLInList.pas new file mode 100644 index 0000000..6ed50a1 --- /dev/null +++ b/样品/U_JWLInList.pas @@ -0,0 +1,257 @@ +unit U_JWLInList; + +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; + +type + TfrmJWLInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + CDS_Main: TClientDataSet; + 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 TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure YCLNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmJWLInList: TfrmJWLInList; + +implementation +uses + U_DataLink,U_Fun,U_JWLIn; + +{$R *.dfm} + +procedure TfrmJWLInList.FormDestroy(Sender: TObject); +begin + frmJWLInList:=nil; +end; + +procedure TfrmJWLInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJWLInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmJWLInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'˹ֿ'); +end; + +procedure TfrmJWLInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,GYSName=C.ZDYName from CK_YCL_Main A inner join CK_YCL_Sub B on A.MainId=B.MainId '); + sql.Add(' left join KH_ZDY C on A.GYS=C.ZDYNO'); + SQL.Add(' where CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + SQL.Add(' and CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and CKName='''+Trim(DParameters1)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJWLInList.InitForm(); +begin + ReadCxGrid('б',Tv1,'ԭϲֿ'); + + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-7; + InitGrid(); +end; + +procedure TfrmJWLInList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmJWLInList.TBEditClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YCL_Sub where CRID='+Trim(ADOQueryMain.fieldbyname('CRID').AsString)); + sql.Add(' and MainId like ''MC%'' '); + open; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('ƷѾг¼ܽв','ʾ',0); + Exit; + end; + end; + + try + frmJWLIn:=TfrmJWLIn.Create(Application); + with frmJWLIn do + begin + FMainId:=Trim(self.CDS_Main.fieldbyname('MainId').AsString); + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('MainId',FMainID,[]); + end; + end; + finally + frmJWLIn.Free; + end; +end; + +procedure TfrmJWLInList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YCL_Sub where CRID='+Trim(ADOQueryMain.fieldbyname('CRID').AsString)); + sql.Add(' and MainId like ''MC%'' '); + open; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('ƷѾг¼ܽв','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + CDS_Main.Delete; + end; +end; + +function TfrmJWLInList.DelData():Boolean; +var + FInt:Integer; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YCL_Main where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' delete CK_YCL_Sub where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' delete CK_YCL_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmJWLInList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmJWLInList.TBPrintClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; +end; + +procedure TfrmJWLInList.TBAddClick(Sender: TObject); +begin + try + frmJWLIn:=TfrmJWLIn.Create(Application); + with frmJWLIn do + begin + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('MainId',FMainID,[]); + end; + end; + finally + frmJWLIn.Free; + end; +end; + +procedure TfrmJWLInList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJWLInList.YCLNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmJWLInList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +end. diff --git a/样品/U_KHGetCPAdd.dfm b/样品/U_KHGetCPAdd.dfm new file mode 100644 index 0000000..ae3cd2d --- /dev/null +++ b/样品/U_KHGetCPAdd.dfm @@ -0,0 +1,398 @@ +object frmKHGetCPAdd: TfrmKHGetCPAdd + Left = 180 + Top = 87 + Width = 1254 + Height = 625 + Align = alClient + Caption = #25343#26679#30331#35760 + 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 = 1238 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 129 + Width = 1238 + Height = 458 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 1 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 102 + end + object v1Column2: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Tag = 1 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column5: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Tag = 1 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 75 + end + object v1Column8: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 110 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1238 + Height = 96 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 51 + Top = 16 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TLabel + Left = 288 + Top = 16 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label3: TLabel + Left = 528 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26102#38388 + end + object TLabel + Left = 315 + Top = 80 + Width = 18 + Height = 12 + Caption = 'CIF' + Visible = False + end + object TLabel + Left = 552 + Top = 80 + Width = 48 + Height = 12 + Caption = #27719' '#29575 + Visible = False + end + object TLabel + Left = 792 + Top = 80 + Width = 48 + Height = 12 + Caption = #31995' '#25968 + Visible = False + end + object TLabel + Left = 1040 + Top = 48 + Width = 48 + Height = 12 + Caption = #20215#26684#31867#22411 + Visible = False + end + object TLabel + Left = 1040 + Top = 80 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object TLabel + Left = 64 + Top = 44 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object CYID: TEdit + Left = 105 + Top = 12 + Width = 131 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object KHName: TEdit + Left = 340 + Top = 12 + Width = 126 + Height = 20 + TabOrder = 1 + end + object CKDate: TcxDateEdit + Left = 578 + Top = 12 + Properties.Kind = ckDateTime + TabOrder = 2 + Width = 147 + end + object CIF: TEdit + Left = 369 + Top = 76 + Width = 131 + Height = 20 + TabOrder = 3 + Visible = False + end + object HuiLv: TEdit + Left = 604 + Top = 76 + Width = 126 + Height = 20 + TabOrder = 4 + Visible = False + end + object LiRunLv: TEdit + Left = 842 + Top = 76 + Width = 146 + Height = 20 + TabOrder = 5 + Visible = False + end + object PriceType: TComboBox + Left = 1094 + Top = 44 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #20844#26020#20215 + Visible = False + Items.Strings = ( + #20844#26020#20215 + #31859#20215 + #30721#20215) + end + object CKNO: TEdit + Left = 1092 + Top = 76 + Width = 146 + Height = 20 + ReadOnly = True + TabOrder = 7 + Visible = False + end + object Button1: TButton + Left = 1240 + Top = 44 + Width = 56 + Height = 20 + Caption = #19968#38190#26367#25442 + TabOrder = 8 + Visible = False + OnClick = Button1Click + end + object CKYwy: TEdit + Left = 105 + Top = 40 + Width = 131 + Height = 20 + TabOrder = 9 + end + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 193 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 491 + Top = 195 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 389 + Top = 193 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 565 + Top = 193 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 192 + end +end diff --git a/样品/U_KHGetCPAdd.pas b/样品/U_KHGetCPAdd.pas new file mode 100644 index 0000000..3fa0cf6 --- /dev/null +++ b/样品/U_KHGetCPAdd.pas @@ -0,0 +1,510 @@ +unit U_KHGetCPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxTextEdit, + cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls; + +type + TfrmKHGetCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource2: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Panel1: TPanel; + CYID: TEdit; + Label1: TLabel; + KHName: TEdit; + Label3: TLabel; + CKDate: TcxDateEdit; + v1Column13: TcxGridDBColumn; + CIF: TEdit; + HuiLv: TEdit; + LiRunLv: TEdit; + PriceType: TComboBox; + CKNO: TEdit; + Button1: TButton; + CKYwy: TEdit; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + private + Fint:Integer; + procedure InitSubGrid(); + function SaveData():Boolean; + { Private declarations } + public + FCYID,FCYCode,FCPID,FCPNO:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmKHGetCPAdd: TfrmKHGetCPAdd; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmKHGetCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(FCYID); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.FormShow(Sender: TObject); +var + fsj:String; +begin + + ReadCxGrid('ͻIN',Tv1,'Ʒ'); + InitSubGrid(); + IF not CDS_Sub.IsEmpty then + begin + KHName.Text:=Trim(CDS_Sub.fieldbyname('KHName').AsString); + CKDate.Date:=CDS_Sub.fieldbyname('CKdate').AsDateTime; + CKNO.Text:=Trim(CDS_Sub.fieldbyname('CKNO').AsString); + CKYwy.Text:=Trim(CDS_Sub.fieldbyname('CKYwy').AsString); + end; + if Trim(FCYID)='' then + begin + CKDate.Date:=SGetServerDate(ADOQueryTemp); + CKYwy.Text:=Dname; + end; + if CopyInt=99 then + begin + CKNO.Text:=''; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('CKID').Value:=''; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻIN',Tv1,'Ʒ'); + Close; +end; +function TfrmKHGetCPAdd.SaveData():Boolean; +var + maxId,FCKNO:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CKNO.Text)='' then + begin + if GetLSNo(ADOQueryCmd,FCKNO,'','CP_YDang_KHGet',3,1) =False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + FCKNO:=Trim(CKNO.Text); + end; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'CK','CP_YDang_KHGet',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CKID').Value:=Trim(maxId); + FieldByName('CKNO').Value:=Trim(FCKNO); + FieldByName('CYID').Value:=Trim(CDS_Sub.fieldbyname('CYID').AsString); + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('CKYwy').Value:=Trim(CKYwy.Text); + FieldByName('CKdate').Value:=CKDate.Date; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang_KHGet',3); +// FieldByName('CostPrice').Value:=CDS_Sub.fieldbyname('CostPrice').Value; + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmKHGetCPAdd.ToolButton1Click(Sender: TObject); +begin + if Trim(KHName.Text)='' then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.IsEmpty then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmKHGetCPAdd.CYIDKeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; +begin + if Key=#13 then + begin +// if Trim(CIF.Text)<>'' then +// begin +// if TryStrToFloat(Trim(CIF.Text),FReal)=False then +// begin +// CYID.Text:=''; +// Application.MessageBox('CIFַǷ!','',0); +// Exit; +// end; +// end; +// if Trim(HuiLv.Text)<>'' then +// begin +// if TryStrToFloat(Trim(HuiLv.Text),FReal)=False then +// begin +// CYID.Text:=''; +// Application.MessageBox('ַǷ!','',0); +// Exit; +// end; +// end else +// begin +// CYID.Text:=''; +// Application.MessageBox('ʲΪ!','ʾ',0); +// Exit; +// end; +// if Trim(LiRunLv.Text)<>'' then +// begin +// if TryStrToFloat(Trim(LiRunLv.Text),FReal)=False then +// begin +// CYID.Text:=''; +// Application.MessageBox('ַǷ!','',0); +// Exit; +// end; +// end else +// begin +// CYID.Text:=''; +// Application.MessageBox('ʲΪ!','ʾ',0); +// Exit; +// end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + sql.Add(' or CYNo='''+Trim(CYID.Text)+''''); + Open; + CYID.Text:=''; + end; + if ADOQueryTemp.IsEmpty then Exit; + with CDS_Sub do + begin + Append; + FieldByName('CYID').Value:=Trim(ADOQueryTemp.fieldbyname('CYID').AsString); + FieldByName('CYNo').Value:=Trim(ADOQueryTemp.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(ADOQueryTemp.fieldbyname('CYName').AsString); + FieldByName('CYEName').Value:=Trim(ADOQueryTemp.fieldbyname('CYEName').AsString); + FieldByName('CYSpec').Value:=Trim(ADOQueryTemp.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(ADOQueryTemp.fieldbyname('CYCF').AsString); + FieldByName('CYECF').Value:=Trim(ADOQueryTemp.fieldbyname('CYECF').AsString); + FieldByName('CYMF').Value:=Trim(ADOQueryTemp.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(ADOQueryTemp.fieldbyname('CYKZ').AsString); + FieldByName('CYColor').Value:=Trim(ADOQueryTemp.fieldbyname('CYColor').AsString); +// FieldByName('PriceType').Value:=Trim(PriceType.Text); +// FieldByName('CKYwy').Value:=Trim(DName); + FieldByName('CYColorEng').Value:=Trim(ADOQueryTemp.fieldbyname('CYColorEng').AsString); + { if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; } +// FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('price6').AsFloat; +// if Trim(CIF.Text)='' then +// begin +//// FieldByName('CIF').Value:=0; +// end else +// begin +//// FieldByName('CIF').Value:=StrToFloat(CIF.Text); +// end; +// FieldByName('HuiLv').Value:=StrToFloat(HuiLv.Text); +// FieldByName('LiRunLv').Value:=StrToFloat(LiRunLv.Text); + Post; + end; + with CDS_Sub do + begin + Edit; +// IF FieldByName('LiRunLv').AsFloat=0.0 then +// begin +// FieldByName('RMBPrice').Value:=0; +// FieldByName('USDPrice').Value:=0; +// end +// else +// begin +// FieldByName('RMBPrice').Value:=FieldByName('CostPrice').AsFloat*1.00/FieldByName('LiRunLv').AsFloat; +// FieldByName('USDPrice').Value:=FieldByName('CostPrice').AsFloat*1.00/FieldByName('LiRunLv').AsFloat/FieldByName('HuiLv').AsFloat+FieldByName('CIF').AsFloat; +// end; + { + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; } + Post; + end; + end; +end; + +procedure TfrmKHGetCPAdd.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('CKID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾѱ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Sub.Delete; + +end; + +procedure TfrmKHGetCPAdd.v1Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=Trim(TcxComboBox(Sender).EditingText); + with CDS_Sub do + begin + Edit; + FieldByName('PriceType').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='׼' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + +end; + +procedure TfrmKHGetCPAdd.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,MFieldName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + MFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Sub do + begin + Edit; + FieldByName(MFieldName).Value:=mvalue; + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; +end; + +procedure TfrmKHGetCPAdd.Button1Click(Sender: TObject); +begin + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PriceType').Value:=Trim(PriceType.Text); + Post; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + Next; + end; + end; + +end; + +end. diff --git a/样品/U_KHGetCPManage.dfm b/样品/U_KHGetCPManage.dfm new file mode 100644 index 0000000..54bc27f --- /dev/null +++ b/样品/U_KHGetCPManage.dfm @@ -0,0 +1,560 @@ +object frmKHGetCPManage: TfrmKHGetCPManage + Left = 119 + Top = 32 + Width = 1382 + Height = 754 + Caption = #25343#26679#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 = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 155 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton3Click + end + object ToolButton9: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 58 + OnClick = ToolButton9Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360#25343#26679#28165#21333 + ImageIndex = 12 + OnClick = ToolButton7Click + end + object ToolButton10: TToolButton + Left = 639 + Top = 0 + Caption = #25171#21360#25343#26679#28165#21333'('#26080#21333#20215')' + ImageIndex = 12 + OnClick = ToolButton10Click + end + object ToolButton8: TToolButton + Left = 794 + Top = 0 + AutoSize = True + Caption = #31354#30333#20449#31546#32440 + ImageIndex = 12 + OnClick = ToolButton8Click + end + object ToolButton5: TToolButton + Left = 893 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 980 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 1067 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 193 + Width = 1366 + Height = 523 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_YPGL.Default + object v1Column20: TcxGridDBColumn + Caption = #25343#26679#32534#21495 + DataBinding.FieldName = 'CKNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 98 + end + object v1Column19: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 83 + end + object v1Column21: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'CKYwy' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #25343#26679#26102#38388 + DataBinding.FieldName = 'CKDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 106 + end + object v1Column12: TcxGridDBColumn + Caption = #26679#21697#31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 65 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column14: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 162 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label2: TLabel + Left = 184 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label1: TLabel + Left = 184 + Top = 67 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 184 + Top = 92 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 184 + Top = 41 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 184 + Top = 118 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label6: TLabel + Left = 16 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26085#26399 + end + object Label7: TLabel + Left = 184 + Top = 143 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Image2: TImage + Left = 377 + Top = 2 + Width = 192 + Height = 159 + end + object CYNo: TEdit + Tag = 2 + Left = 235 + Top = 12 + Width = 101 + Height = 20 + TabOrder = 0 + OnChange = CYNoChange + OnKeyPress = CYNoKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 235 + Top = 63 + Width = 101 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 235 + Top = 88 + Width = 101 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 235 + Top = 37 + Width = 101 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object KHName: TEdit + Tag = 2 + Left = 235 + Top = 114 + Width = 101 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object BegDate: TDateTimePicker + Left = 64 + Top = 12 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 5 + end + object EndDate: TDateTimePicker + Left = 64 + Top = 35 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 6 + end + object CKNO: TEdit + Tag = 2 + Left = 235 + Top = 139 + Width = 101 + Height = 20 + TabOrder = 7 + OnKeyPress = CKNOKeyPress + end + end + object DataSource1: TDataSource + DataSet = ADOQueryPrint + Left = 395 + Top = 91 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 341 + Top = 265 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 933 + Top = 73 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 965 + Top = 81 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 528 + Top = 216 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 491 + Top = 211 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 209 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 368 + Top = 256 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 296 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 900 + Top = 189 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 901 + Top = 228 + end + object SaveDialog1: TSaveDialog + Left = 905 + Top = 277 + end + object RM2: 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 488 + Top = 312 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 528 + Top = 304 + 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 = 640 + Top = 216 + end +end diff --git a/样品/U_KHGetCPManage.pas b/样品/U_KHGetCPManage.pas new file mode 100644 index 0000000..e443245 --- /dev/null +++ b/样品/U_KHGetCPManage.pas @@ -0,0 +1,580 @@ +unit U_KHGetCPManage; + +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, RM_e_Xls,jpeg; + +type + TfrmKHGetCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryPrint: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Panel1: TPanel; + Label2: TLabel; + CYNo: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label3: TLabel; + KHName: TEdit; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column14: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label7: TLabel; + CKNO: TEdit; + ToolButton7: TToolButton; + RM2: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton8: TToolButton; + Image2: TImage; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CKNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + + public + { Public declarations } + end; + +var + frmKHGetCPManage: TfrmKHGetCPManage; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_KHGetCPAdd; + +{$R *.dfm} + +procedure TfrmKHGetCPManage.InitTree(); +var + i:Integer; +begin + {with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); } + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmKHGetCPManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=''; + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('PState').Value:=0; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPManage.FormDestroy(Sender: TObject); +begin + frmKHGetCPManage:=nil; +end; + +procedure TfrmKHGetCPManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKHGetCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('E:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmKHGetCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmKHGetCPManage.FormShow(Sender: TObject); +begin + //InitTree(); + ReadCxGrid('Ʒб',Tv1,'Ʒ'); + + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-7; +end; + +procedure TfrmKHGetCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.TBAddClick(Sender: TObject); +begin + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=''; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton2Click(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 TfrmKHGetCPManage.CYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYNo.Text)+''''); + Open; + CYNo.Text:=Trim(fieldbyname('CYNo').AsString); + end; + end; +end; + +procedure TfrmKHGetCPManage.CYNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmKHGetCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('ͻ',cxGrid1); +end; + +procedure TfrmKHGetCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf' ; + if FileExists(fPrintFile) then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmKHGetCPManage.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 TfrmKHGetCPManage.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // ToolButton6.Click; +end; + +procedure TfrmKHGetCPManage.CKNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CKNO.Text)='' then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CKNO.Text); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CKNO.Text:=''; + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +procedure TfrmKHGetCPManage.ToolButton7Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryPrint do + begin + Close; + sql.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CDS_Main.fieldbyname('CKNO').AsString); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\嵥.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['printer']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\嵥.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile:string; +begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\հżֽ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\հżֽ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton9Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + CopyInt:=99; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton10Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryPrint do + begin + Close; + sql.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CDS_Main.fieldbyname('CKNO').AsString); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\嵥(޵).rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['printer']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\嵥(޵).rmf'),'ʾ',0); + end; +end; + +end. diff --git a/样品/U_KHGetY.dfm b/样品/U_KHGetY.dfm new file mode 100644 index 0000000..9a4a8de --- /dev/null +++ b/样品/U_KHGetY.dfm @@ -0,0 +1,293 @@ +object frmKHGetY: TfrmKHGetY + Left = 68 + Top = 115 + Width = 1182 + Height = 724 + Caption = #23458#25143#25343#26679 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1174 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label2: TLabel + Left = 16 + Top = 15 + Width = 48 + Height = 13 + Caption = #20135#21697#32534#21495 + end + object Label1: TLabel + Left = 184 + Top = 15 + Width = 48 + Height = 13 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 368 + Top = 15 + Width = 48 + Height = 13 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 544 + Top = 15 + Width = 24 + Height = 13 + Caption = #35268#26684 + end + object CYNo: TEdit + Tag = 2 + Left = 72 + Top = 11 + Width = 89 + Height = 21 + TabOrder = 0 + end + object CYName: TEdit + Tag = 2 + Left = 241 + Top = 11 + Width = 89 + Height = 21 + TabOrder = 1 + end + object CYEName: TEdit + Tag = 2 + Left = 425 + Top = 11 + Width = 89 + Height = 21 + TabOrder = 2 + end + object CYSpec: TEdit + Tag = 2 + Left = 573 + Top = 11 + Width = 89 + Height = 21 + TabOrder = 3 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1174 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + end + object ToolButton5: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + end + object ToolButton6: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + end + object TBClose: TToolButton + Left = 639 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 72 + Width = 1174 + Height = 615 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object v1Column10: TcxGridDBColumn + Caption = #23458#25143 + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column13: TcxGridDBColumn + Caption = #25343#26679#26085#26399 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #21333#20215 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column15: TcxGridDBColumn + Caption = #24065#31181 + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end +end diff --git a/样品/U_KHGetY.pas b/样品/U_KHGetY.pas new file mode 100644 index 0000000..1983f26 --- /dev/null +++ b/样品/U_KHGetY.pas @@ -0,0 +1,77 @@ +unit U_KHGetY; + +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, ComCtrls, ToolWin, StdCtrls, ExtCtrls; + +type + TfrmKHGetY = class(TForm) + Panel1: TPanel; + Label2: TLabel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + CYNo: TEdit; + CYName: TEdit; + CYEName: TEdit; + CYSpec: TEdit; + ToolBar1: TToolBar; + TBRafresh: TToolButton; + ToolButton2: TToolButton; + TBAdd: TToolButton; + ToolButton3: TToolButton; + TBDel: TToolButton; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column12: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKHGetY: TfrmKHGetY; + +implementation + +{$R *.dfm} + +procedure TfrmKHGetY.FormDestroy(Sender: TObject); +begin + frmKHGetY:=nil; +end; + +procedure TfrmKHGetY.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +end. diff --git a/样品/U_OrderInPut.dfm b/样品/U_OrderInPut.dfm new file mode 100644 index 0000000..d729738 --- /dev/null +++ b/样品/U_OrderInPut.dfm @@ -0,0 +1,653 @@ +object frmOrderInPut: TfrmOrderInPut + Left = 229 + Top = 132 + Width = 835 + Height = 575 + Caption = #25351#31034#21333#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 = 827 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 827 + Height = 218 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 15 + Width = 65 + Height = 12 + Caption = #35746#21333#32534#21495#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 = 214 + Top = 15 + Width = 67 + Height = 12 + Caption = #21697' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 409 + Top = 15 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 601 + Top = 15 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 24 + Top = 48 + Width = 66 + Height = 12 + Caption = #22383' '#24067' '#21378#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 = 214 + Top = 48 + Width = 66 + Height = 12 + Caption = #21360' '#26579' '#21378#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 = 409 + Top = 48 + Width = 66 + Height = 12 + Caption = #21152' '#24037' '#21378#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 = 56 + Top = 86 + Width = 15 + Height = 98 + Caption = #27880#13#10#13#10#24847#13#10#13#10#20107#13#10#13#10#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 601 + Top = 48 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 86 + Top = 13 + Width = 100 + Height = 18 + TabOrder = 0 + end + object OrderDate: TDateTimePicker + Left = 470 + Top = 11 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object DeliveryDate: TDateTimePicker + Left = 663 + Top = 11 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object PRTCodeName: TcxButtonEdit + Left = 279 + Top = 11 + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = PRTCodeNamePropertiesButtonClick + Properties.OnChange = PRTCodeNamePropertiesChange + ShowHint = False + TabOrder = 3 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object FactoryNo1Name: TcxButtonEdit + Left = 87 + Top = 42 + Hint = 'FactoryNo1' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNo1NamePropertiesButtonClick + Properties.OnChange = FactoryNo1NamePropertiesChange + ShowHint = False + TabOrder = 4 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object FactoryNo2Name: TcxButtonEdit + Left = 279 + Top = 42 + Hint = 'FactoryNo2' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNo2NamePropertiesButtonClick + Properties.OnChange = FactoryNo2NamePropertiesChange + ShowHint = False + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object FactoryNo3Name: TcxButtonEdit + Left = 471 + Top = 42 + Hint = 'FactoryNo3' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNo3NamePropertiesButtonClick + Properties.OnChange = FactoryNo3NamePropertiesChange + ShowHint = False + TabOrder = 6 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object PanZDY: TPanel + Left = 664 + Top = 64 + Width = 151 + Height = 153 + TabOrder = 7 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 142 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 129 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 40 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object CustomerNoName: TcxButtonEdit + Left = 663 + Top = 42 + Hint = 'CustomerNo' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CustomNoNamePropertiesButtonClick + Properties.OnChange = CustomNoNamePropertiesChange + ShowHint = False + TabOrder = 8 + OnKeyDown = PRTCodeNameKeyDown + Width = 100 + end + object Note: TRichEdit + Left = 83 + Top = 80 + Width = 483 + Height = 113 + TabOrder = 9 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 483 + Width = 827 + Height = 55 + Align = alBottom + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 2 + Visible = False + object Label9: TLabel + Left = 40 + Top = 19 + Width = 52 + Height = 12 + Caption = #23457#26680#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 240 + Top = 19 + Width = 60 + Height = 12 + Caption = #20027' '#31649#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 = 451 + Top = 19 + Width = 52 + Height = 12 + Caption = #36319#21333#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Chker: TEdit + Left = 89 + Top = 16 + Width = 121 + Height = 18 + TabOrder = 0 + end + object Person1: TEdit + Left = 297 + Top = 16 + Width = 121 + Height = 18 + TabOrder = 1 + end + object Person2: TEdit + Left = 500 + Top = 16 + Width = 121 + Height = 18 + TabOrder = 2 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 247 + Width = 827 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 276 + Width = 827 + Height = 207 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 v1XHNO: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 51 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 78 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 65 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 64 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 67 + end + object v1OrderQty: TcxGridDBColumn + Caption = #35746#21333#25968 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 73 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 58 + end + object v1Column2: TcxGridDBColumn + Caption = #25104#21697#26085#26399 + DataBinding.FieldName = 'PRTDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1PRTQty: TcxGridDBColumn + Caption = #25104#21697#25968 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_OrderManage.handBlack + Width = 65 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #25104#21697#21333#20301 + DataBinding.FieldName = 'PRTUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.handBlack + Width = 57 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 125 + end + object ADOCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 624 + Top = 157 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 336 + Top = 120 + end + object ADOZDY: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 117 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 120 + end + object ADOQuery1: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 576 + Top = 173 + end +end diff --git a/样品/U_OrderInPut.pas b/样品/U_OrderInPut.pas new file mode 100644 index 0000000..6f5a96d --- /dev/null +++ b/样品/U_OrderInPut.pas @@ -0,0 +1,602 @@ +unit U_OrderInPut; + +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; + +type + TfrmOrderInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrderDate: TDateTimePicker; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + ScrollBox2: TScrollBox; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1XHNO: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1OrderQty: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Label9: TLabel; + Chker: TEdit; + Label10: TLabel; + Person1: TEdit; + Label11: TLabel; + Person2: TEdit; + v1OrderUnit: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + PRTCodeName: TcxButtonEdit; + FactoryNo1Name: TcxButtonEdit; + FactoryNo2Name: TcxButtonEdit; + FactoryNo3Name: TcxButtonEdit; + ADOQuery1: TADOQuery; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label12: TLabel; + CustomerNoName: TcxButtonEdit; + Note: TRichEdit; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTCodeNamePropertiesChange(Sender: TObject); + procedure FactoryNo1NamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNo1NamePropertiesChange(Sender: TObject); + procedure FactoryNo2NamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNo2NamePropertiesChange(Sender: TObject); + procedure FactoryNo3NamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNo3NamePropertiesChange(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomNoNamePropertiesChange(Sender: TObject); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState:Integer; + FMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPut: TfrmOrderInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOrderInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec Order_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + OrderDate.DateTime:=SGetServerDateTime(ADOTemp); + DeliveryDate.DateTime:=SGetServerDateTime(ADOTemp); + end; + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmOrderInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPut.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPut.PRTCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(PRTCodeName.Name); + flagname:='Ʒ'; + if ShowModal=1 then + begin + Self.FXS:=99; + PRTCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + PRTCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.PRTCodeNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(PRTCodeName,Trim(PRTCodeName.Name)); +end; + +procedure TfrmOrderInPut.FactoryNo1NamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(FactoryNo1Name.Name); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + FactoryNo1Name.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNo1Name.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + // VHelpZDYName.Visible:=False; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.FactoryNo1NamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNo1Name,Trim(FactoryNo1Name.Name)); +end; + +procedure TfrmOrderInPut.FactoryNo2NamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(FactoryNo2Name.Name); + flagname:='ӡȾ'; + if ShowModal=1 then + begin + Self.FXS:=99; + FactoryNo2Name.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNo2Name.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.FactoryNo2NamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNo2Name,Trim(FactoryNo2Name.Name)); +end; + +procedure TfrmOrderInPut.FactoryNo3NamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(FactoryNo3Name.Name); + flagname:='ӹ'; + if ShowModal=1 then + begin + Self.FXS:=99; + FactoryNo3Name.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNo3Name.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.FactoryNo3NamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNo3Name,Trim(FactoryNo3Name.Name)); +end; + +procedure TfrmOrderInPut.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmOrderInPut.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmOrderInPut.FormShow(Sender: TObject); +begin + if Trim(DParameters1)='1' then + begin + Label12.Visible:=False; + CustomerNoName.Visible:=False; + end else + begin + Label12.Visible:=True; + CustomerNoName.Visible:=True; + end; + InitData(); +end; + +function TfrmOrderInPut.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Order_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'OM','Order_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'Order_Main',ScrollBox1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'OS','Order_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Order_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Order_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); +begin + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(PRTCodeName.Text)='' then + begin + Application.MessageBox('ƷΪգ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + i:=Order_Sub.RecordCount; + i:=i+1; + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=IntToStr(i); + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + Order_Sub.Delete; +end; + +procedure TfrmOrderInPut.CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('CustomNoName'); + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.FXS:=99; + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.CustomNoNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(CustomerNoName,'CustomNoName'); +end; + +end. diff --git a/样品/U_OrderSubFH.dfm b/样品/U_OrderSubFH.dfm new file mode 100644 index 0000000..54fe5de --- /dev/null +++ b/样品/U_OrderSubFH.dfm @@ -0,0 +1,479 @@ +object frmOrderSubFH: TfrmOrderSubFH + Left = 40 + Top = 97 + Width = 1154 + Height = 577 + Caption = #25104#21697#21457#36135 + 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 = 1146 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21457#36135 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 106 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 51 + OnClick = ToolButton3Click + end + object TBTP: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #30830#23450#21457#36135 + ImageIndex = 52 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21457#36135#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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = PRTCodeNameMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = PRTCodeNameMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 80 + Width = 1009 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomNo' + Column = v1Column5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1Column13: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 43 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeNameM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #25104#21697#25968#37327 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 64 + end + object v1Column11: TcxGridDBColumn + Caption = #25104#21697#21333#20301 + DataBinding.FieldName = 'PRTUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'CQty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHAddress' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143 + DataBinding.FieldName = 'CustomNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 62 + end + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#21333#20215 + DataBinding.FieldName = 'FHPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 64 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'JJUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 58 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 63 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 584 + Top = 120 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end +end diff --git a/样品/U_OrderSubFH.pas b/样品/U_OrderSubFH.pas new file mode 100644 index 0000000..c4df085 --- /dev/null +++ b/样品/U_OrderSubFH.pas @@ -0,0 +1,467 @@ +unit U_OrderSubFH; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit, cxCheckBox; + +type + TfrmOrderSubFH = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + PRTCodeNameM: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure PRTCodeNameMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBTPClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + procedure OneKeyPostHD(Tv1:TcxGridDBTableView;CDS_Sub:TClientDataSet); + public + { Public declarations } + end; + +var + frmOrderSubFH: TfrmOrderSubFH; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderSubFH.FormDestroy(Sender: TObject); +begin + frmOrderSubFH:=nil; +end; + +procedure TfrmOrderSubFH.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubFH.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmOrderSubFH.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_FHQryList :WSQl'); + fsj:=' and OT.FHDate>='+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))) + +' and OT.FHDate<'+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))); + Parameters.ParamByName('WSQl').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSubFH.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmOrderSubFH.PRTCodeNameMChange(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 TfrmOrderSubFH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'ָʾ'); +end; + +procedure TfrmOrderSubFH.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmOrderSubFH.TBAddClick(Sender: TObject); +begin + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.TBTP.Visible:=False; + frmProductOrderList.cxGrid2.Visible:=False; + frmProductOrderList.ToolButton1.Visible:=True; + frmProductOrderList.ToolButton2.Visible:=True; + frmProductOrderList.ToolButton3.Visible:=True; + if ShowModal=1 then + begin + with frmProductOrderList.Order_Main do + begin + frmProductOrderList.Order_Main.First; + while not Eof do + begin + if frmProductOrderList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Main do + begin + Append; + Self.Order_Main.FieldByName('SubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + Self.Order_Main.FieldByName('OrderNoM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + Self.Order_Main.FieldByName('PRTCodeNameM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTCodeName').AsString); + Self.Order_Main.FieldByName('PRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTSpec').AsString); + Self.Order_Main.FieldByName('PRTMF').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + Self.Order_Main.FieldByName('PRTKZ').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + if Trim(frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsString)<>'' then + Self.Order_Main.FieldByName('PRTOrderQty').Value:=frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsFloat; + Self.Order_Main.FieldByName('OrderUnit').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderUnit').AsString); + Self.Order_Main.FieldByName('SSel').Value:=1; + if Trim(frmProductOrderList.Order_Main.fieldbyname('PRTQty').AsString)<>'' then + Self.Order_Main.FieldByName('PRTQty').Value:=frmProductOrderList.Order_Main.fieldbyname('PRTQty').AsFloat; + if Trim(frmProductOrderList.Order_Main.fieldbyname('Qty1').AsString)<>'' then + Self.Order_Main.FieldByName('CQty1').Value:=frmProductOrderList.Order_Main.fieldbyname('Qty1').AsFloat; + Self.Order_Main.FieldByName('PRTUnit').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTUnit').AsString); + end; + end; + frmProductOrderList.Order_Main.Next; + end; + end; + end; + end; + finally + frmProductOrderList.Free; + end; +end; + +procedure TfrmOrderSubFH.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('CustomNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubFH.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=false then + begin + Application.MessageBox('δѡ¼','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Order_Main.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Order_Sub_To',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Order_Sub_To where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_To',3); + Post; + end; + with Order_Main do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderSubFH.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; +end; + +function TfrmOrderSubFH.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_To where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderSubFH.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmOrderSubFH.v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('JJUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubFH.ToolButton1Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=1; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmOrderSubFH.ToolButton2Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=0; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmOrderSubFH.OneKeyPostHD(Tv1:TcxGridDBTableView;CDS_Sub:TClientDataSet); +var + FValue,FFValue,FColumn,FFColumn:String; +begin + FColumn:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FFColumn:=Tv1.Controller.FocusedColumn.Summary.GroupFormat; + FValue:=Trim(CDS_Sub.fieldbyname(FColumn).AsString); + if Trim(FFColumn)<>'' then + begin + FFValue:=Trim(CDS_Sub.fieldbyname(FFColumn).AsString); + end; + with CDS_Sub do + begin + DisableControls; + First; + while not Eof do + begin + Edit; + if CDS_Sub.FieldByName('Ssel').AsBoolean=True then + begin + if FValue='' then + begin + CDS_Sub.FieldByName(FColumn).Value:=null; + end else + begin + CDS_Sub.FieldByName(FColumn).Value:=FValue; + end; + if Trim(FFColumn)<>'' then + begin + if FFValue='' then + begin + CDS_Sub.FieldByName(FFColumn).Value:=null; + end else + begin + CDS_Sub.FieldByName(FFColumn).Value:=FFValue; + end; + end; + Post; + end; + Next; + end; + EnableControls; + end; +end; + +procedure TfrmOrderSubFH.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + OneKeyPostHD(Tv1,Order_Main); +end; + +end. diff --git a/样品/U_OrderSubFHOK.dfm b/样品/U_OrderSubFHOK.dfm new file mode 100644 index 0000000..9f2321c --- /dev/null +++ b/样品/U_OrderSubFHOK.dfm @@ -0,0 +1,511 @@ +object frmOrderSubFHOK: TfrmOrderSubFHOK + Left = 69 + Top = 113 + Width = 1154 + Height = 577 + Caption = #25104#21697#21457#36135#23545#36134#21333 + 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 = 1146 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBTP: TToolButton + Left = 378 + Top = 0 + Caption = #30830#35748#25910#27454 + ImageIndex = 52 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21457#36135#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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + 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 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = PRTCodeNameMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = PRTCodeNameMChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 603 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = PRTCodeNameMChange + end + end + object cxGrid1: TcxGrid + Left = 16 + Top = 80 + Width = 1009 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomNo' + Column = v1Column5 + 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 = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column15 + 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_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeNameM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column4: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHAddress' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + end + object v1Column1: TcxGridDBColumn + Caption = #21457#36135#21333#20215 + DataBinding.FieldName = 'FHPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 64 + end + object v1Column9: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'JJUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 63 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 56 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'FHMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 50 + end + object v1KHConNo: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#21512#21516#21495 + DataBinding.FieldName = 'KHConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 77 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #25910#36135#20154 + DataBinding.FieldName = 'SKPerson' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 50 + end + object v1Column13: TcxGridDBColumn + Tag = 3 + Caption = #25910#27454 + DataBinding.FieldName = 'SKMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 49 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'SKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 53 + end + object v1Column15: TcxGridDBColumn + Caption = #27424#27454 + DataBinding.FieldName = 'QKMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.FoneRed + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 880 + Top = 32 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 872 + Top = 40 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 840 + Top = 40 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 792 + Top = 32 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 800 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + Top = 40 + end +end diff --git a/样品/U_OrderSubFHOK.pas b/样品/U_OrderSubFHOK.pas new file mode 100644 index 0000000..f977cf4 --- /dev/null +++ b/样品/U_OrderSubFHOK.pas @@ -0,0 +1,359 @@ +unit U_OrderSubFHOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit; + +type + TfrmOrderSubFHOK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + PRTCodeNameM: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1KHConNo: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure PRTCodeNameMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBTPClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + public + { Public declarations } + end; + +var + frmOrderSubFHOK: TfrmOrderSubFHOK; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderSubFHOK.FormDestroy(Sender: TObject); +begin + frmOrderSubFHOK:=nil; +end; + +procedure TfrmOrderSubFHOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubFHOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmOrderSubFHOK.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_SKQryList :WSQl'); + fsj:=' and OT.FHDate>='+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))) + +' and OT.FHDate<'+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))); + Parameters.ParamByName('WSQl').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSubFHOK.FormShow(Sender: TObject); +begin + ReadCxGrid('տб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmOrderSubFHOK.PRTCodeNameMChange(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 TfrmOrderSubFHOK.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('տб',Tv1,'ָʾ'); +end; + +procedure TfrmOrderSubFHOK.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmOrderSubFHOK.TBAddClick(Sender: TObject); +begin + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.TBTP.Visible:=False; + frmProductOrderList.cxGrid2.Visible:=False; + + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Append; + Self.Order_Main.FieldByName('SubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + Self.Order_Main.FieldByName('OrderNoM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + Self.Order_Main.FieldByName('PRTCodeNameM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTCodeName').AsString); + Self.Order_Main.FieldByName('PRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTSpec').AsString); + Self.Order_Main.FieldByName('PRTMF').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + Self.Order_Main.FieldByName('PRTKZ').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + if Trim(frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsString)<>'' then + Self.Order_Main.FieldByName('PRTOrderQty').Value:=frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsFloat; + Self.Order_Main.FieldByName('OrderUnit').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderUnit').AsString); + + end; + end; + end; + finally + frmProductOrderList.Free; + end; +end; + +procedure TfrmOrderSubFHOK.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('CustomNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubFHOK.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo,FHMoney,SKMoney,QKMoney:String; +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + // with Order_Main do + //begin + //First; + // while not Eof do + //begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Trim(Order_Main.fieldbyname('SKId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'SK','Order_Sub_ToSk',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('SKId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Order_Sub_ToSk where SKId='''+Trim(Order_Main.fieldbyname('SKId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('SKId').AsString)='' then + Append + else + Edit; + FieldByName('SKId').Value:=Trim(maxno); + FieldByName('ToId').Value:=Trim(Order_Main.fieldbyname('ToId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_ToSk',3); + Post; + end; + //Next; + //end; + + FHMoney:=Trim(Order_Main.fieldbyname('FHMoney').AsString); + SKMoney:=Trim(Order_Main.fieldbyname('SKMoney').AsString); + if Trim(FHMoney)='' then FHMoney:='0.0'; + if Trim(SKMoney)='' then SKMoney:='0.0'; + QKMoney:=FloatToStr(StrToFloat(FHMoney)-StrToFloat(SKMoney)); + with Order_Main do + begin + Edit; + FieldByName('SKId').Value:=Trim(maxno); + FieldByName('QKMoney').Value:=Trim(QKMoney); + Post; + end; + //end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('տɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('տʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderSubFHOK.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; +end; + +function TfrmOrderSubFHOK.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_To where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderSubFHOK.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('տб',cxGrid1); +end; + +procedure TfrmOrderSubFHOK.v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('JJUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/样品/U_OrderSubKC.dfm b/样品/U_OrderSubKC.dfm new file mode 100644 index 0000000..9f28e72 --- /dev/null +++ b/样品/U_OrderSubKC.dfm @@ -0,0 +1,402 @@ +object frmOrderSubKC: TfrmOrderSubKC + Left = 69 + Top = 113 + Width = 1154 + Height = 577 + Caption = #25104#21697#24211#23384 + 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 = 1146 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBTP: TToolButton + Left = 252 + Top = 0 + Caption = #26356#26032 + ImageIndex = 106 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 Label2: TLabel + Left = 161 + Top = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = PRTCodeNameMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = PRTCodeNameMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 80 + Width = 1009 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomNo' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeNameM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#21697#25968 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 56 + end + object v1Column11: TcxGridDBColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQtyM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHQty1M' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'FHPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCQty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#22320#28857 + DataBinding.FieldName = 'KCPlace' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 60 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#21407#22240 + DataBinding.FieldName = 'KCReason' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#22791#27880 + DataBinding.FieldName = 'KCNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 584 + Top = 120 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end +end diff --git a/样品/U_OrderSubKC.pas b/样品/U_OrderSubKC.pas new file mode 100644 index 0000000..df2e546 --- /dev/null +++ b/样品/U_OrderSubKC.pas @@ -0,0 +1,245 @@ +unit U_OrderSubKC; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit; + +type + TfrmOrderSubKC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + PRTCodeNameM: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure PRTCodeNameMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + public + { Public declarations } + end; + +var + frmOrderSubKC: TfrmOrderSubKC; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderSubKC.FormDestroy(Sender: TObject); +begin + frmOrderSubKC:=nil; +end; + +procedure TfrmOrderSubKC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubKC.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmOrderSubKC.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_PRTKCQryList :Begdate,:EndDate '); + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSubKC.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒб',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmOrderSubKC.PRTCodeNameMChange(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 TfrmOrderSubKC.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒб',Tv1,'ָʾ'); +end; + +procedure TfrmOrderSubKC.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmOrderSubKC.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo:String; +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + // with Order_Main do + //begin + //First; + // while not Eof do + //begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Trim(Order_Main.fieldbyname('KCId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KC','Order_Sub_To',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('KCId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Order_Sub_KC where KCId='''+Trim(Order_Main.fieldbyname('KCId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('KCId').AsString)='' then + Append + else + Edit; + FieldByName('KCId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_To',3); + Post; + end; + //Next; + //end; + with Order_Main do + begin + Edit; + FieldByName('KCId').Value:=Trim(maxno); + Post; + end; + //end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('³ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmOrderSubKC.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_KC where KCId='''+Trim(Order_Main.fieldbyname('KCId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderSubKC.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒб',cxGrid1); +end; + +end. diff --git a/样品/U_ProductOrderList.dfm b/样品/U_ProductOrderList.dfm new file mode 100644 index 0000000..aeb6cea --- /dev/null +++ b/样品/U_ProductOrderList.dfm @@ -0,0 +1,614 @@ +object frmProductOrderList: TfrmProductOrderList + Left = 114 + Top = 133 + Width = 1013 + Height = 554 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1214 + AutoSize = True + 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_JWLCK.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBTP: TToolButton + Left = 441 + Top = 0 + Caption = #25237#22383#30830#23450 + ImageIndex = 52 + OnClick = TBTPClick + end + object ToolButton3: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 134 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 587 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 106 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 650 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 107 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 713 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1214 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 566 + 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 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 595 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 168 + Top = 88 + Width = 729 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_JWLCK.cxBlue + Styles.IncSearch = DataLink_JWLCK.cxBlue + Styles.Selection = DataLink_JWLCK.cxBlue + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_JWLCK.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 63 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNo1Name' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 60 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #21360#26579#21378 + DataBinding.FieldName = 'FactoryNo2Name' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNo3Name' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 60 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 61 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 56 + end + object v1Column1: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TPQtyM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #25104#21697#25968#37327 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 58 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #25104#21697#21333#20301 + DataBinding.FieldName = 'PRTUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 905 + Top = 74 + Width = 309 + Height = 424 + Align = alRight + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + 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_JWLCK.cxBlue + Styles.IncSearch = DataLink_JWLCK.cxBlue + Styles.Selection = DataLink_JWLCK.cxBlue + object v2ComeDate: TcxGridDBColumn + Caption = #25237#22383#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_JWLCK.Default + Width = 65 + end + object v2BatchNo: TcxGridDBColumn + Caption = #22383#24067#25209#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_JWLCK.Default + Width = 66 + end + object v2Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_JWLCK.Default + Width = 45 + end + object v2MxQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'TPQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_JWLCK.Default + Width = 47 + end + object v2MxNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_JWLCK.Default + Width = 72 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 897 + Top = 74 + Width = 8 + Height = 424 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_JWLCK.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_JWLCK.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_JWLCK.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 584 + Top = 120 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 112 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 848 + Top = 208 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 816 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 576 + Top = 248 + end +end diff --git a/样品/U_ProductOrderList.pas b/样品/U_ProductOrderList.pas new file mode 100644 index 0000000..d57af24 --- /dev/null +++ b/样品/U_ProductOrderList.pas @@ -0,0 +1,527 @@ +unit U_ProductOrderList; + +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; + +type + TfrmProductOrderList = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + Label5: TLabel; + PRTCodeNameM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + Order_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + TBTP: TToolButton; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + cxSplitter1: TcxSplitter; + v2Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1Column3: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + 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 TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TBTPClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderList: TfrmProductOrderList; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderList.FormDestroy(Sender: TObject); +begin + frmProductOrderList:=nil; +end; + +procedure TfrmProductOrderList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmProductOrderList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + if FFInt=1 then + begin + v1Column3.Hidden:=False; + v1Column3.Visible:=True; + end else + begin + v1Column3.Hidden:=True; + v1Column3.Visible:=False; + end; + if Trim(DParameters1)='1' then + begin + v1CustomerNoName.Visible:=False; + v1CustomerNoName.Hidden:=True; + end else + begin + v1CustomerNoName.Visible:=True; + v1CustomerNoName.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; +end; + +function TfrmProductOrderList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderList.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + ShowMessage(DCode); + +end; + +procedure TfrmProductOrderList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ָʾб',cxGrid1); +end; + +procedure TfrmProductOrderList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderList.TBAddClick(Sender: TObject); +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if FFInt=1 then + ModalResult:=1; +end; + +procedure TfrmProductOrderList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C.BatchNo from Contract_Sub_MxTo A '); + sql.Add(' inner join Contract_Sub_Mx C on A.MxId=C.MxId'); + SQL.Add(' where A.OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmProductOrderList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin + {if ClientDataSet2.Locate('TPDate',null,[]) then + begin + Application.MessageBox('ͶڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.FieldByName('TPQty').AsFloat=0 then + begin + Application.MessageBox('ͶΪ0','ʾ',0); + Exit; + end; + } + if ClientDataSet2.IsEmpty then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('TPQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(ClientDataSet2.fieldbyname('TPQty').AsString); + if Trim(ClientDataSet2.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(ClientDataSet2.fieldbyname('Qty1').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select MxQty,Qty1 from Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + if not IsEmpty then + begin + FMxQty:=Trim(fieldbyname('MxQty').AsString); + FPQty:=Trim(fieldbyname('Qty1').AsString); + if Trim(FMxQty)='' then FMxQty:='0.0'; + if Trim(FPQty)='' then FPQty:='0.0'; + end else + begin + FMxQty:='0.0'; + FPQty:='0.0'; + end; + + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Sum(isnull(TPQty,0)) TPQty,Sum(isnull(Qty1,0)) Qty1 from Contract_Sub_Mxto where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + sql.Add(' and ToId<>'''+Trim(ClientDataSet2.fieldbyname('ToId').AsString)+''''); + Open; + if not IsEmpty then + begin + FMxQtyS:=Trim(fieldbyname('TPQty').AsString); + FPQtyS:=Trim(fieldbyname('Qty1').AsString); + if Trim(FMxQtyS)='' then FMxQtyS:='0.0'; + if Trim(FPQtyS)='' then FPQtyS:='0.0'; + end else + begin + FMxQtyS:='0.0'; + FPQtyS:='0.0'; + end; + end; + + if StrToFloat(FQty)+StrToFloat(FMxQtyS)-StrToFloat(FMxQty)>0 then + begin + if Application.MessageBox(PChar('Ϊ'+Trim(ClientDataSet2.fieldbyname('BatchNo').AsString)+ + ''+FMxQty+'ͶΪ'+FloatToStr(StrToFloat(FQty)+StrToFloat(FMxQtyS)) + +'㣬ȷҪͶ'),'ʾ',32+4)<>IDYES then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end; + if StrToFloat(FQty1)+StrToFloat(FPQtyS)-StrToFloat(FPQty)>0 then + begin + if Application.MessageBox(PChar('Ϊ'+Trim(ClientDataSet2.fieldbyname('BatchNo').AsString)+ + 'ƥ'+FPQty+'ͶƥΪ'+FloatToStr(StrToFloat(FQty1)+StrToFloat(FPQtyS)) + +'ƥ㣬ȷҪͶ'),'ʾ',32+4)<>IDYES then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Sub_Mxto Set TPQty='+FQty); + sql.Add(',Qty1='+FQty1); + if Trim(ClientDataSet2.fieldbyname('TPDate').AsString)<>'' then + sql.Add(',TPDate='''+Trim(ClientDataSet2.fieldbyname('TPDate').AsString)+''''); + if Trim(ClientDataSet2.fieldbyname('TPNote').AsString)<>'' then + sql.Add(',TPNote='''+Trim(ClientDataSet2.fieldbyname('TPNote').AsString)+''''); + SQL.Add(' where ToId='''+Trim(ClientDataSet2.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('Ͷɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ͷʧܣ','ʾ',0); + end; + +end; + +procedure TfrmProductOrderList.ToolButton1Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=1; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmProductOrderList.ToolButton2Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=0; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmProductOrderList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/样品/U_SGManage.dfm b/样品/U_SGManage.dfm new file mode 100644 index 0000000..f2a61e5 --- /dev/null +++ b/样品/U_SGManage.dfm @@ -0,0 +1,602 @@ +object frmSGManage: TfrmSGManage + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #30003#36141#21333#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WFBSG.ThreeImgList + Flat = True + Images = DataLink_WFBSG.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 249 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBSG.SHuangSe + Styles.IncSearch = DataLink_WFBSG.SHuangSe + Styles.Selection = DataLink_WFBSG.SHuangSe + object v1Column12: TcxGridDBColumn + Caption = #20998#31867 + DataBinding.FieldName = 'YCLType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #35831#36141#26085#26399 + DataBinding.FieldName = 'SGDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 82 + end + object v1Column2: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #35831#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'SGUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #38656#27714#26085#26399 + DataBinding.FieldName = 'XQDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #38656#27714#21407#22240#21450#29992#36884 + DataBinding.FieldName = 'SGNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 105 + end + object v1Column7: TcxGridDBColumn + Caption = #29616#26377#24211#23384 + DataBinding.FieldName = 'NowKC' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 85 + end + object v1Column14: TcxGridDBColumn + Caption = #24211#23384#21333#20301 + DataBinding.FieldName = 'ZDYStr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'SGPerson' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 87 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#19979#21333 + DataBinding.FieldName = 'YXD' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 49 + end + object v1Column10: TcxGridDBColumn + Caption = #19979#21333#25968#37327 + DataBinding.FieldName = 'XDQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 59 + end + object v1Column13: TcxGridDBColumn + Caption = #24050#20132#36135 + DataBinding.FieldName = 'YJH' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 46 + end + object v1Column11: TcxGridDBColumn + Caption = #20132#36135#25968#37327 + DataBinding.FieldName = 'JHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 594 + Top = 13 + Width = 48 + Height = 12 + Caption = #35268#26684#22411#21495 + end + object Label3: TLabel + Left = 430 + Top = 13 + Width = 48 + Height = 12 + Caption = #29289#26009#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #35831#36141#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 297 + Top = 13 + Width = 24 + Height = 12 + Caption = #20998#31867 + end + object YCLSpec: TEdit + Tag = 2 + Left = 643 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = YCLNameChange + end + object YCLName: TEdit + Tag = 2 + Left = 478 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = YCLNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object YCLType: TEdit + Tag = 2 + Left = 323 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = YCLNameChange + end + end + object Panel2: TPanel + Left = 0 + Top = 319 + Width = 1030 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #37319#36141#22238#25191 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object Button1: TButton + Left = 24 + Top = 8 + Width = 75 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 112 + Top = 8 + Width = 75 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 360 + Width = 1030 + Height = 221 + Align = alClient + TabOrder = 4 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 3 + Caption = #32463#21150#26085#26399 + DataBinding.FieldName = 'JBDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 73 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 3 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYS' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 3 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_WFBSG.Default + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 3 + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_WFBSG.Default + Width = 78 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 3 + Caption = #19979#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 83 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 3 + Caption = #21333#20301 + DataBinding.FieldName = 'SGUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_WFBSG.Default + Width = 79 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 3 + Caption = #39044#35745#20132#36135#26085#26399 + DataBinding.FieldName = 'YJJHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 94 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 3 + Caption = #23454#38469#20132#36135#26085#26399 + DataBinding.FieldName = 'JHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 105 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 3 + Caption = #23454#38469#20132#36135#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 85 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 3 + Caption = #37319#36141#20154 + DataBinding.FieldName = 'CGPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBSG.Default + Width = 87 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBSG.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBSG.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 512 + Top = 152 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBSG.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 397 + Top = 153 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 368 + Top = 152 + 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 = 480 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 560 + Top = 456 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 403 + Top = 451 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 368 + Top = 448 + end +end diff --git a/样品/U_SGManage.pas b/样品/U_SGManage.pas new file mode 100644 index 0000000..4edf81f --- /dev/null +++ b/样品/U_SGManage.pas @@ -0,0 +1,539 @@ +unit U_SGManage; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmSGManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Panel1: TPanel; + ToolButton2: TToolButton; + TBEdit: TToolButton; + Label1: TLabel; + YCLSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + YCLName: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Button1: TButton; + Button2: TButton; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label4: TLabel; + YCLType: TEdit; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure YCLNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridHZ(); + function SaveData():Boolean; + public + { Public declarations } + end; + +var + frmSGManage: TfrmSGManage; + +implementation +uses + U_DataLink,U_Fun,U_SGInput,U_FileUp, U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmSGManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select AA.*,Case when XDQty>0 then cast(1 as bit) else cast(0 as bit) end as YXD '); + sql.Add(',Case when JHQty>0 then cast(1 as bit) else cast(0 as bit) end as YJH '); + SQL.Add('from(select A.*,XDQty=(select isnull(sum(isnull(OrdQty,0)),0) from YCL_SG_HZ where MainId=A.MainId )'); + SQL.Add(',JHQty=(select isnull(sum(isnull(SJQty,0)),0) from YCL_SG_HZ where MainId=A.MainId )'); + sql.Add('from YCL_SG A where A.SGDate>=:begdate and A.SGDate<:Enddate) AA'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmSGManage.InitGridHZ(); +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select * from YCL_SG_HZ where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HZ); + SInitCDSData20(ADOQueryTemp,CDS_HZ); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmSGManage.FormDestroy(Sender: TObject); +begin + frmSGManage:=nil; +end; + +procedure TfrmSGManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSGManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('깺б',Tv1,'깺'); + WriteCxGrid('깺ִ',Tv2,'깺'); + Close; +end; +procedure TfrmSGManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_HZ.IsEmpty=False then + begin + Application.MessageBox('лִ,ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('MainID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG where MainID='''+Trim(CDS_Main.fieldbyname('MainID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmSGManage.FormShow(Sender: TObject); +begin + ReadCxGrid('깺б',Tv1,'깺'); + ReadCxGrid('깺ִ',Tv2,'깺'); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; + InitGrid(); + if Trim(DParameters1)='깺' then + begin + Button1.Visible:=False; + Button2.Visible:=False; + Tv2.OptionsSelection.CellSelect:=False; + end; + if Trim(DParameters1)='ִ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; +end; + +procedure TfrmSGManage.TBAddClick(Sender: TObject); +begin + try + frmSGInput:=TfrmSGInput.Create(Application); + with frmSGInput do + begin + FMainId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSGInput.Free; + end; +end; + +procedure TfrmSGManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSGManage.TBEditClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty=False then + begin + Application.MessageBox('лִ,޸!','ʾ',0); + Exit; + end; + try + frmSGInput:=TfrmSGInput.Create(Application); + with frmSGInput do + begin + FMainId:=Trim(Self.CDS_Main.fieldbyname('MainID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('MainID',FMainId,[]); + end; + end; + finally + frmSGInput.Free; + end; +end; + +procedure TfrmSGManage.ToolButton2Click(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 TfrmSGManage.YCLNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmSGManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmSGManage.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + end; +end; + + +procedure TfrmSGManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGridHZ(); +end; + +procedure TfrmSGManage.Button1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + CDS_HZ.Append; + CDS_HZ.FieldByName('JBDate').Value:=SGetServerDate(ADOQueryTemp); + CDS_HZ.FieldByName('CGPerson').Value:=Trim(DName); + CDS_HZ.FieldByName('YCLName').Value:=Trim(CDS_Main.fieldbyname('YCLName').AsString); + CDS_HZ.FieldByName('YCLCode').Value:=Trim(CDS_Main.fieldbyname('YCLCode').AsString); + CDS_HZ.FieldByName('SGUnit').Value:=Trim(CDS_Main.fieldbyname('SGUnit').AsString); + CDS_HZ.FieldByName('YCLSpec').Value:=Trim(CDS_Main.fieldbyname('YCLSpec').AsString); + CDS_HZ.FieldByName('YCLTypeCode').Value:=Trim(CDS_Main.fieldbyname('YCLTypeCode').AsString); + CDS_HZ.Post; + + SaveData(); +end; + +procedure TfrmSGManage.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; + if CDS_HZ.IsEmpty then + begin + with CDS_Main do + begin + Edit; + FieldByName('YXD').Value:=false; + FieldByName('YJH').Value:=false; + FieldByName('XDQty').Value:=0; + FieldByName('JHQty').Value:=0; + Post; + end; + end else + begin + with CDS_Main do + begin + Edit; + FieldByName('XDQty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('JHQty').Value:=Tv2.DataController.Summary.FooterSummaryValues[1]; + if Tv2.DataController.Summary.FooterSummaryValues[1]>0 then + begin + FieldByName('YJH').Value:=True; + end else + begin + FieldByName('YJH').Value:=False; + end; + Post; + end; + end; +end; + +procedure TfrmSGManage.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYS'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('GYSCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_HZ.FieldByName('GYS').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + sql.Add(' Set GYS='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' ,GYSCode='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; +function TfrmSGManage.SaveData():Boolean; +var + maxId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'HZ','YCL_SG_HZ',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YCL_SG_HZ where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(maxId); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YCL_SG_HZ',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('YCLTypeCode').Value:=Trim(CDS_HZ.fieldbyname('YCLTypeCode').AsString); + FieldByName('YCLCode').Value:=Trim(CDS_HZ.fieldbyname('YCLCode').AsString); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('SubId').Value:=Trim(maxId); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSGManage.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmSGManage.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with CDS_Main do + begin + Edit; + FieldByName('XDQty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('JHQty').Value:=Tv2.DataController.Summary.FooterSummaryValues[1]; + if Tv2.DataController.Summary.FooterSummaryValues[1]>0 then + begin + FieldByName('YJH').Value:=True; + end else + begin + FieldByName('YJH').Value:=False; + end; + if Tv2.DataController.Summary.FooterSummaryValues[0]>0 then + begin + FieldByName('YXD').Value:=True; + end else + begin + FieldByName('YXD').Value:=False; + end; + Post; + end; +end; + +end. diff --git a/样品/U_SLT.dfm b/样品/U_SLT.dfm new file mode 100644 index 0000000..b4a485e --- /dev/null +++ b/样品/U_SLT.dfm @@ -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 diff --git a/样品/U_SLT.pas b/样品/U_SLT.pas new file mode 100644 index 0000000..7c5056e --- /dev/null +++ b/样品/U_SLT.pas @@ -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. diff --git a/样品/U_YPCR.dfm b/样品/U_YPCR.dfm new file mode 100644 index 0000000..d8bcc25 --- /dev/null +++ b/样品/U_YPCR.dfm @@ -0,0 +1,294 @@ +object frmYPCR: TfrmYPCR + Left = 188 + Top = 79 + Width = 1038 + Height = 618 + Caption = #20837#24211#31649#29702 + 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 = 1030 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1030 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 466 + Top = 13 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 302 + Top = 13 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object CYSpec: TEdit + Tag = 2 + Left = 515 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = CYNameChange + end + object CYName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1030 + Height = 511 + Align = alClient + TabOrder = 2 + 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 + Column = cxGridDBColumn5 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 3 + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 129 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 140 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 110 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 3 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'CRQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 117 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + 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 = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 472 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 192 + end +end diff --git a/样品/U_YPCR.pas b/样品/U_YPCR.pas new file mode 100644 index 0000000..36a0a7f --- /dev/null +++ b/样品/U_YPCR.pas @@ -0,0 +1,346 @@ +unit U_YPCR; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYPCR = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + CYSpec: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + CYName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + + procedure InitGridHZ(); + + public + { Public declarations } + RKFlag,FCYID:String; + procedure InitGrid(); + function SaveData():Boolean; + end; + +var + frmYPCR: TfrmYPCR; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + + + +procedure TfrmYPCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.CYName,B.CYSpec,B.KCUnit from CK_YP_CR A'); + sql.Add(' inner join CP_YDang B on A.CYID=B.CYID'); + SQL.Add(' where A.CYID='''+Trim(FCYID)+''''); + sql.Add(' and A.CRType='''+Trim(RKFlag)+''''); + sql.Add('and A.CRTime>=:begdate and A.CRTime<:Enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmYPCR.InitGridHZ(); +begin +end; + +procedure TfrmYPCR.FormDestroy(Sender: TObject); +begin + frmYPCR:=nil; +end; + +procedure TfrmYPCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPCR.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'Ʒ'); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where isnull(CRTime,'''')='''' and CYID='''+Trim(FCYID)+''' and CRType='''+Trim(RKFlag)+''''); + ExecSQL; + end; + Close; +end; +procedure TfrmYPCR.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('CRID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CK_YP_CR where CRID='''+Trim(CDS_HZ.fieldbyname('CRID').AsString)+''''); + SQL.Add('Update CP_YDang Set KCQty=(select isnull(Sum(CRQty*CRFlag),0) from CK_YP_CR A where A.CYID=CP_YDang.CYID )'); + sql.Add(' where CYID='''+Trim(CDS_HZ.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYPCR.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'Ʒ'); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-7; + //InitGrid(); +end; + +procedure TfrmYPCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYPCR.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYPCR.CYNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYPCR.Button2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +function TfrmYPCR.SaveData():Boolean; +var + maxId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'RK','CK_YP_CR',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CYId').Value:=Trim(FCYID); + FieldByName('CRId').Value:=Trim(maxId); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'CK_YP_CR',3); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:=Trim(RKFlag); + if Trim(RKFlag)='' then + begin + FieldByName('CRFlag').Value:=1; + end else + begin + FieldByName('CRFlag').Value:=-1; + end; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('CRId').Value:=Trim(maxId); + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmYPCR.cxGridDBColumn8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YCL_SG_HZ '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYPCR.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_CR '); + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CRId='''+Trim(CDS_HZ.fieldbyname('CRId').AsString)+''''); + SQL.Add('Update CP_YDang Set KCQty=(select isnull(Sum(CRQty*CRFlag),0) from CK_YP_CR A where A.CYID=CP_YDang.CYID )'); + sql.Add(' where CYID='''+Trim(CDS_HZ.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmYPCR.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_CR '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CRId='''+Trim(CDS_HZ.fieldbyname('CRId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/样品/U_iniParam.pas b/样品/U_iniParam.pas new file mode 100644 index 0000000..048f71e --- /dev/null +++ b/样品/U_iniParam.pas @@ -0,0 +1,58 @@ +//////////////////////////////////////////////////////////////////////////////// +//øӲ +//////////////////////////////////////////////////////////////////////////////// +unit U_iniParam; + +interface +uses + IniFiles,SysUtils; +var + Filename:string; //ļ + iParam2:integer; + bParam1:Boolean; + bParam2:Boolean; + YPCodeType:string; //Ʒ + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI'; + programIni:=Tinifile.create(FileName); + YPCodeType:=programIni.ReadString('Ʒ','',''); + + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI'; + programIni:=Tinifile.create(FileName); + programIni.WriteString('Ʒ','',YPCodeType); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; + +end. diff --git a/样品/U_testdll.dfm b/样品/U_testdll.dfm new file mode 100644 index 0000000..80d4cc0 --- /dev/null +++ b/样品/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 97 + Top = 122 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 783 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/样品/U_testdll.pas b/样品/U_testdll.pas new file mode 100644 index 0000000..73b0b62 --- /dev/null +++ b/样品/U_testdll.pas @@ -0,0 +1,106 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('YPGL.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('sa'), + PChar('dsa'), + PChar('bsa'), + PChar('tsa'), + PChar('d1sa'), + PChar('d2sa'), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; + +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/样品/YPFile.INI b/样品/YPFile.INI new file mode 100644 index 0000000..a48c242 --- /dev/null +++ b/样品/YPFile.INI @@ -0,0 +1,2 @@ +[Ʒ] += diff --git a/样品/YPGL.cfg b/样品/YPGL.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/样品/YPGL.cfg @@ -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 diff --git a/样品/YPGL.dof b/样品/YPGL.dof new file mode 100644 index 0000000..e36e80d --- /dev/null +++ b/样品/YPGL.dof @@ -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:\֣ƽ\Ŀ\Խ\Ʒ\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 diff --git a/样品/YPGL.dpr b/样品/YPGL.dpr new file mode 100644 index 0000000..3087bd6 --- /dev/null +++ b/样品/YPGL.dpr @@ -0,0 +1,63 @@ +library YPGL; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_YPGL: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_iniParam in 'U_iniParam.pas', + U_KHGetCPManage in 'U_KHGetCPManage.pas' {frmKHGetCPManage}, + U_KHGetCPAdd in 'U_KHGetCPAdd.pas' {frmKHGetCPAdd}, + U_CPType in 'U_CPType.pas' {frmCPType}, + U_FileUp in 'U_FileUp.pas' {frmFileUp}, + U_KHGetY in 'U_KHGetY.pas' {frmKHGetY}, + U_CPManageSel in 'U_CPManageSel.pas' {frmCPManageSel}, + U_CPAdd in 'U_CPAdd.pas' {frmCPAdd}, + 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}, + U_YPCR in 'U_YPCR.pas' {frmYPCR}, + U_CPManage in 'U_CPManage.pas' {frmCPManage}, + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_SLT in 'U_SLT.pas' {frmSLT: TFrame}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_YPTypeHelp in '..\..\..\ThreeFun\Form\U_YPTypeHelp.pas' {frmYPTypeHelp}; + +// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', + // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, + // U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField}, + // U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + //U_FormPas in '..\CommonPas\formPas\U_FormPas.pas', + //U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas'; + +//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas'; + +{$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. + diff --git a/样品/YPGL.rar b/样品/YPGL.rar new file mode 100644 index 0000000..cf40ffa Binary files /dev/null and b/样品/YPGL.rar differ diff --git a/样品/YPGL.res b/样品/YPGL.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/样品/YPGL.res differ diff --git a/样品/consvr.ini b/样品/consvr.ini new file mode 100644 index 0000000..3a03c34 --- /dev/null +++ b/样品/consvr.ini @@ -0,0 +1,2 @@ +[SERVER] +SERVER=192.168.88.254 \ No newline at end of file diff --git a/样品/testDll.cfg b/样品/testDll.cfg new file mode 100644 index 0000000..6c57635 --- /dev/null +++ b/样品/testDll.cfg @@ -0,0 +1,38 @@ +-$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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/样品/testDll.dof b/样品/testDll.dof new file mode 100644 index 0000000..8d38fa0 --- /dev/null +++ b/样品/testDll.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=F:\selfware_83398\selfware\ֿ\Ŀ\self\Ʒ\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= diff --git a/样品/testDll.dpr b/样品/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/样品/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/样品/testDll.res b/样品/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/样品/testDll.res differ diff --git a/检验主程序/AES.pas b/检验主程序/AES.pas new file mode 100644 index 0000000..3b8432d --- /dev/null +++ b/检验主程序/AES.pas @@ -0,0 +1,317 @@ +(**************************************************) + +unit AES; + +interface + +uses + SysUtils, Classes, Math, ElAES; + +type + TKeyBit = (kb128, kb192, kb256); + +function StrToHex(Value: string): string; +function HexToStr(Value: string): string; +function EncryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +function DecryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +function EncryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +function DecryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +procedure EncryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +procedure DecryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); + +implementation + +function StrToHex(Value: string): string; +var + I: Integer; +begin + Result := ''; + for I := 1 to Length(Value) do + Result := Result + IntToHex(Ord(Value[I]), 2); +end; + +function HexToStr(Value: string): string; +var + I: Integer; +begin + Result := ''; + for I := 1 to Length(Value) do + begin + if ((I mod 2) = 1) then + Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2))); + end; +end; + +{ -- ַܺ Ĭϰ 128 λܳ׼ -- } +function EncryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +var + SS, DS: TStringStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + Result := ''; + SS := TStringStream.Create(Value); + DS := TStringStream.Create(''); + try + Size := SS.Size; + DS.WriteBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey128, DS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey192, DS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey256, DS); + end; + Result := StrToHex(DS.DataString); + finally + SS.Free; + DS.Free; + end; +end; + +{ -- ַܺ Ĭϰ 128 λܳ׽ -- } +function DecryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +var + SS, DS: TStringStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + Result := ''; + SS := TStringStream.Create(HexToStr(Value)); + DS := TStringStream.Create(''); + try + Size := SS.Size; + SS.ReadBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS); + end; + Result := DS.DataString; + finally + SS.Free; + DS.Free; + end; +end; + +{ -- ܺ Ĭϰ 128 λܳ׽ -- } +function EncryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +var + Count: Int64; + OutStrm: TStream; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + OutStrm := TStream.Create; + Stream.Position := 0; + Count := Stream.Size; + OutStrm.Write(Count, SizeOf(Count)); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm); + end; + Result := OutStrm; + finally + OutStrm.Free; + end; +end; + +{ -- ܺ Ĭϰ 128 λܳ׽ -- } +function DecryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +var + Count, OutPos: Int64; + OutStrm: TStream; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + OutStrm := TStream.Create; + Stream.Position := 0; + OutPos :=OutStrm.Position; + Stream.ReadBuffer(Count, SizeOf(Count)); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey128, OutStrm); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey192, OutStrm); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey256, OutStrm); + end; + OutStrm.Size := OutPos + Count; + OutStrm.Position := OutPos; + Result := OutStrm; + finally + OutStrm.Free; + end; +end; + +{ -- ļܺ Ĭϰ 128 λܳ׽ -- } +procedure EncryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +var + SFS, DFS: TFileStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + SFS := TFileStream.Create(SourceFile, fmOpenRead); + try + DFS := TFileStream.Create(DestFile, fmCreate); + try + Size := SFS.Size; + DFS.WriteBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey128, DFS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey192, DFS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey256, DFS); + end; + finally + DFS.Free; + end; + finally + SFS.Free; + end; +end; + +{ -- ļܺ Ĭϰ 128 λܳ׽ -- } +procedure DecryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +var + SFS, DFS: TFileStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + SFS := TFileStream.Create(SourceFile, fmOpenRead); + try + SFS.ReadBuffer(Size, SizeOf(Size)); + DFS := TFileStream.Create(DestFile, fmCreate); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS); + end; + DFS.Size := Size; + finally + DFS.Free; + end; + finally + SFS.Free; + end; +end; +end. diff --git a/检验主程序/ElAES.pas b/检验主程序/ElAES.pas new file mode 100644 index 0000000..7a3e6c8 --- /dev/null +++ b/检验主程序/ElAES.pas @@ -0,0 +1,2488 @@ +(**************************************************) +(* *) +(* Advanced Encryption Standard (AES) *) +(* *) +(* Copyright (c) 1998-2001 *) +(* EldoS, Alexander Ionov *) +(* *) +(**************************************************) + +unit ElAES; + +interface + +uses + Classes, SysUtils; + +type + EAESError = class(Exception); + + PInteger = ^Integer; + + TAESBuffer = array [0..15] of byte; + TAESKey128 = array [0..15] of byte; + TAESKey192 = array [0..23] of byte; + TAESKey256 = array [0..31] of byte; + TAESExpandedKey128 = array [0..43] of longword; + TAESExpandedKey192 = array [0..53] of longword; + TAESExpandedKey256 = array [0..63] of longword; + + PAESBuffer =^TAESBuffer; + PAESKey128 =^TAESKey128; + PAESKey192 =^TAESKey192; + PAESKey256 =^TAESKey256; + PAESExpandedKey128 =^TAESExpandedKey128; + PAESExpandedKey192 =^TAESExpandedKey192; + PAESExpandedKey256 =^TAESExpandedKey256; + +// Key expansion routines for encryption + +procedure ExpandAESKeyForEncryption(const Key: TAESKey128; + var ExpandedKey: TAESExpandedKey128); overload; +procedure ExpandAESKeyForEncryption(const Key: TAESKey192; + var ExpandedKey: TAESExpandedKey192); overload; +procedure ExpandAESKeyForEncryption(const Key: TAESKey256; + var ExpandedKey: TAESExpandedKey256); overload; + +// Block encryption routines + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); overload; +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); overload; +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); overload; + +// Stream encryption routines (ECB mode) + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); overload; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); overload; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); overload; + +// Stream encryption routines (CBC mode) + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); overload; + +// Key transformation routines for decryption + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey128); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey128; + var ExpandedKey: TAESExpandedKey128); overload; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey192); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey192; + var ExpandedKey: TAESExpandedKey192); overload; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey256; + var ExpandedKey: TAESExpandedKey256); overload; + +// Block decryption routines + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); overload; +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); overload; +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); overload; + +// Stream decryption routines (ECB mode) + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); overload; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); overload; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); overload; + +// Stream decryption routines (CBC mode) + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); overload; + +resourcestring + SInvalidInBufSize = 'Invalid buffer size for decryption'; + SReadError = 'Stream read error'; + SWriteError = 'Stream write error'; + +implementation + +type + PLongWord = ^LongWord; + +function Min(A, B: integer): integer; +begin + if A < B then + Result := A + else + Result := B; +end; + +const + Rcon: array [1..30] of longword = ( + $00000001, $00000002, $00000004, $00000008, $00000010, $00000020, + $00000040, $00000080, $0000001B, $00000036, $0000006C, $000000D8, + $000000AB, $0000004D, $0000009A, $0000002F, $0000005E, $000000BC, + $00000063, $000000C6, $00000097, $00000035, $0000006A, $000000D4, + $000000B3, $0000007D, $000000FA, $000000EF, $000000C5, $00000091 + ); + + ForwardTable: array [0..255] of longword = ( + $A56363C6, $847C7CF8, $997777EE, $8D7B7BF6, $0DF2F2FF, $BD6B6BD6, $B16F6FDE, $54C5C591, + $50303060, $03010102, $A96767CE, $7D2B2B56, $19FEFEE7, $62D7D7B5, $E6ABAB4D, $9A7676EC, + $45CACA8F, $9D82821F, $40C9C989, $877D7DFA, $15FAFAEF, $EB5959B2, $C947478E, $0BF0F0FB, + $ECADAD41, $67D4D4B3, $FDA2A25F, $EAAFAF45, $BF9C9C23, $F7A4A453, $967272E4, $5BC0C09B, + $C2B7B775, $1CFDFDE1, $AE93933D, $6A26264C, $5A36366C, $413F3F7E, $02F7F7F5, $4FCCCC83, + $5C343468, $F4A5A551, $34E5E5D1, $08F1F1F9, $937171E2, $73D8D8AB, $53313162, $3F15152A, + $0C040408, $52C7C795, $65232346, $5EC3C39D, $28181830, $A1969637, $0F05050A, $B59A9A2F, + $0907070E, $36121224, $9B80801B, $3DE2E2DF, $26EBEBCD, $6927274E, $CDB2B27F, $9F7575EA, + $1B090912, $9E83831D, $742C2C58, $2E1A1A34, $2D1B1B36, $B26E6EDC, $EE5A5AB4, $FBA0A05B, + $F65252A4, $4D3B3B76, $61D6D6B7, $CEB3B37D, $7B292952, $3EE3E3DD, $712F2F5E, $97848413, + $F55353A6, $68D1D1B9, $00000000, $2CEDEDC1, $60202040, $1FFCFCE3, $C8B1B179, $ED5B5BB6, + $BE6A6AD4, $46CBCB8D, $D9BEBE67, $4B393972, $DE4A4A94, $D44C4C98, $E85858B0, $4ACFCF85, + $6BD0D0BB, $2AEFEFC5, $E5AAAA4F, $16FBFBED, $C5434386, $D74D4D9A, $55333366, $94858511, + $CF45458A, $10F9F9E9, $06020204, $817F7FFE, $F05050A0, $443C3C78, $BA9F9F25, $E3A8A84B, + $F35151A2, $FEA3A35D, $C0404080, $8A8F8F05, $AD92923F, $BC9D9D21, $48383870, $04F5F5F1, + $DFBCBC63, $C1B6B677, $75DADAAF, $63212142, $30101020, $1AFFFFE5, $0EF3F3FD, $6DD2D2BF, + $4CCDCD81, $140C0C18, $35131326, $2FECECC3, $E15F5FBE, $A2979735, $CC444488, $3917172E, + $57C4C493, $F2A7A755, $827E7EFC, $473D3D7A, $AC6464C8, $E75D5DBA, $2B191932, $957373E6, + $A06060C0, $98818119, $D14F4F9E, $7FDCDCA3, $66222244, $7E2A2A54, $AB90903B, $8388880B, + $CA46468C, $29EEEEC7, $D3B8B86B, $3C141428, $79DEDEA7, $E25E5EBC, $1D0B0B16, $76DBDBAD, + $3BE0E0DB, $56323264, $4E3A3A74, $1E0A0A14, $DB494992, $0A06060C, $6C242448, $E45C5CB8, + $5DC2C29F, $6ED3D3BD, $EFACAC43, $A66262C4, $A8919139, $A4959531, $37E4E4D3, $8B7979F2, + $32E7E7D5, $43C8C88B, $5937376E, $B76D6DDA, $8C8D8D01, $64D5D5B1, $D24E4E9C, $E0A9A949, + $B46C6CD8, $FA5656AC, $07F4F4F3, $25EAEACF, $AF6565CA, $8E7A7AF4, $E9AEAE47, $18080810, + $D5BABA6F, $887878F0, $6F25254A, $722E2E5C, $241C1C38, $F1A6A657, $C7B4B473, $51C6C697, + $23E8E8CB, $7CDDDDA1, $9C7474E8, $211F1F3E, $DD4B4B96, $DCBDBD61, $868B8B0D, $858A8A0F, + $907070E0, $423E3E7C, $C4B5B571, $AA6666CC, $D8484890, $05030306, $01F6F6F7, $120E0E1C, + $A36161C2, $5F35356A, $F95757AE, $D0B9B969, $91868617, $58C1C199, $271D1D3A, $B99E9E27, + $38E1E1D9, $13F8F8EB, $B398982B, $33111122, $BB6969D2, $70D9D9A9, $898E8E07, $A7949433, + $B69B9B2D, $221E1E3C, $92878715, $20E9E9C9, $49CECE87, $FF5555AA, $78282850, $7ADFDFA5, + $8F8C8C03, $F8A1A159, $80898909, $170D0D1A, $DABFBF65, $31E6E6D7, $C6424284, $B86868D0, + $C3414182, $B0999929, $772D2D5A, $110F0F1E, $CBB0B07B, $FC5454A8, $D6BBBB6D, $3A16162C + ); + + LastForwardTable: array [0..255] of longword = ( + $00000063, $0000007C, $00000077, $0000007B, $000000F2, $0000006B, $0000006F, $000000C5, + $00000030, $00000001, $00000067, $0000002B, $000000FE, $000000D7, $000000AB, $00000076, + $000000CA, $00000082, $000000C9, $0000007D, $000000FA, $00000059, $00000047, $000000F0, + $000000AD, $000000D4, $000000A2, $000000AF, $0000009C, $000000A4, $00000072, $000000C0, + $000000B7, $000000FD, $00000093, $00000026, $00000036, $0000003F, $000000F7, $000000CC, + $00000034, $000000A5, $000000E5, $000000F1, $00000071, $000000D8, $00000031, $00000015, + $00000004, $000000C7, $00000023, $000000C3, $00000018, $00000096, $00000005, $0000009A, + $00000007, $00000012, $00000080, $000000E2, $000000EB, $00000027, $000000B2, $00000075, + $00000009, $00000083, $0000002C, $0000001A, $0000001B, $0000006E, $0000005A, $000000A0, + $00000052, $0000003B, $000000D6, $000000B3, $00000029, $000000E3, $0000002F, $00000084, + $00000053, $000000D1, $00000000, $000000ED, $00000020, $000000FC, $000000B1, $0000005B, + $0000006A, $000000CB, $000000BE, $00000039, $0000004A, $0000004C, $00000058, $000000CF, + $000000D0, $000000EF, $000000AA, $000000FB, $00000043, $0000004D, $00000033, $00000085, + $00000045, $000000F9, $00000002, $0000007F, $00000050, $0000003C, $0000009F, $000000A8, + $00000051, $000000A3, $00000040, $0000008F, $00000092, $0000009D, $00000038, $000000F5, + $000000BC, $000000B6, $000000DA, $00000021, $00000010, $000000FF, $000000F3, $000000D2, + $000000CD, $0000000C, $00000013, $000000EC, $0000005F, $00000097, $00000044, $00000017, + $000000C4, $000000A7, $0000007E, $0000003D, $00000064, $0000005D, $00000019, $00000073, + $00000060, $00000081, $0000004F, $000000DC, $00000022, $0000002A, $00000090, $00000088, + $00000046, $000000EE, $000000B8, $00000014, $000000DE, $0000005E, $0000000B, $000000DB, + $000000E0, $00000032, $0000003A, $0000000A, $00000049, $00000006, $00000024, $0000005C, + $000000C2, $000000D3, $000000AC, $00000062, $00000091, $00000095, $000000E4, $00000079, + $000000E7, $000000C8, $00000037, $0000006D, $0000008D, $000000D5, $0000004E, $000000A9, + $0000006C, $00000056, $000000F4, $000000EA, $00000065, $0000007A, $000000AE, $00000008, + $000000BA, $00000078, $00000025, $0000002E, $0000001C, $000000A6, $000000B4, $000000C6, + $000000E8, $000000DD, $00000074, $0000001F, $0000004B, $000000BD, $0000008B, $0000008A, + $00000070, $0000003E, $000000B5, $00000066, $00000048, $00000003, $000000F6, $0000000E, + $00000061, $00000035, $00000057, $000000B9, $00000086, $000000C1, $0000001D, $0000009E, + $000000E1, $000000F8, $00000098, $00000011, $00000069, $000000D9, $0000008E, $00000094, + $0000009B, $0000001E, $00000087, $000000E9, $000000CE, $00000055, $00000028, $000000DF, + $0000008C, $000000A1, $00000089, $0000000D, $000000BF, $000000E6, $00000042, $00000068, + $00000041, $00000099, $0000002D, $0000000F, $000000B0, $00000054, $000000BB, $00000016 + ); + + InverseTable: array [0..255] of longword = ( + $50A7F451, $5365417E, $C3A4171A, $965E273A, $CB6BAB3B, $F1459D1F, $AB58FAAC, $9303E34B, + $55FA3020, $F66D76AD, $9176CC88, $254C02F5, $FCD7E54F, $D7CB2AC5, $80443526, $8FA362B5, + $495AB1DE, $671BBA25, $980EEA45, $E1C0FE5D, $02752FC3, $12F04C81, $A397468D, $C6F9D36B, + $E75F8F03, $959C9215, $EB7A6DBF, $DA595295, $2D83BED4, $D3217458, $2969E049, $44C8C98E, + $6A89C275, $78798EF4, $6B3E5899, $DD71B927, $B64FE1BE, $17AD88F0, $66AC20C9, $B43ACE7D, + $184ADF63, $82311AE5, $60335197, $457F5362, $E07764B1, $84AE6BBB, $1CA081FE, $942B08F9, + $58684870, $19FD458F, $876CDE94, $B7F87B52, $23D373AB, $E2024B72, $578F1FE3, $2AAB5566, + $0728EBB2, $03C2B52F, $9A7BC586, $A50837D3, $F2872830, $B2A5BF23, $BA6A0302, $5C8216ED, + $2B1CCF8A, $92B479A7, $F0F207F3, $A1E2694E, $CDF4DA65, $D5BE0506, $1F6234D1, $8AFEA6C4, + $9D532E34, $A055F3A2, $32E18A05, $75EBF6A4, $39EC830B, $AAEF6040, $069F715E, $51106EBD, + $F98A213E, $3D06DD96, $AE053EDD, $46BDE64D, $B58D5491, $055DC471, $6FD40604, $FF155060, + $24FB9819, $97E9BDD6, $CC434089, $779ED967, $BD42E8B0, $888B8907, $385B19E7, $DBEEC879, + $470A7CA1, $E90F427C, $C91E84F8, $00000000, $83868009, $48ED2B32, $AC70111E, $4E725A6C, + $FBFF0EFD, $5638850F, $1ED5AE3D, $27392D36, $64D90F0A, $21A65C68, $D1545B9B, $3A2E3624, + $B1670A0C, $0FE75793, $D296EEB4, $9E919B1B, $4FC5C080, $A220DC61, $694B775A, $161A121C, + $0ABA93E2, $E52AA0C0, $43E0223C, $1D171B12, $0B0D090E, $ADC78BF2, $B9A8B62D, $C8A91E14, + $8519F157, $4C0775AF, $BBDD99EE, $FD607FA3, $9F2601F7, $BCF5725C, $C53B6644, $347EFB5B, + $7629438B, $DCC623CB, $68FCEDB6, $63F1E4B8, $CADC31D7, $10856342, $40229713, $2011C684, + $7D244A85, $F83DBBD2, $1132F9AE, $6DA129C7, $4B2F9E1D, $F330B2DC, $EC52860D, $D0E3C177, + $6C16B32B, $99B970A9, $FA489411, $2264E947, $C48CFCA8, $1A3FF0A0, $D82C7D56, $EF903322, + $C74E4987, $C1D138D9, $FEA2CA8C, $360BD498, $CF81F5A6, $28DE7AA5, $268EB7DA, $A4BFAD3F, + $E49D3A2C, $0D927850, $9BCC5F6A, $62467E54, $C2138DF6, $E8B8D890, $5EF7392E, $F5AFC382, + $BE805D9F, $7C93D069, $A92DD56F, $B31225CF, $3B99ACC8, $A77D1810, $6E639CE8, $7BBB3BDB, + $097826CD, $F418596E, $01B79AEC, $A89A4F83, $656E95E6, $7EE6FFAA, $08CFBC21, $E6E815EF, + $D99BE7BA, $CE366F4A, $D4099FEA, $D67CB029, $AFB2A431, $31233F2A, $3094A5C6, $C066A235, + $37BC4E74, $A6CA82FC, $B0D090E0, $15D8A733, $4A9804F1, $F7DAEC41, $0E50CD7F, $2FF69117, + $8DD64D76, $4DB0EF43, $544DAACC, $DF0496E4, $E3B5D19E, $1B886A4C, $B81F2CC1, $7F516546, + $04EA5E9D, $5D358C01, $737487FA, $2E410BFB, $5A1D67B3, $52D2DB92, $335610E9, $1347D66D, + $8C61D79A, $7A0CA137, $8E14F859, $893C13EB, $EE27A9CE, $35C961B7, $EDE51CE1, $3CB1477A, + $59DFD29C, $3F73F255, $79CE1418, $BF37C773, $EACDF753, $5BAAFD5F, $146F3DDF, $86DB4478, + $81F3AFCA, $3EC468B9, $2C342438, $5F40A3C2, $72C31D16, $0C25E2BC, $8B493C28, $41950DFF, + $7101A839, $DEB30C08, $9CE4B4D8, $90C15664, $6184CB7B, $70B632D5, $745C6C48, $4257B8D0 + ); + + LastInverseTable: array [0..255] of longword = ( + $00000052, $00000009, $0000006A, $000000D5, $00000030, $00000036, $000000A5, $00000038, + $000000BF, $00000040, $000000A3, $0000009E, $00000081, $000000F3, $000000D7, $000000FB, + $0000007C, $000000E3, $00000039, $00000082, $0000009B, $0000002F, $000000FF, $00000087, + $00000034, $0000008E, $00000043, $00000044, $000000C4, $000000DE, $000000E9, $000000CB, + $00000054, $0000007B, $00000094, $00000032, $000000A6, $000000C2, $00000023, $0000003D, + $000000EE, $0000004C, $00000095, $0000000B, $00000042, $000000FA, $000000C3, $0000004E, + $00000008, $0000002E, $000000A1, $00000066, $00000028, $000000D9, $00000024, $000000B2, + $00000076, $0000005B, $000000A2, $00000049, $0000006D, $0000008B, $000000D1, $00000025, + $00000072, $000000F8, $000000F6, $00000064, $00000086, $00000068, $00000098, $00000016, + $000000D4, $000000A4, $0000005C, $000000CC, $0000005D, $00000065, $000000B6, $00000092, + $0000006C, $00000070, $00000048, $00000050, $000000FD, $000000ED, $000000B9, $000000DA, + $0000005E, $00000015, $00000046, $00000057, $000000A7, $0000008D, $0000009D, $00000084, + $00000090, $000000D8, $000000AB, $00000000, $0000008C, $000000BC, $000000D3, $0000000A, + $000000F7, $000000E4, $00000058, $00000005, $000000B8, $000000B3, $00000045, $00000006, + $000000D0, $0000002C, $0000001E, $0000008F, $000000CA, $0000003F, $0000000F, $00000002, + $000000C1, $000000AF, $000000BD, $00000003, $00000001, $00000013, $0000008A, $0000006B, + $0000003A, $00000091, $00000011, $00000041, $0000004F, $00000067, $000000DC, $000000EA, + $00000097, $000000F2, $000000CF, $000000CE, $000000F0, $000000B4, $000000E6, $00000073, + $00000096, $000000AC, $00000074, $00000022, $000000E7, $000000AD, $00000035, $00000085, + $000000E2, $000000F9, $00000037, $000000E8, $0000001C, $00000075, $000000DF, $0000006E, + $00000047, $000000F1, $0000001A, $00000071, $0000001D, $00000029, $000000C5, $00000089, + $0000006F, $000000B7, $00000062, $0000000E, $000000AA, $00000018, $000000BE, $0000001B, + $000000FC, $00000056, $0000003E, $0000004B, $000000C6, $000000D2, $00000079, $00000020, + $0000009A, $000000DB, $000000C0, $000000FE, $00000078, $000000CD, $0000005A, $000000F4, + $0000001F, $000000DD, $000000A8, $00000033, $00000088, $00000007, $000000C7, $00000031, + $000000B1, $00000012, $00000010, $00000059, $00000027, $00000080, $000000EC, $0000005F, + $00000060, $00000051, $0000007F, $000000A9, $00000019, $000000B5, $0000004A, $0000000D, + $0000002D, $000000E5, $0000007A, $0000009F, $00000093, $000000C9, $0000009C, $000000EF, + $000000A0, $000000E0, $0000003B, $0000004D, $000000AE, $0000002A, $000000F5, $000000B0, + $000000C8, $000000EB, $000000BB, $0000003C, $00000083, $00000053, $00000099, $00000061, + $00000017, $0000002B, $00000004, $0000007E, $000000BA, $00000077, $000000D6, $00000026, + $000000E1, $00000069, $00000014, $00000063, $00000055, $00000021, $0000000C, $0000007D + ); + +procedure ExpandAESKeyForEncryption(const Key: TAESKey128; var ExpandedKey: TAESExpandedKey128); +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 3] shl 24) or (ExpandedKey[I + 3] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 4] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 5] := ExpandedKey[I + 1] xor ExpandedKey[I + 4]; + ExpandedKey[I + 6] := ExpandedKey[I + 2] xor ExpandedKey[I + 5]; + ExpandedKey[I + 7] := ExpandedKey[I + 3] xor ExpandedKey[I + 6]; + Inc(I, 4); + until I >= 40; +end; + +procedure ExpandAESKeyForEncryption(const Key: TAESKey192; var ExpandedKey: TAESExpandedKey192); overload; +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + ExpandedKey[4] := PLongWord(@Key[16])^; + ExpandedKey[5] := PLongWord(@Key[20])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 5] shl 24) or (ExpandedKey[I + 5] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 6] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 7] := ExpandedKey[I + 1] xor ExpandedKey[I + 6]; + ExpandedKey[I + 8] := ExpandedKey[I + 2] xor ExpandedKey[I + 7]; + ExpandedKey[I + 9] := ExpandedKey[I + 3] xor ExpandedKey[I + 8]; + ExpandedKey[I + 10] := ExpandedKey[I + 4] xor ExpandedKey[I + 9]; + ExpandedKey[I + 11] := ExpandedKey[I + 5] xor ExpandedKey[I + 10]; + Inc(I, 6); + until I >= 46; +end; + +procedure ExpandAESKeyForEncryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); overload; +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + ExpandedKey[4] := PLongWord(@Key[16])^; + ExpandedKey[5] := PLongWord(@Key[20])^; + ExpandedKey[6] := PLongWord(@Key[24])^; + ExpandedKey[7] := PLongWord(@Key[28])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 7] shl 24) or (ExpandedKey[I + 7] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 8] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 9] := ExpandedKey[I + 1] xor ExpandedKey[I + 8]; + ExpandedKey[I + 10] := ExpandedKey[I + 2] xor ExpandedKey[I + 9]; + ExpandedKey[I + 11] := ExpandedKey[I + 3] xor ExpandedKey[I + 10]; + W0 := LastForwardTable[Byte(ExpandedKey[I + 11])]; + W1 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 8)]; + W2 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 16)]; + W3 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 24)]; + ExpandedKey[I + 12] := ExpandedKey[I + 4] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))); + ExpandedKey[I + 13] := ExpandedKey[I + 5] xor ExpandedKey[I + 12]; + ExpandedKey[I + 14] := ExpandedKey[I + 6] xor ExpandedKey[I + 13]; + ExpandedKey[I + 15] := ExpandedKey[I + 7] xor ExpandedKey[I + 14]; + Inc(I, 8); + until I >= 52; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 9 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 11 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 10 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 11 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 13 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 10 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 11 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 12 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // round 13 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[52]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[53]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[54]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[55]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[56]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[57]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[58]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[59]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey128); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 9 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey128; var ExpandedKey: TAESExpandedKey128); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey192); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 11 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey192; var ExpandedKey: TAESExpandedKey192); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 13 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[40]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[41]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[42]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[43]; + // performing transformations 9 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[48]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[49]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[50]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[51]; + // performing transformations 11 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 10 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 11 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[56]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[57]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[58]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[59]; + // performing transformations 13 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[52]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[53]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[54]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[55]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 10 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 11 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 12 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 13 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +// Stream encryption routines (ECB mode) + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +// Stream decryption routines (ECB mode) + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +// Stream encryption routines (CBC mode) + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +// Stream decryption routines (CBC mode) + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +end. diff --git a/检验主程序/File.INI b/检验主程序/File.INI new file mode 100644 index 0000000..e7852fe --- /dev/null +++ b/检验主程序/File.INI @@ -0,0 +1,4 @@ +[] +ĸ̨־=1 +С̨־=6 +С־=С \ No newline at end of file diff --git a/检验主程序/FileUpdate.INI b/检验主程序/FileUpdate.INI new file mode 100644 index 0000000..ddeb214 --- /dev/null +++ b/检验主程序/FileUpdate.INI @@ -0,0 +1,2 @@ +[ϵͳ] +Զļ= diff --git a/检验主程序/JCYData.INI b/检验主程序/JCYData.INI new file mode 100644 index 0000000..92a9055 --- /dev/null +++ b/检验主程序/JCYData.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com1 +=4800 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/检验主程序/SYSTEMSET.ini b/检验主程序/SYSTEMSET.ini new file mode 100644 index 0000000..c598a0b --- /dev/null +++ b/检验主程序/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=192.168.1.246 +=XXXXXXX1 \ No newline at end of file diff --git a/检验主程序/U_Link.dfm b/检验主程序/U_Link.dfm new file mode 100644 index 0000000..f44d833 --- /dev/null +++ b/检验主程序/U_Link.dfm @@ -0,0 +1,46 @@ +object frmLink: TfrmLink + Left = 294 + Top = 244 + BorderIcons = [] + BorderStyle = bsNone + ClientHeight = 114 + ClientWidth = 246 + 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 + PixelsPerInch = 96 + TextHeight = 12 + object AADs: TPanel + Left = 36 + Top = 32 + Width = 185 + Height = 41 + Caption = #27491#22312#36830#25509#26381#21153#22120'...' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + end + object CSocket: TClientSocket + Active = False + ClientType = ctNonBlocking + Port = 0 + OnConnect = CSocketConnect + OnRead = CSocketRead + OnError = CSocketError + Left = 12 + Top = 84 + end +end diff --git a/检验主程序/U_Link.pas b/检验主程序/U_Link.pas new file mode 100644 index 0000000..57727b1 --- /dev/null +++ b/检验主程序/U_Link.pas @@ -0,0 +1,115 @@ +unit U_Link; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + IniFiles,Dialogs, ScktComp, ExtCtrls; + +type + TCommBlock = record + workFlag:integer; //0:ʼַ + linkString:string[255]; + // buf:array [0..Buffersize] of char; + end; + TfrmLink = class(TForm) + CSocket: TClientSocket; + AADs: TPanel; + procedure CSocketRead(Sender: TObject; Socket: TCustomWinSocket); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure CSocketConnect(Sender: TObject; Socket: TCustomWinSocket); + procedure FormDestroy(Sender: TObject); + procedure CSocketError(Sender: TObject; Socket: TCustomWinSocket; + ErrorEvent: TErrorEvent; var ErrorCode: Integer); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + fADOConnString:string; + LinkFlag:string; + function LinkTxServer():Boolean; + + { Public declarations } + end; + +var + frmLink: TfrmLink; + +implementation +//uses U_Main; +{$R *.dfm} +function TfrmLink.LinkTxServer():Boolean; +var + CommBlock : TCommBlock; +begin + result:=false; + try + CommBlock.workFlag:=strtointdef(LinkFlag,-1); + CommBlock.linkString:=''; + CSocket.Socket.SendBuf(CommBlock,SizeOf(CommBlock)); + Result:=true; + except + Application.MessageBox('ͨѶʧܣ','Ϣ',MB_ICONERROR); + end; +end; + +procedure TfrmLink.CSocketRead(Sender: TObject; Socket: TCustomWinSocket); +var + CommBlock1: TCommBlock; +begin + try + CSocket.Socket.ReceiveBuf(CommBlock1,SizeOf(CommBlock1)); + fADOConnString:=trim(CommBlock1.linkString); + ModalResult:=1; + except + ModalResult:=-1; + end; +end; + +procedure TfrmLink.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmLink.CSocketConnect(Sender: TObject; + Socket: TCustomWinSocket); +begin + if not LinkTxServer() then ModalResult:=-1; +end; + +procedure TfrmLink.FormDestroy(Sender: TObject); +begin + frmLink:=nil; +end; + +procedure TfrmLink.CSocketError(Sender: TObject; Socket: TCustomWinSocket; + ErrorEvent: TErrorEvent; var ErrorCode: Integer); +begin + Application.MessageBox('ͨѶʧܣ','Ϣ',MB_ICONERROR); + application.Terminate; +end; + +procedure TfrmLink.FormCreate(Sender: TObject); +var + IniFile: TIniFile; + LinkServer:string; +begin + try + IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI'); + LinkServer := IniFile.ReadString('SERVER', 'ַ','127.0.0.1'); + LinkFlag:= IniFile.ReadString('SERVER', 'ַ','0'); + finally + IniFile.Free; + end; + + try + CSocket.Host:=trim(LinkServer); + CSocket.Port:=47936; + CSocket.Open; + except + ModalResult:=-1; + end; + +end; + +end. diff --git a/检验主程序/U_iniParam.pas b/检验主程序/U_iniParam.pas new file mode 100644 index 0000000..30a5fe4 --- /dev/null +++ b/检验主程序/U_iniParam.pas @@ -0,0 +1,98 @@ +//////////////////////////////////////////////////////////////////////////////// +// ԴƣU_iniParam.pas +// Ȩͨ޹˾ Ȩ +// ϵͳƣͨӡȾERPҵϵͳ +// ģƣ +// ˵ƻģiniļ +// ߣٻƽ +// ˣ +//////////////////////////////////////////////////////////////////////////////// +unit U_iniParam; + +interface +uses + IniFiles,SysUtils,Windows; +var + Filename:string; //ļ + iParam2:integer; + bParam1:Boolean; + bParam2:Boolean; + gUpdateFileServer:string; + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); + procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI'; + programIni:=Tinifile.create(FileName); + gUpdateFileServer:=programIni.ReadString('ϵͳ','Զļ',''); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI'; + programIni:=Tinifile.create(FileName); + programIni.WriteString('ϵͳ','Զļ',gUpdateFileServer); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; +{------------------------------------------------------------------------------- + : UpdateFileTime + : imcjs + : 2011.02.12 + : FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime + ˵ ޸ָļĴʱ䡢ʱ䡢޸ʱ +-------------------------------------------------------------------------------} + +procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime); +var + FileHnd : Integer; + SysTime : TSystemTime; + tTzi: TTimezoneInformation; + FCreationTime, FLastAccessTime, FLastWriteTime: TFileTime; +begin + GetTimezoneInformation(tTzi) ; + CreationTime := CreationTime+Ttzi.Bias/1440; + DateTimeToSystemTime(CreationTime,SysTime); + SystemTimeToFileTime(SysTime,FCreationTime); + //LastAccessTime := LastAccessTime + Ttzi.Bias/1440; + //DateTimeToSystemTime(LastAccessTime,SysTime); + //SystemTimeToFileTime(SysTime,FLastAccessTime); + LastWriteTime := LastWriteTime + Ttzi.Bias/1440; + DateTimeToSystemTime(LastWriteTime,SysTime); + SystemTimeToFileTime(SysTime,FLastWriteTime); + try + FileHnd := FileOpen(FileName, fmOpenWrite or fmShareDenyNone); + SetFileTime(FileHnd, @FCreationTime, nil, @FLastWriteTime); + finally + FileClose(FileHnd); + end; +end; + + + +end. diff --git a/检验主程序/U_upPassword.dfm b/检验主程序/U_upPassword.dfm new file mode 100644 index 0000000..6a2e1db --- /dev/null +++ b/检验主程序/U_upPassword.dfm @@ -0,0 +1,336 @@ +object frmupPassword: TfrmupPassword + Left = 300 + Top = 177 + Width = 617 + Height = 544 + BorderIcons = [biSystemMenu] + Caption = #23494#30721#20462#25913 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 35 + object Label1: TLabel + Left = 48 + Top = 36 + Width = 180 + Height = 35 + Caption = #25805#20316#21592#32534#21495 + end + object Label2: TLabel + Left = 48 + Top = 99 + Width = 180 + Height = 35 + Caption = #36755#20837#21407#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 48 + Top = 154 + Width = 180 + Height = 35 + Caption = #36755#20837#26032#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 48 + Top = 222 + Width = 180 + Height = 35 + Caption = #37325#36755#26032#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object userID: TEdit + Left = 240 + Top = 32 + Width = 238 + Height = 43 + CharCase = ecUpperCase + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = userIDKeyPress + end + object oldPassword: TEdit + Left = 240 + Top = 95 + Width = 239 + Height = 43 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 1 + OnClick = oldPasswordClick + OnKeyPress = userIDKeyPress + end + object newPassword: TEdit + Left = 240 + Top = 150 + Width = 240 + Height = 43 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 2 + OnClick = newPasswordClick + OnKeyPress = userIDKeyPress + end + object DnewPassword: TEdit + Left = 240 + Top = 218 + Width = 241 + Height = 43 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 3 + OnClick = DnewPasswordClick + OnKeyPress = userIDKeyPress + end + object cxOK: TcxButton + Left = 127 + Top = 424 + Width = 89 + Height = 49 + Caption = #25552#20132 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = cxOKClick + LookAndFeel.Kind = lfOffice11 + LookAndFeel.NativeStyle = False + end + object cxClose: TcxButton + Left = 409 + Top = 424 + Width = 75 + Height = 49 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = cxCloseClick + LookAndFeel.Kind = lfOffice11 + LookAndFeel.NativeStyle = False + end + object Panel3: TPanel + Left = 127 + Top = 288 + Width = 357 + Height = 118 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 6 + object SpeedButton1: TSpeedButton + Left = 0 + Top = 0 + Width = 60 + Height = 60 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 59 + Top = 0 + Width = 60 + Height = 60 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 118 + Top = 0 + Width = 60 + Height = 60 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 177 + Top = 0 + Width = 60 + Height = 60 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 236 + Top = 0 + Width = 60 + Height = 60 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 295 + Top = 0 + Width = 60 + Height = 60 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 0 + Top = 59 + Width = 60 + Height = 60 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 59 + Top = 59 + Width = 60 + Height = 60 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 118 + Top = 59 + Width = 60 + Height = 60 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 177 + Top = 59 + Width = 60 + Height = 60 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 236 + Top = 59 + Width = 60 + Height = 60 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + end + object ADO_Cmd: TADOQuery + Connection = FormMain.ADOConnection1 + Parameters = <> + Left = 540 + Top = 24 + end +end diff --git a/检验主程序/U_upPassword.pas b/检验主程序/U_upPassword.pas new file mode 100644 index 0000000..8480c18 --- /dev/null +++ b/检验主程序/U_upPassword.pas @@ -0,0 +1,204 @@ +unit U_upPassword; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Menus, cxLookAndFeelPainters, cxButtons, DB, ADODB, + Buttons, ExtCtrls; + +type + TfrmupPassword = class(TForm) + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + userID: TEdit; + oldPassword: TEdit; + newPassword: TEdit; + DnewPassword: TEdit; + cxOK: TcxButton; + cxClose: TcxButton; + ADO_Cmd: TADOQuery; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton12: TSpeedButton; + procedure cxCloseClick(Sender: TObject); + procedure cxOKClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure userIDKeyPress(Sender: TObject; var Key: Char); + procedure oldPasswordClick(Sender: TObject); + procedure newPasswordClick(Sender: TObject); + procedure DnewPasswordClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + private + Fint:Integer; + { Private declarations } + public + fuserID:string; + fuserName:string; + fPassWord:string; + { Public declarations } + end; + +var + frmupPassword: TfrmupPassword; + +implementation +uses spmain,ElAES,AES; +{$R *.dfm} +procedure TfrmupPassword.cxCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmupPassword.cxOKClick(Sender: TObject); +begin + if trim(oldPassword.text)<>'' then + fPassWord:=trim(EncryptString(trim(oldPassword.text),keys)) + else + fPassWord:=''; + WITH ADO_Cmd Do + BEGIN + close; + sql.Clear; + sql.Add(' SELECT * '); + sql.Add(' FROM SY_User A '); + Sql.Add(' where UserID='+quotedstr(trim(fuserID))); + Sql.Add(' and PassWord='+quotedstr(trim(fPassWord))); + Sql.Add(' and Valid=''Y'' '); + open; + END; + IF ADO_Cmd.IsEmpty THEN + BEGIN + Application.MessageBox('ԭ', 'ʾ', MB_ICONERROR); + oldPassword.Text := ''; + exit; + END; + if trim(newPassword.Text)<> trim(dnewPassword.Text) then + begin + application.MessageBox('벻һ£','Ϣ',MB_ICONERROR); + newPassword.Text:=''; + dnewPassword.Text:=''; + exit; + end; + + if trim(newPassword.text)<>'' then + fPassWord:=trim(EncryptString(trim(newPassword.text),keys)) + else + fPassWord:=''; + try + WITH ADO_Cmd Do + BEGIN + close; + sql.Clear; + sql.Add(' SELECT * '); + sql.Add(' FROM SY_User A '); + Sql.Add(' where UserID='+quotedstr(trim(fuserID))); + Sql.Add(' and Valid=''Y'' '); + open; + END; + ADO_Cmd.Edit; + ADO_Cmd.FieldByName('password').Value:=trim(fPassWord); + ADO_Cmd.Post; + ModalResult:=1; + application.MessageBox('޸ɹ','ʾϢ'); + except + application.MessageBox('޸ʧܣ','Ϣ',MB_ICONERROR); + exit; + end; + + + +end; + +procedure TfrmupPassword.FormShow(Sender: TObject); +begin + userID.Text:=trim(fuserID); + oldPassword.SetFocus; + Fint:=1; +end; + +procedure TfrmupPassword.userIDKeyPress(Sender: TObject; var Key: Char); +begin + Key:=UpCase(Key); + if key=#13 then + begin + perform(WM_NEXTDLGCTL,0,0); + Key := #0; + end; +end; + +procedure TfrmupPassword.oldPasswordClick(Sender: TObject); +begin + Fint:=1; +end; + +procedure TfrmupPassword.newPasswordClick(Sender: TObject); +begin + Fint:=2; +end; + +procedure TfrmupPassword.DnewPasswordClick(Sender: TObject); +begin + Fint:=3; +end; + +procedure TfrmupPassword.SpeedButton1Click(Sender: TObject); +begin + if Fint=1 then + begin + oldPassword.Text:=Trim(oldPassword.Text)+Trim(TSpeedButton(Sender).Caption); + oldPassword.SelectAll; + end else + if Fint=2 then + begin + newPassword.Text:=Trim(newPassword.Text)+Trim(TSpeedButton(Sender).Caption); + newPassword.SelectAll; + end else + if Fint=3 then + begin + DnewPassword.Text:=Trim(DnewPassword.Text)+Trim(TSpeedButton(Sender).Caption); + DnewPassword.SelectAll; + end; +end; + +procedure TfrmupPassword.SpeedButton12Click(Sender: TObject); +begin + if Fint=1 then + begin + if Trim(oldPassword.Text)<>'' then + begin + oldPassword.Text:=Copy(Trim(oldPassword.Text),1,Length(Trim(oldPassword.Text))-1); + oldPassword.SelectAll; + end; + end else + if Fint=2 then + begin + if Trim(newPassword.Text)<>'' then + begin + newPassword.Text:=Copy(Trim(newPassword.Text),1,Length(Trim(newPassword.Text))-1); + newPassword.SelectAll; + end; + end else + if Fint=3 then + begin + if Trim(DnewPassword.Text)<>'' then + begin + DnewPassword.Text:=Copy(Trim(DnewPassword.Text),1,Length(Trim(DnewPassword.Text))-1); + DnewPassword.SelectAll; + end; + end; +end; + +end. diff --git a/检验主程序/WFBProduction.cfg b/检验主程序/WFBProduction.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/检验主程序/WFBProduction.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/检验主程序/WFBProduction.dof b/检验主程序/WFBProduction.dof new file mode 100644 index 0000000..8c709eb --- /dev/null +++ b/检验主程序/WFBProduction.dof @@ -0,0 +1,136 @@ +[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= +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;Rave50CLX;Rave50VCL;dclOfficeXP;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSpreadSheetVCLD7;dxmdsD7;cxPageControlVCLD7;dxsbD7;dxComnD7;dxDockingD7;dxBarExtDBItemsD7;dxBarD7;dxBarDBNavD7;dxBarExtItemsD7;dxdbtrD7;dxtrmdD7;dxFlowChartD7;cxWebD7;cxWebSnapD7;cxWebPascalScriptD7;cxWebTeeChartD7;cxSchedulerVCLD7;dxMasterViewD7;dxNavBarD7;dxorgcD7;dxdborD7;cxGridVCLD7;cxVerticalGridVCLD7;cxTreeListVCLD7;dxLayoutControlD7;dxPSCoreD7;dxPSLnksD7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxSSLnkD7;dxPScxTLLnkD7;dxPScxVGridLnkD7;dxPSdxDBOCLnkD7;dxPSdxOCLnkD7;dxPSdxDBTVLnkD7;dxPSdxFCLnkD7;dxPSdxLCLnkD7;dxPSdxMVLnkD7;dxPsPrVwAdvD7;dxPSTeeChartD7;dxPSDBTeeChartD7;dxForumLibD7;cxPivotGridD7;btneditpac;FTComboBoxPac;rm_r70;inetdb;mxOutlookBarPro_D7 +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +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= diff --git a/检验主程序/WFBProduction.dpr b/检验主程序/WFBProduction.dpr new file mode 100644 index 0000000..a1d030a --- /dev/null +++ b/检验主程序/WFBProduction.dpr @@ -0,0 +1,28 @@ +program WFBProduction; + +uses + Forms, + logon in 'logon.pas' {FormLogon}, + spmain in 'spmain.pas' {FormMain}, + DelphiTwainUtils in 'delphitwain\DelphiTwainUtils.pas', + Twain in 'delphitwain\Twain.pas', + DelphiTwain in 'delphitwain\DelphiTwain.pas', + MovePanel in 'DbPanel\MovePanel.pas', + AES in 'AES.pas', + ElAES in 'ElAES.pas', + U_upPassword in 'U_upPassword.pas' {frmupPassword}, + U_Link in 'U_Link.pas' {frmLink}; + +{$R *.res} + +begin + Application.Initialize; + Application.Title := '̨'; + Application.CreateForm(TFormMain, FormMain); + // Application.CreateForm(TfrmKqInCM, frmKqInCM); + //FormLogon:=TFormLogon.Create(application); + //FormLogon.ShowModal; + //FormLogon.update; + Application.Run; + +end. diff --git a/检验主程序/WFBProduction.res b/检验主程序/WFBProduction.res new file mode 100644 index 0000000..0a25f02 Binary files /dev/null and b/检验主程序/WFBProduction.res differ diff --git a/检验主程序/logon.dfm b/检验主程序/logon.dfm new file mode 100644 index 0000000..9a72cdf --- /dev/null +++ b/检验主程序/logon.dfm @@ -0,0 +1,415 @@ +object FormLogon: TFormLogon + Left = 210 + Top = 81 + BorderStyle = bsNone + Caption = #29992#25143#30331#24405 + ClientHeight = 516 + ClientWidth = 761 + Color = clBackground + DefaultMonitor = dmDesktop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + OldCreateOrder = False + Position = poScreenCenter + OnActivate = FormActivate + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnKeyDown = Form + OnKeyPress = FormKeyPress + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 35 + object MovePanel1: TMovePanel + Left = 0 + Top = 0 + Width = 761 + Height = 516 + Align = alClient + BevelInner = bvLowered + BevelWidth = 2 + Color = clSkyBlue + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentCtl3D = False + ParentFont = False + TabOrder = 0 + object Label1: TLabel + Left = 151 + Top = 109 + Width = 83 + Height = 33 + Caption = #24080' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Transparent = True + end + object Label2: TLabel + Left = 151 + Top = 183 + Width = 83 + Height = 33 + Caption = #23494' '#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Transparent = True + end + object Label3: TLabel + Left = 140 + Top = 46 + Width = 406 + Height = 35 + Alignment = taCenter + Caption = #24067' '#21305' '#26816' '#39564' '#31995' '#32479 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Left = 242 + Top = 182 + Width = 287 + Height = 39 + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + MaxLength = 15 + ParentCtl3D = False + ParentFont = False + PasswordChar = '*' + TabOrder = 0 + OnKeyDown = Edit2KeyDown + OnKeyPress = FormKeyPress + end + object ToolBar1: TToolBar + Left = 127 + Top = 253 + Width = 600 + Height = 58 + Align = alNone + ButtonHeight = 41 + ButtonWidth = 194 + DockSite = True + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + Transparent = True + object BtnOk: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = ' '#30331#24405' ' + ImageIndex = 98 + ParentShowHint = False + ShowHint = False + OnClick = BtnOkClick + end + object ToolButton12: TToolButton + Left = 126 + Top = 0 + Caption = ' '#20462#25913#23494#30721' ' + ImageIndex = 30 + OnClick = ToolButton12Click + end + object BtnQuit: TToolButton + Left = 320 + Top = 0 + AutoSize = True + Caption = ' '#36864#20986' ' + ImageIndex = 29 + OnClick = BtnQuitClick + end + end + object ToolBar2: TToolBar + Left = 4 + Top = 415 + Width = 753 + Height = 97 + Align = alBottom + ButtonHeight = 54 + ButtonWidth = 62 + DockSite = True + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #23435#20307 + Font.Style = [fsBold] + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + Transparent = True + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = ' ' + Enabled = False + ImageIndex = 34 + end + object ToolButton23: TToolButton + Left = 66 + Top = 0 + Caption = '5' + ImageIndex = 40 + OnClick = ToolButton13Click + end + object ToolButton24: TToolButton + Left = 128 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 39 + end + object ToolButton7: TToolButton + Left = 169 + Top = 0 + Caption = '6' + ImageIndex = 98 + ParentShowHint = False + ShowHint = False + OnClick = ToolButton13Click + end + object ToolButton8: TToolButton + Left = 231 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 29 + OnClick = ToolButton13Click + end + object ToolButton9: TToolButton + Left = 272 + Top = 0 + Caption = '7' + ImageIndex = 30 + OnClick = ToolButton13Click + end + object ToolButton10: TToolButton + Left = 334 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 31 + OnClick = ToolButton13Click + end + object ToolButton11: TToolButton + Left = 375 + Top = 0 + Caption = '8' + ImageIndex = 32 + OnClick = ToolButton13Click + end + object ToolButton19: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 33 + OnClick = ToolButton13Click + end + object ToolButton20: TToolButton + Left = 478 + Top = 0 + Caption = '9' + ImageIndex = 34 + OnClick = ToolButton13Click + end + object ToolButton21: TToolButton + Left = 540 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 35 + OnClick = ToolButton13Click + end + object ToolButton25: TToolButton + Left = 581 + Top = 0 + Caption = #8592 + ImageIndex = 38 + OnClick = ToolButton23Click + end + end + object ToolBar3: TToolBar + Left = 4 + Top = 347 + Width = 753 + Height = 68 + Align = alBottom + ButtonHeight = 54 + ButtonWidth = 62 + DockSite = True + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #23435#20307 + Font.Style = [fsBold] + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 3 + Transparent = True + object ToolButton22: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = ' ' + Enabled = False + ImageIndex = 39 + end + object ToolButton2: TToolButton + Left = 66 + Top = 0 + Caption = '0' + ImageIndex = 98 + ParentShowHint = False + ShowHint = False + OnClick = ToolButton13Click + end + object ToolButton5: TToolButton + Left = 128 + Top = 0 + AutoSize = True + Caption = ' ' + Enabled = False + ImageIndex = 31 + OnClick = ToolButton13Click + end + object ToolButton3: TToolButton + Left = 169 + Top = 0 + Caption = '1' + ImageIndex = 29 + OnClick = ToolButton13Click + end + object ToolButton4: TToolButton + Left = 231 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 30 + OnClick = ToolButton13Click + end + object ToolButton13: TToolButton + Left = 272 + Top = 0 + Caption = '2' + ImageIndex = 32 + OnClick = ToolButton13Click + end + object ToolButton14: TToolButton + Left = 334 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 33 + OnClick = ToolButton13Click + end + object ToolButton15: TToolButton + Left = 375 + Top = 0 + Caption = '3' + ImageIndex = 34 + OnClick = ToolButton13Click + end + object ToolButton16: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 35 + OnClick = ToolButton13Click + end + object ToolButton17: TToolButton + Left = 478 + Top = 0 + Caption = '4' + ImageIndex = 36 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 540 + Top = 0 + AutoSize = True + Enabled = False + ImageIndex = 37 + OnClick = ToolButton13Click + end + object ToolButton1: TToolButton + Left = 581 + Top = 0 + Caption = #8592 + ImageIndex = 39 + OnClick = ToolButton1Click + end + end + object Edit1: TComboBox + Left = 242 + Top = 108 + Width = 288 + Height = 41 + Style = csDropDownList + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 33 + ParentCtl3D = False + ParentFont = False + TabOrder = 4 + OnExit = ComboBox1Exit + end + end + object Timer1: TTimer + Enabled = False + Interval = 100 + OnTimer = Timer1Timer + Left = 16 + Top = 80 + end + object ADQ_Tmp: TADOQuery + Connection = FormMain.ADOConnection1 + Parameters = <> + Left = 24 + Top = 160 + end +end diff --git a/检验主程序/logon.pas b/检验主程序/logon.pas new file mode 100644 index 0000000..d2f3843 --- /dev/null +++ b/检验主程序/logon.pas @@ -0,0 +1,319 @@ +unit logon; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Buttons, ExtCtrls, MovePanel,ADODB, DB, ComCtrls, + ToolWin; + +type + TFormLogon = class(TForm) + Timer1: TTimer; + MovePanel1: TMovePanel; + Label1: TLabel; + Label2: TLabel; + Edit2: TEdit; + Label3: TLabel; + ToolBar1: TToolBar; + BtnOk: TToolButton; + BtnQuit: TToolButton; + ToolButton12: TToolButton; + ToolBar2: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + ToolButton11: TToolButton; + ToolButton19: TToolButton; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + ToolButton25: TToolButton; + ToolBar3: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton13: TToolButton; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + ToolButton18: TToolButton; + ADQ_Tmp: TADOQuery; + ToolButton22: TToolButton; + ToolButton24: TToolButton; + Edit1: TComboBox; + ToolButton1: TToolButton; + ToolButton23: TToolButton; + procedure btnoClick(Sender: TObject); + procedure Form(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure BtnOkClick(Sender: TObject); + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure Timer1Timer(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure BtnQuitClick(Sender: TObject); + procedure Edit2KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormCreate(Sender: TObject); + procedure FormActivate(Sender: TObject); + procedure Edit1Exit(Sender: TObject); + procedure ToolButton13Click(Sender: TObject); + procedure ToolButton23Click(Sender: TObject); + procedure ComboBox1Exit(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + FormLogon: TFormLogon; + +implementation + +uses + Spmain,AES,ElAES,U_upPassword; + + +{$R *.dfm} + +procedure TFormLogon.FormCreate(Sender: TObject); +begin + Edit1.Text := ''; +end; + +procedure TFormLogon.FormShow(Sender: TObject); +begin + with ADQ_Tmp do + begin + Close; + sql.Clear; + SQL.Add('select distinct A.UserID from SY_Purview A '); + SQL.Add('inner join SY_User B on B.UserID=A.UserID '); + sql.Add('where A.ModuleSubId=''99'' '); + Open; + end; + Edit1.Items.Clear; + with ADQ_Tmp do + begin + First; + while not Eof do + begin + Edit1.Items.Add(Trim(fieldbyname('UserId').AsString)); + Next; + end; + end; + Edit1.SetFocus; +end; + +procedure TFormLogon.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := CaFree; +end; + +procedure TFormLogon.Form(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = 13 then + begin + PostMessage(Handle,WM_KEYDOWN,VK_TAB,0); + Key := 0; + end; +end; + +procedure TFormLogon.btnoClick(Sender: TObject); +begin + application.Terminate; +end; + +procedure TFormLogon.BtnOkClick(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + newh:hwnd; +bm,mm,mz,mm2:string; +begin + if (Edit1.Text='') then + begin + Application.MessageBox('ʺû¼,¼롣', 'Ϣʾ', MB_OK or MB_ICONinformation); + Edit1.SetFocus; + exit; + end; + with ADQ_Tmp do + begin + sql.Clear; + sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(Edit1.Text)+''''); + Open; + IF not ADQ_Tmp.IsEmpty then + begin + bm:=Fields[0].AsString; + mz:=Fields[1].AsString; + mm:=Trim(Fields[2].AsString); + if Trim(mm)<>'' then + mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128)) + else + mm2:=''; + end + else + begin + Application.MessageBox('ûдԱ','ʾ',0); + Exit; + end; + close; + end; + + if (mm2=trim(edit2.text)) and (bm<>'') then + begin + FormMain.StatusBar1.Panels[1].Text:='Ա:'+mz; + FormMain.StatusBar1.Panels[2].Text:='Ϣ޹˾'; + User_Name:=trim(mz); + User_Id:=trim(bm); + + // fuserName:=trim(ADOQueryTmp.fieldbyname('userName').AsString); + Th := LoadLibrary('FileUpdate.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(User_Id), + PChar(User_Name),PChar(''),PChar(''),PChar(''),PChar(''),'','','','','','','','',PChar(ConDateBaseString)); + end + else + begin + //ShowMessage('ӡִд'); + end; + finally + FreeLibrary(Th); + end; + end + else + begin + ShowMessage('ҲFileUpdate.dll'); + end; + FormLogon.close; + FormMain.Show; + end + else + Application.MessageBox('', 'Ϣʾ', MB_OK or MB_ICONinformation); + + {FormLogon.close; + FormMain.Show;} +end; + +procedure TFormLogon.FormKeyPress(Sender: TObject; var Key: Char); +begin + {key:=UpCase(key); + if (Key in ['''']) then + Key := #0; + if FormLogon.Visible then + begin + if key=#13 then + begin + key:=#0; + FormLogon.perform(WM_NEXTDLGCTL,0,0); + end; + + end;} + +end; + +procedure TFormLogon.Timer1Timer(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; +end; + +procedure TFormLogon.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + if User_ID='' then application.Terminate; +end; + +procedure TFormLogon.BtnQuitClick(Sender: TObject); +begin + application.Terminate; +end; + +procedure TFormLogon.Edit2KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_Return then + BtnokClick(sender); +end; + +procedure TFormLogon.FormActivate(Sender: TObject); +begin + Edit1.SetFocus; +end; + +procedure TFormLogon.Edit1Exit(Sender: TObject); +begin + edit1.Text :=upperCase(trim(edit1.text)) +end; + +procedure TFormLogon.ToolButton13Click(Sender: TObject); +begin + Edit2.Text:=Trim(Edit2.Text)+Trim(TToolButton(Sender).Caption); + Edit2.SelectAll; +end; + +procedure TFormLogon.ToolButton23Click(Sender: TObject); +begin + if Length(Trim(Edit2.Text))=0 then Exit; + Edit2.Text:=Copy(Trim(Edit2.Text),1,Length(Trim(Edit2.Text))-1); + Edit2.SelectAll; +end; + +procedure TFormLogon.ComboBox1Exit(Sender: TObject); +begin + edit1.Text :=upperCase(trim(edit1.text)) +end; + +procedure TFormLogon.ToolButton12Click(Sender: TObject); +begin + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('ʺŲΪգ','ʾ',0); + Exit; + end; + try + frmupPassword:=TfrmupPassword.Create(Application); + with frmupPassword do + begin + fuserID:=Trim(Self.Edit1.Text); + if ShowModal=1 then + begin + + end; + end; + finally + frmupPassword.Free; + end; +end; + +procedure TFormLogon.ToolButton1Click(Sender: TObject); +begin + if Length(Trim(Edit2.Text))=0 then Exit; + Edit2.Text:=Copy(Trim(Edit2.Text),1,Length(Trim(Edit2.Text))-1); + Edit2.SelectAll; +end; + +end. diff --git a/检验主程序/spmain.dfm b/检验主程序/spmain.dfm new file mode 100644 index 0000000..8446281 --- /dev/null +++ b/检验主程序/spmain.dfm @@ -0,0 +1,15021 @@ +object FormMain: TFormMain + Left = -8 + Top = -8 + BorderStyle = bsNone + Caption = #29983#20135#31649#29702#31995#32479 + ClientHeight = 716 + ClientWidth = 1366 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + FormStyle = fsMDIForm + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnResize = FormResize + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object StatusBar1: TStatusBar + Left = 0 + Top = 697 + Width = 1366 + Height = 19 + Color = clSkyBlue + Panels = < + item + Width = 250 + end + item + Width = 200 + end + item + Width = 50 + end> + end + object MovePanel1: TMovePanel + Left = 0 + Top = 0 + Width = 1366 + Height = 40 + Align = alTop + Alignment = taRightJustify + BevelInner = bvRaised + BevelOuter = bvLowered + BiDiMode = bdLeftToRight + Caption = #24067#21305#26816#39564#31649#29702#31995#32479' ' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentBiDiMode = False + ParentFont = False + TabOrder = 1 + object Panel1: TPanel + Left = 1 + Top = 0 + Width = 140 + Height = 40 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #24067#21305#26816#39564 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Panel1Click + end + object Panel2: TPanel + Left = 1283 + Top = 2 + Width = 81 + Height = 36 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #36864#20986 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Panel2Click + end + object Panel3: TPanel + Left = 141 + Top = 0 + Width = 148 + Height = 40 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #25286#20998#21512#24182 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = Panel3Click + end + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Mode = cmShareDenyNone + Provider = 'SQLOLEDB.1' + Left = 504 + Top = 112 + end + object ImageList25: TImageList + Height = 24 + Width = 24 + Left = 420 + Top = 136 + Bitmap = { + 494C01011C001D00040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000C000000001002000000000000020 + 0100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000CE000094 + FF000000CE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F75A2900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000CE000094FF000000 + FF000000CE000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7C62900F7C62900F75A29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000CE000094FF000000FF000000 + CE00000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F7F7F70000000000F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7C62100F7F78C00F7C62100F7C62100F75A290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000CE000094FF000000FF000000CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F7F7F70000000000F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F700F7F7F700F7F7F700F7F7F70000000000F7C6 + 2900F7F78C00F7C62900F7C62900F7C62100F7C62900F75A2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000CE000094FF000000FF000000CE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F75A2900F75A2900F75A21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F70000000000F7F7F70000000000F7C62900F7F7 + C600F7F7C600F7F7C600F7C62900F78C2100F78C2900F78C2900F75A29000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE942900CE940000CE940000CE9400009463 + 290000000000000000000094FF000000FF000000CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7F7C600F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F75A2900F75A2100F75A2900F75A + 2100F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400FFCE2900FFCE2900FFCE2900FFCE2900CE940000CE940000CE94 + 0000CE94000094632900000000000000CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF000000FF000000FF000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400ADB5AD00FFCE2900FFCE2900FFCE2900FFCE2900FFCE2900FFCE2900CE94 + 0000CE940000CE94000094632900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFFF9400FFFF9400FFFF9400FFFF9400FFCE9400FFCE2900FFCE2900FFCE + 2900CE940000CE940000CE940000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400ADB5 + AD00FFFFCE00FFFFCE00FFFF9400FFFF9400FFFF9400FFFF9400FFCE2900FFCE + 2900FFCE2900CE940000CE940000946329000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFCE + 9400FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFF9400FFFF9400FFFF9400FFCE + 2900FFCE2900FFCE2900CE940000CE9400000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFCE + 9400FFFFFF00FFFFFF00FFFFCE00FFFFCE00FFFFCE00FFFF9400FFFF9400FFCE + 9400FFCE2900FFCE2900FFCE2900CE9400000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFCE + 9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFCE00FFFFCE00FFFFCE00FFFF + 9400FFCE9400FFCE2900FFCE2900CE9400000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F75A2900F75A2100F75A2900F75A + 2100F75A2900F7F7C600F7C62900F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F75A2900F7F7C600F7F7C600F78C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400ADB5 + AD00FFCE9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFCE00FFFFCE00FFFF + 9400FFFF9400FFCE2900FFCE2900CE9429000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F70000000000F7F7F70000000000F7C62900F7F7 + C600F7F7C600F7F7C600F7C62900F78C2100F78C2900F78C2900F75A29000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F75A2900F75A2900F75A2900F75A21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400FFCE9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFCE00FFFF + 9400FFFF9400FFCE2900FFCE2900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F700F7F7F700F7F7F700F7F7F70000000000F7C6 + 2900F7F78C00F7C62900F7C62900F7C62100F7C62900F75A2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F7F7F70000000000F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400ADB5AD00FFCE9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFCE00FFFF + CE00FFFF9400FFCE2900CE942900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7C62100F7F78C00F7C62100F7C62100F75A290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F70000000000F7F7F70000000000F7F7F7000000 + 0000F7F7F70000000000F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400ADB5AD00FFCE9400FFCE9400FFFFFF00FFFFFF00FFFFFF00FFFF + CE00FFCE9400ADB5AD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7C62900F7C62900F75A29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500F7000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400ADB5AD00FFCE9400FFCE9400FFCE9400FFCE + 9400848484008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F75A2900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000848484008484840084848400848484008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DED6D600D6CECE00D6CECE00D6CEC600D6CEC600D6CEC600D6CEC600D6CE + C600D6CEC600D6CEC600D6CEC600D6CEC600D6CEC600D6CEC600D6CECE00DED6 + D600E7E7E7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + E700A59C9400948C840094847B0094847B0094847B0094847B0094847B009484 + 7B0094847B0094847B0094847B0094847B0094847B0094847B0094847B00A59C + 9400C6BDB500E7E7E70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CEB5 + AD00FFD6BD00FFD6BD00FFD6BD00FFD6BD00FFD6BD00FFD6BD00FFD6BD00FFD6 + BD00FFD6BD00FFD6BD00E7C6AD00E7C6AD00FFD6BD00FFD6BD00FFD6BD00D694 + 8C00948C8400D6CECE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CEB5 + AD00FFE7CE00C6948C00C6948C00C6948C00C6948C00C6948C00C6948C00FFDE + BD00FFDEBD00E7C6AD00CEE7FF00948CA500E7C6AD00E7C6AD00FFDEBD00D694 + 840094847B00D6CECE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B58C8C008C5A5A008C5A + 5A008C5A5A008C5A5A008C5A5A008C5A5A008C5A5A008C5A5A008C5A5A000000 + 000000000000000000000000000000000000000000000000000000000000CEB5 + AD00FFE7CE00FFE7CE00FFDECE00FFDEC600FFDEC600FFDEC600FFDEBD00FFDE + BD00FFDEBD0084637B007B8CA5001073CE004A529C00CEB5A500E7C6AD00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B58C8C00FFFFEF00FFF7 + E700FFF7DE00F7EFDE00F7EFDE00F7EFDE00FFEFDE00F7E7D6008C5A5A000000 + 000000000000000000000000000000000000000000000000000000000000D6BD + AD00FFE7CE00FFE7CE00FFE7CE00FFE7CE00FFDEC600FFDEC600FFDEC60000DE + DE007384BD0084F7FF0063DEFF005ACEEF0039CEF700184AA500C6B5AD00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400CECECE00CECE + CE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B58C8C00FFF7E700F7E7 + CE00F7E7CE00F7DECE00F7DEC600F7DEC600F7E7CE00EFDECE008C5A5A000000 + 000000000000000000000000000000000000000000000000000000000000D6BD + AD00FFE7D600C6948C00C6948C00C6948C00C6948C00C6948C00FFDEC60000DE + DE0094D6EF006BDEFF00BDE7EF00735A5A0021B5EF0000A5E700B5CED600D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00CE31 + 0000CE310000CE310000CE310000CE310000CE310000CE310000CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B58C8C00FFF7E700FFD6 + A500FFD6A500FFD6A500FFD6A500FFD6A500FFD6A500EFDECE008C5A5A000000 + 000000000000000000000000000000000000000000000000000000000000D6BD + AD00FFE7D600FFE7D600FFE7D600FFE7CE00FFE7CE00FFE7CE00FFDEC60000DE + DE00FFDECE0052CEFF00DEF7FF0073524A0029BDF70084CED600FFDEBD00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF0094FF + FF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FFFF00CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C008C5A5A008C5A5A008C5A5A00B58C8C00FFF7EF00FFE7 + CE00FFE7C600FFDEC600FFDEC600F7DEBD00F7E7D600EFDECE009C6B63000000 + 000000000000000000000000000000000000000000000000000000000000DEC6 + B500FFEFD600FFE7D600FFE7D600FFE7D600FFE7D600FFE7CE00FFE7CE00FFE7 + CE00FFDEC600FFDEC600DEDED60052525200FFDEC600FFDEBD00FFDEBD00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF00FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFEF00FFF7E700FFF7DE00B58C8C00FFFFF700FFE7 + CE00FFE7CE00FFE7C600FFDEC600FFDEC600F7E7D600EFE7D6009C6B6B000000 + 000000000000000000000000000000000000000000000000000000000000DEC6 + B500FFEFDE00C6948C00C6948C00C6948C00C6948C00C6948C00C6948C00C694 + 8C00C6948C00FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEBD00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF0094CECE0094CECE006394940084848400FFFFFF0094FF + FF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF00CECECE00CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFF7E700F7E7CE00F7E7CE00B58C8C00FFFFF700FFD6 + A500FFD6A500FFD6A500FFD6A500FFD6A500FFD6A500F7E7DE00A57B73000000 + 000000000000000000000000000000000000000000000000000000000000DEC6 + B500FFEFDE00FFEFDE00FFEFDE00FFE7D600FFE7D600FFE7D600FFE7CE00FFE7 + CE00FFE7CE00FFE7CE00FFE7CE00FFDEC600FFDEC600FFDEC600FFDEC600D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 00000000000094CECE00CEFFFF0094CECE0094CECE0084848400FFFFFF00FF00 + 0000FF000000FF00000094FFFF00FFFFFF007373730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFF7E700FFD6A500FFD6A500B58C8C00FFFFFF00FFEF + DE00FFE7D600FFE7D600FFE7D600FFEFD600FFF7E700EFE7DE00A57B73000000 + 000000000000000000000000000000000000000000000000000000000000DEC6 + B500FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFD600FFE7D600FFE7 + D600FFE7D600FFE7CE00FFE7CE00FFE7CE00FFDECE00FFDEC600FFDEC600D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF0094CECE00CEFFFF0094CECE0084848400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0094FFFF008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007B7B7B000000FF000000FF0000000000000000000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFF7EF00FFE7CE00FFE7C600B58C8C00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00EFDEDE00D6C6C600BDADAD00B58473000000 + 000000000000000000000000000000000000000000000000000000000000E7CE + BD00FFEFE700C6948C00C6948C00C6948C00C6948C00C6948C00C6948C00C694 + 8C00C6948C00C6948C00C6948C00C6948C00C6948C00C6948C00FFDEC600D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF00CEFFFF0094CECE00CEFFFF0084848400848484008484 + 8400848484008484840084848400848484008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B7B7B000000FF0000000000000000000000000000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFF700FFE7CE00FFE7CE00B58C8C00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00B58C8C00B58C8C00B58C8C00B58C8C000000 + 000000000000000000000000000000000000000000000000000000000000E7CE + BD00FFEFE700FFEFE700FFEFE700FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEF + D600FFE7D600FFE7D600FFE7D600FFE7CE00FFE7CE00FFE7CE00FFE7CE00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF00CEFFFF00CEFFFF0094CECE00CEFFFF0094CECE0094CE + CE006394940094CECE0063949400639494006394940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFF700FFD6A500FFD6A500B58C8C00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00B58C8C00EFB56B00C68C7B00000000000000 + 000000000000000000000000000000000000000000000000000000000000EFD6 + BD00FFF7EF00C6948C00C6948C00C6948C00FFEFE700FFEFDE00FFEFDE00FFEF + DE00FFEFDE00FFE7D600FFE7D600FFE7D600FFE7D600FFE7CE00FFE7CE00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF00CEFFFF00CEFFFF00CEFFFF0094CECE00CEFFFF0094CE + CE0094CECE006394940094CECE00639494006394940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFFF00FFEFDE00FFE7D600B58C8C00B58C8C00B58C + 8C00B58C8C00B58C8C00B58C8C00B58C8C00BD84840000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFD6 + BD00FFF7EF00FFF7EF00FFF7E700FFEFE700FFEFE700FFEFE700FFEFDE00FFEF + DE00FFEFDE00FFEFDE00FFEFD600FFE7D600FFE7D600FFE7D600FFE7CE00D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006394940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFDE + DE00D6C6C600BDADAD00B5847300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFD6 + C600FFF7EF00C6948C00C6948C00C6948C00FFF7E700FFEFE700FFEFE700FFEF + DE00FFEFDE00FFEFDE00FFEFDE00FFEFD600FFE7D600FFE7D600FFE7D600D694 + 840094847B00D6CEC60000000000000000000000000000000000000000000000 + 000000000000CEFFFF000094CE0094FFFF0029CEFF0029CEFF0029CEFF0029CE + FF0029CEFF000094CE0000639400000000006394940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007B7B7B000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B58C + 8C00B58C8C00B58C8C00B58C8C00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F7DE + C600FFF7F700C6948C00C6948C00C6948C00C6948C00C6948C00FFEFE700FFEF + E700FFEFE700FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFE7D600FFE7D600D694 + 840094847B00D6CECE0000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF000094CE0094FFFF0029CEFF00006363000063 + 630029CEFF000063940000000000639494006394940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007B7B7B000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B58C + 8C00EFB56B00C68C7B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F7DE + C600FFFFF700FFF7F700FFF7F700FFF7EF00FFF7EF00FFF7EF00FFF7E700FFF7 + E700FFEFE700FFEFE700FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFD600D68C + 8400948C8400D6CECE0000000000000000000000000000000000000000000000 + 0000000000002963630029636300296363000094CE00FFFFFF0094FFFF0094FF + FF0029CEFF000000000029636300296363002963630029636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B58C8C00B58C8C00B58C8C00B58C8C00B58C8C00B58C8C00B58C + 8C00BD8484000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F7DE + C600FFFFF700C6948C00C6948C00C6948C00C6948C00C6948C00FFF7EF00FFF7 + E700FFF7E700FFEFE700FFEFE700FFEFE700F7B5B500F7ADAD00F7A5A500D694 + 8400A5948C00DED6D60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000094CE000094CE000094CE000094 + CE000094CE000063940000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFE7 + CE00FFFFFF00FFFFF700C6948C00C6948C00C6948C00FFF7F700FFF7EF00FFF7 + EF00FFF7EF00FFF7E700FFF7E700FFEFE700FFBD6300FFAD3100FFA52100B5A5 + 9C00D6D6CE00F7F7F70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFE7 + CE00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFF700FFFFF700FFF7EF00FFF7 + EF00FFF7EF00FFF7EF00FFF7E700FFF7E700FFCE8400FFB55200D69C6B00D6CE + CE00EFEFEF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFE7 + CE00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFF700FFFFF700FFF7F700FFF7 + EF00FFF7EF00FFF7EF00FFF7EF00FFF7E700FFDE9400CE9C7300AD9C9400EFEF + EF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFD6 + AD00FFDEBD00FFD6B500F7D6B500F7D6B500EFCEB500EFCEAD00EFCEAD00E7C6 + AD00E7C6AD00E7C6A500DEBDA500DEBDA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000008080800080808000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 08000808080008080800080808000000000084848400FFFFFF00848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000D6D6D600BDBDBD009C9C + 9C007B7B7B007373730073737300737373007373730073737300737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300636363004A4A4A0000000000000000000000000000000000313131004A4A + 4A00313131003939390039393900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100080808000000000084848400FFFFFF00C6C6C600C6C6 + C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C6008484 + 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000E7E7E700D6D6D600C6C6 + C600A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5 + A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A5009C9C + 9C008C8C8C006363630000000000000000000000000000000000636363005252 + 520052525200636363006B6B6B00525252000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100080808000000000084848400FFFFFF00C6C6C600C6C6 + C600FF0000000084840000FFFF00C6C6C600C6C6C600C6C6C600C6C6C6008484 + 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000EFEFEF00E7E7E700CECE + CE00BDBDBD003939390039393900393939003939390039393900393939003939 + 3900393939003939390039393900393939003939390039393900393939003939 + 39009C9C9C007373730000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003939390000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECE3100CECE31000808 + 0800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100080808000000000084848400FFFFFF00C6C6C600C6C6 + C6000000FF000084000000FF0000C6C6C600C6C6C600C6C6C600C6C6C6008484 + 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000EFEFEF00E7E7E700D6D6 + D600ADADAD00B5B5B500B5B5BD00C6C6C600CECECE00D6D6D600DEDEDE00E7E7 + E700E7E7E700F7F7F700F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF003939 + 3900A5A5A5007373730000000000000000000000000000000000000000000000 + 0000000000000000000000000000393939005252520000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100080808000000000084848400FFFFFF00C6C6C600C6C6 + C600000084000084000000840000C6C6C600C6C6C600C6C6C600C6C6C6008484 + 8400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000EFEFEF00E7E7E700D6D6 + D600A5A5A500ADADAD00B5B5B500BDBDBD00C6C6C600CECECE00D6D6DE00DEDE + DE00E7E7E700EFEFEF00F7F7F700F7F7F700FFFFFF00FFFFFF00FFFFFF003939 + 3900A5A5A5007373730000000000000000000000000000000000000000000000 + 0000000000000000000000000000525252000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100080808000000000084848400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600848484000000000000000000EFEFEF00E7E7E700D6D6 + D6009C9C9C00A5A5A500ADADAD00BDBDBD00C6C6C600C6C6C600D6D6D600DEDE + DE00DEDEDE00E7E7E700EFEFEF00F7F7F700FFFFFF00FFFFFF00FFFFFF003939 + 3900A5A5A5007373730000000000000000000000000000000000000000000000 + 00004A4A4A003939390052525200000000000000000031313100523100002121 + 2100212121001818180018181800181818001818180052310000313131000000 + 0000000000006B8CFF008CADFF000000000000000000CECE3100CECE31000808 + 0800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000008484840084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 84008484840084848400848484000000000000000000EFEFEF00E7E7E7003939 + 39008C8C8C00949494009C9C9C00ADADAD00B5B5B500BDBDBD00CECECE00CECE + CE00D6D6D600DEDEDE00E7E7E700E7E7E700F7F7F700F7F7F700FFFFFF003939 + 3900A5A5A5007373730000000000000000000000000000000000000000000000 + 0000313131005252520000000000000000000000000031313100313131002121 + 2100212121002121210021212100212121002121210052310000313131000000 + 520000005200007BBD006B8CFF000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00E7E7E7003939 + 3900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003939 + 3900A5A5A5007373730000000000000000000000000000000000000000003939 + 3900000000000000000000000000000000000000000031313100313131005252 + 5200636363006B6B6B006B6B6B0063636300525200003131310039393900B5B5 + B500B5B5B5000094DE006B8CFF000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00E7E7E700D6D6 + D600C6C6C600BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00B5B5 + B500A5A5A5007373730000000000000000000000000000000000525252003131 + 3100000000000000000000000000000000000000000000000000000000005252 + 5200313131003131310031313100393939002121210031313100525200004A4A + 4A00003152000000520021ADFF000000000000000000CECE3100CECE31000808 + 0800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECE3100CECE3100080808000808 + 080008080800CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C600FF000000C6C6C600C6C6C60084848400848484008484 + 8400848484008484840084848400C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000052525200525252004A4A + 4A00393939003939390039393900393939003939390039393900393939003939 + 3900393939003939390039393900393939003939390039393900393939003131 + 3100292929001010100000000000000000000000000000000000525252003939 + 3900000000000000000000000000000000000000000000000000000000005252 + 52003939390039393900313131006B6B6B005252520052310000525252008CFF + 6B008CFF6B00003152004ABDFF000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000003939 + 3900000000000000000000000000525252005252520052525200525252005252 + 5200393939006B6B6B0039393900949494006363630052310000525252007BBD + 000039393900000052004ABDFF000000000000000000CECE3100CECE31000808 + 0800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C6000000FF0000008400C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000052525200525252004A4A + 4A00393939003939390039393900393939003939390039393900393939003939 + 3900393939003939390039393900393939003939390039393900393939003131 + 3100292929001010100000000000000000000000000000000000000000000000 + 0000313131003939390031313100313131002121210052520000525252006363 + 63004A4A4A009494940052520000848484006B6B6B005231000052525200BDFF + 4A006B6B6B00000052004ABDFF000000000000000000CECE3100CECE31000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 080008080800080808000808080008080800CECE3100CECE3100080808000808 + 080008080800CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000052525200525252004A4A + 4A00393939003939390039393900393939003939390039393900393939003939 + 3900393939003939390039393900393939003939390039393900393939003131 + 3100292929001010100000000000000000000000000000000000000000000000 + 00000000000052525200636363004A4A4A002121210052525200525252006363 + 6300636363009C9C9C00525200006B6B6B006B6B6B005231000052525200ADFF + 8C008CFF6B00003152004ABDFF000000000000000000CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C6008484000084000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 00000000000000000000000000000000000000000000BDBDBD00FFFFFF00FFFF + FF00F7F7F700F7F7F700DEE7DE00C6BDC600BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00B5B5 + B500A5A5A5007373730000000000000000000000000000000000000000000000 + 00000000000000000000000000005252520021212100C6C6C600C6C6C6006B6B + 6B0063636300A5A5A5004A4A4A006B6B6B00636363005231000052525200B5B5 + B5007B7B7B000000520021ADFF000000000000000000CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE3100CECE + 3100CECE3100CECE310008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C60084840000C6C6C600C6C6C60084848400848484008484 + 8400848484008484840084848400C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5B5B500E7E7 + E700E7E7E700EFEFEF00DEE7DE00C6C6CE00C6C6C600BDBDC600BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00D6D6D60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006B6B + 6B00525252005252520052520000636363006B6B6B005231000052525200ADFF + 8C006B6B6B000000520021ADFF00000000000000000008080800080808000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 0800080808000808080008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C6000084840000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000094949400DEE7E700DEDEDE00D6D6DE00D6D6D600C6CEC600C6C6 + C600BDC6BD009C735A007B421800FF420000FF420000FF420000FF420000FF31 + 0000FF100000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8400636363005252520052525200525200003131310052310000525252008CFF + 6B008CFF6B000031520021ADFF00000000000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0008080800000000000000000084848400FFFFFF008400 + 000084000000C6C6C60000848400C6C6C600C6C6C60084848400848484008484 + 8400848484008484840084848400C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009C9C9400EFEFEF00EFE7EF00EFEFF700DEDEDE00CECE + CE00C6C6C6005A423100FF4A0000FF4A0000FF4A0000FF4A0000FF4A0000FF42 + 0000FF210000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 94006B6B6B0052525200525252004A4A4A0031520000523100004A4A4A002121 + 210000315200000052002152FF00000000000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0031310000000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F7EFEF00F7F7F700FFFFFF00EFEFEF00DEDE + DE00D6D6D600D65A0000FF630000FF630000FF630000FF630000FF630000FF5A + 0000FF420000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000031313100393939003939 + 3900313131003131310031313100313131003131310021212100313131000000 + 5200000052000094DE006B8CFF0000000000000000009C3100009C3100009C31 + 00009C3100009C3100009C3100009C3100009C3100009C3100009C3100009C31 + 00009C3100009C3100009C3100009C3100009C3100009C3100009C3100009C31 + 00009C3100009C31000031310000000000000000000084848400FFFFFF008400 + 000084000000C6C6C600FF000000C6C6C600C6C6C60084848400848484008484 + 8400848484008484840084848400C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B5B5B500F7F7F700F7F7F700C6C6 + C6005A523100FF840000FF840000FF840000FF840000FF840000FF840000FF84 + 0000FF730000FF5A000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000525200004A4A4A004A4A + 4A00393939003131310031313100313131003131310031313100212121000000 + 0000000000006B8CFF006B8CFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000212121000000 + 0000000000000000000000000000000000004242420031313100313131003131 + 3100313131003131310031313100313131003131310031313100313131003131 + 3100313131003131310031313100313131003131310031313100313131003131 + 3100313131003131310031313100424242000000000084848400FFFFFF008400 + 000084000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C6008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400848484008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484008484840084848400848484008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7E7E7008C94 + A5008C9CAD008C9CAD00B5B5BD00D6DEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000636B7B001031 + 5A0021426B00294A6B00636B7B00BDC6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D6DED600948C8400B5B5AD00E7E7E700000000000000 + 000000000000000000000000000000000000DEE7E700737B8400082142006B9C + C6008CB5DE0084B5CE00CED6E700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009C9C9400AD948400A58C73009C847B00E7DED6000000 + 0000000000000000000000000000000000008C949400737B7B0063738400ADCE + E700C6E7F700B5D6E700D6DEE700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B5B5B5009C8C8C00B58C6B00CEA58400C69C840094847B00B5AD + A500DEDEDE000000000000000000E7E7E7006B6B6B009C9C9C00B5B5B500ADBD + C600ADBDC600ADBDC600EFEFF700000000000000000000000000000000000000 + 0000000000000000000000000000F75A29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A5A5009C9C9C00947B6300BD7B5200BD7B4A00B5734A00CE8C6B00D6A5 + 7B00C69C840073635A006B63630063636300BDBDBD00DED6D60084847B00CEC6 + CE00D6CECE000000000000000000000000000000000000000000000000000000 + 00000000000000000000F75A2900F78C29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A59C009C8C7B00A57B5200B57B5200B57B5200BD734A00B57B4A00AD73 + 4A00AD734A0073634A005A524A008C848400E7E7E700949494006B6B6B00D6CE + D600E7E7E7000000000000000000000000000000000000000000000000000000 + 000000000000F75A2900F7C62900F78C29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF632900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF942900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D6D6 + D600ADA59C0094736300B5735200B57B5200BD7B4A00BD7B4A00A56B4200945A + 3100845229005A39180084736300CEC6C600A5AD9C004A5A4A009CA59C00DED6 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000F75A2900F7C62100F7C62100F78C2100F78C2100F78C2100F78C2100F78C + 2100F78C2100F78C2100F78C2100F78C2100F75A210000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF942900FF6329000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FF942900FF942900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADB5B500ADAD + AD0094735A00B57B5200BD7B4A00B5734A00A56339008C5231007B5231006B42 + 10006B420000CEAD8400FFEFD600BDAD9400187321007BCE8C00BDDEBD009C94 + 8400A59C9400CECECE000000000000000000000000000000000000000000F75A + 2900F7C62900F7C62100F7C62900F7C62900F7C62900F7C62900F7C62900F7C6 + 2900F7C62900F7C62900F7C62900F7F7C600F75A2900F7F7F700F7F7F700F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF942900FFCE2900FF63290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FF942900FFCE2900FF942900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D6D6D600A5A59C00C6BD + B500AD735200BD7B4A00BD7B4A00945A31008C522900845231006B4218007B42 + 0000945A1000F7EFCE00F7EFD6006B7B420039AD5200BDF7C600C6DEAD00DEBD + 9C00CEAD9C009C8C8400CED6CE00000000000000000000000000000000000000 + 0000F7C62900F7F78C00F7C62900F7F7C600F7F7C600F7F7C600F7F7C600F7F7 + C600F7F7C600F7F7C600F7F7C600F7F7C600F75A29000000000000000000F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FF942900FF942900FF942900FF942900FF942900FF94 + 2900FF942900FF942900FF942900FFCE2900FFCE2900FF632900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF942900FFCE2900FFCE2900FF942900FF942900FF94 + 2900FF942900FF942900FF942900FF942900FF942900FF942900000000000000 + 00000000000000000000000000000000000000000000A59C9C00C6BDBD00ADA5 + 9400BD735200AD734A009C634200844A310084523100845231007B420000945A + 1000BD8C5200FFFFEF009C946B00216310007BD69400E7FFE700A5A56B00BD7B + 4A00D69C7300E7B59C00A59C8C00CECECE000000000000000000000000000000 + 000000000000F7C62100F7F78C00F7F7C600F75A2900F75A2900F75A2900F75A + 2900F75A2900F75A2900F75A2900F75A2900F75A2900F7F7F700F7F7F700F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FFFFCE00FFCE2900FFCE2900FFCE2900FFCE2900FFCE + 2900FFCE2900FFCE2900FFCE2900FFCE2900FFCE2900FFCE2900FF6329000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF632900FFFFCE00FFFF9400FFCE2900FFCE2900FFCE2900FFCE2900FFCE + 2900FFCE2900FFCE2900FFCE2900FFCE2900FFCE2900FF942900000000000000 + 000000000000000000000000000000000000D6D6D600D6CEC600AD948C00A573 + 5A00945A3100844A310084523100A56B4200845221007B420800A5733100E7CE + A500FFFFEF007B6B29002173100018943100E7F7DE0094945A00A56B3100C66B + 3100C66B3900BD6B3100A5734A00E7D6CE000000000000000000000000000000 + 00000000000000000000F7C62900F7F7C600F75A210000000000F7F7F7000000 + 000000000000F7F7F7000000000000000000F7F7F7000000000000000000F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFF + CE00FFFFCE00FFFFCE00FFFFCE00FFCE2900FFFF9400FFCE2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FFFFCE00FFFF9400FFCE2900FFFF9400FFFF9400FFFF + 9400FFFF9400FFFF9400FFFF9400FFFF9400FFFF9400FF942900000000000000 + 000000000000000000000000000000000000CEC6CE00C6BDB5009C7B6B00A57B + 5A00946339009C634200AD734A008C5A31007342080094520800CEB58C00FFFF + E700DEC6AD0052732100108C18004AAD5A00B5C6A500947B4200B56B3900BD6B + 3100BD6B3100BD6B2900C69C8400FFF7F7000000000000000000000000000000 + 0000000000000000000000000000F7C62900F75A2900F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FF632900FF632900FF632900FF632900FF632900FF63 + 2900FF632900FF632900FFFFCE00FFFF9400FFCE290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF632900FFFFCE00FFFF9400FFFF940000000000FF63 + 2900FF632900FF632900FF632900FF632900FF632900FF632900000000000000 + 000000000000000000000000000000000000E7E7E700A594840094735A009C73 + 5200BD846300CE9C7B00C69C73007B4A100084520000945A1800FFF7DE00D6C6 + AD00BD9C730029842100219C310094DEA500ADAD8400DEB58C00E7AD8400C68C + 6300BD7B4A00AD6B3900F7EFE700000000000000000000000000000000000000 + 00000000000000000000F7F7F70000000000F75A210000000000F7F7F7000000 + 000000000000F7F7F7000000000000000000F7F7F7000000000000000000F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FFFFCE00FFCE29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FF632900FFFFCE00FFFF9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B58C7300CE947300DEA5 + 8400CEAD8C00C6A584009C734A00945A1000B58C5200F7E7BD00C69C7B00DEBD + 9C00ADB58400189C39009CE7AD00ADCEA500E7CEB500E7CEB500E7CEBD00F7D6 + C600EFCEBD00D6BDB50000000000000000000000000000000000000000000000 + 00000000000000000000F7F7F700F7F7F700F75A2900F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF632900FFCE2900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FF632900FFFFCE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5736300CE9C8400DEAD + 9400DEB59400C69C73008C521800AD7B4200EFD6B500D6C6A500E7C69C00DEC6 + AD00639C5A005AC66B00ADDEB500B5C69C00EFCEC600EFD6BD00EFD6C600F7DE + C600D6BDAD00EFE7E70000000000000000000000000000000000000000000000 + 00000000000000000000F7F7F700000000000000000000000000F7F7F7000000 + 000000000000F7F7F7000000000000000000F7F7F7000000000000000000F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF63290000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF632900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DECEC600C6AD9C00BD9C + 8400D6AD8C009C6B310084520800E7C69C00D6BD9C00C6A58400EFCEB500BDBD + 9C00298C310094DE9C00ADC69C00DEDEBD00F7DECE00EFDECE00F7DECE00DECE + BD00DECECE000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF63290000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084521800A5631800D6A57300BD947300E7CEA500F7D6BD00D6DEBD00398C + 420031AD4A00C6D6BD00F7EFDE00F7E7DE00FFEFE700F7EFE700FFF7E700EFE7 + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7000000F7000000F7000000F7000000F7000000F700 + 0000F7000000F7000000F7000000F7000000F7000000F7000000F7000000F700 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000945A1000CE945A00C6A58400DECEC600CEB59C00CEAD9C00A5BD9400218C + 31005ABD6B00F7EFE700FFEFEF00FFEFEF00FFF7EF00FFFFEF00E7D6D6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B5B5B500B5B5B500F7000000F7000000F7000000F700 + 0000F7000000F7000000F7000000F7000000F7000000F7000000B5B5B500B5B5 + B500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B5A5 + 8400BD844200BD9C7300DED6C6000000000000000000D6BDAD005AA5630031A5 + 42008CCE8C00FFF7F700FFF7F700FFF7F700FFFFFF00F7EFEF00D6C6C6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7EF009C7B52008C63 + 2100EFE7DE0000000000000000000000000000000000EFE7E70042944200B5CE + A500FFFFEF00EFE7DE00BDAD9C00C6B59C00CEBDB500DECECE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDAD8C0084522100BD9C + 73000000000000000000000000000000000000000000EFF7EF0084B58C00C6BD + AD00CEBDB500CEC6BD00F7EFE700EFE7DE00DECECE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084633900AD9C7300FFF7 + EF000000000000000000000000000000000000000000BDCEBD00EFFFF7000000 + 0000EFE7E7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFF700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BDBDBD00E7E7E700E7E7E7007B7B7B004A4A + 4A004242420039393900CECECE00CECECE00C6C6C60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D6D6D600949494005A5A5A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E700949494005A5A5A005A5A5A00A5A5 + A500EFEFEF008C8C8C004A4A4A00CECECE00CECECE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6C6 + C600DEDEDE008484840031313100737373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600D6D6D600CECECE00B5B5B5004A4A4A00636363008C8C8C00EFEFEF00DEDE + DE00D6D6D600DEDEDE007B7B7B004A4A4A00D6D6D60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600E7E7 + E7006B6B6B008C8C8C0094949400ADADAD00000000000000000000000000B5C6 + DE007384BD007384BD007384BD007B84C6007B84C6007B84BD007B84C6007B84 + C6007384C6007384C6007384C6007384C6007384C6007384C6007384C600737B + BD00A5B5D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00C6C6C600D6D6D600D6D6 + D600ADADAD005252520039393900B5B5B500D6D6D600EFEFEF00D6D6D600D6D6 + D600DEDEDE00D6D6D600CECECE00848484004A4A4A00CECECE00CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C60000000000000000000000000000000000C6C6C600E7E7E7006B6B + 6B005A5A5A00BDBDBD0052525200DEDEDE000000000000000000BDB5E7003121 + BD001808B5002110B5002110B5002110B5002110B5002110B5002110B5002110 + BD002110B5002108BD002108BD002108BD002108BD002108BD001800BD001800 + B5002110AD00A59CD60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BDBDBD00D6D6D600949494005A5A + 5A004A4A4A00A5A5A500E7E7E700E7E7E700DEDEDE00D6D6D600DEDEDE00DEDE + DE00D6D6D600DEDEDE000000000000000000848484005A5A5A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6C6C600D6D6D600DEDEDE00DEDEDE00DEDE + DE00DEDEDE00000000000000000000000000C6C6C600E7E7E7006B6B6B005A5A + 5A00BDBDBD0052525200CECECE00C6C6C60000000000000000007B84DE001818 + C6003142D6003142D600394AD600394AD600394AD600394AD600394AD600314A + D6003142D6002942D6002942DE002142DE002139DE001839DE001831D6001831 + CE001810B5005A5AB50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7E7E70094949400525252008C8C + 8C00F7F7F700DEDEDE00D6D6D600D6D6D600D6D6D600DEDEDE00DEDEDE00DEDE + DE00DEDEDE00D6D6D600DEDEDE00B5B5B500D6D6D600313131009C9C9C00CECE + CE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6CE00DEDEDE007B7B73004A4A42004A4A42004242 + 42005A5A5200D6D6CE00D6D6D600CECED600DEDEDE006B6B6B005A5A5A00BDBD + BD0052525200D6D6D600CECECE000000000000000000000000007B8CE7001018 + CE002939D6002942D6003942D600394AD6003142D6003142D600394AD600394A + D600314AD6002942D6002139D6001831D6001839DE001031DE000829D6001029 + D6001008BD00526BBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F75A290000000000000000000000 + 000000000000000000000000000000000000848484004A4A4A00E7E7E700EFEF + EF00D6D6D600D6D6D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00D6D6D600B5B5B500A5A5A50031313100D6D6 + D600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CECED6007B7B7B0000005A000000B5000000BD002121 + CE001818BD00181839007B7B7300CECEBD006B6B73005A5A5A00BDBDBD005252 + 5200D6D6D600CECECE0000000000000000000000000000000000738CDE001021 + D600314ADE00394AD600424ADE004252DE005263DE008C8CE700C6BDEF00E7DE + EF00E7DEEF00CEBDEF00848CE7003952E7001839E7001039E7001031DE000831 + DE000810BD005263BD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F78C2900F75A2900000000000000 + 0000000000000000000000000000000000006B6B6B0052525200EFEFEF00CECE + CE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00D6D6D600BDBDBD00BDBDBD004A4A4A009494 + 9400CECECE000000000000000000000000000000000000000000000000000000 + 000000000000D6D6D600BDBDAD00000029000000E7001010F7003131FF003131 + FF002929FF000000EF00000084000000290039393900BDBDBD0052525200CECE + CE00CECECE000000000000000000000000000000000000000000738CE7001821 + D600394ADE004252DE004A52DE006B73DE00CEBDEF00EFDEF700BDBDEF00A5A5 + EF00A5A5E700BDB5EF00E7D6EF00C6C6EF004263E7001039E7001031E7001031 + DE000810BD00526BBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F78C2900F7C62900F75A29000000 + 0000000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00D6D6D600DEDEDE00CECECE00BDBDBD00949494003131 + 3100DEDEDE00C6C6C60000000000000000000000000000000000000000000000 + 000000000000D6D6CE004A4A520008089C002121FF003131FF005252FF005252 + FF004A4AFF002929FF001010FF004A4AEF006B6B840063636300CECECE00CECE + CE000000000000000000000000000000000000000000000000007B94DE002129 + D6004252DE004A52DE006363DE00CEC6EF00DECEEF009494E700636BE700314A + DE00314ADE005263E7007B84E700D6CEF700C6C6EF003952E7001031DE001839 + DE000810BD00526BBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000F75A2100F78C2100F78C2100F78C2100F78C + 2100F78C2100F78C2100F78C2100F78C2100F78C2100F7C62100F7C62100F75A + 2900000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00D6D6D600D6D6D600E7E7E700BDBDBD00BDBDBD005A5A + 5A007B7B7B00DEDEDE00C6C6C600000000000000000000000000000000000000 + 000000000000D6D6CE00080818000000CE005A5AFF005252F7006B6BF7009494 + FF009494FF004A4AFF006363FF009494FF004242F70010104A00C6C6B500CECE + D6000000000000000000000000000000000000000000000000007B94E7002931 + DE004A52DE004A5ADE009C94E700EFDEF7009494E7005263DE004A5ADE009C9C + E700A5A5E700425AE7003152E7007384EF00E7D6F7008C94EF002139DE001839 + DE000818BD00526BBD0000000000000000000000000000000000000000000000 + 0000F7F7F700F7F7F700F7F7F700F75A2900F7F7C600F7C62900F7C62900F7C6 + 2900F7C62900F7C62900F7C62900F7C62900F7C62900F7C62900F7C62100F7C6 + 2900F75A29000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00D6D6D600E7E7E700EFEFEF00EFEFEF00E7E7E700BDBDBD008484 + 8400525252000000000000000000000000000000000000000000000000000000 + 000000000000D6D6CE00101021000808D6004242DE0008086B0000007B002121 + CE004A4AEF00B5B5FF00D6D6FF008484FF002121FF0000006B007B7B7300D6D6 + D6000000000000000000000000000000000000000000000000008494E7002931 + DE00525ADE005263DE00D6C6EF00CEBDEF00636BE7005A63DE004252DE00D6C6 + EF00E7DEEF00314ADE003152DE003952E700B5B5EF00D6C6F700314ADE001839 + DE001018BD005273BD0000000000000000000000000000000000000000000000 + 0000F7F7F7000000000000000000F75A2900F7F7C600F7F7C600F7F7C600F7F7 + C600F7F7C600F7F7C600F7F7C600F7F7C600F7F7C600F7C62900F7F78C00F7C6 + 2900000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600D6D6 + D600DEDEDE00EFEFEF00E7E7E700E7E7E700E7E7E700ADADAD00CECECE00CECE + CE00313131009C9C9C00D6D6D60000000000000000000000000000000000C6C6 + C600C6C6C600CECEC600101029000000A5000000520000004200000084000000 + BD000000E7006363EF00DEDEFF008C8CFF004242F7000000C60008081800D6D6 + CE00000000000000000000000000000000000000000000000000849CE7003139 + DE005263DE005A6BDE00EFDEF700B5A5EF004A5ADE005263DE00394ADE00CEC6 + EF00E7D6EF00314ADE00314ADE002139DE008C94EF00EFDEF7003952DE002139 + D6001021BD005A73BD0000000000000000000000000000000000000000000000 + 0000F7F7F700F7F7F700F7F7F700F75A2900F75A2900F75A2900F75A2900F75A + 2900F75A2900F75A2900F75A2900F75A2900F7F7C600F7F78C00F7C621000000 + 0000000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600D6D6D600E7E7E700FFFF + FF00FFFFFF00EFEFEF00FFFFFF00FFFFFF00FFFFFF0073737300BDBDBD00EFEF + EF009C9C9C0039393900CECECE00000000000000000000000000C6C6C600D6D6 + DE00DEDEDE00E7E7E7008C8C8C000000210000005200000084000000BD001818 + F7007373FF004A4AEF005252F7009494FF001818F7000000BD0000007B005A5A + 5200DEDEDE00C6C6C60000000000000000000000000000000000849CE7003939 + DE005A63DE00636BE700F7E7F700ADA5EF004A52DE00525ADE00394ADE00D6CE + EF00EFDEF7003142DE00314ADE001831DE008C8CE700F7E7F7004252DE002139 + D6001821BD005A73BD0000000000000000000000000000000000000000000000 + 0000F7F7F7000000000000000000F7F7F7000000000000000000F7F7F7000000 + 000000000000F7F7F70000000000F75A2100F7F7C600F7C62900000000000000 + 0000000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600DEDEDE00DEDEDE00DEDEDE00D6D6D600E7E7E700EFEFEF00DEDEDE00ADAD + AD009C9C9C00C6C6C600C6C6CE00BDC6CE00BDBDBD008C8C8400B5B5B500CECE + CE00EFEFEF0021212100000000000000000000000000C6C6C600DEDEDE008C8C + 840084847300848473001010290000005A00000084000000BD001818F7006B6B + FF009C9CFF008484FF002121FF005A5AFF002121F7000000EF0000008C004242 + 3900DEDEDE00C6C6C600000000000000000000000000000000008C9CE700424A + DE00636BE700636BE700E7D6F700C6B5EF005263DE00525ADE00394ADE00DED6 + EF00F7E7F7003142DE002942DE002942DE00ADA5EF00E7DEF700424ADE002939 + D6001821BD005A73BD0000000000000000000000000000000000000000000000 + 0000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F75A2900F7C6290000000000000000000000 + 0000000000000000000000000000000000007373730052525200EFEFEF00D6D6 + D600D6D6D600DEDEDE00DEDEDE00EFEFEF00DEDEDE00DEDEDE008C8C8C008C8C + 8C00BDBDBD00636B6B006B522900B57B310029293900CECECE00CECECE00E7E7 + E700848484007B7B7B00CECECE0000000000C6C6C600DEDEDE007B7B73000000 + 3100000042000000390000006B00000052000000AD001818FF006B6BFF009C9C + FF007B7BFF002929FF000000B5003939EF005252FF001010F70000008C004242 + 3900DEDEDE00C6C6C60000000000000000000000000000000000849CE7004A4A + DE006B6BE700636BE700BDADE700EFDEF7007B84E7004A52DE00424ADE00B5AD + EF00C6B5EF003142DE002139DE005A63E700E7D6F700ADADEF003142DE003142 + D6001821BD006373BD0000000000000000000000000000000000000000000000 + 0000F7F7F7000000000000000000F7F7F7000000000000000000F7F7F7000000 + 000000000000F7F7F70000000000F75A210000000000F7F7F700000000000000 + 0000000000000000000000000000000000007373730052525200EFEFEF00CECE + CE00E7E7E700EFEFEF00E7E7E700ADADAD00D6D6D600F7F7F700FFFFFF008C8C + 8C00EFEFEF00F7FFFF00736B6300CE942900A5731800848C9400D6D6D6003939 + 390073737300D6D6D6000000000000000000EFEFF7008C8C7B00000042003939 + F7004242FF002929D600080894000000840000006B005252DE009C9CFF007B7B + FF002929FF000000CE0000005A006363DE006363FF001010E70000006B005A5A + 5200DEDEDE00C6C6C600000000000000000000000000000000008CA5E7004A4A + DE007373E7006B73E7008484E700E7D6F700D6C6EF007B7BE7004A52DE003942 + DE003142DE00394ADE005A6BE700C6BDEF00E7D6F7006373DE002942DE00314A + D6002121BD006373BD0000000000000000000000000000000000000000000000 + 0000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F75A2900F7F7F700F7F7F700000000000000 + 000000000000000000000000000000000000737373004A4A4A00F7F7F700EFEF + EF00CECECE00BDBDBD00BDBDBD00FFFFFF00FFFFFF00FFFFFF00ADADAD008C8C + 8C00EFEFEF00FFFFFF00CED6D600636B6B00C69C3900946B100000000800D6D6 + D600CECECE00000000000000000000000000CECEC60052525A003939BD005A5A + FF005A5AFF008484FF00A5A5FF005252E70000008400000063005A5ADE003939 + FF000000C60000005A005A5AE7007373FF002121D60000005A0052525A00D6D6 + D6000000000000000000000000000000000000000000000000008CA5E700525A + DE007B7BE7007373E7007373E7008C8CE700E7D6F700E7D6F700ADA5E7009494 + E700948CE700A59CEF00DED6F700E7D6F7007B7BE700394ADE003142DE00394A + D6002129BD006373BD0000000000000000000000000000000000000000000000 + 0000F7F7F7000000000000000000F7F7F7000000000000000000F7F7F7000000 + 000000000000F7F7F700000000000000000000000000F7F7F700000000000000 + 0000000000000000000000000000000000006B6B6B005A5A5A00EFEFEF000000 + 000063636300C6C6C600FFFFFF00FFFFFF00BDBDBD0094949400ADADAD00EFEF + EF00FFFFFF00FFFFFF00525252005A5A5A0052525A00CE9C3900B57B21006363 + 7300DEDEDE00C6C6C600000000000000000073735A0021215A005252FF002121 + F7002929FF003131FF007B7BFF00DEDEFF005252EF0000007300080884000808 + DE001010420063636B0021215A0010105200212152008C8C7B00CECECE000000 + 000000000000000000000000000000000000000000000000000094A5E7005A5A + DE008484E7007B84E7007373E7007373E700848CE700B5ADEF00DED6F700EFDE + F700EFDEF700DED6F700ADA5EF00737BE7004A52DE00424ADE003942DE003942 + D6001821BD005A73B50000000000000000000000000000000000000000000000 + 0000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700000000000000 + 000000000000000000000000000000000000DEDEDE007373730084848400BDBD + BD009C9C9C00BDBDBD00D6D6D6005A5A5A00BDBDBD00E7E7E700FFFFFF00FFFF + FF00FFFFFF00BDBDBD00212121008C8C8400D6D6DE004A4A4A00D6AD63009C6B + 180063637300DEDEDE00C6C6C6000000000094948400313163004A4AEF003131 + F7003131FF003131FF003131FF007B7BFF00A5A5FF001010A500000073000808 + 3100ADAD9C00CECECE00A5A59C00ADAD9C00C6C6B500DEDEE700CECEC6000000 + 000000000000000000000000000000000000000000000000000094ADE7006B6B + DE009494E700848CE7007B7BE700737BE700737BE7007373E7007B7BE7007B7B + E7007B7BE7007373E700636BDE005A63DE00525ADE004A52DE00394ADE003942 + D6001821B5005A73B50000000000000000000000000000000000000000000000 + 0000F7000000F7000000F7000000F7000000F7000000F7000000F7000000F700 + 0000F7000000F7000000F7000000F7000000F7000000F7000000000000000000 + 000000000000000000000000000000000000C6C6C600D6D6D6006B6B6B004242 + 420094949400A5A5A500B5B5B500636363006B6B6B00FFFFFF00F7F7F700FFFF + FF00FFFFFF006B6B6B0063636300E7E7E700C6C6C600CECECE00424A5200CEAD + 6B00946B180063636B00DEDEDE00C6C6C600F7F7FF006B6B5A00292994004242 + FF002929F7003131FF002929FF003939FF009494FF004242FF00000039008484 + 7300DEDEE700C6C6C600D6D6D600D6D6D600CECECE00C6C6C600000000000000 + 000000000000000000000000000000000000000000000000000094A5E700736B + E700A59CEF009494E7008484E7007B7BE700737BE700737BE700737BE7006B73 + E7006B6BE7006B73E700636BE700636BDE00525ADE004A52DE00424ADE00394A + D6001818B5005A6BB50000000000000000000000000000000000000000000000 + 0000B5B5B500B5B5B500F7000000F7000000F7000000F7000000F7000000F700 + 0000F7000000F7000000F7000000F7000000B5B5B500B5B5B500000000000000 + 00000000000000000000000000000000000000000000C6C6C600D6D6D600CECE + CE0073737300636363006B6B6B00EFEFEF003939390042424200FFFFFF00FFFF + FF00CECECE004A4A4A00B5B5B500CECECE0000000000CEC6C600CECECE004A4A + 5200CEB56B00A56B180063636B00D6D6DE00D6D6D600B5B5B50039395A003939 + E7003939FF003131FF002929FF003131F7006B6BFF004242FF0000004A007B7B + 6B00DEDEDE00C6C6C60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5C6EF006B6B + E7007B7BDE007373DE006363DE005A63DE005A5ADE005252DE005252DE005252 + DE005252DE004A52DE00424ADE00424ADE003942DE003139DE002931D6002129 + CE002121BD00949CCE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600C6C6 + C600DEDEDE00B5B5B5008C8C8C00393939008C8C8C008C8C8C005A5A5A00FFFF + FF009C9C9C004A4A4A00E7E7E700C6C6C6000000000000000000CECECE00CECE + CE004A4A5200D6AD6B00A573210073737300C6C6C600D6D6D600BDBDB5003939 + 52003131CE003131FF004242FF003939FF005A5AFF0000008C004A4A5200D6D6 + CE00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B5BD + EF007B94E7008494E7007B94E700738CE700738CE7007384E7007384E7007384 + E7007384E7006B7BE7006B84E7006384E7006B84E700637BE7005A7BDE005A6B + D6008C9CDE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C600CECECE00D6D6D600C6C6C60000000000DEDEDE008C8C8C006363 + 630021212100CECECE00C6C6C60000000000000000000000000000000000CECE + CE00CECECE00525A6300948442005A42210000000000C6C6C600D6D6D600BDBD + BD0052524A003939730029298C0018188C0018188C004A4A5A00D6D6CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600D6D6D6009494 + 940084848400CECECE0000000000000000000000000000000000000000000000 + 0000CECECE00CECECE0073737B00B5BDBD000000000000000000000000000000 + 0000E7E7E7009C9C9C007B7B73008484730084847300CECECE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5B5B500B5B5 + B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5 + B500B5B5B500B5B5B500B5B5B500B5B5B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CECECE00D6D6D600849494004A42420039393900393939003931 + 310042292900422121005A5A5A00949C9C00BDBDBD009CA5A500181010003129 + 2900CED6D600CECECE00C6C6C60000000000000000000000000000000000D6D6 + D600CECECE00CECECE00C6C6C600C6C6C600BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00C6C6C600C6C6C600C6C6C600CECECE00D6D6 + D600DEDEDE0000000000000000000000000000000000B57B4A009C6331009C63 + 31009C6331009C633100945A2900945A2900945A2900945A2900945A2100945A + 2100945A2100945A2100945A2900B5B5B5000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5ADB500638C94008494 + 9400A5ADAD00BDBDBD00C6C6C600BDBDBD00BDBDBD00BDBDBD00B5B5B500B5B5 + B500B5B5B500B5B5B500BDBDBD00BDBDBD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CECECE00847B7B0052292900C6737300FFD6D600FFEFEF00FFC6 + C600FFA5A500F78C8C0073393900211010003939390029181800633131004A18 + 1800524A4A00CECECE0000000000000000000000000000000000CECECE00BDBD + BD00B5B5B500B5B5B500B5B5B500ADADAD00ADADAD00ADADAD00ADADAD00A59C + 9C00A5633100CE6B1800BD5A1000A55A29009C6B4A009C7B6B00A59C9400B5B5 + B500C6C6C600D6D6D600000000000000000000000000D69C5200F7C69400E7B5 + 8400E7AD7B00E7AD7B00E7AD7B00B5845200B5845200B5845200B5845200B584 + 5200B5845200B57B4A007B4A2100948C8C00948C8C00A5A5A500A5A5A500A5A5 + A500A5A5A500000000000000000000000000C6D6DE00109CCE0000A5D600009C + D600088CBD00217394004A6B7B006B7B84008C8C8C00A5A5A500ADADAD00ADAD + AD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00B5B5B500B5B5 + B500BDBDBD00C6C6C60000000000000000000000000000000000000000000000 + 000000000000CECECE0018101000F77B7B00FF9C9C00FFCECE00FFEFEF00FFC6 + C600FFA5A500E7848400D66B6B007B42420018000000391818006B3131007339 + 3900080000006B737300D6D6D6000000000000000000D6D6D600BDBDBD00ADAD + AD00A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500ADA5A5009C948C00A56B + 3100FFCE6B00FFEFC600FFDE9400FFBD6300F7943100E77B1800C65A0800A552 + 10009C5A3100A5735A00BD9C8C000000000000000000E7AD7B00FFD6AD00FFCE + 9C00FFCE9400FFCE940018291000101018000808000008080000080800000808 + 0000080800000808000008080000080800000808000008080000080800000808 + 0000A5A5A500000000000000000000000000B5CED6000894CE0000A5D60000CE + FF0000C6F70000BDEF0000ADE700009CD600088CBD00217B9C00426B7B006373 + 7B00848C8C009C9C9C00A5A5A500ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD00BDBDBD00CECECE00000000000000000000000000000000000000 + 0000CECECE00B5BDBD0039292900DE6B6B00FFB5B500FFD6D600FFFFFF00FFDE + DE00FFA5A500EF848400CE63630063313100211010006B313100B55A5A00BD63 + 6300C6636300181010007B848400CECECE0000000000D6D6CE00BDB5B5009C8C + 84008C6B5200846B5A008C736B008C847B00948C8C008C847B009C6B3900FFE7 + BD00FFFFFF00FFFFFF00FFFFEF00FFFFDE00FFF7CE00FFE7AD00FFD68400FFAD + 4A00FF941800C65A00009C420800D6C6BD0000000000E7AD7B00FFD6AD00FFCE + 9C00FFCE9C00FFCE94004A4242005A5A5A003939390084840000848400008484 + 0000848400008484000084840000848400008484000084840000101018001010 + 1800A5A5A500000000000000000000000000B5CEDE00089CCE00089CCE0000C6 + F70000D6FF0000D6FF0000D6FF0000CEFF0000CEFF0000C6F70000BDEF0000A5 + DE00008CBD00107BA50029738C004A7384007B8484009C9C9C00ADADAD00B5B5 + B500BDBDBD00C6C6C6000000000000000000000000000000000000000000C6C6 + C600DEDEDE0039424200A5424200E77B7B00FFBDBD00FFFFFF00FFFFFF00FFDE + DE00FFC6C600EF848400CE6363005229290021080800C65A5A00CE636300EF7B + 7B00FFADAD0029212100393939009C9C9C00DED6D600C6BDB5009C8C7B006B39 + 180094421000AD5A2900A55A2900944A21007B4A3100B5422100FFD6BD00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFEF00FFFFDE00FFFF + CE00F7B53900A5633100C6BDAD000000000000000000E7AD7B00FFDEAD00FFCE + 9C00FFCE9C00FFCE9C005A5A5A00848484005A5A5A00FFFFFF00EFEFEF00EFEF + EF00E7E7E700E7E7E700E7E7E700E7E7E700D6D6D600B5B5B500292929001010 + 1800A5A5A500000000000000000000000000ADCEDE0010A5D60018A5DE0008B5 + E70018D6FF0010D6FF0008D6FF0000CEFF0000D6FF0008D6FF0008D6FF0008D6 + FF0000CEFF0000C6F70000BDEF0000ADDE000094C6001084AD002973940084AD + B50000000000000000000000000000000000000000000000000000000000C6C6 + C600DEDEDE00424242009C424200E77B7B00FFBDBD00FFF7F700FFFFFF00FFDE + DE00FFC6C600EF848400CE6363008442420052292900F7949400E77B7B00FFB5 + B500FFE7E70029212100636B6B00BDC6C600CEC6BD00A5948400633921005A29 + 1800944A2100DE845200DE8C5A00D68C5A009C391800FF4A4200FFB5B500FFCE + C600FFDED600FFEFE700FFFFF700FFFFFF00FFFFFF00FFFFFF00FFFFF700CEA5 + 52007B5A4200A59C8C00D6CEC6000000000000000000E7B58400FFDEB500FFD6 + A500FFCE9C00FFCE9C004A424200848484005A5A5A00FFFFFF00F7F7F700F7F7 + F700EFEFEF00E7E7E700E7E7E700E7E7E700D6D6D600B5B5B500292929001010 + 1800A5A5A500000000000000000000000000A5CEDE0018ADDE0031BDE70018AD + D6005AE7FF0052DEFF0042DEFF0031D6FF0018D6FF0008CEFF0000CEFF0008CE + FF0008D6FF0008D6FF0008D6FF0008D6FF0008CEFF0000C6F70000ADE700189C + C600000000000000000000000000000000000000000000000000000000000000 + 0000CECECE0042424200AD525200FF949400FFB5B500FFFFFF00FFFFFF00FFFF + FF00FFCECE00EF848400D66B6B00A54A4A0052424200FFD6D600FFC6C600FFFF + FF00C69494008C292900B5848400CECECE00CEC6C60084634A00632118006329 + 210084391800B55A2900B55A3100BD633100A55A29008C5231009C4A3100B552 + 3100CE523900D6634A00EF6B5A00FF8C8400FFC6BD00FFC6B500C6946B00A552 + 2100844A310084634A00C6B5AD000000000000000000E7B58400FFDEB500FFD6 + AD00FFD6A500FFCE9C004A424200848484005A5A5A00FFFFFF00FFFFFF00F7F7 + F700F7F7F700EFEFEF00E7E7E700E7E7E700D6D6D600B5B5B500292929001010 + 1800A5A5A50000000000000000000000000094C6DE0018ADDE004ACEF700109C + D6006BDEF7006BE7FF006BE7FF0063E7FF005AE7FF0042DEFF0018D6FF0008CE + FF0000CEFF0008CEFF0008CEFF0008CEFF0008D6FF0008D6FF0008C6F700089C + CE0094C6D6000000000000000000000000000000000000000000C6C6C600DEDE + DE006B7373006B292900E77B7B00FF9C9C00FFBDBD00FFFFFF00FFFFFF00FFFF + FF00FFCECE00FF9C9C00EF7B7B009C42420052424200FFEFEF00F7F7F700FFFF + FF00949494004A52520042101000D6ADAD00C6B5A5007B391800733121007B39 + 18008C391000A5522100A55A2900AD5A2900B55A2900AD632900AD5A2100A552 + 2100AD5A2100AD633100AD633100A5522900A54A29008C4229009C5A4200FFAD + 7B00FFA57300B56B3100BDADA5000000000000000000E7B58400FFDEBD00FFD6 + AD00FFD6A500FFD6A5004A424200848484005A5A5A00FFFFFF00FFFFFF00FFFF + FF00F7F7F700EFEFEF00E7E7E700E7E7E700D6D6D600B5B5B500292929001010 + 1800A5A5A5000000000000000000000000008CC6DE0021ADDE0063DEFF0018A5 + D60063CEEF008CEFFF007BE7FF0073E7FF006BE7FF006BE7FF0063E7FF0042DE + FF0010D6FF0000CEFF0008CEFF0008D6FF0008D6FF0008CEFF0008C6F70010B5 + E70039A5C6000000000000000000000000000000000000000000C6C6C600DED6 + D6006B7373006B292900E7737300FFADAD00FFCECE00FFF7F700FFFFFF00FFFF + FF00FFCECE00FF949400EF7B7B009C424200524A4A00FFFFFF00F7FFFF00FFFF + FF00FFFFFF00DEB5B50042101000DEADAD00BD947B0084392100843918008C42 + 21009C4A2100FF8C5A00FF9C6300FF946B00FF9C7300FF9C6300AD734200B584 + 6300B57B5200B5734200BD6B3900B5633100AD5A2900AD5A2900AD5A2900B56B + 3900D6946B00CE7B5200C6A58C000000000000000000E7B58400FFDEBD00FFDE + AD00FFD6AD00FFD6AD004A424200848484005A5A5A00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700BDBDBD00292929001010 + 1800948C8C0000000000000000000000000084C6D60021B5E70073E7FF0031BD + E7004ABDDE00A5F7FF0094EFFF0094EFFF008CEFFF0084EFFF007BEFFF007BE7 + FF006BE7FF0042DEFF0010D6FF0000CEFF0008D6FF0008CEFF0008C6F70029CE + F7000894C600A5CED60000000000000000000000000000000000C6C6C600DEDE + DE006B7B7B0063212100EF7B7B00FFA5A500FFD6D600FFF7F700FFFFFF00FFFF + FF00FFD6D600FFB5B500EF7B7B009C424200525A5A00FFFFFF00F7FFFF00FFEF + EF00FFD6D600D67B7B0042101000DEADAD00C69C840094421800944218008C42 + 2100CE6B3900FFDEC600FFD6BD00FFD6C600FFDECE00EF8C6300B59C8400C6B5 + A500BDB5A500BDAD9400BDA59400B59C7B00A57B5A00C6734200E7945A00BD63 + 3100A55A2900A55A2900BD9473000000000000000000E7B58400FFE7C600FFDE + B500FFDEAD00FFD6AD004A424200848484005A5A5A005A5A5A00525252005252 + 52004A4242004A4242004A4242004A4242003939390039393900292929001010 + 1800633194000000000000000000000000007BBDDE0029B5E70073EFFF0052D6 + F70021A5D600B5F7FF00B5F7FF00ADF7FF00A5F7FF009CEFFF0094EFFF008CEF + FF008CEFFF0084EFFF0073E7FF0042DEFF0018D6FF0008CEFF0008BDF70029CE + F70008ADDE005AADCE0000000000000000000000000000000000000000000000 + 00005A52520094424200FF9C9C00FFB5B500FFEFEF00FFFFFF00FFFFFF00FFFF + FF00FFD6D600FFBDBD00EF7B7B009C42420052525200FFFFFF00F7E7E700FFCE + CE00BD7B7B005229290039080800DEADAD00C69C84008C421000A55229009C4A + 1800FFAD7B00FFD6BD00FFCEB500FFD6C600FFAD7B00BD8C6300D6CEBD00D6C6 + B500CEBDAD00CEB5A500C6B5A500BDB5A500B5948400E78C5A00FFE7D600FFCE + B500FFA57B00E7844200BD734A000000000000000000E7B58400FFE7C600FFDE + B500FFDEB500FFDEAD004A424200848484005A5A5A005A5A5A00848484008484 + 8400848484008484840084848400848484008484840039393900292929000808 + 000063319400B5B5B500000000000000000073BDD60031BDE7007BEFFF006BE7 + FF00109CD60094DEEF00DEFFFF00CEFFFF00BDFFFF00B5F7FF00B5F7FF00ADF7 + FF00A5F7FF009CEFFF0094EFFF0094EFFF0084EFFF00217B210084BD8C0042D6 + F70029CEEF001094C600BDD6DE00000000000000000000000000D6CECE0094A5 + A50039101000E7737300F7949400FFCECE00FFEFEF00FFFFFF00FFFFFF00FFFF + FF00FFD6D600FFBDBD00EF7B7B009C424200525A5A00FFFFFF00FFC6C600F79C + 9C0094424200733131009C5A5A00CEC6C600C6947B00AD521800AD522100CE6B + 3100FFDECE00FFD6C600FFDEC600FFCEAD00CE845A00E7D6CE00DECEC600D6C6 + B500D6CEB500DECEBD00E7D6BD00CEC6B500BD9C8400EF946300FFE7CE00FFDE + CE00FFE7CE00FFDECE00CE7B4A000000000000000000E7B58400FFE7C600FFDE + BD00FFDEB500FFDEB5004A424200848484005A5A5A005A5A5A00EFEFEF00D6D6 + D600D6D6D600D6D6D600D6D6D600E7E7E7008484840039393900292929000808 + 0000844AB500844AB500000000000000000063B5D60039C6E70084F7FF007BF7 + FF0039C6E700109CD6007BCEE7009CE7EF00B5EFF700C6F7FF00CEFFFF00CEFF + FF00BDF7FF00B5F7FF00ADF7FF00A5F7FF00217B31004ACE6B0010842100429C + 8C0084EFFF0021A5D6007BB5CE00000000000000000000000000CECECE009CA5 + A50042212100DE6B6B00F7949400FFC6C600FFEFEF00FFFFFF00FFFFFF00FFFF + FF00FFD6D600FFBDBD00E77373009C424200524A4A00FFE7E700EF949400CE63 + 6300CE63630052313100D6CECE00C6CECE00CEAD9C00B5521000B5522100FFCE + AD00FFEFD600FFE7CE00FFDEC600DE8C5200E7D6C600E7D6CE00292121002118 + 18002929210042393900736B6300CEC6BD00CEAD9400FFA56B00FFE7D600FFE7 + CE00FFE7D600FFC69C00C68463000000000000000000E7B58400FFE7C600FFDE + BD00FFDEBD00FFDEB5004A424200848484005A5A5A005A5A5A00F7F7F700D6D6 + D600D6D6D6005A5A5A005A5A5A00E7E7E7008484840039393900292929000808 + 0000844AB500844AB500B5B5B500000000005AB5D60042CEEF0084F7FF0084F7 + FF0084F7FF004ACEEF0021ADDE0018ADD60010A5D60021A5D60039B5DE006BCE + E700D6FFFF00D6FFFF00C6FFFF00087B420039BD5A005AF78C0063F78C001084 + 290063C6BD006BD6E7002194C600000000000000000000000000D6CECE00A5B5 + B50031101000DE6B6B00F7949400FFCECE00FFEFEF00FFFFFF00FFFFFF00FFFF + FF00FFCECE00FFBDBD00EF8484009C4A4A005A424200FFADAD00C65A5A00D66B + 6B008439390010101000CECECE0000000000DEDEDE00B5845A00B5632900F7AD + 7300FFDEAD00FFEFCE00EFA56B00DEC6B500FFFFFF005A525200101010001010 + 1000101010001010100021181800DECEC600D6AD8C00FFD6A500FFEFD600FFEF + D600FFF7DE00F7944A00D6BDB5000000000000000000E7BD8C00FFEFD600FFE7 + C600FFDEBD00FFDEBD004A424200848484005A5A5A005A5A5A00F7F7F700D6D6 + D600D6D6D6008484840052525200E7E7E7008484840039393900292929000808 + 0000844AB5009C63CE00844AB500000000004AB5D60052D6EF008CFFFF0084F7 + FF0084F7FF008CF7FF0084F7FF007BF7FF007BEFFF006BE7F70052D6EF0010A5 + D60063C6DE00E7FFFF00399C63002194310052E784005AEF8C005AF78C0052DE + 7B00107B1800A5E7DE0029A5CE0094C6D6000000000000000000CECECE005A52 + 52009C4A4A00EF7B7B00F79C9C00FFC6C600FFEFEF00FFFFFF00FFFFFF00FFFF + FF00FFF7F700FFB5B500FF9C9C00A552520042212100EF737300CE636300B55A + 5A006B31310021181800CECECE00000000000000000000000000CEB5A5009452 + 2900B5846300C6946B00B57B5200E7CEBD00CEBDAD005A5252005A5A5A00525A + 5A00525252004A4A4A0094948C00FFF7EF00D6A58400FFFFF700FFFFFF00FFFF + FF00FFEFCE00C67B4A00000000000000000000000000E7BD8C00FFEFD600FFE7 + C600FFE7C600FFDEBD006B6B6B00ADA5A500848484008C8C8C00F7F7F700FFFF + FF00F7F7F7009C9C9C0084848400F7F7F700ADA5A5006B6B6B004A4242000808 + 0000AD7BE700A573DE008C5AC600B5B5B50039ADD6005ADEF70094FFFF008CFF + FF008CFFFF008CF7FF008CF7FF008CF7FF008CF7FF008CFFFF0094FFFF0073E7 + F700109CCE0084BD9C00188C210042DE73004AE7840052E784005AEF8C005AF7 + 8C0052DE7B002984310073C6D6004AA5CE000000000000000000000000002110 + 1000BD5A5A005231310052424200393131003939390039393900212121003131 + 3100212121004A42420029212100392929001818180084424200C66363007339 + 39001800000094949400CECECE00000000000000000000000000DEDED6009C5A + 3100B57B6B00F7EFEF00EFDED600DEBDAD00D6AD9400C69C7B00B58C6B00AD84 + 6B00AD846B00AD947300E7CEBD00DEAD8C00E7B58400FFE7D600FFE7D600FFD6 + B500D6844A00D6C6B500000000000000000000000000EFCEB500FFEFD600FFEF + D600FFEFD600FFEFD6009C9C9C009C9C9C008C8C8C008C8C8C008C8C8C008C8C + 8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C006B6B6B00B584 + E700B584E700AD7BE7009C63CE00844AB50029ADD6006BDEF70094FFFF0094FF + FF0094FFFF0094FFFF008CFFFF008CFFFF008CFFFF008CFFFF008CFFFF0094FF + FF007BEFF700218C4A00108439000873210031B552004AE7840052E78400188C + 2100107B3900187B390039A5A500299CC60000000000C6C6C600DEDEDE001018 + 1800211010000000000084848400FFFFFF00F7F7F700FFFFFF00ADADAD006363 + 630073737300ADADAD00B5B5B50000000000848C8C0008000000733939005221 + 210031292900BDC6C600CECECE0000000000000000000000000000000000D6C6 + B500AD6B4A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7EF00F7DE + D600EFD6C600D6AD9C00A5522900C69C8400CE9C8400CE9C8400C69C8400CEA5 + 8400D6BDAD0000000000000000000000000000000000EFDEC600EFDEC600EFD6 + B500EFD6B500EFD6B500EFD6B500EFCEB500EFCEB500EFCEB500EFCEB500E7BD + 8C0094CEEF0094CEEF008CB5EF006BA5E7006BA5E700BD94EF00BD94EF00BD8C + EF00BD8CEF00B584E700A573DE008C5AC60021A5DE006BE7F7009CFFFF0094FF + FF0094FFFF0094FFFF0094FFFF0094FFFF0094FFFF009CFFFF009CFFFF0094FF + FF009CFFFF009CFFFF009CFFFF009CFFFF00219C390042DE73004AE78400107B + 1800B5D6DE0094C6D6006BB5CE00A5CEDE00C6C6C600D6D6D6006B6B6B004A21 + 21004A10100073737300848484008C8C8C00FFFFFF00F7F7F700FFFFFF00BDBD + BD00737373006B6B6B0084848400C6C6C60073737300424A4A00312121002921 + 2100BDC6C600CECECE00C6C6C60000000000000000000000000000000000D6C6 + B500BD7B4A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00CEA58400BD8C7300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008CB5EF00A5CEF700ADDEF700A5D6EF00A5D6EF00A5D6EF0094CE + EF0094CEEF006BA5E7006BA5E700CEA5EF00CEA5EF00C69CEF00C69CEF00BD94 + EF00BD8CEF00AD7BE700A573DE00000000004AB5DE0042C6E700A5FFFF009CFF + FF009CFFFF009CFFFF009CFFFF009CFFFF0084EFF7004ACEEF004ACEEF005AD6 + EF0063DEF70073E7F7007BEFFF004AB58C0021A5420042D6730039CE6B00428C + 420000000000000000000000000000000000BDBDBD00D6D6D6005A5A5A002900 + 00006B6B6B00EFF7F700FFFFFF007B7B7B0094949400FFFFFF00F7F7F700FFFF + FF00B5B5B5001818180094949400C6C6C600ADADAD003939390094949400C6C6 + C600CECECE00C6C6C6000000000000000000000000000000000000000000D6C6 + B500BD7B4A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00B5734A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008CB5EF00ADDEF700B5DEEF00A5CEEF0094CEEF008CB5 + EF006BA5E700D6B5EF00D6B5EF00CEA5F700CEA5EF00C69CEF00BD94EF00B584 + E700AD7BE700000000000000000000000000ADD6DE0008A5DE0073E7F700A5FF + FF00A5FFFF00A5FFFF00ADFFFF008CF7FF0018B5E7004294BD007BBDD6005AB5 + D60042ADD60029A5D600109CC600006B180031BD5A0039CE6B00107B1800ADC6 + AD0000000000000000000000000000000000BDBDBD00DEDEDE00949494005A5A + 5A00F7F7F700D6D6D600C6C6C600FFFFFF004A4A4A007B7B7B00FFFFFF00FFFF + FF0039313100290000007B848400CECECE00CECECE00948C8C007B7B7B00D6D6 + D600C6C6C600000000000000000000000000000000000000000000000000BD8C + 7300CEA58400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00B5734A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008CB5EF00ADD6FF00A5CEF7008CB5EF006BA5E700D6BD + F700D6BDF700D6B5EF00D6B5EF00CEA5F700CEA5EF00BD8CEF00B584E7000000 + 0000000000000000000000000000000000000000000063BDDE0010ADDE0031BD + E70039C6E7004ACEEF005ADEEF0029BDE7004294B50000000000000000000000 + 00000000000094BD9C00297B2900189C310031C65A001084210084AD84000000 + 000000000000000000000000000000000000DEDEDE008C8C8C0063636300FFFF + FF00BDBDBD00DEDEDE00E7E7E700B5B5B50052525200424242009C9C9C00A5A5 + A50008080800080000001010100031313100292929004242420010101000CECE + CE0000000000000000000000000000000000000000000000000000000000B56B + 4200E7D6CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00F7E7E700AD73420000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008CB5EF008CB5EF0000000000D6ADFF00DEC6 + FF00DEC6FF00D6BDF700D6ADFF00C69CEF00BD8CEF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000A5CEDE008CC6 + DE007BBDDE0063B5DE0042ADDE0052B5DE0000000000639C6300006B00002173 + 2100007308000884100018A52900189C3100107B18008CB58C00000000000000 + 000000000000000000000000000000000000CECECE00BDBDBD0063636300BDBD + BD00FFFFFF00CECECE00C6C6C600212121004A4A4A00636363006B6B6B006B6B + 6B00BDBDBD00ADADAD00A5A5A500A5A5A500A5A5A5009C9C9C00B5B5B500CECE + CE0000000000000000000000000000000000000000000000000000000000CEA5 + 9400BD8C6300C68C6B00CE9C7B00DEBD9C00E7D6CE00F7EFEF00FFF7F700FFFF + FF00E7C6B500C6A58C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D6ADFF00DEC6 + FF00DEC6FF00CEA5EF00C69CEF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5CEB500639C + 63003984390039843900398439007BAD7B000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C600CECECE00CECECE004A4A + 4A00CECECE00CECECE0042424200DEDEDE0073737300ADADAD00D6D6D600CECE + CE00CECECE00CECECE00CECECE00CECECE00CECECE00D6D6D600CECECE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D6AD + FF00CEA5F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CECE + CE006363630063636300CECECE0000000000D6D6D600CECECE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CECECE00949C + 9C0094949400C6C6C60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CECECE00CECECE00C6C6C600C6C6C600BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00C6C6C600ADADAD00425A7B003963 + 8C00315A84004A5A6B00B5B5B50000000000000000000000000000000000AD84 + 6B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD84 + 6B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD84 + 6B00AD846B000000000000000000000000000000000000000000000000000000 + 00000000000000000000CEB5C600BDA5BD00BDA5BD00C6ADC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BDBDBD006B6BAD007B7BD600ADAD + EF00ADADEF007373D6005A5AAD00C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000D6D6D600C6C6C600BDBD + BD00B5B5B500B5B5B500B5B5B500ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD00ADADAD00ADADAD00ADADAD00949C9C00395273004A7BAD005A94 + C6005A8CC60042739C0042526300BDBDBD0000000000D6D6D600C6C6C600AD84 + 6B00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEF + DE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEF + DE00AD846B00CECECE00CECECE00000000000000000000000000000000007B94 + 7B00849C840052945200318439003184310029843100397B42006B846B00ADA5 + AD00ADBDAD00849C8400A5A5A50094A594008C9C8C00A5A5A500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CECECE003939CE009C9CFF00B5B5FF00BDBD + FF00B5B5FF00ADADFF008C8CFF002929D6000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECECE00BDBDBD00ADAD + AD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD00ADADAD00ADADAD0094949400395273004A7BAD005A8CC6006394 + C60084ADD60084ADD6004A739C007B848C0000000000CECECE00BDBDBD00AD84 + 6B00FFF7E700FFDEC600FFDECE00FFDECE00FFDECE00FFDECE00FFDECE00FFDE + CE00FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFEF + DE00AD846B00BDBDBD00CECECE0000000000000000000000000018941800298C + 31001894210031AD310042B5420042B54A005AA55A004AA55200399C3900427B + 4200398C420021942100397B39002194290029842900297331004A7352009CA5 + 9C00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007373B5007373FF007B7BFF00847BFF008484 + FF008484FF007B7BFF007373FF006B6BFF005252BD0000000000000000000000 + 00000000000000000000000000000000000000000000D6D6D600C6C6C600BDBD + BD00B5B5B500B5B5B500B5B5B500ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD00ADADAD0094949C00395273004A7BAD005A8CC6006394C60084AD + D600B5CEE700B5CEE7005A84AD007B848C0000000000D6D6D600C6C6C600AD84 + 6B00FFF7E700FFDEC600FFDECE00FFDECE00FFDECE00FFDECE00FFDEC600FFDE + C600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFE7 + DE00AD846B00C6C6C600D6D6D60000000000000000005AAD5A0021AD290039AD + 420042B54A0042B54A0031AD39004A944A00B5ADB500B5B5B50084AD840052C6 + 5A0039B539004ABD4A004AB5520031AD390039AD390042A54200218429004273 + 4200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005252CE006B6BFF007373FF007B73FF006B6B + FF006363FF006363FF006363FF007373FF004A42CE00DEDEDE00E7E7E7000000 + 000000000000000000000000000000000000000000000000000000000000D6D6 + D600CECECE00CECECE00C6C6C600C6C6C600BDBDBD00BDBDBD00BDBDBD00BDBD + BD00B5ADAD0094949400425A7B004A7BAD005A8CC6006394C60084ADD600BDCE + E700CEDEEF0084A5C6004A637B00D6D6D600000000000000000000000000AD84 + 6B00FFF7E700FFDEC600FFDECE00FFDECE00FFDECE00FFDECE00FFDECE00FFDE + C600FFDECE00FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFDEC600FFE7 + DE00AD846B00000000000000000000000000000000000000000018AD210010A5 + 1800299C290021942100317B31007B737B00D6CED600DED6DE008CAD8C0052DE + 5A005ADE630052CE52004ACE520063C6630073A5730042AD4A00319C3100296B + 2900ADADAD00000000000000000000000000000000000000000000000000DEDE + DE00DEDEDE00DEDEDE00E7E7E700736BB500B5B5FF00ADADFF00ADADFF00ADA5 + FF009C9CFF009494FF009C94FF00B5B5FF004A4ABD00B5B5B500B5B5B500D6D6 + D600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AD847B00735A5A00426B94005A94C6006394C60084ADCE00B5CEE700CEDE + EF008CADCE004A637B00D6D6D60000000000000000000000000000000000AD84 + 6B00FFF7E700FFDECE00DE944A00DE944A00DE944A00DE944A00DE944A00DE94 + 4A00DE944A00DE944A00DE944A00DE944A00DE944A00DE944A00FFDEC600FFE7 + DE00AD846B0000000000000000000000000000000000000000002994310039A5 + 4200109C1800397B39007B7B7B0084848400DEDEDE00DEDEDE008C9494005294 + 520052B55A0052B55A004AA54A0084AD8400CEBDD60029943100189C2100086B + 08006B946B000000000000000000000000000000000000000000DEDEDE00BDBD + BD00B5B5B500ADADAD00ADADAD009494A5009494EF00DEDEFF00D6D6FF00D6D6 + FF00D6D6FF00D6D6FF00DEDEFF009494E7009494A500ADADAD00B5B5B500D6D6 + D600000000000000000000000000000000000000000000000000000000000000 + 000000000000BDBDBD0094948C008C7B730084737300847B7300948C8C009C94 + 8C00BD9C9400D6B5AD0073635A005284AD0084ADD600B5CEE700CEDEEF008CAD + CE00425A7B00D6D6D6000000000000000000000000000000000000000000AD84 + 6B00FFF7EF00FFDECE00DE944A00FFFFF700F7E7DE00F7E7D600FFEFD600EFDE + C600F7DEBD00FFDEBD00F7CEA500F7CEA500FFCEA500DE944A00FFDEC600FFE7 + DE00AD846B000000000000000000000000000000000084BD8C00A5BDA50052AD + 5A00316B31009C8C9C00737373009C9C9C00E7E7E700EFEFEF00A5A5A500736B + 73007B7B7B007B7B7B00736B7300A59CA500DED6DE00397B390042AD4200428C + 420094B594000000000000000000000000000000000000000000000000000000 + 0000CECECE00BDBDBD00B5B5B500B5B5B5009C9CA5008484BD00C6C6F700EFEF + FF00E7E7FF00BDBDF7008484BD00ADADB500C6C6C600D6D6D600000000000000 + 000000000000000000000000000000000000000000000000000000000000C6C6 + C6008C7B7B0094736B00B5948C00CE9C9400CEA59C00C69C9400A5847B008C6B + 5A00947B7300C6B5B500CEA59C00846B6B00A5BDD600CEE7F70094ADCE004A63 + 7B00D6D6D600000000000000000000000000000000000000000000000000AD84 + 6B00FFF7EF00FFDECE00DE944A00FFFFFF00C6CED600E7DEE700FFF7EF00CEBD + B500E7CEBD00FFEFD600C6BDB500DECEB500FFDEB500DE944A00FFDEC600FFE7 + DE00AD846B00000000000000000000000000000000000000000000000000398C + 42008C848C00ADA5AD00525A5200C6C6C600EFEFEF00F7F7F700BDBDBD008C8C + 8C009C949C009C9C9C0084848400A5A5A500E7E7E7008C848C007BA57B00BDCE + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484B5008484B5006363AD003939 + C6004242C6007373AD008C8CBD00A5A5BD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5B5AD009473 + 6B00C69C9400E7AD9C00F7BDAD00FFCEB500FFCEB500F7C6AD00EFB59C00D69C + 9400A5847B008C6B6300B5ADAD00D6B5AD00AD94840094A5BD00526B8400D6D6 + DE0000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFF7EF00FFDECE00DE944A00F7FFFF004A7BFF00A5BDFF00FFFFEF00A542 + 0800CE8C6300FFF7E700089CD60073BDCE00FFDEB500DE944A00FFDEC600FFE7 + DE00AD846B000000000000000000000000000000000000000000000000008C94 + 8C009C949C00848C8C00636B6B00D6D6D600DEDEDE00FFFFFF00DEDEDE009C9C + 9C00ADADAD00ADADAD007B7B7B00B5B5B500EFEFEF008C8C8C00BDC6BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000635AEF00B5B5FF00C6BDFF00CEC6 + FF00CEC6FF00C6BDFF00BDB5FF00524AD6000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6BDBD00947B7300DEAD + A500F7B59C00FFCEB500FFDECE00FFE7D600FFE7D600FFE7D600FFD6C600FFBD + A500E7AD9C00B58C84008C736300CEC6C600DEBDB500634A5200CECECE000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFF7EF00FFDED600DE944A00FFFFFF009CB5F700CED6FF00FFFFF700CE9C + 7B00E7BDAD00FFF7E70084BDCE00B5CECE00FFE7C600DE944A00FFDECE00FFEF + DE00AD846B000000000000000000000000000000000000000000000000009C8C + 9C008C8C8C00525A63006B737B00C6CECE00D6D6D600F7F7F700FFFFFF00BDBD + BD009C9C9C00949494007B7B7B00DEDEDE00F7F7F7008C8C8C00BDBDBD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A5AE7009C94FF00A59CFF00ADA5 + FF00ADA5FF00A59CFF009C94FF00736BFF005252D60000000000000000000000 + 000000000000000000000000000000000000DEDEDE008C736B00D6ADA500F7AD + 9400FFCEAD00FFD6C600FFDECE00FFDECE00FFDECE00FFDECE00FFDEC600FFD6 + BD00FFBD9C00EFAD9400A5847B00947B7300BD9C9400BD9C8C00000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFF700FFE7D600DE944A00FFFFFF00EFE7D600F7EFEF00FFFFFF00E7E7 + DE00EFEFE700FFF7EF00DED6BD00EFDEC600FFE7CE00DE944A00FFDECE00FFEF + DE00AD846B000000000000000000000000000000000000000000000000007373 + 7300636363005A4221007B6342009C949400BDC6C600DEDEDE00FFFFFF00FFFF + FF00C6C6C600ADADAD00CECECE00FFFFFF00F7F7F7009C9C9C00A5A5A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000635ADE00736BFF007B73FF00847B + FF00847BFF007B73FF00736BFF00635AFF004A39FF002121DE00ADADDE000000 + 000000000000000000000000000000000000B5ADAD00AD8C8400F7AD9400FFBD + 9C00FFCEB500FFD6BD00FFD6BD00FFD6C600FFD6C600FFD6C600FFD6BD00FFD6 + B500FFCEAD00FFAD8C00D6A594008C635A00ADA5A50000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFEFE700DE944A00FFFFFF00CE9C9C00E7CECE00FFFFFF00E784 + 0000F7BD7300F7FFFF00009C00006BC66300FFEFE700DE944A00FFDECE00FFEF + DE00AD846B0000000000000000000000000000000000000000008C8C94004A4A + 4A006B4A2900AD5A0800E7943900BD7B42009C846B00B5BDC600E7EFEF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700B5B5B500949494000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B5B5D6003929EF005A4AFF005A4A + FF005A4AFF005242FF005239FF004A31FF004231FF004A31FF002918F7007B7B + C600000000000000000000000000000000009C848400CEA59C00FFAD8400FFC6 + 9C00FFC6A500FFCEAD00FFCEB500FFD6B500FFD6B500FFD6B500FFCEB500FFCE + AD00FFC6A500FFB59400EFA58C00AD848400948C8C0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFEFE700DE944A00FFFFFF00EFD6DE00F7EFF700FFFFFF00F7CE + 9400FFE7CE00FFFFFF0084D68C00BDE7B500FFF7F700DE944A00FFDECE00FFEF + DE00AD846B0000000000000000000000000000000000BDADBD00635242008C52 + 2100AD631000B5630000DE8C3100FFB56300E7A55A00B5845A00ADA5A500DEDE + E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEFEF00BDBDBD006B737300737B + 8400ADADAD000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ADADD6002918E7004229 + FF004231FF004229FF004229FF004229FF004229FF004229FF004231FF002118 + F700C6C6DE00000000000000000000000000947B7300E7AD9C00FFAD8400FFCE + AD00FFCEB500FFCEB500FFCEAD00FFCEAD00FFCEAD00FFCEAD00FFC6AD00FFC6 + A500FFC69C00FFBD9400F7A58400C69C9400847B730000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7EF00DE944A00F7BD8400F7C68C00F7C68400EFBD8400F7C6 + 9400F7C68C00EFBD7B00FFC68C00FFBD8400EFB56B00DE944A00FFDECE00FFEF + DE00AD846B0000000000000000000000000000000000B58C94009C520800BD63 + 0000E77B0000EF7B0000BD630000BD6B1000E7A55200FFCE7B00D69C5A00AD9C + 8C00D6DEE700FFFFFF00FFFFFF00FFFFFF00DEE7E700A5ADB5005A524A006342 + 18006B635200C6BDCE0000000000000000000000000000000000000000000000 + 0000DEDEEF00DEDEEF00DEDEEF00DEDEEF00DEDEEF00DEDEEF00E7E7EF00948C + CE002921DE003921FF003929FF003929FF003929FF003921FF003921FF005A4A + FF005252D600000000000000000000000000947B7300EFB59C00FFC6A500FFD6 + BD00FFD6C600FFD6C600FFDEC600FFCEB500FFC69C00FFC69C00FFBD9C00FFBD + 9C00FFBD9400FFB58C00F7A57B00CEA59C008473730000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7EF00DE9C6300CE631000CE6B1000CE6B0800CE6B0800CE6B + 0800CE6B0800CE6B0800CE6B0800CE6B0800CE6B0800EFBD8C00FFDECE00FFEF + E700AD846B0000000000000000000000000000000000BD946B00D6730000F784 + 0000F7840000DE841000EF840800DE730000B55A0000CE8C3100FFE79400E7AD + 6B00B59C8C00DEE7E700F7F7F700CECED6009C949400AD844A00E7842100E77B + 0800AD844A000000000000000000000000000000000000000000000000003931 + DE002110F7002108F7002910F7003121F7003121F7003121F700BDBDD6000000 + 0000000000004A42DE004A31FF003921FF003921FF004A31FF007363FF00846B + FF004A42DE0000000000000000000000000094736B00EFB5A500FFCEB500FFD6 + C600FFD6C600FFD6C600FFDEC600FFDEC600FFC6A500FFB58C00FFB58C00FFB5 + 8C00FFB58C00FFAD8400F7A57B00CEA59C00847B730000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFF7 + EF00FFF7EF00FFEFE700FFEFE700FFEFE700FFEFE700FFEFE700FFEFDE00FFF7 + EF00AD846B00000000000000000000000000000000000000000000000000FFAD + 2900DE8C210094949400C6B5A500DE8C2100EF840000B55A0000C67B1800FFEF + A500E7B57300ADA59C00A5B5BD009C8C7300DE8C3100FF8C1000DE8C31000000 + 0000000000000000000000000000000000000000000000000000000000005252 + DE004A31FF008C7BFF009C8CFF009C8CFF009C8CFF00A594FF005252D600DEDE + EF00CECEDE005A5AE7009C94FF00948CFF00948CFF009C8CFF00948CFF009C8C + FF00524ADE000000000000000000000000009C7B7300D6AD9C00FFCEB500FFDE + C600FFDEC600FFDEC600FFDEC600FFDECE00FFDEC600FFC6AD00FFBD9400FFBD + 9400FFB58C00FFA57300F7A58400B5949400948C8C0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7F700FFF7F700FFF7F700FFF7F700FFF7EF00FFF7EF00FFF7 + EF00FFF7EF00FFF7EF00FFE7DE00E7D6CE00E7D6C600E7CEC600E7CEC600E7D6 + CE00AD846B000000000000000000000000000000000000000000000000000000 + 0000BDAD7B000000000000000000CE8C4200FF840000E78400009C520000BD84 + 2900FFE79C00BD9463009C734A00EF942100F78C1000CE945200000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + C600AD9CFF00BDADFF00BDADFF00BDADFF00BDADFF00BDADFF00B5ADFF008C8C + EF009C94F700BDB5FF00B5ADFF00B5ADFF00B5ADFF00B5ADFF00B5ADFF00BDB5 + FF006B6BD600000000000000000000000000BDADAD00B5948C00FFC6AD00FFDE + CE00FFDECE00FFDECE00FFDECE00FFDECE00FFDECE00FFE7CE00FFDECE00FFDE + CE00FFDECE00FFAD8400E7A5940094737300BDBDBD0000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7 + EF00FFF7EF00FFF7EF00EFDED600AD846B00AD846B00AD846B00AD846B00AD84 + 6B00AD846B000000000000000000000000000000000000000000000000000000 + 0000949C9C000000000000000000EFA53900FF8C0000DE841000BD732100844A + 0800CE943900FFC67300F7840800DE8C21000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006B6BDE00DED6FF00D6CEFF00D6CEFF00D6CEFF00D6CEFF00D6CEFF00D6CE + FF00D6CEFF00D6CEFF00D6CEFF00D6CEFF00D6CEFF00D6CEFF00DED6FF008484 + E70000000000000000000000000000000000DEDEDE0094736B00E7B5A500FFCE + B500FFE7D600FFE7D600FFDED600FFE7D600FFE7D600FFE7D600FFE7D600FFE7 + D600FFDED600F7B59C00C6A594008C7B73000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFF7F700FFFFF700FFFFF700FFF7F700FFF7F700FFF7F700FFF7 + EF00FFF7EF00FFF7EF00EFE7DE00AD846B00FFD6B500FFE7D600F7E7DE00AD84 + 6B00BDBDBD000000000000000000000000000000000000000000000000000000 + 00008484840000000000BDA5BD00CEBD7B00FFC65200DE842100C67B2100AD6B + 2100A55A0800DE94310000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6D6DE008C8CE700F7EFFF00EFE7FF00EFE7FF00EFE7FF00EFE7FF00EFE7 + FF00EFE7FF00EFE7FF00EFE7FF00E7E7FF00EFE7FF00EFEFFF00ADADEF009494 + CE000000000000000000000000000000000000000000BDADAD00A5847B00F7BD + AD00FFCEBD00FFE7DE00FFE7DE00FFEFDE00FFE7DE00FFE7DE00FFEFDE00FFE7 + D600FFBDA500DEB5A5008C736B00C6C6C6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFFFF700FFFFF700FFFFF700FFFFF700FFF7F700FFF7F700FFF7 + F700FFF7F700FFF7F700EFE7DE00AD846B00FFE7D600EFDED600946B5A00BDBD + B500000000000000000000000000000000000000000000000000000000009C9C + 9C0094949400C6C6C600B5B5B50000000000F7D67B00EF8C0800DE841000E79C + 4200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CECEE7006B6BDE00EFEFFF00FFFFFF00FFF7FF00F7F7FF00F7F7 + FF00F7F7FF00F7F7FF00FFF7FF00FFFFFF00F7F7FF008484DE00ADADD6000000 + 0000000000000000000000000000000000000000000000000000B59C9C00A584 + 7B00E7B5A500FFC6B500FFD6C600FFDED600FFE7D600FFDECE00FFCEBD00F7BD + A500D6AD9C00947B6B00B5B5AD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFFFFF00FFFFF700FFFFF700FFFFF700FFFFF700FFFFF700FFF7 + F700FFF7F700FFF7F700F7EFE700AD846B00F7E7DE00946B5A00BDBDB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A59CA500BDADBD000000000000000000EFA55A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008C8CC6008C84DE00A5A5E700C6C6F700E7E7 + FF00E7E7FF00C6C6F700ADADEF008C8CE7007B7BC60000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDAD + A50094736B00B5948C00D6AD9C00EFB5A500EFB5A500E7B5A500CEA59C00AD8C + 84008C7B7300BDBDBD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFF7F700AD846B00AD846B00BDBDBD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADADC6009494 + B5009494B500ADADC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DED6D600B5A5A5009C84730094736B00947B7300947B73009C847B00B5AD + AD00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AD84 + 6B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD846B00AD84 + 6B00AD846B00AD846B00AD846B00AD846B00CECECE0000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000C00000000100010000000000000900000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFE7FFFFFFFFFDFFFFFFFFFFFFC3E000FFFFF8FF + FFFFFFFFFF83E000FFFFF07FFEFFDFFFFF07E000FFE0003FFC7FDFFFFE0FE000 + FFE0001FFC3FBFFE0C1FE0007FE0000FFC3F3FF8003FE0007FE00007FE1E7FF0 + 007FE0007FE0007FFF0C7FE000FFE0007FE0007FFF80FFE000FFE0007FE0007F + FFC1FFC0007FE0007FE0007FFFC1FFC0007FE0007FE0007FFF80FFC0007FE000 + 7FE0007FFE0C7FC0007FE00007E0007FFC1E3FC0007FE0000FE0007FFC3F1FE0 + 00FFE0001FE000FFFC7FDFE000FFE0003FE000FFFFFFFFF001FFFFF07FE000FF + FFFFFFF803FFFFF8FFE000FFFFFFFFFE0FFFFFFDFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFFFFFFFFFFFFFFE0 + 0003FFFFFFFFFFFFFFFFFFE00003FFFFFFFFFFFFFFFFFFE00003FFFFFFFFFFFF + FF801FE00003FF800FFFFFFFFF801FE00003FF800FFFFFFFFF801FE00003FF80 + 0FFF9FFFFF801FE00003FF800FFF0FFFF8001FE00003F0000FFF0FFFF8001FE0 + 0003F0000FFE07FFF8001FE00003F0000FFC07FFF8001FE00003F0003FF843FF + F8001FE00003F0003FF1E3FFF8001FE00003F0003FFFE1FFF8003FE00003F000 + 3FFFF1FFF8007FE00003F0003FFFF8FFF801FFE00003F0003FFFFC7FF801FFE0 + 0003F0003FFFFE3FF803FFE00003F8003FFFFF8FF807FFE00003FF03FFFFFFFF + FFFFFFE00003FFFFFFFFFFFFFFFFFFE00007FFFFFFFFFFFFFFFFFFE0000FFFFF + FFFFFFFFFFFFFFE000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF + FFFF000000800003FFFFFF000000000000800001C1FFFF000000000000800001 + C0FFFF000000000000800001FF7FFF000000000000800001FE7FFF0000000000 + 00800001FEFFFF000000000000800001F18019000000000000800001F3800100 + 000080003F800001EF800100000080003F800001CFE00100000080003F800001 + CFE00100000080003F800001EE000100000080003F800001F000010000008000 + 3F800001F8000100000080003F800001FE000100000080003F800001FFE00100 + 000080003FF00001FFE00100000080003FF80001FFE00100000080003FFC0001 + FF800100000080003FFE0001FF801900000080003FFF0003FFFFDF0000008000 + 3FFFFFFFFFFFFFFFFFFF80003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0FFFFFFFF + FFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFFFFC3F01FF7FFFFFFFFFFFFFFFFC1F01 + FE7FFFFFFFFFFFFFFFF80601FC7FFFFFFBFFFFDFFFF00007F87FFFFFF9FFFF9F + FFF00007F0007FFFF8FFFF1FFFE0000FE00007FFF87FFE1FFFC00003C00007F8 + 003FFC001F800001E00007F8001FF8001F800000F00007F8000FF0001F000000 + F80007F8001FF8001F000000F80007F8003FFC001F000001F80007FFF87FFE1F + FF800003F80007FFF8FFFF1FFF800003F80007FFF9FFFF9FFF800007F80007FF + FBFFFFDFFFF0000FF80007FFFFFFFFFFFFF0001FF80007FFFFFFFFFFFFE1801F + F80007FFFFFFFFFFFF87803FFFFFFFFFFFFFFFFFFF8F807FFFFFFFFFFFFFFFFF + FF8F97FFFFFFFFFFFFFFFFFFFFBFFFFFFE007FFFFFF8FFFFFFFFFFFFFE007FFF + FFE0FFFFFFFFFFFFC0007FFFFFC0E00007FFFFFF00001FFF0780C00003FFFEFF + 00033FFE0700C00003FFFE7F00000FFC0001C00003FFFE3F00000FFC0003C000 + 03FFFE1F000007F80007C00003FE000F000003F8000FC00003E00007000001F8 + 000FC00003E00003000007F8000FC00003E00007000001E0000FC00003E0000F + 000001C00003C00003E0001F000003800003C00003E0001F000001000003C000 + 03E0001F000003000003C00003E0001F00000700000FC00003E0001F10000300 + 001FC00003E0001F00000100001FC00003E0001F00000000003FC00003E0001F + 8000800003FFC00003E0001FC000C0000FFFE00007FFFFFFF081E0801FFFFFFF + FFFFFFFFFF83F0F03FFFFFFFFFFFFFFFFFFFFFC000FFFFFFFFF80001E0000780 + 00FF8000FFF80003C00003800007000003F80001800001800007000001F00000 + 800000800007000003E0000000000180000700000FE000000000018000070000 + 0FF00000000001800007000007C00000000001800007000007C0000000000180 + 0007000003C00000000001800007000003F00000000001800003000001C00000 + 000001800003000001C00000000001800001000001C000010000018000010000 + 00C00001C00003800000000000E00001C00003800000000000800101E0000780 + 0000000000000001E001FFF8000100000F000003E003FFFC000700000F000007 + E003FFFC001F80781F00000FE003FFFE407FC0803F00000FE003FFFFC1FFFFC0 + FF00001FFFFFFFFFE7FFFFFFFFE13FFFFFFFFFFFFFFFFFFFC3FFFFFFFFFFFFFF + FFFFF00001E00007FC3FFFFF00FF800000800001E0003FFE00FF800000800001 + C0000FFE007F80000080000180000FFE001FE00000E00007C00007E0000FFFF0 + 01E00007C00007C0000FF80003E00007800007F0003FE00007E00007E0000FFF + 00FFC0000FE00007E0001FFF00FF80001FE00007E0001FFF007F00003FE00007 + E0001FFF001F00007FE00007C0001FFF000F00007FE00007800007FF80070000 + 7FE00007800003F0000700007FE00007800007E0180700007FE00007E0001FE0 + 000700007FE00007F6003FE0000700007FE00007F600FFF0000F0000FFE00007 + F403FFF0000F8000FFE0000FE10FFFF8001FC001FFE0001FF9BFFFFE007FE003 + FFE0003FFFFFFFFFC3FFF00FFFE0007F00000000000000000000000000000000 + 000000000000} + end + object ImageList3: TImageList + Height = 24 + Width = 24 + Left = 488 + Top = 136 + Bitmap = { + 494C01016F007200040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000B802000001002000000000000014 + 0400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7A56300FFCE8C00FFDEA500FFC6 + 8400FFBD7300FFBD7300FFC67300FFBD7300EF9C5200D68C4A00C6A58C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100DED6 + DE00F7EFEF00F7EFEF00F7EFDE00F7F7E700F7DECE00FFF7EF00FFFFFF00EFE7 + DE00C6633100CE6B3100CE633100CE633100CE633100CE633100CE633100CE63 + 3100CE633100CE6B3100CE6B3100CE6331000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F7AD6300FFD69400FFE7AD00FFCE8400F7BD + 6B00F7AD6300F7AD6300F7AD6300FFBD7300FFCE8400FFBD7300EF9C5200CE84 + 5200C6A594000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100DEDE + DE00FFF7EF00F7F7EF00F7F7E700F7EFDE00F7DECE00FFFFF700FFFFFF00EFCE + BD00CE633100CE633100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7BD6B00FFDEA500FFE7B500FFD69400F7CE8C00EFB5 + 7B00E7A56300EF9C5200EF9C5200EF944A00F79C5200FFBD7300FFD69400F7BD + 8400E7944A00CE84520000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100DEDE + DE00FFFFF700F7F7EF00F7F7EF00FFF7EF00FFEFE700FFFFFF00FFEFEF00D684 + 5200D66B3900CE6B3100CE633100CE633100CE633100CE633100CE633100CE63 + 3100CE633100CE633100CE633100CE6B31000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7BD6B00FFE7B500FFEFBD00FFDEA500FFD69400EFE7DE00EFE7 + E700E7CEC600CEBDAD00DEAD8400D69C6B00D6844200D67B3900E78C4200EFB5 + 7B00FFD69400EFB57B00D6844200C68C63000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100E7E7 + E700FFF7F700FFBD8C00FFBD8C00FFBD8C00E7DED600FFFFFF00FFEFE700D684 + 5200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFC67300FFEFBD00FFEFC600FFE7AD00FFD69400F7DEBD00FFF7FF00FFFF + FF00FFFFFF00FFFFFF00F7F7F700EFE7EF00E7DEDE00E7C6B500DEAD8400C68C + 6300D69C6B00E7BD9400F7D6AD00EFB57B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100EFF7 + F700FFF7F700F7F7F700FFF7F700F7F7EF00FFEFE700FFFFFF00FFF7F700EF8C + 5200D6733900CE6B3100CE633100CE633100CE633100CE633100CE633100CE63 + 3100CE633100CE633100CE633100CE6331000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFC6 + 7300FFEFC600FFF7CE00FFE7B500FFE7AD00FFDEA500EFE7DE00FFFFFF00FFF7 + F700FFF7F700FFF7F700FFF7F700FFF7FF00FFF7FF00FFF7FF00FFF7FF00F7F7 + FF00E7CEC600CE733900E7843900F7CE94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100EFEF + EF00FFFFF700FFF7EF00FFF7EF00FFF7F700F7E7D600FFFFF700FFFFFF00FFE7 + D600E7844A00D6733900CE633100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D66B31000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFD68400FFFF + D600FFFFD600FFEFBD00FFE7B500FFE7AD00F7DEBD00F7F7F700FFF7FF00FFF7 + F700F7F7F700FFF7F700FFF7F700F7F7F700F7EFEF00F7EFEF00F7EFEF00F7F7 + F700D6AD9400DE6B2100DE631000DE5A10000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100EFEF + EF00FFFFF700F7E7DE00F7EFE700F7E7DE00E7DED600FFF7EF00FFFFFF00FFFF + F700EF8C5200D6734200D6733900CE633100CE633100CE633100CE633100CE63 + 3100CE633100CE633100CE633100D66B39000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFCE8C00FFFFD600FFFF + E700FFF7CE00FFEFC600FFEFBD00FFE7AD00EFE7DE00FFF7FF00FFF7F700FFF7 + F700FFF7F700F7EFEF00EFE7EF00F7EFEF00EFE7EF00EFE7EF00F7F7F700E7C6 + B500D67B3900E7732900DE6B2100DE5A10000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100F7F7 + FF00FFFFF700FFE7D600F7E7DE00F7E7D600F7E7D600FFE7D600FFFFFF00FFFF + FF00FF945A00FF945A00E7844A00CE633100CE633100FFFFFF00FFFFFF00FFFF + FF00FFFFFF00CE633100CE633100D67339000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFD68400FFFFE700FFFFE700FFFF + D600FFF7CE00FFEFC600FFEFBD00F7DEBD00F7F7F700FFF7F700FFF7F700F7F7 + F700FFF7F700D6D6DE008C94AD00D6CED600E7DEDE00E7DEDE00DECECE00CE84 + 5200E77B2900E7732900DE6B2100E77B29000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100EFF7 + F700FFFFFF00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFFFFF00FFFF + FF00FFE7CE00FFAD7300FFBD8C00FFBD8C00CE633100CE633100CE633100CE63 + 3100CE633100CE633100EF8C5200FF945A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFD68400FFE7B500FFFFE700FFFF + E700FFFFD600FFF7CE00FFE7BD00EFE7DE00FFF7FF00F7F7F700F7F7F700F7EF + EF00FFF7F700D6D6DE009CADCE009CADCE00CEC6CE00E7DEDE00C69C7B00D67B + 3900D67B3900DE6B2100E7843900E78C42000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100F7F7 + FF00FFFFFF00FFFFFF00FFFFF700FFFFF700FFFFF700FFFFF700F7E7D600FFF7 + F700FFFFFF00FFEFE700FFD6A500FFBD8C00FFBD8C00CE633100CE633100CE63 + 3100CE633100FFAD7300FFAD7300FFAD73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFD69400FFD68400FFE7 + B500FFFFD600FFF7CE00EFDEC600F7EFEF00FFF7F700F7F7F700F7F7F700F7EF + EF00F7EFEF00D6DEE700CEE7FF00D6E7FF009CADCE00BDA59C00D6844200D67B + 3900D67B3900D67B3900D67B3900000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF0000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100F7F7 + FF00FFFFFF00EFCEAD00EFCEB500EFCEB500EFCEB500EFCEB500EFCEAD00F7DE + CE00FFFFFF00FFFFFF00FFFFEF00FFE7B500FFD6A500FFBD8C00FFBD8C00FFBD + 8C00FFBD8C00FFBD8C00FFBD8C00FFEFDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFD6 + 8400FFD68400FFE7B500EFE7DE00FFF7F700F7F7F700F7F7F700F7EFEF00F7EF + EF00FFEFEF00CED6EF00ADDEF700B5EFFF0094DEFF008C94AD00E7843900D684 + 4200D6844200D6844200CEB59400000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF0000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100F7FF + FF00FFFFFF00F7DEC600F7DECE00F7DECE00F7DECE00F7DECE00F7DEC600F7DE + CE00E7DED600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFE7BD00EFC69400F7EFEF00FFF7FF00F7F7F700F7EFEF00F7EFEF00F7EF + EF00FFEFEF00CED6EF007BE7FF007BE7FF007BE7FF0073B5E700C68C6300EF94 + 4A00D68C4A00CEBDAD0000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100F7FF + FF00FFFFFF00FFF7EF00FFF7F700FFF7F700FFF7F700FFF7EF00FFF7EF00FFF7 + EF00FFF7EF00FFF7E700E7DED600FFFFF700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFF700FFEFDE00F7E7DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFE7E700EFE7E700F7EFEF00F7F7F700F7F7F700F7EF + EF00F7EFEF00EFE7EF007BE7FF007BE7FF0073D6FF006BCEFF008C94AD00EF9C + 5200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00F7EFE700F7E7DE00F7E7DE00F7E7DE00F7E7DE00F7E7DE00F7E7 + DE00F7E7DE00F7E7DE00F7DED600FFE7D600E7DED600FFFFF700E7DED600E7DE + D600FFEFDE00FFE7D600C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E7CEA500E7C6B500EFE7 + DE00F7EFEF00FFEFEF00ADDEF7005AEFFF005ADEFF005ADEFF006B9CCE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFF7EF00FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7 + F700FFF7F700F7F7F700FFF7F700F7EFEF00F7F7EF00E7DED600F7EFE700F7F7 + E700F7EFDE00F7EFE700C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFB5 + 6B00F7BD8400F7D6AD00E7CEA50063DEEF005AEFFF004AD6FF004ABDFF006B9C + CE00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF0000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD + 8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD8C00FFBD + 8C00FFF7EF00FFEFDE00C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFC68400F7BD6B00FFC6730094BDAD0039E7FF004AD6FF004ABDFF004A8C + D600000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF0000000000000000000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFF700FFFFF700FFFFF700FFF7F700FFF7F700F7F7F700FFF7 + EF00FFF7EF00EFE7DE00C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFBD7300D6B58C0031D6FF0031D6FF0031D6FF00298C + EF008C94AD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7FFFF00FFFFFF00FFF7F700FFF7F700FFFFF700F7F7 + F700FFF7EF00F7EFE700C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFF7F7007BE7FF0010E7FF0031D6FF0029AD + FF004A8CD6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00F7F7F700FFFFF700C6633100C6633100C663 + 3100C6633100C6633100C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000018DEFF0000DEFF0010B5 + FF00298CEF008C94AD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFF7F700C6633100DEA58400CE8C + 3100CE8C3100BD732900C6633100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005ADEFF0000DEFF0000C6 + FF00109CFF004A8CD60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6633100EFD6BD00EFCE + 8C00B5847B00D6BDBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000DEFF0000C6 + FF0010B5FF00298CEF009CADCE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6633100F7EFE700C69C + 8C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000031D6FF0018DE + FF0094DEFF009CC6F70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7FFFF00C6633100EFD6CE00E7DE + D600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000094DEFF0073D6 + FF00CED6EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6633100C663 + 3100C6633100C6633100C6633100C6633100C6633100C6633100C6633100C663 + 3100C6633100C6633100C6633100C6633100C6633100C6633100E7DED6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECECE0073737300DEDE + D600B5B5EF002121C6004242CE004242CE00B5B5DE00EFEFEF00EFE7E700E7E7 + E700E7E7E700E7DEDE00A59C9C004A4242005242420094847300B59C9400AD9C + 8C009C8C8400735A5A0029313100005A7B0000000000429CCE002994CE002994 + CE00319CCE00399CCE003984AD00528CAD005A94BD005284A5005A94BD008C94 + 9C00C6C6C600E7E7E700E7E7E700E7E7E700DEDEDE00CECECE00CECECE00CECE + CE00CECECE00CECECE00D6CECE00D6CED600000000000000000000000000F7EF + EF00EFF7EF00BDC6CE0073848C00CECECE00FFFFFF00F7F7F700F7F7F700F7F7 + F700FFFFFF00FFFFFF00FFFFFF00EFEFEF00E7DEDE00CEC6C600BDBDB500ADB5 + B50094A5B500A5BDC600CEDEDE00E7EFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ADA58400DEC6A5009C947B0000000000000000000000 + 00000000000000000000000000000000000000000000CECECE0073737300E7E7 + DE00A5A5E7001818C600C6C6E7007373D6005A5AD600D6DEDE007394B500DEDE + E700CED6DE008C9CAD005A5A520073636300CEB5AD00DEC6BD00D6BDB500CEBD + AD00C6ADA500BD9C9C0073524A0018313100C6D6DE00398CBD00399CCE002994 + CE004AA5D600317BAD00737B8400D6D6D600EFEFEF00EFEFEF009CBDD6007B94 + A500B5B5B500E7E7DE00E7E7E700EFEFEF00EFEFEF00EFEFEF00E7DEE700D6D6 + D600D6D6D600D6CED600D6CED600D6CED6000000000000000000000000000000 + 0000F7F7F700E7E7E7007B8C9C008C949C00F7F7F700FFFFFF00F7F7F700F7F7 + F700FFF7F700F7F7F700E7E7E700D6D6D600C6C6C600C6BDBD00BDBDBD00C6BD + B500B5B5B500A5ADB500A5B5BD00A5BDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A5A57B00F7D6B500EFD6BD00A59C8400000000000000 + 00000000000000000000000000000000000000000000CECECE0073737300DEDE + DE00EFEFFF005252D6002121C6003939CE002929C600ADB5DE009CB5C600DEE7 + E700D6DEE7007B8C9400524A4A00A5A5A500D6CEC600E7D6C600DECEBD00D6C6 + B500CEBDAD00CEADA5009C847B0052423900F7F7F700428CB50052A5D600399C + CE006BB5DE0031739C0063636B009C9C9C00B5B5B500BDBDB5009CADB5006B9C + B5009C9CA500DEDEDE00EFEFEF00EFEFEF00F7F7F700F7F7F700F7F7F700F7F7 + F700EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000F7F7F700F7F7F700ADB5BD006B7B8C00C6C6C600FFFFFF00FFFFFF00FFFF + FF00F7F7F700E7E7E700D6D6D600C6C6C600C6BDC600BDBDBD00B5B5B500B5AD + B500BDBDB500B5B5AD00B5ADAD00B5BDBD000000000000000000000000000000 + 00009CB5A5009CB5AD007B8C84006B847300637B6300526B5A0042634A00315A + 3900214A21002942210094947300EFD6B500EFCEB500EFD6BD008C8C73002131 + 18001839180000000000000000000000000000000000CECECE0073737300DEDE + DE00FFFFFF00E7E7F7008484E7003131CE000000BD009494DE00FFFFF700F7F7 + EF00F7F7F7007B7373007B737300C6CECE00DED6CE00EFDED600E7DECE00DED6 + C600D6C6B500CEBDAD00A58C8400846B6300FFFFFF006394AD0063ADD6004AA5 + D60073BDDE004A94C60031637B00425A6B004A637300526373004A6373005294 + BD008C8C9400CECECE00EFEFEF00EFEFEF00F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000F7F7EF00EFEFF700C6D6DE0063849C008C949C00EFE7E700FFFFFF00F7F7 + F700E7E7E700D6CED600CECECE00CECECE00C6C6C600B5BDBD00C6BDBD00CECE + CE00BDBDBD00D6CECE00E7DEDE00CEC6C6000000000000000000000000000000 + 0000A5BDB500B5CEC600ADBDB500A5BDB500A5BDB500A5B5B5009CB5AD0094AD + 9C0084A5940084948400ADB59C00EFD6BD00E7C6AD00EFD6B500E7DEBD007B7B + 630031423100395A4A00395A42002952290000000000CECECE0073737300DEDE + DE00FFFFFF00FFFFFF0094ADC600738CBD005252D6001010C6008484DE00D6CE + E700F7F7F7006B6B6300948C8C00F7EFEF00F7E7E700CECEC600CEC6BD00EFE7 + D600DECEC600D6C6B500AD948C009C847B00FFFFFF008CADC60063ADCE005AAD + D6007BBDDE0094C6DE0063A5C6005A94B5005284AD005284AD00527B9C00528C + B5007B949C00BDBDBD00EFEFEF00F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000EFEFEF00DEE7EF00C6DEEF009CBDCE0073849400B5B5BD00FFFFF700F7F7 + F700D6D6D600CECECE00CECECE00CECECE00CECECE00DED6D600CECECE00ADB5 + B500B5BDBD00A5ADAD007B848C008C9C9C000000000000000000000000000000 + 00000000000000000000849C9400B5C6C600B5C6CE00B5C6C600B5C6C600B5CE + C600BDCECE00B5C6BD00BDBDB500E7D6C600EFD6B500E7C6A500F7DEBD00E7D6 + B500948C84006B7B7300738C7B00395A390000000000CECECE0073737300DEDE + DE00FFFFFF00FFFFFF00C6D6DE00C6D6DE00C6BDEF000808BD000000BD000808 + C6006B6BDE006B6363009C9C9400FFF7F700FFF7EF00E7DEDE00D6CECE00E7D6 + D600DECECE00DECEBD00AD9C8C009C8C7B00FFFFFF00BDCED6005A9CC60073B5 + DE007BBDDE00A5D6EF00BDD6E700C6DEE700C6DEE700C6DEE700BDD6DE008CAD + C600739CBD00A5A59C00E7DEE700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700000000000000000000000000F7EF + EF00E7EFEF00C6D6E700C6DEEF00D6EFF700849CB50073848C00DEDED600EFEF + EF00CECECE00CECECE00D6D6CE00C6C6C600BDBDBD008C949C0063738400737B + 8C005A6B7300425263006B7B840063737B000000000000000000000000000000 + 000000000000000000006B8C7B00C6D6D600B5C6CE00A5B5BD00A5ADB500B5C6 + CE00BDCECE00B5C6CE00B5BDBD00CEC6BD00EFDEC600E7C6A500E7CEA500FFE7 + C600DECEBD008C8C84007B847B004A6B520000000000CECECE0073737300DEDE + DE00FFFFFF00E7EFEF00A5BDCE00FFFFFF00EFEFF7004242CE000000BD005A5A + D6001010CE0008087B006B6B6B00D6CEE700DED6EF00CEC6E700B5ADD600B5A5 + C600AD9CC600CEBDBD00AD9C8C0073635A00FFFFFF00E7EFF7005294BD008CC6 + E7008CC6E700ADD6EF00BDDEEF00C6DEEF00C6DEEF00C6DEEF00C6DEE700ADC6 + D6006BA5C6008C949400CED6CE00F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700000000000000000000000000F7F7 + F700DEE7EF00B5CEE700DEEFFF00DEF7F70084A5B5004A63730094949C00D6D6 + D600CECEC600C6C6BD00BDBDBD0084949C004A5A6B005A6B7B007B8C94007B8C + 940094A5A500CED6D600CECECE00CECECE000000000000000000000000000000 + 0000000000000000000073947B00CEDEE700BDCEDE00ADBDC600ADB5C600B5BD + CE00B5BDCE00ADBDCE00A5B5BD00B5B5B500E7DEC600EFD6BD00DEC69C00EFCE + AD00F7DEC600CEC6B5007B847B003952420000000000CECECE0073737300DEE7 + DE00FFFFFF00D6E7E7006B8CAD00EFF7F700FFFFFF009494E7001010C600BDB5 + E700CECEEF007373CE0042394A008484A500A59CE7009C9CDE00C6BDDE00C6B5 + CE00AD9CC600BDB5C6009C94840039313100FFFFFF00FFFFFF00739CB500A5CE + E7009CCEE700BDDEEF00C6E7F700CEE7F700CEE7F700CEE7F700CEE7F700C6DE + E7007BADC6007B94AD00B5B5B500EFEFEF00F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700000000000000000000000000F7F7 + F700CEDEE70094C6DE00D6EFFF00ADCEDE008C9CA5006B7B84005A738400A5A5 + AD00CEC6C600C6C6BD008C9CA50042637B005A738C00BDC6C600D6D6D600E7E7 + E700FFFFFF00F7F7F700F7F7F700FFFFFF000000000000000000000000000000 + 00000000000000000000849C9400DEE7EF00C6D6DE00B5C6CE00BDCED600BDC6 + D600BDC6D600B5C6DE00ADBDD600B5BDC600CECEBD00EFE7C600EFCEAD00E7C6 + A500F7D6B500F7E7C600BDB59C00394A310000000000CECECE0073737300DEE7 + DE00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFFF00E7E7F7003131CE004A4A + D600FFFFF700E7E7EF004A428C00312942008484A500B5B5DE00B5B5DE00ADA5 + D600ADA5C6009C949400423931004A4A4A00FFFFFF00FFFFFF00C6D6DE006BA5 + C600CEE7F700D6E7F700D6E7F700D6EFF700D6E7F700D6EFF700D6E7F700D6E7 + EF00A5BDCE006B9CBD009C9C9C00DEDEDE00F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700000000000000000000000000F7F7 + F700CED6DE0073ADC6008CC6E70084B5D6007B9CAD0094ADBD005A8CAD00637B + 9400ADADAD00ADB5B5001039520010ADAD0021B5B500215A6B008C9CAD00EFEF + EF0000000000F7F7F700F7F7F700EFEFEF000000000000000000000000000000 + 00000000000000000000A5BDB500E7EFF700C6D6DE00BDCED600C6D6DE00C6CE + DE00C6D6DE00BDD6DE00BDCEDE00BDCED600BDC6C600DED6C600F7DEC600EFCE + AD00E7C6A500F7DEBD00EFDEBD008C8C6B0000000000CECECE0073737300DEE7 + DE00FFFFFF00DEE7EF007B9CBD00EFF7F700FFFFFF00FFFFFF009C9CE7001010 + C600B5B5EF003939CE003939C600948C94006B63630073737300949494009494 + 9400847B7B0042393900393939008C8C8C00FFFFFF00FFFFFF00FFFFFF00B5C6 + D6005A94B5008CC6DE00B5D6EF00D6E7F700DEEFF700E7F7F700EFF7FF00E7F7 + F700D6DEE70073ADCE008C949C00C6C6C600F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000E7E7E70084A5BD005AA5C6005AADD60063A5C60073B5DE004AA5D600427B + A50073849400425A7B00086B7B0029EFE70021FFEF0063DEE7004A7B8C001839 + 63008494AD00EFEFEF0000000000000000000000000000000000000000000000 + 00000000000000000000C6D6D600E7F7F700CEDEE700BDD6DE00BDCEDE00C6CE + DE00C6D6DE00C6D6DE00BDD6DE00C6D6E700BDCED600C6C6C600EFDEC600FFDE + BD00E7C6AD00E7CEAD00FFE7BD00EFDEBD0000000000CECECE0073737300DEE7 + DE00FFFFFF00DEEFEF0084A5BD00F7FFF700FFFFFF00FFFFFF00E7E7F7001818 + C6002929C6001818C600C6C6EF00FFFFF700E7E7E700A59C9C006B6B6B00736B + 6B007B7B7B00CECECE008C8C8C008C8C8C00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00EFEFF700A5BDCE00739CB5006B9CB500528CAD005294B5006BA5C60073AD + CE007BADCE006B9CBD00739CB500ADA5AD00E7E7E700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000F7F7EF00CED6D6007BA5BD00529CCE00429CD6004AADDE0052ADE7005A9C + BD0052738400184A6B0018C6CE0021FFFF0018FFEF005AFFFF0094F7FF006BAD + BD00316384008C9CB500DEE7EF00000000000000000000000000000000000000 + 000000000000000000009CBDAD00EFF7FF00CEE7EF00C6D6E700C6D6E700C6D6 + E700C6D6DE00C6D6DE00C6D6DE00C6D6E700BDD6DE00C6CECE00DED6C600F7E7 + CE00EFDEBD00E7CEA500EFD6AD00FFE7C60000000000CECECE0073737300DEE7 + DE00FFFFFF00FFFFFF00E7F7EF00DEE7EF00FFFFFF00FFFFFF00E7E7F7001818 + CE000000C6009494E700FFFFF700F7F7F700EFEFEF00D6DEE700F7F7F700F7F7 + F700F7F7F700F7F7F7008C8C8C008C8C8C00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700E7EFEF00DEE7E700C6D6 + DE00BDCED6009CB5CE0073ADC60094949400D6D6D600F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 000000000000E7E7E700BDBDC60073A5BD005AADD6005AB5DE0063A5CE007B9C + B5003152730010849C0018FFFF0010FFFF0052FFFF0052F7F70084FFFF0084FF + FF0052CEDE00297B9C00295A8400ADD6E7000000000000000000000000000000 + 0000000000009CBDAD00EFFFFF00DEEFF700C6D6E700C6DEE700CEDEE700CED6 + E700CED6E700CED6E700C6D6DE00BDD6DE00C6DEE700C6D6DE00C6C6C600DED6 + C600F7E7C600F7DEBD00E7CEAD00EFD6B50000000000CECECE0073737300DEE7 + DE00FFFFFF00FFFFFF0084A5BD007B9CBD00FFFFFF00FFFFFF00B5B5EF000000 + C6001010CE00DEDEF700FFFFF700FFFFF700CED6DE005284A500DEE7E700EFEF + EF00EFEFEF00EFEFEF008C8C8C008C8C8C00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ADCEDE007B9CAD00B5ADAD00EFEFEF00F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 00000000000000000000DEE7E700A5B5BD007B9CB5006394AD0084A5B500A5AD + C600084A730010E7E70008FFFF0039FFFF0052F7F70084FFFF007BE7F70031C6 + D60010DEEF0042E7F700317B9C0018426B000000000000000000000000000000 + 00004A735200D6EFE700EFFFFF00CED6DE00C6D6DE00C6D6E700C6D6E700C6D6 + DE00CED6E700CEDEE700C6D6DE00BDD6DE00C6DEE700C6DEE700C6CED600D6D6 + CE00EFE7CE00FFEFCE00F7DEBD00E7CEAD0000000000CECECE0073737300DEE7 + DE00FFFFFF00FFFFFF00EFF7F700EFF7EF00B5C6D600B5BDDE003939D6002121 + C6003939D600FFFFFF00F7F7F700A5BDCE00CED6DE00E7EFEF00EFEFEF00F7EF + EF00EFEFEF00EFEFEF008C8C8C0094949400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7EFF70073ADC60094949400D6D6D600F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00ADB5B500ADBDBD00BDC6CE005A7B + A50021A5BD0008FFFF0018FFFF0063FFFF0063F7FF0084FFFF004ACEE70018CE + DE0000BDCE00088CA50031638C00637B9C000000000000000000000000000000 + 0000A5B5AD00F7FFFF00D6E7EF00C6CEDE00CED6E700BDCEDE00C6D6DE00C6D6 + DE00C6D6E700CEDEE700CEDEE700C6D6DE00BDD6DE00D6E7EF00DEF7F700E7F7 + F700B5BDA500ADB58C00F7E7C600FFE7CE0000000000CECECE0073737300DEE7 + DE00FFFFFF00F7FFF700FFFFFF00F7FFF70094B5C60094A5D6003939D600A5A5 + EF004242CE00B5C6D600EFEFF7008CA5C600C6D6DE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF009494940094949400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00A5C6DE007B94A500B5B5B500EFEFEF00F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF008CADCE000073 + 8C0029F7F70018FFFF004AFFFF006BF7F7008CFFFF007BFFFF0039EFF70010D6 + E700007B940039738C006B7B9C00394A63000000000000000000000000005A7B + 6300DEEFEF00EFF7FF00C6CEDE00BDCED600C6D6E700BDCEDE00C6D6DE00C6DE + DE00C6D6DE00C6D6DE00C6D6E700CED6E700BDCED600CEDEDE00E7FFFF00CEEF + E700396B42000000000094AD7300EFE7C60000000000CECECE0073737300DEE7 + DE00FFFFFF00F7FFF700F7FFF700F7FFF700FFFFFF00CED6EF003942CE00B5B5 + EF002129BD006394AD00EFEFF700FFFFFF00FFFFFF00D6D6D600A59CA500A5A5 + A500A5A5A500A5A5A5006363630094949400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7EFEF0073A5C6008C949400DEDEDE00F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 00000000000000000000000000000000000000000000DEE7EF00315A8C0021C6 + D60000FFF70039FFFF0073FFFF0073FFFF009CFFEF0094FFFF0039E7E70010CE + DE0018849C0029425A0084848C00E7E7E700000000000000000000000000ADC6 + B500EFFFFF00D6DEEF00BDCED600BDCED600C6CEDE00C6D6E700C6D6DE00C6D6 + DE00C6D6DE00C6D6E700C6CEE700CED6E700C6D6DE00D6E7E700EFFFFF008CAD + 94000000000000000000000000006B84520000000000CECECE0073737300DEE7 + DE00FFFFFF00F7FFF700F7FFF700F7FFF700FFFFFF00E7EFF7005252D6002121 + CE00848CDE00FFFFF700F7FFF700FFFFFF00FFFFFF007B7B7B00848C84009CA5 + 9C00A5ADA5008C8C8400424A4200BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009CC6DE00738C9C00ADADAD00EFEF + EF00F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF007B94BD000863940010D6 + EF0000E7E70042FFFF007BFFFF008CFFFF0094FFE700A5F7FF0042DEF70008D6 + E70000636B008C94940000000000000000000000000000000000738C8400DEEF + EF00D6E7F700B5C6D600BDCED600BDCEDE00BDCED600C6D6DE00C6D6DE00BDCE + DE00BDCED600BDCEDE00BDCEDE00C6CEDE00D6E7EF00DEEFF700D6EFE7006384 + 63000000000000000000000000000000000000000000D6D6D60073737300DEE7 + DE00FFFFFF00F7FFF700F7FFF700F7FFF700F7FFF700FFFFFF00D6D6F7007B84 + DE00EFF7F700FFFFFF00F7FFF700F7FFF700FFFFFF0084848400E7E7DE00FFFF + FF00F7FFF7008C948C00B5B5B500EFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7EFEF0073A5C60084848C00D6D6 + D600F7F7F700F7F7F700F7F7F700DEDEDE000000000000000000000000000000 + 000000000000000000000000000000000000E7EFEF00B5BDD60010426300108C + 9C0039DEDE006BFFF70094FFFF0094FFF700B5FFEF00BDF7FF0052E7FF0008D6 + DE0010737B00E7E7E70000000000000000000000000000000000ADBDB500DEEF + F700BDCEDE00ADBDCE00ADBDCE00B5C6CE00B5C6CE00B5C6D600B5C6D600ADC6 + CE00B5C6CE00B5C6CE00B5C6CE00B5C6CE00BDCED600D6E7EF00B5CEC6005273 + 5A000000000000000000000000000000000000000000D6D6D60073737300DEE7 + DE00FFFFFF00F7FFF700F7FFF700F7FFF700F7FFF700F7FFF700FFFFFF00FFFF + FF00FFFFF700F7FFF700F7FFF700F7FFF700FFFFFF0084848400DEE7DE00F7FF + F700848C8400ADADAD000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00ADCEDE007394AD00A5A5 + A500EFEFEF00FFFFFF00EFEFEF00ADADAD000000000000000000000000000000 + 00000000000000000000000000000000000000000000E7E7EF00525263000829 + 31002163630094EFEF00ADFFFF00ADFFF700B5F7FF00B5FFFF0029D6EF0000DE + E700086B7300E7E7E70000000000000000000000000000000000B5CECE00CED6 + DE00ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBD + C600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600C6D6DE00A5BDBD005273 + 5A000000000000000000000000000000000000000000D6D6D60073737300DEE7 + DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848C8400CED6CE00848C + 8400A5A5A500E7E7E7000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEFF70084B5CE00848C + 8C00CECECE00F7F7F700D6CED60084848C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CECECE00E7E7 + E700294A4A00A5EFEF00A5FFFF00ADFFFF0073FFFF0042E7F70010F7FF0018F7 + FF00186B7300E7E7E70000000000000000000000000000000000A5BDB500BDCE + CE00B5BDC600B5C6C600B5C6C600B5C6C600B5C6C600B5C6C600B5C6C600B5C6 + C600B5C6C600B5C6C600B5C6C600B5BDC600B5BDC600BDC6CE00ADBDB5005A84 + 63000000000000000000000000000000000000000000DEDEDE006B736B00BDC6 + BD00DEE7DE00DEE7DE00DEE7DE00DEE7DE00DEE7DE00DEE7DE00DEE7DE00DEE7 + DE00DEE7DE00DEE7DE00DEE7DE00DEE7DE00E7E7E700636B63006B6B6B00ADAD + AD00E7E7E700F7F7F7000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6D6E700739C + B50094949400D6D6D6009C9C9C005A7384000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000396363008CF7FF0063F7FF004ADEF70000DEDE0018EFF70018E7EF000094 + 9C0029525A00EFE7E7000000000000000000000000000000000084A58C009CB5 + AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5 + AD009CADAD009CB5AD009CADAD009CADAD009CB5AD009CB5AD009CB5AD00739C + 7B000000000000000000000000000000000000000000000000008C8C8C006B73 + 6B00737B73007373730073737300737373007373730073737300737373007373 + 730073737300737373007373730073737300737B730063636300B5B5B500EFEF + EF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0094BD + D600738C940094949400737B84005A7B94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029525A0042BDC60021DEE70008DEEF0021D6DE00108C9C0000525A004A73 + 7B00DEDEE70000000000000000000000000000000000000000007BA5840084A5 + 840084A58C007BA584007BA584007B9C84007BA584007BA584007BA584007BA5 + 84007BA584007B9C84007B9C84007B9C84007BA584007B9C84007B9C84000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D6D6D600D6D6D600CECECE00CECECE00CECECE00CECECE00CECECE00CECE + CE00CECECE00CECECE00D6D6D600D6D6D600D6D6D600D6D6D600000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7EF + EF0073A5C6006B737B005A7B94009CA5AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B8C8C0008525A0018949C000894A500104A5A005A6B7B00E7E7E7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFEFF700000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00CEDEE7006B94B500A5BDC600F7F7F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6CE0031394A004A5A7300E7DEE70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DE8C4200FFE7 + CE00FFDEBD00FFBD7B00FFB56300FFAD6300FFAD5A00FFAD5A00E7944A00F794 + 3100F7B56B00F7E7B500FFEFBD00FFEFBD00F7DE6300F7E79400FFEFC600F7DE + B500F7A55200E78C3100DE945200F7B56B0000000000A59C9C00DEDED600DED6 + CE00C6B5A500BD9C8400C6946B00D6946B00D6845A00C67B4200CE7B4200CE7B + 4A00CE734200BD5A2900B54A0800AD420000AD420000B5420800AD3900009431 + 00008C2900008C3908008C4A1000945221000000000094522100944A2100944A + 29008C3921008C3921008C312100AD5A3900BD733900BD733900BD733900BD73 + 3900BD7B4200C67B4200C67B4200C67B4A00BD844200C6844200C67B4200BD7B + 4A00AD735200B58C7B00A5948400DED6CE000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00EFE7EF00B5B5B500CECECE00BDA5AD009C527300A552 + 7300A5738C00AD8C9C00AD9CA500AD9CA500BDA5AD00CEB5B500DEC6CE00D6C6 + CE00EFD6DE00F7DEE700F7E7EF00FFDEE70000000000E7BD9C00E7A56300FFEF + D600FFE7C600FFD6AD00FFB57300FFB56B00FFB56300E79C5200F7943100F7B5 + 6300F7E7B500FFEFC600FFEFBD00FFEFBD00F7DE6B00F7DE6B00F7E79400FFEF + C600EFDEAD00F7A54200E7944200E7A56B00BDB5B500CECECE00DEDED600D6CE + C600BDA59400C69C7B00D6947300DE9C7300D6946B00D68C5A00D6845200CE73 + 4A00CE734A00CE633900B54A1000A5310000A5310000A5310000A52900009C29 + 00008C310000B56B4200CE946300D6A57300CE9C6B00C6946B00BD8C6300BD84 + 6300BD7B6300B5736300A5635200B56B5200CE8C5200CE845200C6844A00C67B + 4A00C67B4A00C67B4A00C6844A00CE844A00CE844A00CE844200CE7B4200BD73 + 4200BD846300B5948400B5AD9C00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00E7DEDE00BDB5B500DECED600B59CAD00C69CB500CE9C + B5008C6B7B00AD94A500A5949C00A59C9C00CEBDBD00EFDEDE00E7D6D600E7DE + DE00FFF7FF00FFF7FF00F7EFF700FFF7F70000000000DEA57300F7C69400FFEF + D600FFE7CE00FFE7C600FFD6AD00FFBD7B00EFA55A00EF943900F7AD5200F7DE + AD00FFEFC600FFEFC600FFEFBD00FFEFBD00FFE79400F7D66300F7DE7B00F7E7 + A500F7EFCE00F7D69C00F79C3900E79C4A00C6C6BD00D6D6D600DED6D600C6B5 + AD00BD9C8C00C6947B00DE9C7B00D69C7B00D69C7300D68C6300D6845A00CE7B + 5200CE6B4A00CE6B4A00CE633900C65A3900C6523900C6523900C65A3900C65A + 4200AD5A4200DEA58400FFE7C600FFDEBD00F7DEBD00F7D6B500F7CEB500EFC6 + AD00EFBDAD00E7B5A500B5847300C6947B00F7BD9400EFB58C00EFB58C00E7AD + 8400D6A57300CE9C6B00C6946300BD845A00CE845200C6734200B56B3900B57B + 5200BD947B00A5948C00DEDED600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6CED600BDB5BD00DED6D600B59CA500B584A500B584 + 9C009C849400A5949C008C848C00B5ADAD00DED6DE00F7EFEF00F7EFEF00FFF7 + F700FFFFFF00FFF7FF00FFFFFF00FFF7F70000000000DE9C6300FFE7C600FFEF + D600FFE7CE00FFE7CE00FFE7C600EFCEA500EF9C4A00F7A54A00EFD6A500FFEF + C600FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFB500F7DE6B00F7DE7B00F7DE + 9400F7E7B500F7E7CE00EFC68C00F79C3900F7F7F700DEDEDE00CEC6BD00AD9C + 9400B5948C00CE9C8400E7A58C00DEA58400D6947300D68C5A00CE7B4A00C673 + 4A00C6734A00C66B5200C66B5200BD6B5200C6735200C6735A00CE7B5A00CE7B + 6300DE947B00C68C7300BD8C7300BD947300B5947300BD947300BD947300BD94 + 7B00B58C7300BD947B00BD8C7300DEB59C00E7BD9C00E7C6A500EFC6A500EFC6 + A500F7CEAD00F7CEAD00EFC6A500E7BD9400DEA57B00C68C5A00AD7B5200BD94 + 7300AD947B00BDB5AD00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00C6C6C600C6C6C600DED6DE00BD9CAD00AD6B8C009C5A + 7B00A58C94009C949400847B7B00CECECE00FFF7F700F7F7FF00FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000DE9C6300FFEFDE00FFEF + DE00FFEFD600FFE7D600EFD6BD00E7A56B00F79C4200EFCE9400FFEFC600FFEF + C600FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00F7DE7B00F7DE7B00F7DE + 9400F7E7B500F7E7C600F7EFCE00EFBD8400FFFFFF00FFFFFF00F7F7F700B5A5 + 9C00AD948400CEA58C00DEA58C00DEA58C00D6947300D68C5A00CE7B5200C67B + 5200C6735200BD735200BD735A00BD7B5A00C6845A00CE846300CE846300D68C + 6B00DEA57B00E7AD8C00DEB58C00DEB59400DEB59400DEBD9C00E7BD9C00E7BD + 9C00E7BD9C00E7BD9C00EFC69C00E7C6A500E7C6AD00E7C6AD00E7C6AD00E7C6 + AD00EFCEAD00EFCEB500EFCEB500EFCEB500EFCEAD00E7C69C00D6AD8C00BD9C + 8400AD9C9400EFEFE700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7F7F700BDBDB500D6CECE00E7D6DE00AD8C9C00C694AD00BD94 + AD009C8C940084848C00737B7B00DEDEE700F7FFFF00F7FFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000E79C5A00FFFFF700FFEF + DE00FFEFDE00F7DECE00E7AD7B00F79C3900EFC69400FFE7C600FFEFC600FFEF + C600FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00FFDE8C00F7DE7B00F7DE + 9400F7E7B500F7E7BD00F7E7CE00F7E7C600FFFFFF00FFFFFF00F7F7F700ADA5 + 9C00B59C8C00C6A58C00C6A58C00D6A58C00D69C7B00D68C6300CE845200CE7B + 5200C67B5A00C67B5A00C67B6300CE846300CE8C6300D6946B00D6946B00D69C + 7300DEAD8400DEBD9400DEBD9400DEBD9C00DEBD9C00E7BD9C00E7C69C00E7C6 + 9C00E7C69C00E7C6A500E7CEA500E7CEA500E7CEAD00E7CEAD00E7CEB500E7CE + B500EFCEB500EFD6BD00EFCEB500E7CEB500E7CEB500DEC6AD00D6C6AD00C6B5 + A500CEC6BD00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00FFFFFF00EFEFEF00B5B5B500DED6D600E7CED600AD8C9C00CEADBD00BDA5 + B500948C94007B84840073737B00DEDEEF00EFEFFF00EFEFF700FFF7F700FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF0000000000E7AD7300FFFFF700FFF7 + E700FFEFD600E7BD8C00F7943100EFB56B00EFD6AD00F7DEB500F7E7BD00FFEF + C600FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00FFE79400F7DE7B00F7DE + 9400F7E7B500F7E7BD00F7DEB500F7DEB500FFFFFF00FFFFFF00D6D6CE00A594 + 8C00B5A59400BDA59400BDA58C00BD9C8400C69C7B00C6946B00C68C6300CE8C + 6300CE846300CE8C6B00D68C7300DE947300DE9C7300E79C7B00DEA57B00DEA5 + 8400DEAD8C00E7BD9C00DEC69C00E7C6A500E7C6A500E7C6A500E7C6AD00EFC6 + AD00E7C6A500E7CEAD00E7CEAD00E7CEAD00E7CEB500E7CEB500EFCEB500EFCE + B500EFD6BD00EFD6BD00EFD6BD00EFD6BD00E7CEBD00D6C6AD00D6C6B500BDB5 + AD00FFF7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00E7E7E700ADB5B500E7E7E700DED6D600CEB5BD00BD8CA500B58C + 9C00948C8C006B73730073738400DEDEEF00EFE7EF00B5A5AD00CEBDC600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000EFBD8C00FFF7F700FFF7 + E700F7DEBD00EF943900F78C2900EF9C4200EF9C4200EF9C4200EFC68400FFEF + C600FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00FFE78C00F7DE7B00F7DE + 9400F7E7B500F7DEB500EFAD6300EF9C4200FFFFFF00FFFFFF00ADADA500AD9C + 9400BDA59C00BDA59400BDA59400B59C8C00BD9C8400BD947300C6947300C68C + 7300C68C7300D6947300DE9C7B00DE9C7B00DEA58400E7A58C00E7AD8C00DEAD + 9400DEB59400E7BDA500E7C6A500E7C6A500EFC6AD00EFC6AD00EFC6AD00EFCE + AD00EFCEB500EFCEB500EFCEB500EFCEB500EFD6BD00EFD6BD00EFD6BD00EFD6 + BD00EFD6BD00EFD6BD00EFD6BD00EFD6BD00DECEB500D6C6B500C6B5AD00DEDE + D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00E7DEDE00B5B5B500F7EFEF00DECED600BD9CAD00B5849400AD84 + 940094848C006B6B730063637300CED6DE00DEE7EF00BDC6CE00DEDEDE00FFFF + FF00FFFFFF00FFFFFF00F7FFFF00F7FFFF00F7DEC600EFC69C00FFF7EF00FFF7 + EF00FFDEBD00FFCEA500FFCEA500FFCEA500FFCE9C00F7A55200EFA55A00F7E7 + BD00FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00FFDE8400F7DE7B00F7DE + 9400F7E7B500EFD6A500EF943900F7AD6300FFFFFF00F7F7F700A5A59C00B59C + 9400C6A59C00C6A59C00C6A59400B59C8C00B59C8400B5948400BD947B00BD94 + 7B00C6947B00CE947B00DE9C8400DEA58C00DEAD9400E7AD9400E7B59C00E7B5 + 9C00E7B59C00E7BDAD00E7C6AD00E7C6AD00EFCEAD00EFCEAD00EFCEB500EFCE + B500EFCEB500EFD6B500EFD6BD00EFD6BD00EFD6C600EFD6C600EFD6C600EFD6 + C600EFD6C600EFD6C600EFD6C600E7CEBD00D6C6B500D6C6B500C6BDB500FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00CEC6CE00BDBDC600FFF7FF00CEBDC60084737B0073636B006B6B + 6B007B7373006B6B6B006B6B6B009C9CA500A5ADB500A5ADBD00B5BDBD00BDBD + BD00B5BDBD00BDC6C600B5C6C600BDC6C600EFD6B500EFCEAD00FFF7E700FFF7 + E700FFF7E700FFF7E700FFF7E700FFEFDE00FFEFDE00F7C68C00EF943900F7DE + AD00FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFBD00F7DE7B00F7DE7B00F7DE + 9400F7E7B500EFC69400EF8C2900FFCEA500FFFFFF00FFFFFF00CECEC600B59C + 9C00B59C9400BD9C9C00C69C9C00BD9C9400BD9C8C00BD9C8400BD9C8400BD9C + 8400BD9C8400C69C8400C6A58C00D6AD9400DEB59C00E7BDA500E7BDA500E7BD + A500E7BDA500E7C6AD00EFCEB500EFCEB500EFCEB500EFD6BD00EFD6BD00EFD6 + BD00EFD6BD00EFD6BD00EFD6C600EFD6C600F7D6C600EFD6C600EFD6C600EFD6 + C600EFD6C600EFD6C600E7CEC600DEC6BD00DECEC600BDADA500E7DEDE00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFF7F700F7F7 + F700EFEFEF00ADADAD00D6D6D600F7FFFF00EFF7F700E7EFEF00EFEFEF00EFE7 + EF00EFEFEF00E7EFEF00E7EFEF00E7EFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00F7EFEF00F7EFEF00EFEFF700EFEFEF00F7D6B500F7D6BD00FFEFDE00FFEF + DE00FFEFD600FFEFD600FFEFD600FFEFDE00FFEFDE00FFDEBD00EF8C2900EFCE + 9C00FFEFC600FFEFC600FFEFBD00FFEFBD00FFEFB500F7DE6B00F7DE7B00F7DE + 9400F7E7B500E7B57300EF9C4A00FFDEBD00FFFFFF00FFFFFF00FFFFFF00F7EF + EF00D6C6C600BDA5AD00AD949400B59C8C00BD9C8400BD9C8C00BD9C8C00BD9C + 8C00BD9C8C00BDA58C00BDA59400C6A59400CEAD9C00D6B59C00DEBDA500E7C6 + AD00E7C6AD00E7C6AD00EFCEB500EFCEBD00E7CEBD00EFD6C600EFD6C600EFD6 + C600EFD6C600EFD6C600F7DECE00F7DECE00F7DECE00F7DECE00EFDECE00EFD6 + CE00EFD6CE00EFD6CE00E7CEC600DECEC600CEBDBD00CEC6C600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700CECECE0094949400848C + 8C008C9494008C949400F7F7F700E7E7E700BDC6C600CECECE00D6CECE00DED6 + D600D6DED600D6DEDE00E7E7E700EFE7EF00F7F7FF00F7FFFF00F7F7F700F7FF + FF00F7FFFF00F7FFFF00EFF7FF00F7FFFF00EFCEB500FFCE9C00FFE7C600FFE7 + CE00FFEFDE00FFF7E700FFEFE700FFEFDE00FFF7E700FFEFD600EF943900E7B5 + 7B00FFEFC600FFEFBD00FFEFBD00FFEFBD00FFE79400F7D66300F7DE7B00F7DE + 9400EFDEAD00E7A55A00F7B56B00FFE7C600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7EFEF00DED6D600BDA59C00A5948400A58C8400B5A58C00BDA5 + 9400BDA59400C6A59400C6A59400C6AD9400CEAD9C00CEAD9C00D6B59C00DEBD + A500DEC6AD00E7CEB500EFD6BD00EFD6C600EFD6C600EFD6C600EFD6C600F7DE + CE00F7DECE00F7DECE00F7DECE00F7DECE00F7DECE00F7DECE00F7DECE00F7DE + CE00F7DED600EFD6CE00E7CEC600E7D6CE00BDADAD00EFEFEF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600736B6B00848484008C8C + 8C005A5A5A00C6BDBD00FFF7F700C6BDBD00DED6D600EFE7E700EFE7E700DEDE + DE00ADB5AD007B8484006B7373007B7B8C00ADBDDE00C6DEFF00BDDEF700BDDE + F700B5EFFF00ADEFFF00ADEFFF00B5E7FF00E7CEBD00FFC69400FFC68C00FFC6 + 8400FFC68400FFC68400FFCE9400FFD6AD00F7D6BD00F7DECE00EFAD6300E7A5 + 5A00F7DEBD00FFEFBD00FFEFBD00FFEFB500F7D65A00F7D66300F7D67B00F7DE + 9400E7CEA500E7943900F7C69400FFE7C600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7DEDE00C6B5AD00A5948C00A594 + 8400B59C8C00C6AD9C00CEAD9C00CEAD9C00D6B5A500D6B5A500D6BDA500D6BD + AD00D6BDAD00DEC6AD00E7CEB500EFD6C600EFDECE00F7DECE00F7DECE00F7DE + D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7 + D600F7DED600EFDED600EFDED600D6C6BD00D6CECE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008C949400949C9C00CED6D600CECE + D600BDBDBD00ADA5A500D6CECE00D6D6D600F7FFF700FFFFFF0000000000F7F7 + F700CECECE0094949400737373006B6B7B00949CC600ADBDEF00B5D6FF00A5D6 + FF009CDEFF009CE7FF0094E7FF009CE7FF00EFCEB500F7CEAD00FFE7CE00FFDE + BD00FFD6B500FFD6A500FFD6A500F7C69400D68C4A00E7AD8400E79C5A00E78C + 3900EFD6AD00FFEFBD00FFE7B500FFE7B500F7CE4A00F7D66300F7D67B00F7D6 + 9400E7BD9400E78C2900FFDEC600FFE7D600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEFE700CEC6 + BD00B5A59C00AD948400BDA59400CEADA500D6B5AD00D6BDAD00D6BDAD00D6C6 + B500D6C6B500D6C6B500DEC6B500DECEBD00E7D6C600EFDECE00F7DED600F7E7 + D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7D600F7E7DE00F7E7DE00F7E7 + DE00F7E7DE00EFDED600E7D6D600C6BDB500F7F7F700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5949C00ADA5AD00CEC6CE00D6C6 + CE00B5ADB5009C949400CECECE00F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00E7E7E700ADADAD008C8C8C007B7B84007B8CA50094A5D600A5C6FF009CC6 + FF0084C6FF008CD6FF008CDEFF009CDEFF00F7E7D600DE9C5A00E7AD6B00EFB5 + 8400F7C6A500F7D6B500F7DEBD00E7A56300EFCEB5000000000000000000E784 + 2900E7C69400FFE7B500FFE7AD00FFE7AD00F7CE4A00F7CE5A00F7CE7300EFD6 + 8C00DEA56300DE8C3100EFCEAD00F7DEC600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00F7EFEF00DED6CE00B5A59C00A5948C00B5A59400CEBDB500DEC6BD00DECE + BD00DEC6BD00DECEBD00DECEBD00DECEBD00DECEC600E7D6CE00EFDED600F7E7 + D600F7E7DE00F7E7DE00F7E7DE00F7E7DE00F7E7DE00FFEFDE00F7EFDE00F7E7 + DE00F7E7DE00EFE7DE00CEC6BD00DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6B5BD00B594A500BD8C9C00C69C + AD00AD8C9C00BDA5B500EFEFEF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF + FF00F7F7F700CECECE009CA59C00848C8C008C8C94009C9CB50094A5DE00A5BD + FF008CC6FF007BC6F7008CCEF700A5D6F7000000000000000000F7E7D600F7DE + BD00EFC6A500E7B58C00E7AD7B00EFD6BD00000000000000000000000000E794 + 4200DEA56300F7DEA500FFDE9C00FFDE9C00F7CE6300EFBD5200F7C66300E7C6 + 8400DE8C3900E7A55A00EFD6BD00EFC6AD00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7DEDE00C6B5B500A5948C00B5A59C00C6BD + AD00DECEC600DECEC600DECEC600DED6C600DED6CE00E7D6CE00E7DECE00EFDE + D600EFDED600F7E7DE00F7EFE700FFEFE700F7EFE700FFEFE700F7EFE700F7EF + E700F7E7E700E7DED600C6BDBD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7EFEF00CECECE00CEB5BD00C6AD + B500D6C6CE00E7DEE700FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00EFE7EF00BDBDBD009CA5A5009C9C9C00A5A5B5009CA5D6008C9C + DE009CBDF7009CC6FF009CD6FF009CCEEF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7A5 + 6300D68C3900F7CE9400FFD68C00FFD68400FFCE7300EFB54200EFB55200E7B5 + 7300D67B1800EFCEA500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEFEF00CEC6C600ADA5 + 9C00E7D6CE00DED6C600E7D6CE00E7D6CE00E7DED600E7DED600E7DED600EFDE + D600EFDEDE00EFDEDE00F7E7DE00F7EFE700F7EFE700FFEFEF00F7EFE700F7EF + E700F7EFEF00C6C6BD00EFE7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700EFEFEF00EFEF + EF00F7F7F700FFFFFF0000000000000000000000000000000000000000000000 + 000000000000FFFFFF00DEDEDE00BDBDBD00ADADAD00ADA5B500B5BDC600ADB5 + D6008494DE008CA5F7009CC6FF008CBDF7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFC6 + 9C00D67B1800E7B58400EFC68400EFC68400EFC68400E7B57300E7B57300DEAD + 7300D6730800FFEFE700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700B5A5 + A500EFDED600E7D6D600EFDED600EFDED600E7DEDE00EFE7DE00EFE7DE00EFE7 + DE00EFE7DE00EFE7DE00F7E7E700F7EFE700F7EFE700F7EFEF00F7EFEF00F7F7 + EF00DEDEDE00CEC6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7F7F700DEDEDE00BDC6C600B5B5B500BDBDBD00CED6 + DE00BDCEEF00949CD6008484DE008C9CF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CE6B0000D6842900D6843900D6843900D6843900D6843900D6843900D67B + 2100DE8C3900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700ADA5 + A500EFDEDE00F7E7DE00F7E7DE00F7E7DE00EFE7DE00EFE7DE00EFE7E700EFE7 + E700F7EFE700F7EFEF00F7EFEF00F7EFEF00FFF7EF00FFF7EF00FFF7F700F7F7 + EF00C6BDBD00F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000FFFFFF000000000000000000000000000000000000000000FFFF + FF00FFFFFF000000000000000000F7F7F700DEDEDE00CECECE00C6C6C600C6C6 + CE00DEDEDE00DEE7F700C6C6EF00949CDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7BD9400DEAD7B00EFBD9400EFBD9400EFBD9400EFBD9400EFBD9400EFBD + 9400F7DEC600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700ADAD + A500E7DED600F7EFDE00F7E7DE00F7EFE700EFEFE700F7EFE700F7EFE700F7EF + EF00F7F7EF00FFF7EF00FFF7EF00FFF7F700FFF7F700FFF7F700FFFFF700DED6 + D600DED6D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000FFFFFF00FFFFFF00000000000000 + 0000FFFFFF00FFFFFF0000000000FFFFFF00F7F7FF00E7E7E700D6D6DE00D6D6 + D600D6CED600D6D6D600DEDEE700EFEFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7DECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFF700FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B5AD + A500BDB5AD00E7DED600FFF7E700F7F7E700F7EFE700FFF7F700FFF7EF00FFF7 + EF00FFF7F700D6C6C600CEBDBD00F7E7E700FFFFFF00FFFFFF00F7EFE700C6BD + BD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000FFFFFF00FFFFFF00EFEFEF00DEE7 + DE00DEDEDE00DEDEDE00DEDEE700DEDEE7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DED6CE00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFF7E700EFDECE00CEBDB500D6CEC600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7DE + DE00B5ADA5009C948C00B5AD9C00DED6CE00FFF7F700FFF7F700FFF7F700F7F7 + EF00BDADAD00BDADAD00C6B5B500AD9C9400B5A5A500BDB5B500ADA59C00E7E7 + E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF0000000000000000000000000000000000FFFFFF000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFF7 + F700E7EFEF00DEE7E700E7E7E700E7EFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7DEDE00F7DECE00FFFFF700FFF7EF00F7EFE700EFDED600E7D6 + C600D6CEC600000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFF7F700EFE7E700C6BDB500AD9C9C00BDADA500DED6CE00EFE7DE00BDB5 + AD00D6CEC600FFF7F700FFFFFF00F7EFEF00CEC6C600C6BDBD00E7E7E700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF000000000000000000FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7FFF700EFF7EF00EFEFE7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D6CEC600CEC6BD00D6D6CE0000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00F7F7EF00DECECE00B5A5A500ADA5A500E7DE + DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF000000000000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ADA58400DEC6A5009C947B0000000000000000000000 + 00000000000000000000000000000000000000000000A57B6B00AD8473009C73 + 6B009C8473009C8C84006B635A009C9C9C009C9C9C00DEDEDE00F7F7F700F7F7 + F700CED6D600FFFFFF00FFFFFF00FFFFFF00DED6DE00F7EFDE00C66B2100DE73 + 1800D67B2900CE630800A55A1000635A5A0000000000EFD6BD00DE8C4200FFE7 + CE00FFDEBD00FFBD7B00FFB56300FFAD6300FFAD5A00FFAD5A00FFAD5A00FFAD + 5A00FFAD5A00EFA55200B59C7B00ADC6DE00ADDEFF0094BDDE00949CA500EFA5 + 5A00EFA55200EFA55A00F7AD6300FFB56B00000000006B9C31006B9C390073A5 + 42007BB55A00B5D6A500F7EFDE00F7EFDE00F7EFD600EFEFD600A5BD73006BA5 + 39006B9C310063942900A5B57300C6CE9400A5B57300BDC68400DEAD6B00DE8C + 3100EFA55200EFA55A00F7AD6300FFB56B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A5A57B00F7D6B500EFD6BD00A59C8400000000000000 + 000000000000000000000000000000000000B5948C00E7ADA500FFC6AD00F7B5 + 9C00DE948400CE8C7B00B57B6B009C736B00846363008C73730094848400948C + 94008C949400BDC6C600D6D6D600CED6D600BDBDC600DEDEDE00E7D6C600BD73 + 1800DE7B2900E77B1800CE630000A563310000000000E7BD9C00E7A56300FFEF + D600FFE7C600FFD6AD00FFB57300FFB56B00FFB56300FFB56300FFB56300FFB5 + 6300FFB56300CE9C6B008CD6E7008CD6FF009CD6FF00A5D6FF009CB5CE00EFB5 + 7300FFBD7B00FFBD7B00FFBD7B00FFBD7B00BDC6A500739C39006BB5630073CE + 8C008CD6A500DEEFCE00EFEFDE00EFF7DE00EFEFDE00E7EFD6008CBD6B0073A5 + 42006B9C390063943100639429008CA55A009CB56B0084A55200BDA56300E794 + 3900FFBD7B00FFBD7B00FFBD7B00FFBD7B000000000000000000000000000000 + 00009CB5A5009CB5AD007B8C84006B847300637B6300526B5A0042634A00315A + 3900214A21002942210094947300EFD6B500EFCEB500EFD6BD008C8C73002131 + 180018391800000000000000000000000000BD948C00F7BDAD00FFD6B500EFAD + 8C00D68C7300E79C7B00FFBDA500E7A58C00D6947B00C68C7B00A57B6B008C6B + 5A007B635A00847B7B00CECECE00E7E7E700C6C6C600E7EFEF00F7FFFF00E7DE + C600CE731800DE841800DE731000D663000000000000DEA57300F7C69400FFEF + D600FFE7CE00FFE7C600FFD6AD00FFBD7B00FFB56B00FFB56B00FFB56B00F7B5 + 6B00EFAD6B00A5AD9C007BE7FF0021ADFF001094FF005ABDFF008CC6DE00EFBD + 8C00FFC68400FFC68400FFC68400FFC68400CECEB5007BBD7B0084D6A500A5DE + B500D6E7C600EFEFD600EFEFD600CEE7C6009CDEAD0094DEAD007BD69C0073BD + 6B006BA53900639C31005A942900638C2900638C3100638C2900AD8C3900EF9C + 4A00FFC68400FFC68400FFC68400FFC684000000000000000000000000000000 + 0000A5BDB500B5CEC600ADBDB500A5BDB500A5BDB500A5B5B5009CB5AD0094AD + 9C0084A5940084948400ADB59C00EFD6BD00E7C6AD00EFD6B500E7DEBD007B7B + 630031423100395A4A00395A420029522900BD948C00F7BDAD00FFCEAD00DEAD + 8C00EFC6A500E7B59400E7A58C00D6947300D6946B00F7B59400EFAD8C00D694 + 7B00DEA58400AD8C7B00C6BDC600F7F7FF00D6D6D600FFFFFF00FFF7F700FFFF + FF00E7D6C600CE732100DE7B2900D66B210000000000DE9C6300FFE7C600FFEF + D600FFE7CE00FFE7CE00FFE7C600FFDEBD00FFC69400EFB57B00F7AD6B00F7BD + 7B00E7B5840094C6CE006BD6FF00089CFF00007BFF0039BDFF007BB5C600F7C6 + 8C00FFC68C00FFC68C00FFC68C00FFC68C00D6CEB500A5CE9C00DEE7CE00EFEF + CE00EFEFCE00EFE7CE00E7E7C600A5DEA5008CD69C0084D69C007BD69C007BD6 + 9C006BBD6B006B9C31005A942900528C21004A841800527B1800C6842900F7AD + 6300FFC68C00FFC68C00FFC68C00FFC68C000000000000000000000000000000 + 00000000000000000000849C9400B5C6C600B5C6CE00B5C6C600B5C6C600B5CE + C600BDCECE00B5C6BD00BDBDB500E7D6C600EFD6B500E7C6A500F7DEBD00E7D6 + B500948C84006B7B7300738C7B00395A3900BD9C8C00F7C6AD00FFCEB500E7B5 + 9C00FFDEBD00FFD6BD00D69C8400EFBDA500F7C6AD00DEA58C00D6947B00E79C + 8400F7AD8C00D6A58C00948C8C00CECED600BDBDBD00DED6D600F7F7F700FFFF + FF00FFFFFF00CEA57B00C67B4A00EFCEBD00FFF7EF00DE9C6300FFEFDE00FFEF + DE00FFEFD600FFE7D600FFE7CE00FFE7CE00F7D6BD00FFCEA500FFDEB500FFD6 + AD00BDAD9C008CDEEF0031B5FF00008CFF00088CFF0052CEF700C6BDA500FFCE + 9400FFCE9400FFCE9400FFCE9400FFC68C00E7D6B500ADBD8400ADDEAD00EFE7 + C600EFE7C600EFE7C600EFE7C600BDDEAD0094D69C0084D694007BD694007BD6 + 9C0073CE94006BA54A005A942900528C21004A8418006B842900CE731800FFC6 + 8C00FFCE9400FFCE9400FFCE9400FFC68C000000000000000000000000000000 + 000000000000000000006B8C7B00C6D6D600B5C6CE00A5B5BD00A5ADB500B5C6 + CE00BDCECE00B5C6CE00B5BDBD00CEC6BD00EFDEC600E7C6A500E7CEA500FFE7 + C600DECEBD008C8C84007B847B004A6B5200C69C9400FFC6B500FFCEB500F7C6 + AD00DEAD9400E7AD9400F7BDA500E7C6AD00F7DEBD00D6AD9400E7B59C00FFDE + C600DEB59400CEA58C00B5ADAD00EFEFF700CECECE00FFFFFF00FFFFFF00FFFF + FF00E7E7EF00FFFFF700D6BDB500CE8C5A00FFF7EF00E79C5A00FFFFF700FFEF + DE00FFEFDE00FFEFD600FFEFD600FFE7CE00F7DEC600F7D6B500FFEFD600EFD6 + C6009CB5BD007BE7FF00009CFF000084FF0042C6FF007BC6DE00F7CE9C00FFCE + 9C00FFCE9C00FFCE9C00FFCE9400FFCE9400F7DEC600C6AD6B007BCE9400C6DE + B500EFE7C600EFE7BD00EFE7BD00EFE7BD00CEDEAD008CD69400B5DEAD008CD6 + 9C008CD6A5006BB56B005A942900528421004A7B180094842900EFA56300FFCE + 9C00FFCE9C00FFCE9C00FFCE9400FFCE94000000000000000000000000000000 + 0000000000000000000073947B00CEDEE700BDCEDE00ADBDC600ADB5C600B5BD + CE00B5BDCE00ADBDCE00A5B5BD00B5B5B500E7DEC600EFD6BD00DEC69C00EFCE + AD00F7DEC600CEC6B5007B847B0039524200CE9C9400FFC6B500FFCEB500E7AD + 9400C68C7300CE947B00FFC6AD00D6A58400CE9C8400F7BDA500F7BDA500E7C6 + AD00E7BD9C00CEA58C00ADA5A500E7EFEF00CECECE00F7F7F700F7F7EF00E7EF + EF00BDC6C600F7F7F700EFEFE700CEA56B00F7EFDE00E7AD7300FFFFF700FFF7 + E700FFEFDE00FFEFDE00FFEFD600FFEFD600FFE7CE00F7D6AD00FFEFD600CEC6 + B5008CD6E70052D6FF00089CFF001094FF0052DEFF00A5CECE00FFDEBD00FFD6 + AD00FFD6A500FFCEA500FFCE9C00FFCE9C00F7EFDE00D6843100ADBD7B007BC6 + 8400A5CE9400D6D6AD00E7DEB500EFDEB500E7DEBD0094CE940073CE8C0073CE + 8C006BCE940063BD84005A8C21005284180063842100CE944200FFD6AD00FFD6 + AD00FFD6A500FFCEA500FFCE9C00FFCE9C000000000000000000000000000000 + 00000000000000000000849C9400DEE7EF00C6D6DE00B5C6CE00BDCED600BDC6 + D600BDC6D600B5C6DE00ADBDD600B5BDC600CECEBD00EFE7C600EFCEAD00E7C6 + A500F7D6B500F7E7C600BDB59C00394A3100CE9C9400FFCEB500FFCEB500DEAD + 8C00EFC6AD00EFBDA500DEA58C00D69C8400CE8C7300EFAD9400E7A58C00CE8C + 7300F7C6A500CEA58C00948C8C00CECECE00BDBDBD00D6D6D600D6D6CE00CECE + CE00B5BDBD00CED6D600D6D6CE00DEDED600F7E7CE00EFBD8C00FFF7F700FFF7 + E700FFF7E700FFEFDE00FFEFDE00FFEFDE00FFE7D600F7D6B500F7DEC600ADC6 + C6008CEFFF0039CEFF000094FF0029ADFF0052DEFF00D6CEBD00FFE7C600FFE7 + C600FFDEBD00FFDEB500FFD6A500FFD6A500F7E7CE00E7AD6B00D68C42009CB5 + 730073BD7B007BC67B0094C68400A5CE9400B5CE9C0084CE8C0073C684006BC6 + 8C0063C68C005AC68C00528C210073943900BD7B1800EFBD8400FFE7C600FFE7 + C600FFDEBD00FFDEB500FFD6A500FFD6A5000000000000000000000000000000 + 00000000000000000000A5BDB500E7EFF700C6D6DE00BDCED600C6D6DE00C6CE + DE00C6D6DE00BDD6DE00BDCEDE00BDCED600BDC6C600DED6C600F7DEC600EFCE + AD00E7C6A500F7DEBD00EFDEBD008C8C6B00CE9C9400FFCEBD00FFD6B500E7BD + A500FFDEC600F7D6B500D6A58C00EFC6AD00FFDEBD00DEA58C00DE9C8400E7AD + 9400E7AD9400CEAD9400B5ADAD00F7F7F700D6D6CE00FFFFFF00FFFFFF00F7F7 + F700CECECE00FFFFFF00FFFFFF00FFFFFF00F7DEC600EFC69C00FFF7EF00FFF7 + EF00FFF7E700FFEFE700FFEFDE00FFEFDE00FFEFD600EFDEC600DEC6A50094D6 + DE0073E7FF0021BDFF000084FF0039C6FF007BBDCE00F7DEC600FFE7CE00FFE7 + C600FFE7C600FFDEBD00FFDEB500FFD6AD00F7DEC600EFC69C00F7DECE00DE9C + 5200ADB56B0084BD730084BD730094C68400A5CE940094CE94007BC68C006BC6 + 8C0063C68C006BC694008C9C4200CE944A00EFB57B00FFE7CE00FFE7CE00FFE7 + C600FFE7C600FFDEBD00FFDEB500FFD6AD000000000000000000000000000000 + 00000000000000000000C6D6D600E7F7F700CEDEE700BDD6DE00BDCEDE00C6CE + DE00C6D6DE00C6D6DE00BDD6DE00C6D6E700BDCED600C6C6C600EFDEC600FFDE + BD00E7C6AD00E7CEAD00FFE7BD00EFDEBD00CEA59C00FFCEBD00FFD6BD00F7CE + AD00D6AD8C00DEB59C00F7C6AD00E7C6AD00EFD6B500DEBD9C00E7BDA500FFE7 + C600E7BD9C00CEA58C009C949400D6D6DE00C6C6C600E7E7E700E7E7E700DEDE + DE00CEC6C600E7E7E700E7DEE700DEDEDE00EFD6B500EFCEAD00FFF7E700FFF7 + E700FFF7E700FFF7E700FFF7E700FFEFDE00FFEFDE00F7E7CE00B5ADA50094E7 + EF004ACEFF0010A5FF00108CFF0052CEF700CEC6BD00FFE7D600FFE7CE00FFE7 + CE00FFE7C600FFE7C600FFE7BD00FFDEB500EFD6B500EFCEAD00FFF7E700F7DE + BD00E7AD6B00C6944200CEBD7B00B5CE9C0094C68C00A5CE9C00ADD6A500A5D6 + A500B5CE9C00C6A55A00DE9C5200F7CEA500FFEFD600FFE7D600FFE7CE00FFE7 + CE00FFE7C600FFE7C600FFE7BD00FFDEB5000000000000000000000000000000 + 000000000000000000009CBDAD00EFF7FF00CEE7EF00C6D6E700C6D6E700C6D6 + E700C6D6DE00C6D6DE00C6D6DE00C6D6E700BDD6DE00C6CECE00DED6C600F7E7 + CE00EFDEBD00E7CEA500EFD6AD00FFE7C600D6A59400FFD6C600FFD6BD00E7AD + 9400CE8C7300CE947B00FFC6B500CEA58C00BD947B00F7C6AD00E7C6AD00D6B5 + 9C00F7CEA500CEAD940094949400D6D6DE00C6C6C600DEDEDE00DEDEDE00DED6 + D600C6C6C600DEDEDE00DEDEDE00DEDED600F7D6B500F7D6BD00FFEFDE00FFEF + DE00FFEFD600FFEFD600FFEFD600FFEFDE00FFEFDE00EFDECE009CBDC60094E7 + FF0021BDFF000894FF0039C6FF007BC6DE00FFEFD600FFEFD600FFE7D600FFE7 + CE00FFE7CE00FFE7C600FFE7C600FFDEC600F7D6B500F7D6BD00FFEFDE00FFEF + DE00FFEFD600F7CEA500DE8C3900DE8C3900DE9C5A00E7AD7300DEA56300DE94 + 4200DE843100EFC69400FFEFDE00FFEFDE00FFEFD600FFEFD600FFE7D600FFE7 + CE00FFE7CE00FFE7C600FFE7C600FFDEC6000000000000000000000000000000 + 0000000000009CBDAD00EFFFFF00DEEFF700C6D6E700C6DEE700CEDEE700CED6 + E700CED6E700CED6E700C6D6DE00BDD6DE00C6DEE700C6D6DE00C6C6C600DED6 + C600F7E7C600F7DEBD00E7CEAD00EFD6B500DEA59400FFD6C600FFD6BD00DEAD + 9400FFCEB500F7BDA500D6A58C00DE9C8C00E79C8400E7AD94009C9CB5005A7B + AD00BDB5BD00D6B59C00ADADAD00FFFFFF00D6D6CE00FFFFFF00FFFFFF00FFFF + FF00D6D6D600FFFFFF00FFFFFF00FFFFFF00EFCEB500FFCE9C00FFE7C600FFE7 + CE00FFEFDE00FFF7E700FFEFE700FFEFDE00FFF7E700CEC6BD00A5DEEF007BD6 + FF0029B5FF00189CFF0052D6FF00ADCED600FFEFDE00FFEFD600FFEFD600FFE7 + D600FFE7CE00FFE7CE00FFE7C600FFE7C600EFCEB500FFCE9C00FFE7C600FFE7 + CE00FFEFDE00FFF7E700FFEFDE00FFE7CE00F7DEC600F7D6BD00EFCEAD00F7D6 + B500FFEFDE00FFEFE700FFEFDE00FFEFDE00FFEFDE00FFEFD600FFEFD600FFE7 + D600FFE7CE00FFE7CE00FFE7C600FFE7C6000000000000000000000000000000 + 00004A735200D6EFE700EFFFFF00CED6DE00C6D6DE00C6D6E700C6D6E700C6D6 + DE00CED6E700CEDEE700C6D6DE00BDD6DE00C6DEE700C6DEE700C6CED600D6D6 + CE00EFE7CE00FFEFCE00F7DEBD00E7CEAD00DEA59400FFDECE00FFD6BD00E7BD + A500F7DEC600F7D6BD00DEAD9400E7C6B500FFE7C600D6AD9400738CCE005A94 + FF00949CD600D6AD9400948C8C00CECECE00C6C6BD00D6D6D600D6D6D600D6D6 + D600BDBDBD00DEDEDE00D6D6D600D6D6CE00E7CEBD00FFC69400FFC68C00FFC6 + 8400FFC68400FFC68400FFCE9400FFD6AD00EFD6B500ADBDBD00ADEFFF006BCE + FF0029A5FF0029B5FF005AD6F700D6DED600FFEFDE00FFEFDE00FFEFDE00FFEF + D600FFE7D600FFE7CE00FFE7CE00FFE7C600E7CEBD00FFC69400FFC68C00FFC6 + 8400FFC68400FFC68400FFCE9400FFD6AD00F7D6BD00F7DECE00EFDECE00F7D6 + BD00FFF7E700FFF7E700FFEFE700FFEFDE00FFEFDE00FFEFDE00FFEFDE00FFEF + D600FFE7D600FFE7CE00FFE7CE00FFE7C6000000000000000000000000000000 + 0000A5B5AD00F7FFFF00D6E7EF00C6CEDE00CED6E700BDCEDE00C6D6DE00C6D6 + DE00C6D6E700CEDEE700CEDEE700C6D6DE00BDD6DE00D6E7EF00DEF7F700E7F7 + F700B5BDA500ADB58C00F7E7C600FFE7CE00DEA59400FFDECE00FFDEBD00EFCE + AD00E7C6A500E7C6A500F7CEAD00E7C6AD00F7D6AD00E7C694009CB5CE007BB5 + EF00ADB5C600D6AD9400A59C9C00E7E7E700CECECE00EFEFEF00EFEFEF00E7E7 + E700CECECE00EFEFEF00EFEFEF00EFE7E700EFCEB500F7CEAD00FFE7CE00FFDE + BD00FFD6B500FFD6A500FFD6A500F7C69400BD7B4200A5CED6009CE7FF006BC6 + FF00299CFF0042C6FF007BBDC600E7C6AD00F7DEC600F7E7D600FFEFDE00FFF7 + E700FFF7E700FFEFDE00FFEFD600FFE7D600EFCEB500F7CEAD00FFE7CE00FFDE + BD00FFD6B500FFD6A500FFD6A500F7C69400D68C4A00E7AD8400DEA57300DE9C + 6B00E7BD9400E7BD9400EFC69C00EFCEB500F7DEC600F7E7D600FFEFDE00FFF7 + E700FFF7E700FFEFDE00FFEFD600FFE7D6000000000000000000000000005A7B + 6300DEEFEF00EFF7FF00C6CEDE00BDCED600C6D6E700BDCEDE00C6D6DE00C6DE + DE00C6D6DE00C6D6DE00C6D6E700CED6E700BDCED600CEDEDE00E7FFFF00CEEF + E700396B42000000000094AD7300EFE7C600DEA59C00FFDECE00FFDEBD00FFD6 + B500F7C6A500F7C6AD00F7CEAD00FFCEAD00EFC6A500FFDEB500E7CEBD00B5BD + B500DED6BD00CEB59C00A5A5A500EFF7F700CECECE00FFFFFF00FFFFFF00F7F7 + F700CECECE00FFFFFF00FFFFFF00F7F7F700F7E7D600DE9C5A00E7AD6B00EFB5 + 8400F7C6A500F7D6B500F7DEBD00DE9C6300AD9C8400ADE7F70084D6FF0063BD + FF0029A5FF0052CEF700C6C6BD00EFD6BD00EFC6A500E7B59400DEAD8400E7B5 + 8C00E7BD9400EFBD9C00EFCEB500F7DEC600F7E7D600DE9C5A00E7AD6B00EFB5 + 8400F7C6A500F7D6B500F7DEBD00E7A56300EFCEB500C6ADA500C6ADA500DECE + BD00FFEFE700FFEFE700F7E7D600EFD6BD00EFC6A500E7B59400DEAD8400E7B5 + 8C00E7BD9400EFBD9C00EFCEB500F7DEC600000000000000000000000000ADC6 + B500EFFFFF00D6DEEF00BDCED600BDCED600C6CEDE00C6D6E700C6D6DE00C6D6 + DE00C6D6DE00C6D6E700C6CEE700CED6E700C6D6DE00D6E7E700EFFFFF008CAD + 94000000000000000000000000006B845200DEA59400FFE7D600FFDEBD00EFB5 + 9400EFAD8C00EFB59400E7B59400EFB59400E7B59C00EFBDA500EFBD9C00EFC6 + AD00FFDEC600CEB5A5008C848400C6CECE00C6C6C600CED6D600CECECE00CECE + CE00C6C6C600D6D6D600CECECE00CECECE000000000000000000F7E7D600F7DE + BD00EFC6A500E7B58C00E7AD7B00D6BDA500A5C6CE00A5E7FF006BC6FF0063B5 + FF004AC6FF007BC6DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFF7 + EF00F7EFDE00F7E7D600EFD6C600EFC6AD00C6ADA500C6ADA500F7E7D600F7DE + BD00EFC6A500E7B58C00E7AD7B00EFD6BD00C6ADA500C6ADA500C6ADA500C6AD + A500FFEFDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFF7 + EF00F7EFDE00F7E7D600EFD6C600EFC6AD000000000000000000738C8400DEEF + EF00D6E7F700B5C6D600BDCED600BDCEDE00BDCED600C6D6DE00C6D6DE00BDCE + DE00BDCED600BDCEDE00BDCEDE00C6CEDE00D6E7EF00DEEFF700D6EFE7006384 + 630000000000000000000000000000000000DEA59400FFE7DE00FFD6BD00DE9C + 7B00FFAD7B00FFB57B00FFB58400FFB58C00FFB58C00FFB58C00F7B59400EFAD + 8C00EFBD9C00CEB5A500A59C9C00F7F7FF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000CED6D600A5DEEF008CD6FF0063BDFF0073BD + FF006BDEFF00ADD6E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500E7D6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000ADBDB500DEEF + F700BDCEDE00ADBDCE00ADBDCE00B5C6CE00B5C6CE00B5C6D600B5C6D600ADC6 + CE00B5C6CE00B5C6CE00B5C6CE00B5C6CE00BDCED600D6E7EF00B5CEC6005273 + 5A0000000000000000000000000000000000DEA59400FFE7E700FFDEC600E79C + 7300EF8C5200FF945200FF945A00FF9C6300FFA56300FFA56300FFAD7300FFAD + 7300EFA57300C6AD9C00ADA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000ADC6CE00ADEFFF0073CEFF0063B5FF0084D6 + FF0084D6EF00DEE7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500D6C6BD00FFF7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000B5CECE00CED6 + DE00ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600ADBD + C600ADBDC600ADBDC600ADBDC600ADBDC600ADBDC600C6D6DE00A5BDBD005273 + 5A0000000000000000000000000000000000D6A59400FFEFE700FFDECE00F7BD + 9C00E78C6300E7845200EF844A00EF844200F7844A00F7844A00F7845200F784 + 4A00EF946B00CEAD9C00ADA5A500FFFFFF00EFEFEF00D6D6DE00D6D6D600D6D6 + D600DEDEDE00DEDEDE00E7E7E700F7F7F7000000000000000000000000000000 + 00000000000000000000DEDEDE00A5D6DE009CDEFF006BBDFF006BB5FF008CDE + FF0094BDCE00EFE7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500F7EFE700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000A5BDB500BDCE + CE00B5BDC600B5C6C600B5C6C600B5C6C600B5C6C600B5C6C600B5C6C600B5C6 + C600B5C6C600B5C6C600B5C6C600B5BDC600B5BDC600BDC6CE00ADBDB5005A84 + 630000000000000000000000000000000000DEB59C00FFF7EF00F7E7D600FFDE + CE00FFD6BD00F7C6A500EFC69C00EFBD9400EFB58C00E7A58400DE947300D694 + 6B00EFBD9C00D6BDAD00A59CA500F7FFFF00F7F7EF00DEDEDE00E7E7E700E7E7 + E700E7E7E700E7E7E700EFEFEF00EFEFEF000000000000000000000000000000 + 00000000000000000000BDC6C600A5E7F7007BCEFF0063BDFF0073C6FF0084DE + F700BDC6C600EFE7D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500EFE7D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000084A58C009CB5 + AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5 + AD009CADAD009CB5AD009CADAD009CADAD009CB5AD009CB5AD009CB5AD00739C + 7B0000000000000000000000000000000000EFCEB500FFFFF700FFFFDE00FFF7 + D600FFF7DE00FFF7D600FFFFD600F7F7D600F7F7D600FFEFCE00FFEFCE00FFEF + CE00FFF7D600DEC6B500ADADAD00F7FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00EFEFEF000000000000000000000000000000 + 000000000000EFEFEF00A5C6D600A5E7FF006BC6FF006BB5FF008CD6FF0094C6 + D60000000000E7DECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFF700FFF7EF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500E7DECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFF700FFF7EF0000000000000000007BA5840084A5 + 840084A58C007BA584007BA584007B9C84007BA584007BA584007BA584007BA5 + 84007BA584007B9C84007B9C84007B9C84007BA584007B9C84007B9C84000000 + 000000000000000000000000000000000000C6ADA500DEDEDE00EFE7CE00EFE7 + CE00EFDEC600F7DEC600EFD6B500EFDEC600EFDEC600F7E7C600FFE7C600F7EF + C600F7EFC600CEC6AD00CEC6BD00FFFFFF00FFFFFF00F7FFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00F7F7F7000000000000000000000000000000 + 00000000000000000000C6CED6007BB5DE0052B5FF0073BDFF008CE7FF00C6DE + E70000000000DED6CE00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFF7E700EFDECE00CEBDB500D6CEC600C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500DED6CE00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFF7E700EFDECE00CEBDB500D6CEC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500A5948C00F7EFE700F7EFDE00EFE7D600EFE7CE00E7DE + C600E7DECE00EFE7D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00B5CEDE0094C6E70094CEDE00E7EF + EF0000000000E7DEDE00F7DECE00FFFFF700FFF7EF00F7EFE700EFDED600E7D6 + C600D6CEC600DEDED600F7F7F70000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500F7DECE00FFFFF700FFF7EF00F7EFE700EFDED600E7D6 + C600D6CEC600C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA5008C8C9400A5A5AD00A5A5AD00A5A5AD00A5A5AD00A5AD + AD00A5A5AD00A5A5A500A5A5A500A5A5A500A5A5A500ADA5A500A5A5A500A5A5 + A500A5A5A500A5A5A500A5A5A500A5A5A5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D6CEC600CEC6BD00D6D6CE00E7E7DE00EFEFEF000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500D6CEC600CEC6BD00D6D6CE00E7E7DE00C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500000000000000000000000000F7CE + A500EFB57300EFAD7300EFBD8C00F7EFE7000000000000000000E7EFEF00CEC6 + BD00CEA58C00E7B58400F7C68C00FFD69400F7D69C00F7D6A500F7CEAD00E7BD + 9400CEB5A500C6C6C600E7E7EF00DEC6BD00000000000000000000000000DEDE + DE00ADADAD009CA59C00949C94008C7B94008C4AA5009C42AD00944A8C00735A + 840094CEDE008CCEE70094CEDE0094B5CE008C7B9400AD849400BD736300AD52 + 5A00738494007384A50084395200947B7300000000006B636300FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084B5840052B5 + 520073BD73005A8C52005A8C5A0063946300639C6B006B9463009C9473006B73 + 5A0052845A007BA573007BA57300739C730000000000C6C6C600EFEFEF00E7E7 + E700C6C6C600948C940052525200395231004A7339006B9C4A0063A54200398C + 18002173080018520800294218009C9C9400B5B5B500526B4200426329006B94 + 4A006BAD4A004A9C2900297B0000216300000000000000000000F7E7D600EFB5 + 7B00E7AD7300E7B57B00EFDECE00000000000000000000000000EFDECE00E7AD + 8400F7BD7B00FFCE9400FFDE9C00FFE7B500FFEFB500FFEFB500FFEFBD00FFD6 + 9C00FFCE9C00EFC69C00EFDECE00F7EFEF00000000000000000000000000D6D6 + D600A5A59C0094949400848C8C00848C840094639C008C29A5007B188400949C + CE0063BDDE004AA5CE004A9CCE005AADDE006BA5D6007BA5BD009C949C00848C + 8C006B94A5004A5A7B003918310052312900000000006B636300FFFFFF00FFFF + FF00FFFFFF00F7F7F700F7F7F700F7F7F700F7F7F700D6E7D60042A5420052BD + 5200528C52006B8C73005A7B5A004A6B4A00396B420039633900C6B59400DEC6 + AD004A634200295A31004A7B4A005A945A00C6C6C600D6D6D600FFFFFF00DEDE + DE00ADADB50052525200425A29005A94420073B5520084BD5A006BAD42003994 + 180029940000298C0000216B0000738C6300A5AD9C006B9C52006BAD4A007BBD + 5A0073B552004A9C290031940800319400000000000000000000EFCEAD00E7AD + 6B00E7AD6B00E7BD9C00F7F7F7000000000000000000F7E7D600DEA56B00EFAD + 6300FFC68400FFD69400FFE7A500FFEFCE00FFF7CE00FFE7AD00FFE7A500FFDE + 9C00FFC68C00F7BD8400EFBD9400F7EFDE00000000000000000000000000C6C6 + C60094948C00847B8C00847B8C008C847B008C5A840073299400738CBD005ABD + D60052A5C60063BDD60084C6EF006BB5D600529CCE004AA5D60063A5CE007384 + A500527B8C007BADB5008C849C008C7B9400000000006B636300FFFFFF00F7F7 + F700C6C6C600C6C6C600D6D6D600CECECE00BDBDBD009CC69C0031AD3100429C + 4200427B42007B9C84009CB5AD00A5BDBD009CADAD0094AD9C00C6BDAD00FFDE + BD00C6B59C005A635A0042634A0039733900CECECE00D6D6D600FFFFFF00DEE7 + E700C6C6CE0052634A005A84390073BD52007BBD52007BBD5A0063A542003994 + 180029940000299408003194080073A56300A5B59C0084BD6B0073BD4A007BB5 + 520073AD52004A9C2900298C08003194080000000000FFF7EF00E7BD8C00E7A5 + 6B00DEA57300E7D6C600000000000000000000000000D6A57300D68C3900EFB5 + 7300FFBD7B00FFCE8C00FFE7A500FFE7B500FFE7A500FFDE9400FFDE9400FFD6 + 9400FFCE9400F7D6A500E7B57B00E7B584000000000000000000F7F7F700B5B5 + B500738C94006BC6D60073C6CE0073BDB50063A5B50073B5DE006BCEE70042A5 + BD0084BDD600ADE7E700A5CEC600B5C6CE0084A5C6005A9CC600529CC6005A8C + A5006384AD00739CDE006B8CD6009494DE00000000006B636300FFFFFF00F7F7 + F700D6D6D600E7E7E700E7E7E700D6D6D600D6D6D60073B5730021A521002984 + 2900296B2100215A210094ADA500BDCEDE00ADBDCE00B5C6D600BDBDBD00E7CE + B500F7D6B500D6C6B5005A6B5A00185A2100CECECE00D6D6D600FFFFFF00E7E7 + E700CECED600636B5A005A84420073B5520073B5520073B552005AA539003194 + 100029940800298C0800319408007BAD6300A5BD9C0084BD630073B54A007BB5 + 52006BAD4A004A942100298C00002994100000000000F7E7D600DEAD7300DEA5 + 6B00D6A58400EFE7DE000000000000000000EFD6C600C6733100D68C4200E7AD + 6B00F7B57300FFC68400FFD69400FFD68C00FFD69400FFCE8C00FFC68400FFC6 + 7B00F7CE9400F7CEA500E7B57B00D68C4A000000000000000000DEDEE7009C94 + A5006B7B8C005ABDD6004ADEDE005ADEE70063DEE70052D6EF00399CC60063CE + E7008CE7E700B5D6DE00BDCECE00BDBDB5007B94A5005A94BD00529CC6005294 + BD004A84BD006B84CE00949CD6008C84CE00000000006B636300FFFFFF00F7F7 + F700DEDEDE00E7E7E700E7E7E700D6D6D600DEDEDE0063B56300089C08001873 + 1800105A100018521800ADC6BD00CEDEE700BDC6D600BDCEDE00B5C6CE00D6D6 + C600EFD6B500FFDEBD009C9C84000839080000000000D6D6D600FFFFFF00E7E7 + E700CECED6005A635A00528442006BB55A0073B5520073B5520063AD42003994 + 100021840000298C0000318C08007BA56300A5B5A5007BB563006BB5420073B5 + 520073AD5200529C310029840000218C000000000000F7D6BD00DEA56B00D69C + 6B00CEA59400000000000000000000000000D6A58400C6631800D68C3900DE9C + 5A00E7A56300F7BD7B00F7BD7B00FFC68400FFE7CE00FFDEBD00FFC68400F7BD + 8C00EFB58400EFBD8C00EFCEAD00D68C4A000000000000000000B5ADBD008473 + 94007B6394005A4A840052848C0063C6BD0063CEEF0052BDEF0042A5CE005AD6 + E70063D6DE0084D6DE00BDDEDE00BDBDB50073737B0042849C0042ADCE004A8C + BD004A73B500A5B5D600C6BDC600A58CC600000000006B636300FFFFFF00F7F7 + F700CECECE00CECECE00CECECE00E7E7E700D6D6D6005AB55A00009400000863 + 0000004A0000295A3100DEE7E700CEDEEF00C6D6DE00C6D6DE00BDD6DE00C6CE + D600EFD6C600EFD6B500F7DEBD007B846300CECECE00D6D6D600FFFFFF00E7E7 + E700D6CEDE0063635A00528439006BAD4A007BB55A0094BD73009CC684007BB5 + 6300529C290031840800218C000073A55A00A5B59C007BB55A0073B54A008CBD + 73009CCE8C0094C67B0063A54A003994100000000000EFCEAD00D69C6300D694 + 6300CEA59400000000000000000000000000C67B5A00BD5A0800CE7B2900D694 + 5200E7AD6B00EFB57B00EFB57B00EFBD7B00F7DEBD00F7D6B500EFB57300E7B5 + 7B00DEA56300E7A56B00E7BD8C00CE8442000000000000000000C6C6B500BDB5 + 9C00C6BD9C00BDAD8C00C69C5A009473390042ADA50039C6EF004AA5D6005ACE + EF0039CEDE0052D6E7007BE7EF0094B5AD0042424A003173940042A5C600396B + BD00737BB500B59CC600AD73C6009C73CE00000000006B636300FFFFFF00F7F7 + F700DEDEDE00DEDEDE00DEDEDE00E7E7E700DEDEDE005AB55A00089C0800106B + 1000004200007B9C8400E7F7FF00C6D6E700C6D6E700CED6E700C6D6DE00C6D6 + DE00D6D6D600F7E7C600FFDEBD00F7DEBD00CECECE00D6D6D600FFFFFF00E7E7 + E700CECED6005A6352006384420094BD7300A5CE8C00B5D6A500C6D6B500BDD6 + AD00A5CE940073B55A004A9C21007BAD6B00ADB5A5009CC6730094C67B00ADD6 + A500BDDEAD00BDDEB500B5D6A5008CC67B0000000000E7C69C00D6946300CE94 + 6300D6AD9C000000000000000000F7EFEF00BD6B4A00B5420000CE7B2900E7AD + 7300E7B57B00DEA56300DE9C5A00E79C5A00E7A55A00E7B57B00E7AD7300DE94 + 5200D6843900D68C4200CE843900BD6310000000000000000000C6C6BD00ADA5 + A500AD9CA500BDA58C00CEAD6300AD7B31008C845A004AB5CE004AA5DE0042AD + DE0021B5DE00219CD6002994D60042637B0021395A00428CB5003194BD00426B + B500845AC6009C4ACE009C4AD6008C4ADE00000000006B636300FFFFFF00F7F7 + F700C6C6C600C6C6C600CECECE00CECECE00CECECE005AB55A0021A52100297B + 290031633100D6DEDE00CEDEE700C6CEDE00C6D6DE00C6D6E700C6D6E700CEDE + E700D6EFE70073946B00CEC69C00FFEFCE00CEC6CE00D6D6D600FFF7FF00E7DE + E700CED6D600636B5A005A6B4A009CB58C00C6DEB500C6DEB500BDD6AD00BDD6 + AD00C6DEB500C6DEAD00A5C694009CB59C00B5B5AD00BDCEAD00C6D6B500C6D6 + B500BDD6AD00C6D6AD00CEDEB500C6DEBD0000000000E7C69C00CE946300CE8C + 6300CEA59400000000000000000000000000B55A4200AD390000CE7B2900E7B5 + 7B00D69C5A00CE7B3100D6843900D6843900D6843100E7B58400EFD6B500D684 + 3900CE732100CE7B2900C66B1800AD42000000000000EFEFEF00B5B5B5009C9C + 9C00848C8C0084848400A5946B00C6945200D6AD7B00739C9C0039A5DE004AA5 + DE00219CDE000873D6000842AD0008428C003973A500398CBD001873AD003963 + AD005A31CE005A10D6006329CE006B39CE00000000006B636300FFFFFF00F7F7 + F700D6D6D600C6C6C600CECECE00CECECE00E7E7E7006BB56B0042B542003173 + 39008CA59C00D6E7EF00BDC6D600C6CEDE00C6D6DE00BDCEDE00C6CEDE00DEEF + F700A5BDAD00004A080029632100A5B58400CEC6CE00D6D6D600FFF7FF00DEDE + E700DEDEDE00ADADAD00737373006B73630084947B00A5BD9400B5D6A500BDD6 + B500BDCEB500C6CEBD00C6CEBD009CBD940084AD6B0094B58C00B5C6BD00C6CE + BD00CED6B500C6D6AD00A5BD9400848C7B0000000000E7C6A500CE8C5A00CE8C + 6300C6948400EFE7E7000000000000000000B5736B00A5310000C66B2100EFCE + B500E7BD9400CE7B2900CE843900CE844200CE7B3100D6945200DEAD7B00CE7B + 3100C6630800C66B1800BD631000A531000000000000E7E7E700ADADAD008C8C + 8C007B84840084848C00948C8400AD8C5A00DEB58400ADB59C0029A5D600319C + DE00429CCE003194DE003184D6003994D6003994CE002973BD00185294003952 + 9400424AB5001821C6003129DE005231DE00000000006B636300FFFFFF00F7F7 + F700CECECE00CECECE00D6D6D600C6C6C600DEDEDE0073BD73005ABD52005A94 + 5A00BDCECE00BDC6D600ADBDCE00B5C6CE00B5C6CE00B5C6CE00B5C6CE00C6D6 + DE007B9C8C00427B420039844200397B3900CEC6CE00D6D6D600FFF7FF00DEDE + DE00DEDEDE00E7DEEF00CEC6D6008C8C94006B6B63007B846B00ADBDA500C6CE + BD00B5C6B500A5BD94009CBD7B0073AD4A00429C10004294210073A5630094B5 + 9400B5CEAD00B5C6AD00848C84006B6B6B0000000000EFD6B500C6845A00C684 + 5A00BD847300E7D6D6000000000000000000C6A5A50094291000B5521800E7BD + 9C00E7BD8C00CE6B1800CE7B2900CE844200D68C4A00DEAD7B00D6945200CE7B + 2900C66B1000C6631000B54A10009418000000000000D6D6D600A5A5A5008484 + 8400737B7300848C8C009C948C009C8C5200C6AD5200A5BD73001894CE001094 + EF002194DE00319CDE003994D6003984BD00296BAD0021529C00103173002942 + 84005A73BD002139AD002129CE003131CE00000000006B636300F7F7F700EFEF + EF00CECECE00D6D6D600CECECE00CECECE00CECECE007BBD7B007BCE7B007BAD + 7B009CB5A500A5B5B500A5B5B500A5B5B500A5B5B500A5B5B500A5B5B500A5BD + BD007B9C8C005A8C5A00739C73006B9C6B00CEC6CE00D6D6D600FFFFFF00DEDE + DE00D6D6DE00D6D6DE00E7E7EF00EFEFEF00CECECE00B5B5B500A5A5A5009CAD + 94008CB573007BB55A007BB5520063AD390039941000218C0000299400004A94 + 21006B945A0094A59C00C6C6CE00D6D6DE0000000000F7E7CE00C68C5A00BD7B + 5200BD7B6300CEB5AD000000000000000000EFE7E700944A4A008C100000BD63 + 2100D6944A00CE7B2900C67B2900CE7B3100CE8C4200DEAD7B00DEA56B00D68C + 3900CE843900D68C52009C2908009429290000000000CECECE009C9C9C009494 + 940094948C009C949C008C949C00AD945A00BD8C4A00639494000084D6001073 + CE00297BB5005A84A500847373009C735A00AD7363009C6B6B0073636B00736B + 7B005A6BB500526BD6002942C6004A5AC600000000006B636300F7F7F7000000 + 0000D6D6D600DEDEDE00DEDEDE00DEDEDE00DEDEDE0084C684009CDE9C009CC6 + 9C0094B5940094B5940094B594008CB594008CB58C008CAD8C0084AD8C0084A5 + 8C0084AD840084AD84008CB58C008CB58C00CEC6CE00D6D6D600FFFFFF00DEDE + DE00D6D6DE00D6DEDE00DEE7E700EFF7F700FFFFFF00FFF7FF008C948C005A84 + 420073AD420073BD4A007BB55A006BAD4A0042942100218C080021940000298C + 000029630800737B7300F7EFFF00FFFFFF0000000000FFF7E700D69C7300B56B + 4200BD735200B58C7B00EFE7EF000000000000000000C6A5A500730008009C29 + 0800D6945A00DEA57300D6945200CE8C5200D6945200D69C6300D6945200D694 + 5200DEAD7300BD6B4A0084100000BD9494000000000000000000C6C6C600BDBD + BD00BDBDBD00BDB5BD00A5A59C00B59C5A007B8C7300218CDE002173C600637B + 9C00BD948400BD8C5A00C68C7B00C6948C00B55A5200A54A3100B56B5A00C68C + 6B007B5A5A004A63CE00526BCE004A5AC600000000006B636300F7F7F7000000 + 0000F7F7F700F7F7F700F7F7F700F7F7F700F7F7F7008CC68C00C6EFBD00C6E7 + C600ADDEB500A5D6A500A5D69C00A5DEA500ADDEAD00B5DEB500B5D6B500B5CE + B500B5D6B500A5D6A5009CD69C0094CE9400C6C6CE00D6D6D600FFFFFF00E7E7 + E700E7E7E700EFF7EF00F7F7F700EFF7F700EFEFEF00DEDEE7006B736B004A73 + 31006BAD4A0073BD52007BB55A006BAD4A0039941800218C000029940800298C + 080029630800636B6300D6D6DE00E7E7EF000000000000000000E7BD9C00BD6B + 4200B56B4A00AD735A00CEB5B5000000000000000000F7EFEF00AD7B7B007B18 + 1000AD5A4200DEB58C00E7BD9400DEAD8400DEAD7B00DEB58C00DEA57B00D694 + 6B00CE947B0084292100A56B7300000000000000000000000000000000000000 + 000000000000F7F7DE00BDBD7B009C9C4A00949C63005A6B730073635200DECE + 9C00B58C7300CEBDA500CEBDC600BD8C9400B5524200AD42180094312100AD63 + 5200E79463007B4A5A001839CE002131D600000000006B636300F7F7F700E7E7 + E700D6D6D600D6D6D600DEDEDE00C6C6C600C6C6C6008CC69400B5E7B500ADD6 + A500ADD6AD00B5DEB500BDDEBD00B5DEB500A5D6AD00A5D6A500BDEFBD00BDE7 + C600A5D69C00A5D6A500B5DEAD00BDDEBD00C6C6C600D6D6D600FFFFFF00F7F7 + F700F7F7F700EFF7F700E7E7EF00DEDEDE00DEDEDE00D6D6DE00737B7B00527B + 39006BAD4A0073B552007BB5520073B552004A9C2100298C0800318C0800298C + 0000216B0800636B6B00D6D6DE00DEDEE7000000000000000000F7E7D600C684 + 5A00AD5A4200AD634A00AD7B7300E7D6D600D6B5AD00DECEC600F7F7F700B58C + 8C008C393100AD635200D6AD9400E7C6AD00DEC6AD00DEBDA500D6AD9400B57B + 6B00944A4200AD8C840000000000000000000000000000000000000000000000 + 0000E7EFDE00ADB573009CA55A00ADAD7300B5AD7300846B42006B523100BDB5 + 8C00B58C7300DEC6BD00BD9CA500BD737B00B55A5200AD423100AD422900A54A + 3100BD846B00B55A290063315A001031B500000000006B636300F7F7F700E7E7 + E700C6C6C600D6D6D600D6D6D600CECECE00BDBDBD008CBD9400BDDEBD00D6DE + D600EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF0094CE94009CCE + 9C00DEDED600DEDED600D6D6D600DED6D600CECECE00D6D6D600FFFFFF00FFFF + FF00EFEFEF00DEDEDE00D6D6D600D6D6D600DEDEDE00DED6E700737B7300527B + 390073AD4A007BBD52008CBD6B009CC6840084BD6B005A9C3900428C1800298C + 000021630800636B6300D6D6DE00DEDEE700000000000000000000000000E7BD + 9C00B56B3900AD5A3900AD6B5200B57B6300AD6B5A00D6B5AD00000000000000 + 0000D6CECE00AD7B7B00A5736B00B58C8400BD9C9400B58C8C00AD848400B594 + 9400D6BDC6000000000000000000000000000000000000000000000000000000 + 0000DEE7DE00B5B59400DEDEC600F7F7EF00FFFFF700C6BDB5004A423100CEB5 + 9C00C6947B00CEA59C00C6949400C67B7B00B55A4A00AD523900A5523100B56B + 4A00BD7B6300A54A3900A539100063315A00000000006B63630000000000EFEF + EF00C6C6C600CECECE00D6D6D600C6C6C600D6D6D600C6C6C600BDBDBD00C6C6 + C600C6C6C600C6C6C600D6D6D600BDBDBD00BDBDBD00B5B5B500B5B5B500B5B5 + B5009C9C9C00A5A5A5009C9C9C0084848400D6D6D600C6C6C600DEDEDE00F7F7 + F700F7F7F700E7EFEF00DEDEDE00D6D6DE00DEDEDE00D6DEDE006B7B6B005A7B + 420084B563009CCE8400ADD69C00BDD6AD00BDD6AD00A5CE940084BD630052A5 + 310031631000636B5A00D6D6DE00DEDEE700000000000000000000000000FFF7 + E700D69C7300AD5A3900A55242009C523100A55A4A00D6B5B500000000000000 + 00000000000000000000E7DEDE00D6CECE00D6C6C600DECECE00E7DEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECED6005A525200DEB5 + AD00CE948C00BD847300C68C7B00BD7B6300C6735A00BD6B5200B5735A00BD73 + 5200CE7B6300D6B5A500C6A59400AD634200000000006B636300EFEFEF00EFEF + EF00DEDEDE00D6D6D600D6D6D600CECECE00D6D6D600D6D6D600CECECE00D6D6 + D600CECECE00CECECE00D6D6D600CECECE00CECECE00C6C6C600C6C6C600C6C6 + C600BDBDBD00A5A5A500848484006B6B6B00EFEFEF00D6D6D600C6BDBD00CECE + CE00E7E7E700F7F7F700F7F7F700EFEFEF00E7E7E700DEDEDE007B7B7B005A6B + 4A0094AD8400BDD6AD00BDDEB500BDD6B500BDD6B500BDDEAD00BDDEA50094BD + 84000810F7000810F7000810F7000810F7000000000000000000000000000000 + 0000DEBDA500A5523900944231009C4A3100A5634A00CEB5AD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7F7EF00E7CEBD000000000000000000000000000000 + 00000000000000000000000000000000000000000000B5B5B50094848400CE9C + A500C69C9C00CEADA500BD9C8C00B5847300BD7B6300C6735A00BD6B5A00AD63 + 4A00D6BDBD000000000000000000EFE7D600000000006B636300EFEFEF00E7E7 + E700C6C6C600BDBDBD00C6C6C600CECECE00BDBDBD00C6C6C600C6C6C600D6D6 + D600BDBDBD00C6C6C600C6C6C600CECECE00CECECE00C6C6C600BDBDBD00ADAD + AD0084848400949494009C9C9C00CECECE00EFEFEF00EFEFEF00EFEFEF00D6D6 + D600C6C6C600CECECE00E7E7E700F7F7F700F7F7F700EFEFF700BDBDC6007B7B + 7300636B5A00848C7B00ADBD9C00C6D6AD00BDD6B500B5C69C0094A58C007384 + 7B000810F70094F79C0094F79C0094F79C00000000000000000000000000EFDE + D600C68C6B00AD5A3100A54A31009C4229009C523900CEA59C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7EFE700EFDECE00E7C6AD00DEAD84000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F7009C9C9C00B5A5A500D6B5 + B500EFDEDE00FFF7F700F7EFEF00DECEC600BD847300B5634A00B5524200A56B + 7300D6CED600000000000000000000000000000000006B636300EFEFEF00E7E7 + E700C6C6C600C6C6C600CECECE00D6D6D600CECECE00CECECE00CECECE00D6D6 + D600CECECE00CECECE00C6C6C600BDBDBD00BDBDBD00C6C6C600CECECE00B5AD + B5008484840094949400B5B5B500FFFFFF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00CED6D600C6C6C600CECECE00E7E7E700F7F7F700FFFFFF00E7E7 + E700ADADAD006B6B6B0063635A00848C7B00949C8C00737B6B006B736B00A5A5 + A5000810F70094F79C0094F79C0094F79C00000000000000000000000000F7E7 + DE00E7C6AD00DEB59400D69C7B00C67B5200AD634200C6A59400000000000000 + 0000000000000000000000000000000000000000000000000000F7F7EF00EFE7 + DE00E7CEBD00E7C6AD00DEBD9400E7AD84000000000000000000000000000000 + 000000000000000000000000000000000000D6CECE00A58C8C00D6B5BD00FFF7 + F70000000000000000000000000000000000E7C6C600B5635200BD523900CEAD + A500EFEFEF00000000000000000000000000000000006B636300EFEFEF00E7E7 + E700B5B5B500C6C6C600C6C6C600D6D6D600CECECE00C6C6C600CECECE00CECE + CE00CECECE00BDBDBD00BDBDBD00BDBDBD00BDBDBD00C6C6C600C6C6C600B5B5 + B500848484008C8C8C00B5B5B500FFFFFF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00CECECE00BDBDBD00CECECE00E7E7E700FFF7 + FF00FFFFFF00E7E7E700A5A5A5006B6B6B00636B6300949C9C00D6DED600F7F7 + F7000810F70094F79C0094F79C0094F79C000000000000000000000000000000 + 00000000000000000000FFF7EF00F7E7D600E7C6B500E7D6D600000000000000 + 00000000000000000000000000000000000000000000FFF7EF00F7EFE700EFDE + CE00EFCEB500E7C6A500E7BD9400E7C69C000000000000000000000000000000 + 000000000000000000000000000000000000D6C6CE00B5A5A500F7EFEF000000 + 000000000000000000000000000000000000FFF7F700CE8C8400AD4A3900EFD6 + C60000000000000000000000000000000000000000006B636300EFEFEF00E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600CECE + CE00848484009C9C9C00C6C6C600DEDEDE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00CECECE00BDBDBD00CECE + CE00EFEFEF00FFFFFF00FFFFFF00DEDEDE00D6D6DE00F7F7F700FFFFFF00F7F7 + F7000810F7000810F7000810F7000810F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFF7E700F7E7DE00F7E7D600F7D6 + BD00EFCEAD00EFCEAD00F7DEC600FFF7E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DEBDB500A54A3900DEBD + BD0000000000000000000000000000000000000000006B636300E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600D6D6D600CECECE00C6C6 + C6009C9C9C009C9C9C00C6C6C60084848400EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00CECE + CE00B5B5B500CECECE00EFEFEF00FFFFFF00FFFFFF00F7F7F700D6D6DE00BDBD + BD00BDC6C600DEDEDE00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFF7EF00F7E7D600F7EFD600F7EF + DE00FFEFE700FFF7EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFD6D600A5635A00D6BD + BD0000000000000000000000000000000000000000006B636300E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00D6D6D600D6D6D600D6D6D600CECECE00C6C6C6009C9C + 9C00ADADAD00BDBDBD008484840000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00CECECE00BDB5BD00CECED600D6D6DE00BDBDBD00BDBDBD00DEDE + DE00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFE7E700FFF7 + F7000000000000000000000000000000000000000000000000006B6363006B63 + 63006B6363006B6363006B6363006B6363006B6363006B6363006B6363006B63 + 63006B6363006B6363006B6363006B6363006B6363006B6363006B6363008484 + 840084848400848484000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00C6C6C600B5B5B500D6D6D600EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000525229008484630073734A004A5A2100215200002173000018840000109C + 000010B5000008C60000008C0000007B0000083952004A42BD002121A5000029 + AD00005ABD000094D60000CEEF0000C6EF00000000000000000000000000E7E7 + E700A5A5B50031217B0010006B00423184009CA5BD0084949C00ADB5BD00C6CE + DE00D6D6DE00DEE7EF00EFEFF700F7FFFF00FFFFFF00FFFFFF00F7FFFF00ADAD + BD00B5B5C600C6CED600C6C6CE00BDBDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00F7F7F700F7EFEF00F7EFEF0000000000E7D6D600EFDEE700F7EF + F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EF + DE00DE843900EFD6AD00FFFFEF00FFF7D600FFF7CE00FFEFC600FFE7BD00FFE7 + B500FFDEAD00FFD6A500FFD69C00F7BD84000000000000000000000000000000 + 000052522900848463007B735A00525A29002152000021730000188C000010A5 + 000010BD000008D6000000BD000000840000005A08001821730008009C000008 + 9C000029AD000052BD00007BCE00085ABD000000000000000000FFFFFF00D6D6 + D6008484A50018087300100073005A529C009CADBD0084949C00B5BDCE00C6CE + DE00D6DEE700DEE7EF00EFEFF700F7FFFF00FFFFFF00FFFFFF00E7E7EF00A5AD + B500BDBDCE00CECEDE00DEE7EF00EFF7FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00EFE7E700E7DEDE00DED6D600DED6D600EFDEDE00EFE7E700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFC6 + 9C00DE8C4200FFFFEF00FFFFE700FFF7D600FFF7CE00FFEFC600FFE7BD00FFE7 + B500FFDEAD00FFD6A500FFD69C00FFCE94000000000000000000000000000000 + 00005252390073735200847B63005A6339002952000021730000188C000010A5 + 000010BD000008D6000000EF000000BD000008630000082929000029A500007B + CE000094D600005ABD002129940073425A000000000000000000F7F7F700C6C6 + C6005A52940010007B00180873007B73AD009CA5B5008C94A500BDC6CE00CECE + DE00D6DEE700E7E7EF00EFF7F700FFFFFF00FFFFFF00FFFFFF00D6DEDE00A5AD + BD00BDC6D600BDBDC60094949C00A5A5A5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7F7F700EFE7 + E700CEAD9C00C6847300C6AD9C00C6BDBD00FFF7F700EFDEDE00F7E7E700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFF7F700E794 + 5200EFC69400FFFFF700FFFFDE00FFF7D600FFEFCE00FFEFC600FFE7BD00FFDE + B500FFDEAD00FFD6A500FFD69C00FFCE94000000000000000000000000000000 + 0000636352005A5A31008484630073734A0031520800216B0000188C000010A5 + 000010BD000000DE000000FF000000CE0000084A100000318C00008CD60000E7 + F70000FFFF0000EFFF002173AD0094525A000000000000000000EFF7EF00ADAD + BD003929840010008400211884008C8CB500949CAD00949CAD00C6C6D600CECE + DE00DEDEE700E7E7EF00F7F7F700FFFFFF00FFFFFF00FFFFFF00CED6D600A5AD + B500BDC6D600C6CECE00BDBDC600BDBDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00F7F7F700E7E7DE00CEAD + 9400AD4A1800A5310000A5422100AD847300FFFFFF00FFF7FF00EFDEDE00F7E7 + E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7D6BD00DE94 + 4200FFEFD600FFFFEF00FFFFDE00FFF7D600FFEFCE00FFEFC600FFE7BD00FFDE + B500FFDEAD00FFD6A500FFD69C00FFCE94000000000000000000000000000000 + 000000000000424229007373520073735200394A1000295A0000217B00001094 + 000010B5000000DE000000EF000000940000002939000039B500008CD60000C6 + EF0000E7F70000FFFF0000B5E700736BA5000000000000000000D6DED6008C8C + AD0029108C001800940031298C009CA5BD008C94A5009CA5B500C6CED600D6D6 + DE00DEDEE700E7EFEF00F7F7FF00FFFFFF00FFFFFF00FFFFFF00C6C6CE00A5AD + BD00BDC6D600BDC6CE00BDBDC600CECED6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00E7E7E700CEA58C00AD52 + 1800A5310000C67B4A00CE8C63009C390800FFFFFF00FFFFFF00FFF7F700EFDE + DE00EFE7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700E7AD6B00EFB5 + 7B00FFFFF700FFFFE700FFFFDE00FFF7CE00FFEFCE00FFEFBD00FFE7B500FFDE + AD00FFDEA500FFD69C00FFD69C00FFCE8C000000000000000000000000000000 + 00000000000052524200424A21005A63390031390000294A000021630000187B + 0000189C000008BD000008C60000086B000010215200184AC6000873CE00009C + D60000B5E70000C6E700008CD6006B6BAD000000000000000000CECED600635A + A50021089C0018089400524A9C00A5ADBD00848CA500ADB5C600CECEDE00D6D6 + E700DEE7EF00EFEFF700F7FFFF00FFFFFF00FFFFFF00FFFFFF00B5BDC600A5AD + BD00C6C6D600C6C6CE00B5B5BD00BDBDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00F7F7F700E7DEDE00CEA58400BD521800D694 + 5A00B54A1800EFD6BD00FFFFFF00F7DECE00FFFFFF00FFFFFF00FFFFFF00FFF7 + F700EFD6DE00EFE7E700FFFFFF00FFFFFF00FFFFFF00FFEFE700DE842900F7CE + 9C00FFF7F700FFFFE700FFFFDE00FFF7CE00FFEFC600FFE7C600FFE7B500FFDE + AD00FFDEA500FFD69C00FFD69C00FFCE8C000000000000000000000000000000 + 000000000000000000007B7B6B00424218003129000031390000294A0000215A + 000021730000108C0000107B00005A7331008473A500425AC6004A84D600107B + C600007BCE000084CE000852BD00846B9C0000000000EFEFE700B5B5C6004231 + A5002108A50021109C006B6BAD009CA5B5008494A5008C949C00A5A5AD00BDBD + C600CECED600E7E7E700F7F7F700FFFFFF00FFFFFF00F7FFFF00ADB5BD00ADB5 + BD00BDC6D600D6D6DE00E7E7E700E7E7E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00F7F7F700E7DEDE00CE9C7B00BD632100E7BD9400D69C + 6B00BD633900FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFF7F700E7D6D600EFDEE700FFFFFF00FFFFFF00FFFFF700EFB57B00DE8C + 3900E79C5200F7D6B500FFF7E700FFFFDE00FFEFCE00FFEFBD00FFE7B500FFDE + AD00FFDEA500FFD69C00FFCE9400FFC68C000000000000000000000000000000 + 00000000000000000000000000006B73520018520000188C000018A50000188C + 0000186300003152100084846300DEC6BD00D6B5CE005A52AD006373CE006B94 + D6004A84CE002963C6004A5ABD00D6B5C60000000000E7E7DE008C8CB5002921 + A5002118AD0029189C008C8CB500949CAD008C9CA500949CA500A5A5AD00B5BD + C600C6C6CE00D6D6D600DEE7DE00EFEFEF00FFFFFF00EFF7F700A5ADB500ADB5 + C600BDC6CE00B5BDC6009C9CA5007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7F7F700E7DEDE00CE947300C66B2900E7BD9400F7DEB500BD5A + 2100E7B59400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFF7F700E7CED600F7E7E700FFFFFF00FFFFFF00FFFFF700F7E7 + D600EFB58400DE8C3900DE944A00EFCE9C00F7EFD600FFF7D600FFE7BD00FFDE + AD00FFDEA500FFD69C00FFCE9400FFC68C000000000000000000000000000000 + 00000000000000000000A5AD9400296B080010A5000008E7000000FF000000FF + 000000CE0000397B1800C68C8C00D6A5AD00DEB5B500CEADBD006B63B5005252 + AD005252B5006B52A500CE94A500DEADAD0000000000D6CED6006B63AD002118 + B5002118B5003929A5009CA5BD008C9CA5008C94A500A5ADB500BDBDC600CECE + DE00DEDEEF00EFEFF700FFFFFF00FFFFF700FFFFFF00E7EFEF009CA5B500B5BD + C600BDBDCE00848C8C005A4A5200523139000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00F7F7F700DED6CE00CE946B00CE733100F7D6AD00FFEFBD00E79C5A00BD63 + 2900F7EFDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7F7F700DECECE00F7EFE700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7E7D600E7B58400D67B2900DE8C4200EFC69400FFF7D600FFEF + CE00FFDEAD00FFD69C00FFCE9400FFC68C000000000000000000000000000000 + 00000000000000000000315A10001884000010B5000000DE000000F7000000FF + 000000FF000000C600005A5A2900AD636300AD737300BD847B00BD847B009C6B + 7300C69CA500E7BDBD00DEB5AD00D6A5A500F7F7F700BDBDCE004A39AD002918 + C6002910B500524AA500A5ADBD008C94AD008C8C9C007B848C0094949C00ADAD + B500BDBDC600CECED600E7E7E700F7FFF700FFFFFF00DEDEE7009CA5AD00B5BD + CE00BDBDC6007B7B840073525A0084525A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00EFEF + EF00E7DED600CE8C5A00D6843900F7D6AD00FFEFBD00FFDE9C00CE6B2900D694 + 6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFF7F700DECECE00EFE7E700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFF7F700F7E7DE00E7B58400D67B3900CE7B3100E7B5 + 8400F7E7C600FFE7BD00FFD6A500FFC68C000000000000000000000000000000 + 0000000000009CA58C00185200001884000010AD000008CE000000DE000000EF + 000000F7000000DE000031841800ADA59C00A58C8C008C6363009C6B6B00AD6B + 6B00B57B7B00C68C8C00CEA5A500DEB5B500EFEFEF009494BD003129BD002921 + D6002118B5006B6BAD00A5A5B5008C8CA500ADB5BD00BDC6CE00CECED600D6DE + E700E7E7EF00EFEFF700EFF7F700F7FFF700FFFFFF00CED6D6009CA5AD00B5BD + CE00BDC6CE0094949C0094848C00B58C94000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00EFEFEF00E7CE + C600D6945200DE8C4200F7E7BD00FFEFB500FFE7A500EFC67B00BD5A1800F7DE + D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EFEF00E7CECE00F7E7E700FFFF + FF00FFFFFF00FFF7FF00FFF7F700F7F7F700F7EFEF00EFDED600DEA58400CE73 + 3100CE733100E7AD7300F7DEBD00FFDEB5000000000000000000000000000000 + 000000000000848C6B00295A0800217B0000109C000010B5000008C6000008CE + 000008D6000000C6000031841000B5A59C00AD949400DED6D600E7EFEF00D6D6 + D600BDADAD00A5848C00A5737300AD737300D6D6D6006B73BD002921CE002921 + D6003129BD00A5A5D600CECED600B5B5C600C6CED600CED6DE00D6D6DE00DEDE + E700E7E7EF00F7F7F700FFFFFF00FFFFFF00FFFFFF00C6C6CE009CA5B500B5BD + CE00C6CED600ADADB500ADA5AD00DEC6CE000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F700EFEFEF00DECEC600DE94 + 5200E79C4A00FFE7BD00FFEFB500FFE7A500FFDE9C00D68C4200D68C5A00FFF7 + F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700DEC6C600EFE7 + E700FFFFFF00FFFFFF00F7F7F700F7F7EF00F7EFEF00F7EFEF00F7EFEF00EFDE + D600DEB59400C66B3100C6632100DEA573000000000000000000000000000000 + 000000000000949C8400527331005A943900298C10001094000010A5000010B5 + 000010AD00001094000039732100DED6CE00D6B5BD00C6ADAD00C6BDB500D6CE + CE00E7EFEF00EFF7F700E7E7E700BDB5B500DEDEE7004A4ABD002129DE002929 + D6003929CE00736BD600948CDE00B5B5E700CECEEF00DEE7F700F7F7FF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B5B5BD009CA5B500B5BD + C600CECED600C6C6CE00B5ADB500F7EFF7000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00EFEFEF00E7CEBD00DE944200EFAD + 6300FFEFC600FFEFB500FFE7AD00FFE7A500F7CE8C00C6631800EFCEAD00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EFEF00DEC6 + C600F7E7E700FFFFFF00FFFFF700F7F7F700F7EFEF00F7EFEF00F7E7E700EFE7 + E700EFE7E700EFD6CE00DEAD9400C66B39000000000000000000000000000000 + 000000000000000000005A6B390084A56B006BA5520039942100188C0000108C + 000021940800297308006B845200FFFFFF00FFFFFF00F7F7EF00E7D6D600CEBD + BD00C6ADAD00BDADAD00CEC6C600E7E7E700BDBDE7003931CE002929E7003129 + DE002929D6002118CE001810BD002118BD003129BD004A42B5005A52BD00736B + C6008484CE00A59CD600C6C6E700E7E7F700F7F7FF00D6D6DE00D6D6DE00DEE7 + E700DEE7E700DEE7E700CECED600D6D6DE000000000000000000000000000000 + 00000000000000000000F7F7F700E7EFEF00DEC6AD00E79C4A00EFB57300FFEF + C600FFEFB500FFE7AD00FFE7AD00FFE7AD00E7A55A00CE6B2900FFF7DE00FFEF + C600FFF7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EF + EF00DEC6C600F7EFEF00FFFFFF00F7F7F700F7EFEF00F7EFEF00EFEFE700EFE7 + E700EFE7E700EFDEDE00EFDEE700E7D6CE000000000000000000000000000000 + 000000000000000000006B5239006373420094AD7B0094B57B007BAD63006BA5 + 52005A8439004A632900CECEC600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00F7F7F700EFE7E700DEC6C600CEADAD009494D6003131D6002929DE002929 + DE002121DE002121D6002921CE002118C6002118BD002110B5001808AD001808 + AD002108A50021109C0021109400291894004A39A5006B63B500948CC600B5AD + D600CECEDE00E7E7F700EFEFF700C6C6CE000000000000000000000000000000 + 000000000000FFFFFF00E7E7E700E7CEB500EF9C4A00F7BD7300FFF7CE00FFEF + B500FFEFAD00FFE7AD00FFE7AD00FFDEA500CE732900DEAD7300FFEFC600FFCE + 8400FFC68400FFD6B500FFEFE700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00F7EFEF00DEBDBD00EFE7E700FFFFFF00F7F7F700F7EFEF00F7EFEF00EFE7 + E700EFE7E700EFDEDE00EFDEDE00EFDEE7000000000000000000000000000000 + 000000000000000000009C6363005A4A310063734A00737B520073845A005A73 + 4200636B4200C6C6B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7F700CECEF700BDC6F7009CA5 + EF00848CE7006B73DE005A5AD6004A4ACE003131C6002921BD002921B5002110 + B5001808AD001808A50018089C001008940010008C000800840008007B001000 + 730021107B00392984004A427B004A4273000000000000000000000000000000 + 0000FFFFFF00EFEFEF00E7C6A500F7A54200F7CE8C00FFF7CE00FFEFB500FFEF + B500FFEFAD00FFE7AD00FFE7AD00EFB57300CE6B2900F7DEBD00FFDEAD00FFC6 + 7B00FFBD7300EFAD6B00EFAD7B00EFCEAD00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00EFE7E700DEBDC600F7E7EF00FFFFFF00F7F7F700F7E7EF00F7E7 + E700EFE7E700EFE7E700F7F7F700FFFFFF000000000000000000000000000000 + 000000000000AD848C007B424A00BDB5B500D6DECE00ADAD9C00A5A58C00BDBD + AD00EFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000DEDEF700CECEEF00B5B5E7009C9C + DE008C84D600736BC6005A4AB5004A42AD0031299C002118940018088C001000 + 8400100073000800630000004A0010086B000000000000000000000000000000 + 0000F7F7F700EFCEA500F7AD5200FFD69400FFF7CE00FFEFBD00FFEFB500FFEF + B500FFE7AD00F7D69C00EFBD8C00CE7B3100DE9C6300FFEFD600F7D69C00F7C6 + 8C00F7BD8400F7C68400F7BD8400EFAD7B00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7EFEF00D6BDBD00EFE7E700FFFFFF00F7EFEF00F7F7 + F700FFF7F700FFFFFF00FFFFFF00EFE7E7000000000000000000000000000000 + 000000000000846B6B006B636300D6DED600F7F7F700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7F7FF00EFEFF700DEDEEF00CECEE700C6BDDE00A59C + CE008473B500635A940021187B00424AAD00000000000000000000000000FFFF + FF00F7DEB500F7AD4A00FFDEA500FFFFCE00FFF7BD00FFEFBD00FFE7AD00F7CE + 9C00EFBD9400EFB58400E7A56B00C6631800F7D6B500F7E7CE00F7DEB500FFE7 + AD00FFD69400FFCE9400FFC68400F7BD8400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00EFE7E700D6BDBD00EFE7E700FFFFFF00FFFF + FF00F7F7F700E7D6D600D6B5BD00CEADAD000000000000000000000000000000 + 00000000000000000000B5BDBD00C6C6C600CEC6CE00D6D6D600E7E7DE00EFEF + EF00F7F7F700F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000524AAD005A7BCE00000000000000000000000000FFFF + FF00F7CE8C00FFAD4A00FFDEA500FFF7CE00FFE7B500F7CE9C00EFBD8C00EFB5 + 8C00E7B58C00DEAD9400CE845200D6844A00FFF7E700FFFFD600FFF7D600FFEF + C600FFD69C00FFC68C00F7BD8400F7BD7B00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFE7E700D6BDBD00EFDEDE00E7CE + CE00CEB5B500D6BDBD00E7D6D600EFEFEF000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6C6C600C6BDC600C6C6 + CE00D6CED600DEDEDE00E7E7E700EFEFEF00F7F7F700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005A52BD007B94E7000000000000000000000000000000 + 0000FFF7EF00F7CE9400F7AD5200F7AD6300EFBD8C00EFBD9C00E7BD9400DEB5 + 9C00D6B5A500D6B5AD00CE733100EFBD9C00FFFFEF00FFFFD600FFF7CE00FFEF + BD00FFD69C00F7C68400F7BD7B00F7B57300FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EFEF00D6BDBD00E7D6 + D600F7EFEF00FFFFF700FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CECECE00C6C6C600C6C6C600C6C6C600D6D6D600DEDEDE00E7E7E700EFEF + EF00F7F7F700FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006B6BC600738CE700000000000000000000000000F7F7 + F700EFEFEF00E7E7E700DED6CE00E7B57B00EFA55200DEB59C00DEBDBD00E7CE + CE00F7E7E700EFC69C00D6843900FFEFE700FFFFDE00FFF7CE00FFEFBD00FFE7 + B500FFDEA500F7C68400F7BD7B00EFAD7300FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D6D6D600C6C6C600C6C6C600CECE + CE00D6D6D600DEDEDE00E7E7E700EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BDBDE7004A5ACE0000000000FFFFFF00F7F7F700E7E7 + E700DEDEDE00D6CECE00D6C6C600D6BDBD00DEC6BD00EFD6D600F7EFF700FFFF + FF00FFFFFF00DE945200E7AD7B00FFFFEF00FFF7D600FFEFC600FFEFBD00FFE7 + B500FFDEAD00FFCE8C00F7BD7B00EFAD7300FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6D6D600CECECE00CECECE00CECECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008C8CDE0000000000EFEFEF00DEDEDE00D6CE + CE00D6C6C600D6C6C600E7CECE00EFE7E700F7F7F700FFFFFF00FFFFFF00FFFF + FF00F7DECE00D6732900F7DEC600FFFFE700FFF7CE00FFEFC600FFE7BD00FFE7 + B500FFDEAD00FFD69C00F7BD7B00EFAD7300FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00E7DEE700DECECE00DECE + CE00EFD6DE00F7EFEF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFF7 + F700DEA56B00E7A56300FFF7EF00FFFFD600FFF7CE00FFEFC600FFE7BD00FFE7 + B500FFDEAD00FFD6A500FFC68C00EFAD7300FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000BDC6CE00314263006B94C6006394D600638CCE006B9CD6005A8CCE006394 + CE00639CD600639CD6006BA5DE0073ADE70084B5EF00396BA500215A94004A84 + BD006B9CDE006BA5E7006BA5E7006BA5E7000000000000000000000000000000 + 000000000000FFEFEF00FFEFE700EFDEDE00E7D6D60000000000000000000000 + 00000000000000000000000000000000000000000000000000007B737300A59C + 9C00C6C6C6000000000000000000000000000000000000000000000000000000 + 000000000000C6BDB500EFEFEF00EFEFEF00EFEFEF00E7E7EF00E7E7E700DEDE + DE008CDEEF005AC6FF00298CC6005A849400BDBDBD00CECECE00C6C6C600B5B5 + AD009CA5A5008C949C008494A5007B94B5000000000000000000F7FFFF0094AD + 9400CEF7D600A5D6A5009CD6940094CE8C0094CE940094CE940094C694008CC6 + 9C008CCE9C0094CE9C00638C5A00314A1800525A1000525A1000525A1000525A + 1000525A1000525A1000525A1000525A10000000000000000000000000000000 + 0000C6CECE0029425A00638CBD006394D6006394CE006394CE006394CE006394 + D600528CC6003973AD00427BB5004284BD00528CBD004273AD00528CC60073AD + E70073A5E700639CDE006B9CDE006BA5E7000000000000000000000000000000 + 000000000000FFF7EF00FFFFF700FFFFFF00FFFFFF00FFFFEF00FFF7EF00F7EF + EF00EFDEDE000000000000000000000000000000000000000000BDBDBD007B73 + 7300BDB5BD000000000000000000000000000000000000000000000000000000 + 000000000000C6C6BD00F7F7F700EFEFEF00EFEFEF00EFEFEF00E7EFEF00EFE7 + E700D6DEDE008CDEEF005ACEFF00298CC6005A7B9400949494008494A5007B9C + B5007BA5D60084B5EF008CBDFF0084B5EF000000000000000000B5C6B5006B84 + 6300C6EFBD00ADDEAD0094C68C009CD69C00A5D69C0094C694009CD69C009CCE + 9C0094C68C009CD6940073945A00294A0800525A1000525A1000525A1000525A + 1000525A1000525A1000525A1000525A10000000000000000000000000000000 + 0000CECECE00394A63006B94C6005A8CCE006394CE00638CCE005A8CC6004A7B + B500396BA500427BB5005A94C6005284BD0031639400396B9C00528CBD0073A5 + DE0073A5DE006BA5DE006BA5DE00639CD6000000000000000000000000000000 + 000000000000FFFFF700FFFFFF00FFFFF700FFFFFF00FFFFF700FFFFEF00FFFF + EF00FFFFE700FFFFE700FFF7EF00FFEFE700F7E7E7000000000000000000638C + AD005273BD008C8C9C00CECECE00000000000000000000000000000000000000 + 0000C6BDB500CEC6C600FFFFFF00F7F7F700EFF7F700EFEFEF00EFEFEF00DEDE + DE00BDBDB500949CA5007BCEE70063CEFF00298CC60031638C00638CBD007BB5 + EF0084BDFF0084BDFF007BB5F70073A5D60000000000FFFFEF008C9473005A6B + 390094AD7300C6E7B500ADDEAD007BB58C0073A57B00739C7B0084AD840094C6 + 9400ADD69C008CB573004A6B3100395218005A5A10005A5A10005A5A10005A5A + 10005A5A10005A5A10005A5A10005A5A1000000000000000000000000000FFEF + F700C6C6C60031425A006B94C6005A94D6006B94D6005284BD004A7BB5006B9C + D60084B5EF007BB5E7005A8CC60031639C00184A7B001852840031639400427B + AD005A8CC60073A5DE0073ADE7006BA5E7000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFEF00FFFFEF00FFFF + EF00FFFFEF00FFFFDE00FFFFE700FFFFDE00FFF7D600FFF7D600DEE7D6006BC6 + FF003994F7006B73A500C6B5B500000000000000000000000000000000000000 + 0000B5B5AD00DEDED600FFFFFF00F7F7F700F7F7F700EFF7F700F7F7F700C6CE + D600739CC6007BA5DE007BADE70084DEF7006BD6FF00318CCE00316394006384 + AD0073A5DE007BADE70073A5D6007394AD0000000000D6D6BD0084845A00636B + 29005263210084A573008CB59C004A7B6B0031636300396B6B0042736B005A8C + 7B007BA584004A6B42001842180018422900424A1800424A1800424A1800424A + 1800424A1800424A1800424A1800424A18000000000000000000000000000000 + 0000CED6D600314A63005A84B500528CCE004A73B5006394CE0084B5EF008CBD + EF0073A5D600396B9C001042730018527B003163940031639400316394003163 + 9400396BA5004A84B5006394CE006BA5DE000000000000000000000000000000 + 0000FFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFF7EF00FFEFDE00FFEF + CE00FFE7BD00FFE7C600FFE7C600F7E7BD00F7EFC600FFF7C600FFF7CE00ADD6 + DE0052BDFF004273CE00A5948C00F7D6BD000000000000000000000000000000 + 0000BDBDB500EFEFEF00FFFFFF00F7F7F700F7F7F700F7F7F700F7F7F700D6DE + DE007BA5DE0073ADEF0073A5EF007BADE7007BDEF7006BD6FF003194CE003163 + 8C0073849C00A5ADBD00BDC6CE00C6C6C600FFFFF700B5B5940084844A006B73 + 21004A5A1000395229004A736B006B9CA50094BDEF008CC6EF007BADD6005284 + 9C0029525A00214A4A007BADAD006BA5B5004294B5004294B5004294B5004294 + B5004294B5004294B5004294B5004294B5000000000000000000000000000000 + 0000ADB5C600294263005284B500528CCE007BADE7008CBDF7007BADE7005284 + B500396B9C00214A7B00184A7300426B9C00396B9C00396B9C00396394003163 + 94002963940031639C00427BAD005284BD000000000000000000000000000000 + 0000FFF7F700FFF7F700FFEFEF00FFEFDE00FFE7CE00FFE7C600FFE7C600FFE7 + CE00FFE7BD00FFE7BD00FFDEAD00FFD6AD00FFD6A500FFD6AD00FFE7B500E7D6 + B50084C6EF00429CFF00636B9400C6A57300000000000000000000000000C6BD + BD00DEDEDE00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700EFEF + EF008CADD6006394CE006B94CE007394C6008CA5C6009CE7EF0073DEFF00397B + A5007B737300BDBDBD00DEDEDE00B5B5BD00EFF7DE009CA573008C8C4A006B6B + 1800525A1000395231007BA5A500A5D6F70094C6FF0094CEFF009CD6FF008CBD + F700426B8C00214A6300A5EFFF008CE7FF0063CEFF0063CEFF0063CEFF0063CE + FF0063CEFF0063CEFF0063CEFF0063CEFF00000000000000000000000000BDC6 + CE005A6B8400294A730073A5DE0084BDFF0084B5EF005A8CC60039639C00295A + 8C0031639400295A840029527B0042739C0031638C00396B9400396394003163 + 94003163940031639400295A940031639C000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFDEDE00FFD6CE00EFBD9C00E7B58400EFC6 + 9400F7D6A500FFDEB500FFE7C600FFE7C600FFEFCE00FFE7C600FFDEB500FFDE + AD00BDCEC60063C6FF00397BD6009C847B000000000000000000C6C6BD00D6D6 + D600E7E7E700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700C6CEDE00A5BDD600C6CED600DEDEDE00EFE7E700D6E7E7009CDEDE00C6B5 + BD008C73730084737300C6C6BD008484AD00DEE7C600949C6B0094944A005A63 + 1000424A08005A6B5200C6E7F700A5CEFF009CCEFF008CC6FF0084C6FF00A5D6 + FF007BA5CE0021526B008CDEEF0073E7FF0063CEFF0063CEFF0063CEFF0063CE + FF0063CEFF0063CEFF0063CEFF0063CEFF00D6D6D600C6BDC6007B848C00424A + 630063849C0094BDE7008CBDEF005A94CE00396BAD0031639C0031639400315A + 940031639400315A8C00214A73001039630018427300295A8400396B94003963 + 94003163940031639400295A9400316394000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFE7E700EFBDBD00EFAD9C00DEA5 + 8400CE9C6300D6A56B00DEAD7B00EFBD8C00F7CEA500F7DEBD00FFEFCE00FFEF + D600F7EFD6009CD6F7004AADFF005A73A5000000000000000000CEC6C600EFEF + EF00DEDEDE00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700EFEFEF00EFEFEF00EFEFEF00DEDEDE00EFDE + DE00E7CECE006B52730063637B005A5A9C00CED6B5009CA56B008C944A005A63 + 10004A5218005A735A00CEEFFF00A5CEFF009CCEEF0094D6FF0084C6FF009CCE + FF008CADCE00295A6B008CE7EF006BEFF7005ACEFF005ACEFF005ACEFF005ACE + FF005ACEFF005ACEFF005ACEFF005ACEFF00525A630021314A004A638C00739C + CE007B9CC6007BA5CE005A84B500215A8C0029639400215A8C004273A500395A + 8C0031639400316384000031420010ADAD0021B5B50018526300294A6B00316B + 940029639400215A9400296BAD00427BBD000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EFEF00E7ADB500E7AD + A500DE9C8C00CE8C7300C68C5A00C68C5A00CE946300D69C6B00D6A57300E7B5 + 8400F7C69C00CEC6B50073CEFF003984DE0000000000C6C6BD00E7E7E700E7E7 + E700E7E7E700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7EFEF00DEE7 + DE00C6BDE7002921C60039319C0031299400D6CEB5009C9C6B00949C4A00636B + 10004252100052634A00BDDEDE00CEFFFF009CD6FF008CC6FF0094C6FF009CCE + FF0073ADB500185A52008CE7F70073DEFF005ACEFF005ACEFF005ACEFF0063CE + F70063C6F7005AC6FF005ACEFF0063CEFF00000000006B737B004A5263002131 + 5200082952006394C600639CCE003973AD00295A940029639C00315A94003163 + 940039639400294A6B00086B7B0029EFE70021FFEF0063DEE7004A7B8C001839 + 6300395A84005A84B5006394CE0073A5D6000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFF7 + F700EFD6CE00EFBDBD00DEB5AD00DEBDAD00DEB59400C6946300C6946300BD8C + 5A00C6945A00CE94630094B5C60052B5FF00CECEC600D6CECE00F7F7F700D6D6 + D600EFEFEF00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700EFF7F700EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7E7E700E7EF + E700CED6DE008C8CE7008C8CC60021189400CECEB5009CA56B009CA55200636B + 18004A521000394A2100849C8C00CEF7EF00BDE7FF00ADD6FF00ADDEFF009CC6 + E7004A7373001842390084CECE0094E7FF0063CEF7005ACEFF005AC6F70063C6 + F7006BCEF70063CEFF0063CEFF005AC6EF000000000000000000C6C6BD002931 + 420052739C0073ADEF0073B5F7006BADE700528CC6003973AD00315A9C00215A + 9400395A8C001042630018C6CE0021FFFF0018FFEF005AFFFF0094F7FF006BAD + BD00316384005A739C0084A5D60063ADD600000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFEF00FFFF + EF00FFFFF700FFFFFF00FFFFF700FFFFFF00FFF7EF00DEBD9400CE946300BD84 + 5A00B57B4A00B5844A00A58463007BC6EF00CEC6BD00EFEFEF00EFEFEF00D6D6 + D600F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700EFF7 + F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7E7EF00E7E7 + E700E7E7E700EFEFE7009C9CB50029219C00D6D6BD00A5AD7300A5AD63007373 + 21005A631800394A1000425231007B947300B5D6CE00C6E7EF0094B5C600637B + 730039523100294A2100426B52008CBDBD0094E7FF0052ADDE00217BAD002173 + A500317BAD0052ADD60073CEF70063B5C6000000000000000000525A63005A73 + 940084B5E7006BA5EF006BADEF006BADF70073B5EF005A94CE005284BD004273 + A50018396B0010849C0018FFFF0010FFFF0052FFFF0052F7F70084FFFF0084FF + FF0052CEDE00297B9C0021527B0052A5CE00000000000000000000000000FFEF + DE00FFF7EF00FFF7EF00FFFFF700FFFFF700FFFFF700FFFFEF00FFFFE700FFFF + E700FFFFE700FFFFE700FFFFEF00FFFFEF00FFFFF700FFFFEF00E7D6BD00D69C + 7B00BD7B5A00B57B5200B5734200949CA500EFEFEF00FFFFFF00DEDEDE00DEDE + DE00F7F7F700F7F7F700F7F7F700F7F7F700EFF7F700EFEFF700EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7E7EF00E7E7 + E700E7E7E700E7EFE7008C8CBD006B63B500E7E7CE00A5A57B00ADB56B007B7B + 29005A5A10005A632100424A100042521000425A2100526B3900425A3100424A + 1800525A10005A631000394A100052734A00528C9C00427BA5004273AD005A8C + C6005284B50039739C00427B9400396B6B00000000007B84940029527B006BA5 + DE0063A5E7006BA5EF006BA5F700639CEF005AADEF007BADEF0073ADE7006B84 + B500084A730010E7E70008FFFF0039FFFF0052F7F70084FFFF007BE7F70031C6 + D60010DEEF0042E7F700317B9C0010396B00000000000000000000000000FFDE + B500FFD6AD00FFDEB500FFE7BD00FFE7C600FFEFD600FFF7DE00FFF7D600FFF7 + D600FFF7DE00FFF7DE00FFF7DE00FFFFDE00FFFFE700FFFFE700FFFFF700F7EF + D600CE947300CE846B00CE7B6300BD736B00EFEFEF00EFEFEF00EFEFEF00E7E7 + E700F7F7F700EFF7F700EFF7F700EFF7F700EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7EFEF00E7E7 + E700E7E7E700E7E7E700D6D6DE00CED6DE00F7F7DE00A5AD8400BDC68400949C + 4A005A5A08005A6318005A6318004A5A080052631000424A08004A5210005A5A + 10005A5A000063630800525A0800394A100042636B008CB5D6009CC6FF00ADCE + FF00ADD6FF007BADD6004A73840018393100ADA5A5002129420073A5D6006BAD + EF0063A5EF006BADEF006BA5EF0073A5F7005AA5E7007BA5E7007BB5E7003163 + 8C0021A5BD0008FFFF0018FFFF0063FFFF0063F7FF0084FFFF004ACEE70018CE + DE0000BDCE00088CA50031638C00637B9C00000000000000000000000000FFCE + 9C00FFCE9C00FFCE9C00FFD6A500FFD6AD00FFDEAD00FFDEB500FFEFCE00FFEF + CE00FFE7C600FFE7C600FFEFCE00FFEFCE00FFEFD600FFF7D600FFF7D600FFFF + E700EFD6B500D6947B00D6947B00CE735A00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00F7F7F700EFEFF700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7EFEF00E7E7E700E7E7E700E7E7 + E700E7E7E700DEE7E700DEE7E700DEDEDE0000000000B5BD9400B5BD7B00B5BD + 6B0073732900525A1000525A10005A6310005A6310005A5A10005A5A18005A5A + 10006363100052520000525A1800525229008CADB500B5E7FF009CCEFF008CBD + F7009CCEFF00A5D6FF0084B5C600214A4200A5A5A500424A5A00425A8400739C + D6006B9CDE0073A5EF00639CDE006BA5E7006BA5EF006B9CDE005A8CBD000073 + 8C0029F7F70018FFFF004AFFFF006BF7F7008CFFFF007BFFFF0039EFF70010D6 + E700007B940039738C006B7B9C00394A63000000000000000000F7E7D600EFB5 + 8400EFBD8C00F7BD9400F7C69400FFCEA500FFE7B500FFE7B500FFDEB500FFE7 + BD00FFEFC600FFE7BD00FFDEB500FFE7BD00FFE7BD00FFE7C600FFEFC600FFEF + CE00FFEFCE00FFEFCE00FFEFCE00EFCEAD00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00F7F7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7EFEF00E7EFEF00E7E7EF00E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700DEE7E700DEDEE700DEE7E70000000000D6D6BD00A5AD7300B5BD + 7300949C52006B6B21005A5A10005A6310005A5A08005252100052521800525A + 1000525A10004A520800525A210052523100BDE7E700A5D6F7008CC6F70094D6 + FF008CCEFF008CC6FF0094C6E70042636B0000000000DEE7E7006B737B003139 + 63004A6BA5006B9CE7006BA5E7006BA5DE00639CDE0073A5E700315A8C0021C6 + D60000FFF70039FFFF0073FFFF0073FFFF009CFFEF0094FFFF0039E7E70010CE + DE0018849C0029425A004A4A5A009CA5A5000000000000000000EFC6B500D694 + 6B00E7A57B00E7AD7B00EFB58400EFB58C00F7C69400FFD6A500FFD6AD00FFCE + A500FFD6A500FFDEAD00FFDEAD00FFDEAD00FFDEAD00FFDEAD00FFDEB500FFDE + B500FFE7BD00FFE7BD00FFE7BD00FFEFC600EFEFEF00EFEFEF00EFEFEF00F7F7 + F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7EFEF00E7EF + EF00E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700DEE7E700DEE7 + E700DEE7E700DEE7E700DEDEDE00E7E7E70000000000FFFFE700ADB57B00BDC6 + 7B00ADB56B007B8439005A632100525A10005A5A08005A631000525A1000525A + 10004A5A08004A631000425218004A5A3100BDDEE700BDE7FF0094CEFF0094CE + FF008CC6FF0094C6FF0094BDE700425A6B00000000000000000000000000CECE + CE005A5A630039425A00637BA50084A5D6006BA5E700426BAD000863940010D6 + EF0000E7E70042FFFF007BFFFF008CFFFF0094FFE700A5F7FF0042DEF70008D6 + E70000636B00636B6300DEEFE700000000000000000000000000EFD6CE00DEAD + 9400D6A58400D69C7300D69C7300DE9C7300DEA57B00E7AD8400EFB58C00EFBD + 9400F7BD9400F7BD9400F7C69C00F7CEA500FFD6A500FFD6A500FFD6A500FFD6 + A500FFD6A500FFD6A500FFD6AD00FFDEB500EFEFEF00EFEFEF00EFEFEF00F7F7 + F700EFEFEF00EFEFEF00EFEFEF00E7EFEF00E7EFEF00E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700DEE7E700DEE7E700DEE7E700DEDE + E700DEDEDE00DEDEDE00DEDEDE00000000000000000000000000CED6BD00A5B5 + 7B00BDC67B00ADB563006B6B2100636318005A5A21005252100052521000525A + 1000525A1800525A1800525218004A52100084AD9400CEFFF700ADEFFF0084CE + F7008CCEFF00A5DEFF007B9CAD00314A4A000000000000000000000000000000 + 000000000000949CAD00314A6300314A6B006394BD007B94BD0010426300108C + 9C0039DEDE006BFFF70094FFFF0094FFF700B5FFEF00BDF7FF0052E7FF0008D6 + DE0010737B00BDBDBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7C6B500DEB59C00DEA58400DEA57B00DEA5 + 7B00DEA57B00E7AD8400E7B58C00EFB58C00EFBD9400F7C69C00F7C69C00F7C6 + 9C00F7C69C00FFC69C00FFCE9400FFDEBD00EFEFEF00EFEFEF00EFEFEF00EFF7 + F700E7EFEF00E7EFEF00E7E7EF00E7E7EF00E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700DEE7E700DEE7E700DEE7E700DEDEE700DEDEDE00DEDE + DE00DEDEDE00DEDEDE00D6DEDE00000000000000000000000000FFFFEF00BDC6 + 9C00A5AD7300BDC67B00A5AD5A006B6B21005A631800525A1000525A10005A63 + 1000525A1000525A1000525A1000525A180039522900A5C6AD00C6EFF700C6EF + FF00BDE7FF0094BDC60052735A00314A18000000000000000000000000000000 + 00000000000000000000DEE7F7007384940021394A005A6373004A5263000829 + 31002163630094EFEF00ADFFFF00ADFFF700B5F7FF00B5FFFF0029D6EF0000DE + E700086B7300BDBDBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7C6B500DEB59C00DEAD8400DEA57B00DEA57B00DEA57B00E7AD8400E7AD + 8400EFB58C00EFB58C00EFB58400F7DECE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700DEE7E700DEE7E700DEE7E700DEDEE700DEDEDE00DEDEDE00DEDEDE00DEDE + DE00D6DEDE00D6DEDE00DEE7E70000000000000000000000000000000000EFF7 + DE00B5BD9400B5BD7B00BDC67B00ADB56300737B2900636B18005A5A08005A63 + 08005A6310005A631000525A10004A5208004A521000525A31006B7363008C9C + 9C007B8C840052634200424A1000526310000000000000000000000000000000 + 000000000000000000000000000000000000D6D6D6006363630073737300DED6 + DE00294A4A00A5EFEF00A5FFFF00ADFFFF0073FFFF0042E7F70010F7FF0018F7 + FF00186B7300CEBDC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DEBDA500DEAD8C00D6A5 + 7B00D69C7300DE9C6B00DEA57B00000000000000000000000000E7E7E700EFEF + EF00000000000000000000000000E7EFEF00E7E7E700DEE7E700DEE7E700DEDE + E700DEDEE700DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6DEDE00D6DE + DE00D6DEDE00D6D6D60000000000000000000000000000000000000000000000 + 0000E7E7D600B5BD9400A5AD7300BDCE7B00B5B56B00949C4A00737329005A63 + 1000525A0800525A10005A5A18005A5A21005A631000525208004A5210004A4A + 1800424A10005A6321005A631800525A10000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000396363008CF7FF0063F7FF004ADEF70000DEDE0018EFF70018E7EF000094 + 9C0029525A00E7C6CE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7C6B500E7BDAD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7EF + EF00E7E7E700DEDEE700DEDEDE00D6DEDE00D6DEDE00D6DEDE00D6DEDE00D6D6 + DE00D6D6DE00D6D6D60000000000000000000000000000000000000000000000 + 000000000000EFEFD600C6CE9C00ADB57300C6C68400B5BD7300ADAD6300949C + 4A007B8431006B732100636B2100636318005A631000636B1000636B10006B7B + 21006B732100636B29006B6B3900A5A57B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029525A0042BDC60021DEE70008DEEF0021D6DE00108C9C0000525A004A73 + 7B00CECECE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF00EFEFEF00E7EFEF00E7E7E700DEDEE700D6DEDE00D6D6 + D600CED6D600D6D6DE0000000000000000000000000000000000000000000000 + 00000000000000000000FFFFE700D6DEB500B5BD7B00ADB57300ADBD7300B5BD + 7300ADBD6B00A5AD5A0094A552008C9442008C944A00849442007B8C3900848C + 3900848C4A009CA57300C6C6B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B8C8C0008525A0018949C000894A500104A5A005A6B7B00D6CED6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFE700EFEFEF00EFEF + EF00E7E7E7000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFE700DEDEBD00BDBD9C00ADB5 + 7B00A5AD73009CAD6B009CAD6B0094A563009C9C6B00949463009CA57300BDBD + 9400CECEB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B5B5BD0031394A004A5A7300CEC6D60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFF7 + EF00E7E7CE00D6DEBD00D6DEB500D6DEBD00D6D6B500EFE7D600FFF7E7000000 + 0000000000000000000000000000000000000000000000000000C6AD9C00BD4A + 0000D66300005A391800734A1800D6630000FF730000DE6B0800BD7329009452 + 29007B2908009C2900008C290000A58C7300D6CED600EFE7EF00F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7FF00FFF7F7000000000000000000000000000000 + 00000000000000000000F7EFEF00FFEFEF00F7E7E700F7EFE700FFEFEF00D6D6 + CE006BBD7B004AD67B0073EFAD0084F7B5008CFFBD0084F7BD007BF7AD004AD6 + 730084BD8400E7DEDE00F7EFEF00FFEFEF0000000000C6ADA500949C9C00E7F7 + F700C6C6E700CECEEF00D6DEE700D6D6EF00D6DEF700BDC6DE00D6DEFF00DEDE + F700E7E7F700EFEFFF00DEDEF700D6CEEF00DEE7F700E7E7F700DEE7F700DEE7 + F700E7E7F700F7FFFF00ADB5BD007B8C840000000000315A730031637B003163 + 8400295A7B002963840029637B0029637B00315A7B0029637B0029637B002963 + 7B0031637B0029637B00296B8C002984A500296B840000425A0039849C002973 + 8C0029849C002984A500187BA500187BAD000000000000000000CEB59C00C652 + 0000BD5A08003152390039523100844A0800C6630000F7730000E7730000BD73 + 2100A5633100842910008C310800BD9C8C00D6DEDE00F7F7F700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFF7000000000000000000000000000000 + 00000000000000000000FFEFEF00F7E7E700EFE7E700F7E7EF00DED6CE0063B5 + 6B0031C65A004ADE840063E794006BEFA5006BEFA5006BEF9C0063E794004ADE + 840031C663007BBD8400DEDED600EFE7E70000000000C6ADA500949C9400E7F7 + F700CECEEF00D6D6F700DEEFEF00DEE7F700D6E7EF00CED6EF00D6DEEF00D6DE + EF00E7EFF700E7EFF700E7E7F700CECEEF00DEDEEF00E7E7F700E7EFFF00DEE7 + F700E7E7F700F7FFFF00ADB5BD007B8C840042738400315A730031637B003163 + 840029637B002963840029637B0029637B00315A7B0029637B0029637B002963 + 7B0031637B0029637B00296B8C002984A500296B840000425A0031738C000852 + 6B00105A7B003184A5002984A500217BA5000000000000000000B57B5200E76B + 00009C5A180021635A00316B4A002931210063391800C65A0000FF7B0000EF7B + 0000CE7B18009C633100844A3900BDB5B500D6E7EF00F7F7F700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000DED6D600FFEFEF00F7E7E700EFE7E700D6D6CE0063AD6B0021A5 + 420031BD5A0039CE6B004AD67B0052DE840052DE840052DE84004AD67B0039CE + 6B0031BD5A0021AD42007BB57B00E7E7DE0000000000C6ADA5008C949400E7F7 + EF00C6C6E700C6CEE700CEDEDE00CED6E700D6D6EF00CECEEF00CECEEF00C6C6 + E700CECEE700CED6EF00CECEF700C6C6F700D6D6E700D6DEEF00D6D6EF00D6D6 + EF00DEDEF700F7FFFF00ADB5BD007B8C84004A738C00315A730031637B003163 + 840029637B002963840029637B0029637B00315A7B0029637B0029637B002963 + 7B0031637B0029637B00216B8C002984A50029637B0000314A0018526B000029 + 420000425A0031739400317B9C00317B9C000000000000000000A55A2100E773 + 00007363310021847B00216B630010184200291863005A393100BD630000F784 + 0000F7840000CE7B1800A5734A00B5A59400E7EFEF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000C6C6CE00FFEFEF00F7E7E700DED6CE006BB56B0021A5390031B5 + 520039C6630042CE73004ADE840052DE840052DE840052DE840052DE840042D6 + 730039C6630029B55200219C39007BB57B0000000000C6ADA5008C949400E7F7 + F700C6CEEF00CED6EF00DEE7EF00DEDEF700C6C6C60094949C00ADADBD00B5BD + C600CEDEDE00E7F7F700D6E7EF00CED6EF00E7EFF700EFF7FF00E7EFF700DEE7 + F700E7EFF700F7FFFF00B5BDBD007B8C84004A738C0031637B0031637B002963 + 840029637B0029637B0029637B0031637B00315A7B0029637B0029637B002963 + 7B0031637B0029637B00216B8C002984A50031738C0008425200295A73002152 + 6B0021526B0018526B00215A7B004284A50000000000D6CEC600B5630800D67B + 0800525A390029845A00216B5A001810630021189C0021186B005A392100B563 + 0000F78C0000F78C0000DE840800B57B3900C6B5AD00F7F7F700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 00009CCEDE00C6D6E700FFEFEF00FFE7EF00B5CEAD0021A5390031C65A0042CE + 6B004AD67B0052DE840063E794006BE79C006BE79C006BE79C0063E7940052DE + 84004AD67B0042CE730029BD5200299C390000000000C6ADA500949C9C00EFF7 + F700C6CEEF00CECEEF00D6DEE700D6D6EF00B5ADC600847B9C00B5ADCE00CEC6 + E700CED6EF00D6DEF700CECEF700BDBDF700CECEDE00D6D6EF00D6D6EF00D6D6 + EF00DEDEF700EFF7FF00ADB5BD00848494004A7B8C0031637B00295A7B002963 + 840029637B0029637B0029637B0031637B00315A7B0029637B0029637B002963 + 7B0031637B0029637B00216B8C002984A5003173940000395200184A6300315A + 73003163730000314A0000314A0029637B0000000000B5A59400C66B0000BD73 + 180052634A0039844A002142390029188C001818A50010086B0063393900945A + 2900AD6B0800E78C0000FF940000E78C0800A57B4A00CECECE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000073C6DE00E7E7E700FFEFEF00EFE7E700D6DECE008CBD8C0084BD8C008CC6 + 8C0094CE94006BB573004ACE7B007BF7AD007BEFAD0073EFAD004ACE73006BB5 + 73008CC694008CC68C008CC68C009CC69C0000000000C6ADA500949C9400EFFF + FF00CECEF700D6D6F700DEE7EF00DEE7F700E7EFF700D6D6E700DEDEEF00D6DE + E700C6D6D600CEDED600E7F7FF00D6DEEF00EFEFFF00EFF7FF00E7E7F700DEE7 + EF00E7EFF700F7FFFF00ADB5B5007B848400527B940031637B00295A7B002963 + 840029637B0029637B0029637B0031637B00295A7B0029637B0029637B002963 + 7B0031637B00295A7B00216B8C002984A5003184A500105A7300104A6300184A + 630029526B0010425A00104A5A001052630000000000B59C8400D6730000A573 + 290052735A0042844A00183139004231B5003939CE0018105A00845242008C5A + 4A006B391000B56B0800FF9C0000F7940000B58C4A00DEDED600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000094DE + EF0084CEDE00FFEFEF00F7E7E700EFE7E700EFE7E700FFEFEF00F7EFEF00FFEF + EF00FFEFF700B5C6A5004ACE73008CFFBD008CF7BD0084F7BD0052C67300C6CE + BD00FFEFEF00F7EFEF00F7E7EF00F7EFEF0000000000C6ADA5008C949400EFF7 + F700C6C6EF00C6CEE700CED6DE00CED6E700CED6EF00C6C6E700CECEEF00D6DE + F700949CAD0039394A006B6B8400CEC6E700D6D6E700DEE7F700DEDEF700D6D6 + EF00DEE7F700F7FFFF00ADB5BD007B848C005284940031637B00295A7B002963 + 840029637B0029637B0029637B0031637B00295A7B0029637B0029637B002963 + 7B0031637B00295A7B00216B8C002984A500217BA5002984A500397B9C001852 + 6B0000394A00084252002163730018637300F7F7F700A5734200DE8400008473 + 3100528C6B0042844A00212952003110B5003921C60042295A00AD735A007342 + 310063393900A5633100F79C0000DE8C1000BD9C7B00F7F7F700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000063D6 + EF00A5D6DE00FFF7F700F7E7EF00EFE7E700EFE7E700EFE7E700EFE7E700E7DE + D600E7CEBD009CAD7B004ACE73009CFFCE009CFFCE0094FFCE0052C67300B5AD + 8C00E7D6C600EFE7DE00EFEFE700F7EFEF0000000000C6ADA5008C949400EFFF + F700CECEF700CED6EF00D6E7E700DEDEF700D6DEF700CED6F700CED6F700DEE7 + F700E7EFEF00949C9C0052525A004A4A5200ADB5C600DEE7EF00EFF7FF00E7E7 + F700E7E7F700F7FFFF00ADB5BD007B848C005284940031637B00295A7B002963 + 840029637B00295A7B0029637B0031637B00295A7B0029637B0029637B002963 + 7B0031637B00295A7B00216B8C002984A500187BA500217B9C00398CAD002963 + 7B0008425A00104A6300216B7B00186B7B00EFE7EF00B5732900DE8400006384 + 5A0052BDA500427B5200211873003918CE00210094006B4A4A00CE9C73006B39 + 31007B525200AD6B3100F79C0000CE842100C6B5AD00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000084DEF70063D6 + F700CEDEE700FFF7F700EFE7E700EFE7E700EFE7E700EFE7E700DED6CE00CEB5 + 9C00DEB594009CB573005ACE7B00BDFFE700C6FFEF00BDFFE7005ACE7B00B5AD + 7B00DEB59400D6BDB500E7DEDE00EFE7E70000000000C6ADA50094949400EFF7 + FF00CECEEF00CECEEF00D6D6E700CED6E700D6D6EF00C6C6EF00CED6EF00D6DE + EF00DEE7F700EFF7FF00BDC6DE006B63940021213100424A5A00B5B5BD00D6DE + E700E7EFF700F7FFFF00B5BDC6007B848C005A7B940031637B0021637B001863 + 7B0029638400316384003163840029637B0029637B0029637B0029637B003163 + 7B0031637B0029637B00216B8C0029849C00317BA5003184A500217B9C002984 + A500217B9C0010637B0018637B00185A7B00D6CEC600B57B1800CE8410006B8C + 7B0052BDAD0031635A0031189C004218D60021087B0084523100B57352008452 + 4A009C736300BD7B1800F79C0000BD844200D6CED600FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000B5DEEF0063DEFF006BCE + EF00E7E7E700FFEFEF00EFE7E700EFE7E700F7EFEF00EFE7EF00D6CEC600DEBD + 9400FFEFC600BDDEA50052CE7B00BDFFDE00D6FFEF00B5FFDE005ACE8400D6E7 + BD00F7D6A500D6B59400E7DED600F7EFEF0000000000C6ADA50094949400EFF7 + FF00CECEEF00CED6EF00D6DEEF00D6DEEF00DEDEF700C6C6EF00CECEEF00D6DE + EF00CED6E700DEE7F700DEE7F700C6BDEF00ADADBD004A4A5A0018182900525A + 6300CECED600FFFFFF00B5BDC600737B7B005A7B940031637B0021637B002163 + 7B0029638400316384003163840029637B00316384003163840029637B003163 + 7B0031637B0029637B00216B8C0029849C00217B9C002984A500217B9C002984 + A50029849C0021738C0029738C0018638400BDAD8C00C6730000B58429007BA5 + 84006BB57B00294A52004221B5003118CE0039186B00B56B3900A55231008452 + 5200AD7B6300DE8C1000E7940800AD8C6300F7EFF700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000007BDEF70063DEFF007BCE + E700F7EFEF00FFEFEF00EFE7E700EFE7E700F7EFEF00EFEFEF00EFC6A500FFE7 + B500FFFFD600EFFFCE009CDEA5009CDEA50094945200847329009CAD6B00F7FF + D600FFF7BD00FFDEAD00EFDECE00F7F7F70000000000C6ADA50094949400EFF7 + FF00CECEEF00D6D6F700D6DEEF00D6DEEF00DEDEF700CECEEF00D6D6F700E7EF + F700DEE7F700DEE7EF00DEE7F700D6D6FF00EFF7FF00EFEFFF00949CA5003131 + 390031313900949CA500B5B5BD006B7373005A7B940031637B0021637B002163 + 7B0029638400315A7B00315A7B00295A7300295A7B00295A7B0029637B003163 + 7B0031637B0029637B00216B8C00297B9C00217BA5002984AD002184A5002984 + A5002984A5002984A500297B9C00186B8C00BDA58400C67300009C8C52005A9C + 8C005A9C5A00314A6B004A39D6003118BD0063315A00CE7B5200944A2900945A + 4A00A56B3900EF940800CE8C1800BDA58C00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B5EFF70063DEFF0063DEFF009CD6 + E700FFEFEF00FFEFEF00EFE7E700EFE7E700EFEFEF00F7D6C600FFAD6300FFDE + A500FFF7C600FFFFD600FFFFEF00F7DEBD00D6421000CE210000DE5A2900EFB5 + 8400F7B58400FFDEA500F7CEA500F7F7EF0000000000C6ADA5008C949400EFF7 + FF00D6CEEF00D6D6F700DEDEEF00D6DEEF00D6D6EF00CECEEF00CED6EF00DEE7 + F700E7E7FF00DEE7F700D6DEEF00CECEF700E7E7F700DEE7F700EFEFFF00DEDE + EF00737B840021293100292931004A5252005A7B940031637B0029637B002163 + 7B00295A7B002952730029526B0021526B00214A6B002952730029637B002963 + 7B0029637B0029637B00296B8C002984A500217BA5002984A500217B9C00217B + 9C00217BA500297BA500297BA50021739400A56B3100E7940000D6B5730094CE + C60042737300312984005239DE004A31B500945A6300D68C63009C523100AD63 + 4A00BD732100F79C0000B5843100CEC6BD00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEFFFF009CEFFF006BDEF700ADD6 + E700FFF7F700F7EFEF00EFE7E700EFE7EF00EFE7E700E7844A00F7843100FFDE + A500FFEFBD00FFFFCE00FFFFDE00FFDEB500DE521800D6390000D6390000E784 + 4200FFCE9400FFC68C00FFBD7B00FFE7C60000000000C6ADA5008C949400EFF7 + FF00D6CEEF00CECEEF00D6DEEF00D6DEEF00D6D6EF00CECEEF00CECEEF00D6DE + EF00D6DEEF00D6DEEF00D6DEEF00CECEF700DEDEEF00DEE7EF00DEE7F700E7E7 + F700EFEFFF00CED6DE005A5A6300000810005A7B940031637B0029637B002963 + 7B00295A7B00294A6B00294A6B00214A6300294A6B00295A7300316B8400316B + 840029637B0029637B00296B8C0029849C002184A5002984A500217B9C00217B + 9C00217B9C00217B9C002984A500217BA500A5846300C67B0000F7A52100E7CE + 94007B94AD004231A5003918CE004A299C00C6948400DE9C7300AD6B4A00BD73 + 5200D6841800EF940000BD946300E7E7E700F7FFFF00FFFFF700F7FFF700F7FF + F700FFFFFF00FFFFFF00F7F7FF00EFF7F7000000000000000000CEEFF700D6E7 + E700FFF7F700FFEFEF00FFEFEF00F7F7F700EFCEB500D64A0800EF732100FFBD + 7B00FFE7AD00FFF7C600FFFFD600F7B57B00E75A1000E75A1000DE5A1000EF84 + 4200FFD6A500FFC67B00FFAD5A00FFC6840000000000C6ADA5008C8C9400EFF7 + FF00D6D6F700CECEEF00D6DEEF00D6DEEF00D6DEF700CECEEF00CED6EF00DEE7 + F700DEE7F700D6DEEF00D6D6EF00C6C6F700DEDEEF00DEE7F700E7EFF700D6DE + E700DEDEEF00FFFFFF00B5B5BD007B848C005A7B940031637B0029637B002963 + 8400315A7B00314A7300314A6B00314A6B00314A6B002952730029637B002963 + 7B00215A7300215A7B00296B8C00297B9C00217B9C00217B9C00217B9C002984 + A5002984A500297BA500217BA5002184A500F7EFE700A5845A00BD730000FFA5 + 0800C69C4A00B5A5BD006363DE0063398400E7B58400CE946B00C68C6300BD84 + 5200E7940000DE8C0800A5847300D6C6C600E7E7E700F7F7EF00F7F7F700FFFF + FF00FFF7FF00F7F7FF00F7F7F700F7F7F7000000000000000000F7EFEF00FFEF + EF00FFF7F700FFF7F700FFF7FF00FFFFFF00EFAD8C00DE520800FF943100FFA5 + 4200FFBD7300F7B57300FFBD7B00EF843900EF6B1800EF6B1800E7631800E75A + 1800F79C5A00FFBD7300FF9C4200FFA54A0000000000C6ADA5008C8C8C00EFF7 + F700D6D6F700CECEEF00D6DEEF00D6DEEF00D6DEF700C6C6EF00CECEEF00DEE7 + EF00DEE7F700DEE7F700D6DEF700CEC6F700EFEFFF00DEDEEF00DEE7F700E7E7 + F700E7E7F700FFFFFF00BDC6CE0084848C00527B940031637B0029637B002963 + 8400395A7B00314A6B00394A6B00314A6B00314A6B00294A6B00295A73002963 + 7B00316B8400427B94004A94AD004A9CBD0029849C0021849C00297B9400297B + 9C0031849C002984A500217B9C00217BA50000000000F7F7F700AD8C6B00BD73 + 0000FFA50000F7B53900B5ADB5007B639400D6AD8400BD845A00DE9C8400CE84 + 4200EF940000C68429009C847B00DED6D600DED6D600DED6CE00D6C6C600DECE + CE00DEDED600DEE7DE00EFEFE700F7F7EF000000000000000000DEE7DE00C6DE + BD00D6E7CE00E7EFD600EFF7E700FFFFFF00EFA57B00EF731800FF943100FF9C + 4200F78C4200EF6B1800F77B1800F77B2100F7842900F77B2100F77B2100EF73 + 2100F78C3900FFAD5200FF9C3900FF94310000000000C6ADA5008C8C8C00EFF7 + F700D6D6F700CECEEF00D6DEEF00D6DEEF00D6DEEF00CECEEF00D6D6EF00D6DE + EF00D6DEEF00D6DEEF00D6DEF700C6C6F700D6D6EF00E7E7FF00D6DEEF00DEDE + EF00E7E7F700F7FFFF00B5BDC6007B848C005284940031637B0029637B002963 + 8400315A7B00314A6B0031426300314A6300394A6B00395A7B004A7B9C0063A5 + B5007BB5CE008CC6E7008CCEEF007BCEEF0063C6D60052ADC6003994AD00317B + 9C00297B9400297B9C00217B9C002184A5000000000000000000F7EFEF00AD84 + 6300C6730000FF9C0000DE942900BDA59400B5ADB500B57B5A00CE947300D68C + 2100EF940000AD734200BDADA500000000000000000000000000F7E7E700EFE7 + DE00E7D6C600DEBDA500D6C6B500D6C6B5000000000000000000C6D6C6009CD6 + 9C00B5DEB500C6E7BD00BDE7BD00C6EFCE00E7B57300FF842900FF942900FFA5 + 4200F7943900F7842100FF942900FF943100FF943100FF942900FF943100F78C + 3100EF7B2100FF943100F77B2100EF7321000000000000000000948C9400F7EF + F700EFE7F700DEE7EF00F7F7FF00EFF7FF00E7EFF700EFF7FF00E7E7F700F7FF + FF00EFF7FF00EFEFFF00EFF7FF00EFF7FF00EFF7FF00EFF7F700EFEFF700F7EF + F700EFEFFF00F7FFFF00ADBDC6009C9C9C005284940029637300296373002963 + 7B00215A7300295A7B0029527B00395A8400397394004A7BA5006394BD007BB5 + D60084C6E70084C6EF007BC6EF007BCEEF0084CEE70084CEE7007BCEE7006BBD + D60052A5BD00398CAD0029849C00217B9C00000000000000000000000000F7F7 + F700AD9C7300B56B0000F79C0000F7AD2100B59C7B00A58C9400B5847300E78C + 0800EF94100094735200E7E7E700000000000000000000000000000000000000 + 0000000000000000000000000000F7EFE7000000000000000000BDD6B50094D6 + 9400B5DEB500CEEFCE00CEEFCE00C6EFCE00CEB57B00F77B2100FF8C2900FF94 + 3100FF9C3900FF9C4200FFAD5200FFB56300FFB56B00FFB56300FFAD5200FF94 + 3900F7842900F77B2100E7631000E77B390000000000000000008C8C9400F7F7 + FF00F7FFFF00C6D6D600BDCECE00CED6DE00DEE7E700DEE7EF00D6DEE700CED6 + DE00D6DEDE00DEE7EF00DEE7E700CED6DE00CEDEDE00CED6D600D6DEDE00EFF7 + F700F7FFFF00F7FFFF00BDC6C600BDADA5004A7B8C00295A730029637B00316B + 8C00397B9C005284AD005284B500638CBD00427BA500427BA500427BA5004A84 + AD00528CB500639CC60073ADD6007BBDE70084C6E70084C6E7008CCEEF008CD6 + EF0084CEE70073C6D6005AADC6004AA5B5000000000000000000000000000000 + 0000F7F7F700B58C6B00B5730800FF9C0000EF940800C6A58C00B5947B00F794 + 0000CE8421008C735A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADDEAD0094CE + 94009CD69C00ADDEAD00C6E7BD00B5E7BD00C6CE9C00EF732900EF731800FF94 + 3900FFB56B00FFC68C00FFC68400FFD69C00FFDEAD00FFD6A500FFC68400FFB5 + 6300FFA54A00F7842900E75A0800F7A5730000000000000000007B8C9400BDCE + DE00CEE7F7008CADB500425A6B00213942001018210010182100212929000810 + 10000810180010182100182129003139420039525A00526B73008CA5AD00D6EF + EF00DEF7FF00D6EFEF00B5C6C600C6ADA500638CA500527B94006394AD006BA5 + C60073B5D6007BBDDE006BADD6006BA5CE0063A5CE005A9CBD004A8CB500427B + A500427BA500427BA5004A7BAD005284B5006BA5CE0073A5CE007BB5DE0084C6 + E7008CCEEF0084D6E70084CEE7007BCEDE000000000000000000000000000000 + 00000000000000000000C6B5A500B5731000F7940000F79C1000E7942100F794 + 0000AD732900BDA5940000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CEEF + CE00C6E7BD00B5DEB500ADDEAD00ADDEAD00BDE7BD00D68C4A00E7631000FFAD + 6300FFCE9400FFDEA500FFDEAD00FFE7B500FFE7AD00FFD6A500FFCE8C00FFBD + 7B00FFB56B00F7943900E7732100D6D6AD000000000000000000395A6B000021 + 390008315200214A6300294A6300294A63001018180000080800101010001018 + 180000000000000000004A4A4A00BDC6C6007B94B5006B8CA500638494006384 + 9400527384007B8C9400C6ADAD0000000000D6E7FF00BDD6E700ADCEDE0094BD + CE007BADC6007BB5CE0073ADCE0073B5CE006BB5D6006BADD6006BADCE0063A5 + C6005A9CBD00528CB5004A84AD00427BA5004273A500427BAD00528CB5005A9C + C6006BADCE0073BDDE007BC6E7008CD6EF000000000000000000000000000000 + 0000000000000000000000000000C6AD9400B56B0800F7940000FF9C0000E78C + 1000946B4200CEC6C60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7F7E700D6F7D600D6DEB500EF844200FFAD + 6300FFD6A500FFEFB500FFFFCE00FFF7CE00FFF7CE00FFEFBD00FFDEA500FFC6 + 8C00FFBD7300FF8C3100D6AD6B00B5EFC6000000000000000000C6ADA500ADA5 + AD00949CAD00A5A5AD00ADADAD00BDADAD00BDADA5004A4A4A00000000000808 + 0800000000000808080073737300000000000000000000000000C6ADA5000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00DEEF + F700C6DEE700ADD6DE0094C6CE0084B5BD0073ADCE0073ADCE0073ADCE0073AD + CE006BADCE006BADCE0063A5CE005AA5C600528CBD004A84B500397BAD00397B + A5004284AD004A8CBD005A9CCE006BADD6000000000000000000000000000000 + 000000000000000000000000000000000000C6B5A500B56B1000F78C0000D67B + 10009C846B00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFE7CE00FFAD + 5A00FFCE8C00FFEFBD00FFFFD600FFFFEF00FFFFE700FFFFD600FFE7B500FFCE + 9400FFA54A00DEAD6300BDEFBD00C6EFCE000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A5A5A003939 + 390042424200A59C940000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00DEF7F700D6EFE700ADCEDE00A5C6D60094BDCE0084B5 + C6007BB5C60073B5CE0073B5CE0073B5CE006BADCE0063A5C6005A9CBD00528C + B5004A84AD0042739C004273A500527BA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000CEB5A500AD631000B56B + 1800BD9C8C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFEF + DE00FFCE8C00FFCE8C00FFE7B500FFF7D600FFFFE700FFEFC600FFD69C00FFBD + 7B00E7CE8C00BDF7CE00B5EFC600DEF7DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008484 + 8C00B5A5A5000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7EFF700C6DE + E700ADCED6009CBDCE0084B5C6007BADBD007BB5CE007BB5CE007BB5C60084B5 + C60084ADBD0084A5BD0094ADC6009CB5CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6AD9C00AD94 + 7B00EFE7E7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFEFDE00FFE7CE00FFF7CE00FFF7C600FFEFC600FFE7CE00FFF7 + E700F7FFFF00EFFFF700E7F7E700F7FFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000A5A5 + AD00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00E7F7FF00D6E7F700C6D6E70084BDC60084BDC60094BDCE00B5D6 + DE00CEE7EF00E7F7F700EFEFEF00EFEFEF00000000000000000000000000F7F7 + F700DEDEDE00BDBDC600A5A5A500949C9C007B8C94007B8C9C007B8C9C007B84 + 9C00CED6DE00000000000000000000000000BDBDC600426B7B0052A5CE007BBD + EF00C6D6E700848494001829520008315A0000000000B5DEBD00FFFFFF00D6DE + FF00D6DEFF00F7F7FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00BDBDBD0063636300DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000CECECE00FFFFFF00E7E7 + E700E7E7E700F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00BDBDBD0063636300DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7E7E7009C9C + 9C005A637B002939730039528C005273B5003152A5003152A500314A9C001831 + 6B007B849C00000000000000000000000000B5B5BD0031637B004AA5D60073BD + EF00BDD6E7009494940029395A000831630000310800B5DEBD00FFF7FF00F7EF + F700F7EFF700D6DEFF00F7F7FF00FFFFFF00FFF7FF00FFF7FF00B5B5AD0094A5 + AD00B5B5BD008C8C8C00C6C6C6008C949400CECECE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00EFF7FF00FFFFFF0021212100CECECE00F7F7F700EFEF + EF00EFEFEF00E7E7E700F7F7F700FFFFFF00F7F7F700F7F7F700ADADAD00A5A5 + A500B5B5B5008C8C8C00C6C6C60094949400CECECE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7F7F700FFFFFF000000000000000000000000000000 + 0000000000007373730084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484007373 + 73005A5A5A00393939007B7B7B00000000000000000000000000CECECE005A63 + 6B00294284001042B500215ADE004273F7005273E7006B8CD600637BB5004252 + 7B00525A6B00EFEFEF000000000000000000ADADB50031637B004A9CD6006BB5 + E700BDD6E700A5A5A500425273002952840000310800B5E7BD00FFDEE700FFE7 + E700FFE7DE00F7F7FF00DEDEEF00C6C6C600CECECE00D6D6D6006B6B73002142 + 4A00B5BDCE00F7EFEF008C9CAD0021424A00ADA5AD00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DEFF00D6DEFF0021212100D6D6D600E7E7E700E7E7 + E700E7E7E700F7F7F700DEDEDE00C6C6C600CECECE00D6D6D600737373004242 + 4200BDBDBD00EFEFEF009C9C9C0042424200A5A5A500FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7E7E700E7E7E7000000000000000000000000000000 + 000073737300C6C6C600CECECE00848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400CECECE008C8C + 8C00101010000000000042424200000000000000000000000000D6D6D600636B + 730021428C000042CE000852EF004A7BFF00ADC6FF00DEE7E700B5B5B500847B + 7B005A5A5A00CECECE000000000000000000A5ADAD0031637B004A9CD6005AAD + E700C6DEEF00BDBDC600526B84004A739C0000310800B5DEBD00FFEFEF00FFEF + EF00FFDEDE00FFFFFF00737B730021424A007B7B8400B5B5B500ADA5AD00B5B5 + BD00B5B5BD007B7B8400E7E7E700C6C6C600E7E7E700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7EFFF00F7F7FF0021212100CECECE00EFEFEF00EFEF + EF00DEDEDE00FFFFFF0073737300424242007B7B7B00B5B5B500A5A5A500B5B5 + B500B5B5B5007B7B7B00E7E7E700C6C6C600E7E7E700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00EFEFEF00F7F7F700000000000000000000000000B5B5 + B500DEDEDE00DEDEDE00DEDEDE00DEDEDE00BDBDBD0000000000000000000000 + 000000000000000000000000000073737300C6C6C600A5A5A5004A4A4A000000 + 0000000000005A5A5A0039393900000000000000000000000000EFE7E7007B84 + 8400294284000839C600004AF700427BFF00B5CEF700EFEFE700C6BDBD008C84 + 8400524A5200ADADB5000000000000000000A5ADAD0031637B004AA5DE0052A5 + DE00C6DEF700DEDEDE006B7B8C002952730000310800B5DEBD00F7F7F700D6D6 + D600DEDEDE00DEDEDE00B5C6DE00738494004263AD00314A6B0073849400BDBD + BD009C9C940063636300E7EFE700FFFFFF00FFFFFF00DEDEDE00D6D6D600D6D6 + D600D6D6D600D6D6D600DEDEDE00D6D6D60021212100CECECE00F7F7F700D6D6 + D600DEDEDE00DEDEDE00CECECE0084848400737373004A4A4A0084848400BDBD + BD009C9C9C0063636300E7E7E700FFFFFF00FFFFFF00DEDEDE00D6D6D600D6D6 + D600D6D6D600D6D6D600DEDEDE00D6D6D600000000000000000073737300CECE + CE00CECECE00CECECE00CECECE00CECECE00CECECE0084848400000000000000 + 0000000000000000000000000000B5B5B5009C9C9C0031313100000000000000 + 0000212121004A4A4A006B6B6B00000000000000000000000000F7F7F7009C94 + 9400424A73001039BD000042F700316BF7009CBDF700EFEFF700CEC6C600948C + 940052525A008C8C94000000000000000000ADADAD00295A7B00429CDE0052A5 + E700C6DEEF00000000008C94A500426B8C0000310800B5DEBD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00C6DEFF008CB5EF004263AD00314A6B00314A + 6B007B7B840052525200CECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0021212100CECECE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7E7E700C6C6C600737373004A4A4A004A4A + 4A007B7B7B0052525200CECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000A5A5A500A5A5A500C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600ADADAD00848484000000 + 0000000000000000000063636300949494003131310000000000000000002929 + 29006363630094949400A5A5A50000000000000000000000000000000000BDAD + B500525273001839AD000039EF002163FF008CADF700DEE7F700C6BDC6009C94 + 94006B63630073737300F7EFF70000000000ADB5B500295A7B00429CDE0052A5 + E700C6DEF70000000000949CA500395A7B0000310800B5DEBD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7EFFF00BDD6FF008CB5EF004A73C6000031 + 84001031520052525200B5B5B500E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0021212100CECECE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00EFEFEF00DEDEDE00C6C6C600848484004242 + 42003131310052525200B5B5B500E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000A5A5A500B5B5 + B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500A5A5A5007B7B + 7B007B7B7B00636363009C9C9C00313131000000000000000000292929006363 + 63004A4A4A00B5B5B500A5A5A50000000000000000000000000000000000CEC6 + C60063637300183994000042E7002163F7006B9CEF00C6D6F700CECEDE00A5A5 + A500736B6B00635A5200DEDEDE0000000000ADB5B500315A8400429CDE0052A5 + E700C6DEF7000000000084848C00395A7B0000310800B5E7BD00FFEFEF00FFEF + EF00FFE7DE00FFFFFF00FFFFFF00F7F7FF00C6DEFF007BC6FF000073EF000063 + DE0000318400103152009C9C9400CECECE00E7E7E700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFE7E700FFE7DE0021212100D6D6D600EFEFEF00EFEF + EF00E7E7E700FFFFFF00FFFFFF00F7F7F700E7E7E700CECECE008C8C8C007B7B + 7B0042424200313131009C9C9C00CECECE00E7E7E700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7E7E700E7E7E700000000000000000000000000ADAD + AD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD009494 + 94006B6B6B008C8C8C007B7B7B000000000000000000292929006B6B6B004A4A + 4A00848484009C9C9C000000000000000000000000000000000000000000DEDE + D6006B73730021398C000839D600185AEF005A8CEF00BDCEFF00DEE7EF00A5A5 + A50073636B00524A5200C6C6C60000000000ADB5B500316384004AA5E7005AAD + E700C6DEEF000000000094948C00526B730000310800BDE7C600FFDEE700FFDE + DE00FFC6C600FFFFFF00FFFFFF00FFFFFF00EFF7FF006BADEF0063ADFF00108C + FF000063DE0000318400314A6B00ADADAD00CECECE00E7E7E700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFE7DE00FFC6C60021212100D6D6D600E7E7E700DEDE + DE00CECECE00FFFFFF00FFFFFF00FFFFFF00F7F7F700B5B5B500BDBDBD00A5A5 + A5007B7B7B00424242004A4A4A00ADADAD00CECECE00E7E7E700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7E7E700CECECE000000000000000000000000009494 + 94009C9C9C00949494008C8C8C008C8C8C00949494009C9C9C009C9C9C009C9C + 9C00949494006B6B6B002121210000000000393939006B6B6B004A4A4A007B7B + 7B009C9C9C00000000000000000000000000000000000000000000000000EFEF + EF008484840031427B000839C6000852EF004284F70094ADF700CED6F7008C94 + BD00525A840031315A00ADADBD0000000000ADB5B500316384004AADE70063AD + E700C6E7EF00000000009CA59C00526B630000310800B5E7BD00FFF7F700F7EF + EF00F7EFEF00FFF7FF00FFF7FF00FFF7FF00FFFFFF00D6EFFF0052ADFF007BC6 + FF00108CFF000073EF0000318400314A6B00ADADAD00C6C6C600DEDEDE00FFF7 + FF00FFFFFF00FFF7FF00F7E7E700F7EFEF0021212100D6D6D600F7F7F700EFEF + EF00EFEFEF00F7F7F700F7F7F700F7F7F700FFFFFF00EFEFEF00BDBDBD00CECE + CE00A5A5A5008C8C8C00424242004A4A4A00ADADAD00C6C6C600DEDEDE00F7F7 + F700FFFFFF00F7F7F700E7E7E700EFEFEF000000000000000000000000006363 + 63005A5A5A007B7B7B00ADADAD00A5A5A50063636300313131004A4A4A004A4A + 4A002121210000000000000000007B7B7B00424242006B6B6B008C8C8C009494 + 940000000000000000000000000000000000000000000000000000000000F7F7 + F7009C9C9C00424A6B001039B5000042EF003173FF00396BE7002152CE000839 + 9C000831840000186300949CB50000000000B5BDBD00396384005AADDE0073BD + E700D6E7F70000000000ADADB500636B730000310800B5E7BD00FFF7FF00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600F7F7EF00D6EFFF0052AD + FF007BC6FF00108CFF000073EF0000318400314A6B009C9C9400ADA5AD00BDBD + BD00D6D6D600DEDEDE00DEDEDE00DEDEDE0021212100D6D6D600F7F7F700DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600EFEFEF00EFEFEF00BDBD + BD00CECECE00A5A5A5008C8C8C00424242004A4A4A009C9C9C00A5A5A500BDBD + BD00D6D6D600DEDEDE00DEDEDE00DEDEDE0000000000000000007B7B7B005A5A + 5A00ADADAD00DEDEDE00EFEFEF00EFEFEF00DEDEDE007B7B7B00313131001010 + 1000000000000000000042424200424242005A5A5A008C8C8C00949494000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500525A6B002142A5000039E700296BFF00316BF7000842E7000039 + B5000029940008216B00ADB5C60000000000BDC6C600394A63004A7B94007B9C + B500E7EFF70000000000BDBDC600636B730000310800B5E7BD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6EF + FF0052ADFF0084C6FF00108CFF000073EF0000318400314A6B00B5B5AD00CECE + CE00E7EFE700FFFFFF00FFFFFF00FFFFFF0021212100D6D6D600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEF + EF00BDBDBD00CECECE00A5A5A5008C8C8C00424242004A4A4A00ADADAD00CECE + CE00E7E7E700FFFFFF00FFFFFF00FFFFFF00000000000000000042424200C6C6 + C600D6D6D600CECECE00ADADAD00A5A5A500B5B5B500DEDEDE00BDBDBD003939 + 390000000000424242007B7B7B005A5A5A008C8C8C008C8C8C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DEDEDE00848C8C0039528C001039B500104AE7002963F7000842D6000029 + A50000187B0039427B00DEDEE70000000000CECECE0039393900394242008484 + 84000000000000000000C6CECE00737B7B0008390800B5E7BD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00B5C6DE00428CEF0084C6FF00108CFF000073EF0000318400314A6B00ADAD + AD00CECECE00E7E7E700FFFFFF00FFFFFF0029292900D6D6D600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00CECECE009C9C9C00CECECE00A5A5A5008C8C8C00424242004A4A4A00ADAD + AD00CECECE00E7E7E700FFFFFF00FFFFFF00000000006363630063636300C6C6 + C600BDBDBD00B5B5B50094949400848484009494940084848400C6C6C600D6D6 + D6005A5A5A006B6B6B0042424200737373007373730063636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C60063737B00214284001039B500315ADE002152C6000831 + 940008216B005A5A8400F7F7F70000000000D6CECE0042424200394239008C8C + 84000000000000000000DED6DE007B84840008390800BDE7C600FFE7EF00FFEF + EF00FFE7DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00CEC6C6006B6B730052ADFF007BC6FF00108CFF000073EF0000318400314A + 6B00ADADAD00CECECE00E7CECE00FFF7F70029292900D6D6D600EFEFEF00EFEF + EF00E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C60073737300BDBDBD00CECECE00A5A5A5008C8C8C00424242004A4A + 4A00ADADAD00CECECE00CECECE00F7F7F700000000005A5A5A00BDBDBD00C6C6 + C600B5B5B500949494007B7B7B008C8C8C00848484008484840084848400B5B5 + B500CECECE0042424200525252005A5A5A005A5A5A005A5A5A005A5A5A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7EFEF009C948C0042526300294A8C004A6BB500637BBD004A63 + 9C00314A7300424A5A00B5B5BD0000000000D6CED6004A4A520031393100949C + 94000000000000000000EFE7E7008C8C940008390800BDE7C600FFDEE700FFDE + DE00FFC6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C6007B736B00C6D6E70052ADFF007BC6FF00108CFF000073EF000031 + 8400314A6B00B5B5AD00C6ADAD00E7CECE0029292900D6D6D600E7E7E700DEDE + DE00CECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C60073737300D6D6D600BDBDBD00CECECE00A5A5A5008C8C8C004242 + 42004A4A4A00ADADAD00ADADAD00CECECE00B5B5B50084848400C6C6C600B5B5 + B5008C8C8C007B7B7B008C8C8C008C8C8C0094949400949494008C8C8C008C8C + 8C00CECECE008C8C8C00525252005A5A5A005A5A5A005A5A5A00525252005A5A + 5A00000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF009C9C9400525A63004A6384005A7BAD007B8CBD005A6B + 8C0042526B0029425200636B7300FFF7F700D6D6DE004A52520031393100A5A5 + A5000000000000000000F7F7F700A5A5AD0008390800BDE7C600FFF7F700EFEF + EF00EFE7E700EFEFEF00EFEFEF00EFEFEF00E7EFE700F7F7F700FFFFFF00FFFF + FF00CECECE006B6B7300F7F7EF00D6EFFF0052ADFF007BC6FF00108CFF000073 + EF0000318400314A6B00ADA5AD00BDBDBD0029292900D6D6D600F7F7F700EFEF + EF00E7E7E700EFEFEF00EFEFEF00EFEFEF00E7E7E700F7F7F700FFFFFF00FFFF + FF00CECECE0073737300EFEFEF00EFEFEF00BDBDBD00CECECE00A5A5A5008C8C + 8C00424242004A4A4A00A5A5A500BDBDBD00C6C6C600A5A5A500B5B5B5008484 + 84009C9C9C00A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5 + A5009C9C9C00C6C6C6008C8C8C008484840084848400737373005A5A5A005A5A + 5A00525252000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF00A5ADAD00636B73004A637B00638CAD00739CC6005273 + 9C004A637B00425A6B00BDBDC60000000000CECED6004A52520029313100ADAD + A500000000000000000000000000CED6D60008390800BDE7C600FFF7FF00EFEF + EF00EFEFEF00E7E7E700E7E7E700E7E7E700E7E7E700F7F7F700FFFFFF00FFFF + FF00B5B5B50063636300DEDEDE00FFFFFF00D6EFFF0052ADFF007BC6FF00108C + FF000073EF0000318400314A6B009C9C940029292900D6D6D600F7F7F700EFEF + EF00EFEFEF00E7E7E700E7E7E700E7E7E700E7E7E700F7F7F700FFFFFF00FFFF + FF00B5B5B50063636300DEDEDE00FFFFFF00EFEFEF00BDBDBD00CECECE00A5A5 + A5008C8C8C00424242004A4A4A009C9C9C000000000094949400A5A5A500C6C6 + C600B5B5B500ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00A5A5 + A5008C8C8C00B5B5B5009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009494 + 94008C8C8C006363630000000000000000000000000000000000000000000000 + 00000000000000000000DEDEDE0084848C004A5A7300637BA5006B8CBD006B8C + BD00637B9C00394A5A00ADADB500F7F7FF00B5B5BD004A4A4A0029312900A5A5 + A500000000000000000000000000E7DEE70008390800BDE7C600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00ADA5AD008C94 + 9400B5B5B5008C949400BDBDBD007B7B8400D6CECE00D6EFFF0052ADFF007BC6 + FF00108CFF000073EF0000318400314A6B0029292900D6D6D600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5A5A5009494 + 9400B5B5B50094949400BDBDBD007B7B7B00CECECE00EFEFEF00BDBDBD00CECE + CE00A5A5A5008C8C8C00424242004A4A4A00000000007B7B7B00B5B5B500D6D6 + D600D6D6D600CECECE00C6C6C600BDBDBD00B5B5B500B5B5B500ADADAD009494 + 940084848400ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD009C9C9C006B6B6B00000000000000000000000000000000000000 + 00000000000000000000F7F7F700B5B5B500737B8C0073849C007B94BD00849C + BD007B94A500848C9400BDC6C600EFEFEF00ADA5A5002929290008101800636B + 7300EFEFEF000000000000000000DEDEDE0008390800BDE7C600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007B7B8400314A + 6B00B5BDCE00EFEFEF0094A5AD0021424A00ADADAD00FFFFFF00D6EFFF0052AD + FF007BC6FF00108CFF000063DE000031840029292900D6D6D600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007B7B7B004A4A + 4A00BDBDBD00EFEFEF00A5A5A50042424200ADADAD00FFFFFF00EFEFEF00BDBD + BD00CECECE00A5A5A5007B7B7B0042424200000000006B6B6B00B5B5B500E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700DEDEDE00D6D6D600BDBDBD00ADAD + AD0094949400A5A5A5008C8C8C00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00CECECE0084848400000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E700C6CECE00B5C6CE00BDCEDE00C6D6 + E700DEE7EF000000000000000000F7F7EF00ADA5A50018102900101039003942 + 5200CED6D6000000000000000000E7E7E70008390800C6EFC600E7DEFF00E7EF + FF00C6C6FF00F7F7FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEDE00DEDE + DE00CECECE00737B7300E7EFE700CECECE00EFEFEF00FFFFFF00FFFFFF00D6EF + FF0052ADFF007BB5FF000073EF00428CEF0029292900DEDEDE00E7E7E700EFEF + EF00D6D6D600F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEDE00DEDE + DE00CECECE0073737300E7E7E700CECECE00EFEFEF00FFFFFF00FFFFFF00EFEF + EF00BDBDBD00C6C6C6008C8C8C009C9C9C00000000007B7B7B006B6B6B00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00D6D6D600CECECE00ADAD + AD007B7B7B00BDBDBD00C6C6C600CECECE00CECECE00CECECE00CECECE00CECE + CE00CECECE00A5A5A50084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE0029215A0018107B004A4A + 9C00D6D6E7000000000000000000F7EFEF0008390800C6EFC600E7EFFF00E7DE + FF00D6DEFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00CECECE006B6B7300EFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00D6EFFF0063ADFF007BB5FF00EFF7FF0029292900DEDEDE00EFEFEF00E7E7 + E700E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00CECECE0073737300EFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00EFEFEF00BDBDBD00C6C6C600F7F7F70000000000000000005A5A5A00C6C6 + C600EFEFEF00F7F7F700F7F7F700F7F7F700EFEFEF00CECECE00C6C6C6007B7B + 7B008484840000000000000000009C9C9C00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE008484840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F7006363A50008008400736B + CE00F7F7FF000000000000000000FFF7F7000842100084D68C00FFF7FF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFF7 + F700BDB5BD00ADA5AD00CEC6CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7F7FF00FFFFFF0031313100B5B5B500F7F7F700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7 + F700B5B5B500A5A5A500CECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7F7F700FFFFFF000000000000000000000000003131 + 3100292929005A5A5A006B6B6B0084848400BDBDBD005A5A5A005A5A5A000000 + 000000000000000000000000000000000000CECECE00A5A5A500F7F7F700C6C6 + C6008C8C8C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6CEE700636BA500CED6 + EF00000000000000000000000000FFFFFF000839080039D64A004ACE5A004ACE + 5A004ACE5A004ACE5A004ACE5A004ACE5A004ACE5A004ACE5A0039B54A006BA5 + 73009CAD9C00BDC6BD009CAD9C005A9C5A0039B54A0039B54A0039B54A0039B5 + 4A0031A54A0031A54A0031A54A0031A54A00292929009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C00848484008C8C + 8C00A5A5A500BDBDBD00A5A5A500848484008484840084848400848484008484 + 84007B7B7B007B7B7B007B7B7B007B7B7B000000000000000000000000000000 + 000063636300424242006363630094949400A5A5A50084848400000000000000 + 00000000000000000000000000000000000000000000CECECE008C8C8C008C8C + 8C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFF7000000 + 000000000000000000000000000000000000737B730008421000084210001039 + 1000103910001039100010391000083908000839080008390800083908000031 + 0800000000000008000000000000003108000031080000310800003108000031 + 0800003108000031080000310800003108007373730031313100313131002929 + 2900292929002929290029292900292929002929290029292900292929002121 + 2100000000000000000000000000212121002121210021212100212121002121 + 2100212121002121210021212100212121000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005252D6000808C6000808 + C6000808CE000808CE000808D6000808D6000808DE000808DE000808DE000000 + D6000000D6000000D6000000D6000000D6000000D6002121D600C6C6CE00F7F7 + F700FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 000000EFFF0010FFFF0018FFFF0000E7FF0000DEF70000D6EF0000D6E7006331 + 3100BD9C9C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED6EF008C94CE00C6BDCE0000000000A5BD8C0018BD080000D6000008DE + 000000EF000021E7210010AD000008C6000008D6000000E7000000FF000021DE + 1800BDB5AD00DED6D600E7DEDE00DED6D600000000006B6BDE000808C6000808 + C6000808CE000808D6000808DE000808DE000808DE000808DE000808DE000808 + DE000000D6000000D6000000D6000000D6002121D600C6C6CE00E7E7E700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000EFFF00000000000000000000EF + FF0008F7FF0021FFFF0010F7FF0000DEF70000DEF70000DEEF00298C94009C73 + 6B00DECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DECECE00DECECE00DECECE00DECE + CE00DECECE00DECECE00DECECE00DECECE00DECECE00DECECE00DECECE00DECE + CE00DECECE00DECECE00DECECE00DECECE00DECECE00DECECE00E7D6D600E7D6 + D60000000000000000000000000000000000000000000000000000000000CED6 + EF00315AD6000039E700294ACE008C84C6007BAD6B0008C6000008CE000008D6 + 000000E7000029E7210010A5000008B5000008CE000008DE000000EF000029DE + 2100BDB5AD00DED6D600E7DEDE00DED6D600000000008C8CE7000808C6000808 + CE001010D6000808DE000808DE001010E7001010E7001010E7000808E7000808 + DE000000DE000000D6000000D6002121D600C6C6CE00DEDEDE00F7F7F700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008BDD60000EFFF0000EFFF0000EF + FF0010FFFF0021FFFF0000EFFF0000DEF70000DEF70000D6E70063313100B594 + 9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006B2929006B2929006B2929006B29 + 29006B2929006B2929006B2929006B2929006B2929006B2929006B2929006B29 + 29006B2929006B2929006B2929006B2929006B2929006B2929006B292900B58C + 8C00B58C8C000000000000000000000000000000000000000000C6CEEF00295A + DE00004AFF00185AFF000842FF000831EF0021737B0018C6000008C6000008CE + 000008DE000031C62100219C080010AD000008BD000008CE000000E7000029D6 + 2100B5B5AD00DECED600E7DEDE00DED6D60000000000B5B5F7000808CE001010 + D6001010DE001010DE001010E7001010EF001010EF001010EF000808E7000808 + E7000000DE000000DE002121D600C6C6CE00DEDEDE00F7F7F700FFFFFF00FFFF + FF00FFFFFF00F7F7F700F7F7F700F7F7F70010849C0000EFFF0000EFFF0008F7 + FF0021FFFF0010FFFF0000E7FF0000DEF70000DEF700298C94009C736B00DECE + CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00297B9400297B9400297B9400297B + 9400297B9400297B9400297B9400297B9400297B9400297B9400297B9400297B + 9400297B9400297B9400297B9400297B9C004A525A0063212100632121006321 + 2100B58C8C00B58C8C00000000000000000000000000B5C6EF002963E700085A + FF00105AFF002163FF00185AFF00104AFF00217BA50021BD000008BD000010C6 + 000018C6100018A5000018A5000018AD080018B5080008C6000000DE000029D6 + 2100B5B5AD00DECED600E7DEDE00DED6D60000000000DEDEFF006363E7001010 + D6001010DE001818DE001010EF001818EF001818EF001818EF001010EF000808 + E7000000E7002121D600C6C6CE00DEDEDE00F7F7F700FFFFFF0000000000FFFF + FF00EFEFEF00D6D6D600A5A5BD00B5B5B500215A6B0000EFFF0000F7FF0010FF + FF0021FFFF0000EFFF0000E7F70000DEF70000DEEF005A393900B5949400FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000A5CE0000A5CE0000A5CE0000A5 + CE0000A5CE0000A5CE0000A5CE0000A5CE0000A5CE0000A5CE0000A5CE0000A5 + CE0000A5CE0000A5CE0000ADD60000ADD60000B5DE00317B8C00632121006321 + 21006B292900DECECE000000000000000000ADC6F700296BEF001063FF001863 + FF001863FF002973FF00216BFF001863FF00298CA50018B5000010B5080021C6 + 100010BD000008BD000008BD000008BD000010BD000018C6080008D6000029CE + 2100B5B5A500DECED600E7DED600DED6D60000000000000000006363E7001010 + DE001818DE001818EF001818EF001818F7001818F7001818F7001818F7001010 + EF003131E700C6C6CE00DEDEDE00F7F7F700FFFFFF0000000000FFFFFF00E7E7 + E700B5B5B5008484AD000808D6003131C6003129420000EFFF0008FFFF0021FF + FF0010FFFF0000E7FF0000E7F70000DEF700298C94009C6B6B00DECECE00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000ADD60000ADD60000ADD60000AD + D60000ADD60000ADD60000ADD60000ADD60000ADD60000ADD60000ADD60000AD + D60000ADD60000ADD60000ADD60000B5DE0000B5DE0000BDE7004A525A006321 + 21006B292900DECECE0000000000000000004284F7001873FF002173FF002173 + FF00186BFF003184FF00297BFF002973FF002994A50031A5000021C6100000DE + 000000D6000008D6000008D6000008D6000008D6000008D6000008DE000039BD + 2900C6C6BD00E7D6DE00DED6D600DED6D60000000000000000006363E7001818 + DE001818EF001818EF002121F7002121FF002121FF002121FF002121FF003131 + E700C6C6CE00DEDEDE00F7F7F700FFFFFF0000000000FFFFFF00E7E7E700B5B5 + B5008484AD000808DE000000DE000000DE003900180000F7FF0010FFFF0021FF + FF0000EFFF0000E7F70000E7F70000DEEF005A393900B5949400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000BDE70000BDE70000BDE70000BD + E70000BDE70000BDE70000BDE70000BDE70000BDE70000BDE70000BDE70000BD + E70000BDE70000BDE70000BDE70000BDE70000BDE70000BDE700298CA5006321 + 210073312900DECECE0000000000000000004A8CF700297BFF00297BFF00217B + FF00217BFF00398CFF003994FF00298CFF0052849400C67B1000AD8C100031BD + 000000EF000000F7000000F7000000EF000000F7000000EF000021CE1800A5C6 + 9C00E7DEDE00E7DEDE00DED6D600DED6D6000000000000000000B5B5F7001818 + DE001818EF002121F7002121FF002929FF002929FF002929FF004242F700B5B5 + BD00D6D6D600EFEFEF00FFFFFF0000000000FFFFFF00E7E7E700B5B5B5008484 + AD000808DE000000E7000000E7000000E7003900180008FFFF0021FFFF0010FF + FF0000EFFF0000E7F70000E7F70021A5AD009C6B6B00DECECE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000CEF70000C6EF0000C6EF0000BDEF0000BDEF0021A5AD006321 + 2100AD848400DECECE0000000000000000004A8CFF00298CFF002984FF003184 + FF00217BFF001063FF001873FF005A7BCE00D67B3100FFAD1000FFAD1000E794 + 08008C9C080021D6000000FF000000FF000000FF000029D62100ADC6A500EFDE + E700E7DEDE00DED6D600DED6D600DECECE000000000000000000EFEFFF007373 + EF001818EF002121F7002929FF002929FF002929FF003939F700A5A5A500B5B5 + B500E7E7E700FFFFFF00FFFFFF00FFFFFF00E7E7E700B5B5B50073739C000808 + DE000000E7000000E7000000E7000000E7003100180010FFFF0021FFFF0008F7 + FF0000E7F70000E7F70000E7EF005A393900B5949400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004A738C0000D6FF0000D6FF0000D6 + FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6 + FF0000D6FF0008D6FF0000CEFF0000C6F70000C6EF0000C6EF00397384006B29 + 2100CEADB5000000000000000000000000004A94FF003194FF003994FF002984 + FF00106BFF000063FF004A5ABD00DE842900FFB50000FFB50800FFAD0800FFB5 + 0000FFAD0000E794080073A5000018DE000039DE3100C6CEB500F7E7EF00E7DE + DE00E7DEDE00DED6D600DED6D600DECECE000000000000000000000000008484 + EF001818EF002121FF002929FF003131FF003131FF003939FF006363AD00A5A5 + A500DEDEDE00FFFFFF00FFFFFF00E7E7E700B5B5B50073739C000808E7000000 + E7000000E7000000E7000000E7000000E700215A6B0021FFFF0010FFFF0000EF + FF0000E7F70000E7F70021A5AD009C6B6B00DECECE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00946B730000D6FF0000D6FF0000D6 + FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6 + FF0008E7FF0010E7FF0000CEFF0000C6F70000C6EF0000C6EF00524A4A00A573 + 7300DECECE00000000000000000000000000529CFF00399CFF003994FF00217B + FF001873FF005A6BB500E7942100FFBD0000FFBD0000FFB51000FFAD0800FFAD + 0000FFB50000FFBD0000FFAD0000C6840800BDAD9400EFE7E700F7EFEF00EFE7 + EF00EFE7E700E7DEDE00DED6D600D6CECE00000000000000000000000000DEDE + FF007B7BF7002121FF003131FF003939FF003939FF004242FF004242FF006363 + AD00A5A5A500DEDEDE00DEDEDE00ADADAD0073739C001010EF000000EF000000 + EF000000EF000000E7000000E7000000E70018EFEF0021FFFF0000F7FF0000EF + F70000E7F70000E7EF00524A4A00AD8C8C00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0063314A0000D6FF0000D6FF0000D6 + FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0008DE + FF0018EFFF0010E7FF0000CEF70000C6F70000C6EF0010ADCE006B212100C6A5 + A500000000000000000000000000000000004A9CFF00399CFF00318CFF00218C + FF004A7BCE00E79C2100FFC60000FFC60000FFC60000FFBD1000FFA50800FFA5 + 0000FFAD0000FFB50000FFC60000F7940800D69CA500E7E7E700F7EFEF00EFEF + EF00EFE7E700E7E7E700E7DEDE00DED6D6000000000000000000000000000000 + 00008C8CF7002121FF003131FF003939FF004242FF004A4AFF004A4AFF005252 + FF006363AD008C8C8C008C8C8C0073739C002121FF001818FF001010FF000808 + F7000000EF000000EF000000EF000000EF0021FFFF0010FFFF0000EFFF0000EF + F70000EFF70021A5AD0094636300DECECE00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003129420000D6FF0000D6FF0000D6 + FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000DEFF0010E7 + FF0018F7FF0000D6FF0000CEF70000C6F70000C6F70042637300A5737300DECE + CE0000000000000000000000000000000000A5C6FF004294FF002994FF00299C + FF006B8CC600FFBD0800FFD60000FFCE0000FFCE0000FFC61000FFA51000FFA5 + 0000FFAD0000FFB50000FFBD0000EF940800D6A5A500E7E7E700F7EFEF00EFEF + EF00EFE7E700E7E7E700E7DEDE00E7DEDE000000000000000000000000000000 + 0000EFEFFF008484FF002929FF003939FF004242FF004A4AFF005252FF005A5A + FF005A5AFF006363AD00737373004A4AF7003939FF002929FF002121FF001818 + FF001010FF001010FF000808F7000808F70021FFFF0008F7FF0000EFF70000EF + F70000EFF700524A4A00AD8C8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001073940000D6FF0000D6FF0000D6 + FF0000D6FF0000D6FF0000D6FF0000D6FF0000D6FF0000DEFF0000DEFF0018F7 + FF0018EFFF0000D6FF0000CEF70000CEEF0008BDDE0063292100BD9C9C000000 + 00000000000000000000000000000000000000000000DEEFFF0084B5FF003194 + FF00638CC600F7C61000FFDE0000FFD60000FFD60000FFC61800FFA51800FFA5 + 0000FFA50000FFAD0000FFB50000EF940800D6A59C00E7E7E700F7EFEF00EFEF + EF00EFE7E700E7E7E700E7DEDE00E7DEDE000000000000000000000000000000 + 000000000000C6C6FF009494FF003131FF004242FF005252FF005A5AFF006363 + FF006363FF006B6BFF006363F7005A5AFF005252FF004A4AFF003939FF002929 + FF002929FF002121FF001818FF001818FF0010FFFF0000F7FF0000EFF70000EF + F70021A5AD0094636300D6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000D6FF0000D6FF0000DEFF0000DE + FF0000D6FF0000D6FF0000DEFF0000D6FF0000D6FF0000DEFF0010EFFF0021FF + FF0008DEFF0000CEF70000CEEF0000CEEF00397384009C736B00DECECE000000 + 000000000000000000000000000000000000000000000000000000000000C6DE + FF00A5A5C600F7C61000FFE70000FFDE0000FFCE1000FFAD0000FFAD0000FFAD + 0800FFAD0800FFAD0000FFB50000EF940800D6A5A500E7E7E700F7EFEF00EFEF + EF00EFE7E700E7E7E700E7DEDE00E7DEDE000000000000000000000000000000 + 00000000000000000000A5A5FF009C9CFF003939FF004A4AFF005A5AFF006363 + FF006B6BFF007373FF007373FF007373FF006B6BFF006363FF005A5AFF005252 + FF004242FF003939FF003939FF003131FF0000FFFF0000EFF70000EFF70000EF + F700524A4A00AD8C8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000DEFF0000DEFF0000DEFF0000DE + FF0000DEFF0000DEFF0000DEFF0000DEFF0000DEFF0008E7FF0021F7FF0021F7 + FF0000D6FF0000CEF70000CEEF0000C6EF0063313100BD9C9C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFDEC600FFCE1000FFE70000FFCE1000FFBD0000FFB50000FFBD0000FFBD + 0000FFBD0000FFB50800FFB50000F7940800D6A59C00E7E7E700F7EFEF00EFEF + EF00EFE7E700E7DEE700E7DEDE00DED6D6000000000000000000000000000000 + 00000000000000000000000000008C8CFF00A5A5FF004242FF005252FF006363 + FF006B6BFF007B7BFF008484FF008484FF008484FF008484FF007B7BFF007373 + FF006363FF006363FF005A5AFF005252FF0000F7FF0000EFF70000EFF70018BD + BD0094636300D6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000DEFF0000DEFF0000DEFF0000DE + FF0000DEFF0000DEFF0000DEFF0000DEFF0000DEFF0010F7FF0021FFFF0008E7 + FF0000D6F70000CEF70000CEF700317B8C00A5737300DECECE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFDEC600FFD61000FFD61000FFC60000FFC60000FFC60000FFC60000FFC6 + 0000FFC60000FFC60000FFC60000EF8C2100E7BDBD00F7F7F700F7EFEF00EFEF + EF00EFE7E700DED6D600C6BDBD00C6B5B5000000000000000000000000000000 + 0000000000000000000000000000000000009494FF00A5A5FF004A4AFF005A5A + FF006B6BFF007373FF008484FF008484FF008C8CFF008C8CFF008C8CFF008C8C + FF008484FF008484FF007B7BFF007373FF0000F7F70000EFF70000EFF700524A + 4A00AD848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000DEFF0000DEFF0000DEFF0000DE + FF0000DEFF0000DEFF0000DEFF0000DEFF0008EFFF0021FFFF0018F7FF0000DE + FF0000D6F70000CEF70000C6EF0063313100C6A5A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFE7CE00FFBD2900FFCE0000FFD60000FFD60000FFD60000FFD60000FFD6 + 0000FFD60000FFD60000EF9C1800E7BDA500F7F7FF00F7F7F700EFEFEF00EFEF + EF00EFE7EF00DED6D600CEC6C600EFE7E7000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5A5FF00ADADFF004A4A + FF005A5AFF006B6BFF007B7BFF008484FF008C8CFF009494FF009C9CFF009C9C + FF009C9CFF009494FF009494FF008C8CFF0000F7F70000EFF70018BDBD009463 + 6300D6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000DEFF0000DEFF0000DEFF0000DE + FF0000DEFF0000DEFF0000DEFF0000E7FF0010F7FF0021FFFF0000DEFF0000D6 + F70000D6F70000D6F70039738400A5737300DECECE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFDEC600FFBD5200FFC60800FFDE0000FFE70000FFDE0000FFDE + 0000FFDE0000EFAD2100EFC6B500FFFFFF00F7F7F700F7F7F700EFEFEF00EFEF + EF00EFE7E700DED6D600DED6D600FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6FF00A5A5 + FF004A4AFF005A5AFF006B6BFF007B7BFF008484FF009494FF009C9CFF009C9C + FF009C9CFF009C9CFF009C9CFF009494FF0000F7F70000F7F7004A525A00B594 + 9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000DEFF0000DEFF0000DEFF0000DE + FF0000DEFF0000DEFF0000DEFF0008EFFF0021FFFF0010F7FF0000DEFF0000D6 + F70000D6F70008C6DE0063292900C6A5A5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFD6AD00F7BD3900FFCE0000FFE70000FFDE + 0000EFAD2900EFCEC600FFFFFF00FFFFFF00F7F7F700F7F7F700EFEFEF00EFEF + EF00EFE7E700DED6D600DED6D600FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + FF00A5A5FF00BDBDFF005252FF006363FF007373FF008484FF008C8CFF009494 + FF009C9CFF009C9CFF009C9CFF009494FF0000F7F70018BDBD00B58C8C00B58C + 8C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000E7FF0000E7FF0000E7FF0000DE + FF0000E7FF0000E7FF0000E7FF0010F7FF0021FFFF0000E7FF0000D6F70000D6 + F70000D6F70039738400A5737300DECECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7D6D600EFBD8400FFC62100F7B5 + 3900F7DED600FFFFFF00FFFFFF00FFF7FF00F7F7F700F7F7F700EFEFEF00EFEF + EF00EFE7E700DED6D600DED6D600F7EFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEFF00ADADFF00BDBDFF005252FF006363FF007373FF007B7B + FF008484FF008484FF008484FF008484FF0021F7F700BDC6C600BDC6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000E7FF0000E7FF0000E7FF0000E7 + FF0000E7FF0000E7FF0008EFFF0018FFFF0010F7FF0000DEF70000D6F70000D6 + F70008C6DE0063313100BD9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7DEE700F7F7F700FFEFDE00FFEF + E700FFFFFF00FFFFFF00FFFFFF00FFF7FF00F7F7F700F7EFF700EFEFEF00EFEF + EF00EFE7E700E7DED600DED6D600E7E7E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7FF00C6C6FF00BDBDFF00CECEFF00D6D6 + FF006363FF006363FF006363FF006363FF00C6EFEF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000E7FF0000E7FF0000E7FF0000E7 + FF0000E7FF0000E7FF0008F7FF0018FFFF0000E7FF0000DEF70000D6F70000D6 + F70039738400A5737300DECECE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7DEDE00F7F7F700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700F7F7F700F7EFEF00EFEF + EF00EFE7E700E7DEDE00DED6D600DECECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + FF00D6D6FF00CECEFF00C6C6FF00BDBDFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000E7FF0000E7FF0000E7FF0000E7 + FF0000E7FF0000EFFF0010FFFF0010F7FF0000DEF70000D6F70000D6EF0000D6 + E70063313100BD9C9C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7E7E700F7EFEF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFF7F700F7F7F700F7F7F700F7F7F700F7EFF700F7EF + EF00F7EFEF00EFE7E700DED6D600DED6D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000E7FF0000E7FF0000E7FF0000E7 + FF0000E7FF0008F7FF0018FFFF0008EFFF0000DEF70000D6EF0000D6EF00317B + 8C009C736B00DECECE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFE7E700DED6D600DED6D600DED6 + D600DECECE00D6CECE00D6CECE00D6C6C600D6C6C600D6C6C600CEC6C600CEBD + BD00CEBDBD00CEC6C600E7DEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C63 + 6300FF9C9C00FFCECE00FFFFFF00FF9C9C00FF9C9C0000000000737373000000 + 000000CEFF005252520052525200525252000000000000000000000000000000 + 000000000000527BAD008CC6FF0073B5FF0052B5FF0042A5FF003184F700397B + DE00396BC6003963AD00425A9400425A73004252630039424200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C600C6C6C600C6C6C6000000000084000000FF000000FF00 + 0000FF0000000000000000000000C6C6C600C6C6C600C6C6C600000000000000 + 0000FF000000FF00000084000000000000000000000000000000000000000000 + 0000000000000000000000000000E7EFEF0063D6EF0063EFFF006BEFFF006BEF + FF005AE7FF005ABDE700EFE7DE00FFFFFF00FFFFFF00FFFFFF00ADADAD008484 + 8400848484008C8C8C008C8C8C00848484000000000000000000000000000000 + 0000000000000000000000000000000000007373730073737300000000009C63 + 6300FF9C9C00FFCECE00FFFFFF00FF9C9C00FF9C9C0000000000737373000000 + 000000CEFF0000CEFF0052525200525252000000000000000000000000000000 + 000000000000527BAD0094CEFF0084CEFF005AB5FF0042A5FF003184FF003184 + EF00396BC6003963AD004263A5004252840042526B00424A5200292129000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C600C6C6C600000000008400000000000000FF000000FF00 + 0000FF000000FF0000000000000000000000000000000000000000000000FF00 + 0000FF000000FF000000FF000000840000000000000000000000000000000000 + 0000000000000000000000000000EFF7F70084BDCE0084CEDE008CD6E7008CD6 + EF008CD6E700ADD6EF00F7F7EF00FFFFFF00FFFFFF00FFFFFF00F7F7F700ADAD + AD007B7B7B008484840084848400848484000000000000000000000000000000 + 0000000000009C636300000000009C6363000000000073737300000000009C63 + 6300FF9C9C00FFCECE00FFFFFF00FF9C9C00FF9C9C0000000000737373000000 + 00005252520000CEFF0000CEFF00525252000000000000000000000000000000 + 000000000000527BAD009CDEFF008CC6FF005AB5FF0042A5FF00398CFF003184 + EF002973CE00316BBD00395A9C00425A8C00425A730042525A00394242001810 + 1000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C6000000000084000000FF000000FF000000FF000000FF00 + 0000FF0000008400000000000000000000000000000000000000FF000000FF00 + 0000FF000000FF000000FF000000FF0000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600BDBDBD00C6BDC600C6C6C600CEC6 + C600D6CECE00E7E7E700F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7 + F700ADADAD007B7B7B0084848400848484000000000000000000000000000000 + 00009C6363009C636300000000009C6363009C63630000000000000000009C63 + 6300FF9C9C00FFCECE00FFFFFF00FF9C9C00FF9C9C0000000000000000000000 + 0000525252005252520000CEFF0000CEFF000000000000000000000000000000 + 000000000000527BAD00ADDEFF008CDEFF0063BDFF004AA5FF00429CFF003184 + F7003173D600316BBD003952A500395A8C00425A73004A4A6300424A4A003131 + 3100000000000000000000000000000000000000000000000000000000000000 + 0000C6C6C600C6C6C6000000000084000000FF000000FF00000084000000FF00 + 0000FF000000840000000000000000000000000000000000000084000000FF00 + 000084000000FF000000FF000000FF0000000000000000000000000000000000 + 00000000000000000000DED6D600BDBDC60063BDDE0052C6E7005AC6DE005AC6 + DE0052C6E7007BBDDE00EFE7E700FFFFFF00F7F7F700F7F7F700F7F7F700FFFF + FF00F7F7F700ADADAD00737373007B7B7B000000000000000000000000000000 + 00009C6363009C636300000000009C6363009C6363009C636300000000000000 + 0000000000000000000000000000000000000000000000000000FF9C9C000000 + 000052525200525252005252520000CEFF000000000000000000000000000000 + 00000000000031527300B5E7FF009CDEFF006BC6FF004AA5FF00398CFF003184 + FF00317BDE00296BC600315AA500395294004252840042526B0042525A003942 + 3900212118000000000000000000000000000000000000000000000000000000 + 0000C6C6C600C6C6C60000000000FF000000FF000000FF000000840000008400 + 0000840000008484000084000000000000000000000084000000848400008400 + 000084000000FF000000FF000000FF0000000000000000000000000000000000 + 000000000000D6D6D600CEC6C600CECEDE004AC6F70039DEFF0042DEFF0042DE + FF0039DEFF005ABDE700F7E7E700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700A5A5A500737373000000000073737300737373000000 + 00009C6363009C636300000000009C6363009C6363009C63630000000000FFCE + CE00FFCECE00FFCECE00FFFFFF00FF9C9C00FF9C9C0000000000FF9C9C000000 + 0000525252005252520052525200525252000000000000000000000000000000 + 00000000000018214200B5E7FF00A5E7FF0084CEFF0052ADFF004294FF003184 + FF00317BDE00316BBD00295AAD003152940039528400425A730042526300424A + 4A00313131000000000000000000000000000000000000000000000000000000 + 0000C6C6C600000000000000000084000000FF000000FF000000FF000000FF00 + 000084000000FF00000084000000000000000000000084000000840000008400 + 0000FF000000FF000000FF000000FF0000000000000000000000000000000000 + 0000D6D6D600C6C6C600DEDEDE00DEDEDE00B5CEDE00ADC6DE00A5C6D600A5C6 + D600A5CEDE00CEDEEF00F7EFEF00F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700A5A5A5000000000000000000000000000000 + 00009C63630000000000000000009C6363009C6363009C63630000000000FFCE + CE00FFFFFF00FFCECE00FFCECE00FFFFFF00FF9C9C0000000000FF9C9C000000 + 000000CEFF005252520052525200525252000000000000000000000000000000 + 00000000000008082100B5E7FF00ADEFFF008CDEFF005AB5FF00429CFF00398C + FF00297BEF00296BCE00295AAD003152940039528400425A730042526B004252 + 5200394239001810180000000000000000000000000000000000000000000000 + 0000C6C6C600000000000000000084000000FF000000FF000000FF000000FF00 + 0000848400008400000084000000000000000000000084000000FF0000008484 + 000084000000FF000000FF000000FF000000000000000000000000000000D6D6 + D600C6C6C600DEDEDE00DEDEDE00DEDED600BDCECE0084BDD6005ABDD60063B5 + DE0094B5C600D6CECE00EFEFE700F7F7F700F7F7F70000000000000000000000 + 00000000000000000000F7F7F700F7F7F7000000000063313100633131000000 + 000000000000FFCECE00FFCECE00000000009C6363009C63630000000000FFCE + CE00FFCECE00FFFFFF00FFCECE00FFCECE00FFFFFF0000000000FF9C9C000000 + 000000CEFF0000CEFF00525252009C9C9C000000000000000000000000000000 + 000000000000000000009CC6EF00B5E7FF009CE7FF006BC6FF00429CFF003184 + FF00317BF700296BD600295AAD0029529C00314A84004252730042526B004252 + 6300424A4A00313131000000000000000000000000000000000000000000C6C6 + C600C6C6C60000000000FF000000840000008400000084000000FF000000FF00 + 0000FF000000FF00000084000000000000000000000084000000840000008400 + 0000FF000000FF00000084000000840000000000000000000000CECECE00C6C6 + C600DEDEDE00DEDEDE00DED6D60094BDD60021BDF70008D6FF0010D6FF0010D6 + FF0010C6F7004AADD600BDC6C600EFEFE70000000000EFEFEF00000000000000 + 0000000000000000000000000000F7F7F7000000000063313100633131000000 + 0000FFCECE00FFCECE00FFCECE00FFCECE00000000009C63630000000000FFCE + CE00FFCECE00FFCECE00FFFFFF00FFCECE00FFCECE0000000000FF9C9C000000 + 0000FFFFFF00FFFFFF0000FFFF009C9C9C000000000000000000000000000000 + 000000000000000000005273A500BDF7FF009CE7FF0073CEFF0052A5FF00398C + FF003184F700296BDE00215ABD00295294002942730031426B00394A5A004252 + 5A00394A4200313131001008080000000000000000000000000000000000C6C6 + C60000000000FF00000084000000FF0000008400000084000000840000008484 + 0000840000008400000084000000000000000000000084000000840000008400 + 00008484000084000000840000008400000000000000EFEFEF009C9C9C00D6D6 + D600DEDEDE00DEDEDE00B5C6D60018BDF70000D6FF0029C6EF0052BDE70042C6 + EF0010CEFF0000CEFF0052A5D600D6CECE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000063313100633131006331 + 310000000000FFCECE00FFCECE00FFCECE00FFCECE0000000000FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFFFFF00FFCECE0000000000000000000000 + 00009C9C9C0000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000018294A00BDEFFF00ADEFFF0084D6FF005AB5FF004294 + FF00317BFF00296BD600395A6B0042634A00395A4A0039524A0031424A003131 + 42003142390031313100314231004A5A3900000000000000000000000000C6C6 + C6000000000084000000FF000000FF000000FF000000FF000000840000008400 + 0000FF0000008400000084000000000000000000000084000000FF0000008400 + 00008400000084000000FF000000FF00000000000000E7E7E7009C9C9C00D6D6 + D600DEDEDE00E7DEDE0063BDE70000CEFF0021B5E700ADBDD600E7E7DE00DEDE + E7006BC6EF0000C6FF0010B5F700ADBDC600EFE7E700E7EFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000063313100633131006331 + 31006331310000000000FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFFFFF00FFCECE00FFCECE00FFFF + FF00000000009C9C9C0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000001000ADDEFF00ADF7FF008CDEFF005AB5FF00429C + FF00317BF70039636B00425A4200426B52003963520042634A0039634A003131 + 3100292929003142390042634A004A5A42000000000000000000000000000000 + 00000000000084000000FF000000FF000000FF000000FF00000084840000FF00 + 0000840000008400000000000000000000000000000084000000840000008400 + 0000FF00000084840000FF0000008400000000000000E7E7E70094949400DED6 + D600E7E7E700E7DEDE0039B5EF0000C6FF005AA5CE00DED6CE00EFEFE700EFEF + E700C6CEDE0010BDF70000BDFF008CB5C600E7DEDE00E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 0000000000000000000000000000FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE0000000000000000000000000000000000FFCECE00FFFFFF00FFCECE00FFCE + CE00FFFFFF00000000009C9C9C0000FFFF000000000000000000000000000000 + 00000000000000000000000000006B94C600B5F7FF0094E7FF0063C6FF0042A5 + FF00397BC600396342003963520042635200426B5A00426B5A004A736300426B + 5A0031423100426352004A634A004A634A000000000000000000000000000000 + 000084000000FF000000FF000000FF000000FF000000FF000000FF0000008400 + 0000840000000000000000000000000000000000000000000000840000008400 + 000084000000FF000000FF000000FF00000000000000E7E7E7008C8C8C00DEDE + DE00EFE7E700E7DED60039ADEF0000C6FF0042A5CE00C6BDBD00DEDEDE00E7DE + D6009CBDD60008B5F70000B5FF0094B5C600E7DEDE00E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700000000009C636300FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFCECE00FFCECE009C6363000000 + 000063313100633131009C6363009C636300000000009C636300FFFFFF00FFCE + CE00FFCECE00FFFFFF0000000000000000000000000000000000000000000000 + 000000000000000000000000000029426300B5E7FF009CEFFF0073DEFF004AB5 + FF00427B9C0042634A004A735A004A7363004A7B6B005A846B00639484006394 + 8C00527B6300426B52004A6B52004A634A00000000000000000000000000FF00 + 0000FF000000FF000000FF000000FF00000084840000FF000000840000008400 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008400000084000000FF0000008484000000000000F7F7F7009C9C94009C9C + A50094ADCE00CEC6C6006BB5E70000BDFF0008B5F700639CCE009CADB5008CAD + C60031ADE70000BDFF0018A5EF00BDBDC600DED6D600D6D6D600DEDEDE00DEE7 + E700E7E7E700E7E7E700E7E7E700E7E7E70000000000FF9C9C009C636300FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFCECE00000000006331 + 310063313100633131009C6363009C6363009C63630000000000FFCECE00FFFF + FF00FFCECE00FFCECE00FFFFFF00FF9C9C000000000000000000000000000000 + 0000000000000000000000000000000008009CC6F7009CEFFF0073DEFF005AC6 + FF00528C9C0052846B00528473005A8C6B0063948C006BA594006B9C94006B9C + 94005A8C6B004A7363004A7363004A6B52000000000000000000000000008400 + 0000FF000000FF00000084000000FF0000000000000000000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000084000000FF000000000000000000000000000000DEDEE700428C + BD0000A5F7005A9CCE00ADADBD0021A5F70000BDFF0000B5FF0008ADF70000AD + F70000BDFF0000ADFF0073ADD600CEC6C6005AA5DE006B9CCE00CEC6BD00DEDE + DE00E7E7E700E7E7E700E7E7E700CECECE0000000000FF9C9C00FF9C9C009C63 + 6300FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C009C6363000000 + 000063313100633131006331310063313100000000009C636300FFCECE00FFCE + CE00FFFFFF00FFCECE00FFCECE00FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000314A7300527BBD00527BBD003963 + B5006394A50084B59C006B9C8C006B9C940073AD9C0073A5940073A594006B9C + 8C00639484005A846B005A846B0052846B000000000000000000840000008484 + 00008400000000000000FF000000FF0000008400000084000000840000000000 + 0000000000000000000000000000C6C6C600C6C6C60000000000000000000000 + 00000000000000000000840000008400000000000000F7F7F700E7DEEF0063B5 + E70031C6FF0010B5F7005A94CE0094ADBD0039A5EF0000A5FF0000ADFF0000AD + FF0010A5F70073B5DE00CEC6C6005AA5DE0000ADFF0000A5F700639CC600CEC6 + C600E7E7DE00E7E7E700D6D6CE00CECECE0000000000FF9C9C00FF9C9C00FF9C + 9C009C636300FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFCE + CE0000000000000000000000000000000000FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFFFFF00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000031423900394239001810 + 18004A735A0094CEBD0073A594006B9C8C006B9C8C006B9C8C0073A5940073A5 + 8C006B9C8C006B9C94006394840021313100000000000000000000000000C6C6 + C600000000008400000084840000840000008400000084000000000000000000 + 00000000000000000000C6C6C6000000000000000000C6C6C600000000000000 + 000000000000000000008400000000000000F7F7EF007BADE70073A5CE00CEC6 + CE0073B5E7006BCEFF0052C6FF006B9CCE00B5BDBD00ADC6D6008CBDE70094BD + DE00C6CED600D6CECE0052A5DE0000A5FF0000ADFF0000ADFF0010A5FF006B9C + C600CEC6C600CECECE00CECED600000000000000000000000000000000000000 + 0000000000000000000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C00FFCECE00FFCECE00FFCE + CE00FFCECE000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000084A58C00A5C6A50073948400849C8C005A7B + 5A005A846B0084B59C006BA58C006B9C84006B9C8C0073A58C006B9C8C0073A5 + 8C006B9C8400426B520010181800000000000000000000000000000000000000 + 0000840000008400000084000000840000008400000084000000000000000000 + 000000000000C6C6C60000000000000000000000000000000000C6C6C6000000 + 00000000000000000000840000008400000084B5DE0084CEF7007BCEF7007BA5 + C600C6C6CE007BB5E70094DEFF007BCEFF0073A5D600E7DEDE00F7EFE700F7EF + E700EFE7E7006BADE70031B5FF0039C6FF0052C6FF006BD6FF0094DEFF0073C6 + FF00639CBD00B5B5B50000000000000000000000000000000000000000000000 + 0000FF9C9C00FF9C9C0000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C00FFCECE00FFCE + CE00FFCECE00FFCECE0000000000FF9C9C000000000000000000000000000000 + 00000000000000000000000000005A7B6300CEF7D600D6FFDE00C6EFCE00A5CE + AD0094BD9C0073AD8C0073A58C00739C8C00739C840073A5940042634A002942 + 3900000000000000000000000000000000000000000000000000000000008400 + 0000840000008400000084000000840000000000000000000000000000000000 + 000000000000C6C6C6000000000000000000000000000000000000000000C6C6 + C60000000000000000000000000000000000A5C6EF008CC6F700C6EFFF008CCE + F7007BA5CE00BDC6CE0084BDE70063ADE7006384AD00DEDEDE00EFEFEF00EFEF + EF00EFEFEF0094BDEF007BC6F700C6EFFF00CEEFFF00C6EFFF00CEEFFF00C6EF + FF0063A5E700BDCED60000000000000000000000000000000000000000000000 + 0000FF9C9C0000000000FF9C9C009C636300FF9C9C00FF9C9C0000000000FF9C + 9C00FF9C9C00FF9C9C00FFCECE00FFCECE00FFCECE000000000000000000FFCE + CE00FFCECE00FFCECE00FFCECE00000000000000000000000000000000000000 + 000000000000000000000000000008100800C6EFCE00DEFFE700CEF7D600BDE7 + BD00A5CEAD0094BDA50084B59C0084AD9C0052846B001018180042634A002942 + 3900000000000000000000000000000000000000000000000000000000000000 + 0000840000008400000084000000000000000000000000000000000000000000 + 0000C6C6C6000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ADCEEF009CCEF700DEF7 + FF00A5D6F70084ADCE00C6CEDE00B5C6DE008C84840094949400EFEFEF00F7F7 + F700F7F7EF00F7EFEF009CC6EF0094CEF700DEF7FF00DEF7FF00D6F7FF008CC6 + EF00A5BDDE000000000000000000000000000000000000000000000000000000 + 000000000000FF9C9C00FF9C9C00FF9C9C009C6363000000000000000000FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FFCECE00FFCECE0000000000000000000000 + 0000FFCECE00FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 00000000000000000000000000000000000031423100D6FFDE00DEFFE700C6EF + CE00BDE7C600ADD6AD009CC6A50084AD9C001018100000000000294239005284 + 7300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADCEEF00A5CE + F700E7F7FF007BADE700CED6EF0000000000EFEFEF008C8C8C0094949400EFEF + EF00FFF7FF00F7F7F700EFEFF7009CC6EF00A5D6F700E7FFFF009CC6EF00A5BD + DE00000000000000000000000000000000000000000000000000000000000000 + 0000FF9C9C00FF9C9C00FF9C9C00FF9C9C00000000000000000000000000FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFCECE0000000000000000000000 + 000000000000FFCECE00FFCECE00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001018100073948400BDE7 + C600ADD6B50094BDA50042634A0000080000000000000000000000000000394A + 420073A58C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000ADCE + EF0084B5E700B5CEE700000000000000000000000000EFEFEF008C8C8C009494 + 9400EFEFEF00FFFFFF00FFFFF700F7F7F70094BDDE007BADE700ADC6DE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF9C9C00FF9C9C0000000000000000000000000000000000FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000008 + 0000000808000000000000000000000000000000000000000000000000000000 + 0000212921006B9C840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7E7F7000000000000000000000000000000000000000000EFEFEF008484 + 84008C8C8C0000000000FFFFFF00E7E7E700CECECE00D6DEEF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001810100042634A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFEF + EF00848484008C8C8C00D6D6D600D6D6DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000080800080800000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF008C8C8C00BDBDBD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000031639C00639C + CE00639CCE00FFFFFF00639CCE00639CCE00639CCE00639CCE0031639C00639C + CE00639CCE00639CCE0031639C0031639C00000000000000DE000000DE00CECE + FF006363FF006363FF00000000000000DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000029292900FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000292929002929290029292900DEDE + DE000000000029292900DEDEDE00D6D6D6000000000000000000000000000000 + 00005252520000000000000000009C6363000000000000000000FFCECE00CE9C + 9C00FFCECE00CE9C9C00FFCECE00CE9C9C00FFCECE00CE9C9C00000000000000 + 0000FFCECE00CE9C9C00FFCECE00000000000000000000000000000000000000 + 000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C000000000000000000FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FFCECE00FFCECE0063313100000000000000 + 000000000000633131000000000052525200000000000000000000000000639C + CE00639CCE00FFFFFF00FFFFFF00639CCE00639CCE0031639C009CCEFF00639C + CE00639CCE00639CCE00639CCE0031639C00000000006363FF006363FF006363 + FF00CECEFF000000000052525200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000029292900FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000000000000000000000000000000000DEDE + DE00292929002929290029292900DEDEDE000000000000000000000000009C63 + 63000000000000000000000000000000000000000000FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE0000000000CE9C9C006331 + 310000000000FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 000000000000FF9C9C00FF9C9C000000000000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00633131000000 + 0000000000006331310063313100000000000000000000000000000000000000 + 0000639CCE00639CCE00639CCE0031639C0031639C0000000000000000009CCE + FF00639CCE00639CCE00639CCE0031639C0031639C00000000006363FF006363 + FF006363FF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000029292900FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000002929 + 29007B7B7B007B7B7B007B7B7B002929290000000000000000009C6363000000 + 000000000000000000000000000042424200639CFF000000000000000000FFCE + CE00FFCECE00FFCECE00FFCECE00000000000000000000000000CE9C9C006331 + 310000000000FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFFF + FF00FFFFFF00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C000000 + 0000633131000000000063313100633131000000000000000000000000000000 + 0000000000000000000031639C00639CCE000000000031639C0031639C000000 + 00009CCEFF00639CCE00639CCE00639CCE0031639C0031639C00000000000000 + 00000000000031639C0031639C00000000000000000000000000000000000000 + 000000000000292929002929290029292900000000002929290029292900FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000292929007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B00000000009C636300000000000000 + 0000FFCECE00FFFFFF00000000009C9CFF00639CFF00639CFF00639CFF000000 + 0000FFCECE00FFFFFF0000000000CE9C9C000000000000000000CE9C9C006331 + 310000000000FFFFFF00FFCECE00FFFFFF000000000000000000000000000000 + 000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FFFFFF00FFFFFF00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C000000 + 0000633131006331310000000000633131000000000000000000000000000000 + 000000000000000000000000000031639C00639CCE0000000000000000000000 + 0000000000009CCEFF00639CCE00639CCE00639CCE0031639C0031639C003163 + 9C0031639C0031639C0031639C0031639C000000000000000000000000002929 + 2900292929000052DE000052DE000052DE00292929009CDEFF009CDEFF002929 + 2900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000292929002929 + 2900292929002929290029292900292929000000000000000000FFFFFF00FFCE + CE00FFFFFF00FFCECE00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000633131000000000000000000CE9C9C006331 + 310000000000FFCECE00FFFFFF00FFCECE00000000000000000000000000FFCE + CE0000000000FF9C9C00FF9C9C00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FF9C9C00FF9C9C00000000000000 + 0000FFCECE006331310063313100000000000000000000000000000000000000 + 00000000000000000000000000000000000031639C00639CCE00000000000000 + 000031639C00000000009CCEFF00639CCE00639CCE00639CCE0031639C003163 + 9C0031639C0031639C0031639C0031639C000000000000000000292929000052 + DE000052DE000018520000185200001852000052DE00292929009CDEFF002929 + 2900FFFFFF00292929002929290029292900FFFFFF0029292900292929009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000FFCECE00FFFF + FF00FFCECE00FFFFFF00FFCECE00000000000000000000FFFF0000FFFF000000 + 0000639CFF000000000063313100633131000000000000000000CE9C9C006331 + 310000000000FFFFFF00FFCECE00FFFFFF0000000000FFCECE00FFCECE00FFCE + CE0000000000FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FF9C9C00FF9C9C000000000000000000FFFFFF00FFFF + FF00FFCECE00FFCECE0063313100633131000000000000000000000000000000 + 0000000000000000000000000000000000000000000031639C00639CCE000000 + 00000000000000000000000000009CCEFF00639CCE00639CCE00639CCE003163 + 9C0031639C0031639C0031639C0031639C0000000000292929000052DE000052 + DE0000185200424242004242420042424200001852000052DE00292929002929 + 290029292900FFFFFF00FFFFFF00FFFFFF00292929009CDEFF009CDEFF009CDE + FF009CDEFF00292929002929290029292900000000000000000000000000FFCE + CE00FFFFFF00FFCECE00FFFFFF00FFCECE00000000000000000000FFFF0000FF + FF0000000000639CFF000000000000000000FFFFFF0000000000CE9C9C006331 + 310000000000FFCECE00FFFFFF00FFCECE0000000000FFCECE00FFCECE00FF9C + 9C00FF9C9C0000000000FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE00FF9C9C00FF9C9C000000000000000000FFFFFF00FFFFFF00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00633131000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000031639C00639C + CE00000000000000000031639C00000000009CCEFF00639CCE00639CCE003163 + 9C0031639C0031639C0031639C0031639C0000000000292929000052DE000018 + 520042424200BDBDBD00BDBDBD00BDBDBD00001852000052DE000052DE002929 + 2900FFFFFF00FFFFFF00FFFFFF00292929009CDEFF009CDEFF009CDEFF009CDE + FF0029292900FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000FFCECE00FFFFFF00FFFFFF00FFFFFF00000000009CFFFF000000000000FF + FF0000FFFF0000000000639CFF0000000000FFFFFF0000000000CE9C9C006331 + 310000000000FFFFFF00FFFFFF00FFFFFF000000000000000000FF9C9C000000 + 000000000000FFFFFF0000000000FFCECE00FFCECE00FFCECE00FF9C9C00FF9C + 9C000000000000000000FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003163 + 9C00639CCE000000000031639C000000000000000000639CCE00639CCE003163 + 9C0031639C0031639C0031639C0031639C00292929000052DE00001852000052 + DE0042424200BDBDBD00000000000000000042424200001852000052DE002929 + 2900FFFFFF00FFFFFF00292929009CDEFF009CDEFF009CDEFF009CDEFF009CDE + FF0029292900FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000FFCECE00FFFFFF00FFFFFF00FFFFFF00000000009CFFFF000000 + 000000FFFF0000FFFF0000000000639CFF000000000000000000CE9C9C006331 + 310000000000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FF9C9C00FF9C9C00000000000000 + 0000FFFFFF00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE005252520021212100FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031639C00639CCE00000000000000000000000000639CCE00639CCE003163 + 9C0031639C0031639C0031639C0031639C00292929000052DE000052DE000052 + DE004242420000000000000000000000000042424200001852000052DE002929 + 2900FFFFFF00FFFFFF00292929009CDEFF009CDEFF009CDEFF009CDEFF009CDE + FF009CDEFF002929290029292900292929000000000000000000000000000000 + 00000000000000000000FFCECE00FFFFFF00FFFFFF00FFFFFF00000000009CFF + FF000000000000FFFF0000FFFF00000000000000000000000000CE9C9C006331 + 310000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF + FF00FFCECE00FFFFFF006331310063313100FFCECE00FFCECE00212121005252 + 5200FFCECE00FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031639C00639CCE000000000031639C0000000000639CCE00639CCE000000 + 0000000000000000000031639C0031639C00292929000052DE000052DE000052 + DE000052DE004242420042424200424242000052DE00001852000052DE002929 + 2900FFFFFF00292929009CDEFF009CDEFF009CDEFF009CDEFF009CDEFF009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000000000000000 + 0000000000000000000000000000FFCECE00FFFFFF00FFCECE00FFFFFF000000 + 00009CFFFF000000000000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFCECE00FFCE + CE00633131006331310000AD0000009C0000FFFFFF00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE0052525200212121000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031639C00639CCE00000000000000000000000000639CCE00000000003163 + 9C0031639C0031639C000000000031639C00292929000052DE000052DE000052 + DE000052DE000052DE000052DE000052DE00001852000052DE000052DE002929 + 2900292929009CDEFF009CDEFF009CDEFF009CDEFF009CDEFF009CDEFF009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000000000000000 + 000000000000000000000000000000000000FFCECE00FFFFFF00FFFFFF000000 + 0000000000009CFFFF000000000000FFFF0000000000CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C0000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFCE + CE00FFCECE006331310000AD0000009C000000AD0000FFFFFF00FFCECE00FFCE + CE002121210052525200FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031639C00639CCE000000000031639C000000000000000000639CCE003163 + 9C0031639C0031639C000000000031639C0000000000292929000052DE000052 + DE000052DE000052DE000052DE000052DE00001852000052DE00292929000000 + 0000292929009CDEFF009CDEFF00292929009CDEFF009CDEFF009CDEFF002929 + 29009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFCECE00FFFFFF000000 + 0000CE9C9C00000000009CFFFF000000000000000000FF9CFF00FF9CFF00FF9C + FF00FF9CFF00CE9C9C000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFCECE00FFCECE006331310000AD0000009C000000AD0000FFFFFF00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000639CCE00000000000000000000000000639CCE00639CCE003163 + 9C0031639C00000000000000000031639C0000000000292929000052DE000052 + DE000052DE000052DE000052DE000052DE00001852000052DE00292929000000 + 0000292929009CDEFF0029292900292929009CDEFF009CDEFF009CDEFF002929 + 29009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFCECE000000 + 0000CE9C9C0000000000000000009CFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFCECE00FFCECE006331310000AD0000009C000000AD0000FFFF + FF00FFCECE00FFCECE0021212100525252000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE000000 + 000031639C00000000000000000031639C0000000000639CCE00639CCE003163 + 9C0031639C000000000031639C0031639C000000000000000000292929000052 + DE000052DE000052DE000052DE000052DE000052DE000052DE00292929000000 + 0000292929002929290029292900292929009CDEFF009CDEFF009CDEFF009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CE9C9C00CE9C9C0000000000000000009CFFFF000000000000FFFF0000FF + FF0000000000639CFF0000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFCECE00FFCECE006331310000AD0000009C000000AD + 0000FFFFFF00FFCECE00FFCECE00FFCECE000000000000000000000000000000 + 00000000000000000000000000000000000000000000DEDEDE00DEDEDE000000 + 000031639C00639CCE0000000000000000000000000000000000000000000000 + 000000000000639CCE0031639C0031639C000000000000000000000000002929 + 2900292929000052DE000052DE000052DE000052DE0029292900000000000000 + 00002929290029292900292929002929290029292900529CDE00529CDE00529C + DE00529CDE00529CDE00529CDE00529CDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF9CFF00CE9C9C000000000000000000000000009CFFFF000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFCECE00FFCECE006331310000AD0000009C + 000000AD0000FFFFFF00FFCECE00FFCECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE000000 + 000031639C000000000000000000000000000000000021212100212121002121 + 21002121210021212100639CCE0031639C000000000000000000000000000000 + 0000000000002929290029292900292929002929290000000000000000000000 + 0000292929000000000000000000DEDEDE002929290029292900292929002929 + 2900292929002929290029292900292929000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CE9C9C00000000000000000000000000000000009CFFFF000000 + 000000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFCECE00FFCECE0063313100FFFF + FF00FFFFFF00FFCECE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000639CCE00212121000000000000000000000000002121 + 2100212121002121210021212100639CCE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000292929000000000000000000DEDEDE0000000000DEDEDE00DEDEDE002929 + 29007B7B7B007B7B7B009C9C9C007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF9CFF00CE9C9C00FFFFFF005252520052525200000000009CFF + FF000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000FFCECE0000000000FFCECE00FFCECE00FFCE + CE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031639C002121210021212100212121002121210021212100212121000000 + 0000212121002121210021212100639CCE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029292900FFFFFF000000000000000000DEDEDE00DEDEDE00DEDEDE00DEDE + DE0029292900292929009C9C9C009C9C9C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF9CFF00FF9CFF000000000000000000000000000000 + 00009CFFFF0000000000000000000000AD000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000 + 000000000000FFCECE00FFCECE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000639CCE002121210021212100212121002121210021212100212121002121 + 2100212121002121210021212100639CCE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029292900FFFFFF0000000000FFFFFF0000000000DEDEDE0000000000DEDE + DE00DEDEDE00D6D6D60029292900292929000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052525200424242000000 + 0000000000009CFFFF00000000000000AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000639CCE002121210021212100212121002121210021212100212121002121 + 210021212100639CCE00639CCE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029292900FFFFFF0000000000FFFFFF0000000000DEDEDE00DEDE + DE00DEDEDE00DEDEDE00D6D6D600D6D6D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000021212100A5A5A500DEDEDE00C6C6C6004242 + 42000000000000000000000000000000AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000639CCE002121210021212100212121002121210021212100639C + CE00639CCE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000029292900FFFFFF000000000000000000000000000000 + 0000DEDEDE00DEDEDE00DEDEDE00DEDEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DEDEDE00FFFFFF00DEDEDE005252 + 52000000000000000000000000000000AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000639CCE00639CCE00639CCE00639CCE00639CCE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002929290029292900FFFFFF00000000000000 + 000000000000DEDEDE00DEDEDE00DEDEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002121210021212100C6C6C6009C9C9C004242 + 4200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000029292900292929002929 + 2900292929002929290029292900292929000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000002100000000004242 + 4200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0063313100633131006331 + 310063313100310000000000000031319C0031319C006363CE006363CE006363 + CE006363CE006363CE006363CE000000AD0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0063313100633131006331 + 310063313100310000000000000031319C0031319C006363CE006363CE006363 + CE006363CE006363CE006363CE000000AD000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0000316300639CCE0031639C0031639C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C9C00FFCE + CE00FFCECE00FFFFFF00FFCECE00FFCECE0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0063313100633131006331 + 310031000000520000000000000031319C0031319C0031319C006363CE006363 + CE006363CE006363CE006363CE000000AD0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0063313100633131006331 + 310031000000520000000000000031319C0031319C0031319C006363CE006363 + CE006363CE006363CE006363CE000000AD000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0031639C0000316300639CCE0031639C000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF000000000000000000CE63 + 6300CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C9C00FFCE + CE00FFCECE00FFFFFF00FFCECE00FFCECE0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FFFFFF00FFFFFF0063313100633131006331 + 310031000000520000000000000031319C00000000000000000031319C006363 + CE006363CE00FFFFFF00FFFFFF000000AD0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FFFFFF00FFFFFF0063313100633131006331 + 310031000000520000000000000031319C00000000000000000031319C006363 + CE006363CE00FFFFFF00FFFFFF000000AD000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0031639C0000316300639CCE0031639C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CE636300CE63 + 6300CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C9C00FFCE + CE00FFCECE00FFFFFF00FFCECE00FFCECE0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00633131006331 + 31003100000052000000000000000000000000CEFF00009CFF00000000009C9C + FF009C9CFF006363CE009C9CFF009C9CFF0000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00633131006331 + 31003100000052000000000000000000000000CEFF00009CFF00000000009C9C + FF009C9CFF006363CE009C9CFF009C9CFF000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0031639C0031639C000031630031639C000000000000000000000000000000 + 00000000000000000000000000000000000000000000CE9C9C00000000000000 + 0000CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C9C00FFCE + CE00FFCECE00FFFFFF00FFCECE000000000000000000FF9C9C00FF9C9C00FFFF + FF00FFFFFF00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE003100 + 0000520000000000000000CEFF0000CEFF0000CEFF00009CFF00009CFF000000 + 00006363CE006363CE006363CE009C9CFF0000000000FF9C9C00FF9C9C00FFFF + FF00FFFFFF00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE003100 + 0000520000000000000000CEFF0000CEFF0000CEFF00009CFF00009CFF000000 + 00006363CE006363CE006363CE009C9CFF000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0031639C0031639C0000316300639CCE000000000000000000000000000000 + 000000000000FFFFFF000000000000000000CE636300CE9C9C00CE9C9C00CE9C + 9C000000000000000000CE636300CE6363007373730000000000000000000000 + 0000000000000000000042424200C6C6C60000000000FFFFFF00FFFFFF00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00000000000000 + 000000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00000000006363CE006363CE006363CE0000000000FFFFFF00FFFFFF00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00000000000000 + 000000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00000000006363CE006363CE006363CE000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE009CCEFF0031639C0031639C003163 + 9C0031639C0031639C0000316300003163000000000000000000000000000000 + 0000000000000000000000000000CE636300CE636300CE9C9C00CE9C9C00CE9C + 9C00FFCECE00FFCECE00C6C6C600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00000000000000000000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00000000006363CE006363CE0000000000FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00000000000000000000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00000000006363CE006363CE000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00639CCE00639CCE00FFFFFF00FFFFFF00FFFFFF0031639C003163 + 9C0031639C0031639C0000316300639CCE000000000000000000000000000000 + 00000000000000000000CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C + 9C00FFCECE004242420000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF0000000000FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00000000006363CE00C6ADA50000000000FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00000000006363CE000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639C + CE00639CCE00FFFFFF00FFFFFF00316363003163630031636300FFFFFF003163 + 9C0031639C0031639C0000316300639CCE000000000000000000000000000000 + 000000000000CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00CE9C + 9C00424242000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF0000000000FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA50000000000FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00639CCE00FFFF + FF00FFFFFF000000AD0000009C0000000000316363003163630031636300FFFF + FF0031639C0031639C0000316300639CCE0000000000FFFFFF00000000000000 + 0000CE636300CE636300CE636300CE636300CE636300CE9C9C00CE9C9C00C6C6 + C6000000000000000000000000000000000000000000424242009CCE9C009C9C + 9C00FFCE9C00FFCE9C004242420000000000EFEFEF00EFEFEF00EFEFEF000000 + 0000FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA5000000 + 0000FFCECE00FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00639CCE00639CCE00FFFFFF00FFFFFF000000 + AD0000009C006363CE000000AD000000AD0000000000000000000000000000CE + FF00FFFFFF0031639C0000316300639CCE00000000000000000000000000CE63 + 6300CE636300CE636300CE636300CE636300CE636300CE9C9C00CE9C9C000000 + 0000000000000000000000000000000000009CCE9C009CCE9C009CCE9C009C9C + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF0000000000FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A50000000000FFCECE00FFCECE00FFCECE000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000639CCE00639C + CE00639CCE00639CCE00639CCE00FFFFFF00FFFFFF00000000000000AD006363 + CE006363CE006363CE0000009C000000AD000000AD000000000000CEFF0000CE + FF00009CFF00FFFFFF0000316300639CCE00000000000000000000000000CE63 + 6300CE636300CE636300CE636300CE636300CE636300CE9C9C00C6C6C6000000 + 00000000000000000000000000009CCE9C009CCE9C009CCE9C009CCE9C009C9C + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF0000000000FFCECE00000000000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA50000000000FFCECE00000000000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000639CCE00639C + CE00639CCE00FFFFFF00FFFFFF009CFFFF00CEFFFF00000000006363CE006363 + CE006363CE006363CE000000AD0000009C000000AD000000AD000000000000CE + FF00009CFF00009CFF00FFFFFF00639CCE000000000000000000000000000000 + 000000000000CE636300CE636300CE636300CE636300CE9C9C00424242000000 + 00000000000000000000424242009CCE9C009CCE9C009CCE9C009CCE9C009C9C + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF0000000000EFEFEF000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF00FFFFFF00FFFFFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA50000000000C6ADA5000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF00FFFFFF00FFFFFF00009CFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000639CCE00FFFF + FF00FFFFFF0000316300000000009CFFFF00CEFFFF00000000006363CE006363 + CE006363CE006363CE000000AD0000009C000000AD000000AD000000000000CE + FF00009CFF00009CFF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000CE636300CE636300CE9C9C00000000000000 + 000000000000000000009CCE9C009CCE9C009CCE9C009CCE9C009CCE9C000000 + 000000000000FFCE9C00FFCE9C00FFCE9C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000CEFF0000CEFF0000CE + FF0000CEFF00FFFFFF00FFFFFF0000FFFF0000FFFF0000FFFF00009CFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000CEFF0000CEFF0000CE + FF0000CEFF00FFFFFF00FFFFFF0000FFFF0000FFFF0000FFFF00009CFF00009C + FF00009CFF00009CFF00009CFF00000000000000000000000000FFFFFF000031 + 6300003163000000000063FFFF009CFFFF00CEFFFF00000000006363CE006363 + CE006363CE006363CE000000AD0000009C000000AD000000AD000000000000CE + FF00009CFF00009CFF000000000031639C000000000000000000000000000000 + 00000000000000000000000000000000000000000000CE9C9C00000000000000 + 000000000000000000009C9C9C009C9C9C009C9C9C009C9C9C0000000000FFFF + FF00DEDEDE00000000009C9C9C009C9C9C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000CEFF0000CEFF00FFFF + FF00FFFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00009C + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000CEFF0000CEFF00FFFF + FF00FFFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00009C + FF00009CFF00009CFF00009CFF0000000000000000000000000000000000FFFF + FF00003163000000000063FFFF009CFFFF0031636300000000006363CE006363 + CE00FFFFFF00FFFFFF009C9CFF000000AD0000009C000000AD000000000000CE + FF0000CEFF00009CFF00009CFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000639CFF00639CFF00639CFF00639CFF0000000000DEDE + DE00FFFFFF0000000000000000009CCEFF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF0000000000FFFFFF00FFFFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00009CFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA50000000000FFFFFF00FFFFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00009CFF00009CFF00009CFF00000000000000000000000000000000000000 + 00000000000000FFFF0063FFFF009CFFFF003163630000000000FFFFFF00FFFF + FF009C9CFF009C9CFF009C9CFF009C9CFF000000AD0000009C000000000000CE + FF0000CEFF00009CFF00009CFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000639CFF00639CFF00639CFF00639CFF00639CFF000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF00009CFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF00009CFF00009CFF00000000000000000000000000000000000000 + 00000000000000FFFF0063FFFF00316363003163630031636300000000009C9C + FF009C9CFF009C9CFF009C9CFF009C9CFF009C9CFF000000AD000000000000CE + FF0000CEFF00009CFF00009CFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000424242000000 + 0000000000000000000042424200639CFF00639CFF00639CFF00639CFF009C9C + 9C0000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF00009CFF0000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA5000000000000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF00009CFF00000000000000000000000000000000000000 + 000000FFFF0000FFFF0063FFFF0031636300639C9C009CCECE009CCECE000000 + 00009C9CFF009C9CFF009C9CFF009C9CFF00000000000000000000CEFF0000CE + FF0000CEFF00009CFF00009CFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C6000000 + 0000000000000000000000000000639CFF00639CFF00639CFF00639CFF009C9C + 9C009CCEFF00000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000000000EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA5000000000000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000000000C6ADA5000000000000000000000000000000 + 00000000000000FFFF0063FFFF009CFFFF00316363009CCECE00CEFFFF00CEFF + FF00000000009C9CFF0000000000000000000000000000CEFF0000CEFF0000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000639CFF00639CFF00639CFF009C9C + 9C009CCEFF009CCEFF000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000 + 000000000000EFEFEF00EFEFEF00EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA5000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000 + 000000000000C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 000000000000000000009CFFFF009CFFFF00CEFFFF009CCECE00CEFFFF000000 + 0000003163000000000031639C0031639C000000000000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6C6 + C600000000000000000000000000000000000000000042424200639CFF009C9C + 9C009CCEFF009CCEFF004242420000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF000000000000FFFF0000FFFF0000FFFF0000FFFF000000000000000000EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A5000000000000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 00000000000000000000000000009CFFFF00CEFFFF00CEFFFF00CEFFFF000000 + 00000031630031639C0031639C00FFFFFF00FFFFFF0000000000A5A5A500DEDE + DE00A5A5A5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000424242000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF000000000000FFFF000000000000000000EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA5000000000000FFFF000000000000000000C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 000000000000000000000000000000000000CEFFFF00CEFFFF00000000000031 + 630000316300FFFFFF00FFFFFF00000000000000000010101000F7FFFF00F7FF + FF00DEDEDE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004242420000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF0000000000EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA50000000000C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000CEFFFF0000000000FFFF + FF00FFFFFF000000000000000000000000000000000021212100A5A5A500F7FF + FF00A5A5A5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C600000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000101010001010 + 1000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6C6C60042424200000000000000 + 0000000000000000000042424200C6C6C6000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C0063313100633131000000 + 000000CEFF0000CEFF000031CE0000CEFF0000CEFF000063FF000063FF000063 + FF00000000009C63CE0031009C0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400000000000000000000FF840000FF840000FF840000FF84000000 + 000000000000FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400000000000000000000FF840000FF840000FF840000FF84000000 + 000000000000FF218400FF218400FF2184000000000000000000000000000000 + 00004284FF000084210000842100008421000063210000632100006321000063 + 2100006363000063210000212100002121000063000000630000002121000000 + 000000000000000000000084210000C621000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C0063313100633131000000 + 000000CEFF0000CEFF000031CE0000CEFF0000CEFF000031CE000031CE000031 + CE00000000009C63CE0031009C0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000000000000000000000000000000 + 000000000000FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000000000000000000000000000000 + 000000000000FF218400FF218400FF2184000000000000000000000000004284 + FF00008421000084210000842100006321000063210000632100006321000063 + 2100006321000021210000212100002121004221000042210000000000000000 + 000000000000000000000084000000FF21000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C0063313100633131000000 + 000000CEFF0000CEFF000031CE0000CEFF0000CEFF0000CEFF000031CE000031 + CE00000000009C63CE0031009C0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000000000000000000000000000000 + 000000000000FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000000000000000000000000000000 + 000000000000FF218400FF218400FF21840000000000000000004284FF000084 + 2100008421000063210000632100006321000063210000632100006321000063 + 2100006321000063000000212100002121000021210000000000000000000000 + 0000000000000084210000FF210042FF21000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C00633131000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000031 + CE00000000009C63CE0031009C0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF218400000000004284FF00008463000084 + 6300008463000063210000846300006321000063210000632100006321000063 + 2100006321000063210000632100002121000000000000000000000000000000 + 00000063210000C6000000FF210084FF84000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C00633131000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000031CE000000000031009C0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000846300008463000084 + 63004284FF004284FF00008484004284FF00008484000084FF00008484000084 + 8400008484000063630000636300002121000021210000000000006300000063 + 00000084000000C6000000FF210084FF63000000000000000000000000000000 + 0000CE9C9C00CE9C9C0063313100CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000063FF00000000009C63CE00000000000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184004284FF0000846300008463004284 + FF000000000000000000000000000063840084C6FF0084C6FF0084C6FF0042C6 + FF00008484000084840000848400006363004263630000000000000000000063 + 00000084000000C6000000FF000000FF2100000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184004284FF00008463004284FF000000 + 00000000000000000000000000000063840084C6FF0084C6FF0084C6FF0084C6 + FF000084FF000084840000848400008484000084840000636300002121000021 + 210000630000006300000084000000630000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 000000C6FF00000000000000000000C6FF000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 000000C6FF00000000000000000000C6FF000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184004284FF00008421004284FF000000 + 00000000000000000000000000000063840084C6FF0084C6FF0084C6FF0042C6 + FF000084FF000084000000842100008484000084630000846300006363000000 + 000000000000000000000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF21840000000000008484004284FF000000 + 00000000000000000000000000000063840084C6FF0084C6FF0084C6FF0084C6 + FF000084FF000084000000840000008400000084000000848400008463000084 + 840000636300000000000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000063FF000063 + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF218400000000004284FF00008484004284 + FF000000000000000000000000000063840084C6FF0084C6FF0084C6FF0042C6 + FF000084FF000084000000840000008400000084000000840000008484000084 + 210000846300006363000063630000636300000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF00FFFFFF00FFFFFF000063FF000063 + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 000000C6FF00000000000000000000C6FF000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 000000C6FF00000000000000000000C6FF000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF21840000000000000000004284FF000084 + 84004284FF0000000000000000000063840084C6FF0084C6FF0084C6FF0084C6 + FF000084FF000084000000840000008400000084000000840000008400000084 + 000000840000000000000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF0000CEFF0000CEFF00FFFFFF00FFFFFF0063CEFF0063CEFF0063CEFF0063CE + FF000063FF00000000009C63CE0031009C000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000000000 + 0000000000000000000000000000FF84C600FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400FF2184000000000000000000000000004284 + FF00008484004284FF00000000000063840084C6FF0084C6FF0084C6FF0042C6 + FF000084FF000084000000840000008400000084000000840000008400000084 + 000000840000000000000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C000000000000CE + FF00FFFFFF00FFFFFF000063FF000063FF000063FF000063FF000063FF000063 + FF0063CEFF00000000009C63CE0031009C000000000000000000000000000000 + 000000000000000000000000000000000000FF84C600FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400842163000000000000000000000000000000 + 000000000000000000000000000000000000FF84C600FF218400000000000000 + 0000000000000000000000000000000000000000000000000000FF218400FF21 + 8400FF218400FF218400FF218400842163000000000000000000000000000000 + 00004284FF00008484004284FF000063840084C6FF0084C6FF0084C6FF0084C6 + FF000084FF000084000000840000008400000084000000840000008400000084 + 000000840000000000000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00FFFFFF00FFFFFF00000000000000 + 000063CEFF0052525200000000000000000000000000000000000063FF000000 + 000000000000FFFFFF009C63CE0031009C000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF84C600FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF84C600FF218400FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF218400FF218400000000000063840000636300006363000063 + 6300006363000063630000636300006363000063840084C6FF0084C6FF0042C6 + FF000084FF000084000000840000008400000084000000840000008400000084 + 000000840000006384000000000000000000000000000000000000000000CE9C + 9C00CE9C9C00CE9C9C00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE000000 + 000063CEFF00000000005252520052525200424242005252520000000000FFFF + FF00CE9CFF00CE9CFF00CE9CFF00CE9CFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF84C600FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF21840000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF84C600FF21 + 8400FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF218400FF21840000000000000000000063840000638400006363000063 + 630000636300006363000063630000636300006363000063840084C6FF0084C6 + FF000084FF000084000000840000008400000084000000840000008400000084 + 000000840000006363000063630000638400000000000000000000000000CE9C + 9C00FFFFFF00FFFFFF0063313100633131006331310063313100633131006331 + 31001010100042424200A5A5A500A5A5A500A5A5A50052525200424242000000 + 000031009C0031009C0031009C0031009C000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF84 + C600FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF84 + C600FF218400FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400FF2184000000000000000000000000000063840084C6FF00006384000063 + 6300006363000063630000636300006363000063630000636300006384000063 + 84000084FF000084000000840000008400000084000000840000008400000084 + 0000008400000063630000636300006363000000000000000000000000000000 + 0000FFCECE005252520000000000000000000000000000000000633131000000 + 000021212100A5A5A500DEDEDE00DEDEDE00C6C6C6009C9C9C00424242000000 + 0000000000000000000031009C00000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000000000000000000000000000 + 0000FF84C600FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000000000000000000000000000 + 0000FF84C600FF218400FF218400FF218400FF218400FF218400FF218400FF21 + 8400000000000000000000000000000000000063840084C6FF0084C6FF000063 + 6300006363000063630000636300006363000063630000636300006363000063 + 6300006384000084000000840000008400000084000000840000008400000084 + 0000008400000063630000636300006363000000000000000000000000000000 + 0000FFCECE00000000005252520052525200424242005252520000000000FFFF + FF0010101000DEDEDE00FFFFFF00FFFFFF00DEDEDE00A5A5A500525252000000 + 0000424242005252520000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000000000000000000000 + 000000000000FF84C600FF218400FF218400FF218400FF218400FF2184000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000000000000000000000 + 000000000000FF84C600FF218400FF218400FF218400FF218400FF2184000000 + 0000000000000000000000000000000000000063840084C6FF0084C6FF0084C6 + FF00006363000063630000636300006363000063630000636300006363000063 + 6300006363000084000000840000008400000084000000840000008400000084 + 0000008400000063630000636300006363000000000000000000000000000000 + 00001010100042424200A5A5A500A5A5A500A5A5A50052525200424242000000 + 000021212100DEDEDE00FFFFFF00FFFFFF00DEDEDE00A5A5A500424242000000 + 0000A5A5A5005252520042424200000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 00000000000000000000FF84C600FF218400FF218400FF218400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 00000000000000000000FF84C600FF218400FF218400FF218400000000000000 + 0000000000000000000000000000000000000063840084C6FF0084C6FF0084C6 + FF00008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 000021212100A5A5A500DEDEDE00DEDEDE00C6C6C6009C9C9C00424242000000 + 00000000000021212100DEDEDE00C6C6C6009C9C9C004242420010101000DEDE + DE00C6C6C6009C9C9C0042424200000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 0000000000000000000000000000FF84C600FF21840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 0000000000000000000000000000FF84C600FF21840000000000000000000000 + 000000000000000000000000000000000000000000000063840084C6FF0084C6 + FF00008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 000010101000DEDEDE00FFFFFF00FFFFFF00DEDEDE00A5A5A500525252000000 + 0000000000000000000010101000101010000000000042424200FFFFFF00FFFF + FF00DEDEDE00A5A5A50052525200000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF000000C60000008400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000063840084C6FF0084C6 + FF00008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 000021212100DEDEDE00FFFFFF00FFFFFF00DEDEDE00A5A5A500424242000000 + 00000000000000000000000000000000000021212100DEDEDE00FFFFFF00FFFF + FF00DEDEDE00A5A5A50042424200000000000000000000000000000000000000 + 00000000000000000000000000004221FF004221FF004221FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004221FF004221FF004221FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000063840084C6 + FF00008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 00000000000021212100DEDEDE00C6C6C6009C9C9C0042424200101010000000 + 0000000000000000000000000000000000000000000021212100DEDEDE00C6C6 + C6009C9C9C004242420010101000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000063840084C6 + FF00008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 0000000000000000000010101000101010000000000042424200000000000000 + 0000000000000000000000000000000000000000000000000000101010001010 + 1000000000004242420000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000063 + 8400008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000084000000840000008400000084 + 0000008400000084000000840000008400000000000000000000000000000000 + 0000BDBDBD00DEDEDE00EFEFEF00EFEFEF00EFEFEF00E7D6D600E7848400E77B + 7B00E7737300E79C9C00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00E7EFEF00EFEFEF00EFE7E7000000000073737300E7E7E700F7F7 + F700F7F7F700F7F7F700EFEFEF00EFEFEF00F7F7F700F7F7F700F7F7F700F7F7 + F700DEDEDE00CECECE00CEC6C600ADADAD00525A520039AD4A005ADE63003984 + 420094949400D6D6D600D6D6D600BDBDBD00000000000000000000000000C6C6 + C600FFFF0000C6C6C600FFFF0000C6C6C6000000000084840000000000008484 + 840000FFFF00C6C6C60000FFFF00C6C6C60000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000633100006363 + 00009C6300009C630000FF630000FF630000FF630000FF630000FF630000FF63 + 0000FF630000FF630000FF630000FF630000FF63000000000000009CFF00009C + FF0000CEFF0000CEFF0000CEFF0000CEFF000000000000000000000000000000 + 0000B5B5B500E7E7E700EFEFEF00EFEFEF00EFEFEF00E7BDBD00E7848400EF84 + 8400EF848400EFBDBD00EFF7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF005A5A5A00BDBDBD00F7F7 + F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700E7E7 + E700B5BDB500737B7300395A4200297B310039B54A006BE7730094F773006BDE + 6B00398C420084848400DED6DE00CECECE00000000000000000000000000FFFF + 0000C6C6C600FFFF0000C6C6C600FFFF00000000000084848400848400000000 + 00008484840000FFFF00C6C6C60000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000063310000636300009C63 + 00009C6300009C630000FF630000FF630000FF63000000000000000000000000 + 000000000000FF630000FF630000FF630000FF63000000000000009CFF0000CE + FF0000CEFF0000FFFF0000FFFF0000FFFF00000000000000000000000000CECE + CE00C6C6C600EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFADAD00EF848400F78C + 8C00F7949400F7DEDE00F7F7F70000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F7008484840073737300EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700F7EFEF006373 + 6300105A180031A539005AE7630084F77B0094F7730094EF630094EF630094F7 + 6B0063DE6B00398C420094949400DEDEDE00000000000000000000000000C6C6 + C600FFFF0000C6C6C6000000000000000000FFFF000000000000848484008484 + 0000000000008484840000FFFF00C6C6C60000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000063310000636300009C63 + 00009C630000FF630000FF630000FF63000000000000FF630000FF630000FF63 + 0000FF63000000000000FF630000FF63000000000000009CFF0000CEFF0000CE + FF0000FFFF000000000000FFFF0000FFFF00000000000000000000000000BDBD + BD00D6D6D600F7F7F700EFEFEF00EFF7F700EFE7E700F79C9C00F78C8C00F78C + 8C00F7A5A500F7EFEF00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700EFEF + EF00DEDEDE00DEDEDE00DEDEDE00DEDEDE00EFEFEF00EFEFEF005A5A5A00C6C6 + C600F7F7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700E7DEE7004273 + 420052CE52008CF76B0094EF630094EF630094EF630094EF630094EF630094EF + 630094F76B0063D65A00397B42009C9C9C00000000000000000000000000FFFF + 0000C6C6C60000000000FFFF0000FFFF0000FFFF0000FFFF0000000000008484 + 840084840000000000008484840000FFFF0000FFFF0000000000000000000000 + 00000000FF00FF00FF000000FF00FF00FF000000000063310000636300009C63 + 00009C630000FF630000FF630000FF63000000000000FF630000FF630000FF63 + 0000FF9C000010101000FF9C0000FF63000000000000009CFF0000CEFF0000CE + FF0000FFFF000000000000FFFF0000FFFF00000000000000000000000000B5B5 + B500E7E7E700F7F7F700F7EFF700F7F7F700EFD6D600FF9C9C00FF949400FF94 + 9400FFBDBD00F7F7F700F7F7F700F7F7F700F7F7F700E7E7E700BDBDBD009C9C + 9C0094949400949494009494940094949400EFEFEF00F7F7F700848484008484 + 8400FFFFFF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00E7DEE700427B + 4A005ACE520094EF5A0094E75A0094EF5A0094EF5A0094EF5A0094EF5A0094EF + 5A009CEF6300BDF7A50084D68C00427B4200000000000000000000000000C6C6 + C60000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000 + 000084848400848400000000000000000000000000000000FF00FF00FF000000 + FF00FF00FF000000FF00FF00FF000000FF000000000063310000636300009C63 + 00009C630000FF630000FF630000FF63000000000000FF630000FF630000FF9C + 0000FF9C000010101000FF9C0000FF9C000000000000009CFF0000CEFF0000CE + FF0000FFFF000000000000000000101010000000000000000000DEDEDE00B5B5 + B500EFEFEF00F7F7F700F7F7F700F7F7F700F7C6C600FF9C9C00FF9C9C00FF9C + 9C00FFCECE00F7FFFF00FFFFFF00EFEFEF00BDBDBD009C9C9C00ADA5A500C6B5 + B500D6CECE00D6D6D600D6D6D600D6CECE00EFEFEF00EFEFEF00CECECE005A5A + 5A00D6D6D600EFEFEF00EFEFEF00E7E7E700D6D6D600EFE7EF00E7DEE7004273 + 42006BC65200A5DE6300ADDE6300A5DE6300A5E76300A5E76300A5E76300A5DE + 6300C6E78C00DEFFD6007BCE84004A7B52000000000000000000848400000000 + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000000000008484840084840000000000000000FF00FF00FF000000FF00FF00 + FF000000FF00FF00FF000000FF00FF00FF000000000063310000636300009C63 + 0000FF630000FF630000FF630000FF63000000000000FF630000FF9C0000FF9C + 0000FF9C000010101000FF9C0000FF9C000010101000009CFF0000CEFF0000FF + FF0000FFFF001010100000FFFF0000FFFF0000000000F7F7F700BDC6C600BDBD + BD00F7FFFF00F7F7F700F7F7F700F7F7F700FFB5B500FF9C9C00FFA5A500FFA5 + A500FFDEDE00FFFFFF00E7E7E700A5A5A50094949400D6C6C600F7E7E700FFEF + EF00F7EFEF00F7EFE700F7EFE700F7EFE700EFEFEF00EFEFEF00EFEFEF007B7B + 7B0084848400F7F7F700DEDEDE00CECECE00CECECE00E7E7E700E7DEE7004273 + 420052C6520094E77300A5E77300ADE76B00ADE76B00ADE76B00ADE76B00B5E7 + 7B00CEF7BD0084D69400427B4A00BDB5BD00000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000000000008484840000000000FF00FF000000FF00FF00FF000000 + FF00FF00FF000000FF00FF00FF000000FF000000000063310000636300009C63 + 0000FF630000FF630000FF630000FF63000000000000FF630000FF9C0000FF9C + 0000FF9C000021212100FF9C0000FF9C000010101000009CFF0000CEFF0000FF + FF0000FFFF001010100000FFFF0000FFFF0000000000F7F7F700BDB5B500D6B5 + B500F7E7E700F7EFEF00F7FFFF00F7EFEF00FFADAD00FFA5A500FFA5A500FFB5 + B500FFF7F700F7F7F700ADADAD009C9C9C00D6CECE00EFDEDE00EFE7DE00EFE7 + E700EFE7E700EFE7E700EFE7E700EFE7E700EFEFEF00EFEFEF00F7F7F700B5B5 + B50063636300E7E7E700ADADAD0073737300BDBDBD00EFEFEF00EFE7EF00737B + 7300185A2100298C29004ACE5A007BE77B009CEF7B00ADE77300B5E77300BDEF + 9C0073CE84004A7B4A00BDBDBD00F7F7F700000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF000000000000000000000000FF00FF00FF000000FF00FF00 + FF000000FF00FF00FF000000FF00FF00FF000000000010101000633100009C63 + 0000FF630000FF630000FF630000FF630000FF63000010101000101010001010 + 100021212100FFCE0000FFCE0000FF9C0000FF9C00001010100000CEFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDADAD00F79C + 9C00FFA5A500FFB5B500F7CECE00F7CEC600FFADAD00FFADAD00FFADAD00FFCE + CE00FFFFFF00CECECE00A5A5A500CECECE00EFDEDE00F7E7E700F7EFEF00F7E7 + E700F7D6BD00F7CEA500F7CEA500F7D6B500EFEFEF00EFEFEF00EFEFEF00EFEF + EF007B7B7B008C8C8C00425A4200314A3100BDBDBD00D6D6D600DEDEDE00E7DE + E700D6D6D6009C9C9C0052635200316B3100319C420063DE6B00BDF79C0084CE + 8400427B4A00BDB5BD00F7F7F700EFEFEF00000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF000000000000FF00FF000000FF00FF00FF000000 + FF00FF00FF000000FF00FF00FF000000FF000000000010101000633100009C63 + 0000FF630000FF630000FF630000FF630000FF630000FF630000FF9C0000FF9C + 0000FF9C0000FFCE0000FFFFFF00FF9C0000FF9C000010101000009CFF0000CE + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6A5A500FF9C + 9C00FFA5A500FFA5A500FFADAD00FFADAD00FFB5B500FFB5B500FFB5B500FFCE + CE00EFE7E700B5B5B500D6CECE00EFE7E700F7EFEF00FFEFEF00F7C6B500EF8C + 5200EF843100F78C2900FF943100F7B55A00EFEFEF00EFEFEF00EFEFEF00F7F7 + F7009C949C00214A290018842100427B4A00BDB5BD00D6D6D600CECECE00CECE + CE00D6D6D600D6D6D600DEDEDE00D6D6D600737B73004AAD52007BD684004A84 + 4A00B5B5B500F7F7F700EFEFEF00EFEFEF00000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF0000000000000000FF00FF00FF000000FF00FF00 + FF000000FF00FF00FF000000FF00FF00FF000000000010101000101010006331 + 00009C630000FF630000FF630000FF630000FF630000FF630000FF630000FF9C + 0000FF9C0000FF9C0000FF9C0000FF9C0000FF630000FF6300001010100000CE + FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000D6D6D600CEBDBD00FFCE + CE00FFBDBD00FFB5B500FFB5B500FFB5B500FFB5B500FFBDBD00FFBDBD00FFBD + BD00DEADAD00D6BDBD00EFDEDE00EFDEDE00F7E7DE00F7C69400E77B3100E76B + 1800EF731800EF731800F7943900F7A54A00EFEFEF00EFEFEF00EFEFEF00EFEF + EF006B8C730042B54A005ADE6300316B3900737B7300B5B5B500C6C6C600C6C6 + C600CECECE00CECECE00DEDEDE00E7E7E700949C9400298C31004A845200A5A5 + A500F7EFF700EFEFEF00EFEFEF00EFEFEF00000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF000000000000FF00FF000000FF00FF00FF000000 + FF00FF00FF000000FF00FF00FF000000FF000000000000000000101010006331 + 00009C630000FF630000FF630000FF630000FF630000FF630000FF630000FF63 + 0000FF9C0000FF9C0000FF9C0000FF630000FF630000FF630000FF6300001010 + 10001010100000FFFF0000FFFF0000FFFF0000000000C6C6C600D6DEDE00FFFF + FF00FFFFFF00FFF7F700FFDEDE00FFBDBD00FFBDBD00FFC6BD00FFC6C600FFC6 + C600EFB5B500DECECE00D6CECE00DED6DE00DE947B00D65A1800E77B3100EF94 + 4200EF9C4200EF944200F7AD5200EF843100EFEFEF00EFEFEF00EFEFEF007394 + 7B0039A542008CF773008CF76B0052D66300319C39002963290042634A007B8C + 7B00A5A5A500BDBDBD00DEDEDE00E7E7E7009494940042524200BDBDBD00EFEF + EF00E7E7E700E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF0000000000000000FF00FF00FF000000FF00FF00 + FF000000FF00FF00FF000000FF00FF00FF000000000000000000101010001010 + 1000633100009C630000FF630000FF630000FF630000FF630000FF630000FF63 + 0000FF630000FF630000FF630000FF630000FF630000FF630000101010000000 + 00000000000010101000101010001010100000000000B5B5B500E7E7E700FFFF + FF00FFFFFF00FFFFFF00F7E7E700FFBDBD00FFC6C600FFC6C600FFDEDE00FFE7 + E700EFCECE00C6BDBD00C6C6C600D6BDB500C64A2100C6210000CE390000DE52 + 1000DE631800E7843100EFAD5200E7631800EFEFEF00E7E7E7006B8C6B0042AD + 4A008CFF73009CEF63009CEF63009CF76B0094FF7B0073F773004AD652002194 + 2900185221008C8C8C00D6D6D600E7E7E700B5B5B500BDBDBD00E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF000000000000FF00FF000000FF00FF00FF000000 + FF00FF00FF000000FF00FF00FF000000FF000000000000000000009CFF0000CE + FF0010101000101010009C630000FF630000FF630000FF630000FF630000FF63 + 0000FF630000FF630000FF630000FF6300001010100010101000000000000000 + 00000000000000000000000000000000000000000000ADADAD00F7F7F700FFFF + FF00FFFFFF00FFFFFF00FFD6D600FFC6C600FFCECE00FFCECE00FFF7F700FFFF + FF00E7DEDE00ADADAD00B5B5B500CEAD9400D6733900D66B2900D6521800D642 + 0800D6390000DE6B2100E78C3900D6420800EFEFEF006B8463004AB552008CF7 + 7B0094EF630094EF630094EF630094EF630094EF630094EF630094EF630084F7 + 630031943100737B7300D6D6D600E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 00000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF0000000000000000FF00FF00FF000000FF00FF00 + FF000000FF00FF00FF000000FF00FF00FF000000000000000000009CFF0000CE + FF0000CEFF00101010001010100010101000FF630000FF630000FF630000FF63 + 0000FF630000FF63000010101000101010001010100000000000000000000000 + 000000000000000000000000000000000000DEDEDE00BDBDBD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFCECE00FFCECE00FFCECE00FFD6DE00FFFFFF00FFFF + FF00E7E7E700ADADAD00B5B5B500BD8C8400BD421000CE5A2100D6733100DE7B + 3100DE6B2900E7944200D6632100CE310000849484004AAD5A00C6FFC600B5EF + 8C0094E7520094EF5A0094EF5A0094EF5A0094EF5A0094E75A0094E75A008CEF + 5A0031943900737B7B00D6CED600DEDEDE00DEDEDE00DEDEDE00E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF + 0000FFFF0000FFFF0000FFFF000000000000FF00FF000000FF00FF00FF000000 + FF00000000000000000000000000000000000000000000000000009CFF0000CE + FF0000CEFF0000CEFF0000FFFF00101010001010100010101000101010001010 + 1000101010001010100000FFFF0000FFFF001010100000000000000000000000 + 000000000000000000000000000000000000D6CECE00D6D6D600FFFFFF00FFFF + FF00FFFFFF00FFF7F700FFCECE00FFCED600FFCED600FFE7E700FFFFFF00FFFF + FF00EFEFEF00C6BDBD00CEC6C600C6A5A50094180800AD180000BD290000BD29 + 0800C6521800DE8C4200BD310000BD290000C6CEC600529C5A00B5EFBD00E7F7 + C600ADDE6B00A5DE63009CE76300A5E76300A5DE6300ADDE6300ADDE6300A5E7 + 6300399439007B847B00D6D6D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000FFFF0000FFFF0000FFFF0000000000000000FF0000000000000000000000 + 00000000FF00840084000000FF00840084000000000000000000009CFF0000CE + FF0000CEFF0000FFFF0000FFFF000000000000FFFF0000FFFF001010100000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF001010100000000000000000000000 + 000000000000000000000000000000000000D6D6D600E7E7E700FFFFFF00FFFF + FF00FFFFFF00F7EFEF00FFCED600FFCED600FFCEDE00FFEFF700FFFFFF00FFFF + FF00FFFFFF00DEDEDE00D6CECE00E7DED6008C4A4A0084080000AD210000B521 + 0000CE5A2100CE632900B5290000B5290000EFEFEF00CECECE00529C5A00B5EF + B500CEEFA500ADE76B00ADE76B00ADE76B00ADE76B00ADE76B00A5E7730084E7 + 7300298C3100848C8400DED6D600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00C6C6C600C6C6C600DEDEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF00840084000000 + FF00840084000000FF00840084000000FF000000000000000000009CFF0000CE + FF0000CEFF0000FFFF0000FFFF000000000010101000101010001010100063FF + FF0063FFFF0000FFFF0000FFFF0000FFFF001010100000000000000000000000 + 000000000000000000000000000000000000EFEFEF0000000000FFFFFF00FFFF + FF00FFFFFF00FFE7E700FFCECE00FFCED600FFD6DE00FFF7FF00FFFFFF00FFFF + FF00FFFFFF00F7F7F700E7D6D600F7EFEF00D6C6C6007329290084100000BD4A + 2100D6844A00CE734200CE5A3100C65A3100EFEFEF00EFEFEF00DEDEDE00529C + 5A00A5EF9C00C6EF8C00ADE77300A5E77B008CE77B0063DE6B0039AD42002173 + 210031523900A5A5A500BDBDBD0000000000D6D6D600DEDEDE00DEDEDE00DEDE + DE00DEDEDE00949494007B7B7B00C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF00FF000000FF008400 + 84000000FF00840084000000FF0084008400000000000000000000000000009C + FF0000CEFF0000FFFF0000FFFF000000000000FFFF0000FFFF00212121009CFF + FF0063FFFF0000FFFF0000FFFF00101010000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00F7F7 + F700F7EFEF00F7D6D600FFCECE00FFCED600FFDEE700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00F7EFEF00EFDEDE00FFF7F700D6C6C6008C4A4200A542 + 2900BD634A00C6735200C66B5200C6633900EFEFEF00EFEFEF00EFEFEF00E7E7 + E7004A8C5200ADF7A5009CEF8C0042BD520018732100214221006B6B6B00ADAD + AD00D6D6D600DEDEDE00848484006363630000000000D6D6D600DEDEDE00DEDE + DE00DEDEDE009C9C9C004A4A4A009C9C9C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF00FF000000 + FF00840084000000FF00840084000000FF00000000000000000010101000009C + FF0000CEFF0000CEFF0000FFFF001010100000FFFF0000FFFF002121210063FF + FF0063FFFF0000FFFF0000FFFF00101010000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFE7E700E7DEDE00FFEFEF00FFE7EF00FFE7EF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00F7F7F700EFE7E700F7EFEF00E7DEDE00CEAD + A500C6948C00C6948400CE948C00D69C8C00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00CED6CE004A9C52005ACE6B0052845A00847B840063636300B5B5B500DEDE + DE00D6D6D600D6D6D600A5A5A5005A5A5A00ADADAD00D6D6D600D6D6D600DEDE + DE00D6D6D600A5A5A5009C9C9C00DEDEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF00 + FF000000FF00840084000000FF00840084000000000000000000000000001010 + 1000009CFF00009CFF0000CEFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0010101000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF00EFEFEF00000000000000000000000000000000000000 + 0000F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00EFEFEF00EFEFEF00F7F7 + F700FFFFFF00FFF7FF00FFFFFF00FFFFFF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00C6CEC600085A10005A8C6300EFEFEF00A5A5A5008C8C8C00C6C6 + C600D6D6D600D6D6D6009C9C9C007B7B7B00C6C6C600C6C6C600C6C6C600C6C6 + C600B5B5B5006B6B6B0052525200848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF00FF000000FF00840084000000FF000000000000000000000000000000 + 00001010100010101000009CFF0000CEFF0000FFFF0000FFFF0000FFFF0000FF + FF00101010001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7F7F7000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00F7F7F700F7F7 + F700F7F7F70000000000EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00ADB5AD005A635A00EFEFEF00EFEFEF00CECECE008484 + 8400848484007B7B7B005A5A5A00292929006B6B6B00636363004A4A4A006363 + 6300737373006363630010101000424242000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF00FF000000FF00840084000000000000000000000000000000 + 0000000000000000000010101000101010001010100010101000101010001010 + 1000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFEFEF0000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF0000000000A5A5A500BDBDBD0021212100393939006B6B6B009C9C9C00EFEF + EF00EFEFEF00EFEFEF0063636300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00DEDEDE001010100039393900E7E7E700EFEF + EF00EFEFEF00EFEFEF00EFEFEF00ADADAD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008494AD002142 + 5A0010314A00636B6300C6F7CE0039DE6B0018DE520029D65A0018CE520010CE + 420008D6420010BD420073AD7B00EFEFEF00F7EFEF00EFE7DE007B8484001052 + 8400185AD60000009C00081863002194BD0000000000000000009C9CFF009C9C + FF0000000000FFCE63000000000000FFFF0000FFFF0000000000FFCE6300FFCE + 6300FFCE630000000000003163003163CE003163CE003163CE0000000000CE63 + 3100CE633100FFCE630000000000CE633100000000000000000084949C002142 + 5A0010314A00636B6300C6F7CE0039DE6B0018DE520029D65A0018CE520010CE + 420008D6420010BD420073AD7B00EFEFEF00F7EFEF00EFE7DE007B8484001052 + 8400185AD60000009C00081863002194BD000000000000000000000000000000 + 00000000DE003131FF00000000000000000000FF000031FF0000CE310000FF00 + 0000FF000000FF00000021000000000073003131FF003100FF00000052000000 + 0000000000000000000073000000FF00000000000000000000009CADBD000831 + 4A0018394A00635A6300BDE7CE0021D6520000D6310000AD2900008418000094 + 210000C6310000BD39006BA57B00F7E7EF00F7EFEF00DECEC600847B7B002142 + 6B000008940000006B00184A7300217BE7000000000000000000000000000000 + 9C0000000000FFCE63000000000000FFFF0000FFFF0000000000FFCE6300FFCE + 6300000000000000000000316300003163003163CE003163CE00000000000000 + 0000CE633100CE63310000000000CE6331000000000000000000949CA5000831 + 4A0018394A00635A6300BDE7CE0021D6520000D6310000AD2900008418000094 + 210000C6310000BD39006BA57B00F7E7EF00F7EFEF00DECEC600847B7B002142 + 6B000008940000006B00184A7300217BE7000000000000000000000000000000 + 00003100FF003100FF000021000000DE000000FF00009C310000FF000000FF00 + 0000FF00000021000000000000000000000000009C003131FF000000FF000000 + 21002100000000000000CE000000FF0000000000000000000000C6CED6000831 + 4A0021394A005252520094AD9C0029CE4A0000CE290000942100087B2100007B + 180000B5290000BD310073B58C00FFEFF700FFEFEF00DECEC600EFD6D6008473 + 940000005A0008214A002963B5000818BD000000000000000000000000009C9C + FF0000000000FFCE63000000000000FFFF0000FFFF0000000000FFCE63000000 + 00009C9C9C000000000000316300003163000031630000316300000000009C9C + 9C0000000000CE63310000000000CE6331000000000000000000949494000831 + 4A0021394A005252520094AD9C0029CE4A0000CE290000942100087B2100007B + 180000B5290000BD310073B58C00FFEFF700FFEFEF00DECEC600EFD6D6008473 + 940000005A0008214A002963B5000818BD000000000000000000000000000000 + 21000000FF003131FF00009C310000FF0000639C0000FF000000FF000000FF00 + 000021000000000000000000000000000000000000000000DE003131FF000000 + CE000000210000000000FF000000FF0000000000000000000000DEE7EF00216B + 8400295A7300424A5A0039424A0008521800006B100000521000005A10000073 + 180008A5390063DE8400DEEFDE00FFEFF700FFF7F700FFEFE700EFD6CE008463 + 8C001018390008426B000818BD00080084000000000000000000000000000000 + 9C0000000000FFCE63000000000000FFFF0000FFFF0000000000FFCE63000000 + 0000424242009C9C9C00000000000031630000316300000000009C9C9C004242 + 420000000000CE63310000000000CE633100000000000000000084848400216B + 8400295A7300424A5A0039424A0008521800006B100000521000005A10000073 + 180008A5390063DE8400DEEFDE00FFEFF700FFF7F700FFEFE700EFD6CE008463 + 8C001018390008426B000818BD00080084000000000000000000000000000000 + 00003131FF000000FF0031CE310000AD0000FF000000FF000000FF0000007300 + 00000000000000000000000000000000000000000000000031003100FF003131 + FF0000008C0042000000FF000000FF0000000000000000000000CEEFF70039D6 + F7004AC6EF0042B5D60031A5B50021737B0010524A0008392900002910000831 + 080052734200C6CEAD00F7E7DE00FFE7F700FFE7DE00D6B5B5006B4A94000008 + 63000818630008109C0000008C0042396B000000000000000000000000009C9C + FF0000000000CE63310000000000000000000000000000000000CE633100CE63 + 310000000000424242009C9C9C0000000000000000009C9C9C00424242000000 + 0000CE633100CE63310000000000CE63310000000000000000008C94940039D6 + F7004AC6EF0042B5D60031A5B50021737B0010524A0008392900002910000831 + 080052734200C6CEAD00F7E7DE00FFE7F700FFE7DE00D6B5B5006B4A94000008 + 63000818630008109C0000008C0042396B000000000000000000000000000000 + 00000000FF003100FF00009C9C009C310000FF000000FF000000CE0000000000 + 0000000000000000000000000000000000000000000000000000000073000000 + FF003131FF009C000000FF000000CE00000000000000000000008CE7FF0029D6 + FF0031D6FF0039CEFF0042D6FF0042CEFF0042CEF70031BDE700299CB500318C + 9C004A7384005A636B006B636300846B73008C7373004A315200080052000010 + 5A000010840008008C0008185A00398CAD000000000000000000000000000000 + 9C0000000000CE633100CE633100CE633100CE633100CE633100CE633100CE63 + 3100CE63310000000000424242009C9C9C009C9C9C004242420000000000CE63 + 3100CE633100CE63310000000000CE63310000000000000000008CC6D60029D6 + FF0031D6FF0039CEFF0042D6FF0042CEFF0042CEF70031BDE700299CB500318C + 9C004A7384005A636B006B636300846B73008C7373004A315200080052000010 + 5A000010840008008C0008185A00398CAD000000000000000000000000000000 + 00003100CE000031FF0063319C00FF000000FF000000FF000000210000000000 + 0000000000000000000000000000000000000000000000000000000000003100 + CE003131FF00FF003100FF0000009C00000000000000000000006BDEFF0031CE + FF0042CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CE + FF0031C6FF0039BDEF0039A5D600398CAD00296B940010396B00082142000818 + 42000000310008104200083163003194D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000424242004242420000000000000000000000 + 00000000000000000000000000000000000000000000000000006BCEEF0031CE + FF0042CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CEFF0039CE + FF0031C6FF0039BDEF0039A5D600398CAD00296B940010396B00082142000818 + 42000000310008104200083163003194D6000000000000000000000000000000 + 000000639C003100FF00CE003100FF000000FF00000073000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 520063009C00FF000000FF00000021000000000000000000000052D6FF0039CE + FF0042CEFF0042CEFF0039CEFF0031CEFF0031CEFF0031CEFF0039C6FF0039C6 + FF0042C6FF0039C6FF0031C6FF0039C6FF0039C6FF0039BDF70039ADE700318C + CE00216B9C00216B8C00104A73003184BD000000000000000000000000000000 + 00003163CE003163CE003163CE003163CE003163CE003163CE003163CE003163 + CE003163CE003163CE003163CE0000000000000000003163CE003163CE003163 + CE003163CE003163CE003163CE003163CE00000000000000000052D6F70039CE + FF0042CEFF0042CEFF0039CEFF0031CEFF0031CEFF0031CEFF0039C6FF0039C6 + FF0042C6FF0039C6FF0031C6FF0039C6FF0039C6FF0039BDF70039ADE700318C + CE00216B9C00216B8C00104A73003184BD000000000000000000000000000031 + 0000009C63003100CE00FF000000FF000000CE00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002100 + 0000FF000000FF0000009C0031000000000000000000EFEFF70039D6FF0031CE + FF0039CEFF0042CEFF0042CEFF006BD6FF0063D6F7004ACEF70039C6FF0031C6 + F70031C6FF0039C6FF0039BDFF0039BDFF0039BDFF0031BDFF0031BDFF0039C6 + FF0039BDFF0031BDFF0039B5EF008CDEFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000039D6F70031CE + FF0039CEFF0042CEFF0042CEFF006BD6FF0063D6F7004ACEF70039C6FF0031C6 + F70031C6FF0039C6FF0039BDFF0039BDFF0039BDFF0031BDFF0031BDFF0039C6 + FF0039BDFF0031BDFF0039B5EF008CC6DE00000000000000000000000000008C + 000000FF00009C006300FF000000FF0000005200000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C00 + 0000FF000000FF0000003131CE001010100000000000C6EFFF0031CEFF0042CE + FF0042CEFF0031CEFF0052D6FF00E7F7FF00EFFFFF00CEF7FF00ADE7FF0094DE + FF0073D6FF0052CEFF0042C6F70031BDFF0031BDFF0031BDFF0031BDFF0039BD + FF0039B5FF0029BDFF0039B5F7008CDEFF000000000000000000000000009C9C + FF0000000000FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE + 6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300FFCE + 6300FFCE6300FFCE630000000000424242000000000094A5AD0031CEFF0042CE + FF0042CEFF0031CEFF0052D6FF00E7F7FF00EFFFFF00CEF7FF00ADE7FF0094DE + FF0073D6FF0052CEFF0042C6F70031BDFF0031BDFF0031BDFF0031BDFF0039BD + FF0039B5FF0029BDFF0039B5EF008CC6DE0000000000000000000000000000BD + 000031FF0000FF000000FF000000FF0031000000210000210000000000000000 + 000000000000000000000000000000000000000000000000000021000000FF00 + 0000FF0000009C009C000000FF0000005200000000009CE7FF0031CEFF0039CE + FF0039CEFF0031CEFF006BDEFF00FFFFFF00FFFFF700FFFFFF00FFFFFF00FFFF + FF00F7FFFF00DEFFFF00C6EFFF00A5E7F70073D6FF0039C6FF0031BDFF0039BD + FF0039B5FF0031BDFF0039BDFF00000000000000000000000000000000000000 + 9C0000000000FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300000000000000 + 00000000000000000000000000000000000000000000CE633100CE633100FFCE + 6300FFCE6300FFCE6300000000009C9C9C000000000094BDCE0031CEFF0039CE + FF0039CEFF0031CEFF006BDEFF00FFFFFF00FFFFF700FFFFFF00FFFFFF00FFFF + FF00F7FFFF00DEFFFF00C6EFFF00A5E7F70073D6FF0039C6FF0031BDFF0039BD + FF0039B5FF0031BDFF0039BDFF000000000000000000000000000000000000FF + 0000639C0000FF003100FF00000063009C003100CE0000000000000000000000 + 00000000000000000000000000000000000000000000000000009C000000FF00 + 0000CE00000031009C003131FF000000AD00000000006BD6FF0031CEFF0039CE + FF0042CEFF0031C6FF008CDEFF00FFFFFF00FFFFFF00949C9C0084847B00BDB5 + AD00E7DEDE00F7F7F700FFFFFF00FFFFFF00DEEFFF005AC6FF0031BDFF0031BD + FF0031B5FF0039BDFF008CDEFF00000000000000000000000000000000009C9C + FF0000000000FFCE6300FFCE6300FFCE6300FFCE6300FFCE63000000000000FF + FF0000FFFF000000000000FFFF0000FFFF0000000000CE633100CE633100FFCE + 6300FFCE6300FFCE630000000000424242000000000073CEEF0031CEFF0039CE + FF0042CEFF0031C6FF008CDEFF00FFFFFF00FFFFFF00949C9C0084847B00BDB5 + AD00E7DEDE00F7F7F700FFFFFF00FFFFFF00DEEFFF005AC6FF0031BDFF0031BD + FF0031B5FF0039BDFF008CC6DE000000000000000000000000000000000000FF + 00009C630000FF000000CE0031003100FF000031FF0000003100210000000000 + 0000000000000000000000000000000000000000000052000000FF000000FF00 + 000052000000000042000000FF003100CE00DEF7FF0052D6FF0031CEFF0039CE + FF0042CEFF0031C6FF00B5EFFF00FFFFFF00F7F7F70039293100000000000000 + 0000101010005A5A5A00F7F7F700FFFFFF00B5E7F70042BDF70031BDFF0031B5 + FF0031B5FF0039B5F7008CDEFF00000000000000000000000000000000000000 + 9C0000000000FFCE6300FFCE6300FFCE6300FFCE6300FFCE63000000000000FF + FF0000FFFF000000000000FFFF0000FFFF0000000000CE633100CE633100FFCE + 6300FFCE6300FFCE6300000000009C9C9C008C94940052CEF70031CEFF0039CE + FF0042CEFF0031C6FF00B5EFFF00FFFFFF00F7F7F70039293100000000000000 + 0000101010005A5A5A00F7F7F700FFFFFF00B5E7F70042BDF70031BDFF0031B5 + FF0031B5FF0039B5EF008CC6DE000000000000000000000000000000000000FF + 0000CE310000FF000000CE0031003131FF003100FF000000BD00002100000000 + 00000000000000000000000000000000000021000000FF000000FF0000009C00 + 000000000000000000003131FF003131FF00C6EFFF0042D6F70039CEFF0031CE + FF0039C6FF004ACEFF00D6F7FF00FFFFFF00D6DED60018181800000000000000 + 00000000000052524A00FFFFF700FFFFFF0094D6F70031BDFF0031BDFF0031BD + FF0029BDFF0039BDFF0000000000000000000000000000000000000000009C9C + FF0000000000FFCE6300FFCE6300FFCE6300FFCE6300FFCE6300000000000000 + 00000000000000000000000000000000000000000000CE633100CE633100FFCE + 6300FFCE6300FFCE6300000000009C9C9C00C6EFFF0042D6F70039CEFF0031CE + FF0039C6FF004ACEFF00D6F7FF00FFFFFF00D6DED60018181800000000000000 + 00000000000052524A00FFFFF700FFFFFF0094D6F70031BDFF0031BDFF0031BD + FF0029BDFF0039BDFF00000000000000000000000000000000000000000000DE + 0000FF000000FF0000009C0000000000AD000031FF003100FF00000073000021 + 000000000000000000000000000000000000FF000000FF000000CE0000002100 + 000000000000000000000000DE003100FF00A5E7FF0039CEFF0042C6FF0039CE + FF0031C6FF006BD6FF00FFFFFF00FFFFFF00F7EFF700C6BDB5008C948C005A63 + 5A00293131009C9C9C00FFFFFF00FFFFFF006BC6F70021BDFF0039BDFF0031B5 + FF0021BDFF008CDEFF0000000000000000000000000000000000000000000000 + 9C0000000000CE633100CE633100CE633100CE633100CE6331000000000000FF + FF0000FFFF000000000000FFFF0000FFFF0000000000CE633100CE633100CE63 + 3100CE633100CE6331000000000000000000A5E7FF0039CEFF0042C6FF0039CE + FF0031C6FF006BD6FF00FFFFFF00FFFFFF00F7EFF700C6BDB5008C948C005A63 + 5A00293131009C9C9C00FFFFFF00FFFFFF006BC6F70021BDFF0039BDFF0031B5 + FF0021BDFF008CC6DE00000000000000000000000000000000000000000000AD + 0000FF000000FF00000063000000000021003100CE000031FF003100FF000000 + 4200000000000000000021000000CE000000FF000000FF000000000000000000 + 000000000000000000003100CE00009C63007BDEFF0029CEFF0031C6FF0031CE + FF0031CEFF0052D6FF00BDEFFF00D6F7FF00EFF7FF00FFFFFF00FFFFFF00FFFF + FF00F7EFEF00F7F7F700FFFFFF00DEEFFF0052BDF70029BDFF0039BDFF0031B5 + FF0039BDFF008CDEFF0000000000000000000000000000000000000000009C9C + FF0000000000CE633100CE633100CE633100CE633100CE6331000000000000FF + FF0000FFFF000000000000FFFF0000FFFF0000000000CE633100CE633100CE63 + 3100CE633100CE63310000000000000000007BDEFF0029CEFF0031C6FF0031CE + FF0031CEFF0052D6FF00BDEFFF00D6F7FF00EFF7FF00FFFFFF00FFFFFF00FFFF + FF00F7EFEF00F7F7F700FFFFFF00DEEFFF0052BDF70029BDFF0039BDFF0031B5 + FF0039BDFF008CC6DE0000000000000000000000000000000000000000000042 + 0000FF000000FF0000005200000000000000000031003100FF000031FF003100 + FF000000210031000000CE000000FF000000FF00000021000000000000000000 + 000000000000000000000063630000FF000052CEFF0031CEFF0039CEFF0039CE + FF0042C6FF0039C6FF004AC6F70052CEF70063CEFF0073DEF7009CE7FF00BDEF + FF00DEF7FF00F7FFFF00FFFFFF00B5E7FF0039B5FF0031BDFF0039BDFF0031B5 + FF0039BDFF000000000000000000000000000000000000000000000000000000 + 9C00000000000000000000000000000000000000000000000000000000000000 + 000000FFFF000000000000FFFF00000000000000000000000000000000000000 + 00000000000000000000000000000000000052CEFF0031CEFF0039CEFF0039CE + FF0042C6FF0039C6FF004AC6F70052CEF70063CEFF0073DEF7009CE7FF00BDEF + FF00DEF7FF00F7FFFF00FFFFFF00B5E7FF0039B5FF0031BDFF0039BDFF0031B5 + FF0039BDFF000000000000000000000000000000000000000000000000000021 + 00009C000000FF00000042000000000000000000000000009C003100FF003100 + FF003131FF00CE003100FF000000FF0000002100000000000000000000000000 + 0000000000000063000000FF000000FF310052D6FF0042CEFF0031C6FF0029C6 + FF0029C6FF0031C6FF0029C6FF0031BDFF0031BDFF0039BDFF0029BDFF0039C6 + FF004AC6FF0063CEF70084DEFF0063CEFF0031B5FF0039B5FF0039B5FF0031BD + FF008CDEFF000000000000000000000000000000000000000000000000000000 + 0000424242009C9C9C009C9C9C0042424200424242009C9C9C00000000003163 + CE000000000000000000000000003163CE00000000009C9C9C009C9C9C004242 + 4200424242009C9C9C00424242000000000052CEF70042C6FF0031C6FF0029C6 + FF0029C6FF0031C6FF0029C6FF0031BDFF0031BDFF0039BDFF0029BDFF0039C6 + FF004AC6FF0063CEF70084DEFF0063CEFF0031B5FF0039B5FF0039B5FF0031BD + FF008CC6DE000000000000000000000000000000000000000000000000000000 + 000042000000FF000000420000000000000000000000000000000000AD003131 + FF000000FF003100FF00CE003100210000000000000000000000000000000000 + 000000AD000000FF000000CE31003131CE0000000000EFEFEF00D6EFF70084DE + F7006BD6FF0052CEFF0031CEFF0031C6FF0031BDFF0021BDFF0031BDFF0039BD + FF0039BDFF0031BDFF0031B5FF0031BDFF0031BDFF0039B5FF0031B5FF0029BD + FF008CDEFF000000000000000000000000000000000000000000000000000000 + 9C000000000042424200424242009C9C9C009C9C9C0042424200424242000000 + 00003163CE003163CE003163CE00000000009C9C9C0042424200424242009C9C + 9C009C9C9C0042424200000000000000000000000000000000008C8C8C0084C6 + D60073C6E70052C6F70031CEFF0031C6FF0031BDFF0021BDFF0031BDFF0039BD + FF0039BDFF0031BDFF0031B5FF0031BDFF0031BDFF0039B5FF0031B5FF0029BD + FF008CC6DE000000000000000000000000000000000000000000000000000000 + 00000000000042000000730000000000000042000000CE000000FF0000006300 + 9C003100FF000031FF003100FF000000630000000000000000000031000000DE + 000000FF000000CE00003131FF000000BD000000000000000000000000000000 + 00000000000000000000EFEFF700C6EFF7007BD6FF005ACEFF0042C6FF0039BD + FF0031B5FF0029B5FF0029BDFF0029B5FF0039BDFF0039B5FF0029B5FF0039B5 + F7008CDEFF000000000000000000000000000000000000000000000000009C9C + FF0000000000000000009C9C9C0042424200424242009C9C9C009C9C9C004242 + 420000000000000000000000000042424200424242009C9C9C009C9C9C004242 + 4200424242000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000949C9C007BC6E7005AC6F70042C6FF0039BD + FF0031B5FF0029B5FF0029BDFF0029B5FF0039BDFF0039B5FF0029B5FF0039B5 + F7008CC6DE000000000000000000000000000000000000000000000000000000 + 00000000000000000000210000009C310000FF000000FF000000FF000000CE00 + 0000310063003100CE003131FF003100FF0000639C00008C000000FF000000FF + 0000008C0000310063000000DE00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFEF + F700B5E7FF0073CEFF005AC6FF004ABDFF0031B5FF0029ADFF0029B5FF004AB5 + EF00B5E7FF000000000000000000000000000000000000000000000000000000 + 9C000000000000000000000000009C9C9C009C9C9C0042424200424242009C9C + 9C009C9C9C0042424200424242009C9C9C009C9C9C0042424200424242009C9C + 9C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094ADB5007BC6E7005ABDEF004AB5FF0031B5FF0029ADFF0029B5FF004AAD + E70094ADB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003131000031630000006300000042 + 00000042000000633100009C630000639C0031639C003163CE0000319C000031 + 63000000630000008C0000002100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D6EFF7008CDEFF0073CEF700DEEF + F700000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424242009C9C9C009C9C9C004242 + 4200424242009C9C9C009C9C9C0042424200424242009C9C9C009C9C9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008C8C8C008CC6DE007BBDDE008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000310000008C + 000000BD000000CE0000009C000000633100000042000000AD003100CE000000 + 6300000021000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000525252005252 + 5200525252000000000000000000000000000000000042424200424242009C9C + 9C009C9C9C0042424200424242009C9C9C009C9C9C0042424200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008463 + 0000FF0000000000000000636300006363000063630000000000006363000063 + 630000000000FF0000008463000000000000000000000000000000000000D6D6 + F7002118DE001010F7004A4AFF004242FF004242FF004242FF004239FF002929 + FF001010EF000808EF000808F7000000F7001008B500AD6B1800FF8C0000EF84 + 0800EF8C0800FF940800FF9C0800FF940800000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000CEFF0000CE + FF0000CEFF0000CEFF000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000CEFF0000CEFF000000000000000000000000000000 + 00002118DE001010F7004A52FF004242FF004242FF004242FF004239FF002929 + FF001010EF000808EF000808F7000000F7001808B500AD6B1800FF940000EF8C + 0800EF8C0800FF940800FF9C0800FF9408000000000000000000000000000000 + 0000000000000000000000000000000000000063630000000000000000008463 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF00000000000000000000000000000000000000EFEF + F700635AEF001008D6006B63FF007B63FF006B6BFF006363FF006363FF006363 + FF005A52FF005A52FF005252FF000810EF005A296B00DE8C1800FF9C0800F78C + 1000FF8C1000FF840800FF8C0000FF8C0000000000000000000000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000635AEF000808D6006363FF008473FF006B63FF006363FF006363FF006363 + FF005A52F7006352F7005252FF000810EF0063316B00DE8C1800FF9C0000F78C + 0800FF8C1000FF840000FF8C0000FF8400000000000000000000000000000000 + 0000000000000000000000636300006363000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF0000000000000000000000000000000000000000000000F7F7 + F700C6CEF7002121CE003931EF00948CFF008484F7008484FF00848CF700948C + F7009C94EF009C94FF005252EF001808BD00C67B3900FFA54200FF9C2100F79C + 2900FF9C2900FF9C2100FF8C1000FF841000000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FF + FF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000FFFF0000FFFF000000000000000000000000000000 + 0000000000002121CE003121E7009494FF009494F700848CF700848CF700948C + F700A59CF7009C9CFF004A52EF001808BD00C67B4200FF9C3900FF9C2100F79C + 2900F79C2900FF9C2100FF8C1000F78408000000000000000000000000000000 + 0000000000000000000000636300006363000000000000000000000000000000 + 00000000000000000000FF000000FF000000FF000000FF000000FF000000FF00 + 000000000000000000000000000000000000000000000000000000000000F7F7 + EF00F7FFFF00A5A5EF001818C6003942EF009CA5FF00BDBDFF00ADADFF00B5B5 + FF00A5ADFF004252FF001808BD0073395200F7AD3900F7B56B00F7A56300FFAD + 5A00EFAD6300EFAD5A00FFAD5A00F7A54A00000000000063FF00009CFF000000 + 000000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000001810C6003131E7009C9CFF00C6C6FF00B5B5FF00BDBD + FF00A5ADFF00394AFF001808BD0073395200F7AD3900FFB56B00F7A56300FFAD + 5A00F7AD5A00EFAD5A00F7AD5200F7A552000000000000000000000000000000 + 0000000000000063630000636300006363000063630000000000000000000000 + 0000000000000000000000000000FF000000FF000000FF000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7F7EF00FFFFF700ADA5E7003121D6003929E7007363F7007B7BF7006B73 + EF003931E7002918D6008C7BC600D69C6300DE7B1800FFC67300FFD69400FFC6 + 8400F7C68400FFC68400F7CE8400FFD68C00000000000063FF00009CFF00009C + FF000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 00000000000000000000000000003121D6003929E7006B63F7007B7BF7006B73 + EF004231DE002921D60000000000D69C6B00DE7B1800FFC67300FFDE9C00F7C6 + 8C00F7BD8400FFBD8400F7CE8C00FFE794000000000000000000000000000000 + 0000000000000000000000636300006363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF00FFFFF700D6DEEF00425ACE000010C6000010B5000018 + AD00424AB500BDADD600FFFFFF00EFE7E700D6844A00E78C2900FFCE7B00F7EF + C600F7EFD600FFE7D600FFE7C600F7BD7300000000000063FF00009CFF000000 + 000000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF000000000063FFFF0063FFFF0063FFFF0063FF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000425ACE000010C6000010B5000018 + AD003942B500000000000000000000000000D6844A00E78C2900FFCE7B00FFF7 + C600F7EFD600FFEFDE00FFE7C600F7B573000000000000000000000000000000 + 0000000000000000000000636300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7F7F700CEDEE7007BA5BD005A9CBD00528CCE00527BD6004A84 + CE004A84AD007394B500B5BDCE00EFF7EF00EFDED600D6945A00E77B3100F7A5 + 6B00FFC68C00FFC67B00DE945A00B55A2900000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FF + FF0000FFFF0000FFFF000000000063FFFF0063FFFF0063FFFF0063FFFF0063FF + FF0063FFFF000000000000FFFF0000FFFF000000000000000000000000000000 + 00000000000000000000000000007BA5BD005294BD00528CCE00527BD6004284 + C6004A7BAD007394AD00000000000000000000000000D6945A00E77B3100F7A5 + 6B00FFC68C00FFC67B00DE8C5A00B55A29000000000000000000000000000000 + 0000000000000063630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F7EF + EF00F7F7F700BDCEE7004A8CCE004A9CE70084C6F700A5DEFF00A5E7FF009CDE + F7008CC6EF004294D600316BA500A5B5AD00F7EFEF00F7EFEF00C6A59400A563 + 4200945242007B52310094634200CEAD9400000000000000000000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00000000000000 + 0000000000000000000063FFFF0063FFFF0063FFFF0063FFFF0063FFFF0063FF + FF0063FFFF0063FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000528CCE004A9CE70084C6F700A5DEFF00A5E7FF009CD6 + F70094C6EF004A94D6003173AD00000000000000000000000000C6A59400A563 + 4A00945242007B52390094634A00CEAD94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFF7 + F700C6DEE7004294CE0084ADF7009CDEFF0084D6F70094D6FF0094D6F70094D6 + FF0094D6FF008CD6FF00639CDE004A73A5009CADCE0084A5CE00528CCE004A94 + D6004A94D6004A94D6003984C6004284B500000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FF + FF0000FFFF0000FFFF000000000063FFFF0063FFFF0063FFFF0063FFFF0063FF + FF0063FFFF000000000000FFFF0000FFFF000000000000000000000000000000 + 0000000000004294D60084ADF7009CDEFF008CD6F70094D6F70094D6F70094CE + FF0094D6FF008CD6FF0063A5DE004A73AD009CADCE0084A5CE005A94C6005294 + D6004A94D6004A94D6004284C6004284B5000000000000000000000000000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000000000000000000000000000F7F7 + F7007BA5DE0052ADEF0094CEFF008CCEFF0084CEFF008CC6FF0084C6FF0084CE + FF0084CEFF008CCEFF007BCEFF00318CCE00296BA50063A5D6007BC6EF0094D6 + FF009CD6FF00ADDEFF009CD6FF006BADDE00000000000063FF00009CFF000000 + 000000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF000000000063FFFF0063FFFF0063FFFF0063FF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000073A5DE0052A5E70094CEFF008CC6FF0084CEFF0094C6FF0084C6FF0084CE + FF0084CEFF008CCEFF007BC6FF00318CD6002973A50063A5D6007BC6EF0094D6 + FF009CD6FF00ADDEFF009CD6FF006BADDE000000000000000000000000000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF00000000000000000000000000000084B5 + DE00187BC6001894D6004AA5E7005A9CEF0084BDFF008CC6FF0073C6FF006BBD + F7007BBDFF0084B5FF007BBDFF0052ADEF003184C60084CEFF0094D6FF0094D6 + F70094D6F70094D6F7009CD6FF009CDEFF00000000000063FF00009CFF00009C + FF000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000FFFF0000FFFF0000FFFF0000FFFF0000000000000000000000000084B5 + DE002184C6002194DE004AA5E7005A9CEF007BB5FF008CC6FF0073C6FF006BBD + FF007BB5FF0084B5FF007BBDFF0052ADEF003184CE0084CEFF0094DEFF0094D6 + F70094D6F70094D6F7009CD6FF009CDEFF00000000000000000000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000FF000000FF000000FF000000FF000000000000000000000000000000088C + CE0008CEF70000BDF70010A5EF00189CDE00218CD6005A9CDE0094BDFF008CBD + FF006BADFF005AADFF0063B5F7005AA5E7003184CE007BC6FF0094CEFF0094CE + FF008CCEFF0084C6FF0084C6FF0084C6FF00000000000063FF00009CFF000000 + 000000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000084 + CE0008C6EF0000BDEF0008A5E700189CDE002994D6005A9CDE008CBDF7008CC6 + FF006BADFF005AADFF0063ADFF0063ADEF003184CE007BC6FF0094CEFF0094CE + FF008CCEFF007BC6FF007BC6FF0084C6FF00000000000000000000000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000FF0000000000000000000000000000000000000000000000000000000094 + DE0008EFFF0000DEFF0010DEFF0010DEFF0000C6EF00009CD600298CCE0073AD + EF00A5CEFF008CC6FF007BC6FF0063ADF7001863AD004A84C6007BADE70094C6 + FF008CC6FF006BB5FF0063B5FF006BB5FF00000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000FFFF0000FF + FF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000FFFF0000FFFF00000000000000000000000000008C + DE0010EFFF0000E7FF0010DEFF0010DEFF0000C6EF00009CD600298CD60073AD + E7009CC6FF0094C6FF007BC6FF0063ADEF001863AD004A84C6007BADE70094C6 + FF008CCEFF006BB5FF0063B5FF006BB5FF00000000000000000000000000FF00 + 0000000000000063630000636300006363000000000000636300006363000000 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000FF0000000000000000636300006363000000000000000000000000000884 + D60010D6FF0029EFFF0029E7F70021E7FF0029E7FF0021E7FF0010BDE700108C + C6005294D60094BDEF00ADD6FF006BA5DE000052940000397B0010427B00426B + A5007BB5E7008CD6FF006BBDF7005AADFF00000000000000000000CEFF0000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF00000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000884 + D60018D6FF0029EFF70029E7F70021E7FF0029EFFF0018DEFF0008BDE7001094 + C6005294D60094B5E700A5D6F70063A5DE000852940000397B0010428400426B + A50073ADDE008CCEFF0073BDFF0063ADFF00000000000000000000000000FF00 + 0000000000000063630000636300006363000000000000636300006363000000 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000FF0000000000000000636300006363000000000000000000000000002994 + DE0029BDEF006BF7FF0063E7EF005AE7FF0063E7FF0052E7FF005AEFFF0052E7 + FF0031B5DE00298CCE00428CD6002973B500005AA5001063A500105A94000042 + 730010426B005A7BAD00A5CEFF009CDEFF00000000000063FF000000000000CE + FF0000CEFF0000CEFF0000CEFF0000CEFF0000CEFF000000000000CEFF0000CE + FF0000CEFF0000CEFF000000000031FFFF0031FFFF0031FFFF0031FFFF0031FF + FF0031FFFF000000000000FFFF0000FFFF000000000000000000000000002994 + DE0031BDE7006BF7FF0063E7F7005AE7FF0063E7FF0052EFFF005AEFFF004ADE + FF0031B5DE003194D6004A94D6002973BD00005AA5000863A50008528C000042 + 7300104273005A7BAD0094C6F7009CD6FF00000000000000000084630000FF00 + 0000000000000063630000636300006363000000000000636300006363000000 + 0000FF0000008463000000000000000000000000000000000000000000008463 + 0000FF000000000000000063630000636300000000000000000000000000A5CE + EF003994C60073DEFF0094F7FF009CF7F7008CEFFF008CEFFF009CEFFF0094F7 + FF008CFFFF0073EFFF0039BDF700006BCE00216BAD00317BB5003184B5003184 + B5002963940010396B00214A73007B94AD00C6ADA500000000000063FF000000 + 000000CEFF0000CEFF0000CEFF0000CEFF000000000000CEFF0000CEFF0000CE + FF0000CEFF0000CEFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003194C6006BDEFF009CFFFF009CF7F7008CEFFF008CEFFF0094EFFF009CF7 + FF008CFFFF007BEFF70039BDF700006BC6002163A500317BB5003184B5003184 + AD0021638C001039730029527B00738CAD00000000000000000084630000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF000000FF00000000000000000000000000000000000000000000008463 + 0000FF000000000000000000000000000000000000000000000000000000EFEF + EF00639CD600299CE70094EFFF00CEFFF700CEFFF700BDFFF700BDFFF700CEFF + F700CEFFFF0094EFFF0029A5E7001873CE005A94B5006BA5BD0063A5BD0063A5 + BD0063A5C6005A94C6004A739C0039527300C6ADA500C6ADA500000000000063 + FF000000000000000000000000000000000000CEFF0000CEFF0000CEFF0000CE + FF0000CEFF0000FFFF0000000000C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000639CD6002194E7008CEFFF00D6FFFF00D6FFFF00C6FFFF00C6FFF700D6FF + F700D6FFFF0094EFFF0029A5E700217BD6005A9CB50063A5BD0063A5BD0063A5 + C60063A5CE005A94C600426B9400395273000000000000000000000000000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000000000000000000000000000F7F7 + F700D6E7EF0073ADD6005AA5D60084CEEF00BDEFFF00DEF7FF00D6F7FF00ADEF + FF0063BDEF00298CDE0000529C005284BD009CCEDE0094BDD60094B5C6009CBD + CE009CBDD60094BDD6009CBDD6009CBDDE00C6ADA500C6ADA500C6ADA5000000 + 00000063FF00009CFF00009CFF00009CFF000000000000CEFF0000CEFF0000CE + FF0000FFFF0000000000C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 00000000000073ADD6005AA5CE007BBDE700BDEFF700DEFFFF00DEF7FF00A5E7 + FF0063BDEF00218CDE0000529C004A7BBD009CCEDE0094BDD60094B5C6009CBD + CE009CBDD60094BDDE009CC6DE009CBDDE000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000 + 0000000000000000000000636300000000000000000000636300000000000000 + 00000000000000000000FF000000FF000000000000000000000000000000EFEF + EF00F7F7EF00FFFFF700ADC6E700639CD600639CE70063A5E700529CDE003994 + DE00398CD6008CB5DE008CA5BD00295A7B0084ADC600C6E7FF00CEE7F700CEDE + E700CED6E700CEDEE700CEE7FF009CCEEF00C6ADA500C6ADA500C6ADA500C6AD + A500000000000063FF00009CFF00009CFF00009CFF000000000000CEFF0000FF + FF0000000000C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 00000000000000000000000000006B9CDE00639CE700639CDE00529CDE003994 + DE004294D6000000000000000000295A7B0084ADC600CEE7FF00D6E7F700CEDE + E700CEDEE700D6DEEF00D6EFFF00A5D6F7000000000000000000000000000000 + 00000000000000000000FF000000FF000000FF000000FF000000000000000000 + 0000000000000000000000000000006363000063630000636300006363000000 + 0000000000000000000000000000FF0000000000000000000000000000000000 + 000000000000EFEFEF00F7F7FF00EFEFFF00CEDEF700A5CEEF00A5C6DE00BDD6 + E700DEE7F700FFF7FF00F7F7F700A5B5C600426384007B94AD00BDCEE700D6E7 + FF00DEEFFF00CEDEF7008CA5CE00294A6B00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA5000000000000000000000000000000000000000000000000000000 + 0000C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A6B8C007B94AD00BDCEE700DEEF + FF00DEEFFF00C6DEF70084A5C600294A6B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000063630000636300006363000063 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7EFEF00F7F7EF00F7F7F700FFFFF700FFF7F700FFF7 + F700F7F7EF00EFEFEF00F7F7F700FFF7F700CED6DE006B8CA5004A6B7B004263 + 840039638400184A7B0021427B007B8CAD00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007394A5004A6B7B004263 + 84003963840018527B00214A8400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000636300000000000000 + 0000006363000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000847B8C00847B8C008C847B008C5A840073299400738CBD005ABD + D60052A5C60063BDD60084C6EF006BB5D600529CCE004AA5D60063A5CE007384 + A500527B8C007BADB5008C849C008C7B94000000000000000000000000000000 + 000000000000000000001831630073ADEF0052BDEF000831630052636300A5AD + A50029424200427384006384B5005284A5005284A5005284A5006384A5006384 + A50052849400528494005284A500527394000000000000000000000000000000 + 000000000000847B8C00847B8C008C847B008C5A840073299400738CBD005ABD + D60052A5C60063BDD60084C6EF006BB5D600529CCE004AA5D60063A5CE007384 + A500527B8C007BADB5008C849C008C7B94000000000000000000000000000000 + 00000000000000000000213152006BA5E70039C6F70000315A0052636B0084A5 + A500394A4A00526B7B00638CB5004284B5005284A5005284A5005A84A5005A84 + AD005A8494004A8494003984B5005A7B8C000000000000000000000000000000 + 0000000000006BC6D60073C6CE0073BDB50063A5B50073B5DE006BCEE70042A5 + BD0084BDD600ADE7E700A5CEC600B5C6CE0084A5C6005A9CC600529CC6005A8C + A5006384AD00739CDE006B8CD6009494DE000000000000000000000000000000 + 00000000000000000000000000000831630073ADEF0052BDEF00083163007331 + 2900A5ADA50018425200427384006384B5006384A5005284A5006384A5005284 + A5005284A500528494005284A500525252000000000000000000000000000000 + 0000000000006BC6D60073C6CE0073BDB50063A5B50073B5DE006BCEE70042A5 + BD0084BDD600ADE7E700A5CEC600B5C6CE0084A5C6005A9CC600529CC6005A8C + A5006384AD00739CDE006B8CD6009494DE000000000000000000EFF7F700F7F7 + F70000000000EFF7F700C6DEFF000839730073ADF7006BC6E700213952005A31 + 29008CA5AD0021424A00396B94004A84AD006384A5006384AD006B84A5005A7B + AD005A7B9400528C9C004284AD00734242000000000000000000000000000000 + 0000000000005ABDD6004ADEDE005ADEE70063DEE70052D6EF00399CC60063CE + E7008CE7E700B5D6DE00BDCECE00BDBDB5007B94A5005A94BD00529CC6005294 + BD004A84BD006B84CE00949CD6008C84CE000000000000000000000000000000 + 0000000000000000000084BDEF006394CE000831630084BDEF006394A5002931 + 2900733129004273840018425200427384006384B5006384B5005284A5005284 + 94006384A5005273A5005284A500FF4208000000000000000000000000000000 + 0000000000005ABDD6004ADEDE005ADEE70063DEE70052D6EF00399CC60063CE + E7008CE7E700B5D6DE00BDCECE00BDBDB5007B94A5005A94BD00529CC6005294 + BD004A84BD006B84CE00949CD6008C84CE000000000000000000000000000000 + 000000000000CEEFFF0094BDEF006B8CC60000296B009CB5EF00849494003931 + 39006331210052848C0008394A004A6B9400738CAD005284AD004A7B9C004A84 + AD006B84A500397B9C004A849C00F74221000000000000000000B5ADBD008473 + 94007B6394005A4A840052848C0063C6BD0063CEEF0052BDEF0042A5CE005AD6 + E70063D6DE0084D6DE00BDDEDE00BDBDB50073737B0042849C0042ADCE004A8C + BD004A73B500A5B5D600C6BDC600A58CC6000000000000000000000000000000 + 000084BDEF005284B5006394CE006394CE006394CE0052636300FFFFFF00B5BD + 840018211800733129004273840018425200426363006384B5005284A5005284 + A5005284A5005284A5005284A500FF4208000000000000000000B5ADBD008473 + 94007B6394005A4A840052848C0063C6BD0063CEEF0052BDEF0042A5CE005AD6 + E70063D6DE0084D6DE00BDDEDE00BDBDB50073737B0042849C0042ADCE004A8C + BD004A73B500A5B5D600C6BDC600A58CC600000000000000000000000000D6EF + F700A5C6DE005284AD006394C6007B9CD6005A9CDE0042527300FFF7FF00B5BD + 9400081808005A3921005A7B8C0021425200315A7300528CAD005A8CAD00397B + A500527BA500397BA5004A8C9C00FF4200000000000000000000C6C6B500BDB5 + 9C00C6BD9C00BDAD8C00C69C5A009473390042ADA50039C6EF004AA5D6005ACE + EF0039CEDE0052D6E7007BE7EF0094B5AD0042424A003173940042A5C600396B + BD00737BB500B59CC600AD73C6009C73CE0000000000000000000000000084BD + EF0063ADDE006394CE007394CE006394CE006394DE006394B50052636300FFFF + FF00B5BD840018211800733129004273840018425200427384006384B5005284 + A5005284A5006384A5005284A500FF4208000000000000000000C6C6B500BDB5 + 9C00C6BD9C00BDAD8C00C69C5A009473390042ADA50039C6EF004AA5D6005ACE + EF0039CEDE0052D6E7007BE7EF0094B5AD0042424A003173940042A5C600396B + BD00737BB500B59CC600AD73C6009C73CE0000000000000000000000000094C6 + D6007BB5DE006B94CE006B94CE006394CE005A94C600638CBD005A636300EFFF + FF00BDC68C00181810006331210052737300104A52004A6B84007384A5004A8C + AD00637BAD005284B500528C9C00F74A0000000000000000000000000000ADA5 + A50000000000BDA58C00CEAD6300AD7B31008C845A004AB5CE004AA5DE0042AD + DE0021B5DE00219CD6002994D60042637B0021395A00428CB5003194BD00426B + B500845AC6009C4ACE009C4AD6008C4ADE000000000000000000000000006394 + DE0073ADDE0063ADDE007394CE006394CE006394DE006394CE006394CE005263 + 6300FFFFFF00B5BD840018211800733129004273840029424200426363005273 + A5006384A5005284A5005284A500FF420800000000000000000000000000ADA5 + A50000000000BDA58C00CEAD6300AD7B31008C845A004AB5CE004AA5DE0042AD + DE0021B5DE00219CD6002994D60042637B0021395A00428CB5003194BD00426B + B500845AC6009C4ACE009C4AD6008C4ADE0000000000DEE7EF00D6EFFF00639C + C6006BADE7007BA5E7006B94D6005A94D600739CD60063A5C6005A94BD005A6B + 5A00FFFFFF00CEBD9C000821180052312900526B730018425A00315A6B004A7B + A50063739C005A84AD006B849C00FF39080000000000EFEFEF00000000000000 + 00000000000000000000A5946B00C6945200D6AD7B00739C9C0039A5DE004AA5 + DE00219CDE000873D6000842AD0008428C003973A500398CBD001873AD003963 + AD005A31CE005A10D6006329CE006B39CE00000000000000000073ADDE0063AD + DE007394DE006394DE006394DE006394DE007394CE006394CE006394CE006394 + CE0052636300FFFFFF00FFFFFF00293129005242520018315200184252001842 + 5200294252006384A5005284A500FF4208000000000000000000000000000000 + 00000000000000000000A5946B00C6945200D6AD7B00739C9C0039A5DE004AA5 + DE00219CDE000873D6000842AD0008428C003973A500398CBD001873AD003963 + AD005A31CE005A10D6006329CE006B39CE00EFEFE700E7FFFF007BA5DE0073AD + EF00639CD6006394D600739CE7006394E7006B8CCE005A94DE005A9CCE00739C + CE005A5A6300DEFFFF00FFFFF70039312900524A5A0008313900084242001842 + 630031395A005A8CA5006B7BA500C63929000000000000000000000000000000 + 0000000000000000000000000000AD8C5A00DEB58400ADB59C0029A5D600319C + DE00429CCE003194DE002984D6002973AD00296B9C002973B500185294003952 + 9400424AB5001821C6003129DE005231DE000000000084BDEF0063ADDE007394 + DE0073ADDE006394DE006394DE006394DE007394DE006394DE006394CE006394 + DE006384CE005263630042636300000800000000000000080000182118001831 + 5200183152005284A5005284A500528494000000000000000000000000000000 + 0000000000000000000000000000AD8C5A00DEB58400ADB59C0029A5D600319C + DE00429CCE003194DE002984D6002973AD00296B9C002973B500185294003952 + 9400424AB5001821C6003129DE005231DE00F7F7EF0094BDD60063A5E7006394 + EF007BA5EF006394CE006394D6006394E7007394E700738CE700638CE7005A9C + DE005A8CBD005A5A6B005A636300000000000000080000000000212129001829 + 4A0018314A005A7B94004A7BA500638C7B000000000000000000000000000000 + 00000000000000000000000000009C8C5200C6AD5200A5BD73001894CE001094 + EF002194DE00318CCE000039520010ADAD0021B5B50018526B0021426B00294A + 84005A73BD002139AD002129CE003131CE000000000084BDEF0073ADDE0073AD + DE006394DE0063ADDE0073ADDE0063ADDE006394DE006394DE007394CE006394 + CE006394CE006394B50052739400182118000000000000000000080029000800 + 080018315200294242006384A500526394000000000000000000000000000000 + 00000000000000000000000000009C8C5200C6AD5200A5BD73001894CE001094 + EF002194DE00318CCE000039520010ADAD0021B5B50018526B0021426B00294A + 84005A73BD002139AD002129CE003131CE00EFEFF7009CBDE70084A5DE0063B5 + E7006B9CDE005AADE70073ADE70063A5DE006B94E7006B9CDE006394CE006394 + C600639CCE006394B5005A738C00101829000808000000000800000039000008 + 000029315200184239005284A50063639C000000000000000000000000000000 + 0000000000000000000000000000AD945A00BD8C4A00639494000084D6001073 + CE00297BB50031527300086B7B0029EFE70021FFEF0063DEE7004A7B8C001839 + 630042639400526BD6002942C6004A5AC6000000000084BDEF007394DE0008DE + FF0008DEFF0008DEFF0008DEFF0008DEFF0073ADDE0063ADDE007394CE006394 + CE006394CE006394CE005284A500293129000808000000000000080029001800 + 520042217300184252006352B500FF0884000000000000000000000000000000 + 0000000000000000000000000000AD945A00BD8C4A00639494000084D6001073 + CE00297BB50031527300086B7B0029EFE70021FFEF0063DEE7004A7B8C001839 + 630042639400526BD6002942C6004A5AC600EFEFF7007BBDE70052B5E70008DE + FF0008D6FF0000DEFF0000E7FF0000E7FF00739CE70073A5E700739CDE00638C + D6006394D6006B94CE0063849C00182931000000100000001000210031002100 + 520039187B00293952008463A500E70884000000000000000000000000000000 + 0000000000000000000000000000B59C5A007B8C7300218CDE002173C600637B + 9C00B5948400214A630018C6CE0021FFFF0018FFEF005AFFFF0094F7FF006BAD + BD00316384005A73AD005A73CE004A5AC6000000000084BDEF0073BDEF0000EF + FF0000DEFF0000EFFF0000EFFF0000EFFF007394DE006394DE0063ADDE006394 + DE007394DE006394DE006384B500426363002921420000080000180052002900 + 630042087300183152006373A500FF0884000000000000000000000000000000 + 0000000000000000000000000000B59C5A007B8C7300218CDE002173C600637B + 9C00B5948400214A630018C6CE0021FFFF0018FFEF005AFFFF0094F7FF006BAD + BD00316384005A73AD005A73CE004A5AC600FFEFFF0084BDE70063B5EF0000F7 + FF0000E7FF0000E7FF0000EFFF0000EFFF00639CD6006B9CD6007BA5E7006B94 + E7006394DE006B9CDE006B94B500395A63002921310000100000100039001800 + 6B0039106B00183152006B6BA500FF0084000000000000000000000000000000 + 000000000000F7F7DE00BDBD7B009C9C4A00949C63005A6B730073635200CEC6 + 9C00394A6B0010849C0018FFFF0010FFFF0052FFFF0052F7F70084FFFF0084FF + FF0052CEDE00297B9C00215284003163CE000000000084BDEF0073BDEF0000EF + FF0000DEFF0000DEFF0000EFFF0000DEFF0073ADDE006394DE0063ADDE006394 + DE007394DE006394CE006394CE005284B5005252520029315200420873004200 + 84006300B500293152006373A500FF0884000000000000000000000000000000 + 00000000000000000000BDBD7B009C9C4A00949C63005A6B730073635200CEC6 + 9C00394A6B0010849C0018FFFF0010FFFF0052FFFF0052F7F70084FFFF0084FF + FF0052CEDE00297B9C00215284003163CE00EFEFF70084BDEF0073B5EF0000EF + FF0000E7FF0000E7FF0000EFFF0000EFFF0063A5EF005A94D6006BA5E7006B9C + E7005A94DE005A94DE006394C6005A8CAD005A5263002142290031086B004200 + 94006B08A50018295A00427BA500F7088C000000000000000000000000000000 + 0000E7EFDE00ADB573009CA55A00ADAD7300B5AD7300846B42006B523100A5A5 + 9C00084A730010E7E70008FFFF0039FFFF0052F7F70084FFFF007BE7F70031C6 + D60010DEEF0042E7F700317B9C0010396B000000000084BDEF0073ADEF0000EF + FF0000EFFF0000EFFF0000EFFF0000EFFF0073ADEF0073ADDE006394DE0073AD + DE006394DE006394DE006394CE006394CE005284B50052638400522173006300 + B5007308FF001821630052639400FF0894000000000000000000000000000000 + 000000000000ADB573009CA55A00ADAD7300B5AD7300846B42006B523100A5A5 + 9C00084A730010E7E70008FFFF0039FFFF0052F7F70084FFFF007BE7F70031C6 + D60010DEEF0042E7F700317B9C0010396B00F7EFF70084C6EF0073B5EF0000EF + FF0000E7FF0008E7FF0000EFFF0000EFFF007BB5FF006BA5E70073A5DE006BA5 + DE005A9CD6005A94DE00638CDE007394DE00527BAD0042638C00522173005A00 + C6007300EF0018107B00526BAD00FF008C000000000000000000000000000000 + 0000DEE7DE00B5B59400DEDEC600F7F7EF00FFFFF700C6BDB5004A4A39005273 + 940021A5BD0008FFFF0018FFFF0063FFFF0063F7FF0084FFFF004ACEE70018CE + DE0000BDCE00088CA50031638C00637B9C000000000084BDEF0084BDEF0000DE + FF0000EFFF0000EFFF0000DEFF0000EFFF0073ADEF0073ADDE0073ADDE0073AD + DE0063ADDE0063ADDE007394CE007394CE006394CE006394CE006384B5006352 + B5006321CE00420084006373A500FF0884000000000000000000000000000000 + 000000000000B5B59400000000000000000000000000C6BDB5004A4A39005273 + 940021A5BD0008FFFF0018FFFF0063FFFF0063F7FF0084FFFF004ACEE70018CE + DE0000BDCE00088CA50031638C00637B9C00FFEFF7008CC6EF0063B5E70000EF + FF0000EFFF0000EFFF0000EFFF0000EFFF0073ADE7007BADDE007BADD6007BB5 + D60073B5E70073ADEF006B9CDE006B8CCE006B94DE00638CCE006B7B94005A52 + BD006B29BD00310094006B5A9C00DE217B000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECED6005A7394000073 + 8C0029F7F70018FFFF004AFFFF006BF7F7008CFFFF007BFFFF0039EFF70010D6 + E700007B940039738C006B7B9C00394A63000000000084BDEF0073BDEF0008DE + FF0008DEFF0008DEFF0008DEFF0008DEFF0073ADDE0073ADEF0073ADEF0073AD + EF0073ADEF0073ADEF0073ADEF006394DE006394CE006394DE006394CE006394 + CE006384B5007308FF006384B5006394B5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A7394000073 + 8C0029F7F70018FFFF004AFFFF006BF7F7008CFFFF007BFFFF0039EFF70010D6 + E700007B940039738C006B7B9C00394A6300E7EFE7008CCEEF005AB5E70008DE + F70010DEFF0000DEFF0000DEF70000DEFF0073ADDE0084BDEF006BA5E70063A5 + FF0063ADFF0063A5FF006BA5F7006B9CDE00739CD6006384E7007394E7005A8C + DE008473C6007318EF007373CE007B8CA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B5BD00315A8C0021C6 + D60000FFF70039FFFF0073FFFF0073FFFF009CFFEF0094FFFF0039E7E70010CE + DE0018849C0029425A0084848C00E7DED600000000000000000084BDEF0073AD + EF0084ADEF0073ADEF0063ADDE0073ADEF0073ADEF0073ADEF000042FF000052 + FF000052FF000042FF000852FF006394DE007394DE006331DE007308FF007308 + FF007308FF007308FF006331DE005294B5000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B5BD00315A8C0021C6 + D60000FFF70039FFFF0073FFFF0073FFFF009CFFEF0094FFFF0039E7E70010CE + DE0018849C0029425A0084848C00C6ADA500F7F7EF00BDE7FF00A5BDF7006BBD + EF0084A5EF0063ADEF0073A5E70073ADEF0063ADF7005AA5FF00215AE700104A + FF00084AFF000042F7002163E7004A8CEF007B94DE005A29DE006B10F7004A00 + FF007310F7007B00FF005A31EF004A94B5000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F7005A7BA5000863940010D6 + EF0000E7E70042FFFF007BFFFF008CFFFF0094FFE700A5F7FF0042DEF70008D6 + E70000636B008C9494000000000000000000000000000000000084BDEF006394 + CE0073ADEF0073ADEF0073ADEF0073ADEF0073ADEF0073ADEF000052FF000052 + FF000042FF000052FF000852FF0073ADDE006394DE007308FF007308FF007300 + FF007308FF007308FF006331DE006394CE000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA5005A7BA5000863940010D6 + EF0000E7E70042FFFF007BFFFF008CFFFF0094FFE700A5F7FF0042DEF70008D6 + E70000636B008C9494000000000000000000F7F7EF00DEEFF7009CC6E7005A94 + CE0063ADEF006BB5F70073ADEF0073ADE70084ADEF007BB5EF00084AFF000052 + FF000042FF000052FF000042FF0063B5DE005A8CE7005221EF007300FF007300 + FF007300F7007B00FF005221DE006394D6000000000000000000000000000000 + 000000000000000000000000000000000000CECECE008C8CAD0010426300108C + 9C0039DEDE006BFFF70094FFFF0094FFF700B5FFEF00BDF7FF0052E7FF0008D6 + DE0010737B00E7E7E700000000000000000000000000000000000000000084BD + EF0073BDEF0073ADEF0084BDEF0073ADEF0073ADEF0073ADEF000052FF000052 + FF000042FF000052FF000852FF0073ADDE0063ADDE006331DE007300FF007308 + FF007308FF007308FF006331DE007394CE000000000000000000000000000000 + 000000000000000000000000000000000000BDADA5008C8CAD0010426300108C + 9C0039DEDE006BFFF70094FFFF0094FFF700B5FFEF00BDF7FF0052E7FF0008D6 + DE0010737B00C6B5AD000000000000000000FFF7EF00EFF7F700CEE7FF009CC6 + EF007BB5EF0073ADEF0073B5F7007BB5FF0073ADF70073ADFF000042FF000052 + FF00004AFF000852F700184AFF0073B5D6007BADEF005A29DE006B00F7007B08 + F7008410FF008408FF005A29D6006B9CCE000000000000000000000000000000 + 000000000000000000000000000000000000D6C6CE00AD9CA500525263000829 + 31002163630094EFEF00ADFFFF00ADFFF700B5F7FF00B5FFFF0029D6EF0000DE + E700086B7300E7E7E70000000000000000000000000000000000000000000000 + 000084BDEF0073ADEF0073ADEF0073ADEF0073ADEF0073ADEF000042FF000052 + FF000052FF000042FF000852FF0063ADDE007394DE006331DE007308FF007300 + FF007308FF007308FF006331DE006394CE000000000000000000000000000000 + 00000000000000000000000000000000000000000000AD9CA500525263000829 + 31002163630094EFEF00ADFFFF00ADFFF700B5F7FF00B5FFFF0029D6EF0000DE + E700086B7300C6B5AD000000000000000000000000000000000000000000CEE7 + F700A5C6EF007BADE7006BADEF006BADF70073ADEF0073ADF700084AFF000052 + FF00004AFF00084AFF00184AFF0063A5DE007394D6006331DE007B00FF007B00 + FF007B00FF007300FF006331DE006B94CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CECECE00E7E7 + E700294A4A00A5EFEF00A5FFFF00ADFFFF0073FFFF0042E7F70010F7FF0018F7 + FF00186B7300E7E7E70000000000000000000000000000000000000000000000 + 00000000000084BDEF0073BDEF0073ADEF0073ADEF0073ADEF000042FF000042 + FF000042FF000042FF000852FF0073ADDE0073ADDE006331DE007308FF007308 + FF007308FF007308FF006331DE006394CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000294A4A00A5EFEF00A5FFFF00ADFFFF0073FFFF0042E7F70010F7FF0018F7 + FF00186B7300C6B5AD0000000000000000000000000000000000000000000000 + 0000DEE7F700ADCEEF007BB5E7006BADEF007BB5F7006BA5F7001042FF000039 + FF000031FF000842FF002152FF005AA5EF0084A5EF006339E7005A00F7006308 + FF006308FF006308FF005A39E7006B8CDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000396363008CF7FF0063F7FF004ADEF70000DEDE0018EFF70018E7EF000094 + 9C0029525A00EFE7E70000000000000000000000000000000000000000000000 + 0000000000000000000084BDEF0084BDEF0073ADEF0073ADEF0073ADEF0073AD + EF0073ADEF0073ADEF0073ADDE006394DE0073ADEF0073ADEF0073ADEF0073AD + EF0073ADEF0073ADEF0073ADEF006394CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000396363008CF7FF0063F7FF004ADEF70000DEDE0018EFF70018E7EF000094 + 9C0029525A000000000000000000000000000000000000000000000000000000 + 0000F7F7F700D6E7F700A5CEE70094BDE70063ADEF0063BDEF005AADF70063BD + EF005AB5EF0063ADF7006394F7006BADD60063BDE7006BA5F7007BADFF007BAD + EF007BADEF0084ADFF006BA5EF004A9CC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029525A0042BDC60021DEE70008DEEF0021D6DE00108C9C0000525A004A73 + 7B00DEDEE7000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000084BDEF0084BDEF0084BDEF0084AD + EF0073ADEF0073ADEF007394DE0073ADDE0063ADDE0073ADDE0073ADDE0073AD + DE0063ADDE0063ADDE006394CE007394CE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029525A0042BDC60021DEE70008DEEF0021D6DE00108C9C0000525A004A73 + 7B00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DEEFFF00D6EFFF0094BDEF008CC6E7008CBDF70084BD + EF006BADE7007BB5F7007BA5EF006BA5CE006BADDE0063A5E7006BB5EF006BB5 + DE0063ADCE0073ADDE006B9CD6006394BD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B8C8C0008525A0018949C000894A500104A5A005A6B7B00E7E7E7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084BDEF0084BDEF0084BDEF006394CE0073ADDE006394DE0073ADDE006394 + DE006394DE006394DE0052738400293129000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B8C8C0008525A0018949C000894A500104A5A005A6B7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DEF7F700E7EFFF00D6DE + F700ADC6EF009CBDEF0094ADDE006BA5BD0084ADD60073A5DE006BADEF00639C + E7006394DE00739CCE004A638C00292939000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6CE0031394A004A5A7300E7DEE700FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084BDEF0084BDEF0073AD + EF0084BDEF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BDB5B50031394A004A5A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFEF + F700E7EFFF00EFEFFF00F7F7F700DEF7EF00D6EFFF009CC6E70084BDE7007BAD + E70094BDF700CEEFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E700AD9C9C00CE9C9C00FFDEDE00FFDE + E700FFCED600FFD6DE00DEC6CE00C6BDBD00F7F7F700E7E7E700DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE000000000000000000000000000000 + 00006B6B29006B6B29008484000084840000427B94001863CE002163C6002163 + BD0010213900294A84002952B5002952AD00107BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE7000000000000000000000000000000 + 0000000000000000000000000000CEB5AD00AD9C9C00CE9C9C00FFDEDE00FFDE + E700FFCED600FFD6DE00DEC6CE00C6BDBD00F7F7F700E7E7E700CEB5AD000000 + 000000000000CEB5AD0000000000000000000000000000000000000000000000 + 00009C948C00DEBDAD00F7DECE00D6BDB500BDB5AD00BDBDBD00BDBDBD00B5B5 + B500C6C6BD00BDBDBD00BDB5B500CEC6C600CECEC600C6C6BD00C6BDBD00C6BD + B500CEBDBD00D6CEC600E7DED600F7EFE7000000000000000000000000000000 + 00000000000000000000E7E7E700B59C9C00CE9C9C00F7D6DE00FFDEE700FFCE + D600FFCECE00FFCED600DEBDBD00C6BDBD00F7F7FF00E7E7E700DEDEDE00DEDE + DE00E7E7E700F7EFF700F7F7F700F7F7F7000000000000000000000000000000 + 0000000000004A4A390084840000848400003173B500216BCE002163CE00295A + BD0018213900294A9C003152B5002152AD00107BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE7000000000000000000000000000000 + 00000000000000000000CEB5AD00B59C9C00CE9C9C00F7D6DE00FFDEE700FFCE + D600FFCECE00FFCED600DEBDBD00C6BDBD00F7F7FF00E7E7E700CEB5AD00CEB5 + AD00CEBDBD00F7EFF700F7F7F700F7F7F700000000000000000000000000A59C + 9C00C6AD9C00F7D6C600F7DECE00C6B5AD00C6BDB50094949400424242005252 + 5200737373007B7B7B008C8C8C0094949400848484009C9C9C00ADADAD00ADAD + AD00C6C6C600D6D6D600CECECE00D6CECE000000000000000000000000000000 + 000000000000E7E7E700B59C9C00CE9C9C00FFDEDE00FFDEE700FFCED600FFCE + CE00FFCECE00FFCECE00DEB5BD00C6BDBD00F7F7FF00E7E7E700DEDEDE00DEDE + DE00DEDEDE00DED6DE00DEDEDE00DEDEDE000000000000000000000000000000 + 000000000000393918007B7B2100848400002973C600216BCE002163CE00215A + AD00182139003152AD003152AD002152AD00107BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE7000000000000000000000000000000 + 000000000000CEB5AD00B59C9C00CE9C9C00FFDEDE00FFDEE700FFCED600FFCE + CE00FFCECE00FFCECE00DEB5BD00C6BDBD00F7F7FF00E7E7E700DEDEDE00DEDE + DE00DEDEDE00DED6DE00DEDEDE00DEDEDE000000000000000000BDBDBD00AD9C + 9400E7CEB500F7DECE00EFD6CE00BDADA500CEC6BD0063636300000000000808 + 0800000000000000000000000000000000000808080018181800313131003131 + 31003939390039393900424242005A5A5A000000000000000000000000000000 + 0000E7E7E700AD9C9400CE9C9C00F7D6D600FFDEE700FFCED600FFCECE00FFCE + CE00FFCECE00FFCECE00DEB5BD00C6BDBD00FFFFFF00F7F7FF00F7EFF700F7F7 + F700D6D6D6007B7B7B006B6B6B009C9C9C000000000000000000000000000000 + 0000000000005A5A18006B6B290084840000186BD600216BCE002163CE001852 + 9C0018214200315AB5002952AD002152AD00107BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE7000000000000000000000000000000 + 0000CEB5AD00B59C9C00CE9C9C00F7D6D600FFDEE700FFCED600FFCECE00FFCE + CE00FFCECE00FFCECE00DEB5BD00C6BDBD00FFFFFF00F7F7FF00F7EFF700F7F7 + F700D6D6D6007B7B7B006B6B6B009C9C9C0000000000E7E7E700A59C9C00D6B5 + A500F7D6C600F7DECE00E7CEBD00BDA59C00D6CEC6005A5A5A00212121004242 + 42004242420042424200181818000000000000000000000000004A4A4A004242 + 420031313100393939001818180029292900000000000000000000000000E7E7 + E700B59C9C00CE9C9C00FFDEDE00FFDEE700FFCED600FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00DEB5BD00B5ADB500DEDEDE00DEDEDE00DEDEDE00E7DE + E700C6C6C60063635A0042393900ADADAD000000000000000000000000000000 + 000000000000000000004A42290084840000186BD600186BCE002163CE001842 + 7B0018294A00315ABD003152AD002152B500187BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE700000000000000000000000000CEB5 + AD00B5A59C00CE9C9C00FFDEDE00FFDEE700FFCED600FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00DEB5BD00B5ADB500DEDEDE00DEDEDE00DEDEDE00E7DE + E700C6C6C60063635A0042393900ADADAD0000000000C6CECE00AD9C9400EFCE + BD00F7DEC600F7DECE00DEC6B500BDA59C00C6BDB50063636300292929007373 + 730063636300636363005A5A5A00393939003131310031313100393939003131 + 31003939390031313100101010004A4A4A000000000000000000E7E7E700AD9C + 9C00CE9C9C00F7D6DE00FFDEE700FFCED600FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00EFBDC600C6A5AD00BDA5B500BDADB500BDADB500BDAD + B500BDADB500B59C9C00946B63006B5252000000000000000000000000000000 + 000000000000000000004A422900296B9C001873DE00186BCE00296BCE001829 + 4A0021397300315ABD003152AD002152B500187BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE7000000000000000000CEB5AD00B59C + 9C00CE9C9C00F7D6DE00FFDEE700FFCED600FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00EFBDC600C6A5AD00BDA5B500BDADB500BDADB500BDAD + B500BDADB500B59C9C00946B63006B525200F7F7F700B5ADAD00C6AD9C00F7D6 + C600F7D6C600F7DECE00D6BDAD00BDA59C00B5ADA50052525A00000000000000 + 00000000000010101000212121003131310042424200424242004A4A4A005252 + 52004A4A4A004A4A4A00525252004A4A4A0000000000E7E7E700B59C9C00CE9C + 9C00FFDEDE00FFDEE700FFCED600FFC6CE00FFC6C600FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFC6CE00FFC6CE00FFC6CE00FFD6 + D600FFDEE700FFD6DE00EFB5B500945A5A000000000000000000000000000000 + 000000000000000000005A5A420010427B001873E700186BCE002163BD001021 + 3100294A9C00315ABD003152AD002152B500187BE700107BE700107BE700107B + E700107BE700107BE700107BE700107BE70000000000CEB5AD00B5A59C00CE9C + 9C00FFDEDE00FFDEE700FFCED600FFC6CE00FFC6C600FFCECE00FFCECE00FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFC6CE00FFC6CE00FFC6CE00FFD6 + D600FFDEE700FFD6DE00EFB5B500945A5A00E7E7E700ADA59C00DEC6B500F7D6 + C600F7D6C600EFD6C600CEB5A500BDAD9C00BDB5AD0042424200292929004242 + 4200393939002929290008080800080808000808080010101000393939004242 + 42003131310029292900424242004A4A4A0000000000BDADAD00B5848400F7D6 + D600FFDEE700EFBDBD00DEA5AD00E7ADB500E7ADAD00FFC6C600FFCED600FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + D600FFD6DE00FFDEE700FFC6CE00B5737B000000000000000000000000000000 + 000000000000000000000000000010427B002173D600186BD6002152A5001018 + 2900315AAD00315ABD003152AD002152B500187BE700107BE700107BE700107B + E700107BE7001073E7001073E7001073E70000000000BDADAD00B5848400F7D6 + D600FFDEE700EFBDBD00DEA5AD00E7ADB500E7ADAD00FFC6C600FFCED600FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + D600FFD6DE00FFDEE700FFC6CE00B5737B00D6D6D600B5A59C00EFCEBD00EFD6 + C600F7D6C600EFD6BD00C6AD9C00BDAD9C00ADADA50039393900525252007B7B + 7B006B6B6B00525252005A5A5A005A5A5A006B6B6B0042424200212121002121 + 210010101000181818003131310031313100E7E7E700AD949400C69C9C00FFDE + DE00FFCED600C68C9400844A5200BD848400D69C9C00DEADAD00FFC6C600FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCED600E7ADB500A56B73000000000000000000000000000000 + 000000000000000000000000000094A5BD001873DE00186BD600213973001829 + 4A00295AC6003152AD00314AA500294AAD001873E7001073E700106BE7001073 + E7001073E7001073E7001873E7001073E700CEB5AD00AD949400C69C9C00FFDE + DE00FFCED600C68C9400844A5200BD848400D69C9C00DEADAD00FFC6C600FFCE + CE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + CE00FFCECE00FFCED600E7ADB500A56B7300CECECE00BDADA500EFCEBD00EFD6 + C600F7D6C600E7CEBD00B5A59400C6B5A500ADA5A50018181800181818003131 + 3100424242005A5A5200636363005A5A5A0063635A005A5A52004A4A4A004A4A + 4A0042424200424242004242420031313100C6B5B500AD7B7B00DEA5AD00FFC6 + CE00FFCED600C68C94006331310084525200B57B7B00C68C9400E7ADAD00F7BD + C600F7CECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + D600F7C6CE00DEADAD00A57373009C8C8C000000000000000000000000000000 + 000000000000000000004239290042424200395A8400398CDE00213952001852 + 9C00187BE7002973C6002163C6002973C60031ADEF0031B5F70031B5F70031B5 + F70018CEF70010D6FF0008DEFF0008E7FF00C6B5B500AD7B7B00DEA5AD00FFC6 + CE00FFCED600C68C94006331310084525200B57B7B00C68C9400E7ADAD00F7BD + C600F7CECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCECE00FFCE + D600F7C6CE00DEADAD00A5737300A5948C00C6C6C600C6B5A500EFD6BD00EFD6 + C600F7D6C600DEC6B500B59C9400C6B5A500B5B5AD0008081800000042000000 + 4200000031000000210000001800000018000000100008081000181018002121 + 210029292900313131003131310039393100BDB5B500A5737300CE949400E7AD + AD00EFB5B500B57B8400845A5A007B5A5A007B424200A5636300CE8C8C00D6A5 + A500D6BDBD00EFC6CE00F7C6CE00F7C6CE00F7C6CE00F7C6CE00F7C6CE00E7C6 + CE00C6A5AD009C6B73009C848400EFEFEF000000000000000000000000000000 + 00000000000000000000100810002121290052525A006BA5BD008C8C8C0052AD + EF00089CEF00189CF700188CF70031B5F70052FFFF0052FFFF0039F7FF0018FF + FF0008F7EF0008E7EF0008FFFF0008F7FF00BDB5B500A5737300CE949400E7AD + AD00EFB5B500B57B8400845A5A007B5A5A007B424200A5636300CE8C8C00D6A5 + A500D6BDBD00EFC6CE00F7C6CE00F7C6CE00F7C6CE00F7C6CE00F7C6CE00E7C6 + CE00C6A5AD009C6B73009C8C8C00C6B5AD00C6BDBD00CEB5AD00EFD6BD00EFD6 + BD00EFD6C600CEB5A500B59C9400C6ADA500A5A59C00080821000800AD001000 + C60010009C00100094001000AD0008009C00080073000800840008007B000000 + 630000004A0000004A000000390000002900BDADAD0094636300AD737300BD84 + 8C00B57B8400BD848400D69C9C00BD8C8C009C5A5A00844A42009C636300C68C + 8C00CEA5AD00CEB5B500CEB5BD00C6BDC600C6BDC600C6BDC600CEBDC600C6A5 + A5009C6B73009C8C8C00EFEFEF00000000000000000000000000000000000000 + 0000000000005273390010081000292131006B6B6B008C8C8C006B6B6B0094A5 + BD00299CF7001894EF00188CEF0031ADEF0039F7FF0018FFFF0018FFFF0010B5 + BD0010949C00185A630010B5BD0010849400BDADAD0094636300AD737300BD84 + 8C00B57B8400BD848400D69C9C00BD8C8C009C5A5A00844A42009C636300C68C + 8C00CEA5AD00CEB5B500CEB5BD00C6BDC600C6BDC600C6BDC600CEBDC600C6A5 + A5009C6B7300A5948C00C6B5AD0000000000C6C6C600CEBDAD00EFCEBD00EFCE + BD00EFD6BD00C6AD9C00B59C8C00C6B5AD008C8C8C0000000800000063000800 + 7B0008006B0008007B0008009C000800A500080084001000AD001000BD001000 + 9C0010009C001000B5000800AD0010008C00CEC6C60094736B00A56B6B00B584 + 8400CEA5A500F7C6CE00F7C6C600DEA5AD00C68C8C00945A5A007B424200A563 + 6300C6949400CE9C9C00CEA5A500C6B5B500C6B5B500C6B5B500BDA5A5009C6B + 73009C848400EFEFEF0000000000000000000000000000000000000000000000 + 00000000000039635A0010081000312931004242420039394200635A52007B9C + AD00299CF7001894EF001884EF0010ADEF0018FFFF0000FFFF0000F7F700185A + 630008E7EF0008DEE700187B840010737B00CEB5B50094736B00A56B6B00B584 + 8400CEA5A500F7C6CE00F7C6C600DEA5AD00C68C8C00945A5A007B424200A563 + 6300C6949400CE9C9C00CEA5A500C6B5B500C6B5B500C6B5B500BDA5A5009C6B + 73009C8C8C00C6B5AD000000000000000000CECECE00CEB5AD00EFCEBD00EFCE + BD00E7CEBD00B5A59400AD9C8C00B5AD9C00ADADAD004A4A4A00313131001818 + 2100101018000808180000001800000018000000210000003100000039000000 + 420000004A000000630000006B000000630000000000C6BDB500AD848400DEB5 + B500F7DEE700F7E7E700FFD6DE00F7BDC600DEA5A500C68C84009C5A5A00844A + 42009C636300BD848400C68C8C00C68C8C00C68C8C00BD8484009C6B73009C8C + 8C00EFEFEF000000000000000000000000000000000000000000000000000000 + 000000000000185A630031182100424242004242420021212900524A4A006BA5 + BD00299CF700108CEF001884EF0008ADEF0000FFFF0000FFFF0000FFFF00109C + AD0010949C00109CAD0008ADBD0008DEE70000000000C6B5AD00AD848400DEB5 + B500F7DEE700F7E7E700FFD6DE00F7BDC600DEA5A500C68C84009C5A5A00844A + 42009C636300BD848400C68C8C00C68C8C00C68C8C00BD8484009C6B7300A594 + 8C00C6B5AD00000000000000000000000000DEDED600CEB5A500E7C6B500EFCE + BD00DEC6B500B5A59400B59C9400A59C9400DEDEDE00FFFFFF00D6D6D600A5A5 + A5009C9C9C00A5A59C008C8C8C00A5A5A50084847B0063635A005A5A52003939 + 3900313139003131310021212900212129000000000000000000CEC6C600B594 + 9400EFC6C600F7EFEF00FFE7EF00FFD6DE00F7BDC600DEA5AD00C68C8C00945A + 5A007B424200945A5A009C6B63009C6B63009C635A00845252009C848400EFEF + EF00000000000000000000000000000000000000000000000000000000000000 + 000000000000009CDE0021395200524A4A004A4A4A006B6B6B004A4A390073AD + D600189CF700188CEF001884EF0008ADEF0000FFFF0000F7FF0000F7FF0000FF + FF0000D6DE0000D6DE0000EFFF0000F7FF000000000000000000C6B5B500BD94 + 9400EFC6C600F7EFEF00FFE7EF00FFD6DE00F7BDC600DEA5AD00C68C8C00945A + 5A007B424200945A5A009C6B63009C6B63009C635A00845252009C8C8C00C6B5 + AD000000000000000000000000000000000000000000C6B5AD00DEBDAD00E7C6 + B500EFD6C600DECEBD00DEC6BD00B5ADA500C6C6C600E7E7E700DEDEDE00ADAD + AD00A5A5A5008C8C8C0084848400E7E7E700DEDEDE00ADADAD00ADADAD009C9C + 9C00EFEFEF00EFEFEF008C8484009C9C9C00000000000000000000000000C6BD + BD00B58C8C00E7C6C600FFEFF700FFE7EF00FFD6DE00F7BDC600DEA5A500C68C + 84009C5A5A00844A42008C525200945A5200845252009C8C8C00EFEFEF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A9C840000ADFF00009CDE0029526B008C8C8C00393942002118180073AD + D6001894EF00188CEF00187BEF0008ADEF0000F7FF0000F7FF0010EFFF0018EF + F70039F7FF0052FFFF006BE7F7008CEFF700000000000000000000000000C6B5 + AD00B5948C00E7C6C600FFEFF700FFE7EF00FFD6DE00F7BDC600DEA5A500C68C + 84009C5A5A00844A42008C525200945A5200845252009C8C8C00C6B5AD000000 + 00000000000000000000000000000000000000000000CEC6BD00D6B5A500E7C6 + AD00EFD6C600EFDECE00F7DED600B5ADA5005A5A5A006B6B6B007B7B7B007B7B + 7B00848484007B7B7B0094949400ADADAD00949494007B7B7B009C9C9C009C9C + 9C00BDBDBD00BDC6BD00847B7B008C8C8C000000000000000000000000000000 + 0000C6C6BD00B58C8C00EFC6C600F7EFEF00FFE7EF00FFD6DE00F7BDC600DEA5 + AD00C68C8C00945A5A007B424200844A4A009C848400EFEFEF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031B5AD0000ADEF0000ADFF0042ADDE00C6BDB5008C8C8C002118180073AD + D600188CF7002184EF00187BEF0008ADEF0000F7FF0010EFFF00ADD6D600DEE7 + DE00F7EFE700E7DEDE00FFF7F700FFFFFF000000000000000000000000000000 + 0000C6B5B500B5948C00EFC6C600F7EFEF00FFE7EF00FFD6DE00F7BDC600DEA5 + AD00C68C8C00945A5A007B424200844A4A009C8C8C00C6ADAD00000000000000 + 00000000000000000000000000000000000000000000DEDEDE00CEB5A500DEBD + A500DECEBD00E7D6CE00EFDECE00635A520008101000A5A5A500DEDEDE005252 + 52002121210084848400BDBDBD0063636300393939006B6B6B008C8C8C007B7B + 7B0073737300737373007B7B7B007B7B7B000000000000000000000000000000 + 000000000000C6BDB500B58C8C00E7BDC600FFEFF700FFE7EF00FFD6DE00F7BD + C600DEA5A500C68C8400945A5A007B5A5A00BDBDBD0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010ADDE0000ADF70000A5F70042ADDE007B9CAD0094A5BD008C8C8C0052AD + EF00108CF7002184EF00187BEF0008ADEF0000F7FF0010EFFF00CED6D600FFFF + FF00FFFFFF00E7DEDE00FFF7F700FFFFFF000000000000000000000000000000 + 000000000000C6B5AD00B5948C00E7BDC600FFEFF700FFE7EF00FFD6DE00F7BD + C600DEA5A500C68C8400945A5A007B5A5A00C6B5B50000000000000000000000 + 0000000000000000000000000000000000000000000000000000CEC6BD00D6B5 + 9C00BDA59400AD9C9400ADA59C00424239008C8C8C00EFEFEF00635A5A000000 + 000063636300FFFFFF00949494000000000031313100DEDEDE00C6C6C6001821 + 210021212100BDBDBD00BDBDBD00393939000000000000000000000000000000 + 00000000000000000000C6BDBD00B58C8C00EFC6C600F7EFEF00FFEFEF00FFD6 + DE00F7BDC600DEA5AD00C68C8C00945A5A0084636300D6CECE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000ADF70000A5F70000A5F700009CF70018A5F700299CF70031A5FF00299C + F7001884EF001884EF00187BEF0008ADEF0000F7FF0010EFFF00CED6D600EFE7 + DE00EFE7DE00CED6D600CED6D600ADD6D6000000000000000000000000000000 + 00000000000000000000C6B5B500B5948C00EFC6C600F7EFEF00FFEFEF00FFD6 + DE00F7BDC600DEA5AD00C68C8C00945A5A0084636300CEB5B500000000000000 + 0000000000000000000000000000000000000000000000000000EFE7E700D6BD + AD00C69C8C00B5A59400B5ADA500ADA59C00C6BDB500BDB5AD00847B7B008C84 + 7B00CECEC600C6BDBD005A52520052524A00D6D6D600D6CECE00292921002121 + 1800BDBDB500E7E7E70042424200000000000000000000000000000000000000 + 0000000000000000000000000000C6BDBD00B58C8C00E7BDC600FFEFF700FFE7 + EF00FFD6DE00F7BDC600DEA5A500C68484008C5A5A008C7B7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000004A9C + 840000A5F70000A5F700009CF700089CEF00189CF7001894EF001894EF00188C + EF00188CEF001884EF00187BE70008ADEF0000F7FF0010EFFF008CD6D6006BC6 + CE004AC6DE0029D6EF0008D6F70000D6F7000000000000000000000000000000 + 0000000000000000000000000000C6B5AD00B5948C00E7BDC600FFEFF700FFE7 + EF00FFD6DE00F7BDC600DEA5A500C68484008C5A5A008C7B7B00000000000000 + 000000000000000000000000000000000000000000000000000000000000E7DE + DE00CEB5A500D6B59C00EFD6CE00F7EFE700F7E7DE00EFE7D600F7E7DE00FFEF + E700F7E7DE00E7DED600E7DED600F7E7DE00EFDED600CEB5A500BD9C8400C6AD + 9C00EFDED600D6D6D600949494009C9C9C000000000000000000000000000000 + 000000000000000000000000000000000000C6BDBD00B58C8C00EFC6C600F7EF + EF00FFEFEF00FFD6DE00F7BDC600DEA5AD00AD737300846B6B00000000000000 + 00000000000000000000000000000000000000000000000000000000000052B5 + 8C0029B5DE0010ADEF00009CF700089CEF00108CEF00108CEF00108CEF00108C + F7001084EF001884EF00187BE70008ADEF0000EFFF0000E7FF0000DEFF0000DE + FF0000DEFF0000DEFF0008DEFF0018D6E7000000000000000000000000000000 + 000000000000000000000000000000000000C6B5B500B5948C00EFC6C600F7EF + EF00FFEFEF00FFD6DE00F7BDC600DEA5AD00AD737300846B6B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7E7DE00D6B5A500D6AD9C00D6BDB500DECEC600EFE7DE00F7EFE700C6BD + B500B5ADA500E7DED600F7EFEF00A59C940073635A00BDA59C00EFDED6007363 + 630031313100B5B5B500FFFFFF006B6B6B000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6BDBD00B58C8C00E7BD + C600FFEFF700FFEFEF00FFD6D600DEA5AD009C6B6B009C8C8C00F7FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A9C840073B594006BA5BD005294CE00398C + DE002184EF00107BEF001073E70000A5F70000E7FF0008E7FF0029D6EF0039CE + C60052B5AD000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6B5AD00B5949400E7BD + C600FFEFF700FFEFEF00FFD6D600DEA5AD009C6B6B00A5948C00CEB5AD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7F7EF00DECEC6008C7B7300181818005A525200EFEFEF009C9C + 9C000000000029292900DEDEDE00B5B5B5000808080018181800C6CECE00CECE + D6002121210008080800BDBDBD00E7E7E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6C6C600B58C + 8C00E7BDBD00E7D6D600DEBDBD00AD7B7B009C848400E7E7E700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004A9C84007B9C8C0052B5AD0073B5940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6B5B500B594 + 9400E7BDBD00E7D6D600DEBDBD00AD7B7B009C848400C6B5AD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E7006B6B6B0018181800848484000000 + 00009C94940039393900948C8C0000000000C6C6C60084848400B5B5B5000000 + 0000E7E7E700C6C6C600E7E7E700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDAD + AD00A5736B00AD737300A57373009C847B00E7E7E70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDAD + AD00A5736B00AD737300A57373009C847B00CEB5AD0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A0000E7E70000E7E7 + 0000E7E70000E7E7000084840000848400005A5A0000A5AD9C00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7DE00C6AD6B00DEAD + 0000DEAD0000CED6CE00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000CE4A0000CE4A0000000000008463 + 0000FFBD5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD + 0000CE4A0000FFBD5A00CE4A0800000000000000000000000000000000000000 + 00000000000000000000CEB5AD00FFE7CE00CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00FFDEC600FFDEBD00FFDEBD00FFDEBD00FFD6BD00FFD6BD00FFD6B500FFD6 + B500FFD6BD00D6948400CE003100F7BD840000000000000000005A947B00109C + D60008ADE70010ADEF0008B5F7001063B50021318C00109CEF0008ADFF0010A5 + FF0010A5FF00109CFF00109CFF00109CFF00109CFF00109CEF00183994002939 + 630094B5B500EFF7F700F7FFFF00F7FFFF0000000000BDBD0000E7E70000E7E7 + 0000E7E70000E7E70000BDBD00005A5A000021212100CED6CE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700C6AD6B00DEAD + 0000C6AD6B00F7F7EF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000CE4A00006BBD0000CE4A0000CE4A00008463 + 0000FFBD5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000CE4A0000FFBD5A00D6B59400CE4A08000000000000000000000000000000 + 00000000000000000000D6BDAD00FFE7CE00FFE7CE00FFE7CE00FFE7CE00FFDE + C600CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00FFD6 + B500FFD6BD00D6948400D6CECE00CE0031000000000021ADD60008A5DE0008AD + E70008BDEF0008BDF70008BDFF002163B50029399C0008ADF70008BDFF0008B5 + FF0008ADFF0008ADFF0008ADFF0008A5FF0008A5FF0000A5FF002942AD001839 + 9400087BC600CEEFE700FFFFFF00FFFFFF005A5A0000E7E70000E7E70000E7E7 + 0000E7E70000E7E700005A5A00000000000000000000CED6CE00FFFFFF00FFFF + FF00FFFFFF00B5BDB500B5BDB50084948C006B6B6B00CED6CE00C6AD6B009C8C + 3900A5AD9C00CED6CE00F7F7F700FFFFFF000000000000000000000000000000 + 000000000000000000006BBD00006BBD0000CE4A00000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00FFBD5A00CE4A0000000000000000000000000000000000000000 + 00000000000000000000D6BDAD00FFE7D600CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00FFE7CE00FFDEC600FFDEC600FFDEC600FFDEC600FFDEBD00FFDEBD00FFD6 + BD00FFD6BD00D6948400CE003100FFCE94000000000021ADD60008ADE70008B5 + EF0008C6EF0008C6F70008C6FF002163B50029399C0008B5F70008BDFF0008BD + FF0008B5FF0008B5FF0008B5FF0008ADFF0008B5FF0008ADFF002942AD001839 + 940031B5F700F7FFFF00FFFFFF00FFFFFF005A5A0000BDBD0000E7E70000E7E7 + 0000BDBD00005A5A0000848400000000000000000000C6CEB500FFFFFF00EFEF + EF0084948C006B6B6B00B5BDB500CED6CE00CED6CE006B6B6B00DEAD0000DEAD + 00006B6B6B006B6B6B006B6B6B00CED6CE000000000000000000000000000000 + 000000000000CE4A00006BBD00006BBD0000CE4A000000000000000000000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00CE4A0000CE4A000000000000000000000000000000000000000000000000 + 00000000000000000000D6BDB500FFE7D600FFE7D600FFE7D600FFE7CE00FFE7 + CE00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00FFDE + BD00FFD6BD00CE003100CE003100CE0031000000000010BDDE0008B5E70008C6 + EF0010CEF70010CEFF0010CEFF00295AB50029399C0010BDFF0008C6FF0008BD + FF0008BDFF0008BDFF0008BDFF0008BDFF0008BDFF0008B5FF002952B5001839 + AD0052A5DE00FFFFFF00FFFFFF00FFFFFF00000000005A5A0000E7E70000E7E7 + 0000313131003131310031313100000000000000000084948C0084948C006B6B + 6B00CED6CE00EFEFEF00FFFFFF00FFFFFF00FFFFFF00E7DEDE00DEAD0000DEAD + 000084948C00F7F7F700EFEFEF006B6B6B000000000000000000000000000000 + 0000CE4A00006BBD00006BBD00006BBD00006BBD0000CE4A0000000000000000 + 000000000000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A + 0000CE4A00000000000000000000CE4A00000000000000000000000000000000 + 00000000000000000000DEC6B500FFEFDE00CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00FFDEC600FFDE + C600FFD6BD00D6948400D6CECE00000000000000000010C6DE0010C6E70010CE + F70010D6F70010D6FF0010D6FF00295ABD002942AD0010C6FF0008CEFF0008C6 + FF0008C6FF0008C6FF0008C6FF0008BDFF0008C6FF0008BDFF002952BD001839 + AD005A9CD600FFFFFF00FFFFFF00FFFFFF0000000000000000005A5A00000000 + 000031313100000000000000000000000000000000000039520084948C00F7F7 + F700FFFFFF00FFFFFF00E7DEDE00CED6CE00B5BDB500C6CEB50084948C008494 + 8C00E7E7DE00FFFFFF00FFFFFF00EFEFEF000000000000000000000000000000 + 000000000000CE4A00006BBD00006BBD0000CE4A000000000000000000000000 + 00000000000000000000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DEC6B500FFEFDE00FFEFDE00FFEFD600FFE7D600FFE7 + D600FFE7D600FFE7CE00FFE7CE00FFE7CE00FFE7CE00FFDEC600FFDEC600FFDE + C600FFD6BD00D6948400D6CECE00000000000000000010CEE70008C6EF0008D6 + EF0010DEF70008DEFF0010DEFF00295ABD003152B50010CEFF0008DEFF0008CE + FF0008CEFF0010CEFF0008CEFF0010CEFF0008CEFF0008C6FF00295AC6002942 + B5002994DE00EFF7F700FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000313131000000000000000000635A5A00CED6CE00FFFFFF00C6CE + B500394239003942390031313100394239003942390039423900394239003942 + 3900394239006B6B6B00E7DEDE00FFFFFF000000000000000000000000000000 + 000000000000CE4A00006BBD0000CE4A00000000000000000000000000000000 + 0000000000000000000000000000CE4A0000CE4A0000CE4A0000CE4A00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DEC6B500FFEFDE00CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00CE9C8C00FFDECE00FFDE + C600FFD6BD00D6948400D6CECE00000000000000000008D6E70010CEF70010DE + F70010E7FF0010E7FF0010DEFF00315AB500315ABD0010D6FF0008DEFF0010D6 + FF0010D6FF0010D6FF0010D6FF0008CEFF0008CEFF0010CEFF003163CE00394A + B50008ADFF006BADD600EFEFEF00FFFFFF000000000000000000000000000000 + 0000000000006B6B6B000000000039423900E7DEDE00EFEFEF00212121003942 + 390000639C0000639C0000639C0021ADFF0021ADFF0021ADFF0021ADFF000063 + 9C00394239002121210031313100A5AD9C000000000000000000000000000000 + 0000CE4A00006BBD0000CE4A0000000000000000000000000000000000000000 + 000000000000000000000000000000000000CE4A0000CE4A0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E7CEBD00FFEFE700FFEFE700FFEFDE00FFEFDE00FFEF + DE00FFEFDE00FFE7D600FFE7D600FFE7D600FFE7CE00FFE7CE00FFE7CE00FFDE + CE00FFD6BD00D6948400D6CECE00000000000000000008D6E70008D6EF0010E7 + F70010E7FF0010EFFF0010E7FF00315ABD00395ABD0010E7FF0010E7FF0010DE + FF0008DEFF0010DEFF0010DEFF0010D6FF0010DEFF0010D6FF003163CE00394A + B50010BDFF0000BDF70039A5D600ADCED6000000000000000000000000000000 + 000000000000000000006B6B6B0031313100E7E7DE0021212100000000003942 + 390000639C0021ADFF0021ADFF0021ADFF0021ADFF0021ADFF0021ADFF0021AD + FF0021ADFF00008CCE003131310021212100000000000000000000000000CE4A + 0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000CE4A00000000000000000000000000000000000000000000000000000000 + 0000CE4A0000CE4A0000CE4A0000CE4A00000000000000000000000000000000 + 00000000000000000000E7CEBD00FFF7E700CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00CE9C8C00CE9C8C00FFEFD600FFDEC600FFDEC600FFDEC600FFDEC600FFE7 + CE00FFD6BD00D6948400D6CECE00000000000000000000E7EF0008D6EF0010EF + F70010F7FF0010F7FF0010E7FF00395ABD003163CE0010EFFF0010EFFF0010E7 + FF0010E7FF0010E7FF0010E7FF0008DEFF0010DEFF0010DEFF00396BD600394A + B50010BDFF0008D6FF0000BDFF0008ADF7000000000000000000000000000000 + 00000000000000000000635A5A00CED6CE002121210000000000000000000000 + 0000000000003942390000639C0021ADFF0021ADFF0021ADFF0021ADFF0021AD + FF0021ADFF0021ADFF0000639C0000639C000000000000000000CE4A0000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00CE4A0000CE4A00000000000000000000000000000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A000000000000000000000000000000 + 00000000000000000000EFD6BD00FFF7EF00FFF7E700FFEFE700FFEFE700FFEF + DE00FFEFDE00FFEFDE00C66331008C4A2100FFDEC600FFDEC600FFDEC600FFDE + C600FFD6BD00D6948400B5B5B500D6CECE000000000000E7EF0008D6EF0010FF + FF0010FFFF0010FFFF0018EFFF004252BD003973D60010F7FF0010F7FF0010F7 + FF0010EFFF0010EFFF0010EFFF0010EFFF0010EFFF0010EFFF003973D6004252 + BD0010CEFF0008DEFF0010D6FF0000CEFF000000000000000000000000000000 + 0000000000000000000000000000212121000000000000000000000000000000 + 00000000000039423900394239003942390000639C0000639C0000639C00008C + CE0021ADFF0021ADFF0021ADFF0021ADFF000000000000000000CE4A0000FFBD + 5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A000000000000000000000000000000 + 00000000000000000000EFD6C600FFF7EF00CE9C8C00CE9C8C00CE9C8C00FFEF + E700FFEFE700FFEFDE00C6633100E7AD94008C4A2100FFDEC600FFDEC6008C4A + 21008C4A2100A5522900944A2100944A21000000000000E7EF0010CEE70010CE + E70010CEE70008D6E70008B5E7002942AD00215AB50010D6F70010D6FF0010CE + F70010C6FF0010CEFF0010CEFF0010CEFF0008CEFF0008BDF700395AC6003142 + AD0010ADEF0008BDF70008B5F70008BDEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006B6B6B00EFEFEF00FFFFFF006B6B6B002121210039423900394239003942 + 3900394239003942390039423900394239000000000000000000CE4A0000FFBD + 5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A008400000084000000840000008400 + 000084000000840000008400000084000000FFF7EF00FFF7EF00FFF7EF00FFF7 + E700FFF7E700FFEFE700FFEFDE00DEC6B50084848400AD522900AD5A2900E7AD + 9400EFD6C600EFBDA500E7A58C00D6845A000000000008EFEF0010E7EF0010DE + EF0010DEEF0010DEEF0010C6E7003142AD004239A5002994DE0010CEF70010CE + F70010D6FF0010CEFF0010D6FF0010D6FF001063B500087BC600109CD600109C + D60008B5EF0008B5EF0008A5DE00295AAD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006B6B + 6B00CED6CE00FFFFFF00B5BDB500A5AD9C003131310021212100212121008494 + 8C00C6CEB50084948C0000000000000000000000000000000000CE4A0000FFBD + 5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A0000CE4A0000CE4A0000CE003100DE4A0000DE4A0000E763 + 1800E7631800EF7B390084000000FFF7F700FFF7EF00FFF7EF00FFF7EF00FFF7 + EF00FFF7E700FFEFE700FFEFE700FFEFDE00C6C6C600C6633100FFF7F700FFF7 + EF00F7DED600EFC6AD00E7AD8C00DE9C73000000000008EFEF0010F7F70010FF + FF0010FFFF0010FFFF0018DEFF00525AC6005A4ABD0029ADE70010F7FF0010E7 + FF0010FFFF0010FFFF0010FFFF0010C6E7000852BD0010DEF70010FFFF0010FF + FF0010EFFF0010EFFF0010CEFF004252BD000000000000000000000000000000 + 00000000000000000000000000006B6B6B000000000000000000000000002121 + 2100F7F7F700CED6CE0021212100B5BDB500313131002121210084948C00FFFF + FF00FFFFFF00EFEFEF00635A5A00000000000000000000000000CE4A0000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A00006BBD00006BBD0000DE4A0000DE4A0000E7631800E763 + 1800EF7B390084000000F7DEC600FFFFF700CE9C8C00CE9C8C00CE9C8C00CE9C + 8C00CE9C8C00CE9C8C00CE9C8C00FFEFE700FFEFE700F7E7DE00FFFFFF00FFF7 + EF00EFCEBD00E7A58C00D68C6300D68C5A000000000010EFEF0010F7F70010FF + FF0010FFFF0010FFFF0029D6F700525AC6005A4ABD0029ADE70010FFFF0010EF + FF0010DEFF0008CEFF0008A5FF000873DE0008BDF70010FFFF0010F7FF0010F7 + FF0010EFFF0010EFFF0010D6FF00395AC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002121 + 2100EFEFEF00EFEFEF00E7DEDE006B6B6B000000000021212100CED6CE00FFFF + FF00C6CEB500B5BDB50084948C00000000000000000000000000CE4A0000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A00006BBD00006BBD0000DE4A0000E7631800E7631800EF7B + 3900EF7B3900EF8C4A0084000000FFFFF700FFFFF700FFFFF700FFF7F700FFF7 + EF00FFF7EF00FFF7EF00FFF7EF00FFF7E700FFEFE700FFFFFF00FFFFFF00F7E7 + D600E7AD8C00D6845A00CE734200CE7342000000000010EFEF0010F7F70010FF + FF0010FFFF0010FFFF0029D6F700525AC6005A4ABD0029ADE70010FFFF0010FF + FF0010F7FF0008DEFF0008BDFF0010E7FF0010FFFF0010F7FF0010F7FF0010F7 + FF0010EFFF0010EFFF0010D6FF00395AC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000021212100EFEFEF006B6B6B00212121000000000031313100E7E7DE00FFFF + FF0021212100B5BDB5006B6B6B0000000000CE5208000000000084630000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A0000000000000000000000000000CE4A0000000000008463 + 0000FFBD5A00CE4A00006BBD00006BBD0000E7631800E7631800EF7B3900EF7B + 3900EF8C4A00EF8C4A00EF945A0084000000FFFFFF00FFFFF700FFFFF700FFFF + F700FFF7F700FFF7EF00FFF7EF00FFF7EF00FFF7E700FFFFFF00FFF7EF00EFC6 + B500DE946B00D67B4A00CE734200C66331000000000010EFEF0010F7F70010FF + FF0010FFFF0010FFFF0029D6F700525AC6005A4ABD0031B5F70010FFFF0010FF + FF0010FFFF0010FFFF0010FFFF0010FFFF0010FFFF0010F7FF0010F7FF0010EF + FF0010EFFF0010EFFF0010D6FF00395AC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003131310021212100000000000000000000000000B5BDB500FFFF + FF00E7DEDE00A5AD9C00000000000000000000000000CE4A000084630000FFBD + 5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000FFBD5A00FFBD5A00CE4A0000000000000000000000000000CE4A00008463 + 0000FFBD5A00CE4A0000CE4A0000CE4A0000E7631800EF7B390084000000EF8C + 4A00EF8C4A00EF945A00EF945A00F7A56B0084000000FFFFFF00FFFFF700FFFF + F700FFFFF700FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFFFFF00FFEFEF00E7BD + A500D68C6300D67B4A00B55A29008C4221000000000000E7EF0000EFEF0008F7 + FF0008F7FF0008F7FF0018C6F7004252BD004A42B50010ADEF0008F7FF0010F7 + FF0008F7FF0008F7FF0000E7FF0000E7FF0000E7FF0000E7FF0000E7FF0000DE + FF0008E7FF0000DEFF0000BDFF002952BD000000000000000000000000000000 + 000000000000000000000000000000000000000000006B6B6B00000000000000 + 000000000000000000000000000000000000000000000000000000395200A5AD + 9C00A5AD9C003131310000000000000000000000000000000000CE4A0000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A0000CE4A00000000000000000000CE4A000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00EF7B39008400000000000000CE00 + 3100EF945A00EF945A00F7A56B00F7A56B00F7AD730084000000F7D6B500EFCE + B500EFCEAD00EFC6AD00E7C6AD00E7C6AD00E7BDA500FFFFFF00FFF7EF00EFC6 + B500DE946B00D67B4A008C4A2100E7BDA50000000000000000009CCEB5009CCE + B5009CCEB5009CCEB50094B5B5007384A5007384A50094B5B5007BD6DE0029D6 + F70084B5A50084B5A5009CCEB5009CCEB50094BD9C0094BD9C0094BD9C0094BD + 9C00429CCE0052A5DE007BA5B500526B8C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000635A5A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000635A5A00000000000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A + 0000CE4A0000CE4A00006BBD0000CE4A0000CE4A00006BBD0000CE4A00000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00CE00310000000000000000000000 + 0000CE003100F7A56B00F7A56B00F7AD7300F7AD7300F7BD8400840000000000 + 00000000000000000000EF8C4A00EF8C4A00CE003100FFFFFF00FFFFFF00F7DE + D600E7B59400C6633100D68C6300F7E7D6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006BD6CE0031F7 + F700848400008484000084840000848400008484000084840000848400008484 + 00005273C60052A5DE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006B6B + 6B00000000000000000000000000000000000000000000000000000000000000 + 00000000000021212100635A5A00000000000000000000000000000000000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A0000CE4A + 00000000000000000000CE4A00006BBD00006BBD00006BBD00006BBD0000CE4A + 000000000000CE4A0000CE4A0000FFBD5A000000000000000000000000000000 + 000000000000CE003100F7AD7300F7AD7300F7BD8400F7BD8400FFCE94008400 + 0000EF8C4A00EF8C4A00EF8C4A00CE0031009C630000E7BDA500FFFFFF00FFF7 + F700F7DED600C6633100E7B59C00FFF7EF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000052EF + DE006BD6CE0084840000848400008484000084840000848400008484000052A5 + DE003173C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000635A5A006B6B6B0031313100000000000000000000000000212121000039 + 5200635A5A000000000000000000000000000000000000000000000000000000 + 000000000000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A00000000 + 0000000000000000000000000000CE4A00006BBD00006BBD00006BBD00006BBD + 0000CE4A000000000000CE4A0000CE4A00000000000000000000000000000000 + 00000000000000000000CE003100F7BD8400F7BD8400FFCE9400FFCE9400FFD6 + A5008400000084000000CE003100CE00310000000000C69C8C00EFCEBD00FFFF + FF00FFFFFF00DE947300DE946B00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031F7F70063CEDE008484000084840000848400008484000052A5DE002163 + E70052A5DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006B6B6B00635A5A00635A5A00635A5A00635A5A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE4A0000CE4A0000CE4A0000CE4A0000000000000000 + 000000000000000000000000000000000000CE4A00006BBD0000CE4A0000CE52 + 180073BD0000CE52180000000000CE4A00000000000000000000000000000000 + 0000000000000000000000000000F7BD8400FFCE9400FFCE9400FFD6A500FFD6 + A500FFE7B500FFE7B500FF9C6300000000000000000000000000C69C8C00D67B + 4A00EFBDA500EFCEBD00944A2100FFEFE7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000052EFDE004AE7F70063CEDE0052ADDE0052A5DE00429CCE0052A5 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE4A0000CE4A000000000000000000000000 + 00000000000000000000000000000000000000000000CE4A0000000000000000 + 0000CE5218000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6AD + A500C69C8C00D67B4A00D67B4A009C4A29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006BD6CE006BD6CE006BD6CE006BD6CE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE736300944A3900AD635200CE736300F79C + 8C00FFB59400F79C8C00AD635200F79C8C000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00EFEFEF00E7E7E700C6CECE00CEB5 + A500D6946300D6AD8C00CEBDAD00D6CECE00EFEFE700ADADA5004A4A42001818 + 180052525200CECECE00EFEFEF00EFEFEF0000000000FFD6D600F7D6D6005242 + 4200423139003931390073737B005252520029292900E7ADAD00A5424A000800 + 00001818180031101000181821006394BD0094CEFF004273B500002152000000 + 0800312929004A4A4A0084736B008C7B73000000000000000000000000000000 + 000000000000000000000000000000000000CE4A0000CE4A0000000000008463 + 0000FFBD5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD + 0000CE4A0000FFBD5A00CE4A0000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF7B7300FF7B7300FF7B + 7300CE736300CE736300AD635200AD635200CE736300E78C7300FF7B7300FF7B + 7300EF844200FF7B7300E78C7300E78C73000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00EFEFEF00DEDEDE00D6DEE700E7AD + 8C00F77B2100FF842900E77B3100C6B5AD007384CE008C94D60063637B003939 + 3100181818007B7B7B00EFEFEF00EFEFEF0010080800F7CECE004A3942002929 + 310031293100524A5200635A63000808100029212100DEA5A500AD4A52001808 + 10000810100008080800101821006B9CBD0094C6FF004A73B500184284000821 + 4A0008080800100808007B7B84006B6B84000000000000000000000000000000 + 0000000000000000000000000000CE4A00006BBD0000CE4A0000CE4A00008463 + 0000FFBD5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000CE4A0000FFBD5A00FFBD5A00CE4A00000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFE7DE00FFDE + D600FFDED600FFDED600FFDED600FFDED600FFDED600FFDEC600FFDEC600FFDE + C600FFCEBD00FFCEBD00FFCEBD00FFC6A5000000000000000000000000000000 + 00000000000000000000E7E7E700EFEFEF00F7F7F700D6D6D600CED6D600DE94 + 6B00F77B2900F77B2900E78C4A00C6BDD600425AF7004A63FF004A63DE004A4A + 5A002121210029292900738C7300BDCEBD0008000000FFDEDE00AD848C002118 + 2100423942001010180021101800A5848C00CECECE00EFD6DE00AD424A005A10 + 1800311821004A10100029182900639CBD0094CEFF00527BB500315A9C00214A + 8C0000214A0000184200214A8C00396BAD000000000000000000000000000000 + 000000000000000000006BBD00006BBD0000CE4A00000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00FFBD5A00CE4A0000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFF7EF00FFFF + FF00FFFFFF00FFFFFF00FFF7EF00FFEFEF00FFEFE700FFEFE700FFE7DE00FFE7 + DE00FFDED600FFDED600FFCEBD00FFBDAD000000000000000000000000000000 + 00000000000000000000E7E7E700EFEFEF00EFEFEF00D6D6D600DED6CE00D67B + 4200E7732900E7732900DE9C63009C9CDE003952F700425AFF003952F7007373 + 9C00524A4A0018181800104210004AAD4A00A5A5A50063525200F7CECE000000 + 000018101800A5848400C6BDBD00FFF7F700F7DEDE00DEB5B500CE848400B56B + 6B00943142007B101800312929004A84BD004252DE0018298C00315A9400396B + A5002952940021529400315A9C003963A5000000000000000000000000000000 + 000000000000CE4A00006BBD00006BBD0000CE4A000000000000000000000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00CE4A0000CE4A000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFEFE700FFB5 + 9400FFA56B00FFBD4A00FFAD4200FFBD4A00FFBD4A00FFAD4200FFBD4A00FFBD + 4A00FFAD4200FFAD4200FF9C3100FFAD42000000000000000000000000000000 + 00000000000000000000EFEFEF00EFEFEF00EFEFEF00CED6D600E7CEC600DE73 + 3100EF7B3100E7732900DEB594007384E7003142EF003952F700424AE700ADBD + BD004A7342003939390010101000526B5200C6B5AD0008080800F7C6C600A584 + 8C00ADADAD00FFF7F700F7D6D600DEC6C600CE9C9C00C6ADAD00B5CECE00C684 + 8400BD6363004A18180008080800184284000839E7000018B500101873001829 + 7B00395A9C00396BAD003963A5003963A5000000000000000000000000000000 + 0000CE4A00006BBD00006BBD00006BBD00006BBD0000CE4A0000000000000000 + 000000000000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A + 0000CE4A00000000000000000000CE4A00000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFE7DE00EF84 + 1000FFB50000FFB50000FFB50000FFB50000FFB50000FFB50000FFAD0000FFAD + 0000FFAD0000FFAD0000FFAD0000FFAD00000000000000000000000000000000 + 00000000000000000000F7F7F700F7F7F700E7E7E700D6D6D600D6AD9400D66B + 2900DE6B3100DE733100D6C6BD005263EF002939F7002942F7006363E70094D6 + 940018BD18004A5A4A002921290029212900C6ADA50008080800FFF7F700FFFF + FF00F7D6D600E7C6C600D69C9C00CE9C9C00D69C9C00E7BDBD00B5B5B5005A31 + 31004229290010213100001842000042B5000052FF000031DE000010AD000018 + 9C0010217B0021317B00315A9C00396BA5000000000000000000000000000000 + 000000000000CE4A00006BBD00006BBD0000CE4A000000000000000000000000 + 00000000000000000000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFEFE700FFA5 + 6B00FFBD0000FFC62100FFBD0000FFBD0000FFB50000FF9C0000FF9C0000FF9C + 0000FFAD0000FFB50000FFAD0000FFAD00000000000000000000000000000000 + 000000000000E7E7E700F7F7F700F7F7F700DEDEDE00E7E7E700DE9C7300D663 + 2900D66B2900D67B4200BDB5D6002939E7002931EF002131EF008484EF006BD6 + 630008CE0000299429004A4A4A0018181800C6ADA500000000006B6B6B00EFD6 + D600DEA5A500CEA5A500B5C6CE00C67B8400CE949400735A52004A3939000818 + 2100001039000031A5001052DE00529CFF005A9CF7002152BD00002994000029 + A5000018AD000018A50018217B0021317B000000000000000000000000000000 + 000000000000CE4A00006BBD0000CE4A00000000000000000000000000000000 + 0000000000000000000000000000CE4A0000CE4A0000CE4A0000CE4A00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CE736300CE736300CE736300CE73 + 6300DE731800DE731800DE731800DE731800EF844200EF844200E78C7300FF7B + 7300EF844200FF9C0000FFB50000FFAD00000000000000000000000000000000 + 000000000000EFEFEF00F7F7F700F7F7F700D6D6D600DEDED600D67B5200D65A + 2100D6632900E7A57300A5A5E7001021E7002129EF002129E7009CA5DE0031CE + 290000BD000008C608003973390039313900C6ADA5009C9494008C8484005A42 + 420073525200D6B5B500BDC6C6005A2929005231310008102100001039000031 + A5001052D600428CF7006BADFF00A5D6FF009CCEEF004A73AD0018396B000829 + 3900002963000029A5000018A50000109C000000000000000000000000000000 + 0000CE4A00006BBD0000CE4A0000000000000000000000000000000000000000 + 000000000000000000000000000000000000CE4A0000CE4A0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F79C8C00E78C7300F79C8C00F79C8C00FFBD + AD00FFCEBD00FFCEBD00FFCEBD00FFDED600FFE7DE00FFF7EF00FFEFE700FFB5 + 9400DE731800FF9C0000FFB50000FFB500000000000000000000000000000000 + 000000000000EFEFEF00F7F7F700F7F7F700D6D6D600EFE7E700DEB59400DE94 + 7300D68C5200EFC6A5007373E7000818E7001821EF002931E700B5CEC60039CE + 310008BD080008C6080073BD73006B636B00C6ADA500C6ADA500C6ADA5002121 + 2900000000005A4242006B4A4A0008102100001031000039A5000852CE00428C + FF0063ADFF009CCEFF00ADD6FF00ADDEFF009CCEEF004A73B500214A8C000829 + 31000010000000212900003194000031AD00000000000000000000000000CE4A + 0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000CE4A00000000000000000000000000000000000000000000000000000000 + 0000CE4A0000CE4A0000CE4A0000CE4A00000000000000000000000000000000 + 00000000000000000000FF7B7300CE736300FF7B7300FFCEBD00FFCEBD00FFDE + C600FFDED600FFDEC600FFE7DE00FFE7DE00FFEFE700FFBDAD00F79C8C00EF84 + 4200EF841000FFB50000FFB50000FFB500000000000000000000000000000000 + 000000000000F7F7F700F7F7F700EFEFEF00DED6D600EFF7F700F7FFFF00F7F7 + F700EFE7E700EFE7E7003939DE000810E7000810E700424ADE00EFF7EF00D6EF + D600BDE7BD0094E79400D6EFD600A5A5A500C6ADA500C6ADA500C6ADA5005A52 + 5A00101010005A5A52000008180000319C00084AC600398CFF005AA5FF009CCE + FF00ADDEFF009CCEFF00A5CEFF00D6F7FF00D6FFFF0073A5D60029529C001039 + 7B0018394A0018394A0018396300082942000000000000000000CE4A0000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00CE4A0000CE4A00000000000000000000000000000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A000000000000000000000000000000 + 00000000000000000000F79C8C00FFDED600CE736300FFCEBD00FFDEC600FFDE + C600FFDED600FFE7DE00FFEFE700FFEFE700F79C8C00FFC6A500FFB59400EF84 + 1000FFB50000FFB50000FFB50000FFB500000000000000000000000000000000 + 0000E7E7E700F7F7F700F7F7F700E7E7E700DEDEDE00EFEFEF00EFEFEF00EFEF + EF00F7F7F700D6D6F7001010E7000000E7000000E7007B7BE700FFFFF700FFF7 + FF00FFF7FF00FFF7FF00FFF7FF00EFEFEF00C6ADA500C6ADA500C6ADA500524A + 520021212100E7E7E700212939003173E70052A5FF00A5D6FF00ADDEFF009CCE + FF009CD6FF00BDE7FF00D6EFFF00C6DEEF00ADD6EF008CBDEF006B9CD6005A8C + C6003963AD00315AA500395A9C00183942000000000000000000CE4A0000FFBD + 5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A000000000000000000000000000000 + 000000000000FF7B7300FFEFE700FFFFFF00FF7B7300FFCEBD00FFDED600FFE7 + DE00FFE7DE00FFEFE700FFEFE700F79C8C00FFCEBD00FFCEBD00EF841000FFB5 + 0000FFBD0000FFB50000FFB50000FFB500000000000000000000000000000000 + 0000E7E7E700F7F7F700F7F7F700DEDEDE00E7E7E700F7F7F700F7F7F700F7F7 + F700F7F7F700BDBDE700424AE7002931E7001829E700B5BDEF00FFFFF700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700C6ADA500C6ADA500C6ADA500524A + 520018181800D6D6D6003131390094BDDE00B5E7FF009CCEFF009CCEFF00BDE7 + FF00C6E7FF00BDE7F700B5D6E70073ADD6005A94CE006BA5D6008CC6F7008CC6 + F7006B9CCE005A84BD003963A500295294000000000000000000CE4A0000FFBD + 5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A000000000000000000000000000000 + 0000FF7B7300FFBDAD00FFFFFF00FFFFFF00FFBDAD00F79C8C00FFE7DE00FFE7 + DE00FFEFEF00FFEFE700FFBDAD00FFE7DE00FFE7DE00EF844200FFB51800FFBD + 0000FFBD0000FFBD0000FFB50000FFB500000000000000000000000000000000 + 0000F7EFEF00FFF7F700F7F7F700EFEFEF00F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F700F7F7F700EFEFF700CECEF700B5B5EF00E7E7F700FFF7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700C6ADA500C6ADA500C6ADA5009C94 + 940018181800D6D6D6003131390084B5DE00A5DEFF00B5E7FF00C6E7FF00BDE7 + F700BDD6EF0073ADD6005294C6004273A5004273A500639CCE006BA5D6006BA5 + D6008CC6F70094C6F7006394CE005284BD000000000000000000CE4A0000FFBD + 5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A0000CE4A0000CE4A00000000000000000000000000000000 + 0000F79C8C00FFF7EF00FFFFFF00FFFFFF00FFEFE700FF7B7300FFBDAD00FFEF + EF00FFCEBD00FFB59400FFF7EF00FFEFE700FFA56B00FFB51800FFC62100FFC6 + 2100FFBD0000FFBD0000FFBD0000FFBD0000000000000000000000000000C6AD + A500CEEFF700EFF7F700FFFFF700FFFFFF00FFFFF700FFF7F700FFF7F700F7F7 + F700F7F7F700F7F7F700FFFFF700FFFFF700FFFFF700FFFFF700F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700C6ADA500C6ADA500C6ADA500C6AD + A50084847B00C6B5AD00293131009CC6E700CEEFFF00BDEFF700C6DEEF0073A5 + D6005294CE005A8CC6004A7BB500315A9400315A9400396BA5004A7BB500639C + CE00639CCE006BA5D60094C6F70094C6F7000000000000000000CE4A0000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A00006BBD00006BBD0000000000000000000000000000FF7B + 7300FFE7DE00FFFFFF00FFF7EF00FFFFFF00FFFFFF00FFCEBD00F79C8C00FFBD + AD00FFCEBD00FFFFFF00FFFFFF00FFC6A500FFB51800FFBD4A00FFC62100FFC6 + 2100FFC62100FFBD0000FFBD0000FFBD000000000000000000000000000094CE + E70031CEFF0052D6FF007BDEFF0094E7FF00BDEFFF00E7F7FF00F7F7F700FFFF + F700FFFFF700FFFFF700FFFFF700FFF7FF00FFF7F700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6B5AD0018212100ADD6DE00D6F7FF006BA5D6005A94CE00639C + CE005A8CC6004A7BB500638CCE00A5D6FF009CCEF700426BA50029528C004A7B + AD00639CCE006BA5D600639CCE0063A5CE000000000000000000CE4A0000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A00000000000000000000000000000000000000000000CE4A + 0000FFBD5A00CE4A00006BBD00006BBD00000000000000000000FF7B7300FFBD + AD00FFF7EF00FFF7EF00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFCEBD00FF9C3100FFAD4200FFC62100FFC62100FFC6 + 2100FFC62100FFC62100FFBD0000FFBD000000000000000000000000000073CE + EF0029CEFF007BDEFF00C6E7F7008CDEF7004AD6FF0042D6FF005AD6FF008CE7 + FF00ADEFFF00CEEFFF00E7F7FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADAD0063636300315A840042739C0063A5D60073ADDE005A94 + C6004A7BB5007BA5DE0094C6F700A5D6FF00A5D6FF0094C6FF006B9CCE003163 + 9400528CBD00639CCE00639CCE006BA5D600CE4A00000000000084630000FFBD + 5A00CE4A00006BBD00006BBD00006BBD0000CE4A00006BBD00006BBD0000CE4A + 0000FFBD5A00CE4A0000000000000000000000000000CE4A0000000000008463 + 0000FFBD5A00CE4A00006BBD00006BBD000000000000FF7B7300F79C8C00FFEF + E700FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFEFEF00FFDED600FFBDAD00FFBDAD00FFB59400FFA56B00FFA56B00FFAD + 4200FF9C3100FFB51800FFB51800FFAD00000000000000000000000000005ACE + F7005AD6FF00F7F7F700BDEFF70063D6FF009CE7F7005AD6FF0029CEFF0029CE + FF0029CEFF0039CEFF0052D6FF006BDEFF0094E7FF00BDEFFF00DEF7FF00F7F7 + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6B5AD00524A4A0031313900426B94005284AD006BA5 + D6006BA5D600396BA500426BAD007BA5DE007BADDE003963A500214A8400528C + BD005A8CC6004A73B5006394CE006394CE0000000000CE4A000084630000FFBD + 5A00CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A + 0000FFBD5A00FFBD5A00CE4A0000000000000000000000000000CE4A00008463 + 0000FFBD5A00CE4A0000CE4A0000CE4A000000000000E78C7300FFE7DE00FFEF + E700FFEFE700FFF7EF00FFF7EF00FFF7EF00FFEFEF00FFEFEF00FFBDAD00FFBD + AD00FFBDAD00FFDED600FFF7EF00FFF7EF00FFEFEF00FFEFEF00FFE7DE00FFE7 + DE00FFE7DE00FFEFE700FFE7DE00FFC6A5000000000000000000C6B5AD0052CE + F700B5EFFF00FFFFFF0063DEFF0042D6FF00C6EFFF005AD6FF0039CEFF0039CE + FF0039CEFF0031CEFF0029CEFF0029CEFF0029CEFF0031CEFF0039D6FF005ADE + FF0084DEFF00ADEFFF00CEEFFF00E7F7FF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6B5AD004A4A4200292931004A73 + 9400528CB5006BADDE00639CCE0010427B0010397300528CBD00639CCE00426B + AD00426BAD005A94C6005A8CC6004273AD000000000000000000CE4A0000CE4A + 0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD + 5A00FFBD5A00CE4A0000CE4A00000000000000000000CE4A000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FF7B7300F79C8C00FFEFE700FFE7 + DE00FFE7DE00FFE7DE00FFDED600FFBDAD00FFBDAD00FFBDAD00000000000000 + 00000000000000000000FFDED600FFDED600FFDED600FFDED600FFDED600FFDE + D600FFDED600FFDED600FFF7EF00FFFFFF000000000000000000C6C6BD005AD6 + FF00DEF7FF00C6EFFF0094E7FF00BDEFFF00A5E7FF0042CEFF0042D6FF0042D6 + FF0042D6FF0039D6FF0039D6FF0039D6FF0039D6FF0039CEFF0031CEFF0029CE + FF0029CEFF0021CEFF0031CEFF0052D6FF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6B5AD004A42 + 3900212129004A7394005A8CBD006BA5D6006BA5D600426BAD003963A5005A94 + C6005A94C600396BA500396BA5005A94C600000000000000000000000000CE4A + 0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A + 0000CE4A0000CE4A00006BBD0000CE4A0000CE4A00006BBD0000CE4A00000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00F79C8C00FFDED600FFDED600FFBD + AD00FFBDAD00FFBDAD00FFBDAD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFDED600FFDED600000000000000000000000000B5E7 + EF00ADE7F70084DEFF0084DEFF007BDEFF004AD6FF0042D6FF0042D6FF0042D6 + FF0042D6FF0042D6FF0042D6FF0042D6FF0042D6FF0042D6FF0039CEFF0039CE + FF0039CEFF0039CEFF0029CEFF0052CEF700C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6B5AD0042393900181821004A7B9C005A94C6006BA5D600639CD600396B + A5003963A5005A94C6006394CE003963A5000000000000000000000000000000 + 0000CE4A0000CE4A0000FFBD5A00FFBD5A00FFBD5A00FFBD5A00CE4A0000CE4A + 00000000000000000000CE4A00006BBD00006BBD00006BBD00006BBD0000CE4A + 000000000000CE4A0000CE4A0000FFBD5A00FFBDAD00FFBDAD00FFBDAD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6ADA500C6BDBD00ADE7F7008CDEFF006BD6FF005AD6 + FF004AD6FF0042D6FF0042D6FF0042D6FF0042D6FF0042D6FF0042D6FF0042D6 + FF0042D6FF0039D6FF0031CEFF008CD6EF00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6B5AD004239310010101800527BA500639CCE006BA5 + D600639CD600396BA500396BAD00639CCE000000000000000000000000000000 + 000000000000CE4A0000CE4A0000CE4A0000CE4A0000CE4A0000CE4A00000000 + 0000000000000000000000000000CE4A00006BBD00006BBD00006BBD00006BBD + 0000CE4A000000000000CE4A0000CE4A00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6AD + A500C6C6BD00A5E7F70084DEF7006BD6FF0052D6FF004AD6FF0042D6FF0042D6 + FF0042D6FF0042D6FF0042CEFF00C6BDBD00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6B5AD0039393100081018005284 + A500639CD600639CCE0063A5D6005A8CB5000000000000000000000000000000 + 00000000000000000000CE4A0000CE4A0000CE4A0000CE4A0000000000000000 + 000000000000000000000000000000000000CE4A00006BBD0000CE4A0000CE4A + 00006BBD0000CE4A000000000000CE4A00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6CECE009CE7F7007BDE + FF0063D6FF0052D6FF0063D6F700C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6B5AD004A4A + 4200101821004A7B9C0010182900181810000000000000000000000000000000 + 0000000000000000000000000000CE4A0000CE4A000000000000000000000000 + 00000000000000000000000000000000000000000000CE4A0000000000000000 + 0000CE4A00000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D6EFFF00CEBDB50000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6B5AD0042424200C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFF7 + F700D6E7E700C6D6D600A5B5B5007B8484006B7B8C00BDD6EF00EFFFFF00E7F7 + FF005A73940008213900393942004A4A4A00525A5A006B7373007B848400848C + 8C007B8C8C007B8484007B8C8C00949C9C000000000000000000000000000000 + 000000000000EFEFEF00C6C6C600BDBDBD00C6C6CE00A5A5A5009C9C9C00C6C6 + CE00BDCEF700B5BDF700A5B5EF009CB5EF00849CDE00849CDE00526BAD008C94 + B500BDBDBD00EFEFEF000000000000000000000000005A630800DEE7F700ADBD + CE003994630042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B5 + 7B009CADB500E7F7FF00636B52005A630800D6DEEF00CED6E700BDB5A500EFE7 + BD00E7DEBD00E7DEBD00E7DEBD00E7DEBD000000000000000000000000000000 + 00000000000000000000C6C6C600BDBDBD00C6C6CE00A5A5A5009C9C9C00C6C6 + CE00BDCEF700B5BDF700A5B5EF009CB5EF00849CDE00849CDE00526BAD008C94 + B500BDBDBD000000000000000000000000000000000000000000EFF7F700D6E7 + E700C6D6D600A5B5B5007B8484006B7B8C00BDCEE700EFFFFF00DEF7FF00E7FF + FF00E7FFFF005A7B94000018420029313900424242004A524A00525A5A005A63 + 6300525A5A00525252005A5A5A006B7373000000000000000000000000000000 + 000000000000EFEFEF00DEDEE700C6C6CE00C6BDCE00CECED600B5B5B500B5BD + D600ADBDF7009CADE7008CADE700849CE7006B84CE005273C600294A9C006B7B + A500BDBDBD00EFEFEF00000000000000000000000000525A2100DEEFFF009CAD + B5003994630042B57B0042B57B0042B57B0042B57B0042B57B0042B57B003994 + 63009CADB500E7F7FF00636B52005A630800D6DEEF00D6DEEF00949C9C00EFE7 + BD00E7DEBD00E7DEBD00E7DEBD00E7DEBD000000000000000000000000000000 + 00000000000000000000DEDEE700C6C6CE00C6BDCE00CECED600B5B5B500B5BD + D600ADBDF7009CADE7008CADE700849CE7006B84CE005273C600294A9C006B7B + A500BDBDBD0000000000000000000000000000000000EFF7F700D6E7E700C6D6 + D600A5B5B5007B8484006B7B8400B5CEDE00EFFFFF00E7F7FF00E7F7FF00E7F7 + FF00E7FFFF00EFFFFF005A7B9C0000214A001829420031393900394242002939 + 42001829310018293100394242004A5252000000000000000000000000000000 + 0000EFEFEF00EFEFEF00CECECE00C6C6CE00CECED600BDBDC600ADADC600ADB5 + EF00ADB5EF009CADE700849CDE00849CDE006B84CE005273BD0031529C006B7B + A500CECECE00F7F7F700000000000000000000000000525A2100E7EFFF009CAD + B5003994630042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B5 + 7B009CADB500E7F7FF00636B52005A630800CED6E700BDCEDE00BDB5A500E7DE + BD00E7DEBD00E7DEBD00E7DEBD00E7DEBD000000000000000000000000000000 + 00000000000000000000CECECE00C6C6CE00CECED600BDBDC600ADADC600ADB5 + EF00ADB5EF009CADE700849CDE00849CDE006B84CE005273BD0031529C006B7B + A500C6B5AD00000000000000000000000000EFF7F700D6E7E700C6D6D600A5B5 + B5007B8484006B7B8C00B5CEDE00EFFFFF00EFFFFF00E7F7FF00EFF7FF00E7F7 + FF00E7F7FF00EFFFFF00E7FFFF007394BD0000295A0000183900102139000829 + 5200103963004263940010294A0031393900000000000000000000000000F7F7 + F700EFEFEF00DED6DE00CEC6CE00B5B5BD00A5A5AD00B5ADB500ADB5DE0094AD + EF009CADEF009CADE700849CD6007B94D6005A7BC6004A6BB500314A94007384 + AD00DEDEDE0000000000000000000000000000000000525A2100BDCEDE00737B + 840042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B003994 + 63009CADB500E7F7FF00636B390073730000737B8400BDB5A500E7DEBD00E7DE + BD00E7DEBD00E7DEBD00E7DEBD00E7DEBD000000000000000000000000000000 + 000000000000DED6DE00CEC6CE00B5B5BD00A5A5AD00B5ADB500ADB5DE0094AD + EF009CADEF009CADE700849CD6007B94D6005A7BC6004A6BB500314A94007384 + AD0000000000000000000000000000000000D6E7E700C6D6D600ADB5B5007B84 + 84006B7B8C00BDD6E700EFFFFF00EFFFFF00E7F7FF00E7F7FF00E7F7FF00E7F7 + FF00EFF7FF00E7F7FF00EFFFFF00E7FFFF0094B5D600294A7B0000214A000021 + 4A0008317300ADC6E7006B8CB50010294200000000000000000000000000EFEF + EF00EFEFEF00D6D6D600C6C6C600ADADB500C6C6C600A5ADC6009CB5EF009CB5 + EF0094ADE7009CADE700849CD6007B94D6005A73BD004A6BAD00294A8C007B84 + AD00E7E7DE000000000000000000EFEFEF0000000000525A21003994630042B5 + 7B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B5 + 7B0039946300ADBDCE004A52310073730000737B8400EFE7BD00EFE7BD00EFE7 + BD00EFE7BD00EFE7BD00EFE7BD00EFE7BD000000000000000000000000000000 + 0000EFEFEF00D6D6D600C6C6C600ADADB500C6C6C600A5ADC6009CB5EF009CB5 + EF0094ADE7009CADE700849CD6007B94D6005A73BD004A6BAD00294A8C007B84 + AD0000000000000000000000000000000000CEDEDE00ADBDBD007B8C8C00737B + 8C00C6DEEF00EFFFFF00EFFFFF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00E7F7 + FF00E7F7FF00E7F7FF00DEF7FF00E7F7FF00EFFFFF00CEE7F700849CC6004A6B + 94007394BD00D6EFFF00D6EFFF006B8CBD00000000000000000000000000EFEF + EF00E7DEE700C6C6C600D6D6D600D6D6D600B5B5CE009CADEF00738CCE009CB5 + EF0094ADEF00849CE700849CD600849CD6005A73BD004263AD00294A9C008C94 + AD00CECEC600EFE7EF00DEDED600B5B5B50000000000525A210042B57B0042B5 + 7B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B5 + 7B0042B57B00399463004A4A100000000000636B3900EFE7BD00EFE7BD00EFE7 + BD00EFE7BD00BDB5A500949C9C00BDB5A5000000000000000000000000000000 + 0000E7DEE700C6C6C600D6D6D600D6D6D600B5B5CE009CADEF00738CCE009CB5 + EF0094ADEF00849CE700849CD600849CD6005A73BD004263AD00294A9C008C94 + AD00CECEC6000000000000000000B5B5B500C6CECE00949C9C007B8C9C00CEDE + EF00EFFFFF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00EFF7FF00EFF7FF00E7F7 + FF00DEF7FF00DEF7FF00DEEFFF00D6EFFF00DEEFFF00E7F7FF00DEEFFF00C6DE + F700BDD6F700B5CEEF00B5CEE700ADCEEF000000000000000000EFEFEF00EFEF + EF00CECED600CECED600C6C6CE00BDBDC600ADBDEF00637BC6007B8CBD0094AD + EF0094B5EF007B94E700849CDE007B94D600395AAD003952AD004A63AD009494 + A5009C9C9C00ADA5A5009C9CAD007384BD00000000005A6308003994630042B5 + 7B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B57B0042B5 + 7B0042B57B0042B57B004A4A10000000000073730000636B3900636B3900636B + 3900636B52009CADB500D6DEEF00949C9C000000000000000000000000000000 + 0000CECED600CECED600C6C6CE00BDBDC600ADBDEF00637BC6007B8CBD0094AD + EF0094B5EF007B94E700849CDE007B94D600395AAD003952AD004A63AD009494 + A5009C9C9C00ADA5A5009C9CAD007384BD00BDC6C60094A5AD00CEE7EF00EFFF + FF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00E7F7FF00E7F7 + FF00DEF7FF00DEF7FF00DEF7FF00D6EFFF00CEE7FF00B5CEEF00A5BDE70094B5 + D6008CA5CE00849CC6007394BD007B94BD000000000000000000EFEFEF00DEDE + E700CECECE00C6C6CE00C6C6C600A5A5B5007B94D6006B7BB5009CB5EF007B8C + C60094ADE7007B94DE008CA5E700738CDE00314AAD00395AB5006373A5009494 + 9C007B7B8C007B849C006384BD005273C60000000000000000005A6308004A52 + 3100399463003994630039946300399463003994630042B57B0042B57B0042B5 + 7B0042B57B003994630073730000000000000000000000000000000000007373 + 0000525A2100BDCEDE00E7F7FF00BDCEDE00000000000000000000000000DEDE + E700CECECE00C6C6CE00C6C6C600A5A5B5007B94D6006B7BB5009CB5EF007B8C + C60094ADE7007B94DE008CA5E700738CDE00314AAD00395AB5006373A5009494 + 9C007B7B8C007B849C006384BD005273C600C6D6D600DEEFF700EFFFFF00E7F7 + FF00E7F7FF00E7F7FF00E7F7FF00E7FFFF00EFFFFF00E7F7FF00DEF7FF00E7F7 + FF00DEF7FF00E7F7FF00DEF7FF00C6DEF7009CB5DE0094ADD6009CB5D6009CB5 + DE008CADCE00849CC6007394BD00637BAD0000000000F7F7EF00EFEFEF00CECE + CE00C6BDC600CECECE00ADADAD00BDBDC6009494AD009CADDE00637BC6008494 + BD0094A5E7004A5A8C00849CD6006B84CE00395AAD004A63B500636B84007B84 + 8400737B94006384C6005A7BCE005A7BBD000000000000000000000000000000 + 0000000000005A630800636B5200D6DEEF00BDCEDE00399463004A523100525A + 2100525A21005A6308000000000000000000000000000000000073730000949C + 9C00DEE7F700DEEFFF00DEE7F700DEEFFF00000000000000000000000000CECE + CE00C6BDC600CECECE00ADADAD00BDBDC6009494AD009CADDE00637BC6008494 + BD0094A5E7004A5A8C00849CD6006B84CE00395AAD004A63B500636B84007B84 + 8400737B94006384C6005A7BCE005A7BBD00E7FFFF00EFFFFF00EFF7FF00E7F7 + FF00E7F7FF00E7F7FF00E7F7FF00E7FFFF00E7FFFF00E7F7FF00E7F7FF00E7F7 + FF00DEF7FF00D6E7FF00ADC6E7008CA5CE007B94BD007B94BD00738CBD007394 + BD007394BD006384B5004A73AD00526BA50000000000F7F7F700E7E7E700DEDE + E700BDBDC600A5A5AD00B5B5B500BDBDBD00C6C6C600ADBDE700637BBD008CA5 + E7007384BD00525A8C007B94DE007384B5005A6BB5007B84AD00ADADAD00636B + 8C006B84C6007394E700738CD600738CCE000000000000000000000000005A63 + 0800636B52009CADB500CED6E700DEEFFF00E7EFFF009CADB5004A5231005A63 + 08000000000000000000000000000000000000000000737300009CADB500E7F7 + FF00DEEFFF00DEE7F700DEE7F700DEE7F7000000000000000000E7E7E700DEDE + E700BDBDC600A5A5AD00B5B5B500BDBDBD00C6C6C600ADBDE700637BBD008CA5 + E7007384BD00525A8C007B94DE007384B5005A6BB5007B84AD00ADADAD00636B + 8C006B84C6007394E700738CD600738CCE00DEF7F700E7FFFF00EFF7FF00E7F7 + FF00E7F7FF00E7F7FF00E7FFFF00E7FFFF00EFFFFF00E7FFFF00E7F7FF00DEEF + FF00CEE7FF0094B5DE005A7BB500315A940031529400214A8C00103973001842 + 840021429400295AAD00215AAD005273AD0000000000EFEFEF00D6D6D600E7E7 + E700DEDEDE00DEDEDE00BDBDBD00B5B5BD00ADADB500B5B5BD00BDC6E70094A5 + E7008C94B5007B94CE006B84C600848C9C009C9CAD009C9CA5007B84A5006B84 + D6005A7BD6005A73B5007B94DE006B8CCE000000000000000000525A2100ADBD + CE00E7EFFF00E7F7FF00DEEFFF00DEE7F700DEE7F700E7F7FF00E7EFFF00949C + 9C004A4A1000000000005A6308002929290073730000949C9C00E7F7FF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F700000000000000000000000000E7E7 + E700DEDEDE00DEDEDE00BDBDBD00B5B5BD00ADADB500B5B5BD00BDC6E70094A5 + E7008C94B5007B94CE006B84C600848C9C009C9CAD009C9CA5007B84A5006B84 + D6005A7BD6005A73B5007B94DE006B8CCE00F7FFFF00EFF7FF00E7F7FF00E7FF + FF00E7F7FF00E7F7FF00E7FFFF00EFFFFF00E7F7FF00D6EFFF00E7FFFF00E7F7 + FF00DEF7FF006BA5E7004273CE0010398C00396BB50029529C0000184A000829 + 6B00214AA5002963B5002152A5004A73AD000000000000000000EFEFEF00D6CE + CE00D6D6D600E7E7E700E7E7E700D6CED600C6C6CE00ADADB500ADADB500BDBD + C600BDB5BD00ADB5D6008C94A500BDBDBD00ADADAD009C9CBD006B84D6006B8C + E7005263A5006B84B5007394DE004A6BBD005A630800636B5200BDCEDE00E7F7 + FF00DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEEFFF00E7F7 + FF009CADB5005A6308005A630800292929004A523100DEE7F700DEEFFF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F700000000000000000000000000C6AD + A50000000000E7E7E700E7E7E700D6CED600C6C6CE00ADADB500ADADB500BDBD + C600BDB5BD00ADB5D6008C94A500BDBDBD00ADADAD009C9CBD006B84D6006B8C + E7005263A5006B84B5007394DE004A6BBD0000000000F7F7F700EFF7FF00EFFF + FF00E7FFFF00E7F7FF00E7FFFF00E7FFFF00EFFFFF00A5C6DE009CB5C600F7FF + FF00BDDEFF004A84D6001842940008297B001031730000216300083173002152 + 9C003163B5003163B500295AAD004A73AD000000000000000000000000000000 + 0000DEDEDE00DEDEDE00E7E7EF00EFE7EF00DEDEE700D6D6D600C6C6C600ADAD + B500B5B5B500B5B5B500C6BDC600ADADB500B5ADB500ADADC600949CCE007373 + 9C008494AD008CA5EF007394DE004A63BD00737B8400E7F7FF00E7EFFF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEEF + FF00E7EFFF00636B52004A52310021215200426BA500D6DEEF00DEEFFF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F7000000000000000000000000000000 + 00000000000000000000E7E7EF00EFE7EF00DEDEE700D6D6D600C6C6C600ADAD + B500B5B5B500B5B5B500C6BDC600ADADB500B5ADB500ADADC600949CCE007373 + 9C008494AD008CA5EF007394DE004A63BD00000000000000000000000000E7F7 + F700DEF7F700EFFFFF00E7FFFF00E7FFFF00E7FFFF00D6EFEF005A7B940084AD + DE004A84CE00214AA500001052000008420008216B002952A5004273BD003973 + BD00396BB500396BB500295AAD004A73B5000000000000000000000000000000 + 000000000000F7F7F700E7E7E700E7E7E700E7E7EF00E7E7EF00DEDEDE00DEDE + DE00C6C6C600ADADB500ADA5AD00B5B5BD00B5B5B5009C9CA5007B84AD006B73 + 9C0094ADE7007B94DE006384CE006B8CCE00636B5200DEEFFF00DEEFFF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7 + F700E7F7FF009CADB500394A6B00394A6B00426BA500CED6E700E7EFFF00DEE7 + F700DEE7F700DEE7F700DEE7F700DEE7F7000000000000000000000000000000 + 000000000000000000000000000000000000E7E7EF00E7E7EF00DEDEDE00DEDE + DE00C6C6C600ADADB500ADA5AD00B5B5BD00B5B5B5009C9CA5007B84AD006B73 + 9C0094ADE7007B94DE006384CE006B8CCE000000000000000000000000000000 + 000000000000E7EFEF00EFFFFF00E7FFFF00E7FFFF00EFFFFF00ADD6FF005A94 + DE00316BBD0008317B000829630018428C003973BD004A84CE003973C600396B + B500396BB500396BB500295AA5004273B5000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00E7E7E700DEDEDE00E7DEE700E7E7 + E700E7E7EF00D6D6D600CECECE00ADADB500A5A5AD00ADB5D6007B8CDE007B9C + E7006B8CD6005A7BC600738CCE006B8CCE0010181800636B5200D6E7F700DEEF + FF00DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEE7 + F700E7EFFF00CED6E7004A4A10007373000021215200394A6B009CADB500D6E7 + F700E7EFFF00D6E7F700DEE7F700DEE7F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7DEE700E7E7 + E700E7E7EF00D6D6D600CECECE00ADADB500A5A5AD00ADB5D6007B8CDE007B9C + E7006B8CD6005A7BC600738CCE006B8CCE000000000000000000000000000000 + 00000000000000000000F7F7FF00DEEFF700DEF7F700E7F7FF00BDDEFF006394 + DE00427BC600397BC600427BC600427BCE003973C6003973B5003973BD00316B + B500396BB5003163AD00295AA50029529C000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00E7DEE700DEDE + DE00E7DEE700E7E7EF00E7DEE700DEDEDE00BDBDCE0094A5DE009CB5E7008CA5 + E700637BCE006B84CE00637BCE006B8CCE002929290010181800636B5200E7EF + FF00DEE7F700DEE7F700DEE7F700DEE7F700DEE7F700DEEFFF00E7EFFF00E7F7 + FF00E7F7FF00BDCEDE004A4A10005A630800292929002121520021215200737B + 8400BDCEDE00E7EFFF00DEE7F700DEE7F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7DEE700E7E7EF00E7DEE700DEDEDE00BDBDCE0094A5DE009CB5E7008CA5 + E700637BCE006B84CE00637BCE006B8CCE000000000000000000000000000000 + 000000000000000000000000000000000000EFF7F700E7EFF700D6E7F70084AD + E7005284CE00528CD6005A94D6005A94D6004273BD003163AD003973B5004A84 + C600528CC6003973BD00316BAD00315A9C000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFEF + EF00E7E7E700E7E7E700E7E7E700E7E7EF00E7E7E700D6D6DE00CECED600B5B5 + BD009CA5CE007B8CBD008494CE00949CBD002929290010181800101818009CAD + B500E7F7FF00DEE7F700DEE7F700E7EFFF00E7F7FF00DEE7F700ADBDCE00737B + 8400394A6B0029292900101818005A6308002929290021215200212152002121 + 5200394A6B009CADB500DEE7F700E7F7FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E7E7E700E7E7EF00E7E7E700D6D6DE00CECED600B5B5 + BD009CA5CE007B8CBD008494CE00949CBD000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDD6 + EF006B9CD600527BB5005A7BAD00638CC6006B9CE700639CDE006B9CDE00639C + D600528CCE006394CE0094B5CE00BDCEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7F7F700E7E7EF00E7E7E700E7E7E700E7E7E700E7DEE700D6D6 + D600CECECE00BDBDBD00A5A5AD00ADADAD004A4A100010181800101818002929 + 2900D6DEEF00E7EFFF00E7EFFF00CED6E700737B8400394A6B00101818001018 + 1800101818001018180029292900000000007373000021215200212152002121 + 52002121520021215200394A6B00ADBDCE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7E7E700E7E7E700E7DEE700D6D6 + D600CECECE00BDBDBD00A5A5AD00ADADAD000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEEF + EF005A8CCE00184AAD0039639C00081842003963A50073A5E7004A84C600427B + C6006394BD00ADC6CE00DEE7E700EFF7F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F7F7F700EFEFEF00EFE7EF00EFEFEF00EFE7 + EF00E7E7E700E7E7E700D6D6D600C6BDC6005A63080010181800101818001018 + 1800737B8400E7EFFF00949C9C00292929001018180010181800101818001018 + 180010181800101818005A63080000000000000000005A630800292929002121 + 5200212152002121520021215200212152000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6BDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6DEEF009CBDE7009CC6F7007394B500081039003163A5006B94C60094AD + C600BDCECE00D6E7DE00DEEFEF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A4A100010181800101818001018 + 180029292900394A6B0010181800101818001018180010181800101818001018 + 1800101818004A4A100000000000000000000000000000000000737300004A4A + 1000292929002121520021215200212152000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007B94A500425A7300C6D6D600CEDE + D600CEDEDE00D6E7E700DEEFEF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A63080029292900101818001018 + 1800101818001018180010181800101818001018180010181800101818001018 + 18005A6308000000000000000000000000000000000000000000000000000000 + 0000737300004A4A10004A4A10005A6308000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000849CAD0063738400D6E7 + E700D6E7E700DEEFEF00DEEFF700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000737300005A63 + 08005A6308005A630800292929001018180010181800292929004A4A10007373 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000094A5BD00ADBD + D600E7F7F700E7F7F70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6DE + E700F7FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B5B5B500B5B5B500ADAD + AD00CECECE00C6C6C600BDBDB500B5ADAD00B5B5B500B5B5B500B5B5B500B5B5 + B500C6C6C600B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500BDBDBD00BDBD + BD00B5B5AD00B5B5B500B5B5B500B5B5B500000000000000000000000000FFFF + FF00CECECE00B5B5B500B5B5B500A5A5A500D6D6D600F7F7F700F7F7F700EFEF + EF009C9C9C007B7B7300C6C6C600F7F7F700F7F7F700CECECE00CECECE00D6D6 + D600E7E7E700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 000000000000000000001010080084846B00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00CECECE000000000000000000ADA5AD006B73 + 94007B7BA500292942004A525200E7EFDE007B7BCE000000B5000008B5000000 + B500735ADE0084BD840000840000088410000084000052A56300B5948C00FFBD + 9C00FFCEB500FFCEB500CEADA50000000000E7E7E700BDBDBD00ADADA500CECE + CE00CEC6C600CEC6C600BDBDBD00B5B5AD00B5B5B500B5B5B500B5B5B500BDBD + BD00CEC6C600B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500C6C6C600C6C6 + C600B5B5B500B5B5B500B5B5B500B5B5B500000000000000000000000000FFFF + FF00B5B5B5009C9C9C008C8C8C0094949400F7F7F700FFFFFF00FFFFFF00FFFF + FF00B5B5B5007B7B7B0094949400F7F7F700F7F7F700BDBDBD00D6D6D600D6D6 + D600F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000000000003131080010100800CECECE00FFFFFF00F7F7F7009CA5BD006363 + AD006363AD00CECECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000008C94BD00848C + BD009C9CC600393952006B6B6300FFFFFF008484D60000009C000008A5000000 + A5007B63D60094D68C0008AD000000B5000000A5000063BD6B00B5948C00FFCE + B500FFDEC600FFDEC600E7C6B500E7B59C00E7E7E700BDBDBD00BDBDBD00D6CE + CE00CECECE00CECECE00BDBDB500B5B5B500B5B5B500B5B5B500B5B5B500BDBD + BD00CECECE00B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500CEC6C600CECE + C600B5B5B500B5B5B500B5B5B500B5B5B500000000000000000000000000FFFF + FF00B5B5B5009494940084848400D6D6D600FFFFFF00F7F7F700F7F7F700FFFF + FF00CECECE00848484007B7B7B00D6D6D600DEDEDE00C6C6C600DED6DE00DEDE + DE00F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000000000003131080029292900F7F7F700FFFFFF009CA5BD002121A5002129 + D6002129D6006363AD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000007B84AD007373 + AD008484B500312942006B736B00F7F7F7008C84C6000000730008087B000000 + 7B006B73B5007BDE8C0000BD080000BD000000B508006BCE6B00B59C9400F7C6 + AD00FFE7CE00FFDECE00FFDECE00FFD6BD00EFEFEF00C6C6C600CECECE00D6D6 + D600D6D6D600D6D6CE00B5B5B500B5B5B500B5B5B500B5B5B500B5B5AD00C6C6 + C600D6D6D600B5B5B500B5B5B500B5B5B500B5B5B500B5ADAD00CECECE00CECE + CE00B5B5B500B5B5B500B5B5B500B5B5B500000000000000000000000000FFFF + FF00B5B5B50084848400A5A5A500FFFFFF00FFFFFF00F7F7F700F7F7F700FFFF + FF00E7E7E700948C8C007B7B7B00A5A5A500C6C6C600D6CECE00D6D6D600E7E7 + E700F7F7F700F7F7F700F7F7F700F7F7F7000000000000000000000000000000 + 0000000000001010080029292900F7F7F700FFFFFF007B84BD002129D6002129 + D6002121A5006363AD00EFEFEF00F7F7F700F7F7F700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000007B7BAD006B63 + A5007373AD0031315200101821004A4A42002121310000002900000029000000 + 2900211831002142290000310800083108000831080018391800BDB5B500C69C + 8C00FFDECE00FFE7DE00FFE7D600FFE7DE00EFEFEF00C6C6C600D6D6D600DEDE + D600DED6D600CECECE00A5A5A5009C9C9C00A5A59C00A5A59C00A5A5A500CEC6 + C600D6D6CE00A5A5A500A59C9C00A5A5A500A5A59C009C9C9C00C6C6C600D6CE + CE00A5A5A500A5A59C00A5A5A500A59C9C00000000000000000000000000FFFF + FF00ADADAD0084848C00D6D6D600DEDED600F7EFEF00FFFFFF00F7F7F700F7F7 + F700F7F7F700ADADAD00847B7B0073737300B5ADAD00D6D6D600D6D6D600EFEF + EF00F7F7F700F7F7F700F7F7F700F7F7F7003131080031310800313108003131 + 0800313108001010080029292900EFEFEF00FFFFFF009CA5BD002121A5002121 + A5002121A5002121A500294AA500294AA5006363AD007B84BD009CA5BD00E7E7 + E700FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000007B7BA500635A + 9C00635A9C0042427B002931520042395A004A426300524A73004A4A6B005252 + 6B004A426300423963004A39730052397B004A397300423963004A397300C6B5 + AD00C69C8C00F7CEBD00FFDED600FFDECE00EFEFEF00CECECE00D6D6D600E7DE + DE00DEDEDE00D6CECE00ADADAD009C9C9C009C9C9C009C9C9C00A5A5A500CECE + CE00D6CECE00A5A5A5009C9C9C009C9C9C009C9C9C00A5A5A500CECEC600D6D6 + CE00ADADAD009C9C9C009C9C9C009C9C9C00000000000000000000000000FFFF + FF00A5A5A500C6C6C600C6CEE700737BBD00B5BDBD00EFE7E700F7F7F700FFFF + FF00FFFFFF00C6C6C6008C8484007B7B7B00B5B5B500CEC6CE00DEDEDE00F7F7 + F700F7F7F700F7F7F700F7F7F700000000003131080010100800101008001010 + 0800101008001010080010100800CECECE00EFEFEF006363AD002121A5002129 + D6002129D6002129D6002129D6002129D6002129D6002129D6002129D6002121 + A5007B84BD00E7E7E700FFFFFF00F7F7F70000000000000000006B739C004A52 + 8C005A529C004A4284004A4A840063639C0063639C00635A9C0063639C006363 + 9C005A639C005A5A9C005A5A9C005A5A9C005A5A9C0063639C0063639C005A6B + 8C00C6BDBD00A58C8C00A5847B00A5847B00EFEFEF00DEDEDE00D6D6CE00E7E7 + E700E7DEDE00DEDEE700D6DEE700D6DEDE00D6DEDE00D6DEDE00D6DEE700E7E7 + E700EFE7E700D6DEE700D6DEDE00D6DEDE00D6DEDE00D6DEDE00E7E7E700E7E7 + E700D6DEE700D6DEDE00D6DEDE00D6DEDE00000000000000000000000000FFFF + FF00A5A5A500CECEC600B5B5CE00525AC600BDBDD600CED6CE00B5BDB500E7E7 + E700FFFFFF00DEDEDE00948C8C0094949400E7E7E700E7DEE700DEDEDE00F7F7 + F7000000000000000000EFEFEF00EFEFEF000000000031310800101008001010 + 0800101008001010080010100800394A6300294AA5002129D6002129D6002129 + D6002129D6002129D6002129D6002129D6002129D6002129D6002129D6002129 + D6002129D600294AA500CECECE008C8C8C00000000000000000063639C003939 + 7B004A4A8C0039397B0042427B004A4A840042428400424A8400424A8400424A + 8400424A8400424A8400424A8400424A8400424A84004A42840042397B00637B + 8C006B6BDE002918C6003984630021AD2100EFEFEF00F7F7F700CECECE00EFE7 + E700F7F7F700DECEBD00DE946300E79C6B00E79C6B00E7946300DE946B00F7E7 + E700EFEFE700DE946B00E79C6300E79C6B00E79C6300DE8C5A00EFD6C600EFEF + EF00D6A58400E7946300E79C6B00E79C6B00000000000000000000000000FFFF + FF00A5A5A50084848400A5A5A500CECECE00F7EFF70052A5DE005AADC600DED6 + D600D6CED600E7E7E70094949400C6BDBD00DEDEDE00EFE7EF00E7E7E700F7F7 + F700EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000313108003131 + 080010100800101008001818210018186B002121A5002129D6002121A5001818 + 6B0018186B0018184200181842001818420018184200294AA500294AA5002121 + A5002121A50018186B002121A500101008000000000000000000636394003131 + 6B003939730039316B0039396B00393973003939730039427300394273003942 + 730039427300393973003939730039397300393973003939730031396B005A6B + 8C006B73C60021219400315A630029634200EFEFEF00EFEFEF00DEDEDE00D6D6 + D600FFFFFF00DEA58400E7732100EF7B3100EF7B3100EF7B3100DE732900EFD6 + CE00E7CECE00DE6B2100EF843900EF843900EF843900E76B1800E7B59C00EFEF + EF00DE7B3900EF7B3100EF843900EF843900000000000000000000000000FFFF + FF00A5A5A50084848400848484008C8C8C00B5B5B500A5B5C600B5C6E700C6D6 + C60063B58C00A5B5AD00ADADAD00CECECE00A5A5A500B5ADB500E7E7E700EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 000031310800313108001818420018186B002121A50018186B00101008001010 + 080018184200294AA500294AA500294AA500294AA5002963E7002963E7001818 + 4200181842002121A50018186B0018186B000000000000000000848CAD007384 + A5007B84AD008484AD007B84AD007B84AD007B84AD007B84AD007B84AD007B84 + AD007B84AD007B84AD007B84AD007B84AD007B84AD007B84AD007B7BB500848C + B5008C9CBD007384A5007B7BAD007373AD00EFEFEF00EFEFEF00EFEFEF00DEDE + DE00E7E7E700DE946B00EF844200EF8C4A00EF8C4A00EF944A00E7844200EFDE + CE00E7CEC600E77B3900EF945200EF945200EF9C5A00E77B3100E7B59C00EFEF + EF00DE845200EF945200EF945200EF945200000000000000000000000000FFFF + FF00A5A5A5007B7B7B0084848400848484007B7B7B008C8C8C00D6CECE00B5C6 + BD0052AD7B008CA59400D6CED600FFFFFF00DED6D60084848400D6D6D600EFEF + EF00EFEFEF00EFEFEF00E7E7E700E7E7E7000000000000000000000000000000 + 00000000000031310800181842002121A50018186B0010100800101008001818 + 21002963E7002963E7002963E7002963E7002963E7002963E7002963E7002963 + E70018186B00181821002121A500181842000000000000000000A5ADCE00BDC6 + DE00BDC6DE00C6CEE700C6CEE700C6CEE700CECEE700CECEE700CECEE700CECE + E700C6CEE700C6CEE700C6CEE700C6CEE700C6CEE700C6CEE700CED6E700C6D6 + DE00C6C6E700CEC6EF00C6CEDE00ADBDCE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7EFF700CE7B5200EF7B3100EF8C4A00EF8C4A00EF8C4A00E7844A00F7DE + D600E7C6BD00DE733100EF945200EF945200EF945200E7733100E7B59400EFEF + EF00DE845200EF8C4A00EF945200EF945200000000000000000000000000FFFF + FF009C9C9C007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B0073737300948C + 9400BDBDBD00B5ADAD00EFEFEF00C6C6BD008484840094949400C6C6C600E7E7 + E700EFEFEF00E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 00000000000000000000292929002121A5001010080010100800101008001010 + 080018184200294AA5002963E7002963E7002963E7002963E7002963E7002963 + E7002963E700294AA5001818420018186B000000000000000000B5B5D600DEE7 + EF00C6CED6008C8C9C006B6B73006B6B73006B6B7B006B6B7B006B6B7B006B6B + 7B006B6B7B006B6B73006B6B73006B6B73006B6B7300736B7B006B6B7B006B6B + 730084848C00C6C6D600D6DEF700BDC6DE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFF7F700D6734200E76B2100E7733100E7732900EF7B3100DE7B4200F7DE + DE00E7C6BD00DE732900EF843900EF843900EF843900E76B2100E7AD9400EFEF + EF00DE8C5A00EF7B3100EF843900EF843900000000000000000000000000FFFF + FF009C9C9C00737373007B7B7B007B7B7B007B7B7B0073737300737373007373 + 73006B6B6B0094949400E7E7E700B5B5B500ADADAD00C6C6C600A5A5A500BDBD + BD00DEDEDE00E7E7E700E7E7E700E7E7E7000000000000000000000000000000 + 000000000000000000004A4A210018186B001010080010100800101008001010 + 08001010080010100800181821001818420018186B00294AA500294AA500294A + A5002963E700294AA5001818420018186B000000000000000000B5BDD600DEE7 + FF00C6C6D6005A52630000000000080008000800080008000800080008000000 + 0800000008000008080000080800000808000008080008000800080808000000 + 000031394200B5BDD600DEE7FF00BDC6DE00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7E7E700CE5A2900D65A1800D6632100DE632100DE6B2900D6734200EFDE + DE00DEC6B500DE632100E7732900E7732900E7732900DE631800DE9C8400EFEF + EF00DE8C6300E76B2100E7732900E7732900000000000000000000000000FFFF + FF00949494006B6B6B00737373007373730073737300737373006B6B6B006B6B + 6B0052525200C6BDC600A5A5A5009C9C9C00DED6D600C6C6C600BDBDBD00ADAD + AD00CECECE00CECECE00DEDEDE00E7E7E7000000000000000000000000000000 + 0000000000000000000000000000181821001010080010100800101008001010 + 080063636B00E7E7E700DEDED6004A4A21001010080010100800394A63002929 + 2900101008001818210010100800181821000000000000000000ADBDDE00DEEF + FF00C6CEE7005A5A7B00313142006363630063635A00635A5A005A5A5A00635A + 5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A0063635A00635A5A003939 + 3900424A5A00B5BDD600E7EFFF0000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00DECEC600CE633900DE733900DE6B4200DE734200DE7B4A00CE7B4A00EFE7 + E700CEB59C00D65A1800DE6B2100DE6B2100DE6B2100DE631800C68C7300EFEF + EF00D68C6B00DE632100DE6B2100DE6B2100000000000000000000000000FFFF + FF00949494006B6B6B006B6B6B0073736B00737373006B6B6B00636363005252 + 52008C8C8C00D6D6D600636363005A5A5A007B7B7B009C9C9C00D6D6D600B5B5 + B500B5B5B500CECECE00C6C6C600CECECE000000000000000000000000000000 + 0000000000000000000000000000313108001010080010100800101008001818 + 2100E7E7E700FFFFFF00CECECE0063636B001010080063636B00F7F7F700CECE + CE00101008001010080010100800101008000000000000000000ADB5C600ADBD + C600A5ADC6008C8CAD008C8C94009CA59C009C9C9C009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009CA59C00949494008C8C + 94008C8CA5009CA5BD00C6ADAD0000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7D6CE00E7845A00EF8C6B00EF8C6B00EF8C6B00EF8C6B00D6735200F7EF + EF00D6B5AD00CE5A1800D65A1800D65A1800D65A1800CE521000C68C7B00EFEF + EF00DE947B00CE5A2100D65A1800D65A1800000000000000000000000000FFFF + FF0094949400636363006B6B6B006B6B6B005A5A5A005A5A5A00737373009C9C + 9C00D6D6D600737373005A5A5A00636363005A5A5A005A5A5A006B6B6B00BDBD + BD00ADADAD00ADADAD00ADADAD00BDBDBD000000000000000000000000000000 + 0000000000000000000000000000000000001010080010100800101008001818 + 2100EFEFEF00FFFFFF00101008008C8C8C0010100800BDBDC600BDBDC600BDBD + C6004A4A2100101008001010080000000000000000000000000000000000C6AD + A5000000000000000000C6ADA5009CA59C009C9C9C009CA5A5009CA5A5009CA5 + A5009CA5A500A5A5A500A5A5A500A5A5A500A59CA500A5A5A5008C8C9400635A + 7B00C6ADAD00000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFBDAD00EFB59C00EFB5A500EFB5A500EFAD9C00E7C6B500EFEF + EF00DEB5A500C6521800CE521800C6521800C64A1800C64A1000CE8C6B00EFEF + EF00D69C8400CE521800CE4A1800C6521800000000000000000000000000FFFF + FF008C8C8C005A5A5A00636363005A5A5A007B7B7B00B5B5AD00BDBDBD00F7F7 + F7009C9C9C004A4A4A005A5A5A005A5A5A005A5A5A005A5A5A004A4A4A007B7B + 7300E7E7E700BDBDBD00B5ADAD00949494000000000000000000000000000000 + 0000000000000000000000000000000000003131080010100800101008001010 + 080084846B00F7F7F700F7F7F70063636B0010100800BDBDC600CECECE001010 + 080063636B001010080010100800000000000000000000000000000000000000 + 00000000000000000000C6ADA500ADADAD00ADADAD00ADADAD00ADADAD00ADAD + AD00ADADAD00ADADAD00ADADAD00ADADAD00ADADAD00B5ADAD009C949C004239 + 5200A59CA500000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00D6AD9400BD4A1800C6421800C6421800C6421800C6421000CE846B00EFEF + EF00CEA59400BD522900C6421800C6421800000000000000000000000000FFFF + FF00ADADAD00848C8C008C8C8C0084848400B5B5B5008C8C8C007B7B7B009494 + 9400B5B5B5007B7B7B008C8C8C00848C8C00848C8400848C8C007B7B7B00B5B5 + B5009C9C9C007B7B7B00B5B5B500B5B5B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000010100800101008001010 + 080010100800292929002929290010100800101008008C8C8C00FFFFFF00F7F7 + F700181821001010080000000000000000000000000000000000000000000000 + 00000000000000000000C6ADA500B5B5AD00B5B5B500B5B5B500B5B5B500B5B5 + B500B5B5B500B5B5B500B5B5B500B5B5B500B5B5B500BDBDBD008C8C8C00ADA5 + A50000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00CEA59400BD4A2100BD391000BD421800BD391000B5421800C6846300EFEF + EF00D6B5AD00BD522900BD391000BD421800000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00F7F7F700ADADAD00DEDEDE00FFFFFF00FFFFFF00F7F7 + F700BDBDBD00F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700BDBD + BD00EFEFEF00FFFFFF00FFFFFF00E7E7E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000101008001010 + 08001010080010100800101008001010080010100800181821008C8C8C006363 + 6B00101008000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BDBDBD00BDBDC600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6CE00948C8C00C6AD + A50000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00CE9C8C00BD421800B5310800BD390800B5310800B5391000BD7B6300EFEF + EF00E7C6BD00BD523100BD391000BD3910000000000000000000000000000000 + 00000000000000000000BDBDB5009C9C9C000000000000000000000000000000 + 0000ADA5A500CECEC60000000000000000000000000000000000CECEC600A5A5 + A500BDBDB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A4A + 2100101008001010080010100800101008001010080010100800101008001010 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CECECE00CECECE00CECECE00CECECE00CECE + CE00CECECE00CECECE00CECECE00CECECE00CECECE00D6D6D6008C8C8C00C6AD + A50000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00CEA58C00DE846300DE8C6300DE846300DE846300E7846300C67B6300EFEF + EF00DEC6BD00B5523100BD391000BD3910000000000000000000000000000000 + 00000000000000000000B5ADAD00ADA5A500000000000000000000000000A5A5 + 9C00ADA5A500CECEC6000000000000000000000000000000000000000000ADAD + A500A59C9C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004A4A21004A4A2100313108003131080031310800313108000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600E7DEE7008C8C8C00BDAD + A50000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00DEB5A500E7846300EF947300EF947300EF947300EF8C6300E79C8400EFEF + EF00DEC6C600B55A3900BD421800BD3910000000000000000000000000000000 + 00000000000000000000BDBDB500ADADAD00C6BDB50000000000B5B5AD00A59C + 9C00BDBDB500000000000000000000000000000000000000000000000000C6BD + B500ADADAD00B5B5AD0000000000BDBDB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7DE00E7E7E700E7E7E700E7E7E700E7E7 + E700DEDEDE00E7E7E700E7E7E700E7E7E700DEDEDE00EFEFEF008C8C8C00ADA5 + 9C0000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00FFF7F700F7DED600F7DED600F7DED600F7DED600F7DED600FFF7EF00EFEF + EF00DEC6C600B5634A00B5421800B53110000000000000000000000000000000 + 0000000000000000000000000000BDBDB500BDBDBD00BDBDBD00B5B5B500BDB5 + B500000000000000000000000000000000000000000000000000000000000000 + 0000C6BDBD00C6C6C600BDB5B500BDBDBD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00DEC6C600C66B5200DE845A00D67B52000000000000000000000000000000 + 000000000000000000000000000000000000C6C6BD00C6C6BD00C6C6BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6C6BD00C6BDBD00C6BDBD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E7D6D600D67B5200EF845A00EF8C5A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007BA5BD00ADD6F70084AD + C60084A5BD0094BDD6007BA5BD007B9CB5008CB5CE008CADC60094BDD6009CC6 + DE00739CB5007B9CAD006B8494005A737B00425A630042525200424A52003942 + 420039393900424242007B7B7300BDBDB5000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00B5F7F700C6F7F700FFFF + FF0000000000000000009494FF008C8CFF008484FF007B84FF007B7BFF007373 + FF007373FF000000AD000000AD00000000000000000000000000B5A59C00BD4A + 0000D67308008CAD9400D6D6C600CE732100E76B0000EF730000C6731800945A + 390084311000942900008C290000AD8C8400DEBD8400E7AD4A00D6BDA500EFD6 + BD00DEC69C00E7DED600CEBDB500CEB5B5000000000000000000000000000000 + 000000000000000000009C9C9C0063636300311818000000000000000000CECE + CE00D6DEDE00CEBDB500DEC6DE00B5BDB500BDBDB500C6CECE00CEBDBD00BDBD + B500BDBD9400CEBDB500B5B5B500B5A5A500A5B5BD006B8CAD00A5CEEF008CAD + CE0084A5C6008CADC6008CADC60084ADC6008CADC6008CB5CE009CBDD60084AD + BD005A7B8C00526B730052636300525A5A005A5A5A00525252004A4242003939 + 39005252520094949400A5A5A500B5B5B5000000000000000000000000000000 + 0000000000000000000000000000FFFFFF008CEFEF00ADF7F700C6F7F700E7FF + FF00FFFFFF00000000008C8CFF008484FF008484FF007B7BFF007373FF007373 + FF006B6BFF000000AD000000AD000000A5000000000000000000B5948400D65A + 0000BD7B18009CCEBD00FFFFFF00E7D6C600D67B2100EF730000EF730000D673 + 18009C633900843110008C310800B59C9400EFD69400FFC65A00D6B57B00EFB5 + 4200E78C0000E7BD9400F7EFEF00F7EFEF004231310063424200634242005242 + 630031424200424242006342630052424200424242004242420052424200CECE + CE00EFEFEF00BDBDB500C6CECE00CEBDBD00BDBDB500BDBD9400CEBDB500B5B5 + B500B5A5A5009C9C9C00A5B5B500A5949400ADB5C600527B9400A5CEEF0094BD + D60094B5CE008CB5C60084A5BD007394AD007B9CB5008CB5CE007B9CB5006373 + 7B004A5A5A00525A5A0063636300635A5A0052524A004A4A42004A4242006B6B + 63009CA59C00848C84008C8C8C00A5A5AD000000000000000000000000000000 + 0000000000000000000000000000FFFFFF008CEFEF00A5F7F700C6F7F700DEFF + FF00CEFFFF00000000008484FF008484FF007B7BFF007373FF007373FF00ADAD + FF00ADADFF000000A5000000A5000000A50000000000000000009C6B4200E76B + 00009C843100B5DED600FFFFFF00FFFFFF00DEDECE00D6842900F77B0000F77B + 0000DE7B1000A563310084523900B5ADA500FFE7AD00F7D67B00D6A55200F7AD + 2900FF9C0000E7AD7300FFFFFF00FFFFFF009C9C9C00D6DEDE00D6DEDE00CECE + CE00D6DEDE00CECECE00CEBDB500CECECE00D6DEDE00CECECE00BDBDBD00CECE + CE00EFEFEF00D6DEDE00D6DEDE00D6DEDE00D6DEDE00D6DEDE00D6DEDE00EFEF + EF00EFEFEF00D6DEDE00D6DEDE00EFEFEF008494A500739CB50094BDDE008CAD + CE008CADC6006B94AD00739CB50084A5BD00738CA5006B8C9C00425A63004A5A + 5A0063736B006B737300636363005A5A5A00524A4A0042424200847B7B009CA5 + 9C006B736B006B736B00ADADAD0094A5AD000000000000000000000000000000 + 00000000000000000000FFFFFF006BE7E70084EFEF00A5EFEF00BDF7F700D6FF + FF00CEFFFF00000000008484FF007B7BFF007373FF00ADADFF00ADADFF009C9C + FF009C9CFF009494FF0000009C0000009C00000000000000000094521000F77B + 000084945200CEEFE700FFFFFF00FFFFFF00FFFFFF00E7DED600CE843100EF84 + 0000F78C0000DE7B0800A5734200BDAD9C00FFEFBD00EFCE8C00EFBD6300E7A5 + 3100EFA51000DE9C4A00F7EFF700FFFFFF009C9C9C00EFEFEF00D6DEDE00D6DE + DE00FFFFFF00D6DEDE00CECECE00D6DEDE00CEBDB500D6DEDE00CECECE00CECE + CE00EFEFEF00EFEFBD0063311800423131004231310042313100423131004231 + 31004231310042313100423131004231310084949C0084ADC60094BDDE007BA5 + C600739CB500739CB500739CB5007B9CB5005A7384004A5A5A005A636B00737B + 7B00737B7B00636B6B005A636300525252005A5A5A00948C9400949C9C00636B + 63006B6B63009C9C9C00A5ADB5007B94A5000000000000000000000000000000 + 00000000000000000000FFFFFF0063E7E70084EFEF009CEFEF00B5F7F700D6FF + FF00CEFFFF00000000007B7BFF00ADADFF00ADADFF009C9CFF009C9CFF009C9C + FF009494FF009494FF008C8CFF00000094000000000000000000AD5A0000E784 + 00007BAD7B00EFF7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7DEDE00CE8C + 3900EF840000FF8C0000E7840000BD844200CEB59400EFD6AD00FFDE8C00E7AD + 5200E7AD4200DE942900EFCEBD00FFF7EF009C9C9C00EFEFEF007352520000FF + 000000FF0000EFDED600D6DEDE00CECECE00D6DEDE00CECECE00CEBDB500CECE + CE00EFEFEF00D6DED60052314200734252008442630073425200734252006342 + 5200844263004231310042313100423131008C94A5007BA5BD0084B5D60084AD + CE008CB5CE008CB5CE007BA5BD00637B8C0052636B00737373008C8484007B84 + 7B0073737300636363005A5A5A006B6363009C9494008C8C8C00636363006B73 + 6B008C8C8C00BDB5BD008494A5008CB5C6000000000000000000000000000000 + 000000000000FFFFFF0042E7E70063E7E7007BEFEF0094EFEF00B5F7F700CEF7 + F700E7FFFF0000000000ADADFF009C9CFF009C9CFF009C9CFF009C94FF009494 + FF00948CFF008C8CFF008C8CFF008484FF0000000000B59C9400C6630000CE8C + 100084BD9C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7 + DE00D6943900F78C0000FF940000EF8C0000B5845200E7D6C600FFE79C00DEAD + 7300EFB56300DE942900F7D6CE00F7E7CE009C9C9C00EFEFEF00314242007352 + 520031424200D6DEDE00CECECE00CEBDB500CECECE00D6DEDE00CECECE00CECE + CE00EFEFEF00DEDEDE0052314200734252008442630084426300634252006342 + 5200844263008442630063424200423131008494A5007BA5C60094C6E7007BA5 + C60084B5CE007B9CB500527384004A5A63007B7B8400949494008C8C8C007B7B + 7B006B6B6B00635A5A00736B73009C949400848484006B6B6B0073737300848C + 8C00BDB5BD00A5A5AD00849CAD0084ADCE000000000000000000000000000000 + 000000000000FFFFFF0039E7E7005AE7E70073EFEF0094EFEF00ADF7F700C6F7 + F700E7FFFF00F7FFFF00000000009C9CFF009C9CFF009C94FF009494FF00948C + FF008C8CFF008C8CFF008484FF00847BFF00000000009C7B6B00E7730000AD8C + 290094C6B500FFFFFF00F7F7F700F7F7FF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00E7E7DE00DE943100FF9C0000F7940000BD946300EFE7E700F7EFD600EFD6 + AD00EFC68400E7AD5200EFD6CE00F7EFD6009C9C9C00EFEFEF00EFEFEF00EFEF + EF00EFDED600EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFDEDE00D6DEDE00CECE + CE00FFFFFF00EFEFBD0052314200844252007352520073425200844263008442 + 5200734252007352520084425200423131008494A50073A5BD0094C6E70084AD + CE0073A5BD0052738C004A636B00848484009C9C9C00948C94008C848C007B73 + 7B006B6363007B737300949494007B7B7B00737373007B737B00948C8C00B5B5 + B500B5B5BD007B8C9C007B9CB50073A5BD000000000000000000000000000000 + 0000FFFFFF0018DEDE0039DEDE0052E7E70073EFEF008CEFEF00A5F7F700C6F7 + F700DEFFFF00F7FFFF00FFFFFF00000000009C94FF009494FF009494FF008C8C + FF008C8CFF008484FF008484FF007B7BFF0000000000946B4200EF840000848C + 3900BDD6D600F7F7F700F7F7F700F7F7F700F7F7FF00F7FFFF00FFFFFF00FFFF + FF00E7F7FF00AD9C5A00FF9C0000D6840800CEB5A500FFF7F700FFFFF700FFEF + E700F7E7BD00EFE7CE00F7EFE700F7E7C6006363630063636300636363006363 + 630063636300636363006363630063636300636363006363630063636300CECE + CE00EFEFEF00B5CEBD0052314200845263006352420073525200846363008442 + 6300734252007342520052426300844242008494A500739CC60094BDE7007B94 + BD00526B8400425263007B848C00A5A59C009C9C94009494940084848C00736B + 6B007B7B7B00948C8C007B7B7B007B737B00848484009C9C9400BDBDB500C6C6 + C600849CAD008CB5D6008CBDDE0084B5D6000000000000000000000000000000 + 0000FFFFFF0018DEDE0031DEDE004AE7E7006BE7E70084EFEF00A5F7EF00BDF7 + F700D6FFFF00EFFFFF00FFFFFF00FFFFFF0000000000948CFF008C8CFF008C8C + FF008484FF008484FF007B7BFF007B7BFF0000000000A56B2100EF9400007394 + 5A00CEDEE700EFEFEF00EFEFEF00EFEFF700F7F7F700F7F7F700FFFFFF00FFFF + FF00C6E7E700848C4A00FF9C0000C6842900D6CEBD00FFFFFF00FFFFF700FFF7 + F700FFF7E700F7EFCE00FFF7DE00F7E7BD007342520031181800311818003118 + 180031181800311818003118180031181800311818003118180031181800CECE + CE00EFEFEF00EFEFD60052314200734252008442630084425200734252007342 + 5200844252008442520073425200734242008494A50073A5C6008CBDE7006B8C + AD004A5A73006B7384009C9CA500A59C9C009C9C94008C949400737B7B007B7B + 8400948C8C00847B84008C84840094949400ADADAD00C6C6C600C6CECE008C9C + A50084A5BD0073ADC6007BB5D6008CBDDE00000000000000000000000000FFFF + FF0000D6D60010DEDE0029DEDE004AE7E70063E7E70084EFEF009CEFEF00B5F7 + F700D6FFFF00EFFFFF00FFFFFF00FFFFFF0000000000000000008C8CFF008484 + FF008484FF007B7BFF007B7BFF000000000000000000B56B0000DE941000739C + 7B00DEDEE700E7E7E700E7E7E700E7EFEF00EFEFEF00EFF7F700F7F7F700FFFF + FF009CC6C600AD8C2100FF940000BD8C5200E7E7DE00FFF7F700FFEFDE00FFEF + D600FFF7F700FFF7EF00FFEFCE00FFE7B500CECECE00D6DEDE00CEBDB500DEC6 + DE00B5BDB500BDBDB500C6CECE00CEBDBD00BDBDB500BDBD9400CEBDB500CECE + CE00EFEFEF00EFEFEF0052314200734252009463630084426300634242007352 + 5200844263008463630073425200634242008494A5006B9CBD007BB5D600527B + 8C005A63730094949C009C9C9C009C9C9C00949494007B8484007B848400949C + 9C0094949400ADA5A500B5B5B500C6BDC600CECECE00CECED6009CA5AD007394 + AD00638CAD005A84A5006B94B50073A5CE00000000000000000000000000FFFF + FF0000D6D60010DEDE0029DEDE0042E7E70063E7E7007BEFEF0094EFEF00B5F7 + F700CEF7F700E7FFFF00FFFFFF0000000000EFADAD00E7ADAD00000000008484 + FF007B7BFF00000000000000000063313100BDB5AD00CE730000C69C29007BAD + 9C00E7DEE700DEDEDE00DEDEDE00E7E7E700E7E7EF00EFEFEF00F7F7F700F7F7 + FF0084AD8C00DE940800EF8C0000BD9C7B00F7F7F700FFF7F700FFEFC600FFEF + C600FFF7EF00FFF7EF00FFEFCE00F7E7BD00CECECE00EFEFEF00BDBDB500C6CE + CE00CEBDBD00BDBDB500BDBD9400CEBDB500B5B5B500B5A5A5009C9C9C00CECE + CE00EFEFEF00BDCEC60052314200633118006331180063311800633118006331 + 1800633118006331180063311800633118007B94A5006B9CBD0073A5C600526B + 7B0084848C009C9C9C009C9C9C00949494008484840094949400B5BDBD00ADB5 + B500BDC6C600CECECE00D6CECE00CECECE00CED6D60094A5AD007394AD007BAD + C6005A8CAD006394B50084B5D6007BADD6000000000000000000FFFFFF0000D6 + D60000D6D60008DEDE0021DEDE0039E7E7005AE7E70073EFEF0094EFEF00ADF7 + F700CEF7F700E7FFFF00F7FFFF0000000000EFB5B500E7ADAD00DEA5A5000000 + 000000000000CE9C9C00CE9C9C0063313100A58C6B00DE7B0000ADA5420042AD + 84009CC6B500E7D6DE00DED6DE00DEDEDE00E7E7E700EFEFEF00F7EFF700D6E7 + EF007B945A00F7940000D68C1800CEBDB500F7FFF700FFF7EF00FFEFDE00FFEF + C600FFF7DE00FFF7DE00FFEFBD00F7EFC600CECECE00EFEFEF00B5CEBD00D6DE + DE00D6DEDE00D6DEDE00D6DEDE00D6DEDE00EFEFEF00EFEFEF00D6DEDE00CECE + CE00EFEFDE00D6DEDE00EFEFD600DEDEDE00DEEFD600EFEFD600D6DED600EFEF + D600EFEFDE00D6DED600EFEFD600DEDEDE008494A5004A739C0063849C00636B + 7B00949494009C9C9C009C9C9C008C8C8C009C9CA500D6D6D600D6D6D600CECE + CE00DED6D600DED6D600DED6D600CED6D60094ADA5007394A50073ADC60073A5 + C600739CC6006B9CC6007BADD60073ADCE00000000000000000000000000FFFF + FF0000D6D60008D6D60018DEDE0039DEDE0052E7E70073EFEF008CEFEF00A5F7 + F700C6F7F700DEFFFF000000000000000000EFB5B500E7ADAD00DEA5A500D69C + 9C00CE9C9C00CE9C9C00CE9C9C00633131009C6B3900F7940000DEA521005AA5 + 730042AD7B009CBDAD00E7D6DE00DEDEDE00CEC6CE00C6C6C600F7F7F700ADCE + C600948C2900FF9C0000B57B4200E7DEDE00FFFFFF00FFFFFF00FFFFFF00FFFF + EF00FFF7DE00FFEFCE00EFE7CE00D6C69400CECECE00EFEFEF00EFEFBD006331 + 180042313100423131004231310042313100423131004231310042313100CECE + CE00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFDED600EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFDEDE00EFEFEF00EFEFEF008494A5005A84A5005A7384008484 + 84009C9C94009C9494008C8C8C00A5A5A500DEDEDE00D6DEDE00CECECE00E7DE + DE00E7DEDE00E7DEDE00D6D6D60094A5AD006B8C94006B9CB5006394BD006394 + B5006B9CBD006B94C6006394BD006394B5000000000000000000000000000000 + 0000FFFFFF0000D6D60018DEDE0031DEDE004AE7E7006BE7E70084EFEF00A5F7 + EF00BDF7F700D6FFFF000000000000000000EFB5B500EFADAD00DEA5A500D6A5 + A500CE9C9C00FFDEDE00FFDEDE00AD525200BDA59400BD730000FF9C0000D69C + 29005AA5730042A57B009CBDAD00D6CED600B5ADB5009C949C00C6BDC6007BA5 + 9400C68C1000F7940000AD8C6B00C6C6C600DEDEDE00EFEFEF00F7F7F700FFF7 + FF00FFFFFF00FFFFFF00EFE7EF00DEB54200CECECE00EFEFEF00D6DED6005242 + 3100844263007342520073425200634252008442630084426300524231004231 + 3100B5BDB500BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD008494A500527B9400637384009494 + 8C009C94940094949400B5B5B500DEDEDE00E7E7E700DEDEDE0094949400B5B5 + B500E7E7E700C6CECE007B8C9C007394AD006B9CBD00638CAD006384AD006BA5 + C6005A94BD00639CBD006394BD006BA5C6000000000000000000000000000000 + 000000000000FFFFFF0010DEDE0029DEDE004AE7E70063E7E70084EFEF009CEF + EF00B5F7F700000000000000000000000000EFB5B500EFADAD00E7ADAD00FFDE + DE00FFDEDE00FFCECE00FFCECE00D6A5A50000000000BDA59400BD730000FF9C + 0000CE9C2900529C7300429C7B0084A594007B7B7B008C94940073948C006B94 + 6300F79C0000D6840800A5846B00D6CECE00E7DEDE00D6D6D600D6D6D600D6D6 + D600DEDEDE00E7DEE700CEC6B500BDA55A00CECECE00EFEFEF00DEDEDE005231 + 4200844263007342520073425200634252008442630084426300634242004231 + 310042313100B5BDB5009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C008494A5004A6B8400737B8C009494 + 940094949400B5ADB500E7E7E700E7E7E700E7E7E700EFE7EF00A5A5AD005A6B + 7B00849CAD006B8CA5006B94AD006B9CBD006B94BD00638CB500638CB5006B9C + C6006394BD006394AD00638CAD005A8CA5000000000000000000000000000000 + 00000000000000000000FFFFFF0029DEDE0042E7E70063E7E7007BEFEF0094EF + EF00B5F7F700000000000000000000000000EFB5B500FFDEDE00FFDEDE006331 + 3100633131006331310063313100633131000000000000000000BDA59C00BD73 + 0000FF9C0000CE9C2900529C6B00318C63004A736300395A5200187B5A008C94 + 4200FF9C0000C684290094736300CEBDB500CEB5AD00CEB5B500CEB5AD00CEB5 + AD00CEBDB500CEBDB500CECEC600D6D6DE00CECECE00EFEFEF00EFEFBD005231 + 4200844263008442630063425200634252008442630084426300634242008442 + 52004231310042313100FFFFFF00C6BDCE009C9C9C0084848400311818000000 + 00000000000000000000000000000000000084949C004263730084848C008C8C + 8C00B5B5BD00EFEFEF00F7EFEF00F7EFF700EFE7EF00D6DEDE009CADB5005A8C + A5005A8CAD00528CB5005A94BD006394BD00638CBD006394BD00639CBD005A94 + B5005A84A500527B9400395A730042637B000000000000000000000000000000 + 0000000000000000000000000000FFFFFF0039E7E7005AE7E70073EFEF008CEF + EF0000000000000000000000000000000000FFDEDE00FFCECE00525252000000 + 000000000000000000000000000063313100000000000000000000000000BDA5 + 9400BD6B0800FF9C0000C69C290042735200A5B5A500CEBDAD0063735200C68C + 1800F7940000AD734200BDADA500000000000000000000000000000000000000 + 000000000000CEB5AD00CEB5B500CEB5AD00CECECE00EFEFEF00B5CEBD005231 + 4200735252007342520084426300844252007342520073525200844252005242 + 63008442420042313100FFFFFF00B5A5A5009C9C9C0084848400311818000000 + 000000000000000000000000000000000000848C94004A5A6B0084848C00B5AD + AD00F7F7EF00F7F7EF00DEDEDE00BDC6CE0094ADBD007BA5B5006B9CBD0073AD + D60073ADD6006BADDE006BA5D60073ADD60073ADD60073ADD60073ADD6006BA5 + C6006394B5009CC6E7007394B50084ADCE000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0052E7E70073EFEF008CEF + EF000000000000000000000000000000000000000000FFCECE00000000004A4A + 4A00424242004242420042424200000000000000000000000000000000000000 + 0000BDA59C00B56B0800FF9C0000E79C1800EF9C2100F7941000FF9C0800FF9C + 0000EF9410008C634200CEBDB500000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00EFEFEF00EFEFD6005231 + 4200635242007352520084636300844263007342520073425200524263007342 + 52007342420042313100FFFFFF00CEBDB5009C9C9C0084848400311818000000 + 000000000000000000000000000000000000848C9400525A6B00A59C9C00E7E7 + E700BDC6CE008494A5006B8C9C006B94B5006B9CBD00639CC600639CC600639C + C600639CC6005A94C600639CC600639CBD00528CAD00528CAD00639CC6006B9C + C6005284AD0094BDE70094C6EF007BADD6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF006BEFE7000000 + 00000000000000000000000000000000000000000000101010006B6B6B007373 + 73006B6B6B005A5A5A0042424200424242000000000000000000000000000000 + 000000000000BDA59C00B56B0800FF9C0000FF9C0000FF9C0000FF9C0000FF94 + 0000CE8421009C7B6B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00EFEFEF00EFEFEF005231 + 4200844263008442520073425200734252008442520084425200734252007342 + 42006331180042313100FFFFFF00BDBDB5009C9C9C0084848400311818000000 + 000000000000000000000000000000000000848C9400636B7300C6CED60094A5 + AD00527B9C004A7B9C005A8CB5005A94BD00639CC6005A8CBD005284AD005284 + AD005A94B500528CAD005A8CB5005A8CB5005A8CB5004A84A5005A94B5006394 + BD005284AD0084BDDE006BA5C600396B84000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 00000000000000000000000000000000000000000000212121009C9C9C00A5A5 + A5009C9C9C007B7B7B005A5A5A00424242000000000000000000000000000000 + 00000000000000000000BDAD9C00AD6B0800FF940000FF9C0000FF940000FF94 + 0000A56B2900BDAD9C0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00EFEFEF00BDCEC6005231 + 4200523142005231420052314200523142005231420052314200523142005231 + 42005231420042313100BDBDBD00BDBDB5009C9C9C0084848400311818000000 + 0000000000000000000000000000000000008C8C94008C8C940094A5BD006394 + B5005A9CC6005A9CC6006BA5CE006BA5D6006BA5CE00639CC600639CC6005A9C + C60063A5CE006BA5CE006BA5CE006BA5D6006BA5D6006BA5CE006BA5CE00528C + B5005A8CBD006394B5004A6B8400B5BDC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000021212100C6C6C600DEDE + DE00C6C6C6009C9C9C006B6B6B00424242000000000000000000000000000000 + 0000000000000000000000000000C6ADA500AD631000F7940000FF940000EF8C + 08009C734A00CEBDB50000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00EFEFDE00D6DEDE00EFEF + D600DEDEDE00DEEFD600EFEFD600D6DED600EFEFD600EFEFDE00D6DED600EFEF + D600DEDEDE00EFEFD600EFDEDE00BDBDBD009C9C9C0084848400311818000000 + 0000000000000000000000000000000000008C949C006B849C00739CC60063AD + D60063A5D6006BA5D6006BA5D6006BA5D6006BA5D6006BADD6006BA5D6006BA5 + D6006BA5D6006BA5D6006BA5D6006BA5D6006BA5D6006BA5D6005A9CCE00528C + B5004A739C0052738C00CED6DE00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052525200DEDEDE00FFFF + FF00DEDEDE00A5A5A500737373004A4A4A000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500AD6B1800FF8C0000D67B + 1000947B6300C6B5AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CECECE00EFEFEF00EFEFEF00EFEF + EF00EFDED600EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFDEDE00EFEFEF00EFEF + EF00EFDEDE00DEEFDE00DEEFDE00CECECE009C9C9C0084848400311818000000 + 0000000000000000000000000000000000007B8C9C004A7BA500639CC6005A94 + C6005A9CC600529CC6005294BD005294BD005294BD005294BD005294BD005294 + BD005294BD005294BD005294BD005294BD005A9CC6005A9CC600528CB500396B + 84006B849400E7E7EF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000021212100DEDE + DE00C6C6C6009C9C9C006B6B6B00101010000000000000000000000000000000 + 00000000000000000000000000000000000000000000C6ADA500A5631800AD6B + 29009C8C7B000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B5BDB500BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBD + BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00BDBDBD0084848400311818000000 + 000000000000000000000000000000000000ADB5BD00738C9C007B94A5008494 + A5007B94A5007B94A5008494A500849CAD00849CAD00849CAD00849CAD007B94 + AD007B94AD007B94AD007B94A5007B94A5007B94A500738CA500738C9C0094AD + B500EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001010 + 1000101010000000000042424200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C6ADA5008463 + 5200CEBDB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5BDB5009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004200C6000021C6000063C60000218400002184000021 + 63000021840000638400002184000063C6000021C6000063C6000063C6000021 + C6000063C6000021C6000021C600002184000000000000000000000000000000 + 000000000000EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00F7F7FF00E7F7EF00FFF7E700C67B63008C523900AD6B5200BD736300EF9C + 8400FFAD9400EF9C7B00BD735A00E7948400000000000000000000000000FFFF + FF009CCEFF00639CCE00639CCE0000000000FFFFFF009CCEFF009CCEFF00639C + CE00639CCE000000000000000000CECECE00CECECE00C6C6C600C6C6C600FFFF + FF00C6C6C600CECECE0000000000CECECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE736300944A3900AD635200CE736300F79C + 8C00FFB59400F79C8C00AD635200F79C8C000000000000000000000000000000 + 000000000000002184000063FF000063C6000021840000216300002163000021 + 630000216300006363000021840000638400006384000063C6000063C6000063 + C6000063C6000021C600002184000063C6000000000000000000EFEFEF000000 + 000000000000EFEFEF0000000000EFEFEF00EFEFEF00DE848C00E77B7B00F784 + 7B00D6736B00AD6B5A00BD6B5A00A55A4A00D66B5A00E77B6B00EF7B6B00FF84 + 6B00F77B6300FF7B7300EF736B00FF8C8C000000000000000000000000000000 + 0000FFFFFF009CCEFF00639CCE00639CCE0000000000FFFFFF009CCEFF000000 + 000000000000CECECE00CECECE00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FF7B7300FF7B7300FF7B + 7300CE736300CE736300AD635200AD635200CE736300E78C7300FF7B7300FF7B + 7300EF844200FF7B7300E78C7300E78C73000000000000000000000000000000 + 0000000000000021FF000063C6000084C6000063840000216300002163000021 + 63000021630000216300006363000063840000638400006384000063C6000084 + C6000063C6000063C6000063C600006384000000000000000000EFEFEF000000 + 0000EFEFEF000000000000000000EFEFEF00EFEFEF00FFCECE00FFDED600FFDE + CE00F7D6C600FFE7DE00FFD6D600EFDEDE00FFE7CE00FFE7CE00FFE7C600FFDE + BD00F7CEA500FFE7BD00FFD6B500EFC6AD000000000000000000000000000000 + 000000000000FFFFFF009CCEFF00639CCE00639CCE000000000000000000CECE + CE00CECECE00C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFE7DE00FFDE + D600FFDED600FFDED600FFDED600FFDED600FFDED600FFDEC600FFDEC600FFDE + C600FFCEBD00FFCEBD00FFCEBD00FFC6A5000000000000000000000000000000 + 0000000000000063C6004284C60042C6FF000084C60000216300002121000021 + 21000021630000216300002163000063630000636300006384000084C6000063 + C6000084C6000063C6000063C600002184000000000000000000EFEFEF00EFEF + EF00EFEFEF000000000000000000EFEFEF00EFEFEF00F7E7DE00FFFFFF00FFFF + F700FFFFF700FFFFEF00FFEFE700FFF7EF00FFEFE700FFDEDE00FFDEDE00FFE7 + DE00FFDEC600FFE7C600F7D6BD00E7BDAD000000000000000000000000000000 + 00000000000000000000FFFFFF000000000000000000DEDEDE00DEDEDE00C6C6 + C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFF7EF00FFFF + FF00FFFFFF00FFFFFF00FFF7EF00FFEFEF00FFEFE700FFEFE700FFE7DE00FFE7 + DE00FFDED600FFDED600FFCEBD00FFBDAD000000000000000000000000000000 + 00000063C6000084FF0084C6FF0084FFFF000084C60000636300002121000021 + 2100002121000021210000636300002163000063630000638400006384000063 + C6000063C6000084C600006384000063C6000000000000000000EFEFEF00EFEF + EF00000000000000000000000000EFEFEF00EFEFEF00F7D6D600FFDED600FFAD + 9400FFB57300EFAD5200F7AD4200FFB55200FFBD3900FFB54200FFB55200FFBD + 5200FFAD3900FFA53100F79C3100FFA542000000000000000000000000000000 + 0000000000000000000000000000DEDEDE00DEDEDE00C6C6C600C6C6C600FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFEFE700FFB5 + 9400FFA56B00FFBD4A00FFAD4200FFBD4A00FFBD4A00FFAD4200FFBD4A00FFBD + 4A00FFAD4200FFAD4200FF9C3100FFAD42000000000000000000000000000000 + 00000063C6000084FF0084FFFF0084FFFF0042C6C60000848400002121000021 + 2100002121000021210000216300006363000063630000636300006384000084 + C600008484000063C600006384000063C6000000000000000000EFEFEF000000 + 0000000000000000000000000000EFEFEF00EFEFEF00EFDED600FFEFCE00E78C + 3100F79C0000FFC60000FFC60000F7BD0000FFBD0000FFAD0000F7A50000FFA5 + 0800FFAD0800FFAD0000FFA50000FFA510000000000000000000000000000000 + 0000000000000000000000000000DEDEDE00C6C6C600FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFE7DE00EF84 + 1000FFB50000FFB50000FFB50000FFB50000FFB50000FFB50000FFAD0000FFAD + 0000FFAD0000FFAD0000FFAD0000FFAD00000000000000000000000000000000 + 00000063C6000084FF0084FFFF00FFFFFF0084C6C60042C6C600006384000021 + 2100002121000021210000212100006363000021630000636300006363000084 + 84000063C6000084C600006384000084C60000000000EFEFEF00EFEFEF000000 + 00000000000000000000EFEFEF00EFEFEF00FFF7EF00FFDED600FFEFCE00EFAD + 5200F7B51800FFCE0800FFBD0000F7B50800FFBD0000F7A50000F79C0800EF9C + 0800F7A50000FFBD0000FFB50000FFAD00000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFDED600FFEFE700FFA5 + 6B00FFBD0000FFC62100FFBD0000FFBD0000FFB50000FF9C0000FF9C0000FF9C + 0000FFAD0000FFB50000FFAD0000FFAD00000000000000000000000000000000 + 00000084C60042C6FF00FFFFFF00FFFFFF0084C6C60042C6C600008484000021 + 2100002163000021210000212100006363000063630000636300006384000084 + 8400008484000084C600008484000063840000000000EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF0000000000BD7B6B00C6636300CE737300D673 + 5200D6732900E7731000EF6B1800DE732900EF844200E7735200F78C7300F78C + 6300E78C3100EF9C1000FFAD0800FFAD00000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 000000000000000000000000000000000000CE736300CE736300CE736300CE73 + 6300DE731800DE731800DE731800DE731800EF844200EF844200E78C7300FF7B + 7300EF844200FF9C0000FFB50000FFAD00000000000000000000000000000000 + 00000084FF0000C6FF00FFFFFF0084FFC60084FFFF0084C6C60042C6C6000063 + 6300006321000021630000212100002163000063630000636300008484000084 + 840000848400008484000084840000848400EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00FF8C8C00F7847300F79C8C00EF9C9400EFBD + A500EFD6B500FFD6BD00FFC6BD00F7DED600F7DED600FFF7F700FFEFE700FFAD + 8400E7841800F78C0000FFB50800FFB500000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 0000000000000000000000000000F79C8C00E78C7300F79C8C00F79C8C00FFBD + AD00FFCEBD00FFCEBD00FFCEBD00FFDED600FFE7DE00FFF7EF00FFEFE700FFB5 + 9400DE731800FF9C0000FFB50000FFB500000000000000000000000000000000 + 000000C6FF0042C6FF0084FFFF00FFFFFF00FFFFFF00FFFFC60084C6C6000084 + C600006363000063210000632100006321000063630000636300008463000084 + 840000848400008484000084630000638400EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00DE848400AD736B00F7847300FFC6B500FFCEBD00FFD6 + CE00FFDEC600FFDEC600FFEFDE00E7DED600FFE7E700E7BDB500E7A58400DE8C + 4200E7840800FFB50800FFAD0000FFB500000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00C6C6C600CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000FF7B7300CE736300FF7B7300FFCEBD00FFCEBD00FFDE + C600FFDED600FFDEC600FFE7DE00FFE7DE00FFEFE700FFBDAD00F79C8C00EF84 + 4200EF841000FFB50000FFB50000FFB500000000000000000000000000000000 + 000000C6C60000C6FF0084FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000C6 + 8400008463000021210000212100006321000063210000846300006363000084 + 630000846300008463000063630000846300EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00F78C9400EFE7CE00DE6B5A00FFDEC600FFE7D600FFCE + C600FFE7D600FFE7D600FFEFDE00FFE7E700CE9C9C00FFBDAD00FFAD7300E78C + 1800FFAD0800FFB50000FFBD0000FFAD00000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007373 + 7300CECECE00CECECE0000000000C6C6C6000000000000000000000000000000 + 00000000000000000000F79C8C00FFDED600CE736300FFCEBD00FFDEC600FFDE + C600FFDED600FFE7DE00FFEFE700FFEFE700F79C8C00FFC6A500FFB59400EF84 + 1000FFB50000FFB50000FFB50000FFB500000000000000000000000000000000 + 00000000000000FFFF0042FFC60084FFFF00FFFFFF00FFFFFF0084FFFF0000C6 + C60000C684000063210000632100006321000084630000632100008421000084 + 630000632100006363000084210000636300EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00F7848C00F7E7DE00FFFFF700F78C7B00F7C6B500EFE7D600F7E7 + DE00FFE7DE00FFEFE700FFE7E700D6949400FFC6BD00FFCEA500EF942900FFA5 + 0800FFBD0000FFBD0000FFB50000FFB500000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007373730073737300CECE + CE00CECECE000000000000000000C6C6C6000000000000000000000000000000 + 000000000000FF7B7300FFEFE700FFFFFF00FF7B7300FFCEBD00FFDED600FFE7 + DE00FFE7DE00FFEFE700FFEFE700F79C8C00FFCEBD00FFCEBD00EF841000FFB5 + 0000FFBD0000FFB50000FFB50000FFB500000000000000000000000000000000 + 00000000000000C6C60000FFFF0042FFFF0084FFFF0084FFFF0042C6C60000C6 + 8400008463000063630000842100006321000063630000846300006363000084 + 630000632100006321000063630000636300EFEFEF00EFEFEF00EFEFEF00EFEF + EF00E77B8400FFADAD00F7FFFF00FFF7EF00FFBDAD00DE948C00FFDED600FFEF + E700FFEFE700FFE7E700F7BDBD00FFDED600FFE7C600E7944A00FFA51800FFB5 + 0000FFCE0000FFC60000F7B50000FFAD00000000000000000000000000000000 + 0000639CCE00639CCE0000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007373730073737300DEDEDE00DEDEDE000000 + 000000000000FFFFFF0073737300CECECE000000000000000000000000000000 + 0000FF7B7300FFBDAD00FFFFFF00FFFFFF00FFBDAD00F79C8C00FFE7DE00FFE7 + DE00FFEFEF00FFEFE700FFBDAD00FFE7DE00FFE7DE00EF844200FFB51800FFBD + 0000FFBD0000FFBD0000FFB50000FFB500000000000000000000000000000000 + 0000000000000000000000C6C60000FFC60000FFC60042FFC60000FFC60000C6 + 8400008463000084630000846300000000000063210000842100006321000063 + 210000632100006321000063210000632100EFEFEF00EFEFEF00EFEFEF00FFE7 + E700FF949C00FFFFF700FFFFF700F7F7F700FFEFE700E78C8400FFADAD00FFEF + EF00F7C6C600E7B5B500FFEFDE00F7F7D600FFA55A00EFA53100FFBD2900FFD6 + 1800EFB50000FFBD0000FFBD0000FFBD00000000000000000000000000000000 + 00009CCEFF009CCEFF0000000000DEDEDE0073737300FFFFFF00FFFFFF00FFFF + FF00FFFFFF007373730073737300DEDEDE00DEDEDE000000000000000000FFFF + FF007373730073737300CECECE00CECECE000000000000000000000000000000 + 0000F79C8C00FFF7EF00FFFFFF00FFFFFF00FFEFE700FF7B7300FFBDAD00FFEF + EF00FFCEBD00FFB59400FFF7EF00FFEFE700FFA56B00FFB51800FFC62100FFC6 + 2100FFBD0000FFBD0000FFBD0000FFBD00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000846300008463000084 + 630000842100000000000084630000C684000000000000212100006300000021 + 210000632100006321000063210000210000EFEFEF00EFEFEF00EFEFEF00EF84 + 8400F7E7DE00FFF7EF00FFFFF700F7FFFF00FFFFEF00FFC6BD00DE9C9C00E7BD + B500F7D6CE00FFF7E700FFFFE700F7C69C00FFAD3900FFC63900F7C62100FFC6 + 1800FFCE1800F7AD0000FFBD0800FFBD00000000000000000000000000000000 + 00009CCEFF009CCEFF0000000000DEDEDE0073737300FFFFFF00FFFFFF007373 + 73007373730031CEFF0031CEFF000000000000000000FFFFFF00737373007373 + 7300DEDEDE00DEDEDE000000000000000000000000000000000000000000FF7B + 7300FFE7DE00FFFFFF00FFF7EF00FFFFFF00FFFFFF00FFCEBD00F79C8C00FFBD + AD00FFCEBD00FFFFFF00FFFFFF00FFC6A500FFB51800FFBD4A00FFC62100FFC6 + 2100FFC62100FFBD0000FFBD0000FFBD00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000084630000C663000084630000212100000000000000 + 000000000000000000000000000000000000EFEFEF00EFEFEF00F7737B00FFC6 + BD00FFEFDE00FFFFEF00FFEFEF00F7FFFF00FFFFF700FFFFF700FFFFF700FFFF + F700FFFFEF00FFFFEF00FFD6B500FF846300FFB52900FFC62900EFC62900EFC6 + 2100FFC62900FFC62100FFB50000FFC600000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0073737300737373007373730031CE + FF0031CEFF0031CEFF0031CEFF00000000007373730073737300DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000FF7B7300FFBD + AD00FFF7EF00FFF7EF00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFCEBD00FF9C3100FFAD4200FFC62100FFC62100FFC6 + 2100FFC62100FFC62100FFBD0000FFBD00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000084210000C6840000FF840000846300000000000000 + 000000000000000000000000000000000000EFEFEF00D67B7B00EF9C9400FFE7 + DE00FFFFEF00FFEFE700FFEFE700FFF7F700FFFFF700FFFFF700FFFFF700FFFF + EF00FFEFE700FFDED600FFC6C600FFADB500FFAD8C00FFA57300FFA56300FFA5 + 4A00F79C2900FFAD2100FFBD1800F7A500000000000000000000000000000000 + 0000000000000000000000000000DEDEDE0031CEFF0031CEFF0031CEFF0031CE + FF0031CEFF0031CEFF0031CEFF000000000031CEFF0031CEFF00000000000000 + 00000000000000000000000000000000000000000000FF7B7300F79C8C00FFEF + E700FFF7EF00FFF7EF00FFF7EF00FFF7EF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFEFEF00FFDED600FFBDAD00FFBDAD00FFB59400FFA56B00FFA56B00FFAD + 4200FF9C3100FFB51800FFB51800FFAD00000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000063630000FF840000C6840000C66300008463000000 + 000000000000000000000000000000000000FFEFDE00C6948C00FFD6CE00FFF7 + E700FFE7DE00FFFFF700FFFFF700FFEFE700F7FFEF00F7E7DE00F7C6C600F7B5 + B500F7B5B500FFCECE00FFE7E700FFFFF700FFF7F700FFEFEF00FFEFE700FFEF + DE00FFE7CE00FFEFCE00FFE7C600EFCEAD000000000000000000000000000000 + 000000000000000000000000000000FFFF0031CEFF0031CEFF0031CEFF0031CE + FF0031CEFF0000FFFF0000FFFF000000000031CEFF0031CEFF00000000000000 + 00000000000000000000000000000000000000000000E78C7300FFE7DE00FFEF + E700FFEFE700FFF7EF00FFF7EF00FFF7EF00FFEFEF00FFEFEF00FFBDAD00FFBD + AD00FFBDAD00FFDED600FFF7EF00FFF7EF00FFEFEF00FFEFEF00FFE7DE00FFE7 + DE00FFE7DE00FFEFE700FFE7DE00FFC6A5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000084630000C6C60000C68400006321000084 + 630000000000000000000000000000000000F77B7B00E79C9400FFE7DE00FFE7 + DE00FFDED600FFEFE700EFD6CE00CEC6BD00F7B5BD00F7C6CE00F7E7DE00F7F7 + F700EFEFEF00F7F7EF00FFE7E700FFD6D600EFE7CE00EFDECE00EFDECE00EFD6 + CE00EFD6CE00FFE7DE00FFEFEF00FFEFEF000000000000000000000000000000 + 000000000000000000000000000000FFFF0031CEFF0031CEFF0031CEFF0000FF + FF0000FFFF00000000000000000031CEFF0031CEFF0031CEFF00000000000000 + 000000000000000000000000000000000000FF7B7300F79C8C00FFEFE700FFE7 + DE00FFE7DE00FFE7DE00FFDED600FFBDAD00FFBDAD00FFBDAD00000000000000 + 00000000000000000000FFDED600FFDED600FFDED600FFDED600FFDED600FFDE + D600FFDED600FFDED600FFF7EF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000006321000084840042FFC600008463000084 + 630000000000000000000000000000000000EF9C9400FFDED600FFDED600FFBD + BD00FFBDB500F7ADAD00FFBDBD00FFEFE700EFEFEF00EFEFEF00FFEFF700FFF7 + F700EFEFEF00EFF7F700EFF7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00FFEFE700F7E7DE00EFD6D6000000000000000000000000000000 + 000000000000000000000000000000FFFF0031CEFF0000FFFF0000FFFF000000 + 00000000000031CEFF0031CEFF0031CEFF0000FFFF0000FFFF00000000000000 + 000000000000000000000000000000000000F79C8C00FFDED600FFDED600FFBD + AD00FFBDAD00FFBDAD00FFBDAD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFDED600FFDED6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000008463000084840000FFC6000084 + 630000842100000000000000000000000000FFADAD00F7BDB500EFC6BD00F7EF + DE00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF00000000000000000031CE + FF0031CEFF0031CEFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFBDAD00FFBDAD00FFBDAD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000846300008463000084 + 630000846300000000000000000000000000EFFFF700F7EFE700EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF0031CE + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F7EFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7EFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFF7EF00EFF7EF00EFF7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400000084000000 + FF00000084000000FF00000084000000FF00000084000000FF00000084000000 + FF00000084000000FF00000084000000FF000000840000008400000084000000 + 8400000084000000840000008400000084000000000000000000DEDEDE00B5B5 + B500ADADB500CECECE00DEDEDE00D6D6D600D6D6D600D6D6D600CECECE00BDBD + BD00C6BDC600ADADAD008C8C8C007B737B00848484008C848C007B7B7B009494 + 9400ADADAD00C6C6C600CECECE00D6D6D6000000000000000000C6C6C6009494 + 94007B7B7B0063A5D60063A5D60018BDEF0018BDEF0018BDEF0008A5E70008A5 + E70018B5E70018B5E70029D6F70031DEF70008A5E700009CDE000094DE006BC6 + FF000094DE006BC6FF000094DE006B6BFF0000000000CE000000FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000C6ADA500C6ADA50073737300CE000000FF9C + 9C00FF9C9C00FF9C9C00CE0000000000000000000000FF9C9C00FF9C9C00FF9C + 9C00CE0000006331310073737300C6ADA50000000000848484000000FF000000 + 84000000FF00000084000000FF00000084000000FF0000008400000084000000 + 84000000FF00000084000000FF00000084000000FF0000008400000084000000 + 840000008400000084000000840000008400EFEFE700B5B5B500ADA5AD00CECE + CE00DEDEDE00DEDEDE00D6D6D600D6D6D600D6D6D600CECECE00C6C6C600A5A5 + A5009C9CA5008C8C8C007B7B7B006B6B730094949C00B5B5B500949494008484 + 84008C8C8C00A5A5A500BDBDBD00CECECE00C6C6C600949494007B7B7B0063A5 + D60063A5D60018B5E70018B5E70018B5E70008A5E70008A5E70018B5E70018B5 + E70018BDEF0021CEEF0008A5E700009CDE000094DE0029D6F70029D6F70000AD + FF006BC6FF000094DE006BC6FF0000BDBD0000000000CE000000FF9C9C00FF9C + 9C00CE0000000000000073737300C6ADA500C6ADA50000000000CE0000000000 + 0000000000000000000000000000000000000000000000000000FF9C9C00FF9C + 9C00CE6363006331310000000000C6ADA5000000000084848400000084000000 + FF00000084000000FF0000008400000000000000840000000000000000000000 + FF00000084000000FF00000084000000FF000000FF000000FF00000084000000 + 840000008400000084000000840000008400ADADAD00B5B5B500D6D6D600DEDE + DE00D6D6D600D6D6D600D6D6D600D6D6D600CECECE00BDBDBD00B5B5B500A5A5 + A5008C8C8C007B737B006B6B6B0084848400C6C6CE00C6C6CE00ADADAD009494 + 94008C8C8C0094949400ADADAD00BDBDBD00313942004A73A50063A5D60018B5 + E70018B5E70018B5E70008A5E70008A5E70018B5E70018B5E70018BDEF0018BD + EF0008A5E700009CDE000094DE0029D6F70029D6F70029D6F70031E7F70029D6 + F70000ADFF006BC6FF000094DE006BC6FF0000000000CE636300FF9C9C00FF9C + 9C00CE00000000000000C6ADA500C6ADA500C6ADA50000000000000000000000 + 000063313100CE000000CE000000CE000000CE00000000000000FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000C6ADA50000000000848484000000FF000000 + 84000000FF00000084000000FF000000000000000000000084000000FF000000 + 84000000FF000000FF000000FF000000840000008400000084000000FF000000 + 840000008400000084000000840000008400D6D6D600E7E7E700D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600CECECE00BDBDBD00B5B5B500ADADAD00ADA5 + AD009C9C9C007B7B7B00948C9400DED6DE00EFEFF700DEDEDE00C6BDC600ADA5 + AD00A5A5A500A5A5A500B5B5B500C6C6C60031394200394A730008A5E70018B5 + E70008A5E70008A5E70018B5E70018B5E70018B5E70018B5E70008A5E700009C + DE000094DE0018BDEF0018BDEF0029D6F70031E7F70029D6F70031E7F70031E7 + F70029D6F70000ADFF006BC6FF000094DE0000000000FF9C9C00FF9C9C00CE63 + 63006331310000000000C6ADA500C6ADA5000000000000000000CE000000CE00 + 0000CE636300FF9C9C00FF9C9C00FF9C9C00FF9C9C0000000000FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000000000000000000084848400000084000000 + FF00000084000000FF00000084000000FF00000084000000FF00000084000000 + FF000000FF000000840000008400C6C6C600C6C6C600C6C6C600000084000000 + FF000000840000008400000084000000840000000000F7F7F700E7E7E700DEDE + DE00D6D6D600D6D6D600D6D6D600CECECE00BDBDBD00B5B5B500B5B5AD00ADAD + AD00ADADAD00B5B5B500DEDEDE00EFEFF700EFEFF700EFE7EF00DED6DE00BDBD + BD00A5A5AD00BDBDBD00CECECE00CECECE0031394200394A73000084BD0008A5 + E70008A5E70008A5E70008A5E70008A5E70008A5E700009CDE000084BD000094 + CE000094CE0018B5E70018BDEF0018BDEF0029D6F70031E7F70029D6F70031E7 + F70031E7F70029D6F70000ADFF006BC6FF0000000000FF9C9C00FF9C9C00CE63 + 63000000000000000000C6ADA5000000000000000000CE000000FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0000000000FF9C9C00FF9C + 9C00FF9C9C00CE000000000000000000000000000000848484000000FF000000 + 84000000FF00000084000000FF00000084000000FF000000FF000000FF000000 + 840000008400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000 + 84000000FF00000084000000840000008400000000000000000000000000F7F7 + F700E7E7E700DEDEDE00D6D6D600CECECE00C6C6C600BDBDBD00BDBDBD00B5B5 + B500BDBDBD00D6D6DE00E7DEE700E7E7E700E7E7EF00EFEFEF00E7E7EF00CECE + D600B5B5B500ADADB500CECECE00D6D6D60031394200394A73000084BD000084 + BD000084BD000084BD000084BD000084BD000084BD000084BD000084BD000094 + CE0008A5E70008A5E70018B5E70018BDEF0018BDEF0029D6F70031E7F70029D6 + F70031E7F70031E7F70029D6F7006BC6EF0000000000FF9C9C00FF9C9C00CE63 + 630000000000000000000000000000000000CE000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C0000000000FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000CE0000000000000084848400000084000000 + FF00000084000000FF00000084000000FF000000FF000000840000008400C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600FFFFFF00FFFFFF00C6C6C6000000 + 0000000084000000FF0000008400000084000000000000000000000000000000 + 00000000000000000000EFEFEF00DEDEDE00CECECE00CECECE00C6C6C600C6C6 + C600D6D6D600DED6DE00DED6DE00DEDEE700E7E7E700E7E7EF00EFEFEF00E7E7 + EF00CECED600B5B5B500B5B5B500D6D6D600395A840031394200313942003139 + 4200313942003139420031394200313942003139420039425A00395A84000084 + BD000084BD0008A5E70008A5E70018B5E70018BDEF0018BDEF0029D6F70031E7 + F70031E7F70029D6F70084D6E7009C9C9C0000000000FF9C9C00FF9C9C00FF9C + 9C00633131000000000000000000CE000000FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00000000000000000000000000000000000000000000000000FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000CE00000000000000848484000000FF000000 + 84000000FF000000FF000000FF000000840000008400C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C6000000 + 0000C6C6C600000084000000FF00000084000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00DEDEDE00CECECE00CECE + CE00CECED600D6CED600D6D6DE00DED6DE00DEDEE700E7E7E700E7E7EF00EFE7 + EF00E7E7E700CEC6CE00ADADAD00CECECE0000000000395A84004273CE00426B + B500426BB5004A73BD004A73BD004273C6004A73A5004A73A50039527B003139 + 420039425A00395A8400009CDE0008A5E70018B5E70018BDEF0018BDEF0029D6 + F70029D6F70084D6E700A5A5A500A58C8C004242420000000000FF9C9C00FF9C + 9C00CE000000000000000000000000000000FF9C9C00FF9C9C00FF9C9C000000 + 000000000000CE000000000000000000000000000000FF9C9C00FF9C9C00FF9C + 9C00CE6363000000000000000000FF9C9C000000000084848400000084000000 + FF000000FF000000840000008400C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C6000000 + 0000C6C6C60000000000000084000000FF000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFE7EF00CEC6CE00C6C6 + C600CEC6CE00CECECE00D6CED600D6D6DE00DEDEDE00DEDEE700E7E7E700E7E7 + EF00EFE7EF00DEDEE700C6BDC600B5B5B5000000000000000000395A84004273 + CE004A73BD004A73BD004273C6004273C6004273C6004273CE00427BCE004A73 + A50039527B0039426300395A84007BADC6007BADC60073BDCE0073BDCE0073BD + CE0029D6F70052D6EF00A58C8C009C8C9C00C6C6C60000000000FF9C9C00FF9C + 9C00FF9C9C0063313100000000000000000000000000FF9C9C00000000000000 + 0000FF9C9C00FF9C9C0063313100000000000000000000000000FF9C9C00FF9C + 9C00CE00000000000000FF9C9C00FF9C9C0000000000848484000000FF000000 + 8400000084000000840084848400C6C6C600C6C6C600C6C6C600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400C6C6C60000000000C6C6C600000084000000000000000000000000000000 + 000000000000000000000000000000000000E7E7EF00BDBDBD00BDB5BD00BDBD + C600C6C6C600CEC6CE00CECED600D6CED600D6D6DE00DED6DE00DEDEE700E7E7 + E700E7E7EF00EFE7EF00DED6DE00BDBDC600000000000000000000000000395A + 84004273CE004273C6004273C6004273C6004273CE00427BCE00427BCE00427B + D6004A73A50039527B006B7384009C8C8C00A59494009C8484009C848400A59C + 9C00B5B5B500A5A5A50084848C0031739400C6ADA5000000000000000000FF9C + 9C00FF9C9C00FF9C9C00CE000000000000000000000000000000000000000000 + 0000FF9C9C00FF9C9C00FF9C9C00633131000000000000000000000000000000 + 00000000000000000000FF9C9C00FF9C9C000000000000000000848484000000 + FF00000084000000840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFF + FF00C6C6C60000000000C6C6C600000000000000000000000000000000000000 + 0000000000000000000000000000EFEFEF00BDBDBD00ADADAD00B5ADB500BDB5 + BD00BDBDC600C6C6C600CEC6CE00CECECE00D6CED600D6D6DE00DED6DE00DEDE + E700E7E7EF00E7E7EF00E7E7EF00D6D6D6000000000000000000000000000000 + 0000395A84004273CE004273C6004273CE00427BCE00427BCE00427BD6004A73 + A50094949400947B7B00CEA59C00EFD6BD00F7EFC600FFFFC600EFD6AD00DEBD + 9C00B5847B00AD9C9C009C9C9C00738C9C00C6ADA500C6ADA500000000000000 + 0000FF9C9C00FF9C9C00FF9C9C00CE0000006331310000000000000000000000 + 0000FF9C9C00FF9C9C00FF9C9C00FF9C9C00CE00000063313100000000000000 + 00000000000000000000FF9C9C00FF9C9C000000000000000000000000008484 + 84000000FF000000840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFF + FF008484840084848400C6C6C600000000000000000000000000000000000000 + 00000000000000000000EFEFEF00ADADB500A5A5A5009C9C9C009C9C9C00B5AD + B500BDB5BD00BDBDC600C6C6C600CEC6CE00CECECE00D6CED600D6D6DE00DED6 + DE00DEDEE700E7DEE700E7E7EF00E7E7EF000000000000000000000000000000 + 000000000000395A84004273CE00427BCE00427BCE00427BD6004A73A5009494 + 9400A57B7B00E7D6C600FFFFE700FFFFDE00FFFFDE00FFFFD600FFFFCE00FFF7 + CE00FFE7B500DEB59400A5848400ADADAD00C6ADA500C6ADA500C6ADA5000000 + 000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00CE000000CE000000CE00 + 000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00CE000000CE00 + 0000CE000000CE00000063313100FF9C9C000000000000000000000000000000 + 0000848484000000FF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400C6C6C600FFFFFF00C6C6C600000000000000000000000000000000000000 + 00000000000000000000C6BDC6008C8C9400948C94008484840084848C009C9C + A500B5ADB500BDB5BD00C6BDC600C6C6C600C6C6CE00CECECE00D6CED600D6D6 + DE00DED6DE00DEDEE700E7DEE700EFEFEF000000000000000000000000000000 + 00000000000000000000395A84004273CE00427BD600427BD60039527B009473 + 7300EFDECE00FFFFFF00FFFFFF00FFFFEF00FFFFE700FFFFDE00FFFFD600FFF7 + C600FFFFCE00FFE7B500E7B59400C6B5B500C6ADA500C6ADA500C6ADA500C6AD + A5000000000000000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FF9C9C0000000000CE000000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00FF9C9C0000000000FF9C9C000000000000000000000000000000 + 0000000000008484840084848400FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400C6C6C600FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF0084848400848484000000000000000000000000000000 + 00000000000000000000BDBDBD00848484007B7B7B00737373007B737B008C8C + 9400BDBDC600B5B5B500BDB5BD00BDBDC600C6C6C600C6C6CE00CECECE00D6CE + D600D6D6DE00DED6DE00E7E7EF00000000000000000000000000000000000000 + 0000000000000000000000000000395A84004273CE004A73A5008C848400C6A5 + 9400FFFFEF00FFFFFF00FFFFFF00FFFFF700FFFFEF00FFFFE700FFFFD600FFFF + C600FFEFB500FFFFC600FFDEB500D6AD9C00C6ADA500C6ADA500C6ADA500C6AD + A50042424200000000000000000000000000FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00CE0000000000000000000000CE000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C000000000063313100FF9C9C000000000000000000000000000000 + 0000000000000000000084848400FFFFFF008484840084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFF + FF008484840084848400C6C6C600FFFFFF000000000000000000000000000000 + 00000000000000000000EFEFEF009C949C0063636300636363006B6B6B00BDB5 + BD00E7E7EF00C6C6CE00B5B5B500B5B5BD00BDBDC600C6C6C600C6C6CE00CECE + CE00CECED600DEDEE70000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000395A840039527B008C6B6B00F7EF + CE00FFFFDE00FFFFF700FFFFFF00FFFFFF00FFFFEF00FFFFE700FFFFD600FFFF + CE00FFEFB500FFE7B500FFFFCE00EFC6A500C6ADA500C6ADA500C6ADA500C6AD + A5007373730000000000FF9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000737373007373730000000000000000000000 + 00000000000000000000FF9C9C00FF9C9C000000000000000000000000000000 + 00000000000000000000848484008484840084848400FFFFFF00FFFFFF00FFFF + FF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400C6C6C600FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000EFEFEF009494940073737B00ADADAD00EFEF + F700EFEFF700E7DEE700C6BDC600B5ADB500B5B5BD00BDBDC600C6C6C600C6C6 + CE00D6D6DE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B5B5B5009C7B7300FFFF + D600FFFFDE00FFFFEF00FFFFF700FFFFF700FFFFEF00FFFFE700FFFFD600FFFF + C600FFEFB500FFDEAD00FFF7C600FFE7B500C6ADA500C6ADA500C6ADA500C6AD + A500A5A5A50000000000FF9C9C00FF9C9C00CE00000000000000000000000000 + 0000C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A5000000000000000000FF9C9C00FF9C9C000000000000000000000000000000 + 00000000000000000000000000000000000084848400FFFFFF00848484008484 + 8400C6C6C600FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF0084848400848484000000000000000000000000000000 + 000000000000000000000000000000000000EFEFEF00C6C6CE00D6CED600E7E7 + EF00EFEFF700EFEFEF00DEDEE700C6C6CE00B5B5B500BDB5BD00BDBDC600D6D6 + D600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBDBD00B58C7B00FFFF + CE00FFFFD600FFFFE700FFFFE700FFFFE700FFFFE700FFFFDE00FFFFCE00FFF7 + C600FFE7B500FFD6A500FFF7C600FFEFBD00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA50042424200CE636300FF9C9C00FF9C9C00CE000000000000000000 + 000000000000C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA5000000 + 000000000000FF9C9C00FF9C9C00FF9C9C000000000000000000000000000000 + 000000000000000000000000000000000000848484008484840084848400FFFF + FF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFF + FF008484840084848400C6C6C600FFFFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700CECECE00CECE + CE00E7DEE700EFEFF700EFEFF700E7E7E700C6C6CE00B5ADB500CEC6CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CECECE00AD847B00FFF7 + C600FFFFCE00FFFFD600FFFFDE00FFFFDE00FFFFD600FFFFD600FFFFCE00FFF7 + C600FFEFC600FFDEAD00FFF7C600FFEFBD00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500A5A5A50000000000FF9C9C00FF9C9C00FF9C9C00633131000000 + 0000000000000000000073737300C6ADA500C6ADA50073737300000000000000 + 0000CE000000FF9C9C00FF9C9C00FF9C9C000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000084848400FFFF + FF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400C6C6C600FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7F7F700C6C6 + C600CEC6CE00E7E7E700EFEFF700EFEFF700E7DEE700C6BDC600C6C6CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E7E7E7009C737300FFEF + B500FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFFC600FFF7BD00FFE7 + AD00FFDEAD00FFF7D600FFFFCE00F7D6B500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA5007373730000000000FF9C9C00FF9C9C00FF9C9C00CE00 + 0000633131000000000000000000000000000000000063313100CE000000CE00 + 0000FF9C9C00FF9C9C00FF9C9C00CE0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000848484008484 + 840084848400FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6C600FFFF + FF00FFFFFF00FFFFFF0084848400848484000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFEF + EF00CECECE00CEC6CE00E7DEE700EFEFF700EFEFF700E7DEE700C6C6CE00D6D6 + D600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5A5A500DEB5 + 9400FFF7C600FFF7BD00FFEFBD00FFEFBD00FFEFBD00FFF7C600FFDEAD00FFEF + C600FFFFEF00FFFFEF00FFF7D600DEB5A500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA5000000000000000000FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00CE000000CE000000CE000000CE000000CE000000FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00CE000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084848400FFFFFF008484840084848400C6C6C600FFFFFF00FFFFFF00FFFF + FF00848484008484840084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F7F7F700CECECE00CEC6CE00E7DEE700EFEFF700EFEFF700E7DEE700CEC6 + CE00E7E7EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00AD84 + 8400FFD6A500FFFFCE00FFEFB500FFDEAD00FFDEAD00FFE7BD00FFE7B500FFF7 + DE00FFFFFF00FFFFFF00F7E7C600DEBDBD00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000FF9C9C00FF9C + 9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C + 9C00FF9C9C00CE00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000848484008484840084848400FFFFFF00FFFFFF00FFFFFF00848484008484 + 8400848484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6CE00CEC6CE00E7DEE700EFEFF700EFEFF700DEDE + E700EFEFEF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + E700BD8C8400FFD6A500FFF7C600FFF7C600FFEFB500FFE7B500FFFFD600FFFF + E700FFFFFF00F7EFE700CEADA5003194F700C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA50073737300000000000000 + 0000FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00FF9C9C00CE00 + 0000000000000000000073737300C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000084848400FFFFFF008484840084848400848484000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7F7F700CECED600C6C6CE00E7DEE700EFE7EF00F7EF + F700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF00C6948C00E7BD9C00FFE7B500FFEFC600FFF7C600FFF7C600FFEF + BD00DEBD9C00848CA5004A73A500425A8C00C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6C6C6007373 + 7300000000000000000000000000CE000000CE00000000000000000000000000 + 000073737300C6C6C600C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000084848400848484008484840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFF7FF00D6D6DE00D6CED600EFE7EF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E7DEDE00D6B5B500DEAD9C00C6948C00B58C7B00CEAD + AD0000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA5009C9C9C00424242000000000000000000424242009C9C9C00C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 00004A52310031390800736B31008C7B31008C8C420094BD6B00A5D68C00A5DE + 9400ADD69400ADC68400A5BD73009CAD6B009C9C5A009C944A009C844200A573 + 3900A56B3100A56B2900B58C630000000000000000000000000042424200CEC6 + CE00E7BDE700CE9CCE00D6A5D600DEA5DE00E7B5E700B5A5B5008C8C8C00B5B5 + B500CECECE009C94AD007B526300BD847300C68C7300C6847B00734242002921 + 1800ADA5AD00F7DEF700DEC6DE00E7B5E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 000000000000426363000000000042636300000000009C9C9C00DEDEDE009C9C + 9C005252520052525200525252009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000000000008484 + 5A00394200005A6B29008C8C42009C843900A58C42009CBD6B00ADDE9400B5E7 + 9C00B5E7A500ADD69C00A5C68400A5B56B009CA563009C9452009C8C42009C7B + 39009C6B31009C632900AD845A00BD94840000000000000000004A424A00D6CE + D600F7C6F700DEA5DE00E7ADE700F7BDF700DEBDDE00847B8400949494000000 + 000000000000EFF7F7008C7B9400845A6300BD7B7300845A6B00948C9C006363 + 6B00ADA5AD00B5ADB5008C848C00B5A5B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF0000000000000000000000 + 00000000000042636300000000000000FF0000000000DEDEDE00525252005252 + 5200FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000000000006363 + 3900526310008C9C4A009C9C5200AD944A00B5944A00A5BD6300A5E79400BDEF + AD00BDEFAD00B5DEA500ADCE8C00A5BD7B009CA56B009C9C5A009C8C4A009484 + 39009C733100946329008C5A18008C4A1800000000000000000039313900BDBD + BD00F7DEF700F7CEF700EFCEF700F7D6FF00F7D6F700B59CB5008C7B8C00CECE + CE0000000000F7F7F7000000000084738C007B526300847B940000000000847B + 84005A525A008C8C8C00949494008C8C8C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0042636300000000004263630000FFFF000000000021212100A5A5A500C6C6 + C600FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000C6ADA5005A6B + 2900738431009CAD6300ADA55A00BD9C5200BD944A00A5AD6300A5EF9400BDF7 + B500C6F7BD00B5EFAD00ADD69C00A5BD840094AD6B00949C6300948C4A00947B + 4200946B31008C5A29008452210073421800000000000000000031293100736B + 7300ADA5AD00A5A5AD009C9CA5009C9CA500ADA5B500ADA5AD00524A52004242 + 420000000000000000000000000000000000847B8C0000000000000000007B73 + 7B004A4A4A00CECECE0000000000C6C6C6000000000042636300426363004263 + 6300426363004263630042636300426363004263630042636300426363004263 + 6300426363004263630000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00426363000000000000000000FFFFFF00000000009C9C9C00A5A5A500C6C6 + C600FFFFFF00C6C6C600DEDEDE00DEDEDE00DEDEDE00C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600A5A5A500A5A5A5000000000010101000424242004242 + 42004242420042424200101010002121210000000000000000006B7B42006B84 + 31008CA55200ADB56B00BDAD6300BD944A00AD8442009CA55A00ADE79C00BDF7 + B500C6FFC600B5F7BD00A5D6A500A5C68C009CAD7B008C9C6300948C52008C73 + 42007B6B31007B5A2900734A21005A31100000000000000000008C848C007B73 + 7B004A4A5A001818180042210800421808002118180063636300847B84007B7B + 7B000000000000000000F7F7F700000000000000000000000000EFEFEF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0042636300000000000000000000000000000000009C9C9C00A5A5A500DEDE + DE00DEDEDE00DEDEDE009C9C9C00212121002121210021212100212121000000 + 0000000000000000000000000000000000000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000737B3100849C + 52009CB56B00B5B56B00C6A55A00AD7339008C5221007B8C4200ADE79C00BDF7 + BD00C6FFCE00BDF7C600A5E7BD00A5CE9C009CAD7B00849C6B007B8C5A007B73 + 42007363310073522900634A2100422108000000000000000000000000000000 + 00006B6363006B392900B5734200AD6B42006339210084736B00000000000000 + 00000000000000000000F7F7F700000000000000000000000000000000000000 + 00000000000000000000000000008C736B000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00000000009C9C9C00DEDEDE009C9C + 9C005252520052525200525252009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 42004242420042424200101010005252520000000000000000007384390094B5 + 6300B5CE8400BDB56B00C68C4200944A18005A2908005A6B4200A5EF9400BDFF + C600CEFFD600C6FFD600ADEFC6009CCE9C0094B57B0084A56B00738C5A006B6B + 42006B5A310063522900523918004A210800000000000000000000000000635A + 5A00844A3900CE8C7B00CE8C8400CE8C8400BD7B6B00734229007B6B63000000 + 0000F7F7F700EFEFEF0000000000000000000000000000000000F7F7F700F7F7 + F70000000000000000007B635A006B3921000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000DEDEDE00525252005252 + 5200FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000738C42009CC6 + 7300B5D68C00BDAD6300BD7329008C2908006321100073844A0094CE73007BAD + 84004A736B0018424A0010292900183129004A735A007BAD7B0073845200636B + 3900635A310052422100311800003110000000000000000000004A4242007342 + 2100C6847B00C68C7B00BD7B7300BD847300C68C7300C6848C00846384007B73 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000007363520073422900C68473000000000000FFFF0000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000FFFFFF000000000000000000000000000000 + 000000000000FFFFFF0000000000000000000000000021212100A5A5A500C6C6 + C600FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 42004242420042424200101010002121210000000000000000007B9C52009CCE + 7B00BDDE9400C6AD6300B563180094210000AD5A4A0000000000103929000029 + 39000039520008526B000863840008525A00184221004A6B42006B8C6B004A63 + 4200393910002118080031311800000000000000000000000000292931002108 + 00009C634A00CE8C7B00C6847B00C6847B00BD8473007B42310073635A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000736B6B0063392900B5736300CE8C7B000000000000FFFF0000000000FFFF + 0000FFFF0000FF000000FF000000FF000000FFFF0000FF000000FF000000FF00 + 0000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000009C9C9C00A5A5A500C6C6 + C600FFFFFF00C6C6C600DEDEDE00DEDEDE00DEDEDE00C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600A5A5A500A5A5A5000000000010101000424242004242 + 4200424242004242420010101000525252000000000000000000A5BD8C0094CE + 7300B5E79400C6B56B00CE5A1800B52900005A31210008526B00005A7300088C + A50010BDDE0031F7FF0021E7FF000894C600084242002139100042634200294A + 2900314231008C848400000000000000000000000000000000004A394A007352 + 84004A29310084523900D6948400C6847B006B3921007B6B5A00000000000000 + 000000000000000000000000000000000000000000000000000000000000F7F7 + F700F7F7F700736B630073422900BD7B6B000000000000FFFF0000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00000000009C9C9C00A5A5A500DEDE + DE00DEDEDE00DEDEDE009C9C9C00212121002121210021212100212121000000 + 0000000000000000000000000000000000000000000010101000424242004242 + 42004242420042424200101010005252520000000000000000000000000094C6 + 7300A5E79400C6C68C00DE5A10008C31210010527300089CBD0018DEF70018D6 + FF0010C6FF0018EFFF0021F7FF0018BDF70008739C0008392100001000006B5A + 52000000000000000000000000000000000000000000000000004A424A00CECE + D6009C73AD0042102900845231007B4A29008C736B0000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700000000000000 + 00000000000000000000847B73006B4229000000000000FFFF0000000000FF00 + 0000FF000000FF000000FFFF0000FF000000FFFF0000FFFF0000FF000000FF00 + 0000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000009C9C9C00DEDEDE009C9C + 9C005252520052525200525252009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 42004242420042424200101010007373730000000000000000000000000094BD + 73009CDE8C00D6DE9C00C67B2900526B6B0008BDF70018FFFF0018BDEF00184A + 8C00186B940000EFF70000FFFF0000EFFF0000A5EF00185263005A1000009C29 + 2100C69C9C00000000000000000000000000000000000000000042424200CECE + CE00F7C6FF008C52940029081000847363000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700000000000000 + 00007B7B7B00847B8400635A6300211018000000000000FFFF0000000000FF00 + 0000FFFF0000FFFF0000FFFF0000FFFF0000FF000000FF000000FFFF0000FF00 + 0000FFFF0000FF00000000000000FFFFFF00000000000000000000000000FFFF + FF000000000000000000000000000000000000000000DEDEDE00525252005252 + 5200FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 420042424200101010007373730021212100000000000000000000000000CED6 + BD008CC67300D6DE7B00A5C6940018D6DE0000F7FF0021A5CE00424A6B004218 + 00004A421000319C7B0021C6B50029B5AD00427384007B423100B5420000A531 + 00008C1000009C5242000000000000000000000000000000000042394200CEC6 + CE00FFCEFF00E7A5E70084528C00634A6B00C6C6C60000000000CECECE004A4A + 4A007B737B000000000000000000847B8C000000000000000000F7F7F7000000 + 00004242420052425200A584A500946B9C000000000000FFFF0000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000021212100A5A5A500C6C6 + C600FFFFFF00C6C6C600A5A5A5009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C00737373005252520042424200424242000000000010101000424242004242 + 420010101000A5A5A500A5A5A5009C9C9C000000000000000000000000000000 + 0000DEE7C600B5D6940052EFDE0000DEFF0031BDF700A5A5C6006B5210005A5A + 08006B6B18007B6B21007B6B31008C6329009C5A1000B5521000BD5A1000CE52 + 1000BD29000084000000C6948C0000000000000000000000000042424200CEC6 + CE00EFC6EF00E7ADE700E7ADE7008C5A9400634A6300949494008C7B8C004A29 + 4A00847B840000000000847B94007B52630084738C000000000000000000F7F7 + F700CECECE0094949400BDADBD00EFC6EF000000000000FFFF00000000004263 + 0000426300004263000042630000426300004263000042630000426300004263 + 0000426300004263000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000042424200A5A5A500C6C6 + C600FFFFFF00C6C6C600A5A5A500DEDEDE00DEDEDE00DEDEDE00DEDEDE00C6C6 + C600C6C6C600C6C6C600C6C6C600000000004242420010101000424242001010 + 1000A5A5A500A5A5A500A5A5A500A5A5A5000000000000000000000000000000 + 0000D6E7F70052CEDE0008F7FF00008CB500314263009C9C7300637321007B8C + 39008CA5520094A55200A5945200A58C4200A5843100AD732900B5632100C65A + 1800C6420800941800008C31180000000000000000000000000042394200CECE + CE00EFBDEF00D6A5D600EFBDEF00DE9CDE008C5A8C006B526B00AD84AD00946B + 940063636B00948CA500845A6B00BD7B7300845A63008C7B9400000000000000 + 000000000000949494007B6B7B00DEBDDE000000000000FFFF0000000000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF0042630000426300004263000042630000426300004263 + 000042630000426300004263000042630000000000009C9C9C00A5A5A500C6C6 + C600F7FFFF00F7FFFF00F7FFFF00C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600DEDEDE000000000042424200424242001010100010101000A5A5 + A500A5A5A500A5A5A500A5A5A500A5A5A5000000000000000000000000000000 + 00007BC6E70000DEF70000C6EF0008527B0008291800315218007B84310094AD + 5A00ADC67300ADCE8C00ADCE8400ADB57300A59C5A00A5844200AD6B2900AD5A + 1800AD4A1800942908006B080000CEB5B500000000000000000029212900CECE + CE00F7C6F700D69CD600DEADDE00E7B5E700D69CD600CE9CCE00E7B5E7009C73 + 9C0029181800734A4A00C6847B00C68C7300BD8473007B5263009C8C9C000000 + 0000C6C6C600634263008C5A8C00D6ADD6000000000000FFFF0000000000FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000000000009C9C9C00F7FFFF00F7FF + FF00F7FFFF00DEDEDE00C6C6C600C6C6C600C6C6C600A5A5A500A5A5A500A5A5 + A500C6C6C6000000000042424200424242004242420010101000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7EF + F70063DEF70000E7FF0010B5D600188CAD00188C8C00216339007B8C2900A5BD + 6B00B5DE9400BDE7AD00BDE7A500B5CE9400A5B57B009C9452009C7331009452 + 18008C4218007B29080052000000CEB5B5000000000000000000A59CA500948C + 9400DEBDDE00EFBDEF00DEA5DE00D6A5D600E7B5E700F7BDF700EFB5F7008463 + 8C0039180000AD6B3900CE8C7B00BD847300C6847B00CE8C8400844A4200847B + 6B00634A6B00945A9400DE9CD600E7B5E7000000000000FFFF0000000000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF0000000000DEDEDE00F7FFFF00FFFF + FF00FFFFFF00F7FFFF00DEDEDE00DEDEDE00C6C6C600C6C6C600C6C6C600A5A5 + A500000000004242420042424200424242004242420042424200424242004242 + 4200424242004242420000000000C6ADA500000000000000000000000000E7F7 + F70063EFFF0000EFFF0010F7FF0018EFFF0008BDE70021736B007B8C21009CBD + 6300ADE79400BDF7B500BDEFBD00ADDEAD009CC68C008C9C6300846B42007B5A + 290073421800522100004A10080000000000000000000000000000000000ADAD + AD00ADADAD00DEBDDE00E7ADE700DEA5DE00DEADDE00E7B5E700E7B5EF008463 + 940042180000B56B3900C68C7B00BD847B00C68C8400C6845200733908003108 + 10008C529400E7ADE700EFBDEF00DEADDE000000000000FFFF0000000000FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF000000000000DEDEDE00DEDEDE00F7FF + FF00FFFFFF00FFFFFF00F7FFFF00F7FFFF00F7FFFF00DEDEDE00DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C6ADA5000000000000000000000000000000 + 0000C6F7FF0052EFFF0008EFFF0000EFFF0008CEF7006BADCE00BDC6940073A5 + 4A008CCE7B00ADEFBD00ADE7C6009CD6AD0084BD9400739C6B006B734A006363 + 31005242180021080000A5948C00000000000000000000000000000000000000 + 000084848400846B8400DEA5DE00E7A5E700D69CD600E7ADE700E7ADE7008C63 + 8C00211018007B4A4200C6847300C68C8400BD7B52006B290000391018009452 + 9400E7A5E700E7ADE700D6A5D600D69CD6000000000000FFFF0000000000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF0000000000DEDEDE00C6C6C600DEDE + DE00DEDEDE00DEDEDE00DEDEDE00F7FFFF00F7FFFF00F7FFFF00F7FFFF00DEDE + DE00DEDEDE00C6C6C600C6C6C600C6C6C600DEDEDE00F7FFFF00F7FFFF00DEDE + DE00C6C6C600A5A5A50000000000C6ADA5000000000000000000000000000000 + 000000000000DEEFF700ADE7F700ADE7F700B5E7F700DEE7F700E7EFE7006BA5 + 4A00639C4A0084CE94008CD6AD0084C6A5006BAD8C005A8C6B00526B4A00424A + 2900181800002921180000000000000000000000000000000000000000000000 + 0000847B8400AD8CAD00F7C6F700F7C6F700EFBDEF00F7CEF700EFC6EF009C73 + 940052525A008C849400C69C9C00B5735200844A080052393900A573B500F7C6 + FF00FFCEFF00EFC6EF00EFBDEF00F7C6F7000000000000FFFF0000000000FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF + 0000FFFFFF00FFFF0000FFFFFF00FFFF000000000000DEDEDE00C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600DEDEDE00DEDEDE00F7FFFF00F7FFFF00F7FF + FF00F7FFFF00F7FFFF00DEDEDE00DEDEDE00DEDEDE00F7FFFF00F7FFFF00DEDE + DE00C6C6C6007373730000000000C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084A573004A8C4200529C6B005AA57B00528C6B00426B4A00214229000810 + 0000292929000000000000000000000000000000000000000000000000004A42 + 4A00948C9400D6CED600CEC6CE00CEC6CE00CEC6CE00CECECE00BDBDBD00736B + 73007B737B0000000000EFEFEF006331000031181000A5A5AD00D6CED600CECE + CE00CEC6CE00CEC6CE00CEC6CE00C6C6C6000000000000FFFF0000000000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFFFF00FFFF0000FFFF + FF00FFFF0000FFFFFF00FFFF0000FFFFFF00C6ADA50000000000DEDEDE00C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600DEDEDE00DEDE + DE00DEDEDE00DEDEDE00F7FFFF00DEDEDE00DEDEDE00DEDEDE00DEDEDE00C6C6 + C6007373730000000000C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A5AD9C00527B520042634200314A31006B736B000000 + 00000000000000000000000000000000000000000000000000005A525A002918 + 2900423942004A424A004239420042424200424242004A424A00393939003939 + 39008C8C8C0000000000000000004A424A0031293100524A52004A424A004239 + 4200423942004A424A0042394200313131000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500000000000000 + 0000DEDEDE00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600737373000000 + 000000000000C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF0000FFFF0000FFFF0000FFFF00C6ADA500C6ADA500C6ADA500C6AD + A50000000000000000000000000073737300C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C60073737300000000000000000000000000C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500000000000000000000000000000000000000 + 000000000000000000000000000000000000C6ADA500C6ADA500C6ADA500C6AD + A500C6ADA500C6ADA500C6ADA500C6ADA5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFEF + E700ADADBD008484A5008C8CAD00ADADC600F7F7EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AD9C8C0094949C00848CA500739C + BD004A6BBD0008087B0039526300B5DEAD00C6DE9400A5B56300B5DE9400C6FF + C600BDEFBD00ADCE9400B5AD8C00AD9C73000000000000000000F7F7F700CED6 + C6004A52310031390800736B31008C7B31008C8C420094BD6B00A5D68C00A5DE + 9400ADD69400ADC68400A5BD73009CAD6B009C9C5A009C944A009C844200A573 + 3900A56B3100A56B2900A5631800A54A18000000000084848400000000000000 + 000000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000000000000840000000000000084000000 + 000000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000DEDEDE00DEDEDE00EFEFEF00000000000000000000000000EFEFEF00636B + 9C001010940000089C0000189C0008299C004A5A9C009C9CAD00EFE7E7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6B5AD008C739400396B8C001852B500394AD600636B + CE00635AC60063399C006329420084846B00BDEFBD00BDE79C00ADDE9400BDFF + C600BDF7C600A5D6A5009CAD8400A5A57B000000000000000000EFEFE7008484 + 5A00394200005A6B29008C8C42009C843900A58C42009CBD6B00ADDE9400B5E7 + 9C00B5E7A500ADD69C00A5C68400A5B56B009CA563009C9452009C8C42009C7B + 39009C6B31009C6329009C5A18009C4A18000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000084000000000000008400000000000000 + 000000FFFF0000FFFF0000000000000084000000000000000000000000004242 + 1800393908003139000029420000214A0000214A0000315A10005A6352003131 + 9C005252BD000029AD00004AB5000073C60000BDE70000CEEF000084CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6ADA5009CA5D600085AFF004A8CF7008CA5D600A584AD00DE7B + 6B00FFAD5A00FFC67300E79C730084735200738473008CB58C00A5CE8C00BDF7 + BD00ADF7CE0094D6AD008CAD8C007B8C5A000000000000000000E7E7E7006363 + 3900526310008C9C4A009C9C5200AD944A00B5944A00A5BD6300A5E79400BDEF + AD00BDEFAD00B5DEA500ADCE8C00A5BD7B009CA56B009C9C5A009C8C4A009484 + 39009C733100946329008C5A18008C4A18000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000000000000840000000000000084000000 + 000000FFFF0000FFFF000000000000000000000000000000000000000000424A + 18005A5A31004252100029520000217B00001884000010840000084200001821 + 73005A5AC6000029AD00004ABD000073C60000C6E70000F7FF0000CEEF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B5C6CE000863FF002152E700EFAD8400FFE76B00FFF78C00FFF7 + AD00FFFFC600FFFFCE00FFFFEF00E7EFCE008C847B00523939006B735200ADE7 + B500A5EFC6008CD6AD007BAD84006B845A000000000000000000ADB59C005A6B + 2900738431009CAD6300ADA55A00BD9C5200BD944A00A5AD6300A5EF9400BDF7 + B500C6F7BD00B5EFAD00ADD69C00A5BD840094AD6B00949C6300948C4A00947B + 4200946B31008C5A290084522100734218000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000084000000000000008400000000000000 + 000000FFFF0000FFFF0000000000000084000000000000000000000000005A5A + 31005A63390042521800215A000018840000189C000010AD0000007B00000829 + 5A005A5AC6000829AD00004AB5000073CE0000CEEF0000F7FF0000BDE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6ADAD004AA5F7000039FF00C6947B00FFFF7B00FFFFBD00FFF7CE00FFF7 + CE00FFF7CE00FFF7D600FFF7D600FFFFFF00FFFFFF00BD8C6B00522918007394 + 7B0094D6AD007BBD9C006B9C73005A7B520000000000000000006B7B42006B84 + 31008CA55200ADB56B00BDAD6300BD944A00AD8442009CA55A00ADE79C00BDF7 + B500C6FFC600B5F7BD00A5D6A500A5C68C009CAD7B008C9C6300948C52008C73 + 42007B6B31007B5A2900734A21005A3110000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000000000000840000000000000084000000 + 000000FFFF0000FFFF0000000000000000000000000000000000000000005A5A + 31006B6B4200425A1800215A000018840000189C000010B5000000840000006B + 100029399C001831AD000042B500007BCE0000DEF70000EFF700008CCE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6BDBD00106BFF000031CE00D6B57300FFFFB500FFE7C600FFDEB500FFDE + B500FFE7BD00FFF7DE00FFFFEF00FFFFFF00E7AD9400E76B3900B57B5A006363 + 5A006B7B630052524200524229004A4A31000000000000000000737B3100849C + 52009CB56B00B5B56B00C6A55A00AD7339008C5221007B8C4200ADE79C00BDF7 + BD00C6FFCE00BDF7C600A5E7BD00A5CE9C009CAD7B00849C6B007B8C5A007B73 + 42007363310073522900634A2100422108000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000084000000000000008400000000000000 + 000000FFFF0000FFFF0000000000000084000000000000000000000000005252 + 290073734A004A5A21002152000018840000109C000010B50000008C0000007B + 0000083952002121A5000029AD00005ABD0000CEEF0000C6EF00217BC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007BBDEF00104AF70042185A00E7A57300FFFFCE00FFDEB500FFD6AD00FFEF + CE00FFF7CE00FFFFEF00FFFFFF00F7E7DE00D67B6300CE6B42009C7B63004A39 + 3100311808004A1000006B1800006B10080000000000000000007384390094B5 + 6300B5CE8400BDB56B00C68C4200944A18005A2908005A6B4200A5EF9400BDFF + C600CEFFD600C6FFD600ADEFC6009CCE9C0094B57B0084A56B00738C5A006B6B + 42006B5A310063522900523918004A2108000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 8400000084000000840000000000000000000000840000000000000084000000 + 000000FFFF0000FFFF0000000000000000000000000000000000000000005252 + 29007B735A00525A290021520000188C000010A5000010BD000000BD00000084 + 0000005A080008009C0000089C000029AD00007BCE00085ABD009CADCE000000 + 000000000000000000000000000000000000000000000000000000000000C6AD + AD0039ADFF00738CA500F7AD0800FFE78C00FFFFEF00FFDEC600FFE7B500FFF7 + CE00FFFFE700FFFFF700FFFFFF00F7DED600F79C6B00E7A56300737352002929 + 0800525210007B5229008C4A18009C4210000000000000000000738C42009CC6 + 7300B5D68C00BDAD6300BD7329008C2908006321100073844A0094CE73007BAD + 84004A736B0018424A0010292900183129004A735A007BAD7B0073845200636B + 3900635A31005242210031180000311000000000000000000000000084000000 + 840000008400000084000000000000FFFF0000FFFF0000000000000084000000 + 840000000000000000000000FF00000000000000000000008400000000000000 + 000000FFFF0000FFFF0000000000000084000000000000000000000000006363 + 52008484630073734A0031520800188C000010A5000010BD000000FF000000CE + 0000084A1000008CD60000E7F70000FFFF002173AD0094525A00944A4A009C6B + 6B00B59C9C00DED6D6000000000000000000000000000000000000000000A5BD + DE00008CFF00D6BD4A00FFE72100FFFFDE00FFF7F700FFEFD600FFFFE700FFFF + FF00FFFFFF00FFFFFF00FFF7FF00D6948400D66331009C523900393121005A6B + 21007B9442008C844A009C6B2900B55A180000000000000000007B9C52009CCE + 7B00BDDE9400C6AD6300B563180094210000AD5A4A00BDCEC600103929000029 + 39000039520008526B000863840008525A00184221004A6B42006B8C6B004A63 + 4200393910002118080031311800C6C6BD000000000000000000000084000000 + 840000008400000084000000000000FFFF000084840000000000000000000000 + 00000000FF000000FF000000FF000000FF000000FF0000000000000000000000 + 00000084840000FFFF0000000000000000000000000000000000000000000000 + 00007373520073735200394A1000217B00001094000010B5000000EF00000094 + 000000293900008CD60000C6EF0000E7F70000B5E700736BA500C68C8C009C5A + 5A00945A52009C636300D6CECE00000000000000000000000000000000008CBD + E700425AD600EF9C1000FFDE6300FFFFF700FFF7D600FFF7D600FFFFF700FFFF + FF00FFFFFF00FFFFFF00FFFFFF00F7BDAD00F7B57B00948C6B00424A290094B5 + 6300A5C67B00A5B57300AD8C4A00B56B29000000000000000000A5BD8C0094CE + 7300B5E79400C6B56B00CE5A1800B52900005A31210008526B00005A7300088C + A50010BDDE0031F7FF0021E7FF000894C600084242002139100042634200294A + 2900314231008C848400EFEFEF00F7F7F7000000000000000000000084000000 + 84000000840000008400000000000084840000848400000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + 0000008484000084840000000000000084000000000000000000000000000000 + 0000424A21005A6339003139000021630000187B0000189C000008C60000086B + 0000102152000873CE00009CD60000B5E700008CD6006B6BAD00DEADAD00C694 + 9400B5848400A5737300844A4A00C6B5B5000000000000000000C6B5AD00529C + F70008398C00A56B4A00F7E7D600FFFFFF00FFFFF700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7CEC600D6734A00F79C63009484730052633900ADDE + 8400BDEFA500BDD69C00ADAD6300A57B31000000000000000000EFEFEF0094C6 + 7300A5E79400C6C68C00DE5A10008C31210010527300089CBD0018DEF70018D6 + FF0010C6FF0018EFFF0021F7FF0018BDF70008739C0008392100001000006B5A + 5200000000000000000000000000000000000000000000000000000084000000 + 84000000840000008400000000000000000000FFFF0000FFFF00000000000000 + 00000000FF000000FF000000FF000000FF000000FF00000000000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000006B7352001852000018A50000188C00001863000084846300DEC6 + BD00D6B5CE006373CE006B94D6004A84CE004A5ABD00D6B5C600DEB5B500EFC6 + C600DEBDBD00D6ADAD009C6B6B00A57B7B000000000000000000C6B5AD00189C + FF0000D6EF0094D6DE00F7FFFF00FFFFFF00FFFFEF00FFF7E700FFFFFF00FFFF + FF00FFFFFF00FFFFFF00DEA59400DE7B4A00FFBD84009C847300424239009CBD + 7B00C6FFBD00ADEFBD008CBD84007B8C4A000000000000000000E7EFE70094BD + 73009CDE8C00D6DE9C00C67B2900526B6B0008BDF70018FFFF0018BDEF00184A + 8C00186B940000EFF70000FFFF0000EFFF0000A5EF00185263005A1000009C29 + 2100C6949400E7DED600F7F7EF00000000000000000000000000000084000000 + 840000000000000000000000FF000000FF00000000000000000000FFFF0000FF + FF0000000000000000000000FF00000000000000000000FFFF0000FFFF000000 + 0000000000000000FF000000FF00000000000000000000000000000000000000 + 0000A5AD9400296B080010A5000000FF000000FF000000CE0000C68C8C00D6A5 + AD00DEB5B5006B63B5005252AD005252B500CE94A500DEADAD00BD8C8C00F7CE + CE00F7D6CE00EFC6C600BD948C00AD84840000000000C6ADA500BDBDCE0010DE + FF0000FFFF00CEFFE700FFFFFF00FFFFF700FFFFEF00FFFFEF00FFFFFF00FFFF + FF00FFFFFF00EFE7EF00D6846B00EF9C6300FFEFBD00EFDEB5008C7B7300525A + 4A008CBD94009CEFBD007BC69400638452000000000000000000EFEFEF00CED6 + BD008CC67300D6DE7B00A5C6940018D6DE0000F7FF0021A5CE00424A6B004218 + 00004A421000319C7B0021C6B50029B5AD00427384007B423100B5420000A531 + 00008C1000009C524200EFEFEF00F7F7F7000000000000000000000000000000 + 00000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 000000FFFF0000FFFF000000000000FFFF0000FFFF0000000000000000000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 0000315A10001884000010B5000000F7000000FF000000FF00005A5A2900AD63 + 6300AD737300BD847B009C6B7300C69CA500DEB5AD00D6A5A500B57B8400E7B5 + B500EFC6C600EFC6C600D6ADAD00B58C940000000000C6B5B5004A8CFF0000AD + FF009CCEAD00F7FFE700FFFFFF00FFF7D600FFFFEF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7D6C600DE8C5A00EFB57300FFEFBD00FFFFD600EFE7C6009484 + 840042424A00394A420031423900293129000000000000000000F7F7F700F7F7 + F700DEE7C600B5D6940052EFDE0000DEFF0031BDF700A5A5C6006B5210005A5A + 08006B6B18007B6B21007B6B31008C6329009C5A1000B5521000BD5A1000CE52 + 1000BD29000084000000C6948C00F7EFEF0000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF000000000000FFFF0000FFFF0000FFFF00000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 0000295A0800217B0000109C000008C6000008CE000008D6000031841000B5A5 + 9C00AD949400E7EFEF00D6D6D600BDADAD00A5737300AD737300C6848400C69C + 9C00DEB5B500D6ADAD00D6A5A500AD84840000000000C6A5D600187BEF00006B + 5A00F7C68C00FFFFF700FFFFFF00FFEFD600FFFFE700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00F7AD7B00E7844A00FFCE9400FFEFC600FFFFDE00FFFFF700F7E7 + DE00B5ADA500ADA5A500ADA5AD00B5ADB500000000000000000000000000F7F7 + F700D6E7F70052CEDE0008F7FF00008CB500314263009C9C7300637321007B8C + 39008CA5520094A55200A5945200A58C4200A5843100AD732900B5632100C65A + 1800C6420800941800008C311800DECEC6000000000000000000000000000000 + 00000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 000000FFFF0000FFFF000000000000FFFF0000FFFF0000000000000000000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 0000527331005A943900298C100010A5000010B5000010AD000039732100DED6 + CE00D6B5BD00C6BDB500D6CECE00E7EFEF00E7E7E700BDB5B500A58C8C00945A + 5A00C6848400CE9C9C00DEB5AD00AD848400000000009CA5DE0008CE5A000894 + 0000E7EFC600FFFFFF00FFFFDE00FFF7E700FFFFF700FFFFFF00FFFFFF00FFFF + FF00D6DEF700E79C6300FFAD4200FFE7A500FFF7D600FFFFEF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000F7F7EF00EFEF + EF007BC6E70000DEF70000C6EF0008527B0008291800315218007B84310094AD + 5A00ADC67300ADCE8C00ADCE8400ADB57300A59C5A00A5844200AD6B2900AD5A + 1800AD4A1800942908006B080000CEB5B5000000000000000000000000000000 + 000000000000000000000000FF000000FF00000000000000000000FFFF0000FF + FF0000FFFF0000FFFF000000000000000000000000000000000000FFFF000000 + 0000000000000000FF000000FF00000000000000000000000000000000000000 + 00005A6B390084A56B006BA55200188C0000108C0000219408006B845200FFFF + FF00FFFFFF00E7D6D600CEBDBD00C6ADAD00CEC6C600E7E7E700E7EFEF00A584 + 84008C5A5A00A55A5A00CE9C9400B5848400C6ADA5004ACEBD0000FF00008CBD + 2100F7FFEF00FFFFFF00FFFFE700FFFFF700FFFFFF00EFF7FF00C6D6FF009CC6 + FF00397BFF007384BD00F7E79400FFFFB500FFFFDE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000F7F7EF00E7EF + F70063DEF70000E7FF0010B5D600188CAD00188C8C00216339007B8C2900A5BD + 6B00B5DE9400BDE7AD00BDE7A500B5CE9400A5B57B009C9452009C7331009452 + 18008C4218007B29080052000000CEB5B5000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000FFFF00000000000000 + 000000FFFF00000000000000000000FFFF0000FFFF0000000000000000000000 + 000000FFFF000000000000000000000000000000000000000000000000000000 + 00009C6363005A4A310063734A0073845A005A734200636B4200FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7EFEF00DECE + CE00E7CED600F7FFFF0094525200C6949400CED6F70008CEAD0029C64200FFDE + 7B00FFFFF700FFFFFF00F7F7FF00CEDEFF00BDCEFF00B5B5D600ADB5DE008CAD + E700639CF7006B9CF70094BDF700C6DEE700FFFFF700FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000F7EFEF00E7F7 + F70063EFFF0000EFFF0010F7FF0018EFFF0008BDE70021736B007B8C21009CBD + 6300ADE79400BDF7B500BDEFBD00ADDEAD009CC68C008C9C6300846B42007B5A + 290073421800522100004A100800CEBDBD000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 000000FFFF000000000000FFFF0000FFFF000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B424A00BDB5B500D6DECE00A5A58C00BDBDAD00EFEFEF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF009C7B7300BD9C9C0084B5FF00008CFF00528CDE00CEEF + CE00D6E7FF00BDD6FF00BDD6FF00A5B5DE0094ADE700B5B5CE00000000000000 + 000000000000C6B5AD009CB5EF006B9CFF0094BDFF00E7F7FF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7F7FF000000000000000000F7EFEF00EFF7 + F700C6F7FF0052EFFF0008EFFF0000EFFF0008CEF7006BADCE00BDC6940073A5 + 4A008CCE7B00ADEFBD00ADE7C6009CD6AD0084BD9400739C6B006B734A006363 + 31005242180021080000A5948C00EFE7E7000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF00000000000000000000FF + FF00000000008484840000FFFF0000FFFF0000000000000000000000000000FF + FF00000000008484840000000000000000000000000000000000000000000000 + 00006B636300D6DED600F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00BDADA500C6ADAD00428CFF00088CFF002984FF0063A5 + FF009CADE7006394F700C6B5BD00C6ADA5000000000000000000000000000000 + 0000000000000000000000000000BDC6D60052A5FF00ADC6DE00D6E7FF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00BDEFFF00000000000000000000000000F7EF + EF00FFF7F700DEEFF700ADE7F700ADE7F700B5E7F700DEE7F700E7EFE7006BA5 + 4A00639C4A0084CE94008CD6AD0084C6A5006BAD8C005A8C6B00526B4A00424A + 29001818000029211800E7E7EF00F7F7F7000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF0000000000000000000000000000FF + FF000000000084848400000000000000000000FFFF0000FFFF00000000000000 + 000000FFFF000000000000000000000000000000000000000000000000000000 + 000000000000E7E7E700D6D6D600C6BDC600C6C6CE00D6CED600E7E7E700EFEF + EF00F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E7E7E700D6D6D6006394FF0063ADF700A5B5DE009CB5 + E700000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBDCE006BADF700ADDE + FF00EFF7FF00FFFFFF00F7FFFF006BD6FF000000000000000000000000000000 + 0000EFEFEF00F7EFEF00FFF7EF00FFF7EF00FFF7EF00F7F7F700EFEFEF00D6DE + CE0084A573004A8C4200529C6B005AA57B00528C6B00426B4A00214229000810 + 000029292900BDB5B500F7F7F700F7F7F7000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00000000000000000000FFFF00000000000000000000FFFF0000FFFF000000 + 000000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F7F7F700DEDEDE00CECECE00C6C6C600C6C6 + C600D6D6D600E7E7E70000000000F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00EFEFEF00CECECE00CEB5AD00C6B5AD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CEBDBD0063AD + F700A5B5D600DEEFFF00B5E7FF0018B5FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7F7F700F7F7 + F700E7EFE700E7E7E70094AD9400527B520042634200314A31006B736B00D6D6 + D600DEDEDE00F7F7F700F7F7F700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF000000000000000000000000000000000000FFFF0000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00DEDE + DE00D6D6D600C6C6C600CECECE00D6D6D600E7E7E700EFEFEF00F7F7F700FFFF + FF00FFFFFF00FFFFFF00F7F7F700CECECE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C6B5B5000894FF0042BDFF005AADEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F700EFEFEF00E7E7E700D6D6 + D600CECECE00CECECE00D6D6D600EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C6ADAD008CB5E70052A5EF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000B80200000100010000000000A02000000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF001FFFFFFFC00000000000FE0007FF + FFFFC00000000000FC0003FFFFFFC00000000000F80000FFFFFFC00000000000 + F00000FFFFFFC00000000000E00000FFFFFFC00000000000C00000FCFE7FC000 + 00000000800000FCFE7FC00000000000000000FCFE7FC00000000000000000FC + FE7FC00000000000800001FC067FC00000000000E00001FC067FC00000000000 + F00003FCFE7FC00000000000FC000FFCFE7FC00001000000FF801FFCFE7FC000 + 01000000FFE00FFC067FC00001000000FFF00FFC067FC00001000000FFFC07FF + FFFFC00001000000FFFE07FFFFFFC00001000000FFFF83FFFFFFC00001000000 + FFFF83FFFFFFC00003000000FFFFC1FFFFFFC0000F000000FFFFC3FFFFFFC000 + 0F000000FFFFC7FFFFFFC0001F000000800000800000E00000FFFC7F80000000 + 0000F00000FFFC3F800000000000F00000F00007800000000000F00000F00000 + 800000000000F00000FC0000800000000000E00000FC0000800000000000E000 + 00FC0000800000000000E00000FC0000800000000000E00008FC000080000000 + 0000F00003FC0000800000000000F00001FC0000800000000000F80000F80000 + 800000000000FC0000F00000800000000000FE0000F00000800000000000FF80 + 00E00004800000000000FF8000E0000E800000000000FF0003C0000F80000000 + 0000FF0003C0000F800003000000FF8003C0000F800003000000FFC003C0000F + 800003000000FFF003C0000FC0000F000000FFF007C0001FE0003F000000FFF0 + 1FFFFFFFFFFFBF000000FFF87FFFFFFFC00000800000800000C0000080000000 + 0000000000880000800000000000000000000000800000000000000000200010 + 8000000000000000000000008000000000000000004000048000000000000000 + 0000000080000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000020000000000000000000000000000060000000000000 + 00004000C0E000000000000000012000FFE00000000000000003F800FFE00000 + 00000000001FFC00FFF000000000000000FBE600FFF0000000000000008F3200 + FFF800000000000000FFFB00FFF800000000000000F3DF00FFF8070000000000 + 003EC700FFFC7F000000000000F37E02FFFC7F800000800000800000FFFC3F00 + 0000800000000000F00007000000800000000000F00000000000800000000000 + FC0000000000000000000000FC0000000000000000000000FC00000000000000 + 00000000FC0000000000000000000000FC0000000000000000000000FC000000 + 0000000000000000FC0000000000000000000000F80000000000000000000000 + F00000000000000000000000F00000000000000000000000E000040000000000 + 00000000E0000E000000C00000000000C0000F000000FE0000000000C0000F00 + 0000FE0000000000C0000F000000FC0000000000C0000F000000FC0000000000 + C0000F000000F80800000000C0001F000000FC0800000000FFFFFF000000FE08 + 01000000FFFFFF000000FFFC1F000000E0C000E00000800000800000C1C000E0 + 0000800000000000C18000E00000800000000000838000C00000800000000000 + 830000C00000800000800000870000C00000800000000000870000C000008000 + 00000000860000C0000080000000000087000080000080000000000083000080 + 0000800000000000830000800000800000000000830000800000900000000000 + 818000C00000900000000000C18001F80000800000000000C00003F000008000 + 00000000E03007F00000A00000000000E03C1FFF8000800000000000F03FFCFF + 8006800000000000E03FF0FF0007800000000000E03FC0FF0F07800000000000 + FC3F80FF1F0F800000000000FFFF00FFFF8F800000000000FFFF03FFFF8F8000 + 01000000FFFFFFFFFFCFC00003000000F00000E00000FFFFE0800000F00000C0 + 0000FFFFC0000000F00000C00000FFFFC0000000F00000C00000FFFF00000000 + F80000C00000FFFF00000000F80000C00000FFFC00000000FC0000800000FFF8 + 00000000FE0000800000FFF800000000FC0000800000FFE000000000FC000000 + 0000FFC000000000F80000000000FF8000000000F80000000000FF0000000000 + F80000000000FE0000000000FC0000000000FC0000000000FC0000000000F800 + 00000000FC0000000000F00000000000F80000FF0000F00000000000F80000FF + FC00E00000000000FC0000FFFFFCE00000000000FF8000FFFFFCF00000000000 + FFF000FFFFFCE00000000000FFFF00FFFFFC800000000000FFFFF0FFFFFE8000 + 00000000FFFFFFFFFFFF000000000000F00000F87FC7F80000C00000F00000F8 + 07C7F80000C00000F00000F80061F00000800000E00000F80001F00000800000 + F00000F00000F00000000000F00000F00000E00000000000E00000F00000C000 + 00000000000000F00000C00000000000000000F00000800000000000800000F0 + 0000000000000000C00000E00000000000000000C00000E00000000000000000 + 800000E00000000000000000000000E00000000000800000000000C000000000 + 00800000800000C00000000000800000E00001C00000000001C00000F80003FE + 0000000001C00000FC0003FFF000000001E00000FF0003FFFF81CE0003F00000 + FFF003FFFFF9FFE003F80000FFF007FFFFFFFFF803FC0001FFF01FFFFFFFFFFF + 87FF0007FFF87FFFFFFFFFFFFFFFC01FC00000FC0000800000800000C00000FC + 0000800000000000C00000F80000800000000000C00000F80000800000000000 + 800000F00000800000000000800000F00000800000000000800000E000008000 + 00000000000000E00000800000000000000000C0000080000000000000000080 + 0000800000000000000000800000800000000000000000000000800000000000 + 000000000000800000000000000000C00000800000000000000000C000008000 + 00000000800000C00000800000000000C001C0C00000C00000000000E001FEC0 + 0000C00000000000F003FFC00000C00000000000FC03FFE00000C00001000000 + FE03FFFE0000C001DF000000FF03FFFFC000FFC3FF000000FF87FFFFE000FFE7 + FF000000FFC7FFFFF800FFEFFF000000E00700800000800000FFFFFFC0070000 + 0000000000F9FFC1C00300000000000000F0FF81C00300000000000000E07E01 + C00300000000000000C03E01C00304000000000000801C01E001040000000000 + 00C00001E00104000000000000E00003E00104000000000000E00007E0010400 + 0000000000E0000FE00104000000000000C0001FF00104000000000000C0003F + F0010C00000000000080003FF8010C00000000000080001FF8010C0000000000 + 0000000FF8000C000000000000000007F8010E000000000000800003FC000E00 + 0000000000800001FC0006000000000000800001FE0606000000000000800001 + FFFF06000000000000C00603FFFF06000000000000E01F07FFFF8E0000000000 + 00F03F8FFFFFDF000A00000A00FFFFFF800003F00000FFFFFFF1000080000060 + 000000000FE00000800000000000000007C00000800000000000000003800000 + 800020000000000003000000C00040000000000003000000C000800000000000 + 03000000C00100000000000003000000C00000000000000007000000E0000000 + 0000000007000000E0000000000000000F000000F0000000000000000F000000 + F0000000000000001F800000F8000000000000001FE00000FC00000000000000 + 3FF00000FE000000000000003FF00000FF000000000000007FF00000FF800000 + 000000007FF80000FFC0000000000000FFFE0000FFE0000000000000FFFF0000 + FFF8000000000001FFFF0000FFFE000000000001FFFF0000FFFFE00000000003 + FFFF0000FFFFFF0000000003FFFF0001FFC000F8003FF80000FE0000F80000F8 + 001FF80000FE0000E00000F8000FF80000FE0000E00000F8000FF00000FC0000 + E00000F80007F00000F80000800000F80007F00000F00000000000F80003F000 + 00E0007C000000FC0003E00000C000BE000000FC0001E00000800000000000FC + 0000E00000800000000000FC0000C00000800000000000FE0000C00000800000 + 000000FE0000C00200800000000000FE0000800240C00000000000FF00008006 + 60800000000000FF0000800DB0000001000000FE0001801BD8000003E00000FE + 0007803BEC000003E00000FE000FC077FE800007E00020FF004FE0FFFFC1000F + E04030FF80E7F1FFFFE3801FF0C039FFE3F3FFFFFFF7C43FF9C03FFFFFF9FFFF + FFFFE0FFFFC03FFFFFFCFFFFFFFFF1FF800000FF8708F00000F00000C00000FF + 83E0E00000F00000E00000FFC1E0C00000F00000F00000F880C0800000E00000 + FC0000E00040000000800000FE0000C00000800000000000FF0000800000C000 + 00000000FF8000800000E00000800000FFC000030000F00000800000FFE00007 + 0000F80000000000FFE000000000FC0000000000FFE000000000FE0000800000 + FFE000801000FF0001C00000FFC000801000FF8001E00000FF8000C01000FFC0 + 01F00000FF0000E03000FFE000F80000FF8000F87600FFF000FC0000FFC000FF + F680FFF000FE0003FF8000FFF300FFF800FF008FFFA000FFF2A0FFFC00FF99FF + FFE000FFF940FFFE00FFFFFFFFF001FFFCF0FFFE04FFFFFFFFF807FFFE38FFFE + 06FFFFFFFFFC1FFFFF80FFFF0FFFFFFF800200800200800000FE000080020080 + 0200800000FC00008002C08002C0800000F80000800320800320800000F00000 + 800410800410800000E00000803008803008800000C0000080C00480C0048000 + 0080000040800240800280000000000020800120800180000000000010800110 + 8001800000000000088001088001800000800000058001058001800000E00000 + 028001028001800000F80000008001008001800000FE0000008001008001C000 + 00FF8000008001008001E00000FFC000008001008001F00000FFC00000400100 + 4001E00000FFC000002006002006F00000FFE000001018001018F80001FFE000 + 000860000860FC0003FFF000000580000580FE0003FFF800000200000200FF01 + 83FFFC00000000000000FFA7C7FFFF00E00000F80000F80000F00000E00000F8 + 0000F80000E00000E00000F80000F80000C00000E00000F80000F80000800000 + E00000F80000F80000800000E00000F80000F800000E0000C00000F80000F800 + 001E0000C00000F80000F800001E0000C00000C80000C800009E0000C0000080 + 00008000008E0000C00000C00000C00000C60007C00000E00000E00000E20007 + C00000F00000F00000F00007C00000F80000F80000000003C00000F80000F800 + 00000000C00000F80000F80000000000E00000F80000F80000000000E00001F8 + 0001F80001000000F00000F80003F80003000000F00800F80007F80007800000 + F00C00F8000FF8000F800000F00F00F8081FF8081FC00000F81F81F80C3FF80C + 3FC00000FC3FC3F80E7FF80E7FE00000F00000800000C00000800000F0000000 + 0000C00000000000E00100000000C00000000000E00000000000C00000000000 + E00000000000C00000000000C00000000000C00000000000800000000000C000 + 00000000800000000000C00000800000C00000000000C00000800000C0000000 + 0000C00000800000800000000000C00000C00000800000000000E00000C00018 + 800000000000F0000080003F800000000000F8000080007F000000000000FC00 + 0080007F000000000000FF000080007F000000000000FFE00080007F40000000 + 0100FFFF00C000FFC00000000080FFFF80C000FFF00000000000FFFFC0E001FF + F9F000000000FFFFE0F003FFF7FF04000000FFFFF0FC0FFF7FFFFD000800FFFF + F8FFFFFFFFF3FF000000FFFFFFFFFFFFC00000800000C00000F3001CC00000C0 + 0000C00000F00304C00000C00000C00000E00784C00000C00000C00000F00F80 + C00000C00000C00000F01FC0C00000C00000C00000F01FE0C00000C00000C000 + 00F03FE0C00000C00000C00000E07FE1800000C00000C00000E07FE0800000C0 + 0000800000E03FC0800001C00000800001E07FC0800001C00000800001E01F80 + 000001C00000000001E01F0C000003C00000000003E00F0C000003C000000000 + 03E00C3C000003C00001000003E1003C000007C00000000007E18078000007C0 + 0000000007F1C0F0800007C00001C00007F900C0FC0007C00003FE0007FC0001 + FFE007C40007FFF007FF0001FFFF0F82000FFFFF0FFFC007FFFFFF83001FFFFF + FFFFFFFFFFFFFF83803FFFFFFFFFFFFFFF2001E00000A04204F00000FE0000E0 + 0000C03C03F00000FC6001E00000A04204F80000F87003E00000908108FC0000 + F03806F000008F00F0FE0200F87C0FF80000908108FF0700F8FE1FF80000A042 + 04FE0380F1FF3FE00000C03C03FC01C0E007F0E00000A04204F80000C003E0E0 + 0000908108F00000C003E0E000008F00F0E00000C003E0E00000908108E00000 + C003E0E00000A04204E00000C003E0E00000C03C03E00000C003E0E00000A042 + 04E000004003A0E000005081FFF000008001C0E000002F0200F00000C001A0E0 + 0000108400F80000E00010E00000084800FE0600F00C08F8000007F000FFFF00 + F81E04FC0000000000FFFF81FC3F02FFFFFF000000FFFFFFFE7FB7FFFFFF0000 + 00FFFFFFFFFFFFFFFFFF000000FFFFFFF80000FC0000F80000FC0000F80000FE + 0000F80000C80000F80000FC0000F80000F80000C00000F00000C00000E00000 + C00000E00000C00000E00000E80000E00000E80000800000BC0000C00000FC00 + 00000000FE0000800000FE0000000000FE0000800000FE0000000000FE000080 + 0000FE0000000000FE0000800000FE0000000000F80000800000FC0000000000 + F00000800000F80000000000F00000800000FB8000000000FF8000800000FFC0 + 00000000FF8000C00000FF8000000000FF0003C00000FF0003000000FF0003E0 + 0000FF0003000000FF0003F00000FF8003E00000FFC003F80000FFF003F00000 + FFF003FC0000FFF007F00000FFF007FF0000FFF00FFC0000FFF01FFFF000FFF0 + 3FFF8000FFF83FFFFF87FFF8FFFFE003FE0000F00000FE001BF00000FC0000F8 + 0000FC0000E00000F80000F80000F80000C00000F00000F80000F00000800000 + E00000FC0000E00000800000C00000FC0000C00000000000800000FC00008000 + 00000000800000FE0000800000000000000000FE0000000000000000000000FC + 0000000000000000000000FC0000000000000000000001F80000000001000000 + 000003F80000000003000000800007F80000800007000000C0000FF80000C000 + 0F800000E0001FF00000E0001F800000F0003FF00000F0003F800000F8007FF0 + 0000F8007FC00000FC003FF00000FC003FC00000FE003FE00000FE003FE00000 + FF003FE00000FF003FF00000FF801FFE0007FF801FF80000FFC03FFFF87FFFC0 + 3FFE1111FFE07FFFFFFFFFE07FFFFFFF800000FF2001FC0000C00000800000FE + 0000FC0000800000000000FC6001FC0000800000000000F87003FC0000800000 + 800000F03806FC0001800000D00000F87C0FFC0001800000F80000F8FE1FFC00 + 01800000F80000F1FF3FFC0001800000FC0000E007F0FC0001800000FC0000C0 + 03E0FC0000800000FE0000C003E0FC0000800000FE0000C003E0000000800000 + FE0000C003E0000000800000FE0000C003E0000000800000FF0000C003E00000 + 00800000FF00004003A0000000800000FF80008001C0000000800000FF8000C0 + 01A0200000C00000FFC000E00010700000FFC003FFE001F00C08F80000FFE007 + FFF007F81E04FC0080FFF007FFFC1FFC3F02FE01C0FFF80FFFFFFFFE7FB7FFFF + E0FFFC3FFFFFFFFFFFFFFFFFFFFFFFFFFFFE00FE0000800000FF2001FF8000FE + 0000000000FE0000FF8000FC0000000000FC6001FF8000FC0000000000F87003 + FF8000FC0000000000F03806FF8000FC0000000000F87C0FFF8000F800000000 + 00F8FE1FFF0000F80000000000F1FF3FFE0000F80000000000E007F0FC0000F8 + 0000000000C003E0FC0000F00000000000C003E0F80000F00000000000C003E0 + F00000F00000000000C003E0F00000E00000000000C003E0E00000E000000000 + 00C003E0C00000E000000000004003A0800000E000000000008001C0800000C0 + 0000000000C001A0003C00C00000000000E0001001FFFCE00000000000F00C08 + 1FFFFFFC0000000000F81E04FFFFFFFFE000000000FC3F02FFFFFFFFFF000000 + 00FE7FB7FFFFFFFFFFF9000000FFFFFFE00000F80003800000FC0007C00000F8 + 0003800000FC0007800000F00003800000FC0007000000E00007800000F8000F + 000000E00006800000F0000F000000E00000800100F00006000000C000008001 + 00F00000000000C00000C001E0E00000000000800000F803C0E0000000000080 + 0000E00F80C00000000000800000C00400E00000000000C00000000000E80000 + 800000F00000000000FC0000E00000F80000000000FF0000F80000FE00000000 + 00FFC000FC0000FF8000000000FFF000FF0000FFE000000000FFFC00FFE000FF + F800000100FFFF00FFE000FFFE00000180FFFFFEFFF001FFFFFF0003C0FFFFFF + FFFF01FFFFFF0007F0FFFFFFFFFF81FFFFFFC00FFFFFFFFFFFFFC3FFFFFFFFFF + FFFFFFFFFFFFE7FFFFFFFFFFFFFFFFFF800000E00000FC0000C00001000000E0 + 0000F80000C00000000000E00000F80000C00000000000E00000F80000C00000 + 000000E00000000000C00000000000E00001000000C00000000000E0000C8000 + 00C00000000000E00000C00000C00000000000E00000F00000C00000000000E0 + 0000F80000C00000000000E00000FC0000C00000000000E00000FC0000C00000 + 000000E00000FE0000C00001000000E00000FE0000C00001000000E00000FF00 + 01EC0007000000E00000FF0001FC0007000000E00000FF8003FC000F000000E0 + 0000FFC007FE000F000000FCF3C7FFE00FFE000F000000FCE3E7FFF81FFE000F + 000000FC47E2FFFFFFFE000F000000FE0FF0FFFFFFFFFFFF000000FF1FF8FFFF + FFFFFFFF000000FFFFFFFFFFFFFFFFFF800000EE0000C00000FC6000000000EC + 0000C00000000000000000EC0000C00000000000000000E80000C00000000000 + 000000F00000C00000000000000000F00000800000000000000000F000008000 + 00000000000000E00000800000000000000000E00000800000000000000000C0 + 0000800000000000000000C00000000000000000000000800000000000000000 + 000000C00000000000000000000000E00000000000000000000000F002008000 + 00000000000000F80200C0000000001F000000FC0600E001F800001F000000FE + 0700F001FF00001F000000FF0F80F803FF00001F000000FF8F80FC03FF00001F + 000000FFDF80FE03FF00001F000000FFFF80FF03FF00001F000000FFFFC0FF87 + FF80001F000000FFFFE1FFC7FFC0003FF80000F80000C00000FFFE00F00000DA + 0000E00000FF8000F00000D60000F00000FF8000F00000C60000F80000FF8000 + E00000CE0000FC0000FF8000E00000DE0000FC0000FF8000E000009C0000FC00 + 00FF8000E00000810000FC0000FF0000E00000000000FC0000FE0000E0000000 + 0000FC0000FC0000E00000000000FC0000FC0000F00000000000F00000F80000 + F00000000000E00000F00000F80000000000E00000F00000FC0000000000E000 + 00E00000FF8001000000F00001C00000FFF81F000000FC0007800000FFF80F00 + 0000FC001F800000FFFC07000000FC001F003C00FFFC07000000FC001F01FFFC + FFFE03000000FC003F1FFFFFFFFF03000000FE00FFFFFFFFFFFF83000000FF83 + FFFFFFFFFFFFFF000000FFCFFFFFFFFF800000C00000C0000082018080000000 + 0000000000845FC280000000000000000084704280000000000000000084C043 + 8000008000000000008D8043800000E000000000008F0042800000FC00000000 + 00860FC2800000FF0000800000471B86800000FF8000C0000043B1C4800000FF + 0000E0000061F0FCC00000FE0000F0000030703CE00000FC0000F80000180800 + F00000FC0000FC00000C0402F80000FC0001FE0000070304FC0000FC0003FF00 + 0005FE7CFC0000FE0007FF800004700CFF0000FF000FFF8000003818FF0000FF + 801FFF8000021C30FFC000FFC01FFF8000010780FFC000FFE00FFFC000018001 + FFF001FFF007FFC00000C003FFF007FFFC07FFE00000300CFFFC1FFFFC0FFFF0 + 00000E70FFFC7FFFFE1FFFFC0F000180F00001C00000FFFC78800080E00000C0 + 1800FFFC08800080E00000C00A20FFFC00800080C00000C00F62800000800080 + C00000C00DDF000000801F80C00000F03DFE000000800080C00000E013CC0000 + 00800080C00000C00FF8000000800080C04001C01FF0000000800080C00003C0 + 3FE0000000801F80E0000FC07FBC000000800080E00007C0FFB0000000800080 + E00003C046D0000000800080F00001C00460000000800100F00001C000380000 + 00800200F00000C0001000000080043FE00000C00000000000800802E00001E0 + 0000000000801FFEF00001F00000000000800002F80003F00000000000800002 + FFF007E00400000000400004FFFC1FC00600000000300018FFFFFFFFFFFF0000 + 000E00E0FFFFFFFFFFFF00000001FF00FFE07FFF0000C00000800000F1C01FFC + 0000C00000800000E0001FF80000C00000800000E0001FF80000C00000800000 + E0001FF00000C00000800000E0001FF00000C00000800000E0001FF00000C000 + 00800000E0001FE00000C00000800000E00003E00000C00000800000F00001E0 + 0000C00000800000F00000C00000C0000F800000F80000C00000C00001800000 + F00000800000C00000800000F00000800000C00000800000F00000800000E000 + 00C00000F00000800000C00000F00000F00000000000C00000FC0001F0000000 + 0000C00000FE0007F00000003800C00000FC0003F0000000FE00E00000F84003 + F800000FFF80F00000FCC003FE02003FFFC0FFC001FFC083FFC000FFFFF0FFFF + FFFFC1C7FFFF00FFFFF8FFFFFFFFE3FF00000000000000000000000000000000 + 000000000000} + end + object ImageList24: TImageList + Left = 376 + Top = 136 + Bitmap = { + 494C010164006800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000040000000A0010000010020000000000000A0 + 0100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000102918000008 + 0800000000006B9C7B0000000000000000000000000000000000000000000000 + 0000000000000084B50010294A0010294A0010294A0052525200393939000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000102918009CC6AD009CC6AD006B9C + 7B00396342000008080000000000000000000000000000000000000000000000 + 0000000000000084B500007BE700008CEF000052D600292929005A5A5A006363 + 6300393939000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900218C2100218C + 2100218C2100218C2100218C2100218C2100218C2100218C2100218C2100218C + 2100218C2100218C210000000000000000000000000000000000000000000000 + 00000000000000000000102918009CC6AD00C6DED600C6DED6009CC6AD006B9C + 7B006B9C7B001029180000000000000000000000000000000000000000000000 + 00000808080000B5F700007BE700008CEF000052D60029292900636363007373 + 73007B7B7B004242420000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A29008CE78C008CE7 + 8C008CE78C008CE78C008CE78C008CE78C008CE78C008CE78C008CE78C008CE7 + 8C008CE78C008CE78C0000000000000000000000000000000000000000000008 + 0800102918009CC6AD00ADCEBD006BC67B00C6DED600C6DED6009CC6AD006B9C + 7B006B9C7B00396342006B9C7B00000000000000000000000000000000000000 + 00001010100008B5F700087BE700088CEF000052D600313131006B6B6B007B7B + 7B00636363000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900294A2900294A + 2900294A2900294A2900294A2900294A2900294A2900294A2900294A2900294A + 2900294A2900294A290000000000000000000000000000000000000000001029 + 1800C6DED60084CE9400009C0800009C0000009C000084CE94009CC6AD006B9C + 7B006B9C7B006B9C7B0000000000000000000000000000000000000000000000 + 00001010100021BDF700188CE700189CEF001863E70039393900393939008484 + 8400848484004242420000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A7B + 630008AD1000ADCEBD0084CE940039C64200ADCEBD0039C642009CC6AD006B9C + 7B006B9C7B006B9C7B0000080800000000000000000000000000000000000000 + 00001818180031C6FF0029A5F70029BDF700296BE7004A94F700294A6B002121 + 2100424242002121210000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B9C7B009CC6 + AD00009C000084CE9400C6DED600C6DED600C6DED60084CE94009CC6AD006B9C + 7B006B9C7B006B9C7B00102918006B9C7B000000000000000000639CAD002139 + 52004ACEFF004ACEFF0042CEFF0039C6FF00397BEF0063A5F700315273000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900218C2100218C + 2100218C2100218C2100218C2100218C2100218C2100218C2100218C2100218C + 2100218C2100218C21000000000000000000000000000000000000080800ADCE + BD0008AD1000009C0000C6DED60084CE9400009C000039C642009CC6AD006B9C + 7B006B9C7B006B9C7B0039634200000000000000000000000000294A6B00639C + AD0063D6FF0063D6FF005AD6FF0052D6FF00528CF7007BB5FF00425A7B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A29008CE78C008CE7 + 8C008CE78C008CE78C008CE78C008CE78C008CE78C008CE78C008CE78C008CE7 + 8C008CE78C008CE78C000000000000000000000000000000000010291800C6DE + D60039C6420039C6420039C6420008AD100008AD100039C642009CC6AD006B9C + 7B006B9C7B006B9C7B006B9C7B000000000000000000000000003152730073A5 + B5007BE7FF007BE7FF0073DEFF006BDEFF00639CF700217BFF00526B84000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294A2900294A2900294A + 2900294A2900294A2900294A2900294A2900294A2900294A2900294A2900294A + 2900294A2900294A2900000000000000000000000000000000004A7B6300C6DE + D600C6DED600C6DED600ADCEBD0039C64200F7F7F700C6DED600F7F7F700DEEF + E700C6DED6006B9C7B006B9C7B00000808000000000000000000425A7B008CB5 + BD0094EFFF0094EFFF00C6F7FF0084B5FF00217BFF006B84A5008494AD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006B9C7B009CC6AD00C6DE + D600C6DED600C6DED600F7F7F700C6DED6006B9C7B0084AD9400C6DED600C6DE + D600C6DED600F7F7F700DEEFE700316342000000000000000000526B8400ADBD + C6006BA5FF006BA5FF00214A8C0008398400216BDE00294A6B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000021217B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000080800ADCEBD00C6DE + D600F7F7F700C6DED600102918006B9C7B006B9C7B00C6DED600C6DED600C6DE + D600C6DED600DEEFE700DEEFE700316342000000000000000000000000005A8C + A500212121005A6B840008429C001852A5000808080000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000021217B000000CE000000 + CE000000CE000000CE000000CE000000CE000000CE000000CE000000CE000000 + CE000000CE000000CE0000000000000000000000000010291800FFFFFF00C6DE + D6006B9C7B006B9C7B00102918006B9C7B009CC6AD00C6DED600C6DED600DEEF + E700DEEFE700639C7B0000080800000000000000000000000000000000000000 + 00000000000084ADD60029A5F700397BEF002929290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000021217B008484FF008484 + FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484 + FF008484FF008484FF0000000000000000000000000010291800FFFFFF006B9C + 7B006B9C7B006B9C7B00102918006B9C7B00C6DED600DEEFE700DEEFE700639C + 7B00000808000000000000000000000000000000000000000000000000000000 + 0000000000006394DE00C6F7FF0084B5FF002929290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000021217B0021217B002121 + 7B0021217B0021217B0021217B0021217B0021217B0021217B0021217B002121 + 7B0021217B0021217B000000000000000000000000000000000010291800FFFF + FF00FFFFFF00FFFFFF0010291800ADCEBD00DEEFE700639C7B00000808000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000052525200393939000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000102918006B9C7B00FFFFFF00FFFFFF001029180000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008294A0008294A0008294A0008294A0008294A0008294A000829 + 4A0008294A0008294A0008294A0008294A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 630063636300636363006363630063636300000000000000000000000000ADAD + AD00A59CA500A5A5A500A59CA500B5B5B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008294A00CEFFFF0094DEEF0073C6E70073C6E70052B5D60052B5 + D6002194E7002194E7002194E70008294A00000000000000000031317B003131 + 7B0031317B0031317B0031317B0031317B0031317B0031317B0031317B003131 + 7B0031317B0031317B000000000000000000A58C6B0042291000422910004229 + 1000422910004229100042291000422910004229100042291000422910004229 + 10004229100042291000422910006363630000000000000000009C9C9C008484 + 84008C8C8C0084848400B5B5B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008294A00CEFFFF0018528C0018528C0018528C0018528C001852 + 8C0018528C0018528C002194E70008294A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00ADD6BD009CD6B50094CE + AD0094CEA5008CC6A5004229100063636300000000009C9C9C00525252008484 + 840052525200ADADAD0000000000949494000808080008080800080808000808 + 0800181818009494940000000000000000000000000000000000000000000829 + 4A0008294A0008294A00CEFFFF0094DEEF0073C6E70073C6E70073C6E70052B5 + D60052B5D60052B5D6002194E70008294A0000000000000000006373DE000000 + 00007BADB5007BADB50084ADB5008CADB50094B5B50094B5BD009CB5BD00A5BD + BD00ADBDC600ADC6C6000000000000000000A58C6B00DEEFE7007B5A31007B5A + 3100CEEFDE007B5A31007B5A31007B5A31007B5A31007B5A3100000063000000 + 630094CEA5008CC69C00422910006363630000000000424242007B7B7B004242 + 42007B7B7B000000000042424200000000000808080008080800737373007373 + 7300080808000000000042424200000000000000000000000000000000000829 + 4A00CEFFFF0008294A00CEFFFF0094DEEF0094DEEF0018528C0018528C001852 + 8C0018528C0018528C0052B5D60008294A000000000031317B006373DE006373 + DE005A6BD6000000000084ADB5008CADB50094B5BD0094B5BD009CB5BD00A5BD + BD00ADBDC600EFFFFF000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00ADD6BD00000063000000 + 8C00000063008CC69C0042291000636363008C8C8C00313131008C8C8C003131 + 3100000000009494940000000000080808000808080042424200424242004242 + 4200737373000808080000000000949494000000000000000000000000000829 + 4A00CEFFFF0008294A00CEFFFF0094DEEF0094DEEF0094DEEF0073C6E70073C6 + E70073C6E70052B5D60052B5D60008294A0000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE000000000094B5BD0094B5BD009CB5BD00A5BD + BD00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE7007B5A31007B5A + 3100CEEFDE007B5A31007B5A31007B5A31000000630000006300000063009494 + FF0000008C0000006300845A2900636363005A5A5A00636363005A5A5A006363 + 63000000000018181800080808004242420042424200A59CA5008C8C8C008C8C + 8C00424242007373730008080800080808000000000008294A0008294A000829 + 4A00CEFFFF0008294A00CEFFFF000808B5000808B5000808B50094DEEF0094DE + EF0094DEEF0094DEEF0052B5D60008294A0000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE004A52C6000000000094B5BD009CB5BD00E7F7 + FF00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600000063009494FF0000008C000000 + FF000000FF0000008C00000063008C8C8C00313131008C8C8C00313131008C8C + 8C0000000000181818005252520042424200D6D6D600A59CA500080808008C8C + 8C008C8C8C004242420073737300080808000000000008294A00CEFFFF000829 + 4A00CEFFFF0008294A00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFF + FF00CEFFFF00CEFFFF0094DEEF0008294A000000000031317B006373DE006373 + DE005A6BD6005A63D600525ACE004A4AC600000000009CB5BD00DEF7FF00E7FF + FF00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600000063009494FF000000FF000000 + FF000000FF000000FF000000DE0000006300313131008C8C8C00313131008C8C + 8C000000000018181800A59CA50042424200EFEFEF0008080800BDBDBD000808 + 08008C8C8C004242420073737300080808000000000008294A00CEFFFF000829 + 4A00CEFFFF0008294A0008294A0008294A0008294A0008294A0008294A000829 + 4A0008294A0008294A0008294A0008294A0000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE004A52C60000000000DEF7FF00DEF7FF00E7F7 + FF00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE7007B5A31007B5A + 31007B5A31007B5A31007B5A31007B5A3100000063009494FF009494FF009494 + FF000000FF000000FF00000063008C8C8C00313131008C8C8C00313131008C8C + 8C000000000000000000A59CA50042424200EFEFEF00A59CA50008080800A59C + A500A59CA5004242420008080800080808000000000008294A00CEFFFF000829 + 4A00CEFFFF000808B5000808B5000808B50094DEEF0094DEEF0094DEEF0094DE + EF0052B5D60008294A00000000000000000000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE004A52C60000000000DEF7FF00DEF7FF00E7F7 + FF00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC6000000630000006300000063009494 + FF000000FF0000006300845A2900636363005A5A5A00636363005A5A5A006363 + 63000000000021212100A59CA5000808080042424200EFEFEF00EFEFEF00D6D6 + D600424242000808080008080800181818000000000008294A00CEFFFF000829 + 4A00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFF + FF0094DEEF0008294A0000000000000000000000000031317B006373DE006373 + DE005A6BD6005A63D600525ACE004A52C60000000000DEF7FF00DEF7FF00E7F7 + FF00EFFFFF00EFFFFF000000000000000000A58C6B00DEEFE7004A94C60073C6 + E70073C6E70073C6E70073C6E700B5DEC600ADDEBD00ADD6BD00000063009494 + FF00000063008CC69C0042291000636363008C8C8C00313131008C8C8C003131 + 3100000000009494940021212100A59CA5000808080042424200424242004242 + 4200080808000808080000000000949494000000000008294A00CEFFFF000829 + 4A0008294A0008294A0008294A0008294A0008294A0008294A0008294A000829 + 4A0008294A0008294A00000000000000000000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE004A52C600000000008CADB5008CADB5008CAD + B5008CADB5008CADB5000000000000000000A58C6B00DEEFE7004A94C6004A94 + C6004A94C6004A94C60073C6E700B5DEC600ADDEBD00A5D6BD00000063000000 + 630094CEA5008CC69C004229100063636300000000005A5A5A00848484005A5A + 5A0084848400000000004242420021212100A59CA500A59CA500A59CA5005252 + 5200080808000000000042424200000000000000000008294A00CEFFFF000808 + B5000808B5000808B50094DEEF0094DEEF0094DEEF0094DEEF0052B5D6000829 + 4A000000000000000000000000000000000000000000000000006373DE006373 + DE005A6BD6005A63D600525ACE004A52C6000000000000000000000000000000 + 000000000000000000000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C00422910006363630000000000A5A5A5006B6B6B009494 + 94006B6B6B00ADADAD0000000000949494002121210018181800080808000000 + 0000080808009494940000000000000000000000000008294A00CEFFFF00CEFF + FF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF0094DEEF000829 + 4A00000000000000000000000000000000000000000000000000000000000000 + 00005A6BD6005A63D600525ACE004A52C6000000000000000000000000000000 + 000000000000000000000000000000000000A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B00000000000000000000000000A5A5A5009494 + 94009C9C9C0094949400B5B5B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000008294A0008294A000829 + 4A0008294A0008294A0008294A0008294A0008294A0008294A0008294A000829 + 4A00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000525ACE004A52C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B5B5 + B500ADADAD00ADADAD00ADADAD00B5B5B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007B7B7B007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 00000000000000000000000000000000000000395A00004A7B00000000000000 + 0000000000000000000000000000000000005252520052525200525252005252 + 5200525252005252520052525200525252005252520052525200525252005252 + 52005252520052525200525252007B7B7B000000000000000000636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 63000000000000007B0000004200000000000000000000000000000000000000 + 0000E7E7E70000000000FFAD3100FF9C310084000000FF732100FF6B21008400 + 0000FF311000FF21080000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000005AC6FF00004A7B00004A7B00004A + 7B000000000000000000000000000000000052525200F7EF9C00F7E79C00F7E7 + 9C00BD7B7B00F7DE940010106B0010108400EFCE9C00EFC69400E7BD8C00BD7B + 7B00E7B58C00E7B58C00525252007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000007B0000007B0000000000000000000000000000000000000000000000 + 0000E7EFE70000000000FFB53900FFA5310084000000FF7B2900FF7321008400 + 0000FF391000FF29080000000000636363000000000000000000000000000000 + 000000000000000000000000000000000000000000005AC6FF00E7528C00A500 + 0000A500000000000000000000000000000052525200F7EF9C00F7E79C00F7E7 + 9C00BD7B7B0010106B0010106B001010CE0010108C00EFC69400E7BD8C00BD7B + 7B00E7B58C00E7B58C00525252007B7B7B0000000000000000000808FF000000 + 000042BDEF0039B5E7008400000021A5DE000000000000000000000000000000 + 7B0000007B000000000000000000000000000000000000000000000000000000 + 0000000000000000000084000000840000008400000084000000840000008400 + 0000840000008400000000000000636363000000000000000000000000000000 + 000000000000000000000000000000000000000000005AC6FF00E7528C00A500 + 0000A5000000A5000000000000000000000052525200F7EF9C00F7E79C001010 + 6B0010106B0010106B001010CE002910A5003131C60018189C00E7BD8C00BD7B + 7B00E7B58C00E7B58C00525252007B7B7B000000000000000000000000000000 + 0000000000000000000000000000313131009C9C39009C9C39009C9C39000000 + 000000007B006363630000000000000000000000000000000000000000000000 + 0000F7F7F70000000000FFD64200FFCE420084000000FFAD3900FFA531008400 + 0000FF732100FF6B210000000000636363000000000000000000636363006363 + 6300636363006363630063636300636363006363630000000000A5000000FFC6 + DE00A5000000A5000000A50000000000000052525200F7EF9C00F7E79C00F7E7 + 9C001010CE001010CE002910A500BD7B7B007373DE003939CE002929AD00BD7B + 7B00E7B58C00E7B58C00525252007B7B7B000000000000000000E7E7E7000000 + 0000FFAD3100FF9C31005A5A5A00DEDE7B00BDBD0000BDBD0000BDBD00009C9C + 39000000000063636300000000000000000000000000A5A5A500A5A5A5000000 + 0000FFFFFF0000000000FFD64200FFD6420084000000FFB53900FFAD31008400 + 0000FF7B2900FF73210000000000636363000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000A500 + 0000FFC6DE00A5000000A5000000A500000052525200F7EF9C00F7E79C00F7E7 + 9C00BD7B7B002910A500EFD69400BD7B7B00EFCE9C008C8CDE004242D6003131 + BD00E7B58C00E7B58C00525252007B7B7B000000000000000000E7EFE7000000 + 0000FFB53900FFA531005A5A5A00DEDE3900BDBD0000BDBD0000BDBD0000BDBD + 0000000000006363630000000000000000006B6B6B006B6B6B006B6B6B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000E7E7E7000000 + 0000FFA53100FF9C310084000000FF732100FF6B210084000000FF3110000000 + 0000A5000000FFC6DE00A50000000000000052525200F7EF9C00F7E79C00F7E7 + 9C00BD7B7B00F7DE9400EFD69400BD7B7B00EFCE9C00EFC69400ADADDE004A4A + DE003939CE00E7B58C00525252007B7B7B000000000000000000000000000000 + 000084000000840000005A5A5A00BDBD3900FFFFBD00FFFFBD00DEDE7B009C9C + 3900000000006363630000000000000000006B6B6B00EFEFEF006B6B6B000000 + 0000FFFFFF0000000000FFFFFF00F7F7F700EFEFEF00EFEFEF0000000000DEDE + DE00D6D6D600D6D6D60000000000636363000000000000000000E7EFE7000000 + 0000FFB53900FFA5310084000000FF7B2900FF73210084000000FF391000FF29 + 080000000000A5000000000000000000000052525200F7EF9C00F7E79C00F7E7 + 9C00BD7B7B00F7DE9400EFD69400BD7B7B00EFCE9C00EFC69400E7BD8C00BD7B + 7B005252EF00E7B58C00525252007B7B7B000000000000000000F7F7F7000000 + 0000FFD64200FFCE4200840000005A5A5A00BDBD0000BDBD00009C9C21003131 + 3100000000006363630000000000000000006B6B6B00F7F7F7006B6B6B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000840000008400000084000000840000008400000084000000840000008400 + 0000000000006363630000000000000000005252520052525200525252005252 + 5200525252005252520052525200525252005252520052525200525252005252 + 52005252520052525200525252007B7B7B000000000000000000F7F7F7000000 + 0000FFD64200FFD6420084000000FFB539005A5A5A005A5A5A005A5A5A00FF73 + 2100000000006363630000000000000000006B6B6B006B6B6B006B6B6B00B56B + 6B00B56B6B00B56B6B00B56B6B00B56B6B00B56B6B00B56B6B00B56B6B006B6B + 6B00A5A5A5000000000000000000000000000000000000000000F7F7F7000000 + 0000FFD64200FFCE420084000000FFAD3900FFA5310084000000FF732100FF6B + 210000000000636363000000000000000000525252007BD6EF007BCEEF0073CE + EF002121210063C6EF005ABDEF002121210052B5F7004AB5EF0042ADEF002121 + 210039A5EF0039A5EF00525252007B7B7B000000000000000000F7F7F7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006363630000000000000000006B6B6B00FFFFFF006B6B6B00FFE7 + 9400FFE79400BD737300FFCE8C00FFCE8C00BD737300FFB58400FFAD84006B6B + 6B00A5A5A5000000000000000000000000000000000000000000FFFFFF000000 + 0000FFD64200FFD6420084000000FFB53900FFAD310084000000FF7B2900FF73 + 210000000000636363000000000000000000525252007BD6EF007BCEEF0073CE + EF002121210063C6EF005ABDEF002121210052B5F7004AB5EF0042ADEF002121 + 210039A5EF0039A5EF00525252007B7B7B000000000000000000F7F7F7000000 + 0000F7F7F700F7F7F700EFEFEF00EFEFEF0000000000DEDEDE00D6D6D600D6D6 + D600000000006363630000000000000000006B6B6B00FFFFFF006B6B6B00FFE7 + 9400FFE79400BD737300FFD69400FFCE8C00BD737300FFB58C00FFB584006B6B + 6B00A5A5A5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000636363000000000000000000525252007BD6EF007BCEEF0073CE + EF002121210063BDEF005ABDEF002121210052B5F7004AB5EF0042ADEF002121 + 210039A5EF0039A5EF00525252007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B6B6B006B6B6B006B6B6B006B6B + 6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B + 6B00A5A5A5000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF00F7F7F700EFEFEF00EFEFEF0000000000DEDEDE00D6D6D600D6D6 + D600000000006363630000000000000000005252520052525200525252005252 + 5200525252005252520052525200525252005252520052525200525252005252 + 5200525252005252520052525200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B6B6B00FFFFFF006B6B6B00FFFF + FF00FFFFFF00F7F7F700F7F7F7006B6B6B00EFEFEF00E7E7E700E7E7E7006B6B + 6B00A5A5A5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B6B6B006B6B6B006B6B6B006B6B + 6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B + 6B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006331310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000063313100E7FFFF00217BA500217B + A500217BA500217BA500217BA500217BA500217BA500217BA500217BA500217B + A500217BA500217BA500217BA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002929290000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C0000638C0000638C00000000000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029292900292929004A4A4A000000000000000000106B9400106B9400106B + 9400106B9400106B9400106B9400106B9400106B9400106B9400106B9400106B + 9400106B9400106B94000808080000000000000000000000000000638C00D6F7 + FF004ABDEF0042BDEF0039B5E70031B5E70029ADE70021A5E70018A5E700189C + E7002994BD0000638C00000000000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002929 + 2900292929004A4A4A00000000000000000000000000D6F7FF0063CEF7005ACE + EF0052C6EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5E70029ADE70029AD + E70021A5E7002994BD0008080800000000000000000000638C00D6F7FF0052C6 + EF004AC6EF004ABDEF0042B5EF0039B5E70031ADE70029ADE70021A5E70018A5 + E7002994BD000000000000638C000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA50000000000000000000000000000000000A5A5 + A500636363001010100010101000636363000000000010ADFF00292929002929 + 29004A4A4A0000000000000000000000000000000000D6F7FF006BD6F70063CE + EF005ACEEF0052C6EF004AC6EF004ABDEF0042B5EF0039B5E70031ADE70029AD + E70021A5E7002994BD0008080800000000000000000000638C00D6F7FF005ACE + EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5E70029ADE70029A5E70021A5 + E70000638C000000000000638C000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA500000000000000000000000000636363000000 + 000031313100D6AD9C00D6AD9C0031313100000000000000000010ADFF004A4A + 4A000000000000000000000000000000000000000000D6F7FF006BD6F70063D6 + F7005ACEEF005AC6EF0052C6EF004ABDEF0042BDEF0039B5EF0039B5E70031AD + E70029ADE7002994BD00080808000000000000638C00D6F7FF0063CEF7005ACE + EF0052C6EF0052C6EF004ABDEF0042BDEF0039B5E70031B5E70029ADE7002994 + BD00000000002994BD002994BD000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF7004A4AD6001818840084CEF700DE63 + 63007331310084CEF700217BA5000000000000000000A5A5A50000000000D6AD + 9C00FFE7C600FFE7C600FFD6B500FFCEAD00D6AD9C0000000000000000000000 + 00000000000000000000000000000000000000000000D6F7FF0073DEF7006BD6 + F70063CEF7005ACEEF0052C6EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5 + E70029ADE7002994BD00080808000000000000638C00D6F7FF006BD6F70063CE + F7005ACEEF0052C6EF004AC6EF0042BDEF0042B5EF0039B5E70031ADE7002994 + BD00000000002994BD002994BD000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF70084CEF70084CEF70084CEF700DE63 + 63007331310084CEF700217BA50000000000000000006363630031313100FFEF + CE00FFEFD600FFEFD600FFE7C600FFD6B500FFCEA50031313100636363000000 + 00000000000000000000000000000000000000000000D6F7FF0073DEF7006BD6 + F7006BD6F70063CEF7005ACEEF0052C6EF004AC6EF004ABDEF0042BDEF0039B5 + EF0031ADE7002994BD00080808000000000000638C0000638C0000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C002994BD005ACEEF002994BD000000000063313100E7FFFF00DE6363007331 + 310084CEF700DE6363007331310084CEF70084CEF70084CEF70084CEF700DE63 + 63007331310084CEF700217BA500000000000000000010101000EFC6B500FFEF + DE00FFF7E700FFF7E700FFEFD600FFDEBD00FFD6AD00D6AD9C00101010000000 + 00000000000000000000000000000000000000000000D6F7FF007BDEF70073DE + F7006BD6F70063D6F7005ACEEF005AC6EF0052C6EF004ABDEF0042BDEF0039B5 + EF0031B5E7002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF008CEFFF008CE7FF0084E7FF0084E7F7007BDEF70073DEF70073D6F7006BD6 + F70063CEF7005ACEEF002994BD000000000063313100E7FFFF0084CEF70084CE + F70084CEF700DE6363007331310084CEF70084CEF70084CEF70084CEF700DE63 + 63007331310084CEF700217BA500000000000000000010101000EFC6B500FFF7 + E700FFFFEF00FFFFF700FFF7EF00FFEFD600FFD6B500D6AD9C00101010000000 + 00000000000000000000000000000000000000000000D6F7FF0084E7F7007BDE + F70073DEF7006BD6F70063CEF7005ACEEF0052C6EF0052C6EF004ABDEF0042BD + EF0039B5E7002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CE7FF0084E7F7007BE7F7007BDEF700D6F7FF00D6F7 + FF00D6F7FF00D6F7FF002994BD000000000063313100E7FFFF0084CEF70084CE + F70084CEF700DE6363007331310084CEF70084CEF70084CEF70084CEF70084CE + F70084CEF70084CEF700217BA50000000000000000006363630031313100FFEF + DE00FFF7E700FFF7EF00FFEFD600FFDEBD00FFD6AD0031313100636363000000 + 00000000000000000000000000000000000000000000D6F7FF00A5EFFF00A5EF + FF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EF + FF00A5EFFF002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CEFFF0084E7F700D6F7FF0000638C0000638C000063 + 8C0000638C0000638C0000638C000000000063313100E7FFFF0084CEF70084CE + F70084CEF700DE6363007331310084CEF70084CEF70084CEF70084CEF70084CE + F70084CEF70084CEF700217BA5000000000000000000A5A5A50000000000D6AD + 9C00FFEFD600FFEFD600FFDEC600FFD6B500D6AD9C0010101000A5A5A5000000 + 0000000000000000000000000000000000000000000042ADD60042ADD60042AD + D60042ADD60042ADD60042ADD60000638C0000638C0000638C0000638C000063 + 8C0000638C0000638C000000000000000000000000000000000000638C00D6F7 + FF00D6F7FF00D6F7FF00D6F7FF00D6F7FF0000638C0000000000000000000000 + 00000000000000000000000000000000000063313100E7FFFF0084CEF70084CE + F70084CEF70084CEF70084CEF70084CEF70084CEF70084CEF70084CEF70084CE + F70084CEF70084CEF700217BA500000000000000000000000000636363000000 + 000031313100EFC6B500D6AD9C00313131001010100063636300000000000000 + 00000000000000000000000000000000000000000000D6F7FF00D6F7FF00D6F7 + FF00D6F7FF00D6F7FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000063 + 8C0000638C0000638C0000638C0000638C000000000000000000000000000000 + 00000000000000000000000000000000000063313100E7FFFF00E7FFFF00E7FF + FF00E7FFFF00E7FFFF00E7FFFF00E7FFFF00E7FFFF00E7FFFF00E7FFFF00E7FF + FF00E7FFFF00E7FFFF00E7FFFF0000000000000000000000000000000000A5A5 + A50063636300101010001010100063636300A5A5A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006331310063313100633131006331 + 3100633131006331310063313100633131006331310063313100633131006331 + 3100633131006331310063313100633131000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C69C7B00E7844A00E7844A00E784 + 4A00E7844A00E7844A00E7844A00E7844A00E7844A00E7844A00E7844A00E784 + 4A00E7844A00E7844A00E7844A00A58473000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EF8C5A00E7AD8400E7B59C00E7B5 + 9C00E7B59C00E7B59C00E7B59C00E7B59C00E7B59C00E7B59C00E7B59C00E7B5 + 9C00E7B59C00E7B59C00EF8C520073524A000000000000009C0000009C000000 + 9C0000009C0000009C0000009C0000009C0000009C0000009C0000009C000000 + 9C0000009C0000009C0000009C0000009C000000000073737300737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300737373007373730073737300737373000000000063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 630063636300636363006363630063636300EF8C5A00EFBDA500F7FFFF00EFF7 + F700EFF7F700EFF7F700EFEFEF00D6D6EF00E7E7EF00EFF7EF00E7EFEF00DEEF + EF00DEEFEF00E7DED600EF8C520073524A007B5252007B5252007B5252007B52 + 52007B5252007B5252007B525200000000007B5252007B5252007B5252007B52 + 52007B5252007B5252007B52520000009C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000073737300A58C6B0042291000422910004229 + 1000422910004229100042291000422910004229100042291000422910004229 + 100042291000422910004229100063636300EF8C5A00EFBDA500F7FFFF00F7FF + FF00FFFFFF00F7F7F700B5ADEF006B4AF700AD9CF700EFEFF700E7EFEF00E7EF + EF00DEEFEF00E7DED600EF8C520073524A007B525200EFFFFF00E7FFFF00D6F7 + FF00CEEFF700BDEFEF00ADE7EF0000000000EFFFFF00E7FFFF00D6F7FF00CEEF + F700BDEFEF00ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084C6EF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D60000007B00B5DEC60000007B00ADD6BD009CD6B50094CE + AD0094CEA5008CC6A5004229100063636300EF8C5A00EFBDA500F7FFFF00FFFF + FF00DEDEF7008C7BEF004210F7003108F7005229F700BDB5EF00F7F7F700EFEF + EF00E7EFEF00E7DED600EF8C520073524A007B525200EFFFFF00E7FFFF00D6F7 + FF00C6EFF700BDE7F700ADE7EF0000000000EFFFFF00E7FFFF00D6F7FF00C6EF + F700BDE7F700ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE0000007B0000007B0000007B0000007B0000007B009CD6B50094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00E7BDA500FFFFFF00D6D6 + F7006B4AEF004A21F7008473E7006B52E7003108FF00735AF700EFE7EF00F7F7 + F700E7EFEF00E7DED600EF8C520073524A007B525200EFFFFF008C5221008C52 + 21008C5221008C522100ADE7EF0000000000EFFFFF008C5221008C5221008C52 + 21008C522100ADE7EF007B52520000009C000000000094DEF7005A7384005A73 + 84005A7384008CCEF7005A7384005A7384005A7384005A7384005A7384005A73 + 84005A73840073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE0000007B00C6E7D60000007B00B5DEC60000007B00ADD6BD0000007B0094CE + AD0094CEA5008CC6A5004229100063636300EF8C5A00E7BDA500FFFFFF00CECE + FF009C84FF00BDB5F700FFFFF700D6D6F7004A21FF002908FF009C8CEF00F7EF + F700EFF7F700E7DED600EF8C520073524A007B525200EFFFFF00E7FFFF00D6F7 + FF00C6EFF700BDEFF700ADE7EF00FFFFFF00EFFFFF00E7FFFF00D6F7FF00C6EF + F700BDEFF700ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE0000007B00C6E7D60000007B00B5DEC60000007B00A5D6BD0000007B0094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00E7BDA500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009484F7003108FF005231F700C6BD + EF00EFF7F700E7DED600EF8C520073524A007B525200EFFFFF008C5221008C52 + 21008C5221008C522100ADE7EF0000000000EFFFFF008C5221008C5221008C52 + 21008C522100ADE7EF007B52520000009C000000000094DEF7005A7384005A73 + 84005A7384008CCEF7005A7384005A7384005A7384005A7384005A7384005A73 + 84005A73840073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D60000007B00B5DEC60000007B0000007B009CD6B5009CCE + AD0094CEA5008CC6A5004229100063636300EF8C5A00E7BDA500FFFFFF00FFFF + FF00F7FFFF00F7FFFF00F7FFFF00FFFFFF00EFE7F700846BF7002908FF00634A + EF00DEDEEF00E7DED600EF8C520073524A007B525200EFFFFF00E7FFFF00D6F7 + FF00CEEFF700BDEFF700ADE7EF0000000000EFFFFF00E7FFFF00D6F7FF00CEEF + F700BDEFF700ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D60000007B0000007B0000007B00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00E7BDA500FFFFFF00F7FF + FF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00FFFFFF00CECEF7005A39FF005231 + FF00B5B5EF00E7DED600EF8C520073524A007B525200EFFFFF008C5221008C52 + 21008C5221008C522100ADE7EF0000000000EFFFFF008C5221008C5221008C52 + 21008C522100ADE7EF007B52520000009C000000000094DEF700BD6B4A00BD6B + 4A00BD6B4A00BD6B4A00BD6B4A00BD6B4A00BD6B4A00BD6B4A00BD6B4A00BD6B + 4A00BD6B4A0073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE0000007B0000007B00B5DEC60000007B00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00EFBDA500F7FFFF00F7FF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEFF00D6CE + FF00DEDEFF00E7DED600EF8C520073524A007B525200EFFFFF00E7FFFF00D6F7 + FF00C6EFF700BDE7F700ADE7EF0000000000EFFFFF00E7FFFF00D6F7FF00C6EF + F700BDE7F700ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE0000007B00C6E7D60000007B00B5DEC60000007B00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00EFBDA500F7FFFF00FFFF + FF00E7EFEF00D6DEDE00DEDEDE00DEDEDE00D6DEDE00DEDEDE00D6D6D600D6DE + D600F7FFFF00EFE7D600EF8C520073524A007B525200EFFFFF0000007B006B6B + DE006B6BDE006B6BDE00ADE7EF0000000000EFFFFF008C5221008C5221008C52 + 21008C522100ADE7EF007B52520000009C000000000094DEF7000808B5000808 + B5000808B5008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE0000007B00C6E7D60000007B00B5DEC60000007B00A5D6BD0000007B0094CE + AD0094CEA5008CC69C004229100063636300EF8C5A00E7BDA500F7F7EF00EFE7 + DE00848484007B737B007B737B00736B7300736B73006B6B6B00524A52008C84 + 8400F7EFE700EFDED600EF8C52006B5242007B525200EFFFFF0000007B000000 + 7B0000007B006B6BDE00ADE7EF00FFFFFF00EFFFFF00E7FFFF00D6F7FF00C6EF + F700BDEFF700ADE7EF007B52520000009C000000000094DEF70094D6F70094D6 + F7008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E7000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE0000007B0000007B0000007B0000007B0000007B009CD6B50094CE + AD0094CEA5008CC69C004229100063636300EF8C5200EFA57B00EFAD8C00E7AD + 8C00B5947B009CA5A500C6C6C600C6C6C600949494005A6B73008C6B5200C68C + 6B00EFAD8400EFA58400EF84520084635A007B525200EFFFFF00E7FFFF00D6F7 + FF00C6EFF700BDEFF700ADE7EF0000000000EFFFFF00E7FFFF00D6F7FF00C6EF + F700BDEFF700ADE7EF007B52520000009C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D60000007B00B5DEC60000007B00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300DECEC600EFAD8C00EFAD8C00EFAD + 8C00E7AD8C00949C9C00D6DEDE00E7E7E7008C8C94004A636B00CE9C7B00F7AD + 8C00EFAD8C00EFAD8C00EFAD8400DEC6B5007B5252007B5252007B5252007B52 + 52007B5252007B5252007B525200000000007B5252007B5252007B5252007B52 + 52007B5252007B5252007B525200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B0000000000EFEFEF00EFEFEF00EFEFEF00EFEF + EF00EFEFEF00BDBDC600BDBDBD00B5B5B500949494006B6B7300D6D6D600F7EF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001010100010101000101010001010 + 1000101010001010100010101000101010001010100010101000101010001010 + 1000101010001010100010101000101010000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700D6E7F700CEDEEF00BDCEDE00BDD6E700C6D6EF00BDD6E700B5CEE700ADCE + E700A5C6DE00A5C6DE009CBDDE001010100000000000848484003131C6008484 + 8400848484008484840084848400848484008484840084848400848484008484 + 8400848484003131A5000000000000000000000000000000000010108C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000010108C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700CEDEEF00ADBDC60094A5AD00A5B5C600BDCEE700BDD6E700B5CEE700ADCE + E700A5C6DE00A5C6DE009CBDDE0010101000000000003131C6003131C6003131 + A500D6F7F700CEEFEF00BDE7EF00B5DEE700A5D6DE0094CED6008CBDCE007BBD + CE0073B5C6008484840000000000000000000000000010108C00000000000000 + 0000105A8C0084D6F70073C6F7005AB5EF004AADE700319CDE002194DE000000 + 0000000000000000000010108C00000000000000000000000000101029001010 + 2900101029001010290010102900101029001010290010102900101029001010 + 2900101029001010290000000000000000002184AD0084ADCE0084ADCE007BA5 + C6006B8CAD0018189400425A6B00526B84006B8CAD007BA5C60084ADCE0084AD + CE0084ADCE0084ADCE0084ADCE0010101000000000003131C6009C9CFF003131 + A5003131A500CEEFEF00BDE7EF00B5DEE700A5D6DE0094CED6008CC6CE007BBD + CE003131A5008484840000000000000000000000000010108C00000000000000 + 0000105A8C0084D6F70073C6F7005ABDEF004AADE700319CDE002194DE000000 + 0000000000000000000010108C0000000000000000000000000031316B003131 + EF00A5A5F7006B6BEF006B6BEF004242CE003131BD0031319C0031316B003131 + 9C0018184A001010290000000000000000002184AD00DEE7EF00CED6DE00ADBD + C60018187B0018187B0018189C00636B73007B8494009CADBD00ADCEDE00ADCE + E700A5C6DE00A5C6DE009CBDDE0010101000000000005294A5005252FF003131 + C6003131A5005294A5005294A5005294A5005294A5005294A5005294A5003131 + A5005294A5005294A50000000000000000000000000010108C00000000000000 + 0000105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A + 8C00000000000000000010108C0000000000000000000000000031316B003131 + EF00A5A5F7006B6BEF006B6BEF004242CE003131BD0031319C0031316B003131 + 9C0018184A001010290000000000000000002184AD00D6DEE700ADB5BD001818 + 7B0018187B001818D6001818D6002129A50063737B007384940094ADBD00ADC6 + DE00A5C6DE00A5C6DE009CBDDE00101010000000000000000000000000005252 + FF003131C6003131A500000000000000000000000000000000003131A5003131 + C600000000000000000000000000000000000000000010108C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010108C0000000000000000000000000031316B003131 + EF00A5A5F7006B6BEF006B6BEF004242CE003131BD0031319C0031316B003131 + 9C0018184A001010290000000000000000002184AD0018187B0018187B001818 + 7B001818D6003918B5004242CE001818D6003131B500425A6B00526B84006B8C + AD007BA5C60084ADCE0084ADCE00101010000000000084848400848484008484 + 84005252FF003131C6003131A50084848400848484003131A5003131C6008484 + 8400848484008484840000000000000000000000000010108C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010108C0000000000000000000000000031316B003131 + EF00A5A5F7006B6BEF006B6BEF004242CE003131BD0031319C0031316B003131 + 9C0018184A001010290000000000000000002184AD00E7EFF7001818D6001818 + D6003918B500ADBDC600C6D6E7004A4AD6001818D6002129A5005A6B73006B7B + 8C008CA5BD009CBDD6009CBDDE0010101000000000005294A500DEF7FF00DEF7 + FF00D6F7F7005252FF003131C6003131A5003131A5003131C6008CC6CE007BBD + CE0073B5C60084848400000000000000000010108C0000000000000000000000 + 0000105A8C0084D6F70073C6F7005ABDEF004AADE700319CDE002194DE000000 + 000000000000000000000000000010108C000000000000000000000000003131 + BD003131BD006B6BEF004242CE004242CE003131BD0031319C0031316B003131 + 6B0031316B000000000000000000000000002184AD00E7EFF700E7EFF7003918 + B500C6D6E700CEDEEF00CEDEEF00C6DEEF005252DE001818D6003131B5005A6B + 73006B7B8C0084A5B50094B5D60010101000000000005294A500DEF7FF00DEF7 + FF00D6F7F700CEEFEF003131A5003131C6003131A50094CED6008CC6CE007BBD + CE0073B5C6008484840000000000000000000000000010108C00000000000000 + 0000105A8C0084D6F70073C6F7005ABDEF004AADE700319CDE002194DE000000 + 0000000000000000000010108C00000000000000000000000000000000000000 + 0000000000003131BD003131BD003131BD0031316B0031316B0031316B000000 + 0000000000000000000000000000000000002184AD0084ADCE0084ADCE0084AD + CE0084ADCE0084ADCE0084ADCE0084ADCE0084ADCE005A5AD6001818D6003939 + C600425A6B00526B84006B8CAD0010101000000000005294A5005294A5005294 + A5005294A5003131A5003131C6005252FF003131C6003131A5005294A5005294 + A5005294A5005294A50000000000000000000000000010108C00000000000000 + 0000105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A + 8C00000000000000000010108C00000000000000000000000000000000000000 + 0000000000000000000031316B003131940031316B0010102900000000000000 + 0000000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700D6E7F700D6E7F700CEDEEF00C6DEEF00C6D6EF00BDD6E7006363F7001818 + D6004A4AD6005263730063738400101010000000000000000000000000000000 + 00003131A5003131C6003131C60000000000000000005252FF003131A5000000 + 0000000000000000000000000000000000000000000010108C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010108C00000000000000000000000000000000000000 + 00000000000031316B00313194003131940031319C0031316B00101029000000 + 0000000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700D6E7F700D6E7F700CEDEEF00C6DEEF00C6D6EF00BDD6E700B5CEE7007B7B + E7001818D6005252E700526373001010100000000000848484003131A5003131 + A5003131C6003131C600848484008484840084848400848484005252FF003131 + A500848484008484840000000000000000000000000010108C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010108C00000000000000000000000000000000000000 + 000031316B00A5A5F7003131BD003131BD003131BD0031319C0031319C001010 + 2900000000000000000000000000000000002184AD0084ADCE0084ADCE0084AD + CE0084ADCE0084ADCE0084ADCE0084ADCE0084ADCE0084ADCE0084ADCE0084AD + CE009C9CD6001818D6006363EF0010101000000000005252FF009C9CFF003131 + C6003131C600CEEFEF00BDE7EF00B5DEE700A5D6DE0094CED6008CC6CE005252 + FF003131A5008484840000000000000000000000000010108C00000000000000 + 0000105A8C0084D6F70073C6F7005AB5EF004AADE700319CDE002194DE000000 + 0000000000000000000010108C00000000000000000000000000000000000000 + 000031319400A5A5F700A5A5F700A5A5F700A5A5F700A5A5F7003131EF003131 + 9400000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700D6E7F700D6E7F700CEDEEF00C6DEEF00C6DEEF00BDD6E700B5CEE700ADCE + E700A5C6DE00B5B5D6001818D60010101000000000005252FF005252FF005252 + FF00D6F7F700CEEFEF00BDE7EF00B5DEE700A5D6DE009CCED6008CC6CE007BBD + CE0073B5C6003131A50000000000000000000000000010108C00000000000000 + 0000105A8C0084D6F70073C6F7005AB5EF004AADE700319CDE002194DE000000 + 0000000000000000000010108C00000000000000000000000000000000000000 + 0000000000003131940031319400313194003131940031319400313194000000 + 0000000000000000000000000000000000002184AD00E7EFF700E7EFF700DEEF + F700D6E7F700D6E7F700CEDEEF00C6DEEF00C6D6EF00BDD6E700B5CEE700ADCE + E700A5C6DE00A5C6DE009CBDDE0010101000000000005294A5005294A5005294 + A5005294A5005294A5005294A5005294A5005294A5005294A5005294A5005294 + A5005294A5005294A5000000000000000000000000000000000010108C000000 + 0000105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A8C00105A + 8C000000000010108C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002184AD002184AD002184AD002184 + AD002184AD002184AD002184AD002184AD002184AD002184AD002184AD002184 + AD002184AD002184AD002184AD002184AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000949494009494 + 9400949494009494940094949400949494009494940094949400949494009494 + 9400949494009494940094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300000000000000000000000000000000000000 + 0000A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5 + A500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009494940000000000000000000000000000000000217B + A500217BA500217BA500217BA500217BA500217BA500217BA500217BA500217B + A500217BA500217BA50000000000000000000000000052292900522929005229 + 29005229290052292900522929003131AD003131AD003131AD003131AD005229 + 2900522929005229290063636300000000000000000000000000000000000000 + 00005A5A5A00525252004A4A4A00424A4A00424242003939390031313100A5A5 + A50000000000000000000000000000000000000000006B524A00FFE7DE00E7A5 + 8C00E7A58400DE9C7B00DE9C7B00D6947300CE8C7300C68C7300C6846B00BD84 + 6B00B57B6300000000009494940000000000000000000000000000000000217B + A500FFFFFF0052C6FF009CDEFF009CDEFF0052C6FF0052C6FF0052C6FF0052C6 + FF0042B5E700217BA50000000000000000000000000052292900000000000000 + 00005229290000000000000000003131AD0000000000000000003131AD000000 + 0000000000005229290063636300000000000000000000000000000000000000 + 00007B7B7B00737373006B6B6B005A5A6300525252004A4A4A0042424A00A5A5 + A50000000000000000000000000000000000000000006B524A00FFE7DE00E7A5 + 8C00E7A58400DE9C7B00DE9C7B00D6947300CE8C7300C68C7300C6846B00BD84 + 6B00B57B63000000000094949400000000000000000000000000319CCE00FFFF + FF009CDEFF009CDEFF0052C6FF0052C6FF009CDEFF0052C6FF0052C6FF0052C6 + FF0042B5E70000000000217BA500000000000000000052292900000000000000 + 00000000000000000000000000003131AD000000000000000000000000000000 + 0000000000005229290000000000000000000000000000000000000000000000 + 0000000000005A422900EFBD8400CE945A00AD7B420000000000A5A5A5000000 + 000000000000000000000000000000000000000000006B524A00FFE7DE005A5A + EF005A5AEF00E7A584004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00BD846B000000000094949400000000000000000000000000319CCE00FFFF + FF009CDEFF009CDEFF009CDEFF009CDEFF0052C6FF009CDEFF0052C6FF0052C6 + FF00217BA50000000000217BA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005A422900EFBD8400CE945A00AD7B420000000000A5A5A5000000 + 000000000000000000000000000000000000000000006B524A00FFE7DE00E7AD + 9400E7AD9400E7A58C00E7A58400DE9C8400DE9C7B00D6947B00D6947300CE8C + 7300C68C6B0000000000949494000000000000000000319CCE00FFFFFF009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF009CDEFF0052C6FF009CDEFF0042B5 + E70000000000217BA50042B5E700000000000000000000000000000000006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 63006363630063636300636363000000000000000000A5A5A500A5A5A500A5A5 + A50000000000000000005A422900CE945A0000000000A5A5A50000000000A5A5 + A500A5A5A500A5A5A5000000000000000000000000006B524A00FFE7DE004A4A + EF004A4AEF00E7AD94004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A00D694 + 7300CE8C730000000000949494000000000000000000319CCE00FFFFFF009CDE + FF009CDEFF009CDEFF009CDEFF009CDEFF0052C6FF009CDEFF0052C6FF0042B5 + E7000000000042B5E70042B5E700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006363630000000000000000001084BD00006B9C000039 + 7B00A5A5A500000000005A422900CE945A0000000000A5A5A500000000001084 + BD00006B9C0000397B00A5A5A50000000000000000006B524A00FFE7DE00E7BD + A500E7B5A500E7B59C00E7AD9400E7AD8C00E7A58C00E7A58400DE9C7B00DE94 + 7B00D694730000000000949494000000000000000000319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE00319CCE00319CCE00319CCE00319CCE00319C + CE0042B5E700ADDEFF0042B5E700000000000000000000000000F7DE6B00F7DE + 6B0094393900EFC66300E7BD5A0094393900E7AD5A00DEAD520094393900DE9C + 5200D68C4A000000000063636300000000005A42290094DEEF0073C6E70052B5 + D60000000000A5A5A500000000005A422900A5A5A500000000005A42290094DE + EF0073C6E70052B5D60000000000A5A5A500000000006B524A00FFE7DE004A4A + DE004A4ADE00E7B5A5004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00DE9C7B000000000094949400000000000000000000000000319CCE00FFFF + FF00ADDEFF00ADDEFF00ADDEFF00ADDEFF00ADDEFF00ADDEFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0042B5E700000000000000000000000000F7E76B00F7DE + 6B0094393900EFD66300EFCE630094393900E7BD5A00E7B55A0094393900DEA5 + 5200DE9C5200000000006363630000000000000000005A422900A5A5A5005A42 + 2900A5A5A50000000000000000005A422900A5A5A50000000000000000005A42 + 2900A5A5A5005A422900A5A5A50000000000000000006B524A00FFE7DE00E7C6 + B500E7C6AD00E7BDAD00E7B5A500E7B59C00E7AD9400E7AD9400E7A58C00E7A5 + 8400DE9C84000000000094949400000000000000000000000000319CCE00FFFF + FF00ADDEFF00ADDEFF00ADDEFF00ADDEFF00FFFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE00000000000000000000000000F7DE6B00F7DE + 6B0094393900EFD66300EFCE630094393900E7BD5A00E7B55A0094393900DEAD + 5200DEA5520000000000636363000000000000000000000000005A422900A5A5 + A5000000000000000000000000005A422900A5A5A50000000000000000000000 + 00005A422900A5A5A5000000000000000000000000006B524A00FFE7DE004A4A + C6004A4AC600E7C6B5004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00E7A58400000000009494940000000000000000000000000000000000319C + CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00319CCE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7E76B00F7DE + 6B0094393900EFD66300EFCE630094393900E7BD5A00E7B55A0094393900DEAD + 5200DEA5520000000000636363000000000000000000000000005A4229005A42 + 2900A5A5A500A5A5A5007B7B7B005A4229007B7B7B00A5A5A500A5A5A5005A42 + 29005A422900A5A5A500A5A5A50000000000000000006B524A00FFE7DE00EFD6 + C600E7CEBD00E7C6B500E7C6B500E7BDAD00E7BDA500E7B59C00E7B59C00E7AD + 9400E7AD8C000000000094949400000000000000000000000000000000000000 + 0000319CCE00319CCE00319CCE00319CCE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006363630000000000000000007B7B7B007B7B7B006B6B + 6B005A4229005A4229005A4229005A4229005A4229005A4229005A4229006B6B + 6B007B7B7B007B7B7B00A5A5A50000000000000000006B524A00FFE7DE004A4A + B5004A4AB500EFCEC6004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A00E7B5 + 9C00E7AD94000000000094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADE7F700A5E7 + F7009CDEF700424242008CDEF70084D6F7007BD6F700424242006BCEF7006BCE + F70063CEF7000000000063636300000000000000000000000000000000000000 + 00000000000000000000000000005A422900A5A5A50000000000000000000000 + 000000000000000000000000000000000000000000006B524A00FFE7DE00EFDE + D600EFD6CE00EFD6C600EFCEC600E7CEBD00E7C6B500E7C6AD00E7BDA500E7B5 + A500E7B59C000000000094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ADE7F700A5E7 + F7009CDEF700424242008CDEF70084D6F7007BD6F700424242006BCEF7006BCE + F70063C6F7000000000063636300000000000000000000000000000000000000 + 00000000000000000000000000005A422900A5A5A50000000000000000000000 + 000000000000000000000000000000000000000000006B524A00FFE7DE00FFE7 + DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7 + DE00FFE7DE000000000094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006B524A006B524A006B52 + 4A006B524A006B524A006B524A006B524A006B524A006B524A006B524A006B52 + 4A006B524A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300737373007373730073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003131F7003131F7003131 + F7003131F7003131F7003131F7003131F7003131F7003131F7003131F7003131 + F7003131F7003131F7003131F7003131F7000000000000000000C6C6C600D6D6 + D6000000000000000000000000000000000000000000B5B5B5009C9C9C009C9C + 9C00B5B5B5000000000000000000000000000000000008080800080808000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 0800080808000808080073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003131F7003131F7003131 + F7003131F7003131F7003131F7003131F7003131F7003131F7003131F7003131 + F7003131F7003131F7003131F7003131F7000000000000000000A5A5A500A5A5 + A500D6D6D6000000000000000000000000009C63630000000000000000000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE00D6D6D600CECECE00C6C6C600BDBDBD00B5B5AD00A5ADA5009C9C + 9C0094949400080808007373730000000000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B101000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B10100000000000393939003131F7003131 + F7003131F7003131F7003131F7003131F7003131F7003131F7003131F7003131 + F7003131F7003131F7003131F7003131F700000000009C636300000000008484 + 8400A5A5A500D6D6D60000000000000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 080094949400080808007373730000000000000000001084BD00DEFFFF000000 + 000000000000000000000000000000000000000000001084BD00DEFFFF000000 + 00000000000000000000000000000000000000000000393939003131F7003131 + F7003131F7003131F7003131F7003131F7003131F7003131F7003131F7003131 + F7003131F7003131F7003131F7003131F700000000009C6363009C6363000000 + 000084848400A5A5A500D6D6D600000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E7000808080008080800CECECE00C6C6C600BDBDBD00B5ADB500ADADAD000808 + 080094949400080808007373730000000000000000001084BD001084BD000000 + 000000000000000000000000000000000000000000001084BD001084BD000000 + 00000000000000000000000000000000000000000000F7B56300393939003131 + F7003131F7003131F7003131F7003131F7003131F7003131F7003131F7003939 + 39003131F7003131F7003131F7003131F700000000009C636300FFFFCE009C63 + 63000000000084848400A5A5A500D6D6D6009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE000808080008080800C6C6C600BDBDBD00B5B5AD00A5ADAD009C9C + 9C00949494000808080073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7B56300F7B563003939 + 39003131F7003131F7003131F7003131F7003131F7003131F700393939003939 + 39003131F7003131F7003131F7003131F700000000009C636300FFFFCE00FFCE + 9C009C6363000000000084848400A5A5A5009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE00D6D6D6000808080008080800BDBDBD00B5B5B500ADA5AD009C9C + 9C00949494000808080073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000039393900F7B56300F7B5 + 6300393939003131F7003131F7003131F7003939390039393900F7B56300F7B5 + 630039393900393939003131F7003131F700000000009C636300FFFFCE00FFCE + 9C00FFCE9C009C636300000000008C8C8C009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE00D6D6D600CECECE000808080008080800ADADAD00ADA5A5009C9C + 9C0094949400080808007373730000000000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B101000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B1010000000000039393900F7B56300F7B5 + 6300F7B56300393939003939390039393900F7B56300F7B56300393939003939 + 3900F7B56300F7B56300393939003131F700000000009C636300FFFFCE00FFCE + 9C00FFCE9C00FFFF9C009C636300000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE00D6D6D6000808080008080800BDBDBD00B5ADB500A5A5AD009C9C + 9C0094949400080808007373730000000000000000001084BD00DEFFFF000000 + 000000000000000000000000000000000000000000001084BD00DEFFFF000000 + 000000000000000000000000000000000000000000000000000039393900F7B5 + 6300F7B5630039393900F7B56300F7B56300F7B5630039393900000000000000 + 000039393900F7B56300F7B5630039393900000000009C636300FFFFCE00FFCE + 9C00FFFF9C00FFCE9C0000000000D6D6D6009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE000808080008080800C6C6C600BDBDBD00B5ADAD00ADADAD009C9C + 9C0094949400080808007373730000000000000000001084BD001084BD000000 + 000000000000000000000000000000000000000000001084BD001084BD000000 + 0000000000000000000000000000000000000000000000000000000000003939 + 3900F7B56300F7B56300F7B56300F7B563003939390000000000000000000000 + 00000000000039393900F7B56300F7B56300000000009C636300FFFFCE00FFFF + 9C00FFCE9C0000000000D6D6D600000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E7000808080008080800CECECE00C6C6C600BDBDBD00ADB5AD00ADA5AD000808 + 0800949494000808080073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000039393900F7B56300F7B56300F7B563003939390000000000000000000000 + 0000000000000000000039393900F7B56300000000009C636300FFFFCE00FFCE + 9C0000000000D6D6D60000000000000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF000808 + 0800080808000808080008080800080808000808080008080800080808000808 + 0800949494000808080073737300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000039393900F7B56300F7B56300393939000000000000000000000000000000 + 000000000000000000000000000039393900000000009C636300FFCE9C000000 + 0000D6D6D6000000000000000000000000009C636300FFFF9C00FFCE9C000000 + 00009C9C9C00000000000000000000000000000000006B6B6B00EFEFEF00E7E7 + E700DEDEDE00D6D6D600CECECE00C6C6C600BDBDBD00ADADB500ADADA5009C9C + 9C0094949400080808007373730000000000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B101000000000001084BD00DEFFFF000000 + 0000000000006B1010006B1010006B1010000000000000000000000000000000 + 0000000000003939390039393900000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C63630000000000D6D6 + D600000000000000000000000000000000009C636300FFFF9C00FFCE9C000000 + 0000B5B5B500000000000000000000000000000000006B6B6B006B6B6B006B6B + 6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B + 6B006B6B6B006B6B6B000000000000000000000000001084BD00DEFFFF000000 + 000000000000000000000000000000000000000000001084BD00DEFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003939390000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300000000000000 + 0000000000000000000000000000000000009C6363009C6363009C6363009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001084BD001084BD000000 + 000000000000000000000000000000000000000000001084BD001084BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002121 + CE0021219C0021219C0008085A00000000000000000000000000000000006318 + 0800000000006318080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B5D6F7008CBDDE000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002121CE00218C + C600218CC600215273002152730008085A000000000063180800631808006318 + 0800631808006318080063180800000000000000000000000000000000000000 + 00000808FF000000000042BDEF0039B5E7008400000021A5DE00219CD6008400 + 0000188CC600188CBD0000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B5D6F7008CBDDE008CBDDE006BA5CE00000000000000 + 000000000000000000000000000000000000000000002121CE006BFFFF0021BD + FF0021BDFF0021BDFF00088CCE002152730008085A0000000000000000006318 + 0800000000006318080000000000631808000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000063636300000000006B420000FFEFCE006B42 + 00006B4200006B4200006B4200006B4200006B4200006B4200006B4200006B42 + 00006B4200000000000000000000000000000000000000000000000000000000 + 000000000000B5D6F700B5D6F7008CBDDE0000007B0000007B006BA5CE006BA5 + CE00000000000000000000000000000000002121CE006BFFFF0021D6FF0021D6 + FF0021D6FF0021BDFF0021BDFF00088CCE002152730008085A00000000006318 + 0800000000006318080000000000631808000000000000000000000000000000 + 0000E7E7E70000000000FFAD3100FF9C310084000000FF732100FF6B21008400 + 0000FF311000FF2108000000000063636300000000006B420000FFEFCE00FF9C + 0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C + 00006B4200000000000000000000000000000000000000000000000000000000 + 000000000000B5D6F700B5D6F70000007B0000007B0000007B006BA5CE006BA5 + CE006BA5CE006BA5CE0000000000000000002121CE006BFFFF0021D6FF0021D6 + FF0021D6FF0021BDFF0021BDFF0021BDFF002152730008085A00631808006318 + 0800631808006318080063180800000000000000000000000000000000000000 + 0000E7EFE70000000000FFB53900FFA5310084000000FF7B2900FF7321008400 + 0000FF391000FF2908000000000063636300000000006B420000FFEFCE00FFEF + CE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEF + CE00FFEFCE000000000000000000000000000000000000000000000000000000 + 0000B5D6F700B5D6F700B5D6F700B5D6F7008CBDDE0000007B006BA5CE006BA5 + CE006BA5CE006BA5CE0000000000000000009494FF006BFFFF006BFFFF0021D6 + FF0021D6FF0021D6FF0021D6FF0021BDFF00088CCE0063180800000000006318 + 08000000000063180800000000000000000000000000000000000000000042E7 + FF0042E7FF000000000084000000840000008400000084000000840000008400 + 000084000000840000000000000063636300000000006B4200006B4200006B42 + 00006B4200006B4200006B4200006B4200006B4200006B4200006B4200006B42 + 00006B4200000000000000000000000000000000000000000000000000000000 + 0000B5D6F700B5D6F70000007B0000007B008CBDDE0000007B006BA5CE006BA5 + CE006BA5CE00000000000000000000000000000000009494FF006BFFFF006BFF + FF0021D6FF0021D6FF0021D6FF00088CCE0021219C0063180800000000006318 + 08000000000063180800000000000000000042E7FF0000000000000000003939 + 390042E7FF000000000042E7FF0042E7FF0084000000FFAD3900FFA531008400 + 0000FF732100FF6B210000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEEF + F700B5D6F70000007B0000007B0000007B008CBDDE008CBDDE0000007B006BA5 + CE006BA5CE0000000000000000000000000000000000000000009494FF006BFF + FF006BFFFF0021BDFF00088CCE0021219C000000000000000000631808006318 + 0800631808006318080063180800631808003939390042E7FF00000000003939 + 390042E7FF0042E7FF003939390042E7FF0084000000FFB53900FFAD31008400 + 0000FF7B2900FF73210000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEEF + F700B5D6F700B5D6F700B5D6F70000007B008CBDDE008CBDDE0000007B006BA5 + CE00000000000000000000000000000000000000000000000000000000009494 + FF002121CE0021219C0021219C00000000000000000000000000000000006318 + 08000000000063180800000000000000000042E7FF0039393900DEFFFF003939 + 390042E7FF003939390042E7FF00000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEEFF700DEEF + F700B5D6F700B5D6F700B5D6F70000007B008CBDDE008CBDDE0000007B006BA5 + CE00000000000000000000000000000000000000000000000000000000005A5A + 5A00FFFFFF008C8C8C0021212100000000000000000000000000000000000000 + 000000000000000000000000000000000000393939003939390039393900DEFF + FF003939390042E7FF00FFFFFF00F7F7F700EFEFEF00EFEFEF0000000000DEDE + DE00D6D6D600D6D6D6000000000063636300000000006B420000FFEFCE006B42 + 00006B4200006B4200006B4200006B4200006B4200006B4200006B4200006B42 + 00006B4200000000000000000000000000000000000000000000DEEFF700DEEF + F70000000000B5D6F700B5D6F700B5D6F70000007B008CBDDE008CBDDE000000 + 0000000000000000000000000000000000000000000000000000000000002121 + CE002121CE0021219C0021219C00000000000000000000000000000000000000 + 00002121CE0008088C00080863000000000042E7FF00DEFFFF003939390042E7 + FF00DEFFFF0039393900393939003939390042E7FF0000000000000000000000 + 000000000000000000000000000000000000000000006B420000FFEFCE00FF9C + 0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C + 00006B4200000000000000000000000000000000000000000000000000000000 + 000000FFFF000000000000000000B5D6F70000007B008CBDDE008CBDDE000000 + 000000000000000000000000000000000000000000002121CE002121CE002121 + EF002121EF002121EF002121EF0021219C0021219C0000000000000000000000 + 00002121CE0008088C000808630000000000DEFFFF003939390042E7FF003939 + 390042E7FF003939390042E7FF00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006B420000FFEFCE00FFEF + CE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEF + CE00FFEFCE000000000000000000000000000000000000000000000000000000 + 000000D6FF0000D6FF0000D6FF000000000000007B008CBDDE00000000000000 + 0000000000000000000000000000000000009494FF002121EF008CCEFF008CCE + FF008CCEFF008CCEFF008CCEFF008CCEFF002121EF0021219C00000000000000 + 00002121CE0008088C0008086300000000003939390042E7FF00000000003939 + 390042E7FF0042E7FF003939390042E7FF000000000000000000000000000000 + 000000000000000000000000000000000000000000006B4200006B4200006B42 + 00006B4200006B4200006B4200006B4200006B4200006B4200006B4200006B42 + 00006B4200000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000000000B5D6F7008CBDDE00000000000000 + 0000000000000000000000000000000000009494FF002121EF002121EF002121 + EF002121EF002121EF002121EF002121EF002121EF0021219C00000000002121 + CE0008088C0008088C00080863000808630042E7FF0000000000000000003939 + 390042E7FF000000000042E7FF00393939000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009494FF002121EF008CCEFF008CCE + FF008CCEFF008CCEFF008CCEFF008CCEFF002121EF0021219C00000000000000 + 00002121CE0008088C0008086300000000000000000000000000000000003939 + 390042E7FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009494FF007B7BFF007B7BFF007B7B + FF007B7BFF007B7BFF007B7BFF007B7BFF007B7BFF007B7BFF00000000000000 + 0000000000002121CE0000000000000000000000000000000000000000000000 + 0000000000000000000073737300000000007373730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000073737300000000003994DE000000000073737300000000000000 + 0000000000000000000000000000000000000000420000004200000042000000 + 42000000420000004200000000000000000000000000000000008C847B008C84 + 7B008C847B008C847B008C847B008C847B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000007B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007373730000000000399CDE00399CDE00399CDE0000000000737373000000 + 0000000000000000000000000000000000004284BD0094DEEF0073C6E70052B5 + D60029A5D6000000420000000000000000000000840000000000BDA59400FFDE + A500F7CE9C00DEBD9C00CEAD94008C847B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A390800FFDECE00945231009452 + 3100945231000000000000007B0000007B0000007B0000007B0000007B000000 + 7B00000000000000000000000000000000000000000000000000000000007373 + 730000000000399CDE00399CE700000000004A9CE7004AA5E700000000007373 + 7300000000000000000000000000000000004284BD0094DEEF0073C6E70052B5 + D60029A5D6000000420000008400000084000000840000008400BDA59400FFDE + A500F7CE9C00DEBD9C00CEAD94008C847B004210080042100800421008004210 + 0800421008000000000000000000000000000000000000000000000000004210 + 0800421008004210080042100800421008005A390800FFDECE00FFA59400FFA5 + 940094523100000000000000000000007B000000000000000000000000000000 + 000000007B000000000000000000000000000000000000000000737373000000 + 0000399CDE00399CE70000000000DEF7FF00000000004AADE7004AADE7000000 + 0000737373000000000000000000000000004284BD004284BD004284BD004284 + BD004284BD004284BD0000000000000000000000840000000000BDA59400BDA5 + 9400BDA59400BDA59400BDA59400BDA59400B5736300EFEFCE00F79C7300F794 + 6B0042100800000000000000000000000000000094000000000000000000B573 + 6300EFEFCE00F79C7300F7946B00421008005A390800FFDECE00FFDECE00FFDE + CE00FFA594000000000000000000000000000000000000000000000000000000 + 000000007B00000000000000000000000000000000007373730000000000399C + DE00399CE70000000000DEF7FF00DEF7FF00DEF7FF000000000073D6FF005AB5 + E700000000007373730000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B5736300EFEFCE00F79C7300F794 + 6B0042100800000000000000940000009400000094000000940000000000B573 + 6300EFEFCE00F79C7300F7946B00421008005A3908005A3908005A3908005A39 + 08005A3908005A39080000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007373730000000000399CDE00399C + E70000000000DEF7FF00DEF7FF00DEF7FF00DEF7FF00DEF7FF000000000063BD + F70063BDF7000000000073737300000000000000420000004200000042000000 + 4200000042000000420000000000000000000000000000000000080831000808 + 310008083100080831000808310008083100B5736300EFEFCE00F7946B00F794 + 6B0042100800000000000000000000000000000094000000000000000000B573 + 6300EFEFCE00F7946B00F7946B0042100800000000000000000000007B000000 + 0000000000000000000000007B0000007B0000007B000000000008395A00CEFF + FF005AB5FF005AB5FF005AB5FF000000000000000000399CDE00399CE7000000 + 00004AA5E70000000000DEF7FF00DEF7FF00DEF7FF00DEF7FF00DEF7FF000000 + 000063C6F70063BDF70000000000737373004284BD0094DEEF0073C6E70052B5 + D60029A5D600000042000000000000000000000084000000000021216B009494 + FF007373F7005252DE003131CE0008083100B5736300EFEFCE00F7946B00F794 + 6B0042100800000000000000000000000000000000000000000000000000B573 + 6300EFEFCE00F7946B00F7946B00421008000000000000007B0000007B000000 + 7B00000000000000000000007B0000007B00000000000000000008395A00CEFF + FF00CEFFFF00CEFFFF0094FFFF00000000000000000000000000399CE7004AA5 + E7000000000073D6FF0000000000DEF7FF00DEF7FF00DEF7FF00DEF7FF00DEF7 + FF000000000063C6F7005ABDF700000000004284BD0094DEEF0073C6E70052B5 + D60029A5D600000042000000840000008400000084000000840021216B009494 + FF007373F7005252DE003131CE0008083100B5736300EFEFCE00F7946B00F794 + 630042100800000000000000000000000000000000000000000000000000B573 + 6300EFEFCE00F7946B00F794630042100800000000000000000000007B000000 + 0000000000000000000000007B000000000000007B000000000008395A000839 + 5A0008395A0008395A0008395A0008395A0000000000000000000000000063C6 + F70063C6F7000000000073D6FF0000000000DEF7FF00DEF7FF00DEF7FF000000 + 000073CEF70063C6F70000000000000000004284BD004284BD004284BD004284 + BD004284BD004284BD000000000000000000000084000000000021216B002121 + 6B0021216B0021216B0021216B0021216B00B5736300EFEFCE00F7946B00F794 + 630042100800000000000000000000009400000000000000000000000000B573 + 6300EFEFCE00F7946B00F794630042100800000000000000000000007B000000 + 00000000000000000000000000000000000000007B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063C6F70063C6F7000000000073D6FF0000000000DEF7FF000000000073D6 + FF0073CEF7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B5736300EFEFCE00F7946B00F794 + 630042100800000000000000940000009400000094000000940000000000B573 + 6300EFEFCE00F7946B00F794630042100800000000000000000000007B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000063C6F70063C6F7000000000073D6FF000000000073D6FF0073D6 + FF00000000000000000000000000000000000000420000004200000042000000 + 42000000420000004200000000000000000000000000000000008C847B008C84 + 7B008C847B008C847B008C847B008C847B00B5736300EFEFCE00EFEFCE00EFEF + CE0042100800000000000000000000009400000000000000000000000000B573 + 6300EFEFCE00EFEFCE00EFEFCE00421008000000000000000000000000000000 + 000000000000000000000000000008395A00CEFFFF005AB5FF005AB5FF005AB5 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000063C6F70073CEF7000000000073D6FF0073D6FF000000 + 0000000000000000000000000000000000004284BD0094DEEF0073C6E70052B5 + D60029A5D6000000420000000000000000000000840000000000BDA59400FFDE + A500F7CE9C00DEBD9C00CEAD94008C847B00B5736300B5736300B5736300B573 + 6300B5736300000000000000000000000000000000000000000000000000B573 + 6300B5736300B5736300B5736300B573630008395A00CEFFFF005AB5FF005AB5 + FF005AB5FF00000000000000000008395A00CEFFFF00CEFFFF00CEFFFF0094FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000063C6F70063CEF70073CEF700000000000000 + 0000000000000000000000000000000000004284BD0094DEEF0073C6E70052B5 + D60029A5D6000000420000008400000084000000840000008400BDA59400FFDE + A500F7CE9C00DEBD9C00CEAD94008C847B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008395A00CEFFFF00CEFFFF00CEFF + FF0094FFFF00000000000000000008395A0008395A0008395A0008395A000839 + 5A0008395A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000063C6F70000000000000000000000 + 0000000000000000000000000000000000004284BD004284BD004284BD004284 + BD004284BD004284BD0000000000000000000000840000000000BDA59400BDA5 + 9400BDA59400BDA59400BDA59400BDA594000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008395A0008395A0008395A000839 + 5A0008395A0008395A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008CD6EF0052BDDE00006BB500005AA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000007B00000042000000000000000000000000000000 + 0000000000008CD6EF0052BDDE0031ADD60000000000000000001894CE00005A + A500005AA5000000000000000000000000000000000000000000000000001818 + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000018189400000000000000000000000000949494000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000007B0000007B00000000000000000000000000000000000000 + 000052BDDE0031ADD60000000000000000000000000000000000000000000000 + 00008CD6EF001894CE00000000000000000000000000000000001818BD001818 + BD00181894007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B + 7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000000000A5A5A500A5A5 + A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5 + A500A5A5A5000000000000000000000000000000000000000000000000000000 + 0000004A6B004ABDFF00007BBD00000000000000000000000000000000000000 + 000000007B0000007B0000000000000000000000000000000000000000000000 + 000000000000000000001894CE00005AA5000000000000000000000000000000 + 0000000000001894CE0000000000000000000000000031527B001818BD007B7B + FF00181894001818940031527B0031527B0031527B0031527B0031527B003152 + 7B0031527B001818940031527B007B7B7B000000000000000000B5B5B500B5B5 + B50084080000840800008408000084080000840800008408000084080000B5B5 + B500B5B5B50000000000000000000000000000000000007BBD004ABDFF000000 + 0000004A6B004ABDFF00000000000094DE00313131005A7B4A005A5A2100C6C6 + 8C000000000000007B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001894CE00005AA500000000000000 + 000031ADD600000000000000000000000000000000006394C600DEFFFF002929 + FF001818BD00181894006BBDEF006BBDEF006BBDEF004AA5DE004AA5DE004AA5 + DE00181894004AA5DE0031527B007B7B7B000000000000000000C6C6C600C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C60000000000000000000000000000000000007BBD00B5E7FF004ABD + FF004ABDFF0000ADFF0000ADFF005A5A5A0084A57300738C290073730000D6D6 + 6300C6C68C000000000000000000000000000000000000000000000000000000 + 000000000000000000008CD6EF000063AD008CD6EF001894CE00000000000000 + 0000005AA500000000000000000000000000000000006394C600DEFFFF003152 + 7B002929FF001818BD001818940031527B0031527B0031527B0031527B001818 + 94001818BD004AA5DE0031527B007B7B7B000000000000000000D6D6D600D6D6 + D60084080000840800008408000084080000840800008408000084080000D6D6 + D600D6D6D60000000000000000000000000000000000007BBD000094DE004ABD + FF00007BBD000000000000ADFF005A5A5A00848421007373000073730000D6D6 + 6300D6D663000000000000000000000000000000000000000000000000000000 + 00008CD6EF000063AD00A59C7B00A5947300004A9C001894CE000073B500005A + A500005AA500000000000000000000000000000000006394C600DEFFFF00A5EF + FF008CDEF7002929FF001818BD00181894006BBDEF006BBDEF00181894001818 + BD004AA5DE004AA5DE0031527B007B7B7B000000000000000000E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700000000000000000000000000007BBD004ABDFF004ABDFF00007B + BD004ABDFF00004A6B00000000005A5A5A0073AD7B009CB59C009CB59C008484 + 4A00C6C68C0000000000000000000000000000000000000000008CD6EF000063 + AD00B5AD8400B5AD8C00B5AD8C00B5AD8400ADA57B008CD6EF000073B50031AD + D600005AA500000000000000000000000000000000006394C600DEFFFF003152 + 7B0031527B0031527B002929FF001818BD0018189400181894001818BD003152 + 7B0031527B004AA5DE0031527B007B7B7B000000000000000000EFEFEF00EFEF + EF0084080000840800008408000084080000840800008408000084080000EFEF + EF00EFEFEF00000000000000000000000000007BBD00B5E7FF004ABDFF00007B + BD004ABDFF00004A6B000000000000ADFF005A5A5A00738C2900738C29005A5A + 1000313131000000000000000000000000000000000000000000004A9C00BDAD + 8C00C6B59400C6BD9C00C6BD9C00C6BD9400BDAD8C00004A9C001894CE000000 + 000000000000000000000000000000000000000000006394C600DEFFFF00A5EF + FF00A5EFFF00A5EFFF008CDEF700181894001818BD00181894006BBDEF006BBD + EF006BBDEF006BBDEF0031527B007B7B7B000000000000000000F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F70000000000000000000000000000000000007BBD000094DE004ABD + FF00007BBD000000000000ADFF0084848400000000005A5A5A005A5A5A005A5A + 5A000000000000000000000000000000000000000000000000008CD6EF00C6BD + 9C00CEC6A500D6CEAD00D6CEAD00CEC6A500C6BD9C00BDAD8C008CD6EF001894 + CE0000000000000000000000000000000000000000006394C600DEFFFF00A5EF + FF00A5EFFF0031527B00181894001818BD002929FF001818BD00181894003152 + 7B0031527B006BBDEF0031527B007B7B7B000000000000000000FFFFFF00FFFF + FF0084080000840800008408000084080000840800008408000084080000FFFF + FF00FFFFFF0000000000000000000000000000000000007BBD004ABDFF004ABD + FF004ABDFF0000ADFF0000ADFF0000ADFF00004A6B00004A6B00000000000000 + 000000000000000000000000000000000000000000000000000000000000004A + 9C00DED6B500E7DEBD00E7DEBD00DED6B500D6C6A500C6B59400004A9C001894 + CE00005AA500000000000000000000000000000000006394C600DEFFFF00A5EF + FF00A5EFFF00181894001818BD001818BD008CDEF7008CDEF7002929FF001818 + 94008CDEF7006BBDEF0031527B007B7B7B000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000000000000000000000000000007BBD00B5E7FF000000 + 0000004A6B004ABDFF00000000000094DE00004A6B00004A6B00000000000000 + 0000000000000000000000000000000000000000000000000000000000008CD6 + EF00E7DEBD00EFE7C600EFE7C600E7DEBD00D6CEAD00C6BD9C00B5AD8C008CD6 + EF001894CE00000000000000000000000000000000006394C600DEFFFF001818 + 9400181894001818BD001818BD00A5EFFF00A5EFFF00A5EFFF00A5EFFF002929 + FF00181894008CDEF70031527B007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000007BBD00007B + BD00007BBD00B5E7FF00007BBD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000004A9C00EFE7C600EFE7C600E7DEBD00D6CEAD00C6BD9C00B5AD8C00004A + 9C001894CE00005AA5000000000000000000000000006394C6002929FF007B7B + FF001818BD001818BD00DEFFFF00DEFFFF00DEFFFF00DEFFFF00DEFFFF00DEFF + FF002929FF001818940031527B007B7B7B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000007BBD00007BBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008CD6EF00E7DEBD00E7DEBD00DED6B500D6C6A500C6B59400B5AD8400A594 + 73008CD6EF001894CE000000000000000000000000006394C6002929FF002929 + FF002929FF006394C6006394C6006394C6006394C6006394C6006394C6006394 + C6006394C6006394C60018189400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008CD6EF008CD6EF008CD6EF008CD6EF008CD6EF008CD6EF008CD6 + EF008CD6EF001894CE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001010100010101000101010001010 + 10001010100010101000000000002929D60010107B0000000000000000000000 + 0000000000000000000010107B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000073737300737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300737373007373730073737300737373000000000073737300737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 73007373730073737300737373007373730010638C0039A5CE0039A5CE0039A5 + CE0039A5CE0010101000000000004242FF002929D60010107B00000000000000 + 00000000000010107B009494D600000000000000000073737300737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300737373007373730073737300737373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000737373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007373730010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000004242FF002929D60010107B000000 + 000010107B007B7BE70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF0084C6EF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF005AB5E70052B5E70052ADE7004AA5E7004AA5 + DE00429CDE00429CDE00000000007373730010638C0010638C0010638C001063 + 8C0010638C0010638C000000000000000000000000004242FF002929D6002929 + B5002929D60000000000000000000000000000000000F7F7EF00EFEFEF00EFE7 + E700E7DED600DED6CE00D6CEC600CEC6BD00C6BDAD00BDB5A500B5AD9C00AD9C + 8C00A59484009C8C7B0000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF0018314A0018314A0018314A0018314A001831 + 4A0018314A00429CDE0000000000737373000000000000000000000000000000 + 0000000000000000000000000000000000000000000010107B002929D6002929 + D60010107B0000000000000000000000000000000000F7F7EF00635242006352 + 4200635242006352420063524200635242006352420063524200635242006352 + 4200635242009C8C7B0000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF005A7384005A7384005A7384005A7384005A73 + 84005A73840073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF0018314A00DEF7FF00DEF7FF00DEF7FF00DEF7 + FF0018314A00429CDE0000000000737373001010100010101000101010001010 + 10001010100010101000000000000000000010107B002929D6003110B5000000 + 00004242FF0010107B00000000000000000000000000F7F7EF0063524200EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00635242009C947B0000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF0018314A00DEF7FF00DEF7FF00DEF7FF00DEF7 + FF0018314A00429CDE00000000007373730010638C0039A5CE0039A5CE0039A5 + CE0039A5CE00101010000000000010107B002929D6003110B500000000000000 + 0000000000007B7BE70010107B000000000000000000F7F7EF0063524200EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00635242009C8C7B0000000000737373000000000029420800294208002942 + 0800294208002942080084CEEF005A7384005A7384005A7384005A7384005A73 + 84005A73840073B5E70000000000737373000000000029420800294208002942 + 080029420800294208005ABDEF0018314A00DEF7FF00DEF7FF00DEF7FF00DEF7 + FF0018314A00429CDE00000000007373730010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000003110B50000000000000000000000 + 000000000000000000009494D6000000000000000000F7F7EF0063524200EFEF + EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF + EF00635242009C8C7B0000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF0018314A00DEF7FF00DEF7FF00DEF7FF00DEF7 + FF0018314A00429CDE00000000007373730010638C0010638C0010638C001063 + 8C0010638C0010638C0000000000000000000000000010107B00101094000000 + 00000000000000000000000000000000000000000000F7F7EF00635242006352 + 4200635242006352420063524200635242006352420063524200635242006352 + 4200635242009C8C7B0000000000737373000000000029420800294208002942 + 0800294208002942080084CEEF00BD6B4A00BD6B4A00BD6B4A00BD6B4A00BD6B + 4A00BD6B4A0073B5E70000000000737373000000000029420800294208002942 + 080029420800294208005ABDEF0018314A0018314A0018314A0018314A001831 + 4A0018314A00429CDE0000000000737373000000000000000000000000000000 + 00000000000000000000000000000000000010107B0010107B001010D6001810 + 94000000000000000000000000000000000000000000F7F7EF0063524200D6C6 + AD00D6BD9C00CEB59400C6AD8400C6A57B00C69C7300BD946300BD8C5A00B58C + 5200635242009C947B0000000000737373000000000094DEF70094D6F7002942 + 08008CD6F7008CCEF70084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF7006BCEF7002942 + 080063C6EF0063BDEF005ABDEF0018314A0052B5E70052ADE7004AADE7004AA5 + DE0018314A00429CDE0000000000737373001010100010101000101010001010 + 100010101000101010000000000010107B0010107B001010D6003110B5003939 + CE002121A50000000000000000000000000000000000F7F7EF00635242006352 + 4200635242006352420063524200635242006352420063524200635242006352 + 4200635242009C8C7B0000000000737373000000000094DEF7002942080094D6 + F700294208008CD6F7008CCEF70084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E70000000000737373000000000073CEF700294208006BC6 + F7002942080063BDEF005ABDEF0018314A0018314A0018314A0018314A001831 + 4A0018314A00429CDE00000000007373730010638C0039A5CE0039A5CE0039A5 + CE0039A5CE0010101000000000001010D6001010D6003110B500000000007B7B + E7004242D6002929B500000000000000000000000000F7F7EF00EFEFEF00EFE7 + E700E7DED600DED6CE00D6CEC600CEC6B500C6BDAD00BDB5A500B5AD9C00AD9C + 8C00A59484009C8C7B000000000073737300000000002942080094D6F70094D6 + F7008CD6F7002942080084CEEF0084CEEF0084C6EF007BC6EF007BBDEF0073BD + E70073B5E70073B5E700000000007373730000000000294208006BCEF7006BC6 + F70063C6EF00294208005ABDEF005AB5E70052B5E70052ADE7004AA5E7004AA5 + DE00429CDE00429CDE00000000007373730010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000003110B50000000000000000000000 + 00009494D6004A4ADE003939C600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000010638C0010638C0010638C001063 + 8C0010638C0010638C0000000000000000000000000000000000000000000000 + 000000000000000000005252E7004242D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005A5AEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000063000000630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 630000008C000000630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CEEF + FF00C6E7F700BDE7F700B5DEF700ADD6EF00A5CEEF0094C6E7008CC6E70084BD + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000636363006363 + 6300636363006363630063636300636363006363630063636300000063000000 + 8C000000FF0000006300000063000000630021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C633900000000000000000052A5DE0000000000CEEF + FF003973A5003973A500634242006342420063424200634242003973A5000000 + 0000089CE7000000000000000000000000000000000000000000000000000000 + 000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C6000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000630000008C000000 + FF000000FF0000008C0000008C000000630021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C633900000000000000000052A5DE0000000000CEEF + FF006342420063424200C6B59C00C6B59C00BDAD9C00B5A59400634242000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D6D6D60084080000840800008408000084080000840800008408 + 0000D6D6D60000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEA500FFD6A500BD7B7B00FFC69C00000063009494FF000000FF000000 + FF000000FF000000FF0000008C000000630021216B0021216B0021216B002121 + 6B0021216B0021216B00000000000000000000000000000000005A4229005A42 + 29005A4229005A4229005A4229005A4229000000000052A5DE0000000000CEEF + FF006342420094947B0094948400949484009494840094947B00948C7B006342 + 4200000000000000000000000000000000000000000000000000000000000000 + 000000000000E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E70000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEAD00FFDEA500BD7B7B00FFCE9C00FFC69C00000063009494FF000000 + FF009494FF009494FF009494FF00000063000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052A5DE00000000006342 + 4200CEBD9C00CEC6A500C6C6A500C6C6A500C6BDA500BDB59C00BDAD9400B5A5 + 9400634242000000000000000000000000000000000000000000000000000000 + 00000000000000007B0000007B00840800008408000084080000840800008408 + 0000EFEFEF0000000000000000000000000000000000BD7B7B00BD7B7B00BD7B + 7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00000063009494 + FF009494FF000000630000006300000063000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052A5DE00000000006342 + 4200949484009C9C84009CA58C009CA58C009CA58C009C9C840094948400B5AD + 9400634242000000000000000000000000000000000000000000000000000000 + 000000007B000000CE0000007B00F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F70000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEA500FFD6A500BD7B7B00FFC69C00FFC69C00BD7B7B00FFC69C000000 + 63009494FF0000006300000000000000000021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C633900000000000000000052A5DE00000000006342 + 4200CEC6A500CEC6A500CECEAD00CECEAD00C6CEAD00BDBD9C00BDB59C00B5AD + 940063424200000000000000000000000000000000000000000000007B000000 + 000000007B000000CE0000007B00840800008408000084080000840800008408 + 0000FFFFFF0000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEAD00FFDEA500BD7B7B00FFCE9C00FFC69C00BD7B7B00FFC69C00FFC6 + 9C000000630000006300000000000000000021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C633900000000000000000052A5DE00000000006342 + 4200949484009C9C84009CA58C009CA58C009CA58C009C9C840094948400B5AD + 940063424200000000000000000000000000000000000000000000007B000000 + 7B000000CE0000007B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000000000000000000000000000BD7B7B00BD7B7B00BD7B + 7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B + 7B000000000063636300000000000000000021216B0021216B0021216B002121 + 6B0021216B0021216B00000000000000000000000000000000005A4229005A42 + 29005A4229005A4229005A4229005A4229000000000052A5DE0000000000CEEF + FF0063424200CEC6A500C6C6A500C6C6A500C6BDA500BDB59C00BDAD94006342 + 420000000000000000000000000000000000000000000000000000007B000000 + CE000000CE000000CE0000007B00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFEFAD00FFEFAD00BD7B7B00FFDEAD00FFD6A500BD7B7B00FFC69C00FFC6 + 9C00000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052A5DE0000000000CEEF + FF00634242006342420094948400949484009494840094947B00634242006342 + 420000000000000000000000000000000000000000000000000000007B000000 + CE000000CE0000007B0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00BD7B + 7B00FFEFAD00FFEFAD00BD7B7B00FFDEAD00FFDEA500BD7B7B00FFCEA500FFC6 + 9C00000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000052A5DE0000000000CEEF + FF00C6E7F700BDE7F700634242006342420063424200634242008CC6E70084BD + DE0000000000000000000000000000000000000000000000000000007B000000 + CE0000007B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000063636300000000000000000021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C633900000000000000000052A5DE00000000000000 + 0000C6E7F70000000000B5DEF70000000000A5CEEF00000000008CC6E7000000 + 000000000000000000000000000000000000000000000000000000007B000000 + 7B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000F7000000EF000000 + EF000000E7000000DE000000D6000000CE000000C6000000BD000000B5000000 + B5000000000063636300000000000000000021216B009494FF007373F7005252 + DE003131CE0000000000000000000000000000000000000000005A422900FFBD + 5A00E7A55200C68442009C63390000000000000000000000000052A5DE000000 + 00007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B7B000000 + 000000000000000000000000000000000000000000000000000000007B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000F7000000EF000000 + EF000000E7000000DE000000D6000000CE000000C6000000BD000000B5000000 + B5000000000063636300000000000000000021216B0021216B0021216B002121 + 6B0021216B0021216B00000000000000000000000000000000005A4229005A42 + 29005A4229005A4229005A4229005A4229000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D673 + 5A00D6735A00D6735A000000000000000000D6735A00D6735A00000000000000 + 0000D6735A00D6735A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000063000000 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 630063636300636363006363630063636300000000000000000000000000D673 + 5A00D6735A0000000000D6735A00D6735A000000000000000000D6735A000000 + 0000D6735A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000063000000 + 8C00000063000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006331310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 000000000000D6735A00D6735A0000000000E7EFF700E7EFF700000000000000 + 0000000000000000000000000000000000000000000000000000636363006363 + 6300636363006363630063636300636363000000630000006300000063009494 + FF0000008C000000630000000000000000000000000000000000000000001010 + 2900000000000000000010102900101029001010290010102900101029001010 + 29001010290010102900101029000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00EFC6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000000000 + 0000000000000000000000000000E7EFF700E7EFF700E7EFF700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000063009494FF000000FF000000 + FF000000FF0000008C0000006300000000000000000000000000000000003131 + 6B0000000000000000006B6BEF006B6BEF004242CE003131BD0031319C003131 + 6B0031319C0018184A00101029000000000063313100F7F7DE0000009C000000 + 9C00F7EFD6000000000000000000000000000000000000000000000000000000 + 000000000000E7B5940000000000636363000000000000000000000000000000 + 00000000000000000000E7EFF700E7EFF7000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEA500FFD6A500BD7B7B00FFC69C00000063009494FF000000FF000000 + FF000000FF000000FF000000DE00000063000000000000000000000000003131 + 6B0000000000000000006B6BEF006B6BEF004242CE003131BD0031319C003131 + 6B0031319C0018184A00101029000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00EFDEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000000000 + 0000000000000000000000000000E7EFF700E7EFF700E7EFF700E7EFF700E7EF + F7000000000000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEAD00FFDEA500BD7B7B00FFCE9C00000063009494FF009494FF009494 + FF000000FF000000FF0000006300000000000000000000000000000000003131 + 6B003131EF0000000000000000006B6BEF004242CE003131BD0031319C003131 + 6B0031319C0018184A00101029000000000063313100F7F7DE0000009C000000 + 9C00F7EFD6000000000000000000000000000000000000000000000000000000 + 000000000000E7B5940000000000636363000000000000000000000000000000 + 0000B5EFF700B5EFF70000000000E7EFF700E7EFF700E7EFF700E7EFF7000000 + 00000000000000000000000000000000000000000000BD7B7B00BD7B7B00BD7B + 7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B000000630000006300000063009494 + FF000000FF000000630000000000000000000000000000000000000000003131 + 6B003131EF00A5A5F70000000000000000004242CE003131BD0031319C003131 + 6B0031319C0018184A00101029000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000000000 + 0000A5E7EF00A5E7EF0000000000E7EFF700E7EFF700E7EFF700E7EFF700E7EF + F7000000000000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEA500FFD6A500BD7B7B00FFC69C00FFC69C00BD7B7B00000063009494 + FF00000063006363630000000000000000000000000000000000000000000000 + 00003131BD003131BD0000000000000000004242CE003131BD0031319C003131 + 6B0031316B0031316B00000000000000000063313100F7F7DE00735A3100735A + 3100735A3100735A3100735A3100735A3100735A3100735A3100735A3100735A + 3100735A3100E7B59400000000006363630000000000000000000000000094D6 + E70094D6E700216B8C00E7EFF700E7EFF700E7EFF700E7EFF700E7EFF700E7EF + F700E7EFF70000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFDEAD00FFDEA500BD7B7B00FFCE9C00FFC69C00BD7B7B00000063000000 + 6300000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003131BD0031316B0031316B003131 + 6B000000000000000000000000000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B59400000000006363630000000000000000000000000084CE + E70084CEE70084CEE70084CEE70000000000E7EFF700E7EFF700DE292900E7EF + F7000000000000000000000000000000000000000000BD7B7B00BD7B7B00BD7B + 7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B7B00BD7B + 7B00000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003131940031316B00101029000000 + 00000000000000000000000000000000000063313100F7F7DE0000527B0021A5 + FF0021A5FF0021A5FF0021A5FF00EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000006BBD + DE006BBDDE006BBDDE0000000000E7EFF700E7EFF700E7EFF700000000000000 + 00000000000000000000000000000000000000000000F7F7F700F7F7F700BD7B + 7B00FFEFAD00FFEFAD00BD7B7B00FFDEAD00FFD6A500BD7B7B00FFC69C00FFC6 + 9C00000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000313194003131940031319C0031316B001010 + 29000000000000000000000000000000000063313100F7F7DE0000527B000052 + 7B0000527B0000527B0021A5FF00EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000005AB5 + D6005AB5D6005AB5D60084848400E7EFF700E7EFF700E7EFF700E7EFF7000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00BD7B + 7B00FFEFAD00FFEFAD00BD7B7B00FFDEAD00FFDEA500BD7B7B00FFCEA500FFC6 + 9C00000000006363630000000000000000000000000000000000000000000000 + 00000000000031316B00A5A5F7003131BD003131BD003131BD0031319C003131 + 9C001010290000000000000000000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B5940000000000636363000000000000000000000000004AAD + D6004AA5D6004AADD600000000000000000084848400E7EFF700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006363630000000000000000000000000000000000000000000000 + 00000000000031319400A5A5F700A5A5F700A5A5F700A5A5F700A5A5F7003131 + EF00313194000000000000000000000000006331310063313100633131006331 + 3100633131006331310063313100633131006331310063313100633131006331 + 3100633131006331310063313100000000000000000000000000000000000000 + 000039A5CE0039A5CE0039A5CE0039A5CE0039A5CE0039A5CE0039A5CE000000 + 000000000000000000000000000000000000000000000000F7000000EF000000 + EF000000E7000000DE000000D6000000CE000000C6000000BD000000B5000000 + B500000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000031319400313194003131940031319400313194003131 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000F7000000EF000000 + EF000000E7000000DE000000D6000000CE000000C6000000BD000000B5000000 + B500000000006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300000000000000000000002100000021000000 + 2100000021000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000007B0000007B0000007B0000007B0000007B000000 + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000063636300000000000000000039397300313194003131 + 9400000021000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A390800FFDECE00945231009452 + 3100945231000000000000000000000000000000000000000000000000000000 + 000000007B000000000000000000000000000000000000000000000000000000 + 00006B4231006B42310000000000000000006B42310000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7E7E700E7E7 + E700944A4A00F7C67B00F7BD7300944A4A00F79C6B00F79C6B00944A4A00F773 + 5A00F76B5A00000000006363630000000000000000003939730039399C003939 + 9C00000021000000000000000000421010000000000000000000000000000000 + 0000000000000000000000000000000000005A390800FFDECE00FFA59400FFA5 + 9400945231000000000000000000000000000000000000000000000000000000 + 7B0000007B0000007B0000000000000000000000000000000000000000000000 + 00000000000000000000E7EFF700E7EFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF00944A4A00F7C67B00F7BD7B00944A4A00F7A56B00F79C6B00944A4A00F77B + 6300F7735A000000000063636300000000000000000039397300424AA500424A + A500000021000000000042101000421010004210100042101000000000002108 + 0000210800002108000021080000210800005A390800FFDECE00FFDECE00FFDE + CE00FFA594000000000000000000000000000000000000000000000000000000 + 000000007B000000000000000000000000000000000000000000000000000000 + 000000000000E7EFF700E7EFF70000000000000000006B423100000000006B42 + 3100000000000000000000000000000000000000000000000000944A4A00944A + 4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A + 4A00944A4A0000000000636363000000000000000000393973004A52B5004A52 + B50000002100000000000000000042101000000000000000000000000000734A + 3900945A3900945A3900945A3900210800005A3908005A3908005A3908005A39 + 08005A3908005A39080000007B0000007B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E7EFF700E7EFF700E7EFF70000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000E7E7E700E7E7 + E700944A4A00F7C67B00F7BD7300944A4A00F79C6B00F79C6B00944A4A00F79C + 6B00F79C6B0000000000636363000000000000000000393973005263BD005263 + BD0000002100000000000000000000000000000000000000000000000000734A + 3900A5735200A5735200A573520021080000000000000000000000007B000000 + 00000000000000000000000000000000000000007B000000000008395A00CEFF + FF005AB5FF005AB5FF005AB5FF000000000000000000000000000000000084D6 + E70084D6E700E7EFF700E7EFF700E7EFF700E7EFF70000000000CEDEEF000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF00944A4A00F7C67B00F7BD7B00944A4A00F7A56B00F79C6B00944A4A00F7A5 + 7300F79C6B0000000000636363000000000000000000393973005A6BCE005A6B + CE0000002100000000000000000000000000000000000000000000000000734A + 3900B57B6300B57B6300B57B630021080000000000000000000000007B000000 + 00000000000000000000000000000000000000007B000000000008395A00CEFF + FF00CEFFFF00CEFFFF0094FFFF00000000000000000000000000000000006BBD + DE006BBDDE0000000000E7EFF700E7EFF700E7EFF700E7EFF70000000000CEDE + EF00000000000000000000000000000000000000000000000000944A4A00944A + 4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A4A00944A + 4A00944A4A0000000000636363000000000000000000393973006373D6006373 + D60000002100000000000000000000000000000000000000000000000000734A + 3900CE9C8400CE9C8400CE9C840021080000000000000000000000007B000000 + 000000000000000000000000000000007B0000007B0000007B0008395A000839 + 5A0008395A0008395A0008395A0008395A000000000000000000000000004AAD + D6004AADD60000000000E7EFF700E7EFF7000000000000000000CEDEEF00CEDE + EF00000000000000000000000000000000000000000000000000F7F7F700F7F7 + F700944A4A00F7DE8400F7D68400944A4A00F7C67B00F7BD7300944A4A00F79C + 6B00F79C6B0000000000636363000000000000000000393973006B84E7006B84 + E70000002100000000000000000000000000421010000000000000000000734A + 3900E7B59C00E7B59C00E7B59C00210800000000000000007B0000007B000000 + 7B000000000000000000000000000000000000007B0000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000039A5 + CE0039A5CE0039A5CE0000000000E7EFF700E7EFF70000000000CEDEEF00CEDE + EF00CEDEEF000000000000000000000000000000000000000000F7F7F700F7F7 + F700944A4A00F7DE8400F7DE8400944A4A00F7C67B00F7C67B00944A4A00F7A5 + 7300F79C6B000000000063636300000000000000000039397300738CEF00738C + EF0000002100000000004210100042101000421010004210100000000000734A + 3900734A3900734A3900734A390021080000000000000000000000007B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000039A5CE0039A5CE0039A5CE0039A5CE0039A5CE0000000000CEDEEF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000636363000000000000000000393973007B94F7007B94 + F700000021000000000000000000000000004210100000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000008395A00CEFFFF005AB5FF005AB5FF005AB5 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400CEDEEF00CEDE + EF000000000000000000000000000000000000000000000000000000F7000000 + EF000000EF000000E7000000DE000000D6000000CE000000C6000000BD000000 + B5000000B5000000000063636300000000000000000039397300849CFF00849C + FF00000021000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008395A00CEFFFF005AB5FF005AB5 + FF005AB5FF00000000000000000008395A00CEFFFF00CEFFFF00CEFFFF0094FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B6B6B006B6B6B006B6B6B006B6B6B006B6B + 6B000000000000000000000000000000000000000000000000000000F7000000 + EF000000EF000000E7000000DE000000D6000000CE000000C6000000BD000000 + B5000000B5000000000063636300000000000000000039397300393973003939 + 7300000021000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008395A00CEFFFF00CEFFFF00CEFF + FF0094FFFF00000000000000000008395A0008395A0008395A0008395A000839 + 5A0008395A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008395A0008395A0008395A000839 + 5A0008395A0008395A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009C9C9C00636363006363630063636300636363009C9C9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002929D6002929B50000000000000000000000 + 00000000000000000000000000002929B5000000000000000000000000000000 + 0000636363008C8CFF008484F7007373F7006363EF005252EF004A4AE7004242 + E7003939DE003131DE002929D600000000000000000000000000000000009C9C + 9C0063636300636363005AD6EF005AD6EF005AD6EF005AD6EF00636363006363 + 63009C9C9C00000000000000000000000000000000000000DE002121E7000000 + AD00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000DE002121E7000000AD000000000000000000000000000000 + 00000000000000000000000000004242FF002929D6002929B500000000000000 + 000000000000000000002929B5002929D6000000000000000000000000000000 + 0000636363009C9CFF008C8CF7007B7BF7006B6BEF005A5AEF005252EF004242 + E7004242DE003939DE003131D6000000000000000000000000009C9C9C006363 + 63005AD6EF005AD6EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE + 8400636363009C9C9C000000000000000000000000000000DE002121E7000000 + AD00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000DE002121E7000000AD000000000000000000000000000000 + 0000000000000000000000000000000000004242FF002929D6002929B5000000 + 0000000000002929B5002929D600000000000000000000000000000000000000 + 0000636363009C9CFF009494FF008484F7007373F7006363EF005252EF004A4A + E7004242E7003939DE003131DE0000000000000000009C9C9C00636363005AD6 + EF005AD6EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE8400E7CE + 8400E7CE8400636363009C9C9C0000000000000000000000DE002121E7000000 + AD00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000DE006363FF000000AD000000000000000000000000000000 + 000000000000000000000000000000000000000000004242FF002929D6004242 + FF002929B5002929D6000000000000000000000000000000000063636300B5E7 + F70063636300A5A5FF009C9CFF008C8CF7007B7BF7006B6BF7005A5AEF005252 + EF004A42E7004242DE003939DE000000000000000000636363005AD6EF005AD6 + EF005AD6EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE84006363630000000000000000000000DE002121E7000000 + AD00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000DE000000DE000000DE0000000000000000006B4231006B42 + 310000000000000000006B4231000000000000000000000000002929B5002929 + D6002929B500000000000000000000000000000000000000000063636300C6EF + FF0063636300A5A5FF00A5A5FF009494FF008484F7007373F7006363EF005A5A + EF004A4AE7004242E7003939DE00000000009C9C9C00636363005AD6EF005AD6 + EF005AD6EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE8400636363009C9C9C00000000000000DE006363FF000000 + AD00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000000000000000000000000000000000000000000000000000 + 0000E7EFF700E7EFF7000000000000000000000000002929B5002929D6004242 + FF002929D6002929B5000000000000000000000000000000000063636300D6F7 + FF0063636300A5A5FF00A5A5FF009C9CFF008C8CF7007B7BF7006B6BF7006363 + EF005252EF004A4AE7004242DE0000000000636363005AD6EF005AD6EF005AD6 + EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE8400E7CE840063636300000000000000DE000000DE000000 + DE00D6730000E78C21007B4200000000DE002121E7000000AD00D6730000E78C + 21007B420000000000000000000000000000000000000000000000000000E7EF + F700E7EFF7000000000000000000000084002929B5002929D6002929D6000000 + 0000000000004242FF002929B5000000000063636300B5E7F70063636300DEFF + FF0063636300A5A5FF00A5A5FF00A5A5FF009494FF008484F7007B73F7006B6B + EF005A5AEF004A4AE7004242E70000000000636363005AD6EF005AD6EF005AD6 + EF005AD6EF005AD6EF005AD6EF005AD6EF00E7CE8400E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE8400E7CE8400636363000000000000000000000000000000 + 0000D6730000F7B563007B4200000000DE002121E7000000AD00D6730000E78C + 21007B4200000000000000000000000000000000000000000000000000000000 + 0000E7EFF700E7EFF700E7EFF700000000002929D6002929D600000000000000 + 000000000000000000004242FF002929B50063636300C6EFFF0063636300E7FF + FF00636363006363630063636300636363006363630063636300636363006363 + 630063636300636363006363630063636300636363005AD6EF005AD6EF005AD6 + EF005AD6EF005AD6EF005AD6EF004A4ADE00E7CE8400E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE8400E7CE8400636363000000000000000000000000000000 + 0000D6730000D6730000D67300000000DE002121E7000000AD00D6730000E78C + 21007B4200000000000000000000000000000000000084D6E70084D6E700E7EF + F700E7EFF700E7EFF700E7EFF70000000000CEDEEF0000000000000000000000 + 00000000000000000000000000004242FF0063636300D6F7FF0063636300E7FF + FF00E7FFFF00D6F7FF00BDEFFF00A5DEF7008CD6F70073CEEF005AC6EF004ABD + E7004AADDE00000000000000000000000000636363005AD6EF005AD6EF005AD6 + EF005AD6EF004A4ADE004A4ADE004A4ADE004A4ADE00E7CE8400E7CE8400E7CE + 8400E7CE8400E7CE8400E7CE8400636363000000000000000000000000000000 + 00000000000000000000000000000000DE002121E7000000AD00D6730000E78C + 21007B420000000000000000000000000000000000006BBDDE006BBDDE000000 + 0000E7EFF700E7EFF700E7EFF700E7EFF70000000000CEDEEF00000000000000 + 00000000000000000000000000000000000063636300DEFFFF0063636300E7FF + FF00E7FFFF00DEFFFF00CEF7FF00B5E7F7009CDEF70084D6F7006BCEEF005ABD + EF004AB5E7000000000000000000000000009C9C9C00636363005AD6EF004A4A + DE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE00E7CE8400E7CE + 8400E7CE8400E7CE8400636363009C9C9C000000000000000000000000000000 + 00000000000000000000000000000000DE002121E7000000AD00D6730000F7B5 + 63007B420000000000000000000000000000000000004AADD6004AADD6000000 + 0000E7EFF700E7EFF7000000000000000000CEDEEF00CEDEEF00000000000000 + 00000000000000000000000000000000000063636300E7FFFF00636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 63006363630063636300000000000000000000000000636363004A4ADE004A4A + DE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE00E7CE + 8400E7CE8400E7CE840063636300000000000000000000000000000000000000 + 00000000000000000000000000000000DE002121E7000000AD00D6730000D673 + 0000D67300000000000000000000000000000000000039A5CE0039A5CE0039A5 + CE0000000000E7EFF700E7EFF70000000000CEDEEF00CEDEEF00CEDEEF000000 + 00000000000000000000000000000000000063636300E7FFFF00E7FFFF00D6F7 + FF00BDEFFF00A5DEF7008CD6F70073CEEF005AC6EF004ABDE7004AADDE000000 + 000000000000000000000000000000000000000000009C9C9C00636363004A4A + DE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4A + DE00E7CE8400636363009C9C9C00000000000000000000000000000000000000 + 00000000000000000000000000000000DE006363FF000000AD00000000000000 + 000000000000000000000000000000000000000000000000000039A5CE0039A5 + CE0039A5CE0039A5CE0039A5CE0000000000CEDEEF0000000000000000000000 + 00000000000000000000000000000000000063636300E7FFFF00E7FFFF00DEFF + FF00CEF7FF00B5E7F7009CDEF70084D6F7006BCEEF005ABDEF004AB5E7000000 + 00000000000000000000000000000000000000000000000000009C9C9C006363 + 63004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4ADE004A4A + DE00636363009C9C9C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DE000000DE000000DE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000084848400CEDEEF00CEDEEF00000000000000 + 0000000000000000000000000000000000006363630063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300000000000000000000000000000000000000000000000000000000009C9C + 9C0063636300636363004A4ADE004A4ADE004A4ADE004A4ADE00636363006363 + 63009C9C9C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009C9C9C00636363006363630063636300636363009C9C9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CECECE00A5A5A5006B6B6B006B6B6B008C8C8C00CECECE000000 + 0000000000000000000000000000000000000000000000000000949494009494 + 9400949494009494940094949400949494009494940094949400949494009494 + 9400949494009494940094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007373730094949400C6C6C600D6D6D6008C8C8C00949494000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000094949400000000001010100010101000101010001010 + 10001010100010101000000000006B1010006B1010006B1010006B1010006B10 + 10006B1010006B1010006B101000000000000000000000000000000000000000 + 0000000000000000000000000000008CBD008C63520000000000000000000000 + 000000000000000000000000000000000000CECECE00C6C6C600A5A5A5007373 + 73008C8C8C00D6D6D600E7E7E700DEDEDE00DEDEDE00DEA5DE00945A94008C8C + 8C0000000000000000000000000000000000000000006B524A00FFE7DE00E7A5 + 8C00E7A58400DE9C7B00DE9C7B00D6947300CE8C7300C68C7300C6846B00BD84 + 6B00B57B630000000000949494000000000010638C0039A5CE0039A5CE0039A5 + CE0039A5CE001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000008CBD000000000000000000009CDE009473630000000000000000007B42 + 390000000000180000000000000000000000CECECE007B7B7B0094949400C6C6 + C600DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00E7ADE700C68CC6006B6B + 6B0000000000000000000000000000000000000000006B524A00FFE7DE00E7A5 + 8C00E7A58400DE9C7B00DE9C7B00D6947300CE8C7300C68C7300C6846B00BD84 + 6B00B57B630000000000949494000000000010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000AD + FF00009CDE00008CBD00008CBD00009CDE009473630094736300946B5A008C63 + 52008C6352000000000000000000000000006B6B6B00B5B5B500DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00CECECE00B5B5 + B50063636300000000000000000000000000000000006B524A00FFE7DE005A5A + EF005A5AEF00E7A584004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00BD846B0000000000949494000000000010638C0010638C0010638C001063 + 8C0010638C0010638C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000ADFF00009CDE00009CDE005ABDFF00D6BDB50094736300947363007339 + 29000000000000000000000000000000000063636300BDBDBD00D6D6D600DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00D6D6D600C6C6 + C6006B6B6B00ADADAD000000000000000000000000006B524A00FFE7DE00E7AD + 9400E7AD9400E7A58C00E7A58400DE9C8400DE9C7B00D6947B00D6947300CE8C + 7300C68C6B000000000094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000052730000ADFF00008CBD000000000000000000D6BDB500947363005A29 + 1800000000000000000000000000000000006B6B6B00BDBDBD00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00E7E7E700D6D6 + D600A5A5A5006B6B6B000000000000000000000000006B524A00FFE7DE004A4A + EF004A4AEF00E7AD94004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A00D694 + 7300CE8C73000000000094949400000000001010100010101000101010001010 + 10001010100010101000000000006B1010006B1010006B1010006B1010006B10 + 10006B1010006B1010006B10100000000000000000000000000000ADFF0000AD + FF0000ADFF00009CDE0000000000000000000000000000000000D6BDB5008C5A + 4A007B5242006B31210000000000000000006B6B6B00BDBDBD00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00E7E7E700E7E7E700EFEFEF00CECE + CE00C6C6C600636363000000000000000000000000006B524A00FFE7DE00E7BD + A500E7B5A500E7B59C00E7AD9400E7AD8C00E7A58C00E7A58400DE9C7B00DE94 + 7B00D694730000000000949494000000000010638C0039A5CE0039A5CE0039A5 + CE0039A5CE001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B5E7FF00B5E7 + FF00B5E7FF00008CBD0000000000000000000000000000000000BD9C94009473 + 6300947363009473630000000000000000006B6B6B00BDBDBD00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00E7E7E700DEDEDE00EFEFEF00EFEFEF009C9C + 9C00C6C6C600C6C6C6006B4A6B0000000000000000006B524A00FFE7DE004A4A + DE004A4ADE00E7B5A5004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00DE9C7B0000000000949494000000000010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000213900000000000000 + 00000052730000ADFF00008CBD0000000000000000007B4A3900A57B73006329 + 2100000000000000000000000000000000006B6B6B00BDBDBD00D6D6D600DEDE + DE00E7E7E700E7E7E700CECECE009C9C9C00A5A5A500847B6B009C8463009C9C + 9C00CECECE00BDBDBD00846B840000000000000000006B524A00FFE7DE00E7C6 + B500E7C6AD00E7BDAD00E7B5A500E7B59C00E7AD9400E7AD9400E7A58C00E7A5 + 8400DE9C840000000000949494000000000010638C0010638C0010638C001063 + 8C0010638C0010638C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005ABDFF005ABDFF005ABDFF00009CDE0094736300A57B7300A57B7300A57B + 73000000000000000000000000000000000063636300BDBDBD00DEDEDE00DEDE + DE00D6D6D600DEDEDE00F7F7F700ADADAD00F7F7F700B5B5B500AD8431009484 + 520084848400848484000000000000000000000000006B524A00FFE7DE004A4A + C6004A4AC600E7C6B5004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A + 4A00E7A584000000000094949400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B5E7 + FF0000ADFF005ABDFF005ABDFF005ABDFF00BD9C9400BD9C9400E7D6CE00BD9C + 9400A57B730000000000000000000000000063636300BDBDBD00D663D600ADAD + AD00F7F7F700E7E7E700B5B5B500C6C6C600FFFFFF00A5ADAD0063635A00A584 + 31007B634200BDBDC6000000000000000000000000006B524A00FFE7DE00EFD6 + C600E7CEBD00E7C6B500E7C6B500E7BDAD00E7BDA500E7B59C00E7B59C00E7AD + 9400E7AD8C000000000094949400000000001010100010101000101010001010 + 10001010100010101000000000006B1010006B1010006B1010006B1010006B10 + 10006B1010006B1010006B101000000000000000000000000000100008000000 + 0000B5E7FF0000000000215A7300B5E7FF00BD9C94007339290000000000E7D6 + CE0000000000000000000000000000000000BDBDBD008484840094949400ADAD + AD00A5A5A5008C8C8C00F7F7F700FFFFFF00DEDEDE005A5A5A00B5B5B5009494 + 9400A58C4A00846B4A00BDBDBD0000000000000000006B524A00FFE7DE004A4A + B5004A4AB500EFCEC6004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A00E7B5 + 9C00E7AD940000000000949494000000000010638C0039A5CE0039A5CE0039A5 + CE0039A5CE001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001000 + 0800000000000000000000000000B5E7FF00E7D6CE0000000000000000000000 + 00000000000000000000000000000000000000000000BDBDBD00949494007B7B + 7B009494940073737300ADADAD00FFFFFF00B5B5B50084848400000000000000 + 0000948C8C00A58C52008C735200BDBDBD00000000006B524A00FFE7DE00EFDE + D600EFD6CE00EFD6C600EFCEC600E7CEBD00E7C6B500E7C6AD00E7BDA500E7B5 + A500E7B59C0000000000949494000000000010638C00CEFFFF009CE7F7006BBD + DE0039A5CE001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C6C6 + C600949494009C639C0094949400ADADAD0073737300BDBDBD00000000000000 + 00000000000094949400A58C52007B6B4A00000000006B524A00FFE7DE00FFE7 + DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7DE00FFE7 + DE00FFE7DE0000000000949494000000000010638C0010638C0010638C001063 + 8C0010638C0010638C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CECECE00949494008484840000000000000000000000 + 00000000000000000000949494008C8C7B00000000006B524A006B524A006B52 + 4A006B524A006B524A006B524A006B524A006B524A006B524A006B524A006B52 + 4A006B524A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000295A0000295A0000295A000029 + 5A0000295A0000295A0000295A0000295A0000295A0000295A0000295A000029 + 5A0000295A0000295A0000295A0000295A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009C9C9C00000000000000000000000000000000000000 + 000000000000000000000000000000000000CEFFFF00319CCE00000000000000 + 000000000000000000000000000000000000397BB500CEFFFF0073D6F70073D6 + F70094949400525252002121210000000000000000000000000052525200218C + D600218CD600218CD600218CD60000295A000000000000000000000000004A73 + 63001010100010101000314A3900000000000000000000000000000000000000 + 0000000000000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600CEC6CE00BDBDBD00B5B5B500A5ADAD009C9C9C00949494008C8C + 8C00847B8400000000009C9C9C00000000000000000000000000000000000000 + 000000000000000000000000000000000000CEFFFF00319CCE00319CCE00319C + CE0000000000000000000000000000000000397BB500CEFFFF0073D6F7007B7B + 7B0018181800292929006B6B6B009C9C9C006B6B6B004242420042424200218C + D600218CD600218CD600218CD60000295A0000000000000000001010100073B5 + 7B0073B57B0073B57B00314A3900000000000000000000000000000000000000 + 0000000000000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600C6CEC600BDBDBD00B5B5B500ADADAD009C9C9C00949494008C8C + 8C00847B7B00000000009C9C9C00000000000000000000000000000000000000 + 000000000000633131000000000000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE000000000000000000397BB5007B7B7B00292929001818 + 180042424200A5A5A5004AADE7004AADE7004AADE7004AADE700218CD600218C + D6002929290052525200218CD60000295A00000000001010100073BD84007BBD + 84007BBD84007BBD8400314A3900000000000000000000000000101010001010 + 1000000000000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE0000009C00C6C6C600BDBDBD00B5B5B500A5ADA5009C9C9C00949494008C8C + 8C00847B8400000000009C9C9C00000000000000000000000000000000000000 + 000000000000633131007373730000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500A5A5A500292929002929 + 2900A5A5A50073D6F70073D6F7004AADE7004AADE7004AADE7004AADE700218C + D60029292900212121002929290000295A004A7363007BC68C007BC68C007BC6 + 8C007BC68C00314A3900314A390000000000000000001010100073B57B0073B5 + 7300101010000000000000000000000000005A5A5A00EFEFEF00E7E7E7000000 + A50000009C000000940000008C000000840000007B000000730000006B008C8C + 8C00847B7B00000000009C9C9C00000000000000000000000000000000000000 + 000000000000633131007373730000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00212121002929 + 29002929290073D6F70073D6F70073D6F7004AADE7004AADE7004AADE7009C9C + 9C002929290000000000218CD60000295A00101010007BC694007BCE940084CE + 9C00314A3900000000000000000000000000101010007BBD840073BD840073B5 + 7B0073AD73001010100000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE0000009C00C6C6C600BDBDBD00B5B5B500A5ADAD009C9C9C00949494000000 + 6B0084848400000000009C9C9C00000000000000000000000000000000000000 + 000000000000633131007373730000000000CEFFFF00319CCE00000000000000 + 0000319CCE00319CCE00319CCE0000000000397BB500CEFFFF0094EFFF0094EF + FF0073D6F70073D6F70073D6F70073D6F7004AADE7004AADE7004AADE7004AAD + E700218CD60000000000218CD60000295A001010100084CE9C0084D69C00314A + 3900000000000000000000000000101010007BCE94007BC68C007BBD840073BD + 7B0073B57B0073AD730010101000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600C6C6C600BDBDBD00B5B5B500A5ADA5009C9C9C00949494000000 + 6B007B847B00000000009C9C9C00000000000000000000000000FFCE9C000000 + 000000000000000000000000000000000000CEFFFF00319CCE00C6C6C600C6C6 + C600319CCE00319CCE00319CCE0000000000397BB500CEFFFF00000000009C9C + 9C0073D6F70073D6F70073D6F70073D6F70073D6F7004AADE7004AADE7004AAD + E7009C9C9C0000000000218CD60000295A001010100084D6A5008CDEA500314A + 39000000000000000000314A3900314A3900314A3900101010007BC68C007BBD + 8400314A3900314A3900314A3900314A39005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600C6CEC600BDBDBD00B5B5B500ADADA5009C9C9C00949494008C8C + 8C007B7B8400000000009C9C9C000000000063313100FFCE9C00FFFFCE00FFFF + CE00FFFFCE00FFFFCE00FFFFCE0000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00212121006B6B + 6B0094EFFF0073D6F70073D6F70073D6F70073D6F7004AADE7004AADE7004AAD + E7006B6B6B0021212100218CD60000295A00101010008CDEAD008CE7AD00314A + 39000000000000000000000000000000000000000000101010007BCE94007BC6 + 8C00314A39000000000000000000000000005A5A5A00EFEFEF000000AD00DEDE + DE00D6D6D600C6CEC600BDBDBD00B5B5B500ADADA5009C9C9C00949494008C8C + 8C007B7B8400000000009C9C9C000000000063313100FFFFCE00FFFFCE00FFFF + CE00FFFFCE00FFFFCE00FFFFCE0000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00525252002929 + 2900A5A5A50094EFFF0073D6F70073D6F70073D6F70073D6F70073D6F700A5A5 + A5002929290052525200218CD60000295A00101010008CE7AD008CEFB500314A + 390000000000000000000000000000000000000000001010100084CE94007BC6 + 8C00314A39000000000000000000000000005A5A5A00EFEFEF000000AD00DEDE + DE00D6D6D600C6CECE00BDBDBD00B5B5B500ADADAD0000007300949494008C8C + 8C00847B7B00000000009C9C9C00000000000000000063313100FFFFCE000000 + 000063313100633131006331310000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00949494001818 + 180042424200A5A5A50094EFFF002929290073D6F70073D6F700A5A5A5004242 + 420018181800949494004AADE70000295A00101010008CE7B50094EFBD007BCE + 9400101010000000000000000000000000001010100073B5730084CE9C007BC6 + 8C00314A39000000000000000000000000005A5A5A00EFEFEF00E7E7E7000000 + A50000009C000000940000008C000000840000007B000000730000006B008C8C + 8C0084848400000000009C9C9C00000000000000000000000000633131000000 + 000000000000633131007373730000000000CEFFFF00319CCE00319CCE00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00BDF7FF007B7B + 7B0018181800292929006B6B6B00292929002929290073D6F70073D6F7001818 + 18007B7B7B0073D6F7004AADE70000295A004A7363007BCE940094EFBD0094F7 + CE007BCE940010101000101010001010100073B5730084D6A50084CE9C0073B5 + 73004A7363000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600C6CEC600BDBDBD00B5B5B500ADADA50000007300949494008C8C + 8C0084848400000000009C9C9C00000000000000000000000000000000006331 + 3100000000006331310073737300000000009C636300CEFFFF0063CEFF00319C + CE00319CCE00319CCE00319CCE0000000000397BB500CEFFFF00BDF7FF00BDF7 + FF0094949400525252002121210000000000000000000000000073D6F70073D6 + F70073D6F70073D6F7004AADE70000295A00000000001010100094EFBD0094F7 + C60094F7C60094F7C60094EFBD008CE7B5008CDEAD0084D6A50073B57300314A + 3900000000000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600C6C6C600BDBDBD00B5B5B500ADADAD009C9C9C00949494008C8C + 8C00847B8400000000009C9C9C00000000000000000000000000000000000000 + 0000000000006331310073737300847B7B008C8C8C00000000009C636300CEFF + FF0063CEFF00319CCE00319CCE0000000000397BB500CEFFFF00BDF7FF00BDF7 + FF00BDF7FF00BDF7FF00BDF7FF00292929002929290094EFFF0094EFFF0094EF + FF0073D6F70073D6F70073D6F70000295A000000000000000000101010007BCE + 940094EFBD0094EFBD008CEFB5008CE7AD0084DEA50073B57300314A39000000 + 0000000000000000000000000000000000005A5A5A00EFEFEF00E7E7E700DEDE + DE00D6D6D600CEC6C600BDBDBD00B5B5B500ADA5AD009C9C9C00949494008C8C + 8C0084847B00000000009C9C9C00000000000000000000000000000000000000 + 0000000000006331310073737300847B7B008C8C8C00949494009C9CA5000000 + 00009C636300CEFFFF0063CEFF0000000000397BB500CEFFFF00CEFFFF00CEFF + FF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFFFF00CEFF + FF00CEFFFF00CEFFFF0073D6F70000295A000000000000000000000000004A73 + 6300314A3900314A3900314A3900314A3900314A39004A736300000000000000 + 0000000000000000000000000000000000005A5A5A005A5A5A005A5A5A005A5A + 5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A + 5A005A5A5A000000000000000000000000000000000000000000000000000000 + 0000000000006331310063313100633131006331310063313100633131006331 + 310063313100633131006331310063313100397BB500397BB500397BB500397B + B500397BB500397BB500397BB500397BB500397BB500397BB500397BB500397B + B500397BB500397BB500397BB500397BB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF313100FF31310000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009C63630000000000000000000000 + 0000000000000000000000000000000000000000000000000000A5A5A5008C8C + 8C00A5A5A5000000000000000000000000000000000000000000000000000000 + 000000000000BDBDBD00ADADAD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF31 + 3100FFFF0000FF9C000063000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFCE009C636300000000000000 + 00000000000000000000000000000000000000000000B5B5B5002929D6005A5A + 5A0073737300A5A5A50000000000000000000000000000000000000000000000 + 0000000000002929B500B5B5B500000000000000000000000000000000000000 + 000063313100000000000000000000000000000000000000000018181800FFFF + 0000FF9C00006300000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE9C9C00FFFF9C00FFFFCE009C6363000000 + 000000000000000000000000000000000000000000002929D6002929D6002929 + B500525252007B7B7B0000000000000000000000000000000000000000000000 + 0000ADADAD00A5A5A500BDBDBD00000000000000000000000000000000000000 + 0000319CCE00CEFFFF00C6FFFF00B5EFF700A5E7F700FF313100FFFF0000FF9C + 000063000000319CCE0039A5D600000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFFF9C00FFFFCE009C63 + 630000000000000000000000000000000000000000002929D6009C9CFF002929 + B5002929B500636363009C9C9C0000000000000000000000000000000000A5A5 + A5002929B500A5A5A50000000000000000000000000000000000000000000000 + 0000319CCE00CEFFFF009C6363009C636300FF313100FFFF0000FF9C00006300 + 0000319CCE004AADD60039A5CE00000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C00FFFF + CE009C63630000000000000000000000000000000000000000004242FF002929 + D6002929B5005A5A5A0073737300A5A5A5000000000000000000A5A5A5002929 + B50084848400B5B5B50000000000000000000000000000000000000000000000 + 0000319CCE00CEFFFF00C6FFFF00FF313100FF9C0000FF9C000063000000319C + CE005AB5DE004AADD60039A5D600000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFFF + 9C00FFFFCE009C63630000000000000000000000000000000000000000004242 + FF002929D6002929B5005A5A5A00737373009C9C9C009C9C9C002929B5002929 + D600A5A5A5000000000000000000000000000000000000000000844A4A00844A + 4A0018181800212121009C9C9C00F7FFFF006363630063000000319CCE009C63 + 63009C6363009C63630039A5CE00000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004242FF002929D6002929B5005A5A5A00636363002929B5002929D600A5A5 + A5000000000000000000000000000000000000000000844A4A00E7E7C600319C + CE00C6FFFF00B5EFF700212121009C9C9C0063000000319CCE007BCEE7006BC6 + E7005AB5DE004AADD60039A5CE00000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000000000004242FF002929D6002929B5002929B5002929D6008C8C8C000000 + 000000000000000000000000000000000000844A4A00E7E7C600E7E7C600319C + CE00C6FFFF00BD8C8C00BD8C8C00181818009C6363009C6363009C6363009C63 + 63009C6363009C63630039A5CE00000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 000000000000A5A5A5002929B5002929D6002929B5006B6B6B007B7B7B00A5A5 + A50000000000000000000000000000000000844A4A00E7E7C600E7E7C600319C + CE00C6FFFF00B5EFF700A5E7F70018181800A5E7F70094D6EF0084CEE7006BC6 + E7005AB5DE004AADD60039A5D600000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 630000000000000000000000000000000000000000000000000000000000B5B5 + B5009C9C9C002929B5002929D6004242FF002929D6002929B5007B7B7B007B7B + 7B00A5A5A500000000000000000000000000844A4A00E7E7C600E7E7C600319C + CE00C6FFFF00B5EFF700A5E7F700181818009C6363009C6363009C6363009C63 + 63009C6363009C63630039A5CE00000000000000000000000000000000000000 + 0000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFFF + 9C00FFFFCE009C63630000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 6300000000000000000000000000000000000000000000000000A5A5A5007B7B + 7B002929B5002929D6002929D600A5A5A500000000004242FF002929B5007B7B + 7B007B7B7B00A5A5A5000000000000000000844A4A00E7E7C600E7E7C600319C + CE00C6FFFF00BD8C8C00BD8C8C0018181800A5E7F70094D6EF007BCEE7006BC6 + E7005AB5DE004AADD60039A5D600000000000000000000000000000000000000 + 000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C00FFFF + CE009C6363000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 63000000000000000000000000000000000000000000B5B5B5002929B5002929 + B5002929D6002929D600A5A5A5000000000000000000000000004242FF002929 + B500848484008C8C8C00ADADAD000000000000000000844A4A00E7E7C600319C + CE00C6FFFF00B5EFF70018181800319CCE009C6363009C63630084CEE7006BC6 + E700000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFFF9C00FFFFCE009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCE9C00FFCE9C00FFCE9C00FFFF9C009C63 + 630000000000000000000000000000000000000000004242FF009C9CFF002929 + D6002929D600A5A5A50000000000000000000000000000000000000000004242 + FF002929B500A5A5A500A5A5A500000000000000000000000000844A4A00844A + 4A001818180021212100319CCE00B5EFF700A5E7F70094D6EF0084CEE7006BC6 + E700005A8C00319CCE0063CEFF00000000000000000000000000000000000000 + 0000000000000000000000000000CE9C9C00FFFF9C00FFFFCE009C6363000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C009C63 + 630000000000000000000000000000000000000000004242FF004242FF004242 + FF00B5B5B5000000000000000000000000000000000000000000000000000000 + 0000000000002929B500BDBDBD00000000000000000000000000000000000000 + 0000319CCE00CEFFFF00C6FFFF00B5EFF700A5E7F70094D6EF007BCEE7006BC6 + E700005A8C0063CEFF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFCE009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000319CCE00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A + 8C00005A8C00005A8C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009C63630000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000737373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000073737300319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BD + DE0052B5D60042A5D60000000000737373000000000063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000319C + CE00CEFFFF00C6FFFF00B5F7F700A5E7F70094DEEF0084CEE70073C6E70063BD + DE0052B5D60042A5D6000000000073737300A58C6B0042291000422910004229 + 1000422910004229100042291000422910004229100042291000422910004229 + 100042291000422910004229100063636300634A310039080800390808003908 + 0800390808000821310008213100082131000821310008213100082131000821 + 3100082131000821310008213100636363000000000000000000000000000000 + 000000000000D6D6D600BDBDBD00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BD + DE0052ADD60042A5D6000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00ADD6BD009CD6B50094CE + AD0094CEA5008CC6A5004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000000000000000000000000 + 0000D6D6D60018189400848484009C9C9C000000000000000000000000000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BD + DE0052B5D60042A5D6000000000073737300A58C6B00DEEFE7007B5A31007B5A + 3100CEEFDE007B5A31007B5A31007B5A31007B5A31007B5A31007B5A31007B5A + 31007B5A31008CC6A5004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B94000821310063636300000000000000000000000000CECE + CE0018187B0018187B0018189C007B7B7B009C9C9C0000000000000000000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BD + DE0052B5D60042A5D6000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00ADD6BD009CD6B50094CE + AD0094CEA5008CC6A5004229100063636300634A310039080800390808003908 + 08003908080021425A0021425A0021425A0021425A0021425A0021425A002142 + 5A0021425A0021425A0008213100636363000000000000000000C6C6C6001818 + 7B0018187B001818D6001818D6002129A500848484009C9C9C00000000000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BD + DE0052ADD60042A5D6000000000073737300A58C6B00DEEFE7007B5A31007B5A + 3100CEEFDE007B5A31007B5A31007B5A31007B5A31007B5A31007B5A31007B5A + 31007B5A31008CC69C004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000018187B0018187B001818 + 7B001818D6003918B5004242CE001818D6003131B500848484009C9C9C000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BD + DE0052B5D60042A5D6000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00ADD6BD009CD6B5009CCE + AD0094CEA5008CC6A5004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B9400082131006363630000000000000000001818D6001818 + D6003918B500D6D6D600000000004A4AD6001818D6002129A500848484009C9C + 9C000000000000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5F7F700A5E7F70094DEEF0084D6E70073C6E70063BD + DE0052B5D60042A5D6000000000073737300A58C6B00DEEFE7007B5A31007B5A + 31007B5A31007B5A31007B5A31007B5A31007B5A31007B5A31007B5A31007B5A + 31007B5A31008CC6A5004229100063636300634A310039080800390808003908 + 08003908080021425A0021425A0021425A0021425A0021425A0021425A002142 + 5A0021425A0021425A0008213100636363000000000000000000000000003918 + B500000000000000000000000000000000005252DE001818D6003131B5008484 + 84009C9C9C0000000000000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BD + DE0052ADD60042A5D6000000000073737300A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5AD6001818D6003939 + C600848484009C9C9C00000000000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084D6E70073C6E7000000 + 000000000000000000000000000073737300A58C6B00DEEFE7004A94C60073C6 + E70073C6E70073C6E70073C6E700B5DEC600ADDEBD00ADD6BD009CD6B50094CE + AD0094CEA5008CC6A5004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006363F7001818 + D6004A4AD600848484009C9C9C000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E700005A + 8C0052ADD600000000007373730000000000A58C6B00DEEFE7004A94C6004A94 + C6004A94C6004A94C60073C6E700B5DEC600ADDEBD00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300634A310039080800390808003908 + 08003908080021425A0021425A0021425A0021425A0021425A0021425A002142 + 5A0021425A0021425A0008213100636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007B7B + E7001818D6005252E700848484000000000000000000319CCE00CEFFFF00319C + CE00CEFFFF00C6FFFF00B5EFF700A5E7F70094DEEF0084CEE70073C6E700005A + 8C0000000000737373000000000000000000A58C6B00DEEFE700D6EFDE00D6EF + DE00CEEFDE00C6E7D600BDE7CE00B5DEC600ADDEBD00A5D6BD009CD6B50094CE + AD0094CEA5008CC69C004229100063636300634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9CD6001818D6006363EF000000000000000000319CCE00CEFFFF00319C + CE00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A + 8C0073737300000000000000000000000000A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C6B00A58C + 6B00A58C6B00A58C6B00A58C6B0000000000634A3100E7AD7300C68C5200AD6B + 390039080800BDCED600B5C6CE00A5BDC6008CADBD007BA5B5006394AD004A8C + A500317B9C00106B940008213100636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B5B5D6001818D6000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E700005A8C00000000007373 + 7300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000634A3100634A3100634A3100634A + 3100634A31002952730029527300295273002952730029527300295273002952 + 7300295273002952730029527300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000319CCE00005A8C00005A + 8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00737373000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425A5200101010001010 + 10005A8C73000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000000000000000000000000 + 00000000000000000000000000000000000000000000425A520073B5730073AD + 730073AD73001010100000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006331310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000636363000000000000000000000000000000 + 00001010100010101000000000000000000000000000425A520073BD7B0073B5 + 7B0073B5730073AD730010101000000000009C6318009C6318006B4200006B42 + 00006B4200006B4200006B4200006B4200006B4200006B4200006B4200006B42 + 00006B4200006B4200006B4200000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00EFC6A500E7BD + 9C00E7BD9400E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400ADADFF009CA5FF00949CFF00848CFF007B84FF006B73FF00636B + FF005A63F700525AF70000000000636363000000000000000000000000001010 + 10007BC694007BCE9400101010000000000000000000425A5200425A520073BD + 840073B57B0073B5730073AD73005A8C73009C631800FFEFCE00C6945200C694 + 5200C6945200C6945200C6945200C6945200C6945200C6945200C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE0000009C000000 + 9C00F7EFD6000000000000000000000000000000000000000000000000000000 + 000000000000E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400ADADFF009CA5FF00949CFF00848CFF007B84FF006B73FF00636B + F7005A63F700525AF700000000006363630000000000000000001010100084CE + 940084CE9C0084D69C0084D69C0010101000000000000000000000000000425A + 52007BBD840073B57B0073B57300101010009C631800FFEFCE00C69452000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFF + FF00C6C6C600000000006B4200000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00EFDEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B59400000000006363630029527300315A8400315A8400315A + 8400315A84008431310084313100843131008431310084313100843131008431 + 310084313100843131000000000063636300000000001010100084CE9C0084D6 + 9C0084D6A50084DEA5008CDEA50084DEA5001010100000000000000000000000 + 0000425A52007BBD840073B57B00101010009C631800FFEFCE00C6945200C694 + 5200C6945200C6945200C6945200C6945200C6945200C6945200C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE0000009C000000 + 9C00F7EFD6000000000000000000000000000000000000000000000000000000 + 000000000000E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400E7AD7300DEA56B00D69C6300CE945A00C68C5200BD844A00B573 + 4200AD6B3900A56B31000000000063636300425A5200425A5200425A5200425A + 52008CDEAD008CE7AD0010101000425A5200425A5200425A5200000000000000 + 0000425A52007BBD8C0073BD7B00101010009C631800FFEFCE00C69452000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF00000000006B4200000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400E7AD7300DEA56B00D69C6300CE945A00C68C5200BD844A00AD73 + 4200AD6B3900A56B31000000000063636300000000000000000000000000425A + 52008CE7B5008CEFBD0010101000000000000000000000000000000000000000 + 0000425A52007BC68C007BBD8400101010009C631800FFEFCE00C6945200C694 + 5200C6945200C6945200C6945200C6945200C6945200C6945200C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE00735A3100735A + 3100735A3100735A3100735A3100735A3100735A3100735A3100735A3100735A + 3100735A3100E7B59400000000006363630029527300315A8400315A8400315A + 8400315A84008431310084313100843131008431310084313100843131008431 + 310084313100843131000000000063636300000000000000000000000000425A + 520094EFBD0094F7C60010101000000000000000000000000000000000000000 + 0000425A52007BC694007BBD8400101010009C631800FFEFCE0000000000C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400ADADFF009CA5FF00949CFF00848CFF007B84FF006B73FF00636B + FF005A63F700525AF7000000000063636300000000000000000000000000425A + 520094F7C60094FFCE007BCE9400101010000000000000000000000000001010 + 100073B57B007BCE94007BC68400101010009C631800FFEFCE0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE0000527B0021A5 + FF0021A5FF0021A5FF0021A5FF00EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400ADADFF009CA5FF00949CFF00848CFF007B84FF006B73FF00636B + F7005A63F700525AF70000000000636363000000000000000000000000005A8C + 73007BCE94009CFFCE009CFFD6007BCE940010101000101010001010100073B5 + 7B0084D69C007BCE940073B57B005A8C73009C631800FFEFCE00000000000000 + 0000000000000000000000000000000000000000000000000000C6945200C694 + 5200C6945200C69452006B4200000000000063313100F7F7DE0000527B000052 + 7B0000527B0000527B0021A5FF00EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B59400000000006363630029527300315A8400315A8400315A + 8400315A84008431310084313100843131008431310084313100843131008431 + 3100843131008431310000000000636363000000000000000000000000000000 + 0000425A520094F7CE009CFFCE0094F7CE0094F7C60094EFBD008CE7B50084DE + A50084D69C007BCE940010101000000000009C631800FFEFCE00FFEFCE00FFEF + CE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEFCE00FFEF + CE00FFEFCE00FFEFCE009C6318000000000063313100F7F7DE00F7EFDE00F7EF + DE00F7EFD600F7E7CE00F7DEC600EFD6BD00EFD6B500EFCEAD00E7C6A500E7BD + 9C00E7BD9400E7B594000000000063636300295273008CE7FF0084DEFF0084CE + EF00315A8400E7AD7300DEA56B00D69C6300CE945A00C68C5200BD844A00B573 + 4200AD6B3900A56B310000000000636363000000000000000000000000000000 + 000000000000425A52007BCE940094F7C60094EFBD008CE7B5008CDEAD0084D6 + A50073B57B00101010000000000000000000000000009C6318009C6318009C63 + 18009C6318009C6318009C6318009C6318009C6318009C6318009C6318009C63 + 18009C6318009C6318009C631800000000006331310063313100633131006331 + 3100633131006331310063313100633131006331310063313100633131006331 + 310063313100633131006331310000000000295273008CE7FF0084DEFF0084CE + EF00315A8400E7AD7300DEA56B00D69C6300CE945A00C68C5200BD844A00AD73 + 4200AD6B3900A56B310000000000636363000000000000000000000000000000 + 000000000000000000005A8C7300425A5200425A5200425A5200425A5200425A + 52005A8C73000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002952730029527300295273002952 + 7300295273002952730029527300295273002952730029527300295273002952 + 7300295273002952730029527300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000737373000000000073737300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600C6C6C6000000000000000000B5B5 + B5009C9C9C009C9C9C00B5B5B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000073737300000000003994DE0000000000737373000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D6D6D60000000000A5A5A500000000009C6363000000 + 000000000000000000009C9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007373730000000000399CDE00399CDE00399CDE00000000007373 + 7300000000000000000000000000000000000000000000000000000000000000 + 000000000000D6D6D60000000000000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000073737300000000004AA5E7004A9CE70000000000399CE700399CDE000000 + 0000737373000000000000000000000000000000000000000000000000000000 + 0000D6D6D60000000000CE9C9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C6363000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CE9C9C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007373 + 7300000000004AADE7004AADE70000000000DEF7FF0000000000399CE700399C + DE0000000000737373000000000000000000000000000000000000000000D6D6 + D60000000000CE9C9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFCE9C009C63 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000CE9C9C00FFCE9C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000737373000000 + 00005AB5E7007373730073737300DEF7FF00DEF7FF00DEF7FF0000000000399C + E700399CDE000000000073737300000000000000000000000000D6D6D6000000 + 0000CE9C9C00FFCE9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C636300CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00FFCE9C00FFCE + 9C009C636300000000000000000000000000000000000000000000000000CE9C + 9C00FFCE9C00FFCE9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00000000000000000000000000737373000000000063BD + F70063BDF70073737300000000000000000031739C004AA5E7004AA5E7000000 + 0000399CE700399CDE00000000007373730000000000EFEFEF0000000000CE9C + 9C00FFCE9C00FFCE9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C636300FFFFCE00FFCE + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFCE9C009C63630000000000000000000000000000000000CE9C9C00FFCE + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFCE9C00CE9C9C000000000000000000737373000000000063BDF70063C6 + F70000000000DEF7FF003194CE007BCEFF0031739C0000000000000000004AA5 + E70000000000399CE700399CDE0000000000000000009C636300FFFFCE00FFFF + 9C00FFCE9C00FFCE9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C636300FFFFCE00FFCE + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFCE9C00FFFF9C009C636300000000009C636300FFFFCE00FFFF9C00FFCE + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFCE9C00CE9C9C000000000000000000000000005ABDF70063C6F7000000 + 0000DEF7FF00DEF7FF003194CE007BCEFF007BCEFF003194CE0031739C000000 + 00004AA5E700399CE700000000000000000000000000000000009C636300FFFF + CE00FFFF9C00FFCE9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C636300FFFFCE00FFCE + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFFF9C00FFCE9C000000000000000000000000009C636300FFFFCE00FFFF + 9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE + 9C00FFCE9C00CE9C9C000000000000000000000000000000000063C6F70073CE + F70000000000DEF7FF007BDEFF0031739C007BCEFF007BCEFF00E773A500B531 + 3100000000000000000000000000000000000000000000000000000000009C63 + 6300FFFFCE00FFFF9C00FFCE9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C636300FFFFCE00FFFF + CE00FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFFFCE00FFCE9C00FFFF + 9C00FFCE9C0000000000000000000000000000000000000000009C636300FFFF + CE00FFFF9C00FFCE9C00FFFF9C00FFFF9C00FFFF9C00FFFF9C00FFFF9C00FFFF + 9C00FFFF9C00CE9C9C00000000000000000000000000000000000000000073CE + F70073D6FF00000000007BDEFF00000000007BCEFF00E773A500E773A500E773 + A500B53131000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCE00FFFF9C00000000009C9C9C00000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C0000000000000000009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C636300FFFF9C00FFCE + 9C00000000000000000000000000000000000000000000000000000000009C63 + 6300FFFFCE00FFFF9C00000000009C6363009C6363009C6363009C6363009C63 + 63009C6363009C63630000000000000000000000000000000000000000000000 + 000073D6FF0073D6FF000000000073D6FF0000000000FF5A5A00FFCEE700E773 + A500E773A500B531310000000000000000000000000000000000000000000000 + 0000000000009C636300FFFFCE0000000000A5A5A500000000009C636300FFFF + 9C00FFCE9C00000000009C9C9C00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300FFCE9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000073D6FF0073D6FF000000000073CEF70000000000FF5A5A00FFCE + E700E773A500E773A500B5313100000000000000000000000000000000000000 + 000000000000000000009C63630000000000C6C6C600000000009C636300FFFF + 9C00FFCE9C0000000000B5B5B500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009C63630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000073CEF70063CEF70063C6F7000000000000000000FF5A + 5A00FFCEE700E773A500E773A500B53131000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C6363009C63 + 63009C6363009C63630000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000063C6F7000000000000000000000000000000 + 0000FF5A5A00FFCEE700E773A500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF5A5A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00CEC6E7009C9CCE009C94 + C6009494C600949CC600949CC6009494C6009C94CE009494CE009494CE009494 + CE009494CE009494CE00CEC6DE00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000319C + CE0063CEFF0063CEFF00319CCE00000000000000000000000000000000000000 + 000000000000000000000000000000000000BDC6E7002139AD002139CE002942 + CE00294AD6002142CE00214ACE002142CE002939DE001839CE001839DE001039 + DE001039D6001839D6002129A500C6C6DE000000000000000000B5B5B5009C9C + 9C009C9C9C00B5B5B5000000000000000000C6C6C600D6D6D600000000000000 + 000000000000000000000000000000000000000000000000000084847B008484 + 7B0084847B0084847B0084847B0084847B0084847B0084847B0084847B008484 + 7B0000000000000000000000000000000000000000000000000000000000319C + CE0063CEFF0063CEFF00319CCE00000000009C6363009C6363009C6363009C63 + 63009C6363009C63630000000000000000009CA5D600294AD600294AEF003952 + EF004252F7004252E7004A63DE004263D6004A5ADE00395ADE00314AEF001842 + F7000842EF001039E7002942CE00949CC600000000009C636300000000000000 + 0000000000009C9C9C000000000000000000A5A5A500A5A5A500D6D6D6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C636300319C + CE0063CEFF0063CEFF00319CCE0000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C009C636300000000009CA5DE003152E7003152F7004A63 + EF005A6BE7008C94EF00C6D6FF00D6EFFF00DEF7FF00BDDEFF007B94EF00395A + DE00214AF7001039EF002942CE00949CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C6363000000000084848400A5A5A500D6D6 + D600000000000000000000000000000000000000000000000000FF949400FF94 + 9400FF949400FF949400FF949400FF949400FF949400FF949400FF949400FF94 + 94000000000000000000000000000000000000000000000000009C636300319C + CE0063CEFF0063CEFF00319CCE0000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C0000FF0000CE9C9C009C636300000000009C9CDE00315AEF00395AFF005A6B + E700ADC6EF00CEE7FF00949CEF006B7BE7006373DE00849CE700C6E7FF0094B5 + EF002952DE001039EF001842CE008C9CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C6363009C6363000000000084848400A5A5 + A500D6D6D6000000000000000000000000000000000000000000F7F7F700FF94 + 9400EFEFEF00FF949400EFEFEF00FF949400EFEFEF00FF949400EFEFEF00FF94 + 94000000000000000000000000000000000000000000000000009C636300319C + CE00FFFFFF0063CEFF00319CCE00000000009C6363009C6363009C6363009C63 + 63009C6363009C6363009C63630000000000A5A5DE00395AE7004A6BF70094A5 + F700CEE7FF006B84DE005A6BDE008494F7007384F7004A63E7005A73DE00BDDE + FF007394EF00214AEF00214ACE00949CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE009C636300000000008484 + 8400A5A5A500D6D6D60000000000000000000000000000000000FF949400FF94 + 9400FF949400FF949400FF949400FF949400FF949400FF949400FF949400FF94 + 94000000000000000000000000000000000000000000000000009C636300319C + CE00FFFFFF00FFFFFF00C6C6C60000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C009C63630000000000A5ADDE004A63E7005A73E700CEDE + FF009CADF700526BEF005A6BEF009CB5EF009CADE700395AE7003152E7007B94 + E700B5D6FF003152D600294ACE00949CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFCE9C009C6363000000 + 000084848400A5A5A500D6D6D600000000000000000000000000FFFFFF00FF94 + 9400EFEFEF00FF949400EFEFEF00FF949400EFEFEF0000420000004200000042 + 00000042000000420000000000000000000000000000000000009C636300FFFF + FF00319CCE00319CCE0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF009C63630000000000ADADE7005263EF006373E700EFF7 + FF007B7BDE00636BFF00526BEF00A5B5EF009CB5E700395AE7003952F7005263 + DE00E7F7FF003952DE002942D6009494C600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFCE9C00FFCE9C009C63 + 6300000000008C8C8C00BDBDBD00000000000000000000000000FF949400FF94 + 8C00FF949400FF949400FF949400FF949400FF949400004200006B21FF000000 + FF006B21FF000042000000000000000000000000000000000000000000009C63 + 630000000000FFFFFF0000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00FFFFFF0000000000B5B5E7005A6BEF00637BE700EFFF + FF007B7BDE005A6BF700526BEF00A5B5E700A5B5E7003952EF003152F700425A + D600E7F7FF003152DE002142CE00949CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFCE9C00FFCE9C00FFFF + 9C009C63630000000000D6D6D600000000000000000000000000EFEFEF00FF94 + 8C00EFEFEF00FF949400EFEFEF00FF94940000420000004200006B21FF000000 + FF006B21FF000042000000420000004200000000000000000000000000000000 + 000000000000C6C6C600000000009C6363009C6363009C6363009C6363009C63 + 63009C6363009C6363009C63630000000000ADB5E7006B7BF700738CEF00D6E7 + FF009CADEF005A6BEF00526BEF00A5B5E7009CADE7003952F700294AEF007394 + E700CEDEFF00395AE7002942C6009C9CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFCE9C00FFFF9C00FFCE + 9C0000000000D6D6D60000000000000000000000000000000000FF949400FF94 + 9400FF949400FF949400FF949400004200006B21FF000000FF000000FF000000 + FF000000FF000000FF006B21FF00004200000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ADB5DE006B84EF00738CF700A5BD + F700D6E7FF007B94DE005A6BDE007B94E7007384EF00425AE700526BDE00CEE7 + FF00848CEF003952EF00294ACE009494C600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFFF9C00FFCE9C000000 + 0000D6D6D6000000000000000000000000000000000000000000EFEFEF00FF94 + 9400EFEFEF00FF949400EFEFEF00FF949400004200006B21FF000000FF000000 + FF000000FF006B21FF0000420000000000000000000000000000000000000000 + 0000848484008484840084848400000000000000000000000000000000000000 + 000000000000000000000000000000000000ADB5DE007394F7007B94FF008494 + E700C6D6F700DEEFFF009CADEF00637BD600636BDE00849CE700D6E7FF00ADBD + EF004252EF003152F700294ACE00949CC600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFFFCE00FFCE9C0000000000D6D6 + D600000000000000000000000000000000000000000000000000FF949400FF94 + 9400FF949400FF949400FF949400FF949400FF949400004200006B21FF000000 + FF006B21FF0000420000000000000000000084848400C6C6C600000000000000 + 0000C6C6C600C6C6C600C6C6C600848484000000000000000000FFFFFF000000 + 000000000000000000000000000000000000ADB5DE00849CEF008CA5FF008C9C + F7008494E700A5B5EF00CEE7FF00E7EFFF00E7EFFF00D6E7FF008CA5E7005A73 + D600395AF7003163F700294ACE009494C600000000009C636300FFFF9C00FFCE + 9C00000000009C9C9C00000000009C636300FFCE9C0000000000D6D6D6000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FF94 + 9400FFFFFF00FF949400FFFFFF00FF949400FFFFFF0029181800004200006B21 + FF000042000000000000000000000000000084848400FFFFFF0084848400C6C6 + C600FFFFFF00C6C6C600C6C6C600C6C6C60084848400FFFFFF00000000000000 + 000000000000000000000000000000000000BDB5E70094ADF7009CBDFF008C9C + FF008494FF007394F7007B9CEF00848CE7007B8CE7007B8CE7006373EF005A6B + F7004A63F700395AEF00294ACE009494C600000000009C636300FFFF9C00FFCE + 9C0000000000B5B5B500000000009C63630000000000D6D6D600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002121210000000000000000000000000084848400FFFFFF00848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 000000000000000000000000000000000000DED6EF008494E7007BA5FF007394 + FF007384FF00637BFF005A7BF7006373FF006373F700636BEF004A6BF7005263 + FF00395AF7003952EF00314ABD00CEC6E700000000009C6363009C6363009C63 + 63009C63630000000000000000009C6363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840084848400000000000000 + 0000848484008484840084848400848484000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00DED6F700B5BDE700B5B5 + E700B5B5E700B5B5E700ADB5E700B5B5E700ADADE700B5B5E700A5ADDE00ADAD + E700A5ADE700A5ADDE00CEC6E700FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C6C6C600848484008484840000000000000000000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFCE9C006331 + 3100000000000000000000000000000000000000000000000000949494009494 + 940000000000AD6B6B00A56B6300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000181894000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B5B5B500C6C6C60073737300000000000000000084848400737373000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFCE9C006331 + 3100000000000000000000000000000000000000000000000000949494009494 + 940000000000A56B6B00A56B630000000000000000000000000000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C0000638C0000638C00000000000000000000000000000000001818BD001818 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000018189400000000000000000000000000C6C6C600C6C6 + C6007373730073737300CECECE00A5A5A500A5A5A50000000000000000008484 + 8400737373000000000000000000000000009C636300FFFFFF00FFCE9C006331 + 3100000000000000000000000000000000000000000000000000949494009494 + 940000000000AD6B6B00A56B630000000000000000000000000000638C00D6F7 + FF004ABDEF0042BDEF0039B5E70031B5E70029ADE70021A5E70018A5E700189C + E7002994BD0000638C00000000000000000000000000000000001818BD007B7B + FF00181894000000000000000000000000000000000000000000000000000000 + 0000000000001818940031527B00000000000000000084848400737373007373 + 7300CECECE00CECECE00C6C6C600A5A5A5009C9C9C0094949400848484000000 + 0000000000007373730000000000000000009C636300FFFFFF00FFCE9C006331 + 3100633131006331310063313100633131006331310063313100633131006331 + 310063313100AD736B00A56B6300000000000000000000638C00D6F7FF0052C6 + EF004AC6EF004ABDEF0042B5EF0039B5E70031ADE70029ADE70021A5E70018A5 + E7002994BD000000000000638C00000000000000000000000000000000002929 + FF001818BD001818940000000000000000000000000000000000000000000000 + 0000181894001818BD0000000000000000008484840073737300D6D6D600CECE + CE00CECECE00C6C6C600C6C6C600A5A5A5009C9C9C0094949400949494008484 + 8400848484000000000000000000000000009C636300FFFFFF00FFCE9C00FFC6 + 9400F7C69400EFB58C00E7AD8C00DEA58400D69C8400CE947B00C68C7300BD84 + 7300B5736B00A5736B00A56B6300000000000000000000638C00D6F7FF005ACE + EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5E70029ADE70029A5E70021A5 + E70000638C000000000000638C00000000000000000000000000000000000000 + 00002929FF001818BD0018189400000000000000000000000000000000001818 + 94001818BD0000000000000000000000000084848400FFFFFF00CECECE00CECE + CE00C6C6C600C6C6C600FFFFFF009C9C9C00A5A5A50094949400848484008484 + 8400737373008484840073737300000000009C636300FFFFFF00FFCE9C00FFC6 + 9400F7C69400EFB58C00E7AD8C00DEA58400D69C8400CE947B00C68C7300BD84 + 7300B5736B00AD6B6B00A56B63000000000000638C00D6F7FF0063CEF7005ACE + EF0052C6EF0052C6EF004ABDEF0042BDEF0039B5E70031B5E70029ADE7002994 + BD00000000002994BD002994BD00000000000000000000000000000000000000 + 0000000000002929FF001818BD00181894000000000000000000181894001818 + BD000000000000000000000000000000000084848400FFFFFF00C6C6C600C6C6 + C600FFFFFF00FFFFFF00CECECE00CECECE00CECECE0094949400949494008484 + 8400848484007373730073737300000000009C636300FFFFFF00FFCE9C00FFC6 + 9400004A7300004A7300004A7300004A7300004A7300004A7300004A7300004A + 7300004A7300AD736B00A56B63000000000000638C00D6F7FF006BD6F70063CE + F7005ACEEF0052C6EF004AC6EF0042BDEF0042B5EF0039B5E70031ADE7002994 + BD00000000002994BD002994BD00000000000000000000000000000000000000 + 000000000000000000002929FF001818BD0018189400181894001818BD000000 + 00000000000000000000000000000000000084848400FFFFFF00FFFFFF00FFFF + FF00D6D6D600D6D6D6000000FF003100CE00CECECE00CECECE00C6C6C6008484 + 8400848484008484840073737300000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00ADEFF7009CDEEF008CD6EF0073C6E70063BDDE0052AD + D60039A5D600004A7300A56B63000000000000638C0000638C0000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C002994BD005ACEEF002994BD00000000000000000000000000000000000000 + 0000000000000000000000000000181894001818BD0018189400000000000000 + 00000000000000000000000000000000000084848400FFFFFF00DEDEDE00DEDE + DE0000FF0000009C6300CECECE00CECECE00D6D6D60073737300848484000000 + 0000C6C6C6007373730073737300000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00ADEFF7009CDEEF008CD6EF0073C6E70063BDDE0052AD + D60039A5D600004A7300A56B6300000000000000000000638C00D6F7FF0094EF + FF008CEFFF008CE7FF0084E7FF0084E7F7007BDEF70073DEF70073D6F7006BD6 + F70063CEF7005ACEEF002994BD00000000000000000000000000000000000000 + 00000000000000000000181894001818BD002929FF001818BD00181894000000 + 000000000000000000000000000000000000000000008484840084848400FFFF + FF00DEDEDE00D6D6D600D6D6D6008484840073737300C6C6C600C6C6C6000000 + 0000C6C6C6007373730073737300000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00ADEFF7009CDEEF008CD6EF0073C6E70063BDDE004AAD + D60039A5D600004A7300A56B6300000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CE7FF0084E7F7007BE7F7007BDEF700D6F7FF00D6F7 + FF00D6F7FF00D6F7FF002994BD00000000000000000000000000000000000000 + 000000000000181894001818BD001818BD0000000000000000002929FF001818 + 9400000000000000000000000000000000000000000000000000000000008484 + 840084848400FFFFFF0073737300C6C6C600C6C6C600DEDEDE00E7E7E700DEDE + DE00000000000000000000000000000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00ADEFF7009CDEEF008CD6EF0073C6E70063BDDE0052AD + D60039A5D600004A7300A56B6300000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CEFFF0084E7F700D6F7FF0000638C0000638C000063 + 8C0000638C0000638C0000638C00000000000000000000000000000000000000 + 0000181894001818BD001818BD00000000000000000000000000000000002929 + FF00181894000000000000000000000000000000000000000000000000000000 + 0000000000008484840084848400D6D6D600DEDEDE00EFEFEF00EFEFEF00F7F7 + F700DEDEDE000000000000000000000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00ADEFF7009CDEEF008CD6EF0073C6E70063BDDE0052AD + D60039A5D600004A7300A56B630000000000000000000000000000638C00D6F7 + FF00D6F7FF00D6F7FF00D6F7FF00D6F7FF0000638C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001818 + 94001818BD001818BD0000000000000000000000000000000000000000000000 + 00002929FF001818940000000000000000000000000000000000000000000000 + 000000000000000000000000000084848400E7E7E700EFEFEF00F7F7F700FFFF + FF00FFFFFF00DEDEDE0000000000000000009C636300FFFFFF00FFCE9C00319C + CE00CEFFFF00C6F7FF00B5EFF7009CDEEF008CD6EF0073C6E70063BDDE004AAD + D60039A5D600004A730000000000000000000000000000000000000000000063 + 8C0000638C0000638C0000638C0000638C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000181894001818 + 94001818BD000000000000000000000000000000000000000000000000000000 + 0000000000002929FF0018189400000000000000000000000000000000000000 + 00000000000000000000000000000000000084848400F7F7F700F7F7F700FFFF + FF00848484008484840000000000000000009C636300FFFFFF00FFFFFF008C8C + 8C00CEFFFF00C6F7FF00B5EFF7009CDEEF008CD6EF0073C6E70063BDDE004AAD + D60039A5D60063636300C6C6C600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400848484008484 + 8400000000000000000000000000000000009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003929180000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B396B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000039291800A5948400A5948400A594 + 8400AD9C8C00AD9C8C00AD9C8C00AD9C8C00AD9C8C00AD9C8C00AD9C8C00AD9C + 8C00AD9C8C00AD9C8C00AD9C8C00000000000000000000000000000000000000 + 0000000000006B396B006B396B009400D600844A840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000737373007373 + 7300737373007373730073737300737373007373730073737300737373007373 + 7300737373007373730000000000000000003929180094847300948473009484 + 7300BDB5A500BDB5A500BDB5A50029211000BDB5A500BDB5A500BDB5A500BDB5 + A500BDB5A500BDB5A500BDB5A500000000000000000000000000000000006B39 + 6B006B396B009400D600CE63CE00D6E7E700C6C6C600844A8400000000000000 + 0000000000000000000000000000000000001018100010181000101810001018 + 1000101810000000000000000000000000000000000000000000293929001018 + 1000101810001018100010181000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007373730000000000000000003929180094846B0094846B009484 + 6B009484730000000000000000000000000000000000BDB5A500BDB5A500BDB5 + A5000031080000841000BDB5A50000000000000000006B396B006B396B009400 + D600CE63CE00D6E7E700D6E7E700D6E7E700C6C6C600C6C6C600844A84000000 + 00000000000000000000000000000000000018211800C6E7C600426B4A00294A + 310010181000000000000000000000000000000000000000000029392900C6E7 + C600426B4A00294A3100101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BDDE0052B5D60042A5 + D60000000000737373000000000000000000392918008C7B63008C7B63008C7B + 6300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000007B427B009400D600CE63CE00D6E7 + E700D6E7E700C6C6C600C6C6C6007B427B009C9C9C0094ADAD00C6C6C600844A + 84000000000000000000000000000000000018211800C6E7C600426B4A00294A + 310010181000000000000000000000000000000000000000000029392900C6E7 + C600426B4A00294A3100101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5F7F700A5E7F70094DEEF0084CEE70073C6E70063BDDE0052B5D60042A5 + D600000000007373730000000000000000003929180039291800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007B427B009C9C9C00D6E7E700C6C6 + C60094ADAD007B427B007B427B00945A940000000000848484009C9C9C00C6C6 + C600844A84000000000000000000000000001821180010181000101810001018 + 1000101810001018100010181000000000001018100010181000101810001018 + 10001018100010181000101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BDDE0052ADD60042A5 + D60000000000737373000000000000000000000000000000000039291800A59C + 8C00A59C8C00D6C6BD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000007B427B009C9C9C00C6C6C6007B42 + 7B007B427B00B56BB500B56BB500945A9400945A940000000000636363009C9C + 9C0094ADAD00844A840000000000000000001821180031523100C6E7C600426B + 4A001018100010181000101810001018100010181000C6E7C600426B4A00294A + 3100294A310010181000101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BDDE0052B5D60042A5 + D60000000000737373000000000000000000000000000000000039291800A594 + 8400A5948400D6C6BD005A4A31007B6B52007B6B52007B6B52007B6B52007B6B + 52007B6B5200FFFFFF0000000000000000007B427B007B427B007B427B00B56B + B500B56BB500B56BB500B56BB500B56BB500945A9400945A9400000000006363 + 63009C9C9C0084848400844A8400000000001821180031523100C6E7C600426B + 4A001018100010181000ADCEAD001018100010181000C6E7C600426B4A00294A + 3100294A310010181000101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BDDE0052B5D60042A5 + D60000000000737373000000000000000000000000000000000039291800A594 + 7B00A5947B00D6C6BD005A4A3100EFB54200E7AD3900DEAD3900DE9C2900D694 + 29007B6B5200FFFFFF0000000000000000007B427B00FFBDFF00B56BB500B56B + B500B56BB500B56BB500B56BB500B56BB500945A9400945A9400945A94000000 + 0000636363009C9C9C00844A8400000000001821180031523100C6E7C600426B + 4A001018100010181000ADCEAD001018100010181000C6E7C600426B4A00294A + 3100294A310010181000101810000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BDDE0052ADD60042A5 + D600000000007373730000000000000000000000000000000000392918009C8C + 7B009C8C7B00D6C6BD005A4A3100F7BD4A00EFB54200E7AD3900DEA53100DE9C + 29007B6B5200FFFFFF000000000000000000000000007B427B00FFBDFF00B56B + B500B56BB500B56BB500B56BB500B56BB500945A9400945A9400945A94007B42 + 7B000000000063636300844A8400000000000000000018211800182118001018 + 1000101810001018100010181000101810001018100010181000101810001018 + 10001018100010181000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E70063BDDE0052B5D60042A5 + D60000000000737373000000000000000000000000000000000039291800948C + 7300948C7300D6C6BD005A4A3100F7C65200F7BD4A00EFB54200E7AD3900DEA5 + 31007B6B5200FFFFFF00000000000000000000000000000000007B427B00FFBD + FF00B56BB500B56BB500B56BB500B56BB500B56BB500945A9400945A94007B42 + 7B007B427B0000000000844A840000000000000000000000000018211800C6E7 + C600426B4A0010181000101810000000000018211800C6E7C600426B4A00294A + 31001018100000000000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5F7F700A5E7F70094DEEF0084D6E70073C6E70063BDDE0052B5D60042A5 + D600000000007373730000000000000000000000000000000000392918009484 + 730094847300D6C6BD005A4A3100FFC65200F7C65200EFBD4A00EFB54200E7AD + 39007B6B5200FFFFFF0000000000000000000000000000000000000000007B42 + 7B00FFBDFF00B56BB500B56BB500B56BB500B56BB500945A9400945A94007B42 + 7B007B427B007B427B0000000000000000000000000000000000182118001821 + 1800426B4A001018100010181000000000001821180018211800426B4A00294A + 31001018100000000000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70063BDDE0052ADD60042A5 + D600000000007373730000000000000000000000000000000000392918009484 + 730094847300D6C6BD005A4A31005A4A31005A4A31005A4A31005A4A31005A4A + 31005A4A3100FFFFFF0000000000000000000000000000000000000000000000 + 00007B427B00FFBDFF00B56BB500B56BB500B56BB500945A9400945A94007B42 + 7B007B427B006339630000000000000000000000000000000000000000001821 + 1800182118001821180000000000000000000000000018211800182118001821 + 18000000000000000000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084D6E70073C6E70000000000000000000000 + 0000000000007373730000000000000000000000000000000000000000003929 + 180094847300D6C6BD00D6C6BD00D6C6BD00D6C6BD00D6C6BD00D6C6BD00D6C6 + BD00D6C6BD00D6C6BD0000000000000000000000000000000000000000000000 + 0000000000007B427B00FFBDFF00B56BB500B56BB500B56BB500945A94006339 + 6300000000000000000000000000000000000000000000000000000000001829 + 1800C6E7C6000000000000000000000000000000000018291800C6E7C6000000 + 00000000000000000000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E700005A8C0052ADD6000000 + 0000737373000000000000000000000000000000000000000000000000000000 + 0000392918003929180039291800392918003929180039291800392918003929 + 1800392918003929180000000000000000000000000000000000000000000000 + 000000000000000000007B427B00FFBDFF00B56BB50063396300000000000000 + 0000000000000000000000000000000000000000000000000000000000001829 + 1800182918001821180000000000000000000000000018291800182918001829 + 18000000000000000000000000000000000000000000319CCE00CEFFFF00C6FF + FF00B5EFF700A5E7F70094DEEF0084CEE70073C6E700005A8C00000000007373 + 7300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007B427B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000319CCE00005A8C00005A + 8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00737373000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000A00100000100010000000000000D00000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFF83F81FFFFF8001FE03F007FFFF + 8001F803F003FFFF8001E001F007FFFF8001E001F003FFFFFFFFE001F003FFFF + 8001C000C01FFFFF8001C000C01FE6678001C000C01FE6678001C000C01FFFFF + FFFF8000C03FFFFF80018000E07FFFFF80018001F87FFFFF80018007F87FFFFF + 8001C01FFCFFFFFFFFFFF07FFFFFFFFFFFFFFFFFF800FFFF8000E0FFF8008001 + 0000C1FFF800800000008203E000000000008401E000000000000800E0000000 + 0000080080000000000008008000000000000800800000000000080080030000 + 0000080080030000000008008003000100008401800F807F00008203800FE07F + 0001C1FF800FF87FFFFFE0FFFFFFFE7FFFFFFFFFF000FE3FC000FFF9E000FE0F + 0000C001E000FE0700008001E000FF0300008003E000FF0100008003E000C000 + 0000800380008000000080030000800100008003000080030000800300018003 + 0000800300078003000080030007800300008003000780030000800700078003 + 0001FFFF00078007FFFFFFFF000FFFFF0000FFFFFFFFFFFF0000FFF7FFFFE000 + 0000FFE3FFFFC0000000FFC18001C0000000FF83800180000000E00780018000 + 0000C00F800100000000801F800100000000801F800100000000801F80018000 + 0000801F800180000000801F800180010000801F8003C07F0000C03F81FFE0FF + 0000E07FFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000800080008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000010000 + 00000101FFFF00010000FFFFFFFFFFFF0000FFFFFFFFFFFF00008003D00BFFFF + 00008003B00DC00300008003B00DC00300008003B00DC0030000E3CFBFFDC003 + 00008003B00DC00300008003700EE00700008003B00DF81F00008003B00DFC3F + 0000F19FBFFDF81F00008003B00DF00F00008003B00DF00F00008003B00DF81F + 00008003D00BFFFF0000FFFFFFFFFFFFFFFFFFFFC001F000C001F00F8001E000 + 8001F00F8001E000B6D9F00F8001C000BEFBF81F8001C000FFFFF81F80018000 + E0018C23800180008001842180018000800102408001C000800186618001C001 + 8001CE738001E07F8001C0018001F0F7800180018001FF778001FE7F8001FE0F + 8001FE7F8001FF7F8003FFFF8003FFFFFFFFFFFF0000FFFFC001FFFF0000CF87 + 80018F8F00008707800188880000830780018F8F0000810780019F9F00008007 + 8001FFFF0000800780018F8F00008007800188880000800780018F8F40308007 + 80019F9F607881078001FFFF707C830780018F8F70FE87078001888879FF8F07 + 80038F8F7BFFBF0FFFFF9F9F7FFFFFFFF000FFFFFC7FE1EBE000FFFFF81FC081 + E0008003F807806AE0008003F001002AE0008003F0000001E0008003E000002B + E0008003E001802B6000FFFFC001C0C02000FFFFC003E1EB000080038003E1FF + 000080038007E1F100018003C007807101FF8003E00F003120FF8003F00F0020 + 64FFFFFFFC1F0031E7FFFFFFFFFF003BFC7FFFFFFFFFFFFFF83F03C0FFFF02FF + F01F0340FFFF000FE00F000007E002F7C0070340076003F78003FFFF042003C0 + 000103C00760DC400000034007E08CC08000000007E0DD40C001034006E0DF7F + E003FFFF0420DE07F00703C006E00207F80F034007E00207FC1F0000FFFF0207 + FE3F0340FFFF03FFFF7FFFFFFFFFFFFFFFFFFFFFFF3FFFFFBFFFFFFCFC0FFFFF + 9FFFFFF8F003EFFD8007F0F8F1E1C0008003C001F873800080038003FE338000 + 80038003F807800080038003E007800080030003C00780008003000780078000 + 8003800FC00780008003801FC00780008003801FE0038000C007C03FE0038000 + FFFFF0FFF0018001FFFFFFFFF003FFFFFFFFFFFFFFFF027DFFFF800080000239 + 80000000000003130000000000000387000000000000FF870000000000000313 + 0000000000000239000000000000037D000000000000039F000000000000FF0F + 00000000000002070000000000000223000000000000037100010001000103FC + FFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFDFFFFFFF3FFFFE008FFFFFFE303C0 + 8001F807C00003400003F003000000000007F003000003400007F0030000FFFF + 0007F003000003C00007F003000303400007D003000300000007C00300030340 + 0007C0070003FFFF0007C3FF000303C00007C7FF000303400007CFFF00030000 + 800FDFFF00030340D55FFFFF0007FFFFF3FFFFFFE003FFCFF3FF8000C003FFC7 + FFFF0000E007C003E0010000F01F0001E0010000F80F0000E0010000F0070001 + E0010000F0070003E0010000E007000390030000C00300039C0F0000C0070003 + 801F0000C00F0003C00F0000C00F0003F8070000C01F0003F8070001E00F0003 + FC0FFFFFF01F0003FFFFFFFFFFFF0007FFFFFFFFFFFFFFFFE00187FF000FFFFF + 800187FF03F7E03F800186FF03E3F07F8001842003F7F007800186E000C0E00F + 800187E0DF40C00F800187E0DF40C007800187E0DE00C007800187608F7FC003 + 80018420DE07E0078001877F0207F007800187FF0207FC07800187FF0207FE0F + 8003FFFF03FFFFFFFFFFFFFFFFFFFFFFF000F81F0000FE7EF000E0070000FE3C + F000C0030000FF19C00080010000FF83C0008001000080C7C00000000007C183 + 000000000007C019000000007007803C000000007007003E000300007E07001F + 000300007E07001F000380017E07000F000F80017E3F801F000FC0037E3FC01F + 000FE0077FFFF01FFFFFF81F7FFFF83FFFFFF81F0000FFFFFC3FF81F00000201 + E427000F000003FFC003000F000003FFC0030007000003FFE00700030000FFFF + 800100030000020181810003000003FF81810001000003FF80010001000003FF + E00700030000FFFFC003000300000201C0030001000003FFE4278030000003FF + FC3FE038000003FFFFFFFC7C0000FFFF8001FE3F0000FFFF0001FE0F0000E1FF + 0001FE030000C1FF0001F800000081CF0001F800000001870001E80000000703 + 0001C80000000E010001800000000C000001000000000F870001000000000F87 + 00018000000007070001C800000000070001E8000000800F0001F8000000C01F + 0001F8000000E03F0003F8000000FFFFFFFFFFF3FFFFFF7FC7F9FFE1F80FFE3F + 83F9F000F80FFC1F83F1F000F80FF80F81E3F000F80FF007C0C3F000F80FE003 + E007C000F80FC001F00F8000F80FF80FF81F0000F80FF80FF80F0000C001F80F + E0070000E003F80FC0830000F007F80F81C18000F80FF80F83E1C000FC1FF80F + 87F9F001FE3FF80FFFFFF003FF7FFFFFE000FFFFFFFFFFFFC0008000C000FFFF + 800000000000F9FF800000000000F0FF800000000000E07F800000000000C03F + 800000000000801F800000000000C20F800000000000EF07800000000000FF83 + 800000000000FFC1800100000000FFE1800300000000FFF1800700010000FFF9 + 800FFFFF0001FFFF801FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF87FFFF8000C000 + FF83800100000000F381000000000000E180000000000000C0E0000000000000 + 80700000000000000030000000000000E1F0000000000000E1F0000000000000 + E0E0000000000000E000000000000000F001000000000000F803800100010000 + FC07FFFFFFFF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE3FFE61FFFFFFFFFC1F + FC41FFBFFDFFF80FF841FF9FF9FFF007F041FF8FF1FFE003E0418007E001C001 + C0418003C001800080418001800100008041800000010001C041800180018003 + E0418003C001C003F0418007E001E001F841FF8FF1FFF000FC41FF9FF9FFF800 + FEC3FFBFFDFFFC61FFFFFFFFFFFFFEF3FFFFF1FF0000FFFFFFFFE0030000C33F + C00FE0010000821F8007C0000000820F8007C000000082078007C00000008203 + 8007C000000082018003C000000082018003E000000082018000F00100008203 + 8000F1FF00008207800110CF0000820F8003000F0000821F8007001F0000823F + 8007003F000086FFFFFF307F0000FFFFFC7F8000FFFFFFFFF01F0000E000DFFF + C0070000C000CFFD80010000C000C7F9800100008000E3F3000100008000F1E7 + 000000000000F8CF000000000000FC1F000000000000FE3F000000008000FC1F + 800100008000F8CFE00700008001F1E7F8030000C07FE3F3FE000000E0FFC7F9 + FF030000FFFFFFFFFF8F0000FFFFFFFF0000FE7FFFFFFFFF0000F83FFFFFC003 + 0000E01F07C180030000800F07C180030000000707C180030001000301018003 + C001000100018003C001000000018003C001000000018003C001800180038003 + C001C001C1078003C001E000C1078003C001F001E38F8003E001F807E38F8007 + F003FC1FE38F800FFFFFFE7FFFFF801F00000000000000000000000000000000 + 000000000000} + end + object ADQ_Temp: TADOQuery + Parameters = <> + SQL.Strings = ( + 'SELECT ' + ' (case DyeIdx0 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx1 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx2 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx3 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx4 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx5 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx6 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx7 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx8 when 0 then '#39'0'#39' else '#39'1'#39' end) +'#39','#39 + ' +(case DyeIdx9 when 0 then '#39'0'#39' else '#39'1'#39' end)' + 'as DyePc' + ' FROM SD_SampleCraft') + Left = 328 + Top = 32 + end + object Image_Tree: TImageList + DrawingStyle = dsFocus + Left = 456 + Top = 137 + Bitmap = { + 494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000003000000001002000000000000030 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000808080008080800080808000808 + 0800080808000808080008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFCE + 8C00FFCE8400FFCE8C00FFCE8C00FFCE8400FFC68400FFC68400FFC67B00FFC6 + 7B00FFBD7B00FF9C5A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000080808005252FF005252FF005252 + FF005252FF005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFFF + C600FFEFA500FFEFAD00FFEFAD00FFEFA500FFE7A500FFE7A500FFE79C00FFDE + 9C00FFDE9400F79C5A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000008080800B5B5FF00212121002121 + 2100212121005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFEF + A500000000000000000000000000000000000000000000000000000000000000 + 0000FFD69400EF9C5A0000000000000000000000000000000000000000000000 + 00002121210021212100212121002121210008080800B5B5FF00A5A5FF008C8C + FF008C8CFF005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFE7 + A500FFE7A500FFE7A500FFE7A500FFE7A500FFE79C00FFDE9C00FFDE9400FFD6 + 9400FFD69400DE9C520000000000000000000000000000000000000000000000 + 00002121210031CE000031CE000031CE000008080800B5B5FF00212121002121 + 2100212121005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFE7 + A500000000000000000000000000000000000000000000000000000000000000 + 0000FFCE8C00D694520000000000000000000000000000000000000000000000 + 000021212100D6FFCE00212121002121210008080800B5B5FF00A5A5FF008C8C + FF008C8CFF005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFE7 + 9C00FFDE9C00FFE79C00FFE79C00FFDE9C00FFDE9400FFD69400FFD69400FFCE + 8C00FFCE8C00CE94520000000000000000003939390039393900393939003939 + 390021212100D6FFCE00CEFFB500ADFF8C0008080800B5B5FF00212121002121 + 2100212121005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFDE + 9C00000000000000000000000000000000000000000000000000000000000000 + 0000FFCE8400C6944A00000000000000000039393900FFCE7B00EF8C0000EF8C + 000021212100D6FFCE00212121002121210008080800FFFFFF00CECEFF00CECE + FF00CECEFF005252FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFDE + 9400FFD69400FFDE9400FFDE9400FFD69400FFD69400FFCE8C00FFCE8C00FFCE + 8400FFC68400BD8C4A00000000000000000039393900FFCE7B00212121002121 + 210021212100D6FFCE00CEFFB500ADFF8C000808080008080800080808000808 + 0800080808000808080008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFD6 + 94000000000000000000000000000000000000000000FFCE8400FFCE8400FFC6 + 8400FFC68400B58C4A00000000000000000039393900FFCE7B00FFC66B00FFBD + 4A0021212100D6FFCE0021212100212121002121210031CE0000212121000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFD6 + 9400FFCE8C00FFD69400FFD69400FFCE8C00FFCE8C00FFCE84004A4A4A004A4A + 4A004A4A4A004A4A4A00000000000000000039393900FFCE7B00212121002121 + 210021212100FFFFFF00D6FFCE00D6FFCE00D6FFCE0031CE0000212121000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFCE + 8C000000000000000000000000000000000000000000FFC684004A4A4A00FFFF + C600FFF7AD00FFCE8C00000000000000000039393900FFCE7B00FFC66B00FFBD + 4A00212121002121210021212100212121002121210021212100212121000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFFF + C600FFCE8400FFCE8C00FFCE8C00FFCE8400FFC68400FFC684004A4A4A00FFF7 + AD00FFCE8C004A4A4A00000000000000000039393900FFCE7B00212121002121 + 210021212100EF8C000039393900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A00FFFFC600FFFF + C600FFFFBD00FFFFC600FFFFC600FFFFBD00FFFFBD00FFFFB5004A4A4A00FFCE + 8C004A4A4A0000000000000000000000000039393900FFFFF700FFCE7B00FFCE + 7B00FFCE7B00EF8C000039393900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5A5A005A5A5A005A5A + 5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A005A5A5A004A4A4A004A4A + 4A00000000000000000000000000000000003939390039393900393939003939 + 3900393939003939390039393900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000084848400FFFF0000FFFF0000FFFF00008484 + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008484840084000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 00000000000000000000000000000000000000000000000000000000000073CE + FF00009CEF000084CE0031313100636363004A4A4A0021212100009CEF00009C + EF000084CE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C0000638C0000638C0000000000000000000000000000000000000000000000 + 0000848484008400000084848400FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 000084840000000000000000000000000000000000000000000000000000ADE7 + FF0073CEFF0042BDFF004A4A4A00636363004A4A4A003131310018B5FF00009C + EF000084CE0000000000000000000000000000000000106B9400106B9400106B + 9400106B9400106B9400106B9400106B9400106B9400106B9400106B9400106B + 9400106B9400106B94000808080000000000000000000000000000638C00D6F7 + FF004ABDEF0042BDEF0039B5E70031B5E70029ADE70021A5E70018A5E700189C + E7002994BD0000638C0000000000000000000000000000000000000000008400 + 0000840000008400000084848400FFFF0000FFFF0000FFFF0000FFFF0000FFFF + 000084840000848400000000000000000000000000000000000000000000ADE7 + FF0073CEFF0042BDFF004A4A4A00636363004A4A4A003939390018B5FF00009C + EF000084CE0000000000000000000000000000000000D6F7FF0063CEF7005ACE + EF0052C6EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5E70029ADE70029AD + E70021A5E7002994BD0008080800000000000000000000638C00D6F7FF0052C6 + EF004AC6EF004ABDEF0042B5EF0039B5E70031ADE70029ADE70021A5E70018A5 + E7002994BD000000000000638C00000000008484840084000000000000000000 + 000084000000840000008484840000000000FFFF0000FFFF0000FFFF00008484 + 840084848400848400008484000000000000000000000000000000000000ADE7 + FF0073CEFF0042BDFF004A4A4A00636363004A4A4A004A4A4A0018B5FF00009C + EF000084CE0000000000000000000000000000000000D6F7FF006BD6F70063CE + EF005ACEEF0052C6EF004AC6EF004ABDEF0042B5EF0039B5E70031ADE70029AD + E70021A5E7002994BD0008080800000000000000000000638C00D6F7FF005ACE + EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5E70029ADE70029A5E70021A5 + E70000638C000000000000638C00000000008400000084000000848484008400 + 0000FF00000084000000848484000000000084840000C6C6C600FFFFFF00C6C6 + C60084848400848484008484000000000000000000000000000000000000ADE7 + FF0073CEFF0042BDFF004A4A4A00525252004A4A4A004A4A4A0018B5FF00009C + EF000084CE0000000000000000000000000000000000D6F7FF006BD6F70063D6 + F7005ACEEF005AC6EF0052C6EF004ABDEF0042BDEF0039B5EF0039B5E70031AD + E70029ADE7002994BD00080808000000000000638C00D6F7FF0063CEF7005ACE + EF0052C6EF0052C6EF004ABDEF0042BDEF0039B5E70031B5E70029ADE7002994 + BD00000000002994BD002994BD00000000000000000084000000840000008484 + 840084000000FF0000008484840000000000C6C6C60084840000C6C6C600FFFF + FF00C6C6C600848484008484840000000000000000000000000000000000ADE7 + FF0073CEFF0042BDFF0018B5FF004A4A4A004A4A4A0018B5FF0018B5FF00009C + EF000084CE0000000000000000000000000000000000D6F7FF0073DEF7006BD6 + F70063CEF7005ACEEF0052C6EF0052C6EF004ABDEF0042BDEF0039B5EF0031B5 + E70029ADE7002994BD00080808000000000000638C00D6F7FF006BD6F70063CE + F7005ACEEF0052C6EF004AC6EF0042BDEF0042B5EF0039B5E70031ADE7002994 + BD00000000002994BD002994BD00000000000000000000000000FF0000008484 + 8400FF000000840000008484840000000000008484000000000084840000C6C6 + C600FFFFFF00C6C6C6008484840000000000000000000000000018B5FF000000 + 0000ADE7FF0073CEFF0042BDFF0018B5FF0018B5FF0018B5FF00009CEF000084 + CE0000000000008CD600000000000000000000000000D6F7FF0073DEF7006BD6 + F7006BD6F70063CEF7005ACEEF0052C6EF004AC6EF004ABDEF0042BDEF0039B5 + EF0031ADE7002994BD00080808000000000000638C0000638C0000638C000063 + 8C0000638C0000638C0000638C0000638C0000638C0000638C0000638C000063 + 8C002994BD005ACEEF002994BD0000000000000000000000000000000000FF00 + 0000FF000000FF000000848484000000000000FFFF0000FFFF00008484008484 + 00008484000084848400000000000000000000000000000000000000000018B5 + FF0000000000ADE7FF0073CEFF0042BDFF0018B5FF00009CEF000084CE000000 + 0000008CD60000000000000000000000000000000000D6F7FF007BDEF70073DE + F7006BD6F70063D6F7005ACEEF005AC6EF0052C6EF004ABDEF0042BDEF0039B5 + EF0031B5E7002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF008CEFFF008CE7FF0084E7FF0084E7F7007BDEF70073DEF70073D6F7006BD6 + F70063CEF7005ACEEF002994BD00000000000000000000000000000000000000 + 0000FF000000FF000000848484000000000000FFFF0000FFFF00008484000084 + 8400008484008484840000000000000000000000000000000000000000000000 + 000018B5FF0000000000ADE7FF0042BDFF0018B5FF000073AD0000000000008C + D6000000000000000000000000000000000000000000D6F7FF0084E7F7007BDE + F70073DEF7006BD6F70063CEF7005ACEEF0052C6EF0052C6EF004ABDEF0042BD + EF0039B5E7002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CE7FF0084E7F7007BE7F7007BDEF700D6F7FF00D6F7 + FF00D6F7FF00D6F7FF002994BD00000000000000000000000000000000000000 + 000000848400FF000000848484000000000000FFFF0000FFFF00008484000084 + 8400008484000000000000000000000000000000000000000000000000000000 + 00000000000018B5FF0000000000ADE7FF0031BDFF000000000000A5F7000000 + 000073CEFF0000000000000000000000000000000000D6F7FF00A5EFFF00A5EF + FF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EFFF00A5EF + FF00A5EFFF002994BD0008080800000000000000000000638C00D6F7FF0094EF + FF0094EFFF008CEFFF008CEFFF0084E7F700D6F7FF0000638C0000638C000063 + 8C0000638C0000638C0000638C00000000000000000000000000000000000000 + 00000084840000FFFF00C6C6C6000000000000FFFF0000FFFF00008484000084 + 8400008484000000000000000000000000000000000000000000000000000000 + 0000000000000000000018B5FF00000000000000000000A5F700000000000000 + 000073CEFF000000000000000000000000000000000042ADD60042ADD60042AD + D60042ADD60042ADD60042ADD60000638C0000638C0000638C0000638C000063 + 8C0000638C0000638C000000000000000000000000000000000000638C00D6F7 + FF00D6F7FF00D6F7FF00D6F7FF00D6F7FF0000638C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000084840000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00008484000084 + 8400008484000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000042BDFF0000A5F70000000000000000000000 + 000073CEFF0000000000000000000000000000000000D6F7FF00D6F7FF00D6F7 + FF00D6F7FF00D6F7FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000063 + 8C0000638C0000638C0000638C0000638C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000084 + 8400008484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600008484000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000848400000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000300000000100010000000000800100000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFF000000008001FF0100000000 + 8001FF01000000008001FF01000000008001F001000000008001F00100000000 + 8001F00100000000800100010000000080010001000000008001000100000000 + 8001001F000000008001001F000000008001001F00000000800301FF00000000 + 800701FF00000000800F01FF00000000FFFFFFFFFFFFFE0FE007FFFFE000F807 + C003FFFFC000F003C0038001C000E001C003800180003000C003800180000000 + C003800100008000C00380010000C000800180010000E001C00380018000F003 + E00380018000F003F00380018001F003F8038003C07FF003FC2381FFE0FFF003 + FE73FFFFFFFFF803FFFFFFFFFFFFFC0300000000000000000000000000000000 + 000000000000} + end + object ADOQueryTmp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 32 + end + object Timer2: TTimer + OnTimer = Timer2Timer + Left = 544 + Top = 48 + end +end diff --git a/检验主程序/spmain.pas b/检验主程序/spmain.pas new file mode 100644 index 0000000..744f598 --- /dev/null +++ b/检验主程序/spmain.pas @@ -0,0 +1,387 @@ +unit spmain; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, Menus, ComCtrls, ToolWin, ActnMan, ActnCtrls, ActnMenus, + ActnList, DB, ADODB, Grids,IniFiles, jpeg, + ExtCtrls, Buttons, ImgList, StdCtrls, cxControls, + cxSplitter, MovePanel; +const + keys='ljb^0122!@#*&^%$'; +type + TFormMain = class(TForm) + StatusBar1: TStatusBar; + ADOConnection1: TADOConnection; + ImageList25: TImageList; + ImageList3: TImageList; + ImageList24: TImageList; + ADQ_Temp: TADOQuery; + Image_Tree: TImageList; + ADOQueryTmp: TADOQuery; + Timer2: TTimer; + MovePanel1: TMovePanel; + Panel1: TPanel; + Panel2: TPanel; + Panel3: TPanel; + + procedure FormCreate(Sender: TObject); + procedure MNCloseClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Timer1Timer(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Timer2Timer(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Panel1Click(Sender: TObject); + procedure Panel2Click(Sender: TObject); + procedure Panel3Click(Sender: TObject); + private + { Private declarations } + function intiData():Boolean; + procedure GetServerDate(); + + public + + { Public declarations } + // server, dtbase, user, pswd: String; + end; +var + FormMain: TFormMain; + gServerDate:TdateTime; + server, dtbase, user, pswd: String; {ݿӲ} + gConString:String; {ȫַ} + gCurHandle:hwnd; //ǰ + V_User,V_UserID,User_Id,User_Name:String; + newh:hwnd; + ConDateBaseString:String; +implementation +uses + logon, U_Link,U_iniParam; +{$R *.dfm} + +function TFormMain.intiData():Boolean; +var + mProdId:string; //ǰƷ +begin + result:=false; + + //ConDateBaseString:=ADOConnection1.ConnectionString; + try + frmLink:=TfrmLink.create(self); + if frmLink.ShowModal=1 then + begin + ConDateBaseString:=frmLink.fADOConnString; + frmLink.hide; + end + else + begin + application.MessageBox('ͨѶӴ','ʾϢ',MB_ICONERROR); + PostMessage(Handle, WM_CLOSE, 0, 0); + frmLink.Release; + end; + except + application.MessageBox('ͨѶӴ','ʾϢ',MB_ICONERROR); + PostMessage(Handle, WM_CLOSE, 0, 0); + end; +// ConDateBaseString:=ADOConnection1.ConnectionString; + { Left := 0; + Top := 0; + Width := Screen.Width; + Height := Screen.Height; } + + try + with ADOConnection1 do + begin + ADOConnection1.KeepConnection:=false; + ADOConnection1.KeepConnection:=true; + Connected:=false; + ConnectionString:= ConDateBaseString; + Connected:=true; + end; + Result:=true; + except + result:=false; + application.MessageBox('ݿӴ','ʾϢ',MB_ICONERROR); + PostMessage(Handle, WM_CLOSE, 0, 0); + end; +end; + +procedure TFormMain.FormCreate(Sender: TObject); +var + tmpstr: String; +begin + + if intiData() then + begin + GetServerDate(); + // P_Tmp.Visible := True; + //P_Tmp.Align := AlClient; + FormLogon:=TFormLogon.Create(self); + FormLogon.ShowModal; + end; + +end; + +procedure TFormMain.FormResize(Sender: TObject); +begin + //P_Tmp.Align := AlClient; + sendmessage(newh,1034,1,0); +end; + +procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction); +Var + CanQuit:Boolean; +begin + sendmessage(newh,1034,4,0); + If FormMain.MDICHildCount > 0 Then + CanQuit:=application.MessageBox('ȷҪ˳ǰϵͳ?','ʾ',mb_yesno+ mb_IconQuestion)=idyes ; + If CanQuit Then + begin + Timer2.Enabled := false; + ADOConnection1.Close; + Action := CaFree; + End + Else + action := caNone; +end; + +procedure TFormMain.MNCloseClick(Sender: TObject); +begin + close; +end; + +procedure TFormMain.Timer1Timer(Sender: TObject); +begin + try + statusbar1.Panels[0].Text:='ǰʱ䣺'+datetimetostr(now); + except + end; +end; + +procedure TFormMain.N2Click(Sender: TObject); +begin +end; +/////////////////////////////////////////////// + //ȡϵͳ +//////////////////////////////////////////////// +procedure TFormMain.GetServerDate(); +begin + with ADOQueryTmp do + begin + close; + sql.clear; + sql.Add('select getDate()as dt'); + Open; + gServerDate:=fieldByName('dt').AsDateTime; + close; + end; +end; + +procedure TFormMain.Timer2Timer(Sender: TObject); +begin + FormMain.StatusBar1.Panels[0].Text:='ǰʱ䣺'+datetimetostr(now); +end; + +procedure TFormMain.FormShow(Sender: TObject); +begin + Timer2.Enabled:=True; + +end; + +procedure TFormMain.ToolButton12Click(Sender: TObject); +var + CanQuit:Boolean; +begin + sendmessage(newh,1034,4,0); + if application.MessageBox('ȷҪ˳ǰϵͳ?','ʾ',mb_yesno+ mb_IconQuestion)<>IDYES then Exit; + ADOConnection1.Close; + Close; +end; + +procedure TFormMain.Panel1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + ADOConnection1.Connected:=False; + ADOConnection1.Connected:=True; + { with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(User_Id)+''''); + Open; + end; + if Trim(ADOQueryTmp.FieldByName('BanZu').AsString)='' then + begin + Application.MessageBox('ǰ¼˰Ϊգ','ʾ',0); + Exit; + end; } + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_ModuleSub where ModuleSubID=''99'' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + Application.MessageBox('ûüϢģ飡','ʾϢ',MB_ICONERROR); + Exit; + end; + Th := LoadLibrary(Pchar(trim(ADOQueryTmp.fieldbyname('formFile').AsString))); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,ADOQueryTmp.fieldbyname('formID').AsInteger,0,0, + PChar(User_Id), + PChar(User_Name), + PChar(trim(ADOQueryTmp.fieldbyname('formpara').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formname').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara1').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara2').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara3').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara4').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara5').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara6').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara7').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara8').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara9').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara10').AsString)), + PChar(ConDateBaseString) + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('dllname')); + end; + +end; + +procedure TFormMain.Panel2Click(Sender: TObject); +var + CanQuit:Boolean; +begin + sendmessage(newh,1034,4,0); + if application.MessageBox('ȷҪ˳ǰϵͳ?','ʾ',mb_yesno+ mb_IconQuestion)<>IDYES then Exit; + ADOConnection1.Close; + Close; +end; + +procedure TFormMain.Panel3Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + // showMessage(intTostr(application.Handle)); + ADOConnection1.Connected:=False; + ADOConnection1.Connected:=True; + { with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(User_Id)+''''); + Open; + end; + if Trim(ADOQueryTmp.FieldByName('BanZu').AsString)='' then + begin + Application.MessageBox('ǰ¼˰Ϊգ','ʾ',0); + Exit; + end; } + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_ModuleSub where ModuleSubID=''97'' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + Application.MessageBox('ûòֺϲģ飡','ʾϢ',MB_ICONERROR); + Exit; + end; + Th := LoadLibrary(Pchar(trim(ADOQueryTmp.fieldbyname('formFile').AsString))); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,ADOQueryTmp.fieldbyname('formID').AsInteger,0,0, + PChar(User_Id), + PChar(User_Name), + PChar(trim(ADOQueryTmp.fieldbyname('formpara').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formname').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara1').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara2').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara3').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara4').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara5').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara6').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara7').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara8').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara9').AsString)), + PChar(trim(ADOQueryTmp.fieldbyname('formpara10').AsString)), + PChar(ConDateBaseString) + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('dllname')); + end; + +end; + + +end. + + + diff --git a/码表/CAKL67QN..pdf b/码表/CAKL67QN..pdf new file mode 100644 index 0000000..09741ba Binary files /dev/null and b/码表/CAKL67QN..pdf differ diff --git a/码表/JCYData.INI b/码表/JCYData.INI new file mode 100644 index 0000000..2eaff97 --- /dev/null +++ b/码表/JCYData.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com1 +=9600 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/码表/JCYData.cfg b/码表/JCYData.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/码表/JCYData.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/码表/JCYData.dof b/码表/JCYData.dof new file mode 100644 index 0000000..df64bca --- /dev/null +++ b/码表/JCYData.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=E:\ѧ\\Ŀ10\֮\ӳ\Project1.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= diff --git a/码表/JCYData.dpr b/码表/JCYData.dpr new file mode 100644 index 0000000..2463156 --- /dev/null +++ b/码表/JCYData.dpr @@ -0,0 +1,35 @@ +library JCYData; + +{ Important note about DLL memory management: ShareMem must be the + first unit in your library's USES clause AND your project's (select + Project-View Source) USES clause if your DLL exports any procedures or + functions that pass strings as parameters or function results. This + applies to all strings passed to and from your DLL--even those that + are nested in records and classes. ShareMem is the interface unit to + the BORLNDMM.DLL shared memory manager, which must be deployed along + with your DLL. To avoid using BORLNDMM.DLL, pass string information + using PChar or ShortString parameters. } + + + +uses + SysUtils, + WinTypes, + WinProcs, + Classes, + U_EleData in 'U_EleData.pas', + U_HexFunction in 'U_HexFunction.pas', + U_iniParam in 'U_iniParam.pas', + U_DataModule_COM in 'U_DataModule_COM.pas' {DataModule_COM: TDataModule}; + +{$R *.res} +procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +begin + DLLProc := @DLLEnterPoint; + DllEnterPoint(DLL_PROCESS_ATTACH); +end; +exports + CommOpen, + CommClose; +begin +end. diff --git a/码表/JCYData.res b/码表/JCYData.res new file mode 100644 index 0000000..e84b2e4 Binary files /dev/null and b/码表/JCYData.res differ diff --git a/码表/Project1.cfg b/码表/Project1.cfg new file mode 100644 index 0000000..0ee74bb --- /dev/null +++ b/码表/Project1.cfg @@ -0,0 +1,38 @@ +-$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"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/码表/Project1.dof b/码表/Project1.dof new file mode 100644 index 0000000..df64bca --- /dev/null +++ b/码表/Project1.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=E:\ѧ\\Ŀ10\֮\ӳ\Project1.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= diff --git a/码表/Project1.dpr b/码表/Project1.dpr new file mode 100644 index 0000000..513a1dd --- /dev/null +++ b/码表/Project1.dpr @@ -0,0 +1,13 @@ +program Project1; + +uses + Forms, + Unit1 in 'Unit1.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/码表/Project1.res b/码表/Project1.res new file mode 100644 index 0000000..e84b2e4 Binary files /dev/null and b/码表/Project1.res differ diff --git a/码表/Project1.~exe b/码表/Project1.~exe new file mode 100644 index 0000000..369daeb Binary files /dev/null and b/码表/Project1.~exe differ diff --git a/码表/ProjectGroup1.bpg b/码表/ProjectGroup1.bpg new file mode 100644 index 0000000..7325514 --- /dev/null +++ b/码表/ProjectGroup1.bpg @@ -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 = Project1.exe JCYData.dll +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +Project1.exe: Project1.dpr + $(DCC) + +JCYData.dll: JCYData.dpr + $(DCC) + + diff --git a/码表/ProjectGroup1.~bpg b/码表/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c83834 --- /dev/null +++ b/码表/ProjectGroup1.~bpg @@ -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 = Project1.exe JZCRS323C.dll +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +Project1.exe: Project1.dpr + $(DCC) + +JZCRS323C.dll: JZCRS323C.dpr + $(DCC) + + diff --git a/码表/U_DataModule_COM.dfm b/码表/U_DataModule_COM.dfm new file mode 100644 index 0000000..32e72e0 --- /dev/null +++ b/码表/U_DataModule_COM.dfm @@ -0,0 +1,43 @@ +object DataModule_COM: TDataModule_COM + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 192 + Top = 130 + Height = 226 + Width = 309 + object Comm1: TComm + CommName = 'COM2' + BaudRate = 9600 + ParityCheck = False + Outx_CtsFlow = False + Outx_DsrFlow = False + DtrControl = DtrEnable + DsrSensitivity = False + TxContinueOnXoff = True + Outx_XonXoffFlow = True + Inx_XonXoffFlow = True + ReplaceWhenParityError = False + IgnoreNullChar = False + RtsControl = RtsEnable + XonLimit = 500 + XoffLimit = 500 + ByteSize = _8 + Parity = None + StopBits = _1 + XonChar = #17 + XoffChar = #19 + ReplacedChar = #0 + ReadIntervalTimeout = 100 + ReadTotalTimeoutMultiplier = 0 + ReadTotalTimeoutConstant = 0 + WriteTotalTimeoutMultiplier = 0 + WriteTotalTimeoutConstant = 0 + OnReceiveData = Comm1ReceiveData + Left = 100 + Top = 76 + end + object Timer1: TTimer + Left = 172 + Top = 84 + end +end diff --git a/码表/U_DataModule_COM.pas b/码表/U_DataModule_COM.pas new file mode 100644 index 0000000..a991f7d --- /dev/null +++ b/码表/U_DataModule_COM.pas @@ -0,0 +1,69 @@ +unit U_DataModule_COM; + +interface + +uses + SysUtils, Classes, SPComm, ExtCtrls,strUtils,shlobj,Windows; +var + sReceiveData:string; + mhandle:hwnd; + fhNum1:double; + fhnum2:double; + +type + TDataModule_COM = class(TDataModule) + Comm1: TComm; + Timer1: TTimer; + procedure DataModuleDestroy(Sender: TObject); + procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer; + BufferLength: Word); + private + { Private declarations } + public + { Public declarations } + end; + CONST + IsRecHex=1; + +var + DataModule_COM: TDataModule_COM; + +implementation +uses U_HexFunction; +{$R *.dfm} + +procedure TDataModule_COM.DataModuleDestroy(Sender: TObject); +begin + DataModule_COM:=nil; +end; + +procedure TDataModule_COM.Comm1ReceiveData(Sender: TObject; + Buffer: Pointer; BufferLength: Word); +var + str :string; + str1,str2:string; + i1,i2:integer; + num1,num2:integer; + fRate,aaa:double; +begin + try + SetLength(Str,BufferLength); + move(buffer^,pchar(@Str[1])^,bufferlength); + IF IsRecHex=1 THEN + sReceiveData:=trim(StrToHexStr(Str)) + else + sReceiveData:=trim(Str); + IF length(trim(sReceiveData))>=14 then + begin + str1:=Copy(sReceiveData,1,12); + fhNum1:=strtofloat(HexStrToStr(str1)); + num1:=strtoint(floattostr(fhNum1*100000)); + str1:=Copy(sReceiveData,15,2); + IF str1='4D' then num2:=0 else num2:=1; + postmessage(mhandle,1301,num1,num2); + end; + except + end; +end; + +end. diff --git a/码表/U_EleData.pas b/码表/U_EleData.pas new file mode 100644 index 0000000..16af47c --- /dev/null +++ b/码表/U_EleData.pas @@ -0,0 +1,99 @@ +unit U_EleData; + +interface +uses + SysUtils,Windows,forms,Spcomm, shlobj,ExtCtrls,strUtils; + + + + function SendString(str: string):integer; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;export;stdcall; + function CommClose(sCommName:PAnsiChar):integer;export;stdcall; + function jsDecimalRate(frate:integer):double; + + CONST + sendml='777730303030302E34306B670D0A'; +implementation +uses U_HexFunction,U_iniParam,U_DataModule_COM; + + +function CommClose(sCommName:PAnsiChar):integer;export;stdcall; +begin + result:=0; + try + if not Assigned(DataModule_COM) then + DataModule_COM:=TDataModule_COM.Create(Application); + DataModule_COM.Comm1.StopComm; + result:=1; + except + end; + +end; + +function jsDecimalRate(frate:integer):double; +var + i:integer; + num:double; +begin + num:=1; + i:=1; + try + while i<= frate do + begin + num:=num / 10; + i:=i+1; + end; + finally + result:=num; + end; +end; + +function SendString(str: string):integer; +var + str1:string; +begin + result:=0; + try + IF IsRecHex=1 then + str1:= HexStrToStr(str) + else + str1:= str; + str1:= HexStrToStr(str); + DataModule_COM.Comm1.WriteCommData(Pchar(str1),Length(str1)); + result:=1; + except + end; +end; + +function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;export;stdcall; +begin + if IsINIFile()then + ReadINIFile() + else + WriteINIFile(); + result:=0; + if not Assigned(DataModule_COM) then + DataModule_COM:=TDataModule_COM.Create(Application); + try + with DataModule_COM do + begin + mhandle:= fhandle; + Comm1.CommName:=trim(fCommName); + Comm1.BaudRate:=fBaudRate; + Comm1.Parity:=TParity(fParity); + if fByteSize=5 then Comm1.ByteSize := _5 + else if fByteSize=6 then Comm1.ByteSize := _6 + else if fByteSize=7 then Comm1.ByteSize := _7 + else if fByteSize=8 then Comm1.ByteSize := _8; + Comm1.StopBits:= TStopBits(fStopBits); + Comm1.ReadIntervalTimeout:=fTimes; + Comm1.StartComm; + end; + result:=1; + except + end; +end; + +end. diff --git a/码表/U_HexFunction.pas b/码表/U_HexFunction.pas new file mode 100644 index 0000000..fff6cea --- /dev/null +++ b/码表/U_HexFunction.pas @@ -0,0 +1,124 @@ +unit U_HexFunction; + +interface +uses + SysUtils,Windows,forms,Spcomm, shlobj,ExtCtrls; + function HexStrToStr(const S:string):string; // ʮתַ + function StrToHexStr(const S:string):string; + function bintoint01(s: string): Double; //תʮ + function hextoint01(s: string): Integer; //ʮתʮ + Function intTobin01(Value :Integer): string; //ʮת + Function intTohex01(value :integer): string; //ʮתʮ +implementation +uses Math; + +Function intTohex01(value :integer) : string; +begin + result:=uppercase(format('%x',[value])); +end; +//ַתʮ +Function binToDec(Value :string) : string;//integer; +VAR + str : String; + Int : Integer; + i : integer; +BEGIN + Str := UpperCase(Value); + Int := 0; + FOR i := 1 TO Length(str) DO + Int := Int * 2+ ORD(str[i]) - 48; + Result := IntToStr(Int); +end; + +//ʮת һ +function mod_num(n1,n2:integer):integer;//ȡ +begin + result:=n1-n1 div n2*n2 +end; +//ʮת +function reverse(s:String):String;//ȡ +Var + i,num:Integer; + st:String; +begin + num:=Length(s); + st:=''; + For i:=num DownTo 1 do + Begin + st:=st+s[i]; + End; + Result:=st; +end; + +//ʮת +Function intTobin01(Value:Integer) : string; +Var + ST:String; + N:Integer; +Begin + ST:=''; + n:=value; + While n>=2 Do + Begin + st:=st+IntToStr(mod_num(n,2)); + n:=n div 2; + End; + st:=st+IntToStr(n); + Result:=reverse(st); +End; +function HexStrToStr(const S:string):string; +//16ַתַ +var + t:Integer; + ts:string; + M,Code:Integer; +begin + t:=1; + Result:=''; + while t<=Length(S) do + begin //xlh 2006.10.21 + while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) do + inc(t); + if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then + ts:='$'+S[t] + else + ts:='$'+S[t]+S[t+1]; + Val(ts,M,Code); + if Code=0 then + Result:=Result+Chr(M); + inc(t,2); + end; +end; + +function StrToHexStr(const S:string):string; +//ַת16ַ +var + I:Integer; +begin + for I:=1 to Length(S) do + begin + if I=1 then + Result:=IntToHex(Ord(S[1]),2) + else Result:=Result+IntToHex(Ord(S[I]),2); + end; +end; + + +//ʮ(S)-->>ʮ(I) +function hextoint01(s: string): Integer; +begin //$16 + Result:=StrToInt('$'+s); +end; + + +//(S)-->>ʮ(D) [д:Jey] +function bintoint01(s: string): Double; +begin + while Length(s) <>0 do + begin //2^(-1)η + if s[1]='1' then Result:=Result+power(2,Length(s)-1); + s:=Copy(s,2,Length(s)); + end +end; + +end. diff --git a/码表/U_JcyData.pas b/码表/U_JcyData.pas new file mode 100644 index 0000000..42ffa4c --- /dev/null +++ b/码表/U_JcyData.pas @@ -0,0 +1,141 @@ +unit U_JcyData; + +interface +uses + SysUtils,Windows,forms,Spcomm, shlobj,ExtCtrls,MSCommLib_TLB; + +type + TEventHandlers = class(TForm) { һ} + procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer; + BufferLength: Word); + procedure Timer1Timer(Sender: TObject); +end; + + +var + EvHandler:TEventHandlers; + Comm1:TComm; + MSComm1: TMSComm; + time2:TTimer; + sReceiveData:string; + mhandle:hwnd; + + function SendString(str: string):integer; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;export;stdcall; + function CommClose(sCommName:PAnsiChar):integer;export;stdcall; + + + CONST + sendml='55AA02000001'; + IsRecHex=1; +implementation +uses U_HexFunction; + +function CommClose(sCommName:PAnsiChar):integer;export;stdcall; +begin + if Comm1<>nil then + begin + Comm1.StopComm; + Comm1.Free; + time2.Free; + end; +end; + +procedure TEventHandlers.Timer1Timer(Sender: TObject); +var + str1,str2:string; +begin + try + SendString(sendml); + except + end; +end; + +procedure TEventHandlers.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; + BufferLength: Word); +var str :string; + str1,str2:string; + i1,i2:integer; +begin + try + + SetLength(Str,BufferLength); + move(buffer^,pchar(@Str[1])^,bufferlength); + IF IsRecHex=1 THEN + sReceiveData:=StrToHexStr(Str) + else + sReceiveData:=Str; + if (length(sReceiveData)=24) and (trim(Copy(sReceiveData,1,4))='55AA') then + begin + str1:=trim(Copy(sReceiveData,9,2)); + str2:=trim(Copy(sReceiveData,11,6)); + if IsRecHex=1 THEN + begin + i1:= hextoint16(str1); + i2:= hextoint16(str2); + end + else + begin + i1:= trunc(hextoint10(str1)); + i2:= trunc(hextoint10(str2)); + end; + postmessage(mhandle,1201,I1,I2); + // PurgeComm(Comm1.Handle, PURGE_RXCLEAR );//ͻ + // PurgeComm(Comm1.Handle,PURGE_TXCLEAR );//ͻ + end + else + begin + + end; + except + end; +end; + +function SendString(str: string):integer; +var + str1:string; +begin + result:=0; + try + IF IsRecHex=1 then + str1:= HexStrToStr(str) + else + str1:= str; + Comm1.WriteCommData(Pchar(str1),Length(str1)); + result:=1; + except + end; +end; + + +function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;export;stdcall; +begin + result:=0; + try + mhandle:= fhandle; + Comm1:=TComm.Create(Application); + Time2:=TTimer.Create(Application); + // MSComm1:=TMSComm.Create(self); + Comm1.CommName:=trim(sCommName); + Comm1.BaudRate:= 19200; + Comm1.Parity:=TParity(0); + Comm1.ByteSize:= TByteSize(3); + Comm1.StopBits:= TStopBits(0); + Comm1.Outx_XonXoffFlow:=false; + Comm1.Inx_XonXoffFlow:=false; + Comm1.OnReceiveData:=EvHandler.Comm1ReceiveData; + Comm1.StartComm; + time2.Enabled:=false; + time2.Interval:=IntTime; + time2.OnTimer:= EvHandler.Timer1Timer; + time2.Enabled:=true; + result:=1; + except + Comm1.free; + Time2.Free; + end; +end; + +end. diff --git a/码表/U_Jcyform.dfm b/码表/U_Jcyform.dfm new file mode 100644 index 0000000..3101b5c --- /dev/null +++ b/码表/U_Jcyform.dfm @@ -0,0 +1,50 @@ +object frmJcyform: TfrmJcyform + Left = 192 + Top = 112 + Width = 696 + Height = 480 + Caption = 'frmJcyform' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object Comm1: TComm + CommName = 'COM2' + BaudRate = 9600 + ParityCheck = False + Outx_CtsFlow = False + Outx_DsrFlow = False + DtrControl = DtrEnable + DsrSensitivity = False + TxContinueOnXoff = True + Outx_XonXoffFlow = True + Inx_XonXoffFlow = True + ReplaceWhenParityError = False + IgnoreNullChar = False + RtsControl = RtsEnable + XonLimit = 500 + XoffLimit = 500 + ByteSize = _8 + Parity = None + StopBits = _1 + XonChar = #17 + XoffChar = #19 + ReplacedChar = #0 + ReadIntervalTimeout = 100 + ReadTotalTimeoutMultiplier = 0 + ReadTotalTimeoutConstant = 0 + WriteTotalTimeoutMultiplier = 0 + WriteTotalTimeoutConstant = 0 + Left = 216 + Top = 120 + end + object Timer1: TTimer + Left = 276 + Top = 120 + end +end diff --git a/码表/U_Jcyform.pas b/码表/U_Jcyform.pas new file mode 100644 index 0000000..97d1f44 --- /dev/null +++ b/码表/U_Jcyform.pas @@ -0,0 +1,26 @@ +unit U_Jcyform; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, SPComm; + +type + TfrmJcyform = class(TForm) + Comm1: TComm; + Timer1: TTimer; + private + { Private declarations } + public + { Public declarations } + end; + +var + frmJcyform: TfrmJcyform; + +implementation + +{$R *.dfm} + +end. diff --git a/码表/U_iniFile.pas b/码表/U_iniFile.pas new file mode 100644 index 0000000..0da13d5 --- /dev/null +++ b/码表/U_iniFile.pas @@ -0,0 +1,67 @@ +unit U_iniFile; + +interface +uses + IniFiles,SysUtils,windows,Forms; +var + Filename:string; //ļ + inifstr1:string; + inifstr2:string; + inifstr3:string; + inifstr4:string; + Function IsINIFile():Boolean; //жInIļǷ + + procedure ReadINIFile(); +// procedure WriteINIFile(); +implementation +uses U_PublicStr,U_PublicDllFunction; +////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + fIniFile:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC'; + fIniFile:=Tinifile.create(FileName); + inifstr1:=fIniFile.ReadString('SERVER', 'X1', ''); + inifstr2:=fIniFile.ReadString('SERVER', 'X2', ''); + inifstr3:=fIniFile.ReadString('SERVER', 'X3', ''); + inifstr4:=fIniFile.ReadString('SERVER', 'X4', ''); + inifstr1:=trim(GetDecString(inifstr1)); + inifstr2:=trim(GetDecString(inifstr2)); + inifstr3:=trim(GetDecString(inifstr3)); + inifstr4:=trim(GetDecString(inifstr4)); + fIniFile.Free; +end; +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +{procedure WriteINIFile(); +var + fIniFile:Tinifile; //ļ +begin + //FileName:=ExtractFilePath(Application.ExeName)+'DATACLIENT.DBG'; + fIniFile:=Tinifile.create(FilePath); + fIniFile.ReadString('SERVER', 'SERVER',trim(Server1)); + fIniFile.ReadString('SERVER', 'DTBASE',trim(DTBase1)); + fIniFile.ReadString('SERVER', 'USER',trim(User1)); + fIniFile.ReadString('SERVER', 'PASSWORD',trim(Pswd1)); + fIniFile.Free; +end; +} +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// +Function IsINIFile():Boolean; +begin + FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC'; + if FileExists(FileName) then + Result:=true + else + Result:=false; +end; + +end. diff --git a/码表/U_iniParam.pas b/码表/U_iniParam.pas new file mode 100644 index 0000000..46ab16e --- /dev/null +++ b/码表/U_iniParam.pas @@ -0,0 +1,87 @@ +//////////////////////////////////////////////////////////////////////////////// +// ԴƣU_iniParam.pas +// Ȩͨ޹˾ Ȩ +// ϵͳƣͨӡȾERPҵϵͳ +// ģƣ +// ˵ƻģiniļ +// ߣٻƽ +// ˣ +//////////////////////////////////////////////////////////////////////////////// +unit U_iniParam; + +interface +uses + IniFiles,SysUtils; +var + Filename:string; //ļ + pSysType:string; //ϵͳ + pVerType:string; //汾 // or + pServerIp:string; //IP + pDyeType:string; //Ⱦ + + fCommName:string; + fBaudRate:integer; + fParity:integer; + fByteSize:integer; + fStopBits:integer; + fTimes:integer; + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI'; + programIni:=Tinifile.create(FileName); + fCommName:=programIni.ReadString('ϵͳ','ں','COM1'); + fBaudRate:=programIni.ReadInteger('ϵͳ','',4800); + fParity:=programIni.ReadInteger('ϵͳ','Уλ',0); + fByteSize:=programIni.ReadInteger('ϵͳ','λ',8); + fStopBits:=programIni.ReadInteger('ϵͳ','ֹͣλ',0); + fTimes:= programIni.ReadInteger('ϵͳ','Ƶ',100); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI'; + programIni:=Tinifile.create(FileName); + fCommName:='com1'; + fBaudRate:=4800; + fParity:=0; + fByteSize:=8; + fStopBits:=0; + fTimes:=100; + + programIni.WriteString('ϵͳ','ں',fCommName); + programIni.WriteInteger('ϵͳ','',fBaudRate); + programIni.WriteInteger('ϵͳ','Уλ',fParity); + programIni.WriteInteger('ϵͳ','λ',fByteSize); + programIni.WriteInteger('ϵͳ','ֹͣλ',fStopBits); + programIni.WriteInteger('ϵͳ','Ƶ',fTimes); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; + +end. diff --git a/码表/Unit1.dfm b/码表/Unit1.dfm new file mode 100644 index 0000000..574b161 --- /dev/null +++ b/码表/Unit1.dfm @@ -0,0 +1,150 @@ +object Form1: TForm1 + Left = 437 + Top = 285 + Width = 621 + Height = 395 + BorderIcons = [biSystemMenu] + Caption = 'TEST' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 605 + Height = 357 + Align = alClient + TabOrder = 0 + object Label1: TLabel + Left = 20 + Top = 76 + Width = 24 + Height = 12 + Caption = #25968#25454 + end + object Label2: TLabel + Left = 76 + Top = 252 + Width = 24 + Height = 12 + Caption = #31471#21475 + end + object Label3: TLabel + Left = 20 + Top = 104 + Width = 24 + Height = 12 + Caption = #25968#25454 + end + object ComboBox1: TComboBox + Left = 112 + Top = 248 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + 'com1' + 'com2' + 'com3' + 'com4' + 'com5' + 'com6') + end + object Edit1: TEdit + Left = 56 + Top = 72 + Width = 145 + Height = 20 + Enabled = False + TabOrder = 1 + end + object Button1: TButton + Left = 324 + Top = 60 + Width = 75 + Height = 25 + Caption = #25171#24320#20018#21475'1' + TabOrder = 2 + OnClick = Button1Click + end + object Edit2: TEdit + Left = 56 + Top = 101 + Width = 145 + Height = 20 + TabOrder = 3 + end + object Button3: TButton + Left = 294 + Top = 96 + Width = 75 + Height = 25 + Caption = #35835#21462 + TabOrder = 4 + OnClick = Button3Click + end + object Button2: TButton + Left = 394 + Top = 64 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button2Click + end + object Button4: TButton + Left = 212 + Top = 100 + Width = 75 + Height = 25 + Caption = #25171#24320 + TabOrder = 6 + OnClick = Button4Click + end + object Edit3: TEdit + Left = 200 + Top = 72 + Width = 41 + Height = 20 + TabOrder = 7 + end + end + object Comm1: TComm + CommName = 'COM2' + BaudRate = 9600 + ParityCheck = False + Outx_CtsFlow = False + Outx_DsrFlow = False + DtrControl = DtrEnable + DsrSensitivity = False + TxContinueOnXoff = True + Outx_XonXoffFlow = True + Inx_XonXoffFlow = True + ReplaceWhenParityError = False + IgnoreNullChar = False + RtsControl = RtsEnable + XonLimit = 500 + XoffLimit = 500 + ByteSize = _8 + Parity = None + StopBits = _1 + XonChar = #17 + XoffChar = #19 + ReplacedChar = #0 + ReadIntervalTimeout = 100 + ReadTotalTimeoutMultiplier = 0 + ReadTotalTimeoutConstant = 0 + WriteTotalTimeoutMultiplier = 0 + WriteTotalTimeoutConstant = 0 + Left = 332 + Top = 184 + end +end diff --git a/码表/Unit1.pas b/码表/Unit1.pas new file mode 100644 index 0000000..ab2a6b5 --- /dev/null +++ b/码表/Unit1.pas @@ -0,0 +1,99 @@ +unit Unit1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, OleCtrls, SPComm, ExtCtrls; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JCYData.DLL'; +type + TForm1 = class(TForm) + Panel1: TPanel; + ComboBox1: TComboBox; + Edit1: TEdit; + Label1: TLabel; + Label2: TLabel; + Button1: TButton; + Edit2: TEdit; + Button3: TButton; + Button2: TButton; + Label3: TLabel; + Button4: TButton; + Comm1: TComm; + Edit3: TEdit; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + + private + procedure On1201(Var Message:Tmessage);Message 1201; + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} +procedure TForm1.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + Edit1.Text:= floattostr(i1/100000 ); + IF i2=0 then edit3.Text:='M' else edit3.Text:='Y'; +end; + +procedure TForm1.Button1Click(Sender: TObject); +begin + + if CommOpen(Form1.Handle,pchar(trim(ComboBox1.Text)),500,1)<1 then + begin + showmessage(''); + end + else + begin + end; +end; + +procedure TForm1.Button2Click(Sender: TObject); +begin + CommClose(pchar('com2')); +end; + +procedure TForm1.Button3Click(Sender: TObject); +var + num1,num2:double; + i:integer; + str1:string; +begin + // SetLength(str1, 255); + if GetCommData(Form1.Handle,num1,num2,i)>0 then + begin + Edit2.Text:= floattostr(num1 ); + // Edit2.Text:= floattostr(num2 ); + end; + +end; + +procedure TForm1.Button4Click(Sender: TObject); +begin + if CommOpen(Form1.Handle,pchar(trim(ComboBox1.Text)),500,0)<1 then + begin + showmessage(''); + end; +end; + +end. diff --git a/贸易管理/AES.pas b/贸易管理/AES.pas new file mode 100644 index 0000000..3b8432d --- /dev/null +++ b/贸易管理/AES.pas @@ -0,0 +1,317 @@ +(**************************************************) + +unit AES; + +interface + +uses + SysUtils, Classes, Math, ElAES; + +type + TKeyBit = (kb128, kb192, kb256); + +function StrToHex(Value: string): string; +function HexToStr(Value: string): string; +function EncryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +function DecryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +function EncryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +function DecryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +procedure EncryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +procedure DecryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); + +implementation + +function StrToHex(Value: string): string; +var + I: Integer; +begin + Result := ''; + for I := 1 to Length(Value) do + Result := Result + IntToHex(Ord(Value[I]), 2); +end; + +function HexToStr(Value: string): string; +var + I: Integer; +begin + Result := ''; + for I := 1 to Length(Value) do + begin + if ((I mod 2) = 1) then + Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2))); + end; +end; + +{ -- ַܺ Ĭϰ 128 λܳ׼ -- } +function EncryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +var + SS, DS: TStringStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + Result := ''; + SS := TStringStream.Create(Value); + DS := TStringStream.Create(''); + try + Size := SS.Size; + DS.WriteBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey128, DS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey192, DS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(SS, 0, AESKey256, DS); + end; + Result := StrToHex(DS.DataString); + finally + SS.Free; + DS.Free; + end; +end; + +{ -- ַܺ Ĭϰ 128 λܳ׽ -- } +function DecryptString(Value: string; Key: string; + KeyBit: TKeyBit = kb128): string; +var + SS, DS: TStringStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + Result := ''; + SS := TStringStream.Create(HexToStr(Value)); + DS := TStringStream.Create(''); + try + Size := SS.Size; + SS.ReadBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS); + end; + Result := DS.DataString; + finally + SS.Free; + DS.Free; + end; +end; + +{ -- ܺ Ĭϰ 128 λܳ׽ -- } +function EncryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +var + Count: Int64; + OutStrm: TStream; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + OutStrm := TStream.Create; + Stream.Position := 0; + Count := Stream.Size; + OutStrm.Write(Count, SizeOf(Count)); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm); + end; + Result := OutStrm; + finally + OutStrm.Free; + end; +end; + +{ -- ܺ Ĭϰ 128 λܳ׽ -- } +function DecryptStream(Stream: TStream; Key: string; + KeyBit: TKeyBit = kb128): TStream; +var + Count, OutPos: Int64; + OutStrm: TStream; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + OutStrm := TStream.Create; + Stream.Position := 0; + OutPos :=OutStrm.Position; + Stream.ReadBuffer(Count, SizeOf(Count)); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey128, OutStrm); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey192, OutStrm); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, + AESKey256, OutStrm); + end; + OutStrm.Size := OutPos + Count; + OutStrm.Position := OutPos; + Result := OutStrm; + finally + OutStrm.Free; + end; +end; + +{ -- ļܺ Ĭϰ 128 λܳ׽ -- } +procedure EncryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +var + SFS, DFS: TFileStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + SFS := TFileStream.Create(SourceFile, fmOpenRead); + try + DFS := TFileStream.Create(DestFile, fmCreate); + try + Size := SFS.Size; + DFS.WriteBuffer(Size, SizeOf(Size)); + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey128, DFS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey192, DFS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + EncryptAESStreamECB(SFS, 0, AESKey256, DFS); + end; + finally + DFS.Free; + end; + finally + SFS.Free; + end; +end; + +{ -- ļܺ Ĭϰ 128 λܳ׽ -- } +procedure DecryptFile(SourceFile, DestFile: string; + Key: string; KeyBit: TKeyBit = kb128); +var + SFS, DFS: TFileStream; + Size: Int64; + AESKey128: TAESKey128; + AESKey192: TAESKey192; + AESKey256: TAESKey256; +begin + SFS := TFileStream.Create(SourceFile, fmOpenRead); + try + SFS.ReadBuffer(Size, SizeOf(Size)); + DFS := TFileStream.Create(DestFile, fmCreate); + try + { -- 128 λܳ󳤶Ϊ 16 ַ -- } + if KeyBit = kb128 then + begin + FillChar(AESKey128, SizeOf(AESKey128), 0 ); + Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS); + end; + { -- 192 λܳ󳤶Ϊ 24 ַ -- } + if KeyBit = kb192 then + begin + FillChar(AESKey192, SizeOf(AESKey192), 0 ); + Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS); + end; + { -- 256 λܳ󳤶Ϊ 32 ַ -- } + if KeyBit = kb256 then + begin + FillChar(AESKey256, SizeOf(AESKey256), 0 ); + Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key))); + DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS); + end; + DFS.Size := Size; + finally + DFS.Free; + end; + finally + SFS.Free; + end; +end; +end. diff --git a/贸易管理/ElAES.pas b/贸易管理/ElAES.pas new file mode 100644 index 0000000..7a3e6c8 --- /dev/null +++ b/贸易管理/ElAES.pas @@ -0,0 +1,2488 @@ +(**************************************************) +(* *) +(* Advanced Encryption Standard (AES) *) +(* *) +(* Copyright (c) 1998-2001 *) +(* EldoS, Alexander Ionov *) +(* *) +(**************************************************) + +unit ElAES; + +interface + +uses + Classes, SysUtils; + +type + EAESError = class(Exception); + + PInteger = ^Integer; + + TAESBuffer = array [0..15] of byte; + TAESKey128 = array [0..15] of byte; + TAESKey192 = array [0..23] of byte; + TAESKey256 = array [0..31] of byte; + TAESExpandedKey128 = array [0..43] of longword; + TAESExpandedKey192 = array [0..53] of longword; + TAESExpandedKey256 = array [0..63] of longword; + + PAESBuffer =^TAESBuffer; + PAESKey128 =^TAESKey128; + PAESKey192 =^TAESKey192; + PAESKey256 =^TAESKey256; + PAESExpandedKey128 =^TAESExpandedKey128; + PAESExpandedKey192 =^TAESExpandedKey192; + PAESExpandedKey256 =^TAESExpandedKey256; + +// Key expansion routines for encryption + +procedure ExpandAESKeyForEncryption(const Key: TAESKey128; + var ExpandedKey: TAESExpandedKey128); overload; +procedure ExpandAESKeyForEncryption(const Key: TAESKey192; + var ExpandedKey: TAESExpandedKey192); overload; +procedure ExpandAESKeyForEncryption(const Key: TAESKey256; + var ExpandedKey: TAESExpandedKey256); overload; + +// Block encryption routines + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); overload; +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); overload; +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); overload; + +// Stream encryption routines (ECB mode) + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); overload; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); overload; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); overload; +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); overload; + +// Stream encryption routines (CBC mode) + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); overload; + +// Key transformation routines for decryption + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey128); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey128; + var ExpandedKey: TAESExpandedKey128); overload; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey192); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey192; + var ExpandedKey: TAESExpandedKey192); overload; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); overload; +procedure ExpandAESKeyForDecryption(const Key: TAESKey256; + var ExpandedKey: TAESExpandedKey256); overload; + +// Block decryption routines + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); overload; +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); overload; +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); overload; + +// Stream decryption routines (ECB mode) + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); overload; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); overload; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); overload; +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); overload; + +// Stream decryption routines (CBC mode) + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); overload; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); overload; +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); overload; + +resourcestring + SInvalidInBufSize = 'Invalid buffer size for decryption'; + SReadError = 'Stream read error'; + SWriteError = 'Stream write error'; + +implementation + +type + PLongWord = ^LongWord; + +function Min(A, B: integer): integer; +begin + if A < B then + Result := A + else + Result := B; +end; + +const + Rcon: array [1..30] of longword = ( + $00000001, $00000002, $00000004, $00000008, $00000010, $00000020, + $00000040, $00000080, $0000001B, $00000036, $0000006C, $000000D8, + $000000AB, $0000004D, $0000009A, $0000002F, $0000005E, $000000BC, + $00000063, $000000C6, $00000097, $00000035, $0000006A, $000000D4, + $000000B3, $0000007D, $000000FA, $000000EF, $000000C5, $00000091 + ); + + ForwardTable: array [0..255] of longword = ( + $A56363C6, $847C7CF8, $997777EE, $8D7B7BF6, $0DF2F2FF, $BD6B6BD6, $B16F6FDE, $54C5C591, + $50303060, $03010102, $A96767CE, $7D2B2B56, $19FEFEE7, $62D7D7B5, $E6ABAB4D, $9A7676EC, + $45CACA8F, $9D82821F, $40C9C989, $877D7DFA, $15FAFAEF, $EB5959B2, $C947478E, $0BF0F0FB, + $ECADAD41, $67D4D4B3, $FDA2A25F, $EAAFAF45, $BF9C9C23, $F7A4A453, $967272E4, $5BC0C09B, + $C2B7B775, $1CFDFDE1, $AE93933D, $6A26264C, $5A36366C, $413F3F7E, $02F7F7F5, $4FCCCC83, + $5C343468, $F4A5A551, $34E5E5D1, $08F1F1F9, $937171E2, $73D8D8AB, $53313162, $3F15152A, + $0C040408, $52C7C795, $65232346, $5EC3C39D, $28181830, $A1969637, $0F05050A, $B59A9A2F, + $0907070E, $36121224, $9B80801B, $3DE2E2DF, $26EBEBCD, $6927274E, $CDB2B27F, $9F7575EA, + $1B090912, $9E83831D, $742C2C58, $2E1A1A34, $2D1B1B36, $B26E6EDC, $EE5A5AB4, $FBA0A05B, + $F65252A4, $4D3B3B76, $61D6D6B7, $CEB3B37D, $7B292952, $3EE3E3DD, $712F2F5E, $97848413, + $F55353A6, $68D1D1B9, $00000000, $2CEDEDC1, $60202040, $1FFCFCE3, $C8B1B179, $ED5B5BB6, + $BE6A6AD4, $46CBCB8D, $D9BEBE67, $4B393972, $DE4A4A94, $D44C4C98, $E85858B0, $4ACFCF85, + $6BD0D0BB, $2AEFEFC5, $E5AAAA4F, $16FBFBED, $C5434386, $D74D4D9A, $55333366, $94858511, + $CF45458A, $10F9F9E9, $06020204, $817F7FFE, $F05050A0, $443C3C78, $BA9F9F25, $E3A8A84B, + $F35151A2, $FEA3A35D, $C0404080, $8A8F8F05, $AD92923F, $BC9D9D21, $48383870, $04F5F5F1, + $DFBCBC63, $C1B6B677, $75DADAAF, $63212142, $30101020, $1AFFFFE5, $0EF3F3FD, $6DD2D2BF, + $4CCDCD81, $140C0C18, $35131326, $2FECECC3, $E15F5FBE, $A2979735, $CC444488, $3917172E, + $57C4C493, $F2A7A755, $827E7EFC, $473D3D7A, $AC6464C8, $E75D5DBA, $2B191932, $957373E6, + $A06060C0, $98818119, $D14F4F9E, $7FDCDCA3, $66222244, $7E2A2A54, $AB90903B, $8388880B, + $CA46468C, $29EEEEC7, $D3B8B86B, $3C141428, $79DEDEA7, $E25E5EBC, $1D0B0B16, $76DBDBAD, + $3BE0E0DB, $56323264, $4E3A3A74, $1E0A0A14, $DB494992, $0A06060C, $6C242448, $E45C5CB8, + $5DC2C29F, $6ED3D3BD, $EFACAC43, $A66262C4, $A8919139, $A4959531, $37E4E4D3, $8B7979F2, + $32E7E7D5, $43C8C88B, $5937376E, $B76D6DDA, $8C8D8D01, $64D5D5B1, $D24E4E9C, $E0A9A949, + $B46C6CD8, $FA5656AC, $07F4F4F3, $25EAEACF, $AF6565CA, $8E7A7AF4, $E9AEAE47, $18080810, + $D5BABA6F, $887878F0, $6F25254A, $722E2E5C, $241C1C38, $F1A6A657, $C7B4B473, $51C6C697, + $23E8E8CB, $7CDDDDA1, $9C7474E8, $211F1F3E, $DD4B4B96, $DCBDBD61, $868B8B0D, $858A8A0F, + $907070E0, $423E3E7C, $C4B5B571, $AA6666CC, $D8484890, $05030306, $01F6F6F7, $120E0E1C, + $A36161C2, $5F35356A, $F95757AE, $D0B9B969, $91868617, $58C1C199, $271D1D3A, $B99E9E27, + $38E1E1D9, $13F8F8EB, $B398982B, $33111122, $BB6969D2, $70D9D9A9, $898E8E07, $A7949433, + $B69B9B2D, $221E1E3C, $92878715, $20E9E9C9, $49CECE87, $FF5555AA, $78282850, $7ADFDFA5, + $8F8C8C03, $F8A1A159, $80898909, $170D0D1A, $DABFBF65, $31E6E6D7, $C6424284, $B86868D0, + $C3414182, $B0999929, $772D2D5A, $110F0F1E, $CBB0B07B, $FC5454A8, $D6BBBB6D, $3A16162C + ); + + LastForwardTable: array [0..255] of longword = ( + $00000063, $0000007C, $00000077, $0000007B, $000000F2, $0000006B, $0000006F, $000000C5, + $00000030, $00000001, $00000067, $0000002B, $000000FE, $000000D7, $000000AB, $00000076, + $000000CA, $00000082, $000000C9, $0000007D, $000000FA, $00000059, $00000047, $000000F0, + $000000AD, $000000D4, $000000A2, $000000AF, $0000009C, $000000A4, $00000072, $000000C0, + $000000B7, $000000FD, $00000093, $00000026, $00000036, $0000003F, $000000F7, $000000CC, + $00000034, $000000A5, $000000E5, $000000F1, $00000071, $000000D8, $00000031, $00000015, + $00000004, $000000C7, $00000023, $000000C3, $00000018, $00000096, $00000005, $0000009A, + $00000007, $00000012, $00000080, $000000E2, $000000EB, $00000027, $000000B2, $00000075, + $00000009, $00000083, $0000002C, $0000001A, $0000001B, $0000006E, $0000005A, $000000A0, + $00000052, $0000003B, $000000D6, $000000B3, $00000029, $000000E3, $0000002F, $00000084, + $00000053, $000000D1, $00000000, $000000ED, $00000020, $000000FC, $000000B1, $0000005B, + $0000006A, $000000CB, $000000BE, $00000039, $0000004A, $0000004C, $00000058, $000000CF, + $000000D0, $000000EF, $000000AA, $000000FB, $00000043, $0000004D, $00000033, $00000085, + $00000045, $000000F9, $00000002, $0000007F, $00000050, $0000003C, $0000009F, $000000A8, + $00000051, $000000A3, $00000040, $0000008F, $00000092, $0000009D, $00000038, $000000F5, + $000000BC, $000000B6, $000000DA, $00000021, $00000010, $000000FF, $000000F3, $000000D2, + $000000CD, $0000000C, $00000013, $000000EC, $0000005F, $00000097, $00000044, $00000017, + $000000C4, $000000A7, $0000007E, $0000003D, $00000064, $0000005D, $00000019, $00000073, + $00000060, $00000081, $0000004F, $000000DC, $00000022, $0000002A, $00000090, $00000088, + $00000046, $000000EE, $000000B8, $00000014, $000000DE, $0000005E, $0000000B, $000000DB, + $000000E0, $00000032, $0000003A, $0000000A, $00000049, $00000006, $00000024, $0000005C, + $000000C2, $000000D3, $000000AC, $00000062, $00000091, $00000095, $000000E4, $00000079, + $000000E7, $000000C8, $00000037, $0000006D, $0000008D, $000000D5, $0000004E, $000000A9, + $0000006C, $00000056, $000000F4, $000000EA, $00000065, $0000007A, $000000AE, $00000008, + $000000BA, $00000078, $00000025, $0000002E, $0000001C, $000000A6, $000000B4, $000000C6, + $000000E8, $000000DD, $00000074, $0000001F, $0000004B, $000000BD, $0000008B, $0000008A, + $00000070, $0000003E, $000000B5, $00000066, $00000048, $00000003, $000000F6, $0000000E, + $00000061, $00000035, $00000057, $000000B9, $00000086, $000000C1, $0000001D, $0000009E, + $000000E1, $000000F8, $00000098, $00000011, $00000069, $000000D9, $0000008E, $00000094, + $0000009B, $0000001E, $00000087, $000000E9, $000000CE, $00000055, $00000028, $000000DF, + $0000008C, $000000A1, $00000089, $0000000D, $000000BF, $000000E6, $00000042, $00000068, + $00000041, $00000099, $0000002D, $0000000F, $000000B0, $00000054, $000000BB, $00000016 + ); + + InverseTable: array [0..255] of longword = ( + $50A7F451, $5365417E, $C3A4171A, $965E273A, $CB6BAB3B, $F1459D1F, $AB58FAAC, $9303E34B, + $55FA3020, $F66D76AD, $9176CC88, $254C02F5, $FCD7E54F, $D7CB2AC5, $80443526, $8FA362B5, + $495AB1DE, $671BBA25, $980EEA45, $E1C0FE5D, $02752FC3, $12F04C81, $A397468D, $C6F9D36B, + $E75F8F03, $959C9215, $EB7A6DBF, $DA595295, $2D83BED4, $D3217458, $2969E049, $44C8C98E, + $6A89C275, $78798EF4, $6B3E5899, $DD71B927, $B64FE1BE, $17AD88F0, $66AC20C9, $B43ACE7D, + $184ADF63, $82311AE5, $60335197, $457F5362, $E07764B1, $84AE6BBB, $1CA081FE, $942B08F9, + $58684870, $19FD458F, $876CDE94, $B7F87B52, $23D373AB, $E2024B72, $578F1FE3, $2AAB5566, + $0728EBB2, $03C2B52F, $9A7BC586, $A50837D3, $F2872830, $B2A5BF23, $BA6A0302, $5C8216ED, + $2B1CCF8A, $92B479A7, $F0F207F3, $A1E2694E, $CDF4DA65, $D5BE0506, $1F6234D1, $8AFEA6C4, + $9D532E34, $A055F3A2, $32E18A05, $75EBF6A4, $39EC830B, $AAEF6040, $069F715E, $51106EBD, + $F98A213E, $3D06DD96, $AE053EDD, $46BDE64D, $B58D5491, $055DC471, $6FD40604, $FF155060, + $24FB9819, $97E9BDD6, $CC434089, $779ED967, $BD42E8B0, $888B8907, $385B19E7, $DBEEC879, + $470A7CA1, $E90F427C, $C91E84F8, $00000000, $83868009, $48ED2B32, $AC70111E, $4E725A6C, + $FBFF0EFD, $5638850F, $1ED5AE3D, $27392D36, $64D90F0A, $21A65C68, $D1545B9B, $3A2E3624, + $B1670A0C, $0FE75793, $D296EEB4, $9E919B1B, $4FC5C080, $A220DC61, $694B775A, $161A121C, + $0ABA93E2, $E52AA0C0, $43E0223C, $1D171B12, $0B0D090E, $ADC78BF2, $B9A8B62D, $C8A91E14, + $8519F157, $4C0775AF, $BBDD99EE, $FD607FA3, $9F2601F7, $BCF5725C, $C53B6644, $347EFB5B, + $7629438B, $DCC623CB, $68FCEDB6, $63F1E4B8, $CADC31D7, $10856342, $40229713, $2011C684, + $7D244A85, $F83DBBD2, $1132F9AE, $6DA129C7, $4B2F9E1D, $F330B2DC, $EC52860D, $D0E3C177, + $6C16B32B, $99B970A9, $FA489411, $2264E947, $C48CFCA8, $1A3FF0A0, $D82C7D56, $EF903322, + $C74E4987, $C1D138D9, $FEA2CA8C, $360BD498, $CF81F5A6, $28DE7AA5, $268EB7DA, $A4BFAD3F, + $E49D3A2C, $0D927850, $9BCC5F6A, $62467E54, $C2138DF6, $E8B8D890, $5EF7392E, $F5AFC382, + $BE805D9F, $7C93D069, $A92DD56F, $B31225CF, $3B99ACC8, $A77D1810, $6E639CE8, $7BBB3BDB, + $097826CD, $F418596E, $01B79AEC, $A89A4F83, $656E95E6, $7EE6FFAA, $08CFBC21, $E6E815EF, + $D99BE7BA, $CE366F4A, $D4099FEA, $D67CB029, $AFB2A431, $31233F2A, $3094A5C6, $C066A235, + $37BC4E74, $A6CA82FC, $B0D090E0, $15D8A733, $4A9804F1, $F7DAEC41, $0E50CD7F, $2FF69117, + $8DD64D76, $4DB0EF43, $544DAACC, $DF0496E4, $E3B5D19E, $1B886A4C, $B81F2CC1, $7F516546, + $04EA5E9D, $5D358C01, $737487FA, $2E410BFB, $5A1D67B3, $52D2DB92, $335610E9, $1347D66D, + $8C61D79A, $7A0CA137, $8E14F859, $893C13EB, $EE27A9CE, $35C961B7, $EDE51CE1, $3CB1477A, + $59DFD29C, $3F73F255, $79CE1418, $BF37C773, $EACDF753, $5BAAFD5F, $146F3DDF, $86DB4478, + $81F3AFCA, $3EC468B9, $2C342438, $5F40A3C2, $72C31D16, $0C25E2BC, $8B493C28, $41950DFF, + $7101A839, $DEB30C08, $9CE4B4D8, $90C15664, $6184CB7B, $70B632D5, $745C6C48, $4257B8D0 + ); + + LastInverseTable: array [0..255] of longword = ( + $00000052, $00000009, $0000006A, $000000D5, $00000030, $00000036, $000000A5, $00000038, + $000000BF, $00000040, $000000A3, $0000009E, $00000081, $000000F3, $000000D7, $000000FB, + $0000007C, $000000E3, $00000039, $00000082, $0000009B, $0000002F, $000000FF, $00000087, + $00000034, $0000008E, $00000043, $00000044, $000000C4, $000000DE, $000000E9, $000000CB, + $00000054, $0000007B, $00000094, $00000032, $000000A6, $000000C2, $00000023, $0000003D, + $000000EE, $0000004C, $00000095, $0000000B, $00000042, $000000FA, $000000C3, $0000004E, + $00000008, $0000002E, $000000A1, $00000066, $00000028, $000000D9, $00000024, $000000B2, + $00000076, $0000005B, $000000A2, $00000049, $0000006D, $0000008B, $000000D1, $00000025, + $00000072, $000000F8, $000000F6, $00000064, $00000086, $00000068, $00000098, $00000016, + $000000D4, $000000A4, $0000005C, $000000CC, $0000005D, $00000065, $000000B6, $00000092, + $0000006C, $00000070, $00000048, $00000050, $000000FD, $000000ED, $000000B9, $000000DA, + $0000005E, $00000015, $00000046, $00000057, $000000A7, $0000008D, $0000009D, $00000084, + $00000090, $000000D8, $000000AB, $00000000, $0000008C, $000000BC, $000000D3, $0000000A, + $000000F7, $000000E4, $00000058, $00000005, $000000B8, $000000B3, $00000045, $00000006, + $000000D0, $0000002C, $0000001E, $0000008F, $000000CA, $0000003F, $0000000F, $00000002, + $000000C1, $000000AF, $000000BD, $00000003, $00000001, $00000013, $0000008A, $0000006B, + $0000003A, $00000091, $00000011, $00000041, $0000004F, $00000067, $000000DC, $000000EA, + $00000097, $000000F2, $000000CF, $000000CE, $000000F0, $000000B4, $000000E6, $00000073, + $00000096, $000000AC, $00000074, $00000022, $000000E7, $000000AD, $00000035, $00000085, + $000000E2, $000000F9, $00000037, $000000E8, $0000001C, $00000075, $000000DF, $0000006E, + $00000047, $000000F1, $0000001A, $00000071, $0000001D, $00000029, $000000C5, $00000089, + $0000006F, $000000B7, $00000062, $0000000E, $000000AA, $00000018, $000000BE, $0000001B, + $000000FC, $00000056, $0000003E, $0000004B, $000000C6, $000000D2, $00000079, $00000020, + $0000009A, $000000DB, $000000C0, $000000FE, $00000078, $000000CD, $0000005A, $000000F4, + $0000001F, $000000DD, $000000A8, $00000033, $00000088, $00000007, $000000C7, $00000031, + $000000B1, $00000012, $00000010, $00000059, $00000027, $00000080, $000000EC, $0000005F, + $00000060, $00000051, $0000007F, $000000A9, $00000019, $000000B5, $0000004A, $0000000D, + $0000002D, $000000E5, $0000007A, $0000009F, $00000093, $000000C9, $0000009C, $000000EF, + $000000A0, $000000E0, $0000003B, $0000004D, $000000AE, $0000002A, $000000F5, $000000B0, + $000000C8, $000000EB, $000000BB, $0000003C, $00000083, $00000053, $00000099, $00000061, + $00000017, $0000002B, $00000004, $0000007E, $000000BA, $00000077, $000000D6, $00000026, + $000000E1, $00000069, $00000014, $00000063, $00000055, $00000021, $0000000C, $0000007D + ); + +procedure ExpandAESKeyForEncryption(const Key: TAESKey128; var ExpandedKey: TAESExpandedKey128); +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 3] shl 24) or (ExpandedKey[I + 3] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 4] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 5] := ExpandedKey[I + 1] xor ExpandedKey[I + 4]; + ExpandedKey[I + 6] := ExpandedKey[I + 2] xor ExpandedKey[I + 5]; + ExpandedKey[I + 7] := ExpandedKey[I + 3] xor ExpandedKey[I + 6]; + Inc(I, 4); + until I >= 40; +end; + +procedure ExpandAESKeyForEncryption(const Key: TAESKey192; var ExpandedKey: TAESExpandedKey192); overload; +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + ExpandedKey[4] := PLongWord(@Key[16])^; + ExpandedKey[5] := PLongWord(@Key[20])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 5] shl 24) or (ExpandedKey[I + 5] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 6] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 7] := ExpandedKey[I + 1] xor ExpandedKey[I + 6]; + ExpandedKey[I + 8] := ExpandedKey[I + 2] xor ExpandedKey[I + 7]; + ExpandedKey[I + 9] := ExpandedKey[I + 3] xor ExpandedKey[I + 8]; + ExpandedKey[I + 10] := ExpandedKey[I + 4] xor ExpandedKey[I + 9]; + ExpandedKey[I + 11] := ExpandedKey[I + 5] xor ExpandedKey[I + 10]; + Inc(I, 6); + until I >= 46; +end; + +procedure ExpandAESKeyForEncryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); overload; +var + I, J: integer; + T: longword; + W0, W1, W2, W3: longword; +begin + ExpandedKey[0] := PLongWord(@Key[0])^; + ExpandedKey[1] := PLongWord(@Key[4])^; + ExpandedKey[2] := PLongWord(@Key[8])^; + ExpandedKey[3] := PLongWord(@Key[12])^; + ExpandedKey[4] := PLongWord(@Key[16])^; + ExpandedKey[5] := PLongWord(@Key[20])^; + ExpandedKey[6] := PLongWord(@Key[24])^; + ExpandedKey[7] := PLongWord(@Key[28])^; + I := 0; J := 1; + repeat + T := (ExpandedKey[I + 7] shl 24) or (ExpandedKey[I + 7] shr 8); + W0 := LastForwardTable[Byte(T)]; W1 := LastForwardTable[Byte(T shr 8)]; + W2 := LastForwardTable[Byte(T shr 16)]; W3 := LastForwardTable[Byte(T shr 24)]; + ExpandedKey[I + 8] := ExpandedKey[I] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))) xor Rcon[J]; + Inc(J); + ExpandedKey[I + 9] := ExpandedKey[I + 1] xor ExpandedKey[I + 8]; + ExpandedKey[I + 10] := ExpandedKey[I + 2] xor ExpandedKey[I + 9]; + ExpandedKey[I + 11] := ExpandedKey[I + 3] xor ExpandedKey[I + 10]; + W0 := LastForwardTable[Byte(ExpandedKey[I + 11])]; + W1 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 8)]; + W2 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 16)]; + W3 := LastForwardTable[Byte(ExpandedKey[I + 11] shr 24)]; + ExpandedKey[I + 12] := ExpandedKey[I + 4] xor + (W0 xor ((W1 shl 8) or (W1 shr 24)) xor + ((W2 shl 16) or (W2 shr 16)) xor ((W3 shl 24) or (W3 shr 8))); + ExpandedKey[I + 13] := ExpandedKey[I + 5] xor ExpandedKey[I + 12]; + ExpandedKey[I + 14] := ExpandedKey[I + 6] xor ExpandedKey[I + 13]; + ExpandedKey[I + 15] := ExpandedKey[I + 7] xor ExpandedKey[I + 14]; + Inc(I, 8); + until I >= 52; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 9 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 11 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 10 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 11 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure EncryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[0]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[1]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[2]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[3]; + // performing transformation 13 times + // round 1 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // round 2 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 3 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 4 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 5 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 9 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 10 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 11 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 12 + W0 := ForwardTable[Byte(T1[0])]; W1 := ForwardTable[Byte(T1[1] shr 8)]; + W2 := ForwardTable[Byte(T1[2] shr 16)]; W3 := ForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := ForwardTable[Byte(T1[1])]; W1 := ForwardTable[Byte(T1[2] shr 8)]; + W2 := ForwardTable[Byte(T1[3] shr 16)]; W3 := ForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := ForwardTable[Byte(T1[2])]; W1 := ForwardTable[Byte(T1[3] shr 8)]; + W2 := ForwardTable[Byte(T1[0] shr 16)]; W3 := ForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := ForwardTable[Byte(T1[3])]; W1 := ForwardTable[Byte(T1[0] shr 8)]; + W2 := ForwardTable[Byte(T1[1] shr 16)]; W3 := ForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // round 13 + W0 := ForwardTable[Byte(T0[0])]; W1 := ForwardTable[Byte(T0[1] shr 8)]; + W2 := ForwardTable[Byte(T0[2] shr 16)]; W3 := ForwardTable[Byte(T0[3] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[52]; + W0 := ForwardTable[Byte(T0[1])]; W1 := ForwardTable[Byte(T0[2] shr 8)]; + W2 := ForwardTable[Byte(T0[3] shr 16)]; W3 := ForwardTable[Byte(T0[0] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[53]; + W0 := ForwardTable[Byte(T0[2])]; W1 := ForwardTable[Byte(T0[3] shr 8)]; + W2 := ForwardTable[Byte(T0[0] shr 16)]; W3 := ForwardTable[Byte(T0[1] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[54]; + W0 := ForwardTable[Byte(T0[3])]; W1 := ForwardTable[Byte(T0[0] shr 8)]; + W2 := ForwardTable[Byte(T0[1] shr 16)]; W3 := ForwardTable[Byte(T0[2] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[55]; + // last round of transformations + W0 := LastForwardTable[Byte(T1[0])]; W1 := LastForwardTable[Byte(T1[1] shr 8)]; + W2 := LastForwardTable[Byte(T1[2] shr 16)]; W3 := LastForwardTable[Byte(T1[3] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[56]; + W0 := LastForwardTable[Byte(T1[1])]; W1 := LastForwardTable[Byte(T1[2] shr 8)]; + W2 := LastForwardTable[Byte(T1[3] shr 16)]; W3 := LastForwardTable[Byte(T1[0] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[57]; + W0 := LastForwardTable[Byte(T1[2])]; W1 := LastForwardTable[Byte(T1[3] shr 8)]; + W2 := LastForwardTable[Byte(T1[0] shr 16)]; W3 := LastForwardTable[Byte(T1[1] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[58]; + W0 := LastForwardTable[Byte(T1[3])]; W1 := LastForwardTable[Byte(T1[0] shr 8)]; + W2 := LastForwardTable[Byte(T1[1] shr 16)]; W3 := LastForwardTable[Byte(T1[2] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[59]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey128); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 9 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey128; var ExpandedKey: TAESExpandedKey128); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey192); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 11 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey192; var ExpandedKey: TAESExpandedKey192); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); +var + I: integer; + U, F2, F4, F8, F9: longword; +begin + for I := 1 to 13 do + begin + F9 := ExpandedKey[I * 4]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 1]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 1] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 2]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 2] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + F9 := ExpandedKey[I * 4 + 3]; + U := F9 and $80808080; + F2 := ((F9 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F2 and $80808080; + F4 := ((F2 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + U := F4 and $80808080; + F8 := ((F4 and $7F7F7F7F) shl 1) xor ((U - (U shr 7)) and $1B1B1B1B); + F9 := F9 xor F8; + ExpandedKey[I * 4 + 3] := F2 xor F4 xor F8 xor + (((F2 xor F9) shl 24) or ((F2 xor F9) shr 8)) xor + (((F4 xor F9) shl 16) or ((F4 xor F9) shr 16)) xor ((F9 shl 8) or (F9 shr 24)); + end; +end; + +procedure ExpandAESKeyForDecryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + ExpandAESKeyForDecryption(ExpandedKey); +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey128; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[40]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[41]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[42]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[43]; + // performing transformations 9 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey192; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[48]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[49]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[50]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[51]; + // performing transformations 11 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 10 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 11 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +procedure DecryptAES(const InBuf: TAESBuffer; const Key: TAESExpandedKey256; + var OutBuf: TAESBuffer); +var + T0, T1: array [0..3] of longword; + W0, W1, W2, W3: longword; +begin + // initializing + T0[0] := PLongWord(@InBuf[0])^ xor Key[56]; + T0[1] := PLongWord(@InBuf[4])^ xor Key[57]; + T0[2] := PLongWord(@InBuf[8])^ xor Key[58]; + T0[3] := PLongWord(@InBuf[12])^ xor Key[59]; + // performing transformations 13 times + // round 1 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[52]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[53]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[54]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[55]; + // round 2 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[48]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[49]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[50]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[51]; + // round 3 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[44]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[45]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[46]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[47]; + // round 4 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[40]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[41]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[42]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[43]; + // round 5 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[36]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[37]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[38]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[39]; + // round 6 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[32]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[33]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[34]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[35]; + // round 7 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[28]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[29]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[30]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[31]; + // round 8 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[24]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[25]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[26]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[27]; + // round 9 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[20]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[21]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[22]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[23]; + // round 10 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[16]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[17]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[18]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[19]; + // round 11 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[12]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[13]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[14]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[15]; + // round 12 + W0 := InverseTable[Byte(T1[0])]; W1 := InverseTable[Byte(T1[3] shr 8)]; + W2 := InverseTable[Byte(T1[2] shr 16)]; W3 := InverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[8]; + W0 := InverseTable[Byte(T1[1])]; W1 := InverseTable[Byte(T1[0] shr 8)]; + W2 := InverseTable[Byte(T1[3] shr 16)]; W3 := InverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[9]; + W0 := InverseTable[Byte(T1[2])]; W1 := InverseTable[Byte(T1[1] shr 8)]; + W2 := InverseTable[Byte(T1[0] shr 16)]; W3 := InverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[10]; + W0 := InverseTable[Byte(T1[3])]; W1 := InverseTable[Byte(T1[2] shr 8)]; + W2 := InverseTable[Byte(T1[1] shr 16)]; W3 := InverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[11]; + // round 13 + W0 := InverseTable[Byte(T0[0])]; W1 := InverseTable[Byte(T0[3] shr 8)]; + W2 := InverseTable[Byte(T0[2] shr 16)]; W3 := InverseTable[Byte(T0[1] shr 24)]; + T1[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[4]; + W0 := InverseTable[Byte(T0[1])]; W1 := InverseTable[Byte(T0[0] shr 8)]; + W2 := InverseTable[Byte(T0[3] shr 16)]; W3 := InverseTable[Byte(T0[2] shr 24)]; + T1[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[5]; + W0 := InverseTable[Byte(T0[2])]; W1 := InverseTable[Byte(T0[1] shr 8)]; + W2 := InverseTable[Byte(T0[0] shr 16)]; W3 := InverseTable[Byte(T0[3] shr 24)]; + T1[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[6]; + W0 := InverseTable[Byte(T0[3])]; W1 := InverseTable[Byte(T0[2] shr 8)]; + W2 := InverseTable[Byte(T0[1] shr 16)]; W3 := InverseTable[Byte(T0[0] shr 24)]; + T1[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[7]; + // last round of transformations + W0 := LastInverseTable[Byte(T1[0])]; W1 := LastInverseTable[Byte(T1[3] shr 8)]; + W2 := LastInverseTable[Byte(T1[2] shr 16)]; W3 := LastInverseTable[Byte(T1[1] shr 24)]; + T0[0] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[0]; + W0 := LastInverseTable[Byte(T1[1])]; W1 := LastInverseTable[Byte(T1[0] shr 8)]; + W2 := LastInverseTable[Byte(T1[3] shr 16)]; W3 := LastInverseTable[Byte(T1[2] shr 24)]; + T0[1] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[1]; + W0 := LastInverseTable[Byte(T1[2])]; W1 := LastInverseTable[Byte(T1[1] shr 8)]; + W2 := LastInverseTable[Byte(T1[0] shr 16)]; W3 := LastInverseTable[Byte(T1[3] shr 24)]; + T0[2] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[2]; + W0 := LastInverseTable[Byte(T1[3])]; W1 := LastInverseTable[Byte(T1[2] shr 8)]; + W2 := LastInverseTable[Byte(T1[1] shr 16)]; W3 := LastInverseTable[Byte(T1[0] shr 24)]; + T0[3] := (W0 xor ((W1 shl 8) or (W1 shr 24)) xor ((W2 shl 16) or (W2 shr 16)) + xor ((W3 shl 24) or (W3 shr 8))) xor Key[3]; + // finalizing + PLongWord(@OutBuf[0])^ := T0[0]; PLongWord(@OutBuf[4])^ := T0[1]; + PLongWord(@OutBuf[8])^ := T0[2]; PLongWord(@OutBuf[12])^ := T0[3]; +end; + +// Stream encryption routines (ECB mode) + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +// Stream decryption routines (ECB mode) + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey128; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey192; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const Key: TAESKey256; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamECB(Source, Count, ExpandedKey, Dest); +end; + +procedure DecryptAESStreamECB(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + DecryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +// Stream encryption routines (CBC mode) + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForEncryption(Key, ExpandedKey); + EncryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure EncryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut, Vector: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + Vector := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError.Create(SReadError); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + Vector := TempOut; + Dec(Count, SizeOf(TAESBuffer)); + end; + if Count > 0 then + begin + Done := Source.Read(TempIn, Count); + if Done < Count then + raise EStreamError.Create(SReadError); + FillChar(TempIn[Count], SizeOf(TempIn) - Count, 0); + PLongWord(@TempIn[0])^ := PLongWord(@TempIn[0])^ xor PLongWord(@Vector[0])^; + PLongWord(@TempIn[4])^ := PLongWord(@TempIn[4])^ xor PLongWord(@Vector[4])^; + PLongWord(@TempIn[8])^ := PLongWord(@TempIn[8])^ xor PLongWord(@Vector[8])^; + PLongWord(@TempIn[12])^ := PLongWord(@TempIn[12])^ xor PLongWord(@Vector[12])^; + EncryptAES(TempIn, ExpandedKey, TempOut); + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError.Create(SWriteError); + end; +end; + +// Stream decryption routines (CBC mode) + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey128; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey128; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey192; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey192; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey192; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const Key: TAESKey256; const InitVector: TAESBuffer; Dest: TStream); +var + ExpandedKey: TAESExpandedKey256; +begin + ExpandAESKeyForDecryption(Key, ExpandedKey); + DecryptAESStreamCBC(Source, Count, ExpandedKey, InitVector, Dest); +end; + +procedure DecryptAESStreamCBC(Source: TStream; Count: cardinal; + const ExpandedKey: TAESExpandedKey256; const InitVector: TAESBuffer; + Dest: TStream); +var + TempIn, TempOut: TAESBuffer; + Vector1, Vector2: TAESBuffer; + Done: cardinal; +begin + if Count = 0 then + begin + Source.Position := 0; + Count := Source.Size; + end + else Count := Min(Count, Source.Size - Source.Position); + if Count = 0 then exit; + if (Count mod SizeOf(TAESBuffer)) > 0 then + raise EAESError.Create(SInvalidInBufSize); + Vector1 := InitVector; + while Count >= SizeOf(TAESBuffer) do + begin + Done := Source.Read(TempIn, SizeOf(TempIn)); + if Done < SizeOf(TempIn) then + raise EStreamError(SReadError); + Vector2 := TempIn; + DecryptAES(TempIn, ExpandedKey, TempOut); + PLongWord(@TempOut[0])^ := PLongWord(@TempOut[0])^ xor PLongWord(@Vector1[0])^; + PLongWord(@TempOut[4])^ := PLongWord(@TempOut[4])^ xor PLongWord(@Vector1[4])^; + PLongWord(@TempOut[8])^ := PLongWord(@TempOut[8])^ xor PLongWord(@Vector1[8])^; + PLongWord(@TempOut[12])^ := PLongWord(@TempOut[12])^ xor PLongWord(@Vector1[12])^; + Done := Dest.Write(TempOut, SizeOf(TempOut)); + if Done < SizeOf(TempOut) then + raise EStreamError(SWriteError); + Vector1 := Vector2; + Dec(Count, SizeOf(TAESBuffer)); + end; +end; + +end. diff --git a/贸易管理/FieldExportSet/.INI b/贸易管理/FieldExportSet/.INI new file mode 100644 index 0000000..51d8293 --- /dev/null +++ b/贸易管理/FieldExportSet/.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin//ɫ/ⳤ/ȵλ//׺ diff --git a/贸易管理/FieldExportSet/检验分析订单.INI b/贸易管理/FieldExportSet/检验分析订单.INI new file mode 100644 index 0000000..423fd63 --- /dev/null +++ b/贸易管理/FieldExportSet/检验分析订单.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin///ɫ//()/õ diff --git a/贸易管理/FieldExportSet/检验报告.INI b/贸易管理/FieldExportSet/检验报告.INI new file mode 100644 index 0000000..0961376 --- /dev/null +++ b/贸易管理/FieldExportSet/检验报告.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin diff --git a/贸易管理/FieldExportSet/采购单列表.INI b/贸易管理/FieldExportSet/采购单列表.INI new file mode 100644 index 0000000..8ea03c0 --- /dev/null +++ b/贸易管理/FieldExportSet/采购单列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/ɹ/Fabric/ diff --git a/贸易管理/File.INI b/贸易管理/File.INI new file mode 100644 index 0000000..824f0fd --- /dev/null +++ b/贸易管理/File.INI @@ -0,0 +1,7 @@ +[] +̨־= +̨= +˿ں= +˿Dllļ= +Ƿ= +Dllļ=JCYData.DLL diff --git a/贸易管理/OrderManage.dof b/贸易管理/OrderManage.dof new file mode 100644 index 0000000..30929e3 --- /dev/null +++ b/贸易管理/OrderManage.dof @@ -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=F:\selfware_83398\selfware\ֿ\Ŀ\self\\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 diff --git a/贸易管理/ProjectGroup1.bpg b/贸易管理/ProjectGroup1.bpg new file mode 100644 index 0000000..e6b2914 --- /dev/null +++ b/贸易管理/ProjectGroup1.bpg @@ -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) + + diff --git a/贸易管理/ProjectGroup1.~bpg b/贸易管理/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/贸易管理/ProjectGroup1.~bpg @@ -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) + + diff --git a/贸易管理/RCInspection.cfg b/贸易管理/RCInspection.cfg new file mode 100644 index 0000000..6c57635 --- /dev/null +++ b/贸易管理/RCInspection.cfg @@ -0,0 +1,38 @@ +-$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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/贸易管理/RCInspection.dof b/贸易管理/RCInspection.dof new file mode 100644 index 0000000..c0c0e6a --- /dev/null +++ b/贸易管理/RCInspection.dof @@ -0,0 +1,141 @@ +[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= +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:\selfware_83398\selfware\ֿ\Ŀ\self\Ⱦ\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 +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/贸易管理/RCInspection.res b/贸易管理/RCInspection.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/贸易管理/RCInspection.res differ diff --git a/贸易管理/SYSTEMSET.ini b/贸易管理/SYSTEMSET.ini new file mode 100644 index 0000000..c598a0b --- /dev/null +++ b/贸易管理/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=192.168.1.246 +=XXXXXXX1 \ No newline at end of file diff --git a/贸易管理/TradeManage.cfg b/贸易管理/TradeManage.cfg new file mode 100644 index 0000000..e9c1cc1 --- /dev/null +++ b/贸易管理/TradeManage.cfg @@ -0,0 +1,38 @@ +-$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" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/贸易管理/TradeManage.dof b/贸易管理/TradeManage.dof new file mode 100644 index 0000000..def4da0 --- /dev/null +++ b/贸易管理/TradeManage.dof @@ -0,0 +1,141 @@ +[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= +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:\Ŀ\Ŀ\С\ó׹\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 +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/贸易管理/TradeManage.dpr b/贸易管理/TradeManage.dpr new file mode 100644 index 0000000..7cc2aaa --- /dev/null +++ b/贸易管理/TradeManage.dpr @@ -0,0 +1,109 @@ +library TradeManage; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, + U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, + U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_GetAddRess in '..\..\..\ThreeFun\Form\U_GetAddRess.pas', + U_iniParam in 'U_iniParam.pas', + AES in 'AES.pas', + ElAES in 'ElAES.pas', + U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + U_LabelPrint in 'U_LabelPrint.pas' {frmLabelPrint}, + U_ConInPutNX in 'U_ConInPutNX.pas' {frmConInPutNX}, + U_ProductOrderAnPaiGQX in 'U_ProductOrderAnPaiGQX.pas' {frmProductOrderAnPaiGQX}, + U_MJManageNewFDNew in 'U_MJManageNewFDNew.pas' {frmMJManageNewFDNewSF}, + U_MJEdit in 'U_MJEdit.pas' {frmMJEdit}, + U_BanCpCkSaoM in 'U_BanCpCkSaoM.pas' {frmBanCpCkSaoM}, + U_CpRkSaoMNewDB in 'U_CpRkSaoMNewDB.pas' {frmCpRkSaoMNewDB}, + U_OrderSelRK in 'U_OrderSelRK.pas' {frmOrderSelRK}, + U_CKJYList in 'U_CKJYList.pas' {frmCKJYList}, + U_BanCpHCSaoM in 'U_BanCpHCSaoM.pas' {frmBanCpHCSaoM}, + U_ClothHCList in 'U_ClothHCList.pas' {frmClothHCList}, + U_ClothContractInPutPB in 'U_ClothContractInPutPB.pas' {frmClothContractInPutPB}, + U_ContractListNX in 'U_ContractListNX.pas' {frmContractListNX}, + U_ClothContractListDHSXQJG in 'U_ClothContractListDHSXQJG.pas' {frmClothContractListDHSXQJG}, + U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList}, + U_ClothContractListWJG in 'U_ClothContractListWJG.pas' {frmClothContractListWJG}, + U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}, + U_BefChkHX in 'U_BefChkHX.pas' {frmBefChkHX}, + U_ConInPut in 'U_ConInPut.pas' {frmConInPut}, + U_ClothContractInPut in 'U_ClothContractInPut.pas' {frmClothContractInPut}, + U_ClothContractList in 'U_ClothContractList.pas' {frmClothContractList}, + U_ClothContractListDH in 'U_ClothContractListDH.pas' {frmClothContractListDH}, + U_ClothContractInPutHZ in 'U_ClothContractInPutHZ.pas' {frmClothContractInPutHZ}, + U_OrderInPut in 'U_OrderInPut.pas' {frmOrderInPut}, + U_CKProductBCPOutList in 'U_CKProductBCPOutList.pas' {frmCKProductBCPOutList}, + U_ClothPDInfoList in 'U_ClothPDInfoList.pas' {frmClothPDInfoList}, + U_ClothContractListDHSX in 'U_ClothContractListDHSX.pas' {frmClothContractListDHSX}, + U_CpRkSaoMNew in 'U_CpRkSaoMNew.pas' {frmCpRkSaoMNew}, + U_ClothContractInPutSXMX in 'U_ClothContractInPutSXMX.pas' {frmClothContractInPutSXMX}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_ProductOrderNewList_JD in 'U_ProductOrderNewList_JD.pas' {frmProductOrderNewList_JD}, + U_OrderInPut_FB in 'U_OrderInPut_FB.pas' {frmOrderInPut_FB}, + U_ProductOrderNewList_FB in 'U_ProductOrderNewList_FB.pas' {frmProductOrderNewList_FB}, + U_HCList in 'U_HCList.pas' {frmHCList}, + U_OrderInPut_HYWT in 'U_OrderInPut_HYWT.pas' {frmorderInput_HYWT}, + U_orderInPut_HYWT_Sub in 'U_orderInPut_HYWT_Sub.pas' {FrmOrderInPut_HYWT_Sub}, + U_ModulePromptList in 'U_ModulePromptList.pas' {frmModulePromptList}, + U_ProductOrderNewList_CY_Sel in 'U_ProductOrderNewList_CY_Sel.pas' {frmProductOrderNewList_CY_Sel}, + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_FanYangList in 'U_FanYangList.pas' {FrmFanYangList}, + U_FanYangListHZ in 'U_FanYangListHZ.pas' {FrmFanYangListHZ}, + U_CPGangNo in 'U_CPGangNo.pas' {frmCPGangNo}, + U_JYMJIDPRINT in 'U_JYMJIDPRINT.pas' {frmJYMJIDPRINT}, + U_FjList_RZ in 'U_FjList_RZ.pas' {frmFjList_RZ}, + U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas', + U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_Contract_Main in 'U_Contract_Main.pas' {frmContract_Main}, + U_ProductOrder_CX in 'U_ProductOrder_CX.pas' {FrmProductOrder_CX}, + U_OrderJD in 'U_OrderJD.pas' {frmOrderJD}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_FjList10 in '..\..\..\ThreeFun\Form\U_FjList10.pas' {frmFjList10}, + getpic in 'getpic.pas' {FormGetPic}, + U_SLT in 'U_SLT.pas' {frmSLT: TFrame}; + +// U_CPManage in 'U_CPManage.pas' {frmCPManage}; + +// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', + // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, + // U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField}, + // U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + //U_FormPas in '..\CommonPas\formPas\U_FormPas.pas', + //U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas'; + +//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas'; + +{$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. + diff --git a/贸易管理/TradeManage.rar b/贸易管理/TradeManage.rar new file mode 100644 index 0000000..ef4932c Binary files /dev/null and b/贸易管理/TradeManage.rar differ diff --git a/贸易管理/TradeManage.res b/贸易管理/TradeManage.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/贸易管理/TradeManage.res differ diff --git a/贸易管理/U.dfm b/贸易管理/U.dfm new file mode 100644 index 0000000..d5244f9 --- /dev/null +++ b/贸易管理/U.dfm @@ -0,0 +1,202 @@ +object Form1: TForm1 + Left = 204 + Top = 180 + Width = 870 + Height = 500 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 862 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_RCInspection.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 58 + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 862 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 25 + Top = 16 + Width = 52 + Height = 12 + Caption = #24067#21305#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object APID: TEdit + Left = 80 + Top = 10 + Width = 138 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 71 + Width = 862 + Height = 392 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_RCInspection.TextSHuangSe + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = DataLink_RCInspection.Default + Width = 144 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_RCInspection.Default + Width = 96 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = DataLink_RCInspection.Default + Width = 93 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_RCInspection.Default + Width = 93 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTmp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 336 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 200 + end + object ADOCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 288 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 528 + Top = 200 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 200 + end +end diff --git a/贸易管理/U.pas b/贸易管理/U.pas new file mode 100644 index 0000000..8a7ec6b --- /dev/null +++ b/贸易管理/U.pas @@ -0,0 +1,48 @@ +unit U; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, + ComCtrls, ToolWin; + +type + TForm1 = class(TForm) + ToolBar1: TToolBar; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + APID: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOTmp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +end. diff --git a/贸易管理/U_BanCpCkSaoM.dfm b/贸易管理/U_BanCpCkSaoM.dfm new file mode 100644 index 0000000..8ad197f --- /dev/null +++ b/贸易管理/U_BanCpCkSaoM.dfm @@ -0,0 +1,201 @@ +object frmBanCpCkSaoM: TfrmBanCpCkSaoM + Left = 241 + Top = 177 + Width = 870 + Height = 500 + Caption = #21322#25104#21697#20986#24211#25195#25551 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object cxGrid2: TcxGrid + Left = 0 + Top = 81 + Width = 862 + Height = 382 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 101 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v2Column5: TcxGridDBColumn + Caption = #20986#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v2Column6: TcxGridDBColumn + Caption = #20986#24211#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 99 + end + object v1Column6: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 862 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 56 + Top = 40 + Width = 68 + Height = 16 + Caption = #25195#25551#20837#21475 + end + object XJID: TEdit + Left = 124 + Top = 37 + Width = 167 + Height = 24 + TabOrder = 0 + OnKeyPress = XJIDKeyPress + end + object Button1: TButton + Left = 309 + Top = 38 + Width = 75 + Height = 23 + Caption = #20986#24211 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 413 + Top = 38 + Width = 75 + Height = 23 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 728 + Top = 136 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 760 + Top = 136 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 792 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end +end diff --git a/贸易管理/U_BanCpCkSaoM.pas b/贸易管理/U_BanCpCkSaoM.pas new file mode 100644 index 0000000..5605058 --- /dev/null +++ b/贸易管理/U_BanCpCkSaoM.pas @@ -0,0 +1,253 @@ +unit U_BanCpCkSaoM; + +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; + +type + TfrmBanCpCkSaoM = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + XJID: TEdit; + Label1: TLabel; + Button1: TButton; + v1Column5: TcxGridDBColumn; + Button2: TButton; + v1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure XJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBanCpCkSaoM: TfrmBanCpCkSaoM; + +implementation +uses +U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmBanCpCkSaoM.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBanCpCkSaoM.FormDestroy(Sender: TObject); +begin + frmBanCpCkSaoM:=nil; +end; +procedure TfrmBanCpCkSaoM.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo '); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai KK on D.APID=KK.APID'); + sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBanCpCkSaoM.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv1,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmBanCpCkSaoM.XJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from CK_BanCP_CR A '); + sql.add('where A.MJID='''+Trim(XJID.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo '); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai KK on D.APID=KK.APID'); + sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID'); + sql.add('where A.MJID='''+Trim(XJID.Text)+''''); + sql.Add(' and KCQty>0 and A.CRType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + with CDS_Main do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value; + FieldByName('GangNo').Value:=ADOQueryTemp.fieldbyname('GangNo').Value; + FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd); + FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('kCKGQty').Value; + FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('KCQty').Value; + FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('KCQtyUnit').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value; + Post; + end; + end else + begin + Application.MessageBox('˾Ѿ⣬ٴγ⣡','ʾ',0); + Exit; + end; + XJID.Text:=''; + end; +end; + +procedure TfrmBanCpCkSaoM.Button1Click(Sender: TObject); +var + maxno:string; +begin + if CDS_Main.IsEmpty then Exit; + XJID.SetFocus; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + First; + while not Eof do + begin + if GetLSNo(ADOQueryCmd,maxno,'ZC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_CR Set NowOutFlag=1 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and CRType='''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmBanCpCkSaoM.Tv1DblClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + CDS_Main.Delete; +end; + +procedure TfrmBanCpCkSaoM.Button2Click(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒ',Tv1,'Ʒֿ'); +end; + +end. diff --git a/贸易管理/U_BanCpHCSaoM.dfm b/贸易管理/U_BanCpHCSaoM.dfm new file mode 100644 index 0000000..2f75146 --- /dev/null +++ b/贸易管理/U_BanCpHCSaoM.dfm @@ -0,0 +1,212 @@ +object frmBanCpHCSaoM: TfrmBanCpHCSaoM + Left = 241 + Top = 177 + Width = 905 + Height = 504 + Caption = #21322#25104#21697#22238#20179#25195#25551 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object cxGrid2: TcxGrid + Left = 0 + Top = 81 + Width = 897 + Height = 386 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 123 + end + object v1Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 88 + end + object v2Column5: TcxGridDBColumn + Caption = #22238#20179#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #22238#20179#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column6: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + Options.Focusing = False + Width = 74 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 897 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 56 + Top = 40 + Width = 68 + Height = 16 + Caption = #25195#25551#20837#21475 + end + object XJID: TEdit + Left = 124 + Top = 37 + Width = 167 + Height = 24 + TabOrder = 0 + OnKeyPress = XJIDKeyPress + end + object Button1: TButton + Left = 309 + Top = 38 + Width = 75 + Height = 23 + Caption = #22238#20179 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 421 + Top = 38 + Width = 75 + Height = 23 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 728 + Top = 136 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 760 + Top = 136 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 792 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + end + end +end diff --git a/贸易管理/U_BanCpHCSaoM.pas b/贸易管理/U_BanCpHCSaoM.pas new file mode 100644 index 0000000..a45dcc6 --- /dev/null +++ b/贸易管理/U_BanCpHCSaoM.pas @@ -0,0 +1,264 @@ +unit U_BanCpHCSaoM; + +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; + +type + TfrmBanCpHCSaoM = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + XJID: TEdit; + Label1: TLabel; + Button1: TButton; + v1Column5: TcxGridDBColumn; + Button2: TButton; + v1Column6: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure XJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBanCpHCSaoM: TfrmBanCpHCSaoM; + +implementation +uses +U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmBanCpHCSaoM.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBanCpHCSaoM.FormDestroy(Sender: TObject); +begin + frmBanCpHCSaoM:=nil; +end; +procedure TfrmBanCpHCSaoM.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ '); + sql.add('from CK_BanCP_CR A '); + 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 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBanCpHCSaoM.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒز',Tv1,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmBanCpHCSaoM.XJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from CK_BanCP_CR A '); + sql.add('where A.MJID='''+Trim(XJID.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ,F.KCQty,F.KCKgQty '); + sql.add('from CK_BanCP_CR A '); + 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(' inner join CK_BanCP_KC F on A.CRID=F.CRID'); + sql.add('where A.MJID='''+Trim(XJID.Text)+''''); + sql.Add(' and KCQty=0 and A.CRType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + with CDS_Main do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value; + FieldByName('MPRTMF').Value:=ADOQueryTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOQueryTemp.fieldbyname('MPRTKZ').Value; + FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd); + FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('QtyUnit').Value; + FieldByName('MainID').Value:=ADOQueryTemp.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=ADOQueryTemp.fieldbyname('SubID').Value; + FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value; + FieldByName('CPType').Value:=ADOQueryTemp.fieldbyname('CPType').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + Post; + end; + end else + begin + Application.MessageBox('˾ڲֿУز֣','ʾ',0); + Exit; + end; + XJID.Text:=''; + end; +end; + +procedure TfrmBanCpHCSaoM.Button1Click(Sender: TObject); +var + maxno:string; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('KgQty',0,[]) then + begin + Application.MessageBox('زֹΪ0','ʾ',0); + Exit; + end; + if CDS_Main.Locate('Qty',0,[]) then + begin + Application.MessageBox('زֳȲΪ0','ʾ',0); + Exit; + end; + if CDS_Main.Locate('KgQty',null,[]) then + begin + Application.MessageBox('زֹΪգ','ʾ',0); + Exit; + end; + if CDS_Main.Locate('Qty',null,[]) then + begin + Application.MessageBox('زֳȲΪգ','ʾ',0); + Exit; + end; + XJID.SetFocus; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + First; + while not Eof do + begin + if GetLSNo(ADOQueryCmd,maxno,'HC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:='ز'; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update CK_BanCp_KC set KCKgQty='+cds_main.fieldbyname('KgQty').AsString); + SQL.Add(',KCQty='+cds_main.fieldbyname('Qty').AsString); + sql.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + Application.MessageBox('زֳɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ز쳣','ʾ',0); + end; +end; + +procedure TfrmBanCpHCSaoM.Button2Click(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒز',Tv1,'Ʒֿ'); +end; + +end. diff --git a/贸易管理/U_BangAdd.dfm b/贸易管理/U_BangAdd.dfm new file mode 100644 index 0000000..02e9c95 --- /dev/null +++ b/贸易管理/U_BangAdd.dfm @@ -0,0 +1,255 @@ +object frmBangAdd: TfrmBangAdd + Left = 232 + Top = 185 + Width = 703 + Height = 396 + Caption = #26816#39564#31216#37325 + 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 Label1: TLabel + Left = 193 + Top = 79 + Width = 52 + Height = 12 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 392 + Top = 77 + Width = 9 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 193 + Top = 115 + Width = 54 + Height = 12 + Caption = #31216' '#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 387 + Top = 115 + Width = 15 + Height = 14 + Caption = #30917 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 193 + Top = 147 + Width = 54 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 387 + Top = 147 + Width = 15 + Height = 14 + Caption = #30917 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 193 + Top = 179 + Width = 54 + Height = 12 + Caption = #33014' '#24102 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 387 + Top = 179 + Width = 15 + Height = 14 + Caption = #30917 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MJID: TEdit + Left = 248 + Top = 73 + Width = 138 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object Button1: TButton + Left = 193 + Top = 232 + Width = 57 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + OnKeyPress = Button1KeyPress + end + object Button2: TButton + Left = 343 + Top = 232 + Width = 60 + Height = 25 + Caption = #36864#20986 + TabOrder = 2 + OnClick = Button2Click + end + object Edit1: TEdit + Left = 248 + Top = 109 + Width = 136 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnKeyPress = MJIDKeyPress + end + object CheckBox1: TCheckBox + Left = 248 + Top = 44 + Width = 97 + Height = 17 + Caption = #33258#21160#35835#21462 + Checked = True + State = cbChecked + TabOrder = 4 + OnClick = CheckBox1Click + end + object Edit2: TEdit + Left = 248 + Top = 141 + Width = 136 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + OnKeyPress = MJIDKeyPress + end + object Edit3: TEdit + Left = 248 + Top = 173 + Width = 136 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnKeyPress = MJIDKeyPress + end + object ADOCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 608 + Top = 144 + end + object ADOTmp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 200 + 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 = 560 + Top = 200 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 536 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 512 + Top = 184 + end +end diff --git a/贸易管理/U_BangAdd.pas b/贸易管理/U_BangAdd.pas new file mode 100644 index 0000000..d6c043b --- /dev/null +++ b/贸易管理/U_BangAdd.pas @@ -0,0 +1,308 @@ +unit U_BangAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, DB, ADODB,OleCtrls, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'ELERS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'ELERS323C.DLL'; + +type + TfrmBangAdd = class(TForm) + Label1: TLabel; + MJID: TEdit; + Label2: TLabel; + Button1: TButton; + Button2: TButton; + Edit1: TEdit; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + Label3: TLabel; + Label4: TLabel; + CheckBox1: TCheckBox; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + Label5: TLabel; + Label6: TLabel; + Edit2: TEdit; + Label7: TLabel; + Label8: TLabel; + Edit3: TEdit; + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure FormDestroy(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Button1KeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure On1201(Var Message:Tmessage);Message 1201; + procedure PrintData(); + public + { Public declarations } + end; + +var + frmBangAdd: TfrmBangAdd; + +implementation + +{$R *.dfm} +procedure TfrmBangAdd.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + Edit1.Text:= floattostr(i1 *i2 /100000 ); +end; + +procedure TfrmBangAdd.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('MJID').AsString); + end else + begin + MJID.Text:=''; + Label2.Visible:=False; + Label2.Caption:=''; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJID.Text:=''; + Button1.SetFocus; + end; +end; + +procedure TfrmBangAdd.FormDestroy(Sender: TObject); +begin + frmBangAdd:=nil; +end; + +procedure TfrmBangAdd.Button1Click(Sender: TObject); +var + FZG,FJD:string; + FFreal,FMJMaoZ:Double; +begin + if Label2.Caption='' then + begin + Application.MessageBox('δɨ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + if ADOTmp.FieldByName('MJMaoZ').AsFloat>0 then + begin + if Application.MessageBox('ѳأȷҪ³','ʾ',32+4)<>IDYES then Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,FFreal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end else + begin + FZG:=Edit2.Text; + end; + end else + begin + FZG:='0'; + end; + if Trim(Edit3.Text)<>'' then + begin + if TryStrToFloat(Edit3.Text,FFreal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end else + begin + FJD:=Edit3.Text; + end; + end else + begin + FJD:='0'; + end; + FMJMaoZ:=StrToFloat(Edit1.Text)-StrToFloat(FZG); + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJMaoZ='+Trim(Floattostr(FMJMaoZ))); + sql.add(',MJQty1='+Trim(Edit1.Text)); + sql.add(',MJQty2='+Trim(FZG)); + sql.add(',MJQty3='+Trim(FJD)); + SQL.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + PrintData(); + Label2.Caption:=''; + Label2.Visible:=False; + MJID.SetFocus; + //Application.MessageBox('ɹ!','ʾ',0); + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmBangAdd.PrintData(); +var + fPrintFile,LabInt,LabName:String; +begin + with ADOTmp do + begin + Close; + SQL.Clear; + sql.Add(' select C.SLbInt,C.SLbName from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub_AnPai B on A.APID=B.APID'); + sql.Add(' inner join JYOrder_Sub C on B.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + LabInt:=ADOTmp.fieldbyname('SLbInt').AsString; + LabName:=ADOTmp.fieldbyname('SLbName').AsString; + end ; + if Trim(LabName)='' then + begin + Application.MessageBox('ǩδã','ʾ',0); + Exit; + end; + { try + frmLabelPrint:=TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + fLabelId:=LabInt; + FFCDFlag:=Trim(CDFlag); + fKeyNo:=Trim(FXJID); + fIsPreviewPrint:=True; + frmLabelPrint.Button1.Click; + // if ShowModal=1 then + //begin + + // end; + end; + finally + frmLabelPrint.Free; + end; } + with ADOQueryPrint do + begin + Close; + sql.Clear; + SQL.Add('select D.OrderNo,C.PRTColor,C.PRTKZ,C.PRTType,D.OrdDefStr2,D.OrdDefStr3,D.OrdDefStr7,B.AOrdDefNote30,A.MJXH,B.GangNo'); + SQL.Add(',C.PRTMF,C.SOrddefstr3,C.SOrddefstr5,D.DlyDate,D.DLyPlace,A.MJMaoZ,B.AOrdDefNote31,C.SOrddefstr4,'); + SQL.Add('ColorEngName=(select top 1 Note from KH_Zdy E where E.ZdyName=C.PRTColor and E.Type=''OrdColor'' ),'); + {SQL.Add('MJBang=Cast((A.MJMaoZ*2.2046) as decimal(18,2)),'); + SQL.Add('MJMaoZBang=Cast(((A.MJQty1+A.MJQty3)*2.2046) as decimal(18,2)),'); + SQL.Add('MAQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),'); + SQL.Add('MQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),'); + SQL.Add('MaoZ=A.MJQty1+A.MJQty3,'); + SQL.Add('JingZ=A.MJQty1-A.MJQty2'); } + SQL.Add('MJBang=A.MJMaoZ,'); + SQL.Add('MJMaoZBang=A.MJQty1+A.MJQty3,'); + SQL.Add('MAQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),'); + SQL.Add('MQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),'); + SQL.Add('MaoZ=Cast((A.MJQty1+A.MJQty3)*0.4536 as decimal(18,2)),'); + SQL.Add('JingZ=Cast((A.MJQty1-A.MJQty2)*0.4536 as decimal(18,2))'); + SQL.Add('from WFB_MJJY A inner join JYOrder_Sub_AnPai B on A.APID=B.APID'); + SQL.Add('inner join JYOrder_Sub C on B.SubId=C.SubId'); + SQL.Add('inner join JYOrder_Main D on C.MainId=D.Mainid'); + SQL.Add('where A.MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + Rm2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmBangAdd.Button2Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmBangAdd.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; + if CheckBox1.Checked=False then + CommClose(pchar('com1')); +end; + +procedure TfrmBangAdd.FormShow(Sender: TObject); +begin + if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then + begin + showmessage('ڴʧ!'); + end + else + begin + end; +end; + +procedure TfrmBangAdd.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked=True then + begin + if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then + begin + showmessage('ڴʧ!'); + end + else + begin + end; + end else + begin + CommClose(pchar('com1')); + end; +end; + +procedure TfrmBangAdd.Button1KeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + Button1.Click; + end; +end; + +end. diff --git a/贸易管理/U_BefChkHX.dfm b/贸易管理/U_BefChkHX.dfm new file mode 100644 index 0000000..5c8dd00 --- /dev/null +++ b/贸易管理/U_BefChkHX.dfm @@ -0,0 +1,335 @@ +object frmBefChkHX: TfrmBefChkHX + Left = 213 + Top = 134 + Width = 870 + Height = 534 + Caption = #26816#21069#22238#20462 + 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 Panel1: TPanel + Left = 0 + Top = 32 + Width = 854 + Height = 73 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object orderno: TLabel + Left = 48 + Top = 24 + Width = 63 + Height = 16 + Caption = 'orderno' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PRTColor: TLabel + Left = 168 + Top = 24 + Width = 72 + Height = 16 + Caption = 'PRTColor' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object FirstName: TLabel + Left = 296 + Top = 24 + Width = 81 + Height = 16 + Caption = 'FirstName' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PBFactory: TLabel + Left = 464 + Top = 24 + Width = 81 + Height = 16 + Caption = 'PBFactory' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 854 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 111 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 248 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = ToolButton1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 854 + Height = 390 + Align = alClient + TabOrder = 2 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = V2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column1 + end + item + Kind = skSum + Column = V2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object V2Column2: TcxGridDBColumn + Tag = 2 + Caption = #22238#20462#26102#38388 + DataBinding.FieldName = 'HXDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 96 + end + object V2Column8: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'HXFactory' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object V2Column7: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968#37327 + DataBinding.FieldName = 'HXPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object V2Column1: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'HXQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 69 + end + object V2Column9: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object V2Column5: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'HXUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object V2Column6: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'HXNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 123 + end + object V2Column4: TcxGridDBColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'HXType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 352 + Top = 8 + end + object ADOQuery2: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 512 + Top = 8 + end + object ADOQuery3: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 440 + Top = 8 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 216 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 480 + Top = 224 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 312 + Top = 256 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 416 + Top = 160 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + Top = 168 + ReportData = {} + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 288 + end +end diff --git a/贸易管理/U_BefChkHX.pas b/贸易管理/U_BefChkHX.pas new file mode 100644 index 0000000..9c10c5b --- /dev/null +++ b/贸易管理/U_BefChkHX.pas @@ -0,0 +1,256 @@ +unit U_BefChkHX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxButtonEdit, + cxTextEdit, StdCtrls, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, ComCtrls, ToolWin, ExtCtrls, cxDropDownEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset; + +type + TfrmBefChkHX = class(TForm) + Panel1: TPanel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + V2Column2: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column7: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + orderno: TLabel; + PRTColor: TLabel; + FirstName: TLabel; + PBFactory: TLabel; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + ADOQuery3: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ToolButton1: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + V2Column4: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + ToolButton5: TToolButton; + RMDBMain: TRMDBDataSet; + RM1: TRMGridReport; + CDS_PRT: TClientDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + FLLID,HXUnit:String; + end; + +var + frmBefChkHX: TfrmBefChkHX; + +implementation +uses +U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmBefChkHX.FormDestroy(Sender: TObject); +begin + frmBefChkHX:=nil; +end; + +procedure TfrmBefChkHX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBefChkHX.ToolButton2Click(Sender: TObject); +begin + with ClientDataSet1 do + begin + Append; + FieldByName('HXFactory').Value:=Trim(FirstName.Caption); + FieldByName('HXDate').Value:=SGetServerDate(ADOQuery2); + FieldByName('HXType').Value:='ǰ'; + FieldByName('HXUnit').Value:=Trim(HXUnit); + Post; + end; +end; + +procedure TfrmBefChkHX.ToolButton3Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('HXType').AsString)<>'ǰ' then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQuery3 do + begin + Close; + SQL.Clear; + SQL.Add('delete Contract_Cloth_BefChkHX where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+''''); + sql.Add('Update Contract_Cloth_LL Set HXPS=(select isnull(sum(HXPS),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')'); + sql.Add(',HXQty=(select isnull(sum(HXQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')'); + sql.Add(',HXMQty=(select isnull(sum(HXMQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')'); + sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')'); + sql.Add(' where LLID='''+Trim(FLLID)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + +end; + +procedure TfrmBefChkHX.ToolButton4Click(Sender: TObject); +var + maxno:string; + FSubId:String; +begin + try + ADOQuery3.Connection.BeginTrans; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet1.fieldbyname('HXType').AsString)='ǰ' then + begin + if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where LLID='''+Trim(FLLID)+''''); + Open; + end; + FSubId:=Trim(ADOQuery1.fieldbyname('OrdSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where Subid='''+Trim(FSubId)+''''); + // sql.Add(' and GangNo='''+Trim(ClientDataSet1.fieldbyname('GangNo').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty then + begin + ADOQuery3.Connection.RollbackTrans; + Application.MessageBox('δزֲܱ!','ʾ',0); + Exit; + end; + end; + + if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then + begin + if GetLSNo(ADOQuery3,maxno,'HX','Contract_Cloth_BefChkHX',2,1)=False then + begin + ADOQuery3.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('HXID').AsString); + end; + with ADOQuery3 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_BefChkHX where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+''''); + Open; + end; + with ADOQuery3 do + begin + if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then + Append + else + Edit; + FieldByName('LLID').Value:=Trim(FLLID); + FieldByName('HXID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOQuery3,TV2,ClientDataSet1,'Contract_Cloth_BefChkHX',2); + Post; + end; + end; + Next; + end; + end; + with ADOQuery3 do + begin + Close; + SQL.Clear; + SQL.Add('Update Contract_Cloth_BefChkHX Set HXMQty=HXQty*ZSXS where LLID='''+Trim(FLLID)+''''); + sql.Add('Update Contract_Cloth_LL Set HXPS=(select sum(HXPS) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)'); + sql.Add(',HXQty=(select sum(HXQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)'); + sql.Add(',HXMQty=(select sum(HXMQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)'); + sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)'); + sql.Add(' where LLID='''+Trim(FLLID)+''''); + ExecSQL; + end; + ADOQuery3.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQuery3.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmBefChkHX.ToolButton1Click(Sender: TObject); +begin + Close; + WriteCxGrid('ǰ',TV2,'زֹ'); +end; + +procedure TfrmBefChkHX.FormShow(Sender: TObject); +begin + ReadCxGrid('ǰ',TV2,'زֹ'); +end; + +procedure TfrmBefChkHX.ToolButton5Click(Sender: TObject); +var + fPrintFile:string; +begin + if ClientDataSet1.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\޵.rmf' ; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.PRTColor,D.MPRTCodeName,D.MPRTSpec,D.OrderNo from Contract_Cloth_BefChkHX A'); + sql.Add(' inner join Contract_Cloth_LL B on A.LLID=B.LLID'); + sql.Add(' inner join JYOrder_Sub C on B.OrdSubId=C.SubID'); + sql.Add(' inner join JYOrder_Main D on C.MainId=D.MainId'); + sql.Add(' where A.HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_PRT); + SInitCDSData20(ADOQuery1,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + RMVariables['DYFiller']:=Trim(DName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\޵.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/贸易管理/U_CKJYList.dfm b/贸易管理/U_CKJYList.dfm new file mode 100644 index 0000000..6f0a826 --- /dev/null +++ b/贸易管理/U_CKJYList.dfm @@ -0,0 +1,653 @@ +object frmCKJYList: TfrmCKJYList + Left = 294 + Top = 80 + Width = 1066 + Height = 598 + Caption = #25104#21697#20986#24211#27719#24635#20449#24687 + 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 = 1050 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1050 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 6 + Height = 12 + Caption = '-' + end + object Label8: TLabel + Left = 211 + Top = 100 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 380 + Top = 108 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 624 + Top = 84 + Width = 48 + Height = 12 + Caption = #31867' '#22411 + end + object Label10: TLabel + Left = 496 + Top = 40 + Width = 6 + Height = 12 + end + object Label11: TLabel + Left = 488 + Top = 80 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label12: TLabel + Left = 488 + Top = 104 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 292 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label3: TLabel + Left = 439 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label6: TLabel + Left = 752 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label13: TLabel + Left = 600 + Top = 12 + Width = 48 + Height = 12 + Caption = #21592#24037#21517#31216 + end + object Label4: TLabel + Left = 876 + Top = 12 + Width = 36 + Height = 12 + Caption = #21512#21516#21495 + end + object Label15: TLabel + Left = 1028 + Top = 12 + Width = 18 + Height = 12 + Caption = 'PO#' + end + object BegDate: TDateTimePicker + Left = 73 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 260 + Top = 96 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 404 + Top = 104 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 675 + Top = 80 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object YWY: TEdit + Tag = 2 + Left = 526 + Top = 76 + Width = 65 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 526 + Top = 100 + Width = 65 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object orderNo: TEdit + Tag = 2 + Left = 342 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 492 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 778 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object filler: TEdit + Tag = 2 + Left = 650 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object conNo: TEdit + Tag = 2 + Left = 918 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = MPRTCodeNameChange + end + object KHCONNO: TEdit + Tag = 2 + Left = 1050 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1050 + Height = 463 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column3: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 142 + end + object v1Column2: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHCONNO' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 110 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 125 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'JQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MjTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v2Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #38271#24230'(M)' + DataBinding.FieldName = 'Qty_M' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column10: TcxGridDBColumn + Caption = #27599#21367#24179#22343#38271#24230'(M)' + DataBinding.FieldName = 'Roll_M' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column13: TcxGridDBColumn + Caption = #24050#25171#21253#21367#25968 + DataBinding.FieldName = 'CJQTY' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#25171#21253#38271#24230 + DataBinding.FieldName = 'CQTY' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#25171#21253#27611#37325 + DataBinding.FieldName = 'CKGQty' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#25171#21253#20928#37325 + DataBinding.FieldName = 'CMJQty4' + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 4 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 77 + Width = 1050 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #26410#20837#24211 + #24050#20837#24211 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1050 + ClientRectTop = 19 + 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 = 2 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 980 + Top = 4 + 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 = 896 + Top = 128 + end +end diff --git a/贸易管理/U_CKJYList.pas b/贸易管理/U_CKJYList.pas new file mode 100644 index 0000000..79deaae --- /dev/null +++ b/贸易管理/U_CKJYList.pas @@ -0,0 +1,301 @@ +unit U_CKJYList; + +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, + cxCalendar, cxPC; + +type + TfrmCKJYList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + YWY: TEdit; + OrdPerson1: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + orderNo: TEdit; + Label5: TLabel; + Label3: TLabel; + MPRTCodeName: TEdit; + Label6: TLabel; + PRTColor: TEdit; + Label13: TLabel; + filler: TEdit; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + conNo: TEdit; + Label4: TLabel; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column8: TcxGridDBColumn; + KHCONNO: TEdit; + Label15: TLabel; + cxTabControl1: TcxTabControl; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + 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 v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTColorChange(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 Image2Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKJYList: TfrmCKJYList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCKJYList.FormDestroy(Sender: TObject); +begin + frmCKJYList:=nil; +end; + +procedure TfrmCKJYList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKJYList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKJYList.InitGrid(); +begin +try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('select convert(char(10),A.FillTime,120) as CRTime,A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,C.MPRTCodeName,C.conNo,D.PrtColor,'); + sql.Add('count(A.MainId) as JQty,SUM(A.MJlen) as Qty,SUM(A.MJmaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,'); + sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)'); + sql.Add(',Qty_M=sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)'); + sql.Add(',Roll_M= cast(sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)/count(A.MainId) as decimal(18,2))'); + SQL.Add(',CJQTY=(select count(X.Mainid) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)'); + SQL.Add(',CQTY=(select SUM(MJlen) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)'); + SQL.Add(',CKGQTY=(select SUM(MJmaoZ) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)'); + SQL.Add(',CMJQty4=(select SUM(MJQty4) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId '); + sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); + Sql.add('where A.FillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + Sql.add('and A.FillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + IF cxTabControl1.TabIndex=0 then + Sql.add('and not exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) ') + else + IF cxTabControl1.TabIndex=1 then + Sql.add('and exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) '); + Sql.add('group by convert(char(10),A.FillTime,120),A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,C.MPRTCodeName,C.conNo,D.PrtColor'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKJYList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKJYList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKJYList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKJYList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + //v1Column5.Options.Focusing:=True; + end else + begin + //v1Column5.Options.Focusing:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKJYList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKJYList.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 TfrmCKJYList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKJYList.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 TfrmCKJYList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; + application.ProcessMessages; +end; + +procedure TfrmCKJYList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKJYList.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +end. diff --git a/贸易管理/U_CKProductBCPHCList.dfm b/贸易管理/U_CKProductBCPHCList.dfm new file mode 100644 index 0000000..94ffdf8 --- /dev/null +++ b/贸易管理/U_CKProductBCPHCList.dfm @@ -0,0 +1,390 @@ +object frmCKProductBCPHCList: TfrmCKProductBCPHCList + Left = 128 + Top = 152 + Width = 1027 + Height = 511 + Caption = #25104#21697#22238#20179#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 = 1019 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + 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 Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1019 + Height = 369 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + 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 + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + 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 v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 107 + end + object v2Column5: TcxGridDBColumn + Caption = #22238#20179#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #22238#20179#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + 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 diff --git a/贸易管理/U_CKProductBCPHCList.pas b/贸易管理/U_CKProductBCPHCList.pas new file mode 100644 index 0000000..35db25e --- /dev/null +++ b/贸易管理/U_CKProductBCPHCList.pas @@ -0,0 +1,182 @@ +unit U_CKProductBCPHCList; + +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; + +type + TfrmCKProductBCPHCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: 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; + v1Column2: 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; + 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); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPHCList: TfrmCKProductBCPHCList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPHCList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPHCList:=nil; +end; + +procedure TfrmCKProductBCPHCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPHCList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPHCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ'); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRType=''ز'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPHCList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPHCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPHCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ֿزб',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPHCList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ֿزб',Tv1,'Ʒֿ'); + + InitGrid(); +end; + +procedure TfrmCKProductBCPHCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('زб',cxGrid2); +end; + +procedure TfrmCKProductBCPHCList.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 TfrmCKProductBCPHCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/贸易管理/U_CKProductBCPInList.dfm b/贸易管理/U_CKProductBCPInList.dfm new file mode 100644 index 0000000..67eadea --- /dev/null +++ b/贸易管理/U_CKProductBCPInList.dfm @@ -0,0 +1,1188 @@ +object frmCKProductBCPInList: TfrmCKProductBCPInList + Left = 190 + Top = 56 + Width = 1382 + Height = 754 + Caption = #25104#21697#20837#24211#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 = 1366 + Height = 33 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBRKCX: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144#20837#24211 + ImageIndex = 105 + Visible = False + OnClick = TBRKCXClick + end + object TBBao: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #21253#26465#30721#37325#25171 + ImageIndex = 60 + Visible = False + OnClick = TBBaoClick + end + object TBRKD: TToolButton + Left = 375 + Top = 0 + Caption = #20837#24211#21333#37325#25171 + ImageIndex = 29 + Visible = False + OnClick = TBRKDClick + end + object TBPrint: TToolButton + Left = 470 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 533 + Top = 3 + Width = 268 + 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 = #22826#23376#21602 + Items.Strings = ( + #22826#23376#21602 + #25955#35013#30721#21333 + #25955#35013#30721#21333'_'#31446#25490 + #25955#35013#30721#21333'_'#37325#37327 + #25955#35013#30721#21333'_'#37325#37327'_'#31446#25490 + #25955#35013#30721#21333'_'#38271#24230#37325#37327 + #25955#35013#30721#21333'_'#38271#24230#37325#37327'_'#31446#25490 + #25955#35013#30721#21333'_'#27611#20928#37325 + #25955#35013#30721#21333'_'#27611#20928#37325'_'#31446#25490 + #25955#35013#30721#21333'_'#27611#20928#37325#38271#24230 + #25955#35013#30721#21333'_'#27611#20928#37325#38271#24230'_'#31446#25490 + #21333#33394#21253#35013 + #21333#33394#21253#35013'-'#37325#37327 + #21333#33394#21253#35013'-'#37325#37327'-2'#21015 + #21333#33394#21253#35013'-'#27611#20928#37325 + #28151#33394#21253#35013'-6'#33394 + #28151#33394#21253#35013'-7'#33394 + #28151#33394#21253#35013'-8'#33394 + #28151#33394#21253#35013'-10'#33394 + #28151#33394#21253#35013'-12'#33394 + #28151#33394#21253#35013'-20'#33394 + #28151#33394#21253#35013'-30'#33394 + #28151#33394#21253#35013'-'#37325#37327'4'#33394 + #28151#33394#21253#35013'-'#37325#37327'10'#33394 + #28151#33394#21253#35013'-'#37325#37327'15'#33394 + #33457#22411#28151#33394'-15' + #33457#22411#28151#33394'-20' + #26412#21378#25171#21367#20986#24211#30721#21333 + #38144#21806#30721#21333'1' + #27178#21521#38271#24230#30721#21333 + #26816#39564#30721#21333'-10' + 'PD'#33457#22411#31859#25968'+'#30721#25968 + 'PD'#31859#25968'+'#30721#25968 + #26816#39564#30721#21333'('#28151#33394#25171#21253')') + end + object TBClose: TToolButton + Left = 801 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 84 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 365 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 522 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 20 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 56 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 218 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 218 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 365 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 522 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 642 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 642 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 746 + Top = 12 + Width = 48 + Height = 12 + Caption = #21367' '#21495 + end + object Label12: TLabel + Left = 746 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label14: TLabel + Left = 218 + Top = 60 + Width = 48 + Height = 12 + Caption = #21512' '#21516' '#21495 + end + object Label15: TLabel + Left = 366 + Top = 60 + Width = 18 + Height = 12 + Caption = 'PO#' + end + object Label16: TLabel + Left = 510 + Top = 60 + Width = 36 + Height = 12 + Caption = #32568#26465#30721 + end + object Label17: TLabel + Left = 642 + Top = 60 + Width = 24 + Height = 12 + Caption = #27454#21495 + end + object Label18: TLabel + Left = 746 + Top = 60 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label19: TLabel + Left = 867 + Top = 12 + Width = 48 + Height = 12 + Caption = #26159#21542#25171#21253 + end + object Label20: TLabel + Left = 867 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object Label21: TLabel + Left = 867 + Top = 60 + Width = 48 + Height = 12 + Caption = #33394' '#21495 + end + object Label22: TLabel + Left = 1009 + Top = 12 + Width = 24 + Height = 12 + Caption = #21253#21495 + end + object Label23: TLabel + Left = 1009 + Top = 37 + Width = 24 + Height = 12 + Caption = #29366#24577 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 414 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 69 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 69 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 268 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 268 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 414 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 552 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 669 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '' + '') + end + object PRTColor: TComboBox + Tag = 1 + Left = 552 + Top = 8 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 8 + OnChange = PRTColorChange + end + object AOrdDefStr1: TComboBox + Tag = 1 + Left = 669 + Top = 8 + Width = 69 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + OnChange = AOrdDefStr1Change + end + object MJXHM: TEdit + Tag = 1 + Left = 794 + Top = 8 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object CheckBox1: TCheckBox + Left = 32 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 11 + OnClick = CheckBox1Click + end + object RKOrdID: TEdit + Tag = 1 + Left = 794 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 12 + OnChange = MPRTCodeNameChange + end + object conNo: TEdit + Tag = 2 + Left = 268 + Top = 57 + Width = 90 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end + object KHConNo: TEdit + Tag = 2 + Left = 414 + Top = 57 + Width = 90 + Height = 20 + TabOrder = 14 + OnChange = MPRTCodeNameChange + end + object APID: TEdit + Tag = 2 + Left = 552 + Top = 57 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = MPRTCodeNameChange + end + object PRTKuanNO: TEdit + Tag = 2 + Left = 670 + Top = 56 + Width = 65 + Height = 20 + TabOrder = 16 + OnChange = MPRTCodeNameChange + end + object begtime: TDateTimePicker + Left = 153 + Top = 8 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 17 + end + object endTime: TDateTimePicker + Left = 153 + Top = 32 + Width = 55 + Height = 20 + Date = 39780.999317129630000000 + Format = 'HH:mm' + Time = 39780.999317129630000000 + Kind = dtkTime + TabOrder = 18 + end + object RKPlace: TEdit + Tag = 2 + Left = 794 + Top = 56 + Width = 65 + Height = 20 + TabOrder = 19 + OnChange = MPRTCodeNameChange + end + object ISbao: TComboBox + Left = 918 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 20 + OnChange = ISbaoChange + Items.Strings = ( + '' + '' + #24050#25171#21253 + #26410#25171#21253) + end + object PRTHX: TEdit + Tag = 2 + Left = 918 + Top = 32 + Width = 81 + Height = 20 + TabOrder = 21 + OnChange = MPRTCodeNameChange + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 918 + Top = 56 + Width = 81 + Height = 20 + TabOrder = 22 + OnChange = MPRTCodeNameChange + end + object baoNo: TEdit + Tag = 1 + Left = 1035 + Top = 8 + Width = 79 + Height = 20 + TabOrder = 23 + OnChange = MPRTCodeNameChange + end + object CRKFlag: TComboBox + Tag = 1 + Left = 1035 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 24 + OnChange = ISbaoChange + Items.Strings = ( + #24453#20986#24211 + #24050#20986#24211) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 117 + Width = 1366 + Height = 598 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column11: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column17: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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 = #20837#24211#21333#21495 + DataBinding.FieldName = 'RKOrdID' + Options.Editing = False + Width = 57 + end + object v1Column21: TcxGridDBColumn + Caption = #32568#26465#30721 + DataBinding.FieldName = 'APID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'RKPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'numBaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 107 + end + object v1Column15: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJqty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column16: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJqty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object v2Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v2Column6: TcxGridDBColumn + Caption = #20837#24211#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column20: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHconNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTKuanNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column24: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column25: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CRKFlag' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label13: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object cxGrid4: TcxGrid + Left = 268 + Top = 62 + Width = 145 + Height = 123 + TabOrder = 4 + Visible = False + object TV4: TcxGridDBTableView + OnDblClick = TV4DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSCON + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + object V4Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderno' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TV4 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 954 + Top = 147 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 985 + Top = 146 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 922 + Top = 146 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 818 + Top = 148 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 850 + Top = 146 + 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 = 368 + Top = 168 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 472 + Top = 224 + 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 = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object RM2: 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 = RMDBMain10 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 642 + Top = 149 + ReportData = {} + end + object RMDBMain10: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 592 + Top = 264 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 544 + Top = 288 + 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 = 476 + Top = 150 + ReportData = {} + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 384 + Top = 288 + end + object CDS_BaoNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 336 + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 336 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 336 + end + object CDS_CX: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 336 + end + object CDS_BaoPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 336 + end + object CDS_WXPTPrint: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 260 + end + object CDS_WXPT: TClientDataSet + Aggregates = <> + Params = <> + Left = 772 + Top = 260 + end + object RMDBWXPTPrint: TRMDBDataSet + Visible = True + DataSet = CDS_WXPTPrint + Left = 700 + Top = 260 + end + object RMDBPRT: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 472 + Top = 340 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 96 + Top = 173 + end + object DSCON: TDataSource + DataSet = CDS_CON + Left = 64 + Top = 173 + end + object CDS_CON: TClientDataSet + Aggregates = <> + Params = <> + Left = 28 + Top = 177 + end +end diff --git a/贸易管理/U_CKProductBCPInList.pas b/贸易管理/U_CKProductBCPInList.pas new file mode 100644 index 0000000..495078b --- /dev/null +++ b/贸易管理/U_CKProductBCPInList.pas @@ -0,0 +1,2224 @@ +unit U_CKProductBCPInList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + TfrmCKProductBCPInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: 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; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column11: TcxGridDBColumn; + PRTColor: TComboBox; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + AOrdDefStr1: TComboBox; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + TBBao: TToolButton; + TBRKD: TToolButton; + ComboBox1: TComboBox; + RM2: TRMGridReport; + RMDBMain10: TRMDBDataSet; + ClientDataSet1: TClientDataSet; + RM3: TRMGridReport; + RMDBMX: TRMDBDataSet; + CDS_BaoNo: TClientDataSet; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + CDS_CX: TClientDataSet; + CDS_BaoPRT: TClientDataSet; + CDS_WXPTPrint: TClientDataSet; + CDS_WXPT: TClientDataSet; + RMDBWXPTPrint: TRMDBDataSet; + MJXHM: TEdit; + Label11: TLabel; + CheckBox1: TCheckBox; + Label12: TLabel; + RKOrdID: TEdit; + Panel4: TPanel; + Label13: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + conNo: TEdit; + Label14: TLabel; + KHConNo: TEdit; + Label15: TLabel; + APID: TEdit; + Label16: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Label17: TLabel; + PRTKuanNO: TEdit; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + Label18: TLabel; + RKPlace: TEdit; + Label19: TLabel; + ISbao: TComboBox; + RMDBPRT: TRMDBDataSet; + PRTHX: TEdit; + Label20: TLabel; + v1Column24: TcxGridDBColumn; + Label21: TLabel; + SOrddefstr1: TEdit; + baoNo: TEdit; + Label22: TLabel; + v1Column25: TcxGridDBColumn; + Label23: TLabel; + CRKFlag: TComboBox; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + V4Column1: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + DSCON: TDataSource; + CDS_CON: 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure PRTColorChange(Sender: TObject); + procedure AOrdDefStr1Change(Sender: TObject); + procedure TBBaoClick(Sender: TObject); + procedure TBRKDClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ISbaoChange(Sender: TObject); + procedure TV4DblClick(Sender: TObject); + private + procedure InitGrid(); + procedure GetBaleData(); + procedure GetBaoData(); + procedure GetJuanData(); + procedure GetLotData(); + procedure Print_WXPT(); + { Private declarations } + public + FLeft, FTop: Integer; + { Public declarations } + end; + +var + frmCKProductBCPInList: TfrmCKProductBCPInList; + +implementation + +uses + U_DataLink, U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPInList := nil; +end; + +procedure TfrmCKProductBCPInList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCKProductBCPInList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNo,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.prtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',KHConNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM'); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); + // sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where A.FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ' ' + FormatDateTime('HH:mm', BegTime.Time)) + ''''); + sql.Add(' and A.FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime) + ' ' + FormatDateTime('HH:mm', endTime.Time)) + ''''); + SQL.Add(' and A.CRFlag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPInList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPInList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCKProductBCPInList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒֿ', Tv1, 'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPInList.FormShow(Sender: TObject); +begin + + ReadCxGrid('Ʒֿ', Tv1, 'Ʒֿ'); + if Trim(DParameters2) = '' then + begin + TBRKCX.Visible := True; + TBBao.Visible := True; + TBRKD.Visible := True; + end + else + begin + // v1Column4.Visible:=False; + TBBao.Visible := False; + TBRKD.Visible := False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmCKProductBCPInList.TBFindClick(Sender: TObject); +var + fsj, fwhere: string; +begin + if ADOQueryMain.Active = False then + Exit; + + fwhere := SGetFilters(Panel1, 1, 2); + fsj := ''; + if trim(ISbao.Text) = 'Ѵ' then + begin + fsj := fsj + ' baoNo>''0'' '; + end + else if trim(ISbao.Text) = 'δ' then + begin + fsj := fsj + ' baoNo='''' '; + end; + + if trim(fsj) <> '' then + begin + if fwhere = '' then + fwhere := fsj + else + fwhere := fwhere + ' and ' + fsj; + end; + + SDofilter(ADOQueryMain, fwhere); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); +end; + +procedure TfrmCKProductBCPinList.Print_WXPT(); +var + j, z: Integer; + FGangNo, FHZ: string; +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMD1 '); + sql.add('@mainID=' + quotedstr(Trim(CDS_Main.FieldByName('RKOrdID').AsString))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_WXPT); + SInitCDSData20(ADOQueryCmd, CDS_WXPT); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),PONO=Cast('''' as varchar(20)),InvNo=Cast('''' as varchar(20)),'); + sql.Add(' PRTColor=Cast('''' as varchar(20)),GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),MZQty=Cast(0 as decimal(18,2)),'); + sql.Add(' RollNo0=Cast('''' as varchar(20)),RollNo1=Cast('''' as varchar(20)),RollNo2=Cast('''' as varchar(20)),ITEM=Cast('''' as varchar(20)),'); + sql.Add(' LenQty0=Cast(0 as decimal(18,2)),LenQty1=Cast(0 as decimal(18,2)),LenQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' KGQty0=Cast(0 as decimal(18,2)),KGQty1=Cast(0 as decimal(18,2)),KGQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' MKGQty0=Cast(0 as decimal(18,2)),MKGQty1=Cast(0 as decimal(18,2)),MKGQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' ZS0=Cast(0 as decimal(18,2)),Zs1=Cast(0 as decimal(18,2)),Zs2=Cast(0 as decimal(18,2)),'); + sql.add(' CRTime=cast(null as datetime),JQty=Cast(0 as decimal(18,2)),XH=Cast(0 as int),SumlenQty=Cast(0 as decimal(18,2)),SumRoll=Cast(0 as decimal(18,2)),'); + sql.Add(' SumRollGanNo=Cast(0 as decimal(18,2)),SumRollColor=Cast(0 as decimal(18,2)),SumZJ=Cast(0 as decimal(18,2)),'); + sql.add(' QtyUnit=cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_WXPTPrint); + SInitCDSData20(ADOQueryCmd, CDS_WXPTPrint); + if CDS_WXPTPrint.IsEmpty = False then + begin + CDS_WXPTPrint.Delete; + end; + j := 0; + z := 0; + FGangNo := ''; + CDS_WXPT.DisableControls; + CDS_WXPTPrint.DisableControls; + with CDS_WXPT do + begin + First; + while not Eof do + begin + with CDS_WXPTPrint do + begin + if CDS_WXPTPrint.IsEmpty then + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + CDS_WXPTPrint.FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + CDS_WXPTPrint.FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('BaoNo').Value := CDS_WXPT.fieldbyname('BaoNo').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + CDS_WXPTPrint.FieldByName('XH').Value := 0; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('Zs0').Value := CDS_WXPT.fieldbyname('MjQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + CDS_WXPTPrint.Post; + FHZ := Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString); + z := 0; + j := 0; + end + else + begin + if (Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString)) <> FHZ then + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := trim(CDS_WXPT.fieldbyname('KGQty').Asstring); + CDS_WXPTPrint.FieldByName('INVNO').Value := trim(CDS_WXPT.fieldbyname('orderno').Asstring); + CDS_WXPTPrint.FieldByName('GangNo').Value := trim(CDS_WXPT.fieldbyname('GangNo').Asstring); + CDS_WXPTPrint.FieldByName('BaoNo').Value := Trim(CDS_WXPT.fieldbyname('BaoNo').Asstring); + CDS_WXPTPrint.FieldByName('PONO').Value := trim(CDS_WXPT.fieldbyname('PONO').Asstring); + CDS_WXPTPrint.FieldByName('QtyUnit').Value := Trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := trim(CDS_WXPT.fieldbyname('PRTColor').Asstring); + CDS_WXPTPrint.FieldByName('XH').Value := j + 1; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('Zs0').Value := CDS_WXPT.fieldbyname('MjQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := trim(CDS_WXPT.fieldbyname('RollNo').Asstring); + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Asstring; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Asstring; + CDS_WXPTPrint.Post; + z := 0; + j := j + 1; + FHZ := Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString); + end + else + begin + if z < 3 then + begin + CDS_WXPTPrint.Locate('XH', j, []); + with CDS_WXPTPrint do + begin + Edit; + FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + FieldByName('BaoNO').Value := CDS_WXPT.fieldbyname('BaoNO').Value; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('qty').AsFloat; + FieldByName('Zs' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('MJQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + Post; + end; + end + else + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + CDS_WXPTPrint.FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + CDS_WXPTPrint.FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('BaoNO').Value := CDS_WXPT.fieldbyname('BaoNO').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + CDS_WXPTPrint.FieldByName('XH').Value := j + 1; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('ZS0').Value := CDS_WXPT.fieldbyname('MJQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('kgQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + CDS_WXPTPrint.Post; + z := 0; + j := j + 1; + end; + end; + end + end; + z := z + 1; + Next; + end; + end; + CDS_WXPT.EnableControls; + CDS_WXPTPrint.EnableControls; +end; + +procedure TfrmCKProductBCPInList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject); +var + fPrintFile, fPrintFile10, FMainID: string; +begin + if CDS_Main.IsEmpty then + Exit; + + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + + 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; + FMainID := ''; + CDS_Main.DisableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + if FMainID = '' then + begin + FMainID := Trim(CDS_Main.fieldbyname('mainID').AsString); + end + else + begin + if Trim(CDS_Main.fieldbyname('mainID').AsString) <> FMainID then + begin + application.MessageBox('ѡIJͬһָʾһӡ', 'ʾϢ', 0); + ADOQueryCmd.Connection.RollbackTrans; + EnableControls; + exit; + end; + end; + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Main.fieldbyname('MJID').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + CDS_Main.EnableControls; + + if trim(ComboBox1.Text) = '̫' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd10 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd50 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥__' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd50 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ë' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ë_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥__' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ëس' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ëس_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''12'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ--2' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-ë' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''5'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-6ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''6'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-7ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''7'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-8ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥(ɫ)' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_HSDB '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-10ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-12ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''12'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-20ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-30ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''30'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-4ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''4'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-10ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-15ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''15'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ͻɫ-15' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd60 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''15'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ͻɫ-20' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd60 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥-10' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20_copy1 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd80 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + //sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + + if trim(ComboBox1.Text) = '뵥1' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd90 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + + if trim(ComboBox1.Text) = '򳤶뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd100 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'PD+' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_HX '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'PD+' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf'; + if FileExists(fPrintFile) then + begin + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPInList.GetLotData(); +var + i, j, z, h, q: Integer; + FGangNo, FHZ: string; +begin + if CDS_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=AP.AOrdDefStr1,A.BaoNo,MJ.MJXH,MJ.MJMaoZ,MJ.MJLen,A.SubId,A.MainId,MJ.MJQty4,'); + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.SOrddefstr4,PRTColorNo=JS.SOrddefstr1,JS.PRTHX'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJID=MJ.MJID'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Sub_AnPai AP on A.APID=AP.APID'); + sql.Add(' where A.MainId=''' + Trim(CDS_Main.fieldbyname('MainId').AsString) + ''''); + //sql.Add(' and A.SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + if Trim(CPType.Text) <> '' then + begin + sql.Add(' and A.CPType=''' + Trim(CPType.Text) + ''''); + end; + sql.Add(' and A.CRType='''' '); + sql.Add(' order by A.SubId,Cast(AP.AOrdDefStr1 as int),MJ.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Juan); + SInitCDSData20(ADOQueryTemp, CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,2)),LenQty1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,2)),LenQty3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,2)),LenQty5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,2)),LenQty7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,2)),LenQty9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' XH=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp, CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty = False then + begin + CDS_JuanPRT.Delete; + end; + i := 0; + j := 0; + z := 0; + FGangNo := ''; + h := 0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value := CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := 0; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value := CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ := Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + z := 0; //gang ׺ + j := 0; //к + for i := 1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(i))).Value := 0; + CDS_JuanPRT.Post; + end; + end + else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString)) <> FHZ then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value := CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := j + 1; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value := CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ := Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString); + z := 0; //gang ׺ + j := j + 1; //к + for i := 1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(i))).Value := 0; + CDS_JuanPRT.Post; + end; + end + else + begin + if z < 10 then + begin + CDS_JuanPRT.Locate('XH', j, []); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value := CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS' + Trim(IntToStr(z))).Value := 1; + FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJQty4').Value; + FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end + else + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value := CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := j + 1; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value := CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + z := 0; //gang ׺ + j := j + 1; //к + for i := 1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(i))).Value := 0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + z := z + 1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; + +procedure TfrmCKProductBCPInList.GetJuanData(); +var + i, j, z, h, q: Integer; + FGangNo: string; +begin + if CDS_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=AP.AOrdDefStr1,A.BaoNo,MJ.MJXH,MJ.MJMaoZ,MJ.MJLen,A.SubId,A.MainId'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJID=MJ.MJID'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Sub_AnPai AP on A.APID=AP.APID'); + sql.Add(' where A.MainId=''' + Trim(CDS_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add(' and A.SubId=''' + Trim(CDS_Main.fieldbyname('SubId').AsString) + ''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + if Trim(CPType.Text) <> '' then + begin + sql.Add(' and A.CPType=''' + Trim(CPType.Text) + ''''); + end; + sql.Add(' and A.CRType='''' '); + sql.Add(' order by Cast(AP.AOrdDefStr1 as int),Cast(A.BaoNo as int),MJ.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Juan); + SInitCDSData20(ADOQueryTemp, CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select BaoNo0=Cast('''' as varchar(20)),MJXH0=Cast(0 as int),MJPS0=Cast(1 as int),'); + sql.Add('MJPS1=Cast(1 as int),MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),MJPS4=Cast(1 as int),'); + sql.Add(' KGQty0=Cast(1.00 as decimal(18,2)),LenQty0=Cast(1.00 as decimal(18,2)),'); + sql.Add(' BaoNo1=Cast('''' as varchar(20)),MJXH1=Cast(0 as int),'); + sql.Add(' KGQty1=Cast(1.00 as decimal(18,2)),LenQty1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' BaoNo2=Cast('''' as varchar(20)),MJXH2=Cast(0 as int),'); + sql.Add(' KGQty2=Cast(1.00 as decimal(18,2)),LenQty2=Cast(1.00 as decimal(18,2)),'); + sql.Add(' BaoNo3=Cast('''' as varchar(20)),MJXH3=Cast(0 as int),'); + sql.Add(' KGQty3=Cast(1.00 as decimal(18,2)),LenQty3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' BaoNo4=Cast('''' as varchar(20)),MJXH4=Cast(0 as int),'); + sql.Add(' KGQty4=Cast(1.00 as decimal(18,2)),LenQty4=Cast(1.00 as decimal(18,2)),'); + sql.Add(' BaoNo5=Cast('''' as varchar(20)),MJXH5=Cast(0 as int),'); + sql.Add(' KGQty5=Cast(1.00 as decimal(18,2)),LenQty5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' GangNo0=Cast('''' as varchar(20)),XH=Cast('''' as varchar(20)),'); + sql.Add(' GangNo1=Cast('''' as varchar(20)),GangNo2=Cast('''' as varchar(20)),'); + sql.Add(' GangNo3=Cast('''' as varchar(20)),GangNo4=Cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp, CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty = False then + begin + CDS_JuanPRT.Delete; + end; + i := 0; + j := 0; + z := 0; + FGangNo := ''; + h := 0; + 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 + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo0').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO0').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH0').Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('KGQty0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('XH').Value := '0'; + CDS_JuanPRT.Post; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + for h := 1 to 9 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('XH').Value := Trim(IntToStr(h)); + CDS_JuanPRT.Post; + end; + j := 0; //XH к + z := 0; //gang ׺ + //h:=9;// + q := 0; //ҳ + end; + end + else + begin + if i > 9 then + begin + z := z + 1; + + if z > 4 then + begin + z := 0; + q := q + 1; + j := q * 10; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo0').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO0').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH0').Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('KGQty0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := Trim(IntToStr(j)); + CDS_JuanPRT.Post; + for h := j + 1 to j + 9 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('XH').Value := Trim(IntToStr(h)); + CDS_JuanPRT.Post; + end; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + end + else + begin + j := q * 10; + CDS_JuanPRT.Locate('XH', Trim(IntToStr(10 * q)), []); + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('GangNo' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(z))).Value := 1; + CDS_JuanPRT.FieldByName('KGQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.Post; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + end; + i := 0; + end + else + begin + if FGangNo <> Trim(CDS_Juan.fieldbyname('GangNo').AsString) then + begin + z := z + 1; + + if z > 4 then + begin + z := 0; + q := q + 1; + j := q * 10; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo0').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO0').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH0').Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('KGQty0').Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := Trim(IntToStr(j)); + CDS_JuanPRT.Post; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + for h := j + 1 to j + 9 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('XH').Value := Trim(IntToStr(h)); + CDS_JuanPRT.Post; + end; + end + else + begin + j := q * 10; + CDS_JuanPRT.Locate('XH', Trim(IntToStr(10 * q)), []); + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('GangNo' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('KGQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(z))).Value := 1; + CDS_JuanPRT.Post; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + end; + i := 0; + end + else + begin + j := j + 1; + CDS_JuanPRT.Locate('XH', Trim(IntToStr(j)), []); + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('GangNo' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('MJXH' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJXH').Value; + CDS_JuanPRT.FieldByName('KGQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MJPS' + Trim(IntToStr(z))).Value := 1; + CDS_JuanPRT.Post; + FGangNo := Trim(CDS_Juan.fieldbyname('GangNo').AsString); + end; + end; + end; + end; + i := i + 1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; + +procedure TfrmCKProductBCPInList.GetBaoData(); +var + i, j, z, h: Integer; + FGangNo: string; +begin + if CDS_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=AP.AOrdDefStr1,A.BaoNo,MJ.MJXH,MJ.MJMaoZ,MJ.MJLen'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJID=MJ.MJID'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub_AnPai AP on A.APID=AP.APID'); + sql.Add(' where A.MainId=''' + Trim(CDS_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add(' and A.SubId=''' + Trim(CDS_Main.fieldbyname('SubId').AsString) + ''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + if Trim(CPType.Text) <> '' then + begin + sql.Add(' and A.CPType=''' + Trim(CPType.Text) + ''''); + end; + sql.Add(' and A.CRType='''' '); + sql.Add(' order by Cast(AP.AOrdDefStr1 as int),Cast(A.BaoNo as int),MJ.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_BaoNo); + SInitCDSData20(ADOQueryTemp, CDS_BaoNo); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo0=Cast('''' as varchar(20)),GangNo1=Cast('''' as varchar(20)),GangNo2=Cast('''' as varchar(20)),'); + sql.Add(' GangNo3=Cast('''' as varchar(20)),GangNo4=Cast('''' as varchar(20)),XH=Cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_BaoPRT); + SInitCDSData20(ADOQueryTemp, CDS_BaoPRT); + if CDS_BaoPRT.IsEmpty = False then + begin + CDS_BaoPRT.Delete; + end; + i := 0; + j := 0; + z := 0; + FGangNo := ''; + h := 0; + CDS_BaoNo.DisableControls; + with CDS_BaoNo do + begin + First; + while not Eof do + begin + with CDS_BaoPRT do + begin + if CDS_BaoPRT.IsEmpty then + begin + if j = 0 then + begin + CDS_BaoPRT.Append; + CDS_BaoPRT.FieldByName('GangNo0').Value := CDS_BaoNo.fieldbyname('GangNo').Value; + CDS_BaoPRT.FieldByName('XH').Value := '0'; + CDS_BaoPRT.Post; + FGangNo := Trim(CDS_BaoNo.fieldbyname('GangNo').AsString); + j := 0; //XH к + z := 0; //gang ׺ + h := 0; //ÿеļ¼ + end; + end + else + begin + if i > 9 then + begin + z := z + 1; + if z > 4 then + begin + z := 0; + j := j + 1; + CDS_BaoPRT.Append; + CDS_BaoPRT.FieldByName('GangNo0').Value := CDS_BaoNo.fieldbyname('GangNo').Value; + CDS_BaoPRT.FieldByName('XH').Value := Trim(IntToStr(j)); + CDS_BaoPRT.Post; + FGangNo := Trim(CDS_BaoNo.fieldbyname('GangNo').AsString); + end + else + begin + CDS_BaoPRT.Locate('XH', Trim(IntToStr(j)), []); + CDS_BaoPRT.Edit; + CDS_BaoPRT.FieldByName('GangNo' + Trim(IntToStr(z))).Value := CDS_BaoNo.fieldbyname('GangNo').Value; + CDS_BaoPRT.Post; + FGangNo := Trim(CDS_BaoNo.fieldbyname('GangNo').AsString); + end; + i := 0; + end + else + begin + if FGangNo <> Trim(CDS_BaoNo.fieldbyname('GangNo').AsString) then + begin + z := z + 1; + if z > 4 then + begin + z := 0; + j := j + 1; + CDS_BaoPRT.Append; + CDS_BaoPRT.FieldByName('GangNo0').Value := CDS_BaoNo.fieldbyname('GangNo').Value; + CDS_BaoPRT.FieldByName('XH').Value := Trim(IntToStr(j)); + CDS_BaoPRT.Post; + FGangNo := Trim(CDS_BaoNo.fieldbyname('GangNo').AsString); + end + else + begin + CDS_BaoPRT.Locate('XH', Trim(IntToStr(j)), []); + CDS_BaoPRT.Edit; + CDS_BaoPRT.FieldByName('GangNo' + Trim(IntToStr(z))).Value := CDS_BaoNo.fieldbyname('GangNo').Value; + CDS_BaoPRT.Post; + FGangNo := Trim(CDS_BaoNo.fieldbyname('GangNo').AsString); + end; + i := 0; + end; + end; + end; + end; + i := i + 1; + Next; + end; + end; + CDS_BaoNo.EnableControls; + +end; + +procedure TfrmCKProductBCPInList.GetBaleData(); +var + i, j, z, h, q: Integer; + FGangNo, FHZ: string; +begin + if CDS_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=AP.AOrdDefStr1,A.BaoNo,MJ.MJXH,MJ.MJMaoZ,MJ.MJLen,A.SubId,A.MainId,'); + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.SOrddefstr4,JS.PRTHX'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJID=MJ.MJID'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Sub_AnPai AP on A.APID=AP.APID'); + sql.Add(' where A.MainId=''' + Trim(CDS_Main.fieldbyname('MainId').AsString) + ''''); + //sql.Add(' and A.SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + if Trim(CDS_Main.FieldByName('CKOrdNo').AsString) <> '' then + begin + sql.Add(' and A.CKOrdNo=''' + Trim(CDS_Main.FieldByName('CKOrdNo').AsString) + ''''); + end; + if Trim(CPType.Text) <> '' then + begin + sql.Add(' and A.CPType=''' + Trim(CPType.Text) + ''''); + end; + sql.Add(' and A.CRType='''' '); + sql.Add(' order by Cast(AP.AOrdDefStr1 as int),Cast(A.BaoNo as int),MJ.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Juan); + SInitCDSData20(ADOQueryTemp, CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),MJPS=Cast(0 as int),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,2)),LenQty1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,2)),LenQty3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,2)),LenQty5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,2)),LenQty7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,2)),LenQty9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty10=Cast(1.00 as decimal(18,2)),LenQty11=Cast(1.00 as decimal(18,2)),'); + 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(1 as int),XH=Cast(0 as int)'); + {sql.Add(' KgQty0=Cast(1.00 as decimal(18,2)),KgQty1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,2)),LenQty3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,2)),LenQty5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty5=Cast(1.00 as decimal(18,2)),LenQty7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,2)),LenQty9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' LenQty10=Cast(1.00 as decimal(18,2)),LenQty11=Cast(1.00 as decimal(18,2)),');} + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp, CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty = False then + begin + CDS_JuanPRT.Delete; + end; + i := 0; + j := 0; + z := 0; + FGangNo := ''; + h := 0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := 0; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ := Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + z := 0; //gang ׺ + j := 0; //к + end + else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString)) <> FHZ then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := j + 1; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ := Trim(CDS_Juan.fieldbyname('SubId').AsString) + Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString); + z := 0; //gang ׺ + j := j + 1; //к + end + else + begin + if z < 12 then + begin + CDS_JuanPRT.Locate('XH', j, []); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + FieldByName('BaoNO').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS' + Trim(IntToStr(z))).Value := 1; + FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_Juan.fieldbyname('MJLen').Value; + FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end + else + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('BaoNO').Value := CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value := CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value := CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value := 1; + CDS_JuanPRT.FieldByName('XH').Value := j + 1; + CDS_JuanPRT.FieldByName('LenQty0').Value := CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('SubId').Value := CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + z := 0; //gang ׺ + j := j + 1; //к + end; + end; + end + end; + z := z + 1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; + +procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject); +begin +// if Length(Trim(orderNo.Text))<4 then Exit; +// TBFind.Click; + if Length(Trim(orderno.text)) > 3 then + begin + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*'); + sql.Add('from JYOrder_Main A'); + sql.Add('where A.orderno like ''' + '%' + Trim(OrderNo.Text) + '%' + ''''); +// showmessage(sql.text); + Open; + end; + SCreateCDS20(ADOQuery1, CDS_Con); + SInitCDSData20(ADOQuery1, CDS_Con); + + if CDS_Con.IsEmpty then + cxGrid4.Visible := False + else + cxGrid4.Visible := True; + end + else + begin + cxGrid4.Visible := False + end; + +end; + +procedure TfrmCKProductBCPInList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(Trim(orderNo.Text)) < 3 then + Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNo,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.prtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',KHConNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM'); + SQL.Add(',CRKFlag=case when (select count(mainid) from CK_BanCP_CR X where X.mjid=A.mjid and crflag='''')=''1'' then ''ѳ'' else '''' end'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join JYOrder_Main B on B.MainId=A.MainId'); + Sql.add(' inner join JYOrder_Sub C on C.mainID=A.mainID and C.SubId=A.SubId'); + Sql.add(' inner join WFB_MJJY D on D.MJId=A.MJId'); + sql.add(' where B.OrderNo like ''' + '%' + trim(orderNo.Text) + '%' + ''''); + SQL.Add(' and A.CRflag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmCKProductBCPInList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmCKProductBCPInList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmCKProductBCPInList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then + Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while Locate('SSel', True, []) do + begin + if trim(Fieldbyname('Filler').AsString) <> trim(DName) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ܳ˵ݣ', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where CRID=' + Trim(CDS_Main.fieldbyname('CRID').AsString)); + sql.Add('and CRFlag in('''','''') '); + Open; + end; + if ADOQueryTemp.RecordCount > 1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ѳⲻܳ!', 'ʾ', 0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCP_CR Set CRFlag='''',CRType='''',CRTime=NULL,RKOrdId='''''); + sql.Add(' where CRID=''' + Trim(CDS_Main.fieldbyname('CRID').AsString) + ''''); + sql.Add(' and CRFlag='''''); + ExecSQL; + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + // sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + // sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + + ExecSQL; + end; } + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''δ''where not exists(select MJID from CK_BanCP_CR X where X.MJID=WFB_MJJY.MJID and X.CRFlag='''' and MJStr2<>''δ'')'); + ExecSQL; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPInList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty = False then + begin + InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString), AOrdDefStr1, ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPInList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; + if CDS_Main.IsEmpty = False then + begin + //InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString), AOrdDefStr1, ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPInList.AOrdDefStr1Change(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.TBBaoClick(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1,D.MPRTKuanNO,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + sql.Add(' where BaoId=''' + Trim(CDS_Main.fieldbyname('BaoId').AsString) + ''' '); + SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1,D.MPRTKuanNO'); + Open; + end; + if ADOQueryTemp.RecordCount > 1 then + begin + Application.MessageBox('볷!', 'ʾ', 0); + Exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_Main.fieldbyname('BaoId').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; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['RKOrdID']:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + //RMVariables['OrderNo']:=Trim(CDS_MainSel.fieldbyname('OrderNo').AsString); + //RMVariables['PS']:=Trim(RKOrdPS.Text); + //RMVariables['QtyUnit']:=Trim(CDS_MainSel.fieldbyname('QtyUnit').AsString); + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPInList.TBRKDClick(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ⵥǩ.rmf'; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A1.CRTime,A1.RKOrdID,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(RKOrdID,''RKColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(RKOrdID,''RKSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(RKOrdID,''RkSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(RKOrdID,''RKPRtHX''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(RKOrdID,''RkPrtkuanno''),'); + sql.Add('MJStr4=DBO.F_Get_Order_SubStr(RKOrdID,''RKGangNO''), '); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('Bsl=(select count(distinct baoNo) from CK_BanCP_CR X where X.RKOrdID=A1.RKOrdID), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from CK_BanCP_CR A1 inner join WFB_MJJY A on A.MJID=A1.MJID '); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + sql.Add(' where A1.RKOrdID=''' + Trim(CDS_Main.fieldbyname('RKOrdID').AsString) + ''' '); + SQL.ADD('group by A1.CRTime,A1.RKOrdID,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_Main.fieldbyname('RKOrdID').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; + if FileExists(fPrintFile) then + begin + //CDS_MainSel.Locate('RKOrdID',Trim(RKOrdID.Text),[]); + //RMVariables['RKOrdID']:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + //RMVariables['OrderNo']:=Trim(CDS_MainSel.fieldbyname('OrderNo').AsString); + //RMVariables['PS']:=Trim(RKOrdPS.Text); + //RMVariables['QtyUnit']:=Trim(CDS_MainSel.fieldbyname('QtyUnit').AsString); + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ⵥǩ.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPInList.CheckBox1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, CheckBox1.Checked); +end; + +procedure TfrmCKProductBCPInList.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmCKProductBCPInList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left := FLeft; + Panel4.Top := FTop + 110; + Panel4.Visible := True; + Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text := CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; + application.ProcessMessages; +end; + +procedure TfrmCKProductBCPInList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmCKProductBCPInList.ISbaoChange(Sender: TObject); +begin + Tbfind.Click; +end; + +procedure TfrmCKProductBCPInList.TV4DblClick(Sender: TObject); +begin + cxGrid4.Visible := False; + orderno.Text := CDS_CON.fieldbyname('orderno').AsString; + cxGrid4.Visible := False; + if Length(Trim(orderNo.Text)) < 3 then + Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNo,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.prtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',KHConNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM'); + SQL.Add(',CRKFlag=case when (select count(mainid) from CK_BanCP_CR X where X.mjid=A.mjid and crflag='''')=''1'' then ''ѳ'' else '''' end'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join JYOrder_Main B on B.MainId=A.MainId'); + Sql.add(' inner join JYOrder_Sub C on C.mainID=A.mainID and C.SubId=A.SubId'); + Sql.add(' inner join WFB_MJJY D on D.MJId=A.MJId'); + sql.add(' where B.OrderNo=' + quotedstr(trim(orderNo.Text))); + SQL.Add(' and A.CRflag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +end. + diff --git a/贸易管理/U_CKProductBCPKC.dfm b/贸易管理/U_CKProductBCPKC.dfm new file mode 100644 index 0000000..15b89ba --- /dev/null +++ b/贸易管理/U_CKProductBCPKC.dfm @@ -0,0 +1,330 @@ +object frmCKProductBCPKC: TfrmCKProductBCPKC + Left = 128 + Top = 152 + Width = 1027 + Height = 511 + Caption = #21322#25104#21697#20986#20837#23384 + 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 = 1019 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 302 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#20195#21495 + end + object Label4: TLabel + Left = 478 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 638 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object YCLName: TEdit + Tag = 2 + Left = 351 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = YCLNameChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 502 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = YCLNameChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 663 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = YCLNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 4 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 75 + Width = 1019 + Height = 399 + 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 = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + Column = v2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column2: TcxGridDBColumn + Caption = #24133#23485 + DataBinding.FieldName = 'XJFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Width = 57 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#25968#37327 + DataBinding.FieldName = 'SQJCS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #26412#26399#20837#24211#25968#37327 + DataBinding.FieldName = 'RKS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 101 + end + object v1Column1: TcxGridDBColumn + Caption = #26412#26399#22238#20179#25968#37327 + DataBinding.FieldName = 'HCS' + Options.Focusing = False + Width = 87 + end + object v2Column7: TcxGridDBColumn + Caption = #26412#26399#20986#24211#25968#37327 + DataBinding.FieldName = 'CKS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object v2Column8: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 904 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 40 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 624 + Top = 184 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 544 + Top = 176 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 192 + end +end diff --git a/贸易管理/U_CKProductBCPKC.pas b/贸易管理/U_CKProductBCPKC.pas new file mode 100644 index 0000000..b141d79 --- /dev/null +++ b/贸易管理/U_CKProductBCPKC.pas @@ -0,0 +1,207 @@ +unit U_CKProductBCPKC; + +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; + +type + TfrmCKProductBCPKC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + YCLName: TEdit; + SWFBColor: TEdit; + SWFBHW: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + 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 YCLNameChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKC: TfrmCKProductBCPKC; + +implementation +uses + U_DataLink,U_Fun,U_CRMX; + +{$R *.dfm} + +procedure TfrmCKProductBCPKC.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKC:=nil; +end; + +procedure TfrmCKProductBCPKC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKC.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKC.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Parameters.ParamByName('CKName').Value:=Trim(DParameters1); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKC.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPKC.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKC.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ԭϿ2',Tv1,'ԭϲֿ'); + Close; +end; + +procedure TfrmCKProductBCPKC.FormShow(Sender: TObject); +begin + + ReadCxGrid('ԭϿ2',Tv1,'ԭϲֿ'); + if Trim(DParameters2)='ԭ' then + begin + ToolButton1.Visible:=True; + v2Column9.Options.Focusing:=True; + v2Column9.Visible:=True; + end else + begin + ToolButton1.Visible:=False; + v2Column9.Options.Focusing:=False; + v2Column9.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmCKProductBCPKC.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(Trim(DParameters1)+'',cxGrid2); +end; + +procedure TfrmCKProductBCPKC.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 TfrmCKProductBCPKC.YCLNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKC.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + frmCRMX:=TfrmCRMX.Create(Application); + with frmCRMX do + begin + Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime); + Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1); + {FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString); + FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString); + FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString); + FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString); } + CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmCRMX.Free; + end; +end; + +end. diff --git a/贸易管理/U_CKProductBCPKCHZList.dfm b/贸易管理/U_CKProductBCPKCHZList.dfm new file mode 100644 index 0000000..7d3e9b5 --- /dev/null +++ b/贸易管理/U_CKProductBCPKCHZList.dfm @@ -0,0 +1,505 @@ +object frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList + Left = 128 + Top = 152 + Width = 1027 + 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 = 1011 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1011 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 36 + Top = 36 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 360 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 784 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 816 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 36 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 36 + Top = 72 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 216 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label9: TLabel + Left = 216 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 360 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 504 + Top = 36 + Width = 6 + Height = 12 + end + object Label11: TLabel + Left = 508 + Top = 12 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label12: TLabel + Left = 508 + Top = 36 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label13: TLabel + Left = 672 + Top = 12 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 86 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 829 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + Visible = False + end + object EndDate: TDateTimePicker + Left = 829 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object orderNo: TEdit + Tag = 2 + Left = 86 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 82 + Top = 68 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 244 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 244 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 392 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object YWY: TEdit + Tag = 2 + Left = 546 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 546 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object PRTColor: TComboBox + Tag = 1 + Left = 392 + Top = 8 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 10 + OnChange = PRTColorChange + end + object RKplace: TEdit + Tag = 2 + Left = 698 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 89 + Width = 1011 + Height = 384 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column11: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'RKPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#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 v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column10: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 52 + end + object v1Column4: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + 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 v1Column12: TcxGridDBColumn + Caption = #21253#25968 + DataBinding.FieldName = 'baoNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + 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 = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + 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_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + 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 diff --git a/贸易管理/U_CKProductBCPKCHZList.pas b/贸易管理/U_CKProductBCPKCHZList.pas new file mode 100644 index 0000000..28f8e79 --- /dev/null +++ b/贸易管理/U_CKProductBCPKCHZList.pas @@ -0,0 +1,262 @@ +unit U_CKProductBCPKCHZList; + +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 + TfrmCKProductBCPKCHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: 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; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + YWY: TEdit; + OrdPerson1: TEdit; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + PRTColor: TComboBox; + v1Column11: TcxGridDBColumn; + RKplace: TEdit; + Label13: TLabel; + v1Column12: TcxGridDBColumn; + 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 v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTColorChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCKProductBCPKCHZList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCHZList:=nil; +end; + +procedure TfrmCKProductBCPKCHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKCHZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select YWY=B.OrdPerson2,B.OrdPerson1,C.SOrdDefStr10,C.SubId,A.* ,B.OrdDefStr1,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ '); + sql.Add(',C.SOrddefstr1,C.PRTHX'); + sql.Add(' from(select count(distinct baoid) as baoNum,sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,count(*) JQty,AA.MainId,AA.SubId,AA.CPType,AA.RKPlace,KC.KCQtyUnit '); + sql.Add(' from CK_BanCP_KC KC inner join CK_BanCP_CR AA on KC.CRID=AA.CRID and AA.CRFlag='''''); + sql.Add(' where (KC.KCQty>0 or KC.KCKgQty>0) group by AA.MainId,AA.SubId,AA.CPType,AA.RKPlace,KC.KCQtyUnit ) A'); + Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + if Trim(DParameters1)<>'Ȩ' then + begin + end + else + begin + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCHZList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCHZList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + //v1Column5.Options.Focusing:=True; + end else + begin + //v1Column5.Options.Focusing:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCHZList.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 TfrmCKProductBCPKCHZList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCHZList.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 TfrmCKProductBCPKCHZList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCHZList.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty=False then + begin + InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + //InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + end; +end; + +end. diff --git a/贸易管理/U_CKProductBCPKCList.dfm b/贸易管理/U_CKProductBCPKCList.dfm new file mode 100644 index 0000000..ab1e677 --- /dev/null +++ b/贸易管理/U_CKProductBCPKCList.dfm @@ -0,0 +1,934 @@ +object frmCKProductBCPKCList: TfrmCKProductBCPKCList + Left = -100 + Top = 97 + Width = 1382 + Height = 754 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBZD: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #36716#21333 + ImageIndex = 102 + OnClick = TBZDClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 57 + OnClick = ToolButton1Click + end + object print: TToolButton + Left = 378 + Top = 0 + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = printClick + end + object TBClose: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 84 + 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 = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 22 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 193 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 358 + Top = 36 + 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 = 508 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label12: TLabel + Left = 656 + Top = 12 + Width = 24 + Height = 12 + Caption = #21253#21495 + end + object Label34: TLabel + Left = 68 + Top = 62 + Width = 52 + Height = 12 + Caption = #25171#21360#20221#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 656 + Top = 36 + Width = 24 + Height = 12 + Caption = #27454#21495 + end + object Label14: TLabel + Left = 861 + Top = 12 + Width = 26 + Height = 12 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 193 + Top = 60 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 242 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + 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 = 1 + 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 = 2 + Visible = False + end + object orderNo: TEdit + Tag = 2 + Left = 72 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeNameChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 72 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 242 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 382 + Top = 32 + Width = 90 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 535 + Top = 32 + Width = 90 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '' + '' + '') + end + object PRTColor: TComboBox + Tag = 1 + Left = 384 + Top = 8 + Width = 90 + Height = 20 + ItemHeight = 12 + TabOrder = 8 + OnChange = PRTColorChange + end + object AOrdDefStr1: TComboBox + Tag = 1 + Left = 535 + Top = 8 + Width = 90 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + OnChange = AOrdDefStr1Change + end + object baoNo: TEdit + Tag = 1 + Left = 682 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object CheckBox1: TCheckBox + Left = 16 + Top = 60 + Width = 49 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = CheckBox1Click + end + object ComboBox1: TComboBox + Left = 122 + Top = 60 + Width = 40 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 12 + ItemIndex = 1 + ParentFont = False + TabOrder = 12 + Text = '2' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object PRTKuanNO: TEdit + Tag = 2 + Left = 682 + Top = 32 + Width = 90 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end + object RKPlace1: TBtnEditA + Left = 888 + Top = 7 + Width = 100 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnBtnClick = RKPlace1BtnClick + end + object Button1: TButton + Left = 988 + Top = 8 + Width = 65 + Height = 21 + Caption = #30830#23450 + TabOrder = 15 + OnClick = Button1Click + end + object RKplace: TEdit + Tag = 2 + Left = 242 + Top = 57 + Width = 90 + Height = 20 + TabOrder = 16 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 117 + Width = 1366 + Height = 599 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column12: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#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 = 92 + end + object v1Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column13: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + 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 v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column14: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'baoNO' + HeaderAlignmentHorz = taCenter + Styles.Content = FontBlue + Styles.Footer = FontBlue + Styles.Header = FontBlue + Width = 60 + 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 = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + 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 = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column11: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 61 + end + object v1Column15: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTKuanNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'RKplace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label11: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + end + end + object MovePanel2: TMovePanel + Left = 408 + Top = 192 + 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 ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1200 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1148 + Top = 20 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1036 + Top = 4 + 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 = 608 + Top = 160 + end + object PopupMenu1: TPopupMenu + Left = 392 + Top = 152 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ThreeColorBase: TcxStyleRepository + Left = 539 + Top = 316 + 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 = ADOQueryPrint + Left = 1172 + Top = 68 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1088 + Top = 4 + 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 = 796 + Top = 88 + ReportData = {} + end +end diff --git a/贸易管理/U_CKProductBCPKCList.pas b/贸易管理/U_CKProductBCPKCList.pas new file mode 100644 index 0000000..488075e --- /dev/null +++ b/贸易管理/U_CKProductBCPKCList.pas @@ -0,0 +1,657 @@ +unit U_CKProductBCPKCList; + +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; + +type + TfrmCKProductBCPKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: 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; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + v1Column11: TcxGridDBColumn; + TBZD: TToolButton; + v1Column12: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label4: TLabel; + Label10: TLabel; + PRTColor: TComboBox; + AOrdDefStr1: TComboBox; + v1Column14: TcxGridDBColumn; + 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; + ToolButton1: TToolButton; + Label12: TLabel; + baoNo: TEdit; + CheckBox1: TCheckBox; + print: TToolButton; + RMDB_Main: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + RM2: TRMGridReport; + ComboBox1: TComboBox; + Label34: TLabel; + v1Column15: TcxGridDBColumn; + PRTKuanNO: TEdit; + Label13: TLabel; + v1Column16: TcxGridDBColumn; + RKPlace1: TBtnEditA; + Label14: TLabel; + Button1: TButton; + RKplace: TEdit; + Label15: TLabel; + 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 Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(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 TBZDClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure PRTColorChange(Sender: TObject); + procedure AOrdDefStr1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure printClick(Sender: TObject); + procedure RKPlace1BtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + private + FLeft,FTop:Integer; + procedure InitGrid(); + function PrtData(FMJID:String):boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKCList: TfrmCKProductBCPKCList; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderListSel, U_ZDYHelp; + +{$R *.dfm} +function TfrmCKProductBCPKCList.PrtData(FMJID:String):boolean; +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + result:=false; + try + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(FMJID)+''''); + Open; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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; + + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + exit; + end; + result:=true; + except + end; +end; + +procedure TfrmCKProductBCPKCList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCList:=nil; +end; + +procedure TfrmCKProductBCPKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCList.FormCreate(Sender: TObject); +begin + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX :WSQl'); + if Trim(DParameters2)<>'' then + begin + // Parameters.ParamByName('WSQl').Value:=' and B.Filler='''+Trim(DName)+''''; + end else + begin + // Parameters.ParamByName('WSQl').Value:=''; + end; + Parameters.ParamByName('WSQl').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TBFind.Click; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCList.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ֿб',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ֿб',Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + TBZD.Visible:=True; + // ToolButton1.Visible:=true; + end else + begin + TBZD.Visible:=False; + // ToolButton1.Visible:=false; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCList.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 TfrmCKProductBCPKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmCKProductBCPKCList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductBCPKCList.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductBCPKCList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmCKProductBCPKCList.TBZDClick(Sender: TObject); +var + FMainid,FSubId,FOrderNo,FColor,FSH,FHX,FCodeName,FMPRTMF,FMPRTKZ:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + FMainid:=''; + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + FFInt:=1; + if ShowModal=1 then + begin + FMainid:=frmProductOrderListSel.Order_Main.fieldbyname('Mainid').AsString; + FSubId:=frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString; + FOrderNo:=frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').Value; + FCodeName:=frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').Value; + FColor:=frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').Value; + if Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString)<>'' then + FSH:=frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString; + if Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString)<>'' then + FHX:=frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').Value; + FMPRTMF:=frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString; + FMPRTKZ:=frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString; + end; + end; + finally + frmProductOrderListSel.Free; + end; + if Trim(FMainid)<>'' then + begin + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + Self.ADOQueryCmd.Connection.BeginTrans; + Self.CDS_Main.DisableControls; + with Self.CDS_Main do + begin + while not Eof do + begin + if Self.CDS_Main.FieldByName('SSEl').AsBoolean=True then + begin + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_CR Set MainId='''+Trim(FMainid)+''''); + sql.Add(',SubId='''+Trim(FSubId)+''''); + sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() '); + sql.Add(' where CRID='+self.CDS_Main.fieldbyname('CRID').AsString); + SQL.Add(' and CRType='''' '); + sql.Add('UPdate WFB_MJJY Set MainId='''+Trim(FMainid)+''''); + sql.Add(',SubId='''+Trim(FSubId)+''''); + //sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() '); + sql.Add(' where MJID='+self.CDS_Main.fieldbyname('MJID').AsString); + ExecSQL; + end; + Edit; + FieldByName('OrderNo').Value:=FOrderNo; + FieldByName('MPRTCodeName').Value:=FCodeName; + FieldByName('PRTColor').Value:=FColor; + FieldByName('SOrddefstr1').Value:=FSH; + FieldByName('PRTHX').Value:=FHX; + FieldByName('MPRTMF').Value:=FMPRTMF; + FieldByName('MPRTKZ').Value:=FMPRTKZ; + Post; + end; + Next; + end; + end; + Self.CDS_Main.EnableControls; + Self.ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + except + Self.ADOQueryCmd.Connection.RollbackTrans; + MovePanel2.Visible:=False; + Application.MessageBox('תʧ!','ʾ',0) ; + end; + end; +end; + +procedure TfrmCKProductBCPKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPKCList.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty=False then + begin + InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPKCList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; + if CDS_Main.IsEmpty=False then + begin + //InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPKCList.AOrdDefStr1Change(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCList.ToolButton1Click(Sender: TObject); +begin + IF CDS_main.IsEmpty then exit; + orderNo.SetFocus; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_CR '); + sql.Add('SET baoNO='+quotedstr(CDS_Main.fieldbyname('baoNO').AsString)); + sql.Add('where BCID='+quotedstr(CDS_Main.fieldbyname('BCID').AsString)); + sql.Add('and MJID='+quotedstr(CDS_Main.fieldbyname('MJID').AsString)); + execsql; + end; + end; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + exit; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; +end; + +procedure TfrmCKProductBCPKCList.CheckBox1Click(Sender: TObject); +begin + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + first; + EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCList.printClick(Sender: TObject); +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + with CDS_Main do + begin + DisableControls; + first; + while not Eof do + begin + if Self.CDS_Main.FieldByName('SSEl').AsBoolean=True then + begin + iF not PrtData(CDS_Main.fieldbyname('MJID').AsString) then + begin + EnableControls; + exit; + end; + end; + Next; + end; + EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCList.RKPlace1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + RKPlace1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCKProductBCPKCList.Button1Click(Sender: TObject); +begin + // IF trim(RKPlace1.Text)='' then exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + Self.ADOQueryCmd.Connection.BeginTrans; + Self.CDS_Main.DisableControls; + with Self.CDS_Main do + begin + while not Eof do + begin + if Self.CDS_Main.FieldByName('SSEl').AsBoolean=True then + begin + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_CR Set RKPlace='+quotedstr(trim(RKPlace1.Text))); + sql.Add(' where BCID='+quotedstr(trim(self.CDS_Main.fieldbyname('BCID').AsString))); + ExecSQL; + end; + Edit; + FieldByName('RKPlace').Value:=trim(rkplace1.Text); + Post; + end; + Next; + end; + end; + Self.CDS_Main.EnableControls; + Self.ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + except + Self.ADOQueryCmd.Connection.RollbackTrans; + MovePanel2.Visible:=False; + Application.MessageBox('תƿλʧ!','ʾ',0) ; + end; +end; + +procedure TfrmCKProductBCPKCList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + IF key=#13 then + begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX :WSQl'); + Parameters.ParamByName('WSQl').Value:=' and B.OrderNo like '+quotedstr('%'+trim(OrderNo.Text)+'%'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +end. diff --git a/贸易管理/U_CKProductBCPOutList.dfm b/贸易管理/U_CKProductBCPOutList.dfm new file mode 100644 index 0000000..c15249f --- /dev/null +++ b/贸易管理/U_CKProductBCPOutList.dfm @@ -0,0 +1,1184 @@ +object frmCKProductBCPOutList: TfrmCKProductBCPOutList + Left = 246 + Top = 194 + Width = 1096 + Height = 576 + Caption = #25104#21697#20986#24211#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 = 1080 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBCKCX: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25764#38144#20986#24211 + ImageIndex = 129 + Visible = False + OnClick = TBCKCXClick + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #36864#24211#25195#25551 + ImageIndex = 129 + Visible = False + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 426 + Top = 3 + Width = 247 + 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 = #22826#23376#21602 + Items.Strings = ( + #22826#23376#21602 + #25955#35013#30721#21333 + #25955#35013#30721#21333'_'#31446#25490 + #25955#35013#30721#21333'_'#37325#37327 + #25955#35013#30721#21333'_'#37325#37327'_'#31446#25490 + #25955#35013#30721#21333'_'#38271#24230#37325#37327 + #25955#35013#30721#21333'_'#38271#24230#37325#37327'_'#31446#25490 + #25955#35013#30721#21333'_'#27611#20928#37325 + #25955#35013#30721#21333'_'#27611#20928#37325'_'#31446#25490 + #25955#35013#30721#21333'_'#27611#20928#37325#38271#24230 + #25955#35013#30721#21333'_'#27611#20928#37325#38271#24230'_'#31446#25490 + #21333#33394#21253#35013 + #21333#33394#21253#35013'-'#37325#37327 + #21333#33394#21253#35013'-'#37325#37327'-2'#21015 + #21333#33394#21253#35013'-'#27611#20928#37325 + #28151#33394#21253#35013'-6'#33394 + #28151#33394#21253#35013'-7'#33394 + #28151#33394#21253#35013'-8'#33394 + #28151#33394#21253#35013'-10'#33394 + #28151#33394#21253#35013'-12'#33394 + #28151#33394#21253#35013'-20'#33394 + #28151#33394#21253#35013'-30'#33394 + #28151#33394#21253#35013'-'#37325#37327'4'#33394 + #28151#33394#21253#35013'-'#37325#37327'10'#33394 + #28151#33394#21253#35013'-'#37325#37327'15'#33394 + #33457#22411#28151#33394'-15' + #33457#22411#28151#33394'-20' + #26412#21378#25171#21367#20986#24211#30721#21333 + #38144#21806#30721#21333'1' + #27178#21521#38271#24230#30721#21333 + #26816#39564#30721#21333'-10' + 'PD'#33457#22411#31859#25968'+'#30721#25968 + 'PD'#31859#25968'+'#30721#25968 + #26816#39564#30721#21333'('#28151#33394#25171#21253')') + end + object ToolButton2: TToolButton + Left = 673 + Top = 0 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 12 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 760 + Top = 0 + Caption = #26816#39564#27719#24635#25253#21578 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 867 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1080 + Height = 80 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 373 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 20 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 56 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 230 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 230 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 373 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 650 + Top = 36 + Width = 48 + Height = 12 + Caption = #31867' '#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label11: TLabel + Left = 802 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label12: TLabel + Left = 802 + Top = 36 + Width = 24 + Height = 12 + Caption = #21367#21495 + end + object Label15: TLabel + Left = 230 + Top = 60 + Width = 48 + Height = 12 + Caption = #21512' '#21516' '#21495 + end + object Label16: TLabel + Left = 374 + Top = 60 + Width = 18 + Height = 12 + Caption = 'PO#' + end + object Label17: TLabel + Left = 514 + Top = 60 + Width = 36 + Height = 12 + Caption = #32568#26465#30721 + end + object Label18: TLabel + Left = 650 + Top = 60 + Width = 48 + Height = 12 + Caption = #27454' '#21495 + end + object Label19: TLabel + Left = 802 + Top = 60 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label20: TLabel + Left = 918 + Top = 12 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object Label21: TLabel + Left = 918 + Top = 36 + Width = 48 + Height = 12 + Caption = #33394' '#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 426 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 73 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 73 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 280 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 280 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 426 + Top = 33 + Width = 90 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 552 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 703 + Top = 32 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object CkOrdNo: TEdit + Tag = 2 + Left = 703 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + end + object PRTColor: TComboBox + Tag = 1 + Left = 552 + Top = 8 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + OnChange = PRTColorChange + end + object AOrdDefStr1: TComboBox + Tag = 1 + Left = 825 + Top = 8 + Width = 70 + Height = 20 + ItemHeight = 12 + TabOrder = 10 + OnChange = AOrdDefStr1Change + end + object MJXHM: TEdit + Tag = 1 + Left = 825 + Top = 32 + Width = 70 + Height = 20 + TabOrder = 11 + OnChange = MPRTCodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 12 + OnClick = CheckBox1Click + end + object conNo: TEdit + Tag = 2 + Left = 280 + Top = 57 + Width = 90 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end + object KHConNo: TEdit + Tag = 2 + Left = 426 + Top = 57 + Width = 90 + Height = 20 + TabOrder = 14 + OnChange = MPRTCodeNameChange + end + object apid: TEdit + Tag = 2 + Left = 552 + Top = 56 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = MPRTCodeNameChange + end + object PRTKuanNO: TEdit + Tag = 2 + Left = 702 + Top = 56 + Width = 65 + Height = 20 + TabOrder = 16 + OnChange = MPRTCodeNameChange + end + object begtime: TDateTimePicker + Left = 153 + Top = 8 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 17 + end + object endTime: TDateTimePicker + Left = 153 + Top = 32 + Width = 55 + Height = 20 + Date = 39780.999317129630000000 + Format = 'HH:mm' + Time = 39780.999317129630000000 + Kind = dtkTime + TabOrder = 18 + end + object RKplace: TEdit + Tag = 2 + Left = 825 + Top = 56 + Width = 70 + Height = 20 + TabOrder = 19 + OnChange = MPRTCodeNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 968 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 20 + OnChange = MPRTCodeNameChange + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 968 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 21 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 1080 + Height = 424 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#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 + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + 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 v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 107 + end + object v1Column14: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column15: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v2Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column6: TcxGridDBColumn + Caption = #20986#24211#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'CKOrdNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column13: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'numBaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CRNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column17: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column20: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHCONNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #32568#26465#30721 + DataBinding.FieldName = 'APID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTKuanNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1rkplace: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'rkplace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + 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 Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 4 + Visible = False + object Label13: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 448 + Top = 140 + Width = 253 + Height = 105 + Color = clSkyBlue + TabOrder = 5 + Visible = False + OnDblClick = Panel2DblClick + object Label14: TLabel + Left = 28 + Top = 40 + Width = 52 + Height = 12 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object THMJID: TEdit + Left = 84 + Top = 36 + Width = 125 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = THMJIDKeyPress + end + end + object cxGrid4: TcxGrid + Left = 280 + Top = 62 + Width = 145 + Height = 123 + TabOrder = 6 + Visible = False + object TV4: TcxGridDBTableView + OnDblClick = TV4DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSCON + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + object V4Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderno' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TV4 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 1256 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1225 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + CommandTimeout = 6000 + Parameters = <> + Left = 1193 + Top = 37 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 784 + Top = 248 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 841 + Top = 190 + 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 = 416 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 152 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_CX: TClientDataSet + Aggregates = <> + Params = <> + Left = 776 + Top = 296 + end + object CDS_BaoNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 296 + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 296 + end + object CDS_BaoPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 104 + Top = 208 + end + object DS_BaoPRT: TDataSource + DataSet = CDS_BaoPRT + Left = 96 + Top = 264 + end + object DS_JuanPRT: TDataSource + Left = 360 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 216 + Top = 216 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 600 + Top = 376 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 716 + Top = 484 + end + object RMDBWXPTPrint: TRMDBDataSet + Visible = True + DataSet = CDS_WXPTPrint + Left = 752 + Top = 460 + end + object CDS_WXPT: TClientDataSet + Aggregates = <> + Params = <> + Left = 780 + Top = 460 + end + object DataSource2: TDataSource + DataSet = CDS_WXPTPrint + Left = 812 + Top = 460 + end + object CDS_WXPTPrint: TClientDataSet + Aggregates = <> + Params = <> + Left = 844 + Top = 460 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 1159 + Top = 37 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 928 + Top = 320 + end + object RM2: 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 = 1048 + Top = 276 + ReportData = {} + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 468 + Top = 360 + end + object RMDBPRT: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 556 + Top = 360 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 308 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 284 + 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 = 732 + Top = 172 + ReportData = {} + end + object CDS_CON: TClientDataSet + Aggregates = <> + Params = <> + Left = 20 + Top = 177 + end + object DSCON: TDataSource + DataSet = CDS_CON + Left = 64 + Top = 173 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 96 + Top = 173 + end +end diff --git a/贸易管理/U_CKProductBCPOutList.pas b/贸易管理/U_CKProductBCPOutList.pas new file mode 100644 index 0000000..fbc3809 --- /dev/null +++ b/贸易管理/U_CKProductBCPOutList.pas @@ -0,0 +1,1684 @@ +unit U_CKProductBCPOutList; + +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, RM_E_llPDF, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + TfrmCKProductBCPOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: 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; + v1Column2: 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; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + CkOrdNo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + TBCKCX: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + MovePanel2: TMovePanel; + CDS_CX: TClientDataSet; + v1Column12: TcxGridDBColumn; + CDS_BaoNo: TClientDataSet; + CDS_Juan: TClientDataSet; + CDS_BaoPRT: TClientDataSet; + DS_BaoPRT: TDataSource; + DS_JuanPRT: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + PRTColor: TComboBox; + Label11: TLabel; + AOrdDefStr1: TComboBox; + ComboBox1: TComboBox; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxGridPopupMenu4: TcxGridPopupMenu; + RMDBWXPTPrint: TRMDBDataSet; + CDS_WXPT: TClientDataSet; + DataSource2: TDataSource; + CDS_WXPTPrint: TClientDataSet; + MJXHM: TEdit; + Label12: TLabel; + CheckBox1: TCheckBox; + Panel4: TPanel; + Label13: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column17: TcxGridDBColumn; + ToolButton1: TToolButton; + Panel2: TPanel; + Label14: TLabel; + THMJID: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + conNo: TEdit; + Label15: TLabel; + Label16: TLabel; + KHConNo: TEdit; + Label17: TLabel; + apid: TEdit; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + PRTKuanNO: TEdit; + Label18: TLabel; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; +// RMllPDFExport1: TRMllPDFExport; + v1rkplace: TcxGridDBColumn; + RKplace: TEdit; + Label19: TLabel; + RMDBHZ: TRMDBDataSet; + RMDBPRT: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + RM3: TRMGridReport; + PRTHX: TEdit; + Label20: TLabel; + v1SOrddefstr1: TcxGridDBColumn; + SOrddefstr1: TEdit; + Label21: TLabel; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + V4Column1: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_CON: TClientDataSet; + DSCON: TDataSource; + ADOQuery1: TADOQuery; + 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 TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBCKCXClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure PRTColorChange(Sender: TObject); + procedure AOrdDefStr1Change(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Panel2DblClick(Sender: TObject); + procedure THMJIDKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TV4DblClick(Sender: TObject); + private + FLeft, FTop: Integer; + procedure InitGrid(); + function YSData(Order_Main10: TClientDataSet): Boolean; + procedure Print_WXPT(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPOutList: TfrmCKProductBCPOutList; + +implementation + +uses + U_DataLink, U_Fun, U_JYMJIDPRINT; + +{$R *.dfm} +procedure TfrmckproductBCPOutList.Print_WXPT(); +var + j, z: Integer; + FGangNo, FHZ: string; +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMD1 '); + sql.add('@mainID=' + quotedstr(Trim(CDS_Main.FieldByName('CKOrdNo').AsString))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_WXPT); + SInitCDSData20(ADOQueryCmd, CDS_WXPT); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),PONO=Cast('''' as varchar(20)),InvNo=Cast('''' as varchar(20)),'); + sql.Add(' PRTColor=Cast('''' as varchar(20)),GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),MZQty=Cast(0 as decimal(18,2)),'); + sql.Add(' RollNo0=Cast('''' as varchar(20)),RollNo1=Cast('''' as varchar(20)),RollNo2=Cast('''' as varchar(20)),ITEM=Cast('''' as varchar(20)),'); + sql.Add(' LenQty0=Cast(0 as decimal(18,2)),LenQty1=Cast(0 as decimal(18,2)),LenQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' KGQty0=Cast(0 as decimal(18,2)),KGQty1=Cast(0 as decimal(18,2)),KGQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' MKGQty0=Cast(0 as decimal(18,2)),MKGQty1=Cast(0 as decimal(18,2)),MKGQty2=Cast(0 as decimal(18,2)),'); + sql.Add(' ZS0=Cast(0 as decimal(18,2)),Zs1=Cast(0 as decimal(18,2)),Zs2=Cast(0 as decimal(18,2)),'); + sql.add(' CRTime=cast(null as datetime),JQty=Cast(0 as decimal(18,2)),XH=Cast(0 as int),SumlenQty=Cast(0 as decimal(18,2)),SumRoll=Cast(0 as decimal(18,2)),'); + sql.Add(' SumRollGanNo=Cast(0 as decimal(18,2)),SumRollColor=Cast(0 as decimal(18,2)),SumZJ=Cast(0 as decimal(18,2)),'); + sql.add(' QtyUnit=cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_WXPTPrint); + SInitCDSData20(ADOQueryCmd, CDS_WXPTPrint); + if CDS_WXPTPrint.IsEmpty = False then + begin + CDS_WXPTPrint.Delete; + end; + j := 0; + z := 0; + FGangNo := ''; + CDS_WXPT.DisableControls; + CDS_WXPTPrint.DisableControls; + with CDS_WXPT do + begin + First; + while not Eof do + begin + with CDS_WXPTPrint do + begin + if CDS_WXPTPrint.IsEmpty then + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + CDS_WXPTPrint.FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + CDS_WXPTPrint.FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('BaoNo').Value := CDS_WXPT.fieldbyname('BaoNo').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + CDS_WXPTPrint.FieldByName('XH').Value := 0; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('Zs0').Value := CDS_WXPT.fieldbyname('MjQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + CDS_WXPTPrint.Post; + FHZ := Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString); + z := 0; + j := 0; + end + else + begin + if (Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString)) <> FHZ then + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := trim(CDS_WXPT.fieldbyname('KGQty').Asstring); + CDS_WXPTPrint.FieldByName('INVNO').Value := trim(CDS_WXPT.fieldbyname('orderno').Asstring); + CDS_WXPTPrint.FieldByName('GangNo').Value := trim(CDS_WXPT.fieldbyname('GangNo').Asstring); + CDS_WXPTPrint.FieldByName('BaoNo').Value := Trim(CDS_WXPT.fieldbyname('BaoNo').Asstring); + CDS_WXPTPrint.FieldByName('PONO').Value := trim(CDS_WXPT.fieldbyname('PONO').Asstring); + CDS_WXPTPrint.FieldByName('QtyUnit').Value := Trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := trim(CDS_WXPT.fieldbyname('PRTColor').Asstring); + CDS_WXPTPrint.FieldByName('XH').Value := j + 1; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('Zs0').Value := CDS_WXPT.fieldbyname('MjQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := trim(CDS_WXPT.fieldbyname('RollNo').Asstring); + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Asstring; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Asstring; + CDS_WXPTPrint.Post; + z := 0; + j := j + 1; + FHZ := Trim(CDS_WXPT.fieldbyname('PRTColor').AsString) + Trim(CDS_WXPT.fieldbyname('Baono').AsString) + Trim(CDS_WXPT.fieldbyname('GangNo').AsString); + end + else + begin + if z < 3 then + begin + CDS_WXPTPrint.Locate('XH', j, []); + with CDS_WXPTPrint do + begin + Edit; + FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + FieldByName('BaoNO').Value := CDS_WXPT.fieldbyname('BaoNO').Value; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + FieldByName('LenQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('qty').AsFloat; + FieldByName('Zs' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('MJQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('KGQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty' + Trim(IntToStr(z))).Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + Post; + end; + end + else + begin + CDS_WXPTPrint.Append; + CDS_WXPTPrint.FieldByName('MZQty').Value := CDS_WXPT.fieldbyname('KGQty').Value; + CDS_WXPTPrint.FieldByName('INVNO').Value := CDS_WXPT.fieldbyname('orderno').Value; + CDS_WXPTPrint.FieldByName('GangNo').Value := CDS_WXPT.fieldbyname('GangNo').Value; + CDS_WXPTPrint.FieldByName('BaoNO').Value := CDS_WXPT.fieldbyname('BaoNO').Value; + CDS_WXPTPrint.FieldByName('PONO').Value := CDS_WXPT.fieldbyname('PONO').Value; + CDS_WXPTPrint.FieldByName('QtyUnit').Value := trim(CDS_WXPT.fieldbyname('QtyUnit').Asstring); + CDS_WXPTPrint.FieldByName('CRTime').Value := CDS_WXPT.fieldbyname('CRTime').asdatetime; + CDS_WXPTPrint.FieldByName('PRTColor').Value := CDS_WXPT.fieldbyname('PRTColor').Value; + CDS_WXPTPrint.FieldByName('XH').Value := j + 1; + CDS_WXPTPrint.FieldByName('LenQty0').Value := CDS_WXPT.fieldbyname('qty').AsFloat; + CDS_WXPTPrint.FieldByName('ZS0').Value := CDS_WXPT.fieldbyname('MJQty2').AsFloat; + CDS_WXPTPrint.FieldByName('RollNo0').Value := CDS_WXPT.fieldbyname('RollNo').Value; + CDS_WXPTPrint.FieldByName('MKGQty0').Value := CDS_WXPT.fieldbyname('kgQty').AsFloat; + CDS_WXPTPrint.FieldByName('KGQty0').Value := CDS_WXPT.fieldbyname('MJqty4').AsFloat; + CDS_WXPTPrint.FieldByName('Sumlenqty').Value := CDS_WXPT.fieldbyname('Sumlenqty').AsFloat; + CDS_WXPTPrint.FieldByName('sumroll').Value := CDS_WXPT.fieldbyname('sumroll').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollGanNo').Value := CDS_WXPT.fieldbyname('SumRollGanNo').AsFloat; + CDS_WXPTPrint.FieldByName('SumRollColor').Value := CDS_WXPT.fieldbyname('SumRollColor').AsFloat; + CDS_WXPTPrint.FieldByName('SumZJ').Value := CDS_WXPT.fieldbyname('SumZJ').AsFloat; + CDS_WXPTPrint.FieldByName('SubId').Value := CDS_WXPT.fieldbyname('SubId').Value; + CDS_WXPTPrint.FieldByName('MainId').Value := CDS_WXPT.fieldbyname('MainId').Value; + CDS_WXPTPrint.Post; + z := 0; + j := j + 1; + end; + end; + end + end; + z := z + 1; + Next; + end; + end; + CDS_WXPT.EnableControls; + CDS_WXPTPrint.EnableControls; +end; + +procedure TfrmCKProductBCPOutList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPOutList := nil; +end; + +procedure TfrmCKProductBCPOutList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCKProductBCPOutList.FormCreate(Sender: TObject); +begin + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNO,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.PrtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTPrice,C.PRTHX '); + sql.Add(',C.SOrddefstr4,D.MJQty3,D.MJQty4'); + sql.Add(',khconNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM '); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join JYOrder_Main B on B.MainId=A.MainId'); + Sql.add(' inner join JYOrder_Sub C on C.mainID=A.mainID and C.SubId=A.SubId'); + Sql.add(' inner join WFB_MJJY D on D.MJId=A.MJId'); + sql.add('where A.FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ' ' + FormatDateTime('HH:mm', BegTime.Time)) + ''''); + sql.Add(' and A.FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime) + ' ' + FormatDateTime('HH:mm', endTime.Time)) + ''''); + SQL.Add(' and A.CRFlag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCKProductBCPOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ֿб', Tv1, 'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPOutList.FormShow(Sender: TObject); +begin + ReadCxGrid('ֿб', Tv1, 'Ʒֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Cast('''' as varchar(20)) MainId,Cast('''' as varchar(80)) KHName,Cast(0 as decimal(18,4)) PRTPrice '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_CX); + SInitCDSData20(ADOQueryTemp, CDS_CX); + CDS_CX.Delete; + //InitGrid(); + if Trim(DParameters2) = '' then + begin + TBCKCX.Visible := True; + ToolButton1.Visible := true; + end; +end; + +procedure TfrmCKProductBCPOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + SelExportData(Tv1, ADOQueryMain, ''); +end; + +procedure TfrmCKProductBCPOutList.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 TfrmCKProductBCPOutList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutList.TBPrintClick(Sender: TObject); +var + fPrintFile, fPrintFile10, FMainID: string; +begin + if CDS_Main.IsEmpty then + Exit; + + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + + 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; + FMainID := ''; + CDS_Main.DisableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + if FMainID = '' then + begin + FMainID := Trim(CDS_Main.fieldbyname('mainID').AsString); + end + else + begin + if Trim(CDS_Main.fieldbyname('mainID').AsString) <> FMainID then + begin + application.MessageBox('ѡIJͬһָʾһӡ', 'ʾϢ', 0); + ADOQueryCmd.Connection.RollbackTrans; + EnableControls; + exit; + end; + end; + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Main.fieldbyname('MJID').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + CDS_Main.EnableControls; + + if trim(ComboBox1.Text) = '̫' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd10 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥-10' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20_copy1 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd50 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥__' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd50 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥__' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd40 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ë' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ë_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ëس' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɢװ뵥_ëس_' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd70 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''1'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''12'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ--2' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-ë' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''5'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-6ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''6'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-7ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''7'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-8ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''8'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥(ɫ)' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_HSDB '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-10ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-12ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''12'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-20ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-30ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''30'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-4ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''4'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-10ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ɫװ-15ɫ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''15'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ͻɫ-15' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd60 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''15'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'ͻɫ-20' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd60 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd80 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + ///sql.add(',@CNum=''20'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + + if trim(ComboBox1.Text) = '뵥1' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd90 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + + if trim(ComboBox1.Text) = '򳤶뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd100 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'PD+' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_HX '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = 'PD+' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''10'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf'; + if FileExists(fPrintFile) then + begin + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPOutList.orderNoChange(Sender: TObject); +begin +// if Length(orderNo.Text)<4 then Exit; +// TBFind.Click; + if Length(Trim(orderno.text)) > 3 then + begin + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*'); + sql.Add('from JYOrder_Main A'); + sql.Add('where A.orderno like ''' + '%' + Trim(OrderNo.Text) + '%' + ''''); +// showmessage(sql.text); + Open; + end; + SCreateCDS20(ADOQuery1, CDS_Con); + SInitCDSData20(ADOQuery1, CDS_Con); + + if CDS_Con.IsEmpty then + cxGrid4.Visible := False + else + cxGrid4.Visible := True; + end + else + begin + cxGrid4.Visible := False + end; + +end; + +procedure TfrmCKProductBCPOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmCKProductBCPOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmCKProductBCPOutList.TBCKCXClick(Sender: TObject); +var + FFMainId, FPrice: string; +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + //First; + while CDS_Main.Locate('SSel', True, []) = True do + begin + if trim(CDS_Main.Fieldbyname('Filler').AsString) <> trim(DName) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ܳ˵ݣ', 'ʾ', 0); + Exit; + end; + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCP_CR Set CRFlag='''',CRType='''',CRTime=NULL'); + sql.Add(',CRNote='''''); + sql.Add(',CKOrdNo='''''); + sql.Add(' where CRID=''' + Trim(CDS_Main.fieldbyname('CRID').AsString) + ''''); + sql.Add(' and CRFlag='''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + SQL.Add(' where CRID=' + CDS_Main.fieldbyname('CRID').AsString); + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + end; + CDS_Main.EnableControls; + + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible := False; + Exit; + except + MovePanel2.Visible := False; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣', 'ʾ', 0); + end; + +end; + +function TfrmCKProductBCPOutList.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; + if Trim(OrderUnit) <> 'Kg' then + begin + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.Qty),0) from CK_BanCP_CR A '); + end + else + begin + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.KgQty),0) from CK_BanCP_CR A '); + end; + 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 TfrmCKProductBCPOutList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(Trim(orderNo.Text)) < 3 then + Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNO,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.PrtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTPrice,C.PRTHX '); + sql.Add(',C.SOrddefstr4,D.MJQty3,D.MJQty4'); + sql.Add(',khconNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM '); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); +// sql.add('where B.OrderNo like '''+Trim(orderNo.Text)+'%'+''''); + sql.add('where B.OrderNo=''' + Trim(orderNo.Text) + ''' '); + SQL.Add(' and CRflag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmCKProductBCPOutList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty = False then + begin + InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString), AOrdDefStr1, ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPOutList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; + if CDS_Main.IsEmpty = False then + begin + //InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString), AOrdDefStr1, ADOQueryTemp); + end; +end; + +procedure TfrmCKProductBCPOutList.AOrdDefStr1Change(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutList.CheckBox1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, CheckBox1.Checked); +end; + +procedure TfrmCKProductBCPOutList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Visible := true; + Panel4.Left := FLeft; + Panel4.Top := FTop + 110; + Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text := CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; + application.ProcessMessages; +end; + +procedure TfrmCKProductBCPOutList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmCKProductBCPOutList.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmCKProductBCPOutList.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmCKProductBCPOutList.THMJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Trim(THMJID.Text) = '' then + begin + Application.MessageBox('벻Ϊ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR A '); + sql.Add('where MJID=' + quotedstr(trim(THMJID.Text))); + sql.Add('and CRflag='''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + application.MessageBox('˾δ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_BanCP_CR where BCID=' + quotedstr(ADOQueryTemp.fieldbyname('BCID').AsString)); + sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + SQL.Add(' where CRID=' + quotedstr(ADOQueryTemp.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID=' + quotedstr(ADOQueryTemp.fieldbyname('MJID').AsString)); + ExecSQL; + end; + if CDS_Main.Locate('BCID', trim(ADOQueryTemp.fieldbyname('BCID').AsString), []) then + CDS_Main.Delete; + THMJID.Text := ''; + THMJID.SetFocus; + Exit; + except + THMJID.Text := ''; + THMJID.SetFocus; + Application.MessageBox('쳣', 'ʾ', 0); + end; + end; +end; + +procedure TfrmCKProductBCPOutList.ToolButton1Click(Sender: TObject); +begin + Panel2.Visible := true; + THMJID.Text := ''; + THMJID.SetFocus; +end; + +procedure TfrmCKProductBCPOutList.ToolButton3Click(Sender: TObject); +var + fPrintFile: string; +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + 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; + ADOqueryCmd.Connection.BeginTrans; + try + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(fieldbyname('MJID').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + CDS_Main.EnableControls; + ADOqueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + with ADOqueryPrint do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID_Main '); + sql.Add(' @MJID=' + quotedstr('')); + sql.Add(',@flag=''0'' '); + sql.Add(',@userID=' + quotedstr(trim(DCode))); + open; + end; + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ϣ.rmf'; + ; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + trim(fPrintFile)), 'ʾ', MB_ICONERROR); + exit; + end; + Rm2.LoadFromFile(fPrintFile); + Rm2.ShowReport; +end; + +procedure TfrmCKProductBCPOutList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + frmJYMJIDPRINT := TfrmJYMJIDPRINT.create(self); + with frmJYMJIDPRINT do + begin + fMJID := trim(self.CDS_Main.fieldbyname('MJID').AsString); + fflag := 1; + show; + end; +end; + +procedure TfrmCKProductBCPOutList.TV4DblClick(Sender: TObject); +begin + cxGrid4.Visible := False; + orderno.Text := CDS_CON.fieldbyname('orderno').AsString; + cxGrid4.Visible := False; + if Length(Trim(orderNo.Text)) < 3 then + Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('select A.*,numbaono=cast(A.baono as int),B.OrderNo,B.conNO,B.MPRTCodeName,B.MPRTSpec,B.MprtkuanNo,C.PrtkuanNo,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTPrice,C.PRTHX '); + sql.Add(',C.SOrddefstr4,D.MJQty3,D.MJQty4'); + sql.Add(',khconNo=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',D.mjstr4 as AOrdDefStr1,cast(D.MJXH as varchar) as MJXHM '); + sql.add('from CK_BanCP_CR A '); + 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(' inner join WFB_MJJY D on A.MJId=D.MJId'); +// sql.add('where B.OrderNo like '''+Trim(orderNo.Text)+'%'+''''); + sql.add('where B.OrderNo=''' + Trim(orderNo.Text) + ''' '); + SQL.Add(' and CRflag='''' '); + SQL.Add(' and A.valid=''Y'''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +end. + diff --git a/贸易管理/U_CKProductCKHZList.dfm b/贸易管理/U_CKProductCKHZList.dfm new file mode 100644 index 0000000..84266c6 --- /dev/null +++ b/贸易管理/U_CKProductCKHZList.dfm @@ -0,0 +1,613 @@ +object frmCKProductCKHZList: TfrmCKProductCKHZList + Left = 48 + Top = 151 + Width = 1278 + Height = 514 + Caption = #25104#21697#20986#24211#27719#24635#20449#24687 + 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 = 1262 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1262 + Height = 68 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 60 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label8: TLabel + Left = 211 + Top = 100 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 380 + Top = 108 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 764 + Top = 16 + Width = 48 + Height = 12 + Caption = #31867' '#22411 + end + object Label10: TLabel + Left = 496 + Top = 40 + Width = 6 + Height = 12 + end + object Label11: TLabel + Left = 488 + Top = 80 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label12: TLabel + Left = 488 + Top = 104 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 208 + Top = 16 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label3: TLabel + Left = 207 + Top = 40 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label6: TLabel + Left = 404 + Top = 16 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label13: TLabel + Left = 404 + Top = 40 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label14: TLabel + Left = 584 + Top = 16 + Width = 36 + Height = 12 + Caption = #21512#21516#21495 + end + object Label15: TLabel + Left = 600 + Top = 40 + Width = 18 + Height = 12 + Caption = 'PO#' + end + object BegDate: TDateTimePicker + Left = 73 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 73 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 260 + Top = 96 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 404 + Top = 104 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 815 + Top = 12 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object YWY: TEdit + Tag = 2 + Left = 526 + Top = 76 + Width = 65 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 526 + Top = 100 + Width = 65 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object orderNo: TEdit + Tag = 2 + Left = 258 + Top = 12 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 258 + Top = 36 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 430 + Top = 12 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object MJstr4: TEdit + Tag = 1 + Left = 430 + Top = 36 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object conNo: TEdit + Tag = 2 + Left = 622 + Top = 12 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = MPRTCodeNameChange + end + object KHCONNO: TEdit + Tag = 2 + Left = 622 + Top = 36 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = MPRTCodeNameChange + 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 = 2 + Visible = False + end + object cxGrid2: TcxGrid + Left = 0 + Top = 101 + Width = 1262 + Height = 375 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column3: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1ConNO: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNO' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHCONNO' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 125 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'JQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v2Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 4 + Visible = False + object Label4: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1020 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1036 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 996 + Top = 65532 + 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 = 896 + Top = 128 + end +end diff --git a/贸易管理/U_CKProductCKHZList.pas b/贸易管理/U_CKProductCKHZList.pas new file mode 100644 index 0000000..d96bb8d --- /dev/null +++ b/贸易管理/U_CKProductCKHZList.pas @@ -0,0 +1,284 @@ +unit U_CKProductCKHZList; + +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, + cxCalendar; + +type + TfrmCKProductCKHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + YWY: TEdit; + OrdPerson1: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + orderNo: TEdit; + Label5: TLabel; + Label3: TLabel; + MPRTCodeName: TEdit; + Label6: TLabel; + PRTColor: TEdit; + Label13: TLabel; + MJstr4: TEdit; + Panel4: TPanel; + Label4: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column2: TcxGridDBColumn; + conNo: TEdit; + Label14: TLabel; + v1ConNO: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + KHCONNO: TEdit; + Label15: TLabel; + v1Column9: TcxGridDBColumn; + 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 v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTColorChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Image2Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductCKHZList: TfrmCKProductCKHZList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCKProductCKHZList.FormDestroy(Sender: TObject); +begin + frmCKProductCKHZList:=nil; +end; + +procedure TfrmCKProductCKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductCKHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductCKHZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('select convert(char(10),A.CRTime,120) as CRTime,A.CPType,A.MainId,A.QtyUnit,B.Mjstr4,C.OrderNo,C.conNO,C.MPRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, '); + sql.Add('count(A.MainId) as JQty,SUM(A.Qty) as Qty,SUM(A.KGQty) as KGQty,SUM(B.MJQty4) as MJQty4,'); + sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)'); + sql.Add('from CK_BanCP_CR A '); + sql.Add('inner join WFB_MJJY B on B.MJID=A.MJID'); + sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId '); + sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); + Sql.add('where A.CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + Sql.add('and A.CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + Sql.add('and A.CRFlag='''' '); + Sql.add('group by convert(char(10),A.CRTime,120),A.CPType,A.MainId,A.QtyUnit,B.Mjstr4,C.OrderNo,C.conNO,C.MPRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductCKHZList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductCKHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductCKHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductCKHZList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + //v1Column5.Options.Focusing:=True; + end else + begin + //v1Column5.Options.Focusing:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductCKHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductCKHZList.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 TfrmCKProductCKHZList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductCKHZList.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 TfrmCKProductCKHZList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductCKHZList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; + application.ProcessMessages; +end; + +procedure TfrmCKProductCKHZList.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductCKHZList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +end. diff --git a/贸易管理/U_CKProductRKHZList.dfm b/贸易管理/U_CKProductRKHZList.dfm new file mode 100644 index 0000000..01c2992 --- /dev/null +++ b/贸易管理/U_CKProductRKHZList.dfm @@ -0,0 +1,622 @@ +object frmCKProductRKHZList: TfrmCKProductRKHZList + Left = 128 + Top = 152 + Width = 1238 + Height = 511 + Caption = #25104#21697#20837#24211#27719#24635#20449#24687 + 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 = 1222 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1222 + Height = 68 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 212 + Top = 36 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label1: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 60 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 212 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 420 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 211 + Top = 100 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 380 + Top = 108 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 780 + Top = 16 + Width = 48 + Height = 12 + Caption = #31867' '#22411 + end + object Label10: TLabel + Left = 504 + Top = 36 + Width = 6 + Height = 12 + end + object Label11: TLabel + Left = 488 + Top = 80 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object Label12: TLabel + Left = 488 + Top = 104 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label4: TLabel + Left = 420 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label14: TLabel + Left = 600 + Top = 16 + Width = 36 + Height = 12 + Caption = #21512#21516#21495 + end + object Label15: TLabel + Left = 616 + Top = 40 + Width = 18 + Height = 12 + Caption = 'PO#' + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 266 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 73 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 73 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 266 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 446 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 260 + Top = 96 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 404 + Top = 104 + Width = 65 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 831 + Top = 12 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object YWY: TEdit + Tag = 2 + Left = 526 + Top = 76 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 526 + Top = 100 + Width = 65 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object MJstr4: TEdit + Tag = 1 + Left = 446 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object conNo: TEdit + Tag = 2 + Left = 638 + Top = 12 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = MPRTCodeNameChange + end + object KHCONNO: TEdit + Tag = 2 + Left = 638 + Top = 36 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 101 + Width = 1222 + Height = 372 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column10: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'khconNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 125 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'JQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v2Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column13: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 4 + Visible = False + object Label13: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 980 + Top = 144 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 996 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 956 + Top = 136 + 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 + object RMGridReport1: 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 = 720 + Top = 136 + ReportData = {} + end +end diff --git a/贸易管理/U_CKProductRKHZList.pas b/贸易管理/U_CKProductRKHZList.pas new file mode 100644 index 0000000..a19b3dc --- /dev/null +++ b/贸易管理/U_CKProductRKHZList.pas @@ -0,0 +1,291 @@ +unit U_CKProductRKHZList; + +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, + cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport; + +type + TfrmCKProductRKHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + MPRTCodeName: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + PRTColor: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + YWY: TEdit; + OrdPerson1: TEdit; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + MJstr4: TEdit; + Label4: TLabel; + Panel4: TPanel; + Label13: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + conNo: TEdit; + Label14: TLabel; + KHCONNO: TEdit; + Label15: TLabel; + v1Column13: TcxGridDBColumn; + RMGridReport1: TRMGridReport; + 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 v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTColorChange(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure TBPrintClick(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductRKHZList: TfrmCKProductRKHZList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCKProductRKHZList.FormDestroy(Sender: TObject); +begin + frmCKProductRKHZList:=nil; +end; + +procedure TfrmCKProductRKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductRKHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductRKHZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('select convert(char(10),A.CRTime,120) as CRTime,A.CPType,A.MainId,A.QtyUnit,B.Mjstr4,C.OrderNo,C.ConNO,C.MPRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, '); + sql.Add('count(A.MainId) as JQty,SUM(A.Qty) as Qty,SUM(A.KGQty) as KGQty,SUM(B.MJQty4) as MJQty4,'); + sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)'); + sql.Add('from CK_BanCP_CR A '); + sql.Add('inner join WFB_MJJY B on B.MJID=A.MJID'); + sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId '); + sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); + Sql.add('where A.CRTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + Sql.add('and A.CRTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + SQL.Add(' and A.CRFlag='''' '); + Sql.add('group by convert(char(10),A.CRTime,120),A.CPType,A.MainId,A.QtyUnit,B.Mjstr4,C.OrderNo,C.ConNO,C.MPRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductRKHZList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductRKHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductRKHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductRKHZList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + //v1Column5.Options.Focusing:=True; + end else + begin + //v1Column5.Options.Focusing:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductRKHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductRKHZList.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 TfrmCKProductRKHZList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductRKHZList.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 TfrmCKProductRKHZList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductRKHZList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductRKHZList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; + application.ProcessMessages; +end; + +procedure TfrmCKProductRKHZList.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductRKHZList.TBPrintClick(Sender: TObject); +begin + RMGridReport1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; +end; + +end. diff --git a/贸易管理/U_CKYCLKC.dfm b/贸易管理/U_CKYCLKC.dfm new file mode 100644 index 0000000..0b2966e --- /dev/null +++ b/贸易管理/U_CKYCLKC.dfm @@ -0,0 +1,345 @@ +object frmCKYCLKC: TfrmCKYCLKC + Left = 128 + Top = 152 + Width = 1027 + Height = 511 + Caption = #21407#26448#26009#20986#20837#23384 + 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 = 1019 + 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_JWLCK.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 302 + Top = 12 + Width = 48 + Height = 12 + Caption = #29289#26009#21517#31216 + end + object Label4: TLabel + Left = 478 + Top = 12 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 638 + Top = 12 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object YCLName: TEdit + Tag = 2 + Left = 351 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = YCLNameChange + end + object YCLSpec: TEdit + Tag = 2 + Left = 516 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = YCLNameChange + end + object GYSName: TEdit + Tag = 2 + Left = 687 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = YCLNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 4 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 75 + Width = 1019 + Height = 399 + 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 = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + Column = v2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_JWLCK.Default + object v2Column1: TcxGridDBColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column2: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#25968#37327 + DataBinding.FieldName = 'SQJCS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #26412#26399#20837#24211#25968#37327 + DataBinding.FieldName = 'RKS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 101 + end + object v1Column1: TcxGridDBColumn + Caption = #26412#26399#22238#20179#25968#37327 + DataBinding.FieldName = 'HCS' + Options.Focusing = False + Width = 87 + end + object v1Column2: TcxGridDBColumn + Caption = #26412#26399#36864#36135#25968#37327 + DataBinding.FieldName = 'THS' + Options.Focusing = False + Width = 88 + end + object v2Column7: TcxGridDBColumn + Caption = #26412#26399#20986#24211#25968#37327 + DataBinding.FieldName = 'CKS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object v2Column8: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v2Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KCType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20027#35201 + #36741#21161 + #20854#23427 + '') + HeaderAlignmentHorz = taCenter + Width = 81 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_JWLCK.ADOLink + Parameters = <> + Left = 904 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_JWLCK.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_JWLCK.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 40 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 624 + Top = 184 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 544 + Top = 176 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 192 + end +end diff --git a/贸易管理/U_CKYCLKC.pas b/贸易管理/U_CKYCLKC.pas new file mode 100644 index 0000000..a388bcb --- /dev/null +++ b/贸易管理/U_CKYCLKC.pas @@ -0,0 +1,241 @@ +unit U_CKYCLKC; + +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; + +type + TfrmCKYCLKC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + YCLName: TEdit; + YCLSpec: TEdit; + GYSName: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + 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 YCLNameChange(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 } + end; + +var + frmCKYCLKC: TfrmCKYCLKC; + +implementation +uses + U_DataLink,U_Fun,U_CRMX; + +{$R *.dfm} + +procedure TfrmCKYCLKC.FormDestroy(Sender: TObject); +begin + frmCKYCLKC:=nil; +end; + +procedure TfrmCKYCLKC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKYCLKC.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKYCLKC.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Parameters.ParamByName('CKName').Value:=Trim(DParameters1); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKYCLKC.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKYCLKC.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKYCLKC.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ԭϿ2',Tv1,'ԭϲֿ'); + Close; +end; + +procedure TfrmCKYCLKC.FormShow(Sender: TObject); +begin + + ReadCxGrid('ԭϿ2',Tv1,'ԭϲֿ'); + if Trim(DParameters2)='ԭ' then + begin + ToolButton1.Visible:=True; + v2Column9.Options.Focusing:=True; + v2Column9.Visible:=True; + end else + begin + ToolButton1.Visible:=False; + v2Column9.Options.Focusing:=False; + v2Column9.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmCKYCLKC.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(Trim(DParameters1)+'',cxGrid2); +end; + +procedure TfrmCKYCLKC.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 TfrmCKYCLKC.YCLNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKYCLKC.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + frmCRMX:=TfrmCRMX.Create(Application); + with frmCRMX do + begin + Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime); + Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1); + {FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString); + FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString); + FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString); + FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString); } + CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmCRMX.Free; + end; +end; + +procedure TfrmCKYCLKC.ToolButton1Click(Sender: TObject); +begin + try + ADOQueryCmd.Connection.BeginTrans; + BegDate.SetFocus; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YCL_KC Set KCType='''+Trim(CDS_Main.fieldbyname('KCType').AsString)+''''); + SQL.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +end. diff --git a/贸易管理/U_CPDBAO.dfm b/贸易管理/U_CPDBAO.dfm new file mode 100644 index 0000000..6b81202 --- /dev/null +++ b/贸易管理/U_CPDBAO.dfm @@ -0,0 +1,1629 @@ +object frmCPDBao: TfrmCPDBao + Left = 27 + Top = 66 + Width = 1382 + Height = 754 + VertScrollBar.Position = 2 + Caption = #25171#21253#31383#21475 + 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 = -2 + Width = 1533 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1533 + Height = 76 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 420 + Top = 88 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 40 + Top = 84 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 234 + Top = 80 + Width = 24 + Height = 12 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label1: TLabel + Left = 32 + Top = 14 + Width = 100 + Height = 24 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 1168 + Top = 85 + Width = 50 + Height = 24 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 327 + Top = 14 + Width = 50 + Height = 24 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 473 + Top = 14 + Width = 75 + Height = 24 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PHYG: TBtnEditA + Left = 92 + Top = 84 + Width = 100 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + Visible = False + end + object defstr2: TComboBox + Left = 472 + Top = 84 + Width = 101 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Visible = False + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 262 + Top = 76 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 3 + Visible = False + Width = 100 + end + object SmNO: TEdit + Left = 136 + Top = 10 + Width = 165 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 1228 + Top = 81 + Width = 89 + Height = 33 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 4 + Visible = False + OnBtnClick = kcKwBtnClick + end + object baoNo: TEdit + Left = 383 + Top = 10 + Width = 66 + Height = 32 + Hint = 'baoNo' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 5 + OnClick = baoNoClick + OnExit = baoNoExit + OnKeyPress = baoNoKeyPress + end + object BaoID: TEdit + Left = 550 + Top = 10 + Width = 170 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 6 + OnClick = baoNoClick + end + object FileName: TcxButton + Left = 984 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25171#21360#21253#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 1068 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object ComboBox1: TComboBox + Left = 920 + Top = 12 + Width = 49 + Height = 23 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [] + ItemHeight = 15 + ItemIndex = 0 + ParentFont = False + TabOrder = 9 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object cxButton3: TcxButton + Left = 728 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #21024#38500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 704 + Top = 80 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton4: TcxButton + Left = 728 + Top = 40 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25764#38144#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = cxButton4Click + LookAndFeel.Kind = lfOffice11 + end + object check_Fbz: TCheckBox + Left = 864 + Top = 80 + Width = 105 + Height = 17 + Caption = #21253#21103#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + end + object Fbq: TBtnEditA + Left = 960 + Top = 80 + Width = 121 + Height = 20 + TabOrder = 14 + OnBtnClick = FbqBtnClick + end + object ComboBox2: TComboBox + Left = 1077 + Top = 80 + Width = 49 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object check_bz: TCheckBox + Left = 828 + Top = 16 + Width = 89 + Height = 17 + Caption = #21253#26631#31614 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 16 + end + object BaoBq: TBtnEditA + Left = 1144 + Top = 72 + Width = 141 + Height = 20 + TabOrder = 17 + Visible = False + OnBtnClick = BaoBqBtnClick + end + object CheckBox1: TCheckBox + Left = 828 + Top = 48 + Width = 133 + Height = 17 + Caption = #33258#21160#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 18 + end + object ComboBox3: TComboBox + Left = 920 + Top = 44 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 19 + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10' + '11' + '12' + '13' + '14' + '15' + '16' + '17' + '18' + '19' + '20' + '21' + '22' + '23' + '24' + '25') + end + end + object Panel2: TPanel + Left = 400 + Top = 139 + Width = 1133 + Height = 560 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1131 + Height = 266 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = TV2CustomDrawCell + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = V2Column2 + end + item + Kind = skSum + Column = V2Column3 + end + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 154 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object V2Column5: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object V2BaoID: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object V2BaoNO: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNO' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 267 + Width = 1131 + Height = 292 + Align = alClient + TabOrder = 1 + object TV4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSEL + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + 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 + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 53 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object V4Column1: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V4Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV4 + end + end + end + object Panel3: TPanel + Left = 999 + Top = 225 + Width = 290 + Height = 286 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 211 + Width = 140 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 4 + Top = 143 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 74 + Top = 143 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 144 + Top = 143 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 73 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 74 + Top = 73 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 144 + Top = 73 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 74 + Top = 2 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 144 + Top = 2 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 144 + Top = 213 + Width = 70 + Height = 68 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 214 + Top = 2 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 214 + Top = 73 + Width = 70 + Height = 208 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 107 + Width = 553 + Height = 592 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel4' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 2 + Top = 89 + Width = 549 + Height = 423 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSTm + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = 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 + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object v3Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 42 + end + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Width = 88 + end + object v3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v3Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object v3Column8: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column6: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column7: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 549 + Height = 87 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 13 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 8 + Top = 56 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 96 + Top = 56 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label9: TLabel + Left = 180 + Top = 56 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label10: TLabel + Left = 268 + Top = 56 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 356 + Top = 56 + Width = 24 + Height = 12 + Caption = #21367#21495 + end + object BtnEditA1: TBtnEditA + Left = 56 + Top = 9 + Width = 153 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object cxButton5: TcxButton + Left = 212 + Top = 8 + Width = 49 + Height = 25 + Hint = 'Filesother' + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = cxButton5Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton6: TcxButton + Left = 468 + Top = 8 + Width = 61 + Height = 25 + Hint = 'Filesother' + Caption = #30830#23450#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = cxButton6Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton7: TcxButton + Left = 468 + Top = 48 + Width = 57 + Height = 25 + Hint = 'Filesother' + Caption = #36807#28388 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = cxButton7Click + LookAndFeel.Kind = lfOffice11 + end + object PRTColor: TEdit + Tag = 2 + Left = 32 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 4 + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 120 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 5 + end + object PRTHX: TEdit + Tag = 2 + Left = 204 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 6 + end + object mjstr4: TEdit + Tag = 1 + Left = 292 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 7 + end + object MJXH: TEdit + Tag = 1 + Left = 380 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 8 + end + end + object AOrdDefNote1: TRichEdit + Left = 2 + Top = 512 + Width = 549 + Height = 78 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + end + end + object MovePanel1: TMovePanel + Left = 506 + Top = 274 + Width = 715 + Height = 327 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 184 + Top = 160 + Width = 198 + Height = 64 + Caption = 'Label2' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Left = 177 + Top = 43 + Width = 412 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 300 + Top = 272 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 552 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 500 + Top = 232 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 836 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 388 + Top = 324 + end + object cxStyleRepository1: TcxStyleRepository + Left = 317 + Top = 306 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 252 + Top = 428 + end + object DataSource1: TDataSource + DataSet = ADOQuery1 + Left = 312 + Top = 464 + end + object ADOQueryTm: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 152 + Top = 192 + end + object DSTm: TDataSource + DataSet = CDSTM + Left = 88 + Top = 216 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 576 + Top = 256 + 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 = 424 + Top = 256 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 232 + end + object CDSTM: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 221 + end + object CDSSEL: TClientDataSet + Aggregates = <> + Params = <> + Left = 957 + Top = 497 + end + object DSSEL: TDataSource + DataSet = CDSSEL + Left = 849 + Top = 501 + end +end diff --git a/贸易管理/U_CPDBAO.pas b/贸易管理/U_CPDBAO.pas new file mode 100644 index 0000000..d71a32c --- /dev/null +++ b/贸易管理/U_CPDBAO.pas @@ -0,0 +1,1213 @@ +unit U_CPDBAO; + +interface + +uses + Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, + cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, + MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox,MMSystem; + +type + TfrmCPDBao = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSMJID: TClientDataSet; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + V2Column1: TcxGridDBColumn; + kcKw: TBtnEditA; + Label5: TLabel; + MovePanel1: TMovePanel; + Edit2: TEdit; + Button4: TButton; + Label2: TLabel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + baoNo: TEdit; + BaoID: TEdit; + Label3: TLabel; + Label4: TLabel; + V2BaoNO: TcxGridDBColumn; + V2BaoID: TcxGridDBColumn; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + FileName: TcxButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxButton1: TcxButton; + ComboBox1: TComboBox; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + Panel4: TPanel; + ADOQueryPrint: TADOQuery; + Label6: TLabel; + BtnEditA1: TBtnEditA; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + CDSTM: TClientDataSet; + Panel5: TPanel; + cxButton3: TcxButton; + cxButton2: TcxButton; + CDSSEL: TClientDataSet; + cxGrid1: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DSSEL: TDataSource; + cxButton4: TcxButton; + V2Column5: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V4Column1: TcxGridDBColumn; + V4Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + check_Fbz: TCheckBox; + Fbq: TBtnEditA; + ComboBox2: TComboBox; + check_bz: TCheckBox; + BaoBq: TBtnEditA; + cxButton5: TcxButton; + cxButton6: TcxButton; + v3Column5: TcxGridDBColumn; + CheckBox1: TCheckBox; + ComboBox3: TComboBox; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxButton7: TcxButton; + v3Column8: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + SOrddefstr1: TEdit; + Label8: TLabel; + PRTHX: TEdit; + Label9: TLabel; + mjstr4: TEdit; + Label10: TLabel; + MJXH: TEdit; + Label11: TLabel; + AOrdDefNote1: TRichEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + + procedure FormCreate(Sender: TObject); + procedure SmNOKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure kcKwBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure baoNoKeyPress(Sender: TObject; var Key: Char); + procedure baoNoClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure baoNoExit(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure cxButton3Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + procedure FbqBtnClick(Sender: TObject); + procedure BaoBqBtnClick(Sender: TObject); + procedure cxButton5Click(Sender: TObject); + procedure cxButton6Click(Sender: TObject); + procedure cxButton7Click(Sender: TObject); + private + Rolls:integer; + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCPDBao: TfrmCPDBao; + newh:hwnd; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelRK; +{$R *.dfm} +Procedure TfrmCPDBao.QueryTm(); +var + FBaoID:string; +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add('and A.mjstr2=''δ'' and isnull(A.BaoID,'''')='''' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + open; + end; + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); + + SCreateCDS20(ADOQueryTM,CDSMJID); +// SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryTM,CDSSEL); +// SInitCDSData20(ADOQueryMain,CDSSEL); + + IF not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + + SMNO.SetFocus; +end; + +Procedure TfrmCPDBao.QueryRk(); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),'); + sql.Add('JY_Qty=(select sum(MJLen) from WFB_MJJY X where X.APID=A.APID), '); + sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType='''') '); + sql.Add('from JYOrder_sub_anPai A '); + SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + sql.Add(')'); + open; + end; +end; + +function TfrmCPDBao.SaveRK():Boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; + MhcTime:TdateTime; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + {with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + mhcTime:=SGetServerDateTime(ADOQueryTmp); + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=0; + FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + //FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + //FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + sql.Add('Update CK_BanCP_CR Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCPDBao.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryMain,CDSSEL); + SInitCDSData20(ADOQueryMain,CDSSEL); +end; + +procedure TfrmCPDBao.InitMJID(); +begin + MovePanel1.Visible:=false; + + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + if not IsEmpty then + begin + IF trim(Fieldbyname('MJstr2').AsString)='' then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:=''; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value:=trim(ADOQueryMain.Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value:=trim(ADOQueryMain.Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + Rolls:=Rolls+1; + end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end; + end; + IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɹ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + CDSMJID.delete; + end; + If CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + // application.MessageBox('AAAA','AAAAAAAA',0); + CDSTM.Delete; + tv2.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + end; + IF CheckBox1.Checked then + begin + IF (Rolls=strtointdef(trim(ComboBox3.Text),0)) and (strtointdef(trim(ComboBox3.Text),0)>0) then + begin + FileName.Click; + end; + end; +end; + +procedure TfrmCPDBao.FormDestroy(Sender: TObject); +begin + frmCPDBao:=nil; +end; + +procedure TfrmCPDBao.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); + writeCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmCPDBao.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPDBao.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; + //readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + readCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); + readCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); + Rolls:=0; +end; + +procedure TfrmCPDBao.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + + if trim(BaoNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻Ϊ','ʾ'); + exit; + end; + IF CDSTM.IsEmpty then exit; + if trim(smno.Text)='' then exit; + IF CDSMJID.Locate('MJID',trim(smno.Text),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ظɨ裡'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav'),0, SND_ASYNC); + smno.Text:=''; + smno.SetFocus; + exit; + end; + If not CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNO as orderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + IF isempty then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ŵ'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + end + else + begin + If not CDSTM.Locate('orderNoM',trim(fieldbyname('OrderNoM').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ڵǰ'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + end + else + begin + IF Fieldbyname('MJstr2').AsString<>'δ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=fieldbyname('Mjstr2').AsString; + end + else + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ѵ'; + end; + end; + end; + end; + smno.Text:=''; + smno.SetFocus; + exit; + end + else + begin + initMJID(); + end; + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmCPDBao.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + // InitGrid(); +end; + +procedure TfrmCPDBao.TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin + i:=tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]<>'ɹ') then + ACanvas.Brush.Color:=clred; +end; + +procedure TfrmCPDBao.kcKwBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKWFlag'; + flagname:='λϢ'; + V1Name.Caption:='λ'; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPDBao.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +procedure TfrmCPDBao.baoNoKeyPress(Sender: TObject; var Key: Char); +var FBaoID: string; +begin + +end; + +procedure TfrmCPDBao.baoNoClick(Sender: TObject); +var + i:Integer; +begin +// Panel3.Visible:=True; + { with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmCPDBao.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmCPDBao.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; +procedure TfrmCPDBao.SpeedButton49Click(Sender: TObject); +var + FBaoID:string; +begin + IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + Panel3.Visible:=False; +end; + +procedure TfrmCPDBao.FileNameClick(Sender: TObject); +var fPrintFile: string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + FBaoID:string; + i:Integer; +begin + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; + IF CDSMJID.IsEmpty then exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' SELECT D.LBName,D.NLBName'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add('where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + Open; + IF not ADOQueryPrint.IsEmpty then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)='' then + begin + application.MessageBox('ûðǩܴ','ʾϢ',0); + exit; + end; + end; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + sql.Add('Update CK_BanCP_CR Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldByName('Sflag').AsString :='2'; + fieldbyname('BaoNo').Value:=trim(BaoNo.Text); + fieldbyname('BaoID').Value:=trim(BaoID.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + except + ADOQueryCmd.Connection.RollbackTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + application.MessageBox('޸ʧܣ','ʾϢ',0); + exit; + end; + + +{ if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; } + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add('where A.BaoID='''+Trim(BaoID.Text)+''''); + SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); + Open; + end; + + if ADOQueryPrint.RecordCount>1 then + begin + Application.MessageBox('´!','ʾ',0); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Exit; + end; + if ADOQueryPrint.RecordCount<1 then + begin + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡','ʾ',0); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Exit; + end; + + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=trim(BaoID.Text); + 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; + + baoNo.Text:=inttostr(strtointdef(trim(baoNo.Text),0)+1); + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + CDSsel.Last; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + CDSsel.Append; + for i:=0 to FieldCount-1 do + begin + CDSsel.fields[i].value:=Fields[i].Value ; + end; + CDSsel.Post; + next; + end; + EnableControls; + end; + CDSMJID.EmptyDataSet; + + IF check_bz.Checked then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'; + IF Not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + //RM2.ShowReport; + RM2.printReport; + end; + end; + + Rolls:=0; + SmNO.SetFocus; + cxbutton5.click; +{ + IF check_Fbz.Checked then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(Fbq.Text)+'.rmf' ; + IF Not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=strtointdef(trim(ComboBox2.Text),1); + //RM2.ShowReport; + RM2.printReport; + end; + end; + } +end; + +procedure TfrmCPDBao.cxButton1Click(Sender: TObject); +begin + TBClose.Click; +end; + +procedure TfrmCPDBao.baoNoExit(Sender: TObject); +var + FBaoID:string; +begin + IF baoNo.Text<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end + else + BaoID.Text:=''; +end; + +procedure TfrmCPDBao.BtnEditA1BtnClick(Sender: TObject); +begin + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); + AOrdDefNote1.Text:='װҪ:'+Trim(CDS_OrderSel.fieldbyname('MPRTBZNote').AsString)+#13 + end; + Next; + end; + cxbutton5.Click; + end; + CDS_OrderSel.EnableControls; + end; + end; + QueryTm(); +end; + +procedure TfrmCPDBao.cxButton3Click(Sender: TObject); +var + i:integer; +begin + IF CDSMJID.IsEmpty then exit; + IF CDSMJID.fieldByName('Sflag').AsString='2' then + begin + application.MessageBox('Ѵɾ','ʾϢ',0); + exit; + end + else + begin + with CDSMJID do + begin + CDSTM.Last; + + CDSTM.Append; + for i:=0 to FieldCount-1 do + begin + CDSTM.fields[i].value:=Fields[i].Value ; + end; + CDSTM.Post; + end; + CDSMJID.Delete; + end; +end; + +procedure TfrmCPDBao.cxButton2Click(Sender: TObject); +begin + IF CDSMJID.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + sql.Add('Update CK_BanCP_CR Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldByName('Sflag').AsString :='2'; + fieldbyname('BaoNo').Value:=trim(BaoNo.Text); + fieldbyname('BaoID').Value:=trim(BaoID.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + // application.MessageBox('޸ijɹ','ʾϢ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('޸ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCPDBao.cxButton4Click(Sender: TObject); +begin + if CDSSEL.IsEmpty then Exit; + if CDSSEL.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + CDSSEL.DisableControls; + // ADOQueryCmd.Connection.BeginTrans; + with CDSSEL do + begin + First; + while FieldByName('SSel').AsBoolean do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); + sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+''''); + sql.Add('Update CK_BanCP_CR Set baoID='''',baoNo='''' '); + sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + delete; + end; + end; + // ADOQueryCmd.Connection.CommitTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳɹ','ʾϢ'); + QueryTm(); + exit; + except + // ADOQueryCmd.Connection.RollbackTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCPDBao.FbqBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BAOFFLAG'; + flagname:='ǩ'; + if ShowModal=1 then + begin + Fbq.Text:=trim(ClientDataSet1.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPDBao.BaoBqBtnClick(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + // LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + BaoBq.Text:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmCPDBao.cxButton5Click(Sender: TObject); +begin + QueryTm(); +end; + +procedure TfrmCPDBao.cxButton6Click(Sender: TObject); +begin + IF CDSTM.IsEmpty then exit; + if trim(BaoNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻Ϊ','ʾ'); + exit; + end; + + with CDSTM do + begin + DisableControls; + // first; + while Locate('ssel',true,[]) do + begin + IF CDSMJID.Locate('MJID',trim(CDSTM.fieldbyname('MJID').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ظɨ裡'; + smno.Text:=''; + smno.SetFocus; + EnableControls; + exit; + end; + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value:=trim(Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value:=trim(Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(Fieldbyname('subID').AsString); + CDSMJID.Post; + + CDSTM.Delete; + tv2.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + end; + first; + EnableControls; + end; +end; + +procedure TfrmCPDBao.cxButton7Click(Sender: TObject); +begin + SDofilter(ADOQueryTM,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); +end; + +end. diff --git a/贸易管理/U_CPGangNo.dfm b/贸易管理/U_CPGangNo.dfm new file mode 100644 index 0000000..659b7e1 --- /dev/null +++ b/贸易管理/U_CPGangNo.dfm @@ -0,0 +1,1131 @@ +object frmCPGangNo: TfrmCPGangNo + Left = 41 + Top = 60 + Width = 1350 + Height = 671 + Caption = #25442#32568#21495#31383#21475 + 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 = 1446 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1446 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 420 + Top = 56 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 44 + Top = 56 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 234 + Top = 56 + Width = 24 + Height = 12 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label1: TLabel + Left = 40 + Top = 14 + Width = 100 + Height = 24 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 395 + Top = 14 + Width = 125 + Height = 24 + Caption = #20462#25913#21518#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 545 + Top = 66 + Width = 75 + Height = 24 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 1023 + Top = 14 + Width = 80 + Height = 22 + Caption = #25171#21360#20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object PHYG: TBtnEditA + Left = 96 + Top = 52 + Width = 100 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 0 + Visible = False + end + object defstr2: TComboBox + Left = 472 + Top = 52 + Width = 101 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Visible = False + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 262 + Top = 52 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 3 + Visible = False + Width = 100 + end + object SmNO: TEdit + Left = 144 + Top = 10 + Width = 165 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + OnKeyPress = SmNOKeyPress + end + object baoNo: TEdit + Left = 523 + Top = 10 + Width = 66 + Height = 32 + Hint = 'baoNo' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 4 + OnClick = baoNoClick + end + object BaoID: TEdit + Left = 618 + Top = 58 + Width = 170 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 5 + OnClick = baoNoClick + end + object FileName: TcxButton + Left = 1184 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25171#21360#21367#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 1268 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object ComboBox1: TComboBox + Left = 1104 + Top = 4 + Width = 49 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 8 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object cxButton2: TcxButton + Left = 672 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton3: TcxButton + Left = 796 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #21024#38500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + end + object Panel2: TPanel + Left = 184 + Top = 233 + Width = 1262 + Height = 464 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1260 + Height = 462 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = TV2CustomDrawCell + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = V2Column2 + end + item + Kind = skSum + Column = V2Column3 + 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 + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object V2Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 157 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object V2OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 107 + end + object V2MJstr4: TcxGridDBColumn + Caption = #21407#32568#21495 + DataBinding.FieldName = 'MJstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object V2BaoID: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object V2BaoNO: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object Panel3: TPanel + Left = 1027 + Top = 423 + Width = 290 + Height = 286 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 211 + Width = 140 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 4 + Top = 143 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 74 + Top = 143 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 144 + Top = 143 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 73 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 74 + Top = 73 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 144 + Top = 73 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 74 + Top = 2 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 144 + Top = 2 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 144 + Top = 213 + Width = 70 + Height = 68 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 214 + Top = 2 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 214 + Top = 73 + Width = 70 + Height = 208 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 81 + Width = 149 + Height = 616 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel4' + TabOrder = 5 + Visible = False + object cxGrid3: TcxGrid + Left = 2 + Top = 57 + Width = 145 + Height = 557 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSTm + 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 = 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Header = DataLink_TradeManage.Default + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Width = 80 + end + object v3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 145 + Height = 55 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object Label6: TLabel + Left = 32 + Top = 21 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA1: TBtnEditA + Left = 80 + Top = 17 + Width = 153 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + end + end + object MovePanel1: TMovePanel + Left = 430 + Top = 156 + Width = 801 + Height = 353 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 244 + Top = 164 + Width = 198 + Height = 64 + Caption = 'Label2' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Left = 177 + Top = 43 + Width = 412 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 296 + Top = 272 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 552 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 500 + Top = 232 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 836 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 388 + Top = 324 + end + object cxStyleRepository1: TcxStyleRepository + Left = 241 + Top = 142 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 252 + Top = 428 + end + object DataSource1: TDataSource + DataSet = ADOQuery1 + Left = 312 + Top = 464 + end + object ADOQueryTm: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 152 + Top = 192 + end + object DSTm: TDataSource + DataSet = ADOQueryTm + Left = 88 + Top = 216 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 576 + Top = 256 + 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 = 424 + Top = 256 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 232 + end + object CDSTM: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 221 + end +end diff --git a/贸易管理/U_CPGangNo.pas b/贸易管理/U_CPGangNo.pas new file mode 100644 index 0000000..f7c1023 --- /dev/null +++ b/贸易管理/U_CPGangNo.pas @@ -0,0 +1,746 @@ +unit U_CPGangNo; + +interface + +uses + Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, + cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, + MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox; + +type + TfrmCPGangNo = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSMJID: TClientDataSet; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + V2Column1: TcxGridDBColumn; + MovePanel1: TMovePanel; + Edit2: TEdit; + Button4: TButton; + Label2: TLabel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + baoNo: TEdit; + BaoID: TEdit; + Label3: TLabel; + Label4: TLabel; + V2BaoNO: TcxGridDBColumn; + V2BaoID: TcxGridDBColumn; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + FileName: TcxButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxButton1: TcxButton; + ComboBox1: TComboBox; + Label34: TLabel; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + Panel4: TPanel; + ADOQueryPrint: TADOQuery; + Label6: TLabel; + BtnEditA1: TBtnEditA; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + CDSTM: TClientDataSet; + Panel5: TPanel; + V2MJstr4: TcxGridDBColumn; + V2OrderNo: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + cxButton2: TcxButton; + cxButton3: TcxButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + + procedure FormCreate(Sender: TObject); + procedure SmNOKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure kcKwBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure baoNoClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure cxButton3Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCPGangNo: TfrmCPGangNo; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelRK; +{$R *.dfm} +Procedure TfrmCPGangNo.QueryTm(); +var + FBaoID:string; +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select A.*,B.PrtColor,C.MPrtCodeName'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add('and A.mjstr2=''δ'' and isnull(A.BaoID,'''')='''' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + open; + end; + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); + + IF not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; +end; + +Procedure TfrmCPGangNo.QueryRk(); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),'); + sql.Add('JY_Qty=(select sum(MJLen) from WFB_MJJY X where X.APID=A.APID), '); + sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType='''') '); + sql.Add('from JYOrder_sub_anPai A '); + SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + sql.Add(')'); + open; + end; +end; + +function TfrmCPGangNo.SaveRK():Boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; + MhcTime:TdateTime; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + {with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + mhcTime:=SGetServerDateTime(ADOQueryTmp); + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=0; + FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + //FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + //FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCPGangNo.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); +end; + +procedure TfrmCPGangNo.InitMJID(); +begin + MovePanel1.Visible:=false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + if not IsEmpty then + begin + IF not CDSMJID.IsEmpty then + begin + IF not CDSMJID.Locate('OrderNo',trim(ADOQueryMain.fieldbyname('OrderNoM').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='Ųͬ'; + exit; + end; + end; + IF trim(Fieldbyname('MJstr2').AsString)='' then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:=''; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + IF trim(Fieldbyname('MJstr2').AsString)='ѳ' then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ѳ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + IF CDSMJID.Locate('MJID',trim(ADOQueryMain.Fieldbyname('MJID').AsString),[]) then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɨ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɨɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('orderNo').Value:=trim(ADOQueryMain.Fieldbyname('OrderNoM').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('Mjstr4').Value:=trim(ADOQueryMain.Fieldbyname('Mjstr4').AsString); + // CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + // CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + end; + { IF saveRk() then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + //QueryRk(); + QueryTm(); + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ʧ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end; } + end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end; + end; + IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɨɹ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + CDSMJID.Delete; + end; +end; + +procedure TfrmCPGangNo.FormDestroy(Sender: TObject); +begin + frmCPGangNo:=nil; +end; + +procedure TfrmCPGangNo.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmCPGangNo.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPGangNo.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; + //readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + readCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); +end; + +procedure TfrmCPGangNo.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + if trim(smno.Text)='' then exit; + initMJID(); + smno.Text:=''; + smno.SetFocus; + tv2.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmCPGangNo.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); +end; + +procedure TfrmCPGangNo.TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin +{ i:=tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]<>'ɹ') then + ACanvas.Brush.Color:=clred; } +end; + +procedure TfrmCPGangNo.kcKwBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKWFlag'; + flagname:='λϢ'; + V1Name.Caption:='λ'; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + // kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPGangNo.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +procedure TfrmCPGangNo.baoNoClick(Sender: TObject); +var + i:Integer; +begin +// Panel3.Visible:=True; + { with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmCPGangNo.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmCPGangNo.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; +procedure TfrmCPGangNo.SpeedButton49Click(Sender: TObject); +var + FBaoID:string; +begin + IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + Panel3.Visible:=False; +end; + +procedure TfrmCPGangNo.FileNameClick(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDSMJID.IsEmpty then Exit; + if CDSMJID.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CDSMJID.DisableControls; + with CDSMJID do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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; + if Trim(ADOQueryPrint.fieldbyname('LbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LbName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + // RM2.PrintReport; + end else + begin + CDSMJID.EnableControls; + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDSMJID.EnableControls; +end; + +procedure TfrmCPGangNo.cxButton1Click(Sender: TObject); +begin + TBClose.Click; +end; + +procedure TfrmCPGangNo.BtnEditA1BtnClick(Sender: TObject); +begin + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + end; + end; + QueryTm(); +end; + +procedure TfrmCPGangNo.cxButton3Click(Sender: TObject); +begin + IF CDSMJID.IsEmpty then exit; + CDSMJID.Delete; +end; + +procedure TfrmCPGangNo.cxButton2Click(Sender: TObject); +begin + IF CDSMJID.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJstr4='''+trim(BaoNo.Text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldbyname('MJstr4').Value:=trim(BaoNo.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('޸ijɹ','ʾϢ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('޸ʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/贸易管理/U_CPManage.dfm b/贸易管理/U_CPManage.dfm new file mode 100644 index 0000000..c929f1f --- /dev/null +++ b/贸易管理/U_CPManage.dfm @@ -0,0 +1,945 @@ +object frmCPManage: TfrmCPManage + Left = 190 + Top = 169 + Width = 1382 + Height = 754 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + 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 = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton9: TToolButton + Left = 378 + Top = 0 + Caption = #20462#25913#31867#22411 + ImageIndex = 54 + OnClick = ToolButton9Click + end + object ToolButton1: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton8: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #26631#31614#39044#35272 + ImageIndex = 12 + OnClick = ToolButton8Click + end + object ToolButton5: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 785 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 935 + Top = 5 + Width = 112 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #26679#21697#26631#31614 + Items.Strings = ( + #26679#21697#26631#31614 + #26679#21697#26631#31614'1' + #26679#21697#26631#31614'2') + 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 = 2 + 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 Label4: TLabel + Left = 474 + Top = 15 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #32433' '#25903 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 1033 + Top = 15 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #25104' '#20998 + end + object Label10: TLabel + Left = 606 + 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 + 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 + end + object Label13: TLabel + Left = 726 + Top = 15 + Width = 48 + Height = 12 + Caption = #32769' '#32534' '#21495 + end + object Label14: TLabel + Left = 726 + Top = 39 + Width = 48 + Height = 12 + Caption = #24211#20301#20301#32622 + end + object Label15: TLabel + Left = 850 + Top = 39 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label16: TLabel + Left = 850 + Top = 15 + Width = 48 + Height = 12 + Caption = #35746#21333#26469#28304 + 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 = 1 + OnChange = CYNameChange + end + object DefStr6: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + end + object defnote5: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 991 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 8 + OnChange = CYNameChange + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = CYMFChange + end + object defstr1: TEdit + Tag = 2 + Left = 776 + Top = 11 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = CYMFChange + end + object DefStr2: TEdit + Tag = 2 + Left = 776 + Top = 35 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = CYMFChange + end + object defstr7: TEdit + Tag = 2 + Left = 900 + Top = 35 + Width = 65 + Height = 20 + TabOrder = 12 + OnChange = CYMFChange + end + object defnote3: TEdit + Tag = 2 + Left = 900 + Top = 11 + Width = 65 + Height = 20 + TabOrder = 13 + 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 = 3 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 93 + Width = 220 + Height = 623 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + 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_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.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 = 224 + Top = 100 + Width = 1073 + Height = 609 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel3' + TabOrder = 5 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1069 + Height = 410 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + 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 + Styles.Inactive = DataLink_YPGL.SHuangSe + Styles.IncSearch = DataLink_YPGL.SHuangSe + Styles.Selection = DataLink_YPGL.SHuangSe + Styles.Header = DataLink_YPGL.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #24211#20301#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #24120#35268#21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column22: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'defnote5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 54 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column25: TcxGridDBColumn + Caption = #26222#36890#26469#28304 + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'price1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column27: TcxGridDBColumn + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column31: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column33: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column34: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'DefStr7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column35: TcxGridDBColumn + Caption = #21407#26009#32452#25104 + DataBinding.FieldName = 'DefStr8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column36: TcxGridDBColumn + Caption = #19978#26426#35268#26684 + DataBinding.FieldName = 'DefStr9' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + 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 + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.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_YPGL.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end +end diff --git a/贸易管理/U_CPManage.pas b/贸易管理/U_CPManage.pas new file mode 100644 index 0000000..e1fc232 --- /dev/null +++ b/贸易管理/U_CPManage.pas @@ -0,0 +1,962 @@ +unit U_CPManage; + +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 + TfrmCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + DefStr6: TEdit; + Label5: TLabel; + defnote5: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + defstr1: TEdit; + Label13: TLabel; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + DefStr2: TEdit; + Label14: TLabel; + defstr7: TEdit; + Label15: TLabel; + defnote3: TEdit; + Label16: TLabel; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + ComboBox1: TComboBox; + Panel3: TPanel; + GroupBox1: TGroupBox; + ScrollBox1: TScrollBox; + adoqueryPicture: TADOQuery; + ToolButton8: TToolButton; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column34: TcxGridDBColumn; + v1Column35: TcxGridDBColumn; + v1Column36: TcxGridDBColumn; + ToolButton9: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(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 Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + + +var + frmCPManage: TfrmCPManage; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR, U_YPTypeHelp; + +{$R *.dfm} + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPManage.FormDestroy(Sender: TObject); +begin + frmCPManage:=nil; +end; + +procedure TfrmCPManage.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 TfrmCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбYT',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',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; + +procedure TfrmCPManage.FormShow(Sender: TObject); +begin + Panel3.Align:=alclient; + InitTree(); + ReadCxGrid('ƷбYT',Tv1,'Ʒ'); + if DParameters1='1' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton3.Visible:=False; + ToolButton5.Visible:=False; + end; + 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 TfrmCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.TBAddClick(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + if ShowModal=1 then + begin + InitGrid(); + Self.CDS_Main.Locate('CYID',frmCPAdd.FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.ToolButton3Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.CDS_Main.fieldbyname('CYType').AsString); + if ShowModal=1 then + begin + InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + // RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManage.ToolButton7Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.CDS_Main.fieldbyname('CYType').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',frmCPAdd.FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.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 TfrmCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + + IF trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƷǩΪ!','ʾ',0); + exit; + end; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').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; + + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + // RM1.PrintReport; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton9Click(Sender: TObject); + +var + flb:string; +begin + if CDS_Main.IsEmpty then Exit; + if not CDS_Main.Locate('ssel',true,[]) then + begin + application.MessageBox('ûѡݣ','ʾϢ',0); + exit; + end; + if Application.MessageBox('ȷҪ޸Ʒ','ʾ',32+4)<>IDYES then Exit; + flb:=''; + + frmYPTypeHelp:=TfrmYPTypeHelp.create(self); + with frmYPTypeHelp do + begin + if showmodal=1 then + begin + flb:=trim(ADOQueryHelp.fieldbyname('CPID').AsString); + end; + free; + end; + + if trim(flb)='' then exit; + with CDS_Main do + begin + DisableControls; + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update CP_YDang SET CYType='''+trim(flb)+''' where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + Next; + end; + EnableControls; + end; + InitGrid(); +end; + +end. diff --git a/贸易管理/U_ClothContractInPut.dfm b/贸易管理/U_ClothContractInPut.dfm new file mode 100644 index 0000000..a8301e8 --- /dev/null +++ b/贸易管理/U_ClothContractInPut.dfm @@ -0,0 +1,653 @@ +object frmClothContractInPut: TfrmClothContractInPut + Left = 132 + Top = 120 + Width = 864 + Height = 625 + Caption = #22383#24067#35746#36141#21512#21516#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 = 856 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 856 + Height = 241 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#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 = 295 + Top = 14 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 546 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 546 + Top = 45 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 24 + Top = 45 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#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 = 295 + Top = 45 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 298 + Top = 89 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 77 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 544 + Top = 77 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 137 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 298 + Top = 137 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 177 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 209 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 181 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object FactoryNoName: TcxButtonEdit + Left = 359 + Top = 10 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 1 + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 2 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object CompanyName: TcxButtonEdit + Left = 609 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 3 + OnKeyDown = PRTCodeNameKeyDown + Width = 175 + end + object DeliveryDate: TDateTimePicker + Left = 609 + Top = 41 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object QDTime: TDateTimePicker + Left = 86 + Top = 41 + Width = 183 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 5 + end + object QDPalce: TEdit + Left = 359 + Top = 42 + Width = 161 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 361 + Top = 85 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 85 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 609 + Top = 85 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 9 + Width = 179 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 133 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 10 + Width = 184 + end + object ConTK4: TcxButtonEdit + Left = 361 + Top = 133 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 11 + Width = 162 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 173 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 12 + Width = 576 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 205 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 13 + Width = 683 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 270 + Width = 856 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 299 + Width = 856 + Height = 289 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1PRTColor: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 78 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 80 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 54 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 816 + Top = 85 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 800 + Top = 109 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 16 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 125 + end +end diff --git a/贸易管理/U_ClothContractInPut.pas b/贸易管理/U_ClothContractInPut.pas new file mode 100644 index 0000000..5faca51 --- /dev/null +++ b/贸易管理/U_ClothContractInPut.pas @@ -0,0 +1,760 @@ +unit U_ClothContractInPut; + +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, cxDropDownEdit; + +type + TfrmClothContractInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: TcxGridDBColumn; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label3: TLabel; + CompanyName: TcxButtonEdit; + v1Column5: TcxGridDBColumn; + Label4: TLabel; + Label2: TLabel; + Label6: TLabel; + Label8: TLabel; + DeliveryDate: TDateTimePicker; + QDTime: TDateTimePicker; + QDPalce: TEdit; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState:Integer; + FMainId,FConNo:String; + { Public declarations } + end; + +var + frmClothContractInPut: TfrmClothContractInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContract_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from Contract_Main order by FillTime desc '); + Open; + end; + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPut.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPut.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); +end; + +function TfrmClothContractInPut.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0); + + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + begin + if Trim(Order_Sub.fieldbyname('KZqty').AsString)='' then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('MFqty').AsString)='' then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'CS','Contract_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then + begin + FieldByName('Qty1').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + begin + FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000 + /(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value); + end else + begin + FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value; + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KZQty',null,[]) then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('MFQty',null,[]) then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if PState=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(FConNo)<>Trim(ConNo.Text) then + begin + Application.MessageBox('Ѿ޸ĺͬ!','ʾ',0); + Exit; + end; + end; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPut.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPut.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPut.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractInPutHZ.dfm b/贸易管理/U_ClothContractInPutHZ.dfm new file mode 100644 index 0000000..cc858b8 --- /dev/null +++ b/贸易管理/U_ClothContractInPutHZ.dfm @@ -0,0 +1,645 @@ +object frmClothContractInPutHZ: TfrmClothContractInPutHZ + Left = 198 + Top = 90 + Width = 831 + Height = 622 + Caption = #32433#32447#21152#24037#21512#21516#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 = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 815 + Height = 220 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 290 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 511 + Top = 222 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 552 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 290 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 552 + Top = 42 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 68 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 552 + Top = 68 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 118 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 290 + Top = 80 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 154 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 190 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Tag = 77 + Left = 575 + Top = 218 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 614 + Top = 10 + Width = 162 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 353 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 86 + Top = 43 + Width = 179 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 614 + Top = 38 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 614 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 162 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 114 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 691 + end + object ConTK4: TcxButtonEdit + Left = 353 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 177 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 150 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 563 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 186 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 669 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 249 + Width = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 278 + Width = 815 + Height = 305 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1Price: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 456 + Top = 5 + end +end diff --git a/贸易管理/U_ClothContractInPutHZ.pas b/贸易管理/U_ClothContractInPutHZ.pas new file mode 100644 index 0000000..62bd29b --- /dev/null +++ b/贸易管理/U_ClothContractInPutHZ.pas @@ -0,0 +1,878 @@ +unit U_ClothContractInPutHZ; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutHZ = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,CPFlag,CPFlagName,FactoryFlag,FConType:String; + { Public declarations } + end; + +var + frmClothContractInPutHZ: TfrmClothContractInPutHZ; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmClothContractInPutHZ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutHZ.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from ContractHZ_Main where ConType='''+Trim(FConType)+'''order by FillTime desc '); + Open; + end; + ConTK1.Text:=Trim(ADOTemp.fieldbyname('ConTK1').AsString); + ConTK2.Text:=Trim(ADOTemp.fieldbyname('ConTK2').AsString); + ConTK3.Text:=Trim(ADOTemp.fieldbyname('ConTK3').AsString); + ConTK4.Text:=Trim(ADOTemp.fieldbyname('ConTK4').AsString); + ConTK5.Text:=Trim(ADOTemp.fieldbyname('ConTK5').AsString); + ConTK6.Text:=Trim(ADOTemp.fieldbyname('ConTK6').AsString); + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + + QDPalce.Text:=''; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutHZ.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutHZ.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutHZ.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +function TfrmClothContractInPutHZ.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'HM','ContractHZ_Main',2,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 ContractHZ_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString); + FieldByName('ConType').Value:=Trim(FConType); + Post; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'HS','ContractHZ_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractHZ_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutHZ.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryNoName',null,[]) then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutHZ.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(CPFlag); + flagname:=Trim(CPFlagName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutHZ.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:=Trim(FactoryFlag); + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractInPutPB.dfm b/贸易管理/U_ClothContractInPutPB.dfm new file mode 100644 index 0000000..c286e76 --- /dev/null +++ b/贸易管理/U_ClothContractInPutPB.dfm @@ -0,0 +1,768 @@ +object frmClothContractInPutPB: TfrmClothContractInPutPB + Left = 152 + Top = 108 + Width = 1089 + Height = 630 + Caption = #22383#24067#35746#36141#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1073 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1073 + Height = 264 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 546 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 431 + Top = 278 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 546 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 547 + Top = 86 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 295 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 78 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 22 + Top = 126 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 138 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 295 + Top = 90 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 178 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 210 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 297 + Top = 14 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 28 + Top = 240 + Width = 65 + Height = 12 + Caption = #20132#26399#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 609 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Tag = 45 + Left = 499 + Top = 278 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 86 + Top = 42 + Width = 183 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 609 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 611 + Top = 83 + Width = 174 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 359 + Top = 42 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 86 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 85 + Top = 134 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 184 + end + object ConTK3: TcxButtonEdit + Left = 360 + Top = 134 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 428 + end + object ConTK4: TcxButtonEdit + Left = 359 + Top = 86 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 162 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 174 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 572 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 206 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 679 + end + object OrderNo: TcxButtonEdit + Left = 360 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = OrderNoPropertiesButtonClick + TabOrder = 14 + Width = 161 + end + object ConTk7: TEdit + Left = 112 + Top = 236 + Width = 673 + Height = 18 + TabOrder = 15 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 293 + Width = 1073 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 322 + Width = 1073 + Height = 270 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object v1Column7: TcxGridDBColumn + Tag = 99 + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 81 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 67 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 74 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 49 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 47 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column8: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'Sdefstr1' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column10: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'Sdefstr2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column11: TcxGridDBColumn + Caption = #26579#21378#24037#33402 + DataBinding.FieldName = 'Sdefstr3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #26579#21378#20215#26684 + DataBinding.FieldName = 'Sdefstr4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'Sdefstr5' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #24037#21378#32534#21495 + DataBinding.FieldName = 'Sdefstr6' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 13 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 16 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 456 + Top = 13 + end +end diff --git a/贸易管理/U_ClothContractInPutPB.pas b/贸易管理/U_ClothContractInPutPB.pas new file mode 100644 index 0000000..cbcca6e --- /dev/null +++ b/贸易管理/U_ClothContractInPutPB.pas @@ -0,0 +1,1031 @@ +unit U_ClothContractInPutPB; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutPB = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + OrderNo: TcxButtonEdit; + Label14: TLabel; + Label15: TLabel; + ConTk7: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo:String; + { Public declarations } + end; + +var + frmClothContractInPutPB: TfrmClothContractInPutPB; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun, U_ProductOrder_CX, U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmClothContractInPutPB.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutPB.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContract_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from Contract_Main order by FillTime desc '); + Open; + end; + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutPB.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutPB.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutPB.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutPB.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutPB.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutPB.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +function TfrmClothContractInPutPB.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + + //FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PM','Contract_Main',2,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 Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + + end + else begin + + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('HTType').Value:='ɹͬ'; + SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString); + Post; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'PS','Contract_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then + begin + FieldByName('Qty1').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + begin + FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000 + /(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value); + end else + begin + FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value; + end; + FieldByName('C_Note').Value:=trim(Order_Sub.fieldbyname('C_Note').AsString); + FieldByName('C_status').Value:='0'; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutPB.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ָʾŲΪգ','ʾ',0); + Exit; + end; + {if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; } + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryNoName',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where conNo='+quotedstr(trim(conNo.Text))); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('˺ͬûжӦָʾţ','ʾ',0); + Exit; + end; } + if PState=1 then + begin + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+''''); + sql.Add(' and Isnull(DHTYpe,'''')='''' '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(FConNo)<>Trim(ConNo.Text) then + begin + Application.MessageBox('Ѿ޸ĺͬ!','ʾ',0); + Exit; + end; + end; } + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmClothContractInPutPB.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutPB.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutPB.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('PBFactory').AsString); + end; + end; +end; + +procedure TfrmClothContractInPutPB.v1Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end;} + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractInPutPB.v1Column10PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('Sdefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutPB.OrderNoPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + FrmProductOrder_CX:=TFrmProductOrder_CX.Create(self); + with FrmProductOrder_CX do + begin + if showModal=1 then + begin + // self.ConNo.Text:=trim(Order_Main.fieldbyname('ConNo').AsString); + self.OrderNo.Text:=trim(Order_Main.fieldbyname('OrderNo').AsString); + end; + free; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractInPutSX.dfm b/贸易管理/U_ClothContractInPutSX.dfm new file mode 100644 index 0000000..bbaee2c --- /dev/null +++ b/贸易管理/U_ClothContractInPutSX.dfm @@ -0,0 +1,633 @@ +object frmClothContractInPutSX: TfrmClothContractInPutSX + Left = 198 + Top = 112 + Width = 831 + Height = 622 + Caption = #32433#32447#35746#36141#21512#21516#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 = 823 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 823 + Height = 250 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 546 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 295 + Top = 14 + Width = 67 + Height = 12 + Caption = #20379' '#26041#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 = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 546 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 295 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 298 + Top = 90 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 78 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 544 + Top = 78 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 138 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 298 + Top = 138 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 178 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 210 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 609 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Left = 359 + Top = 10 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 86 + Top = 42 + Width = 183 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 609 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 359 + Top = 43 + Width = 161 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 361 + Top = 86 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 86 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 609 + Top = 86 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 179 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 134 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 184 + end + object ConTK4: TcxButtonEdit + Left = 361 + Top = 134 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 162 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 174 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 576 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 206 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 683 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 279 + Width = 823 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 308 + Width = 823 + Height = 277 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + Width = 112 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 13 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 16 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 456 + Top = 13 + end +end diff --git a/贸易管理/U_ClothContractInPutSX.pas b/贸易管理/U_ClothContractInPutSX.pas new file mode 100644 index 0000000..fbf393f --- /dev/null +++ b/贸易管理/U_ClothContractInPutSX.pas @@ -0,0 +1,854 @@ +unit U_ClothContractInPutSX; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutSX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState:Integer; + FMainId,FConNo:String; + { Public declarations } + end; + +var + frmClothContractInPutSX: TfrmClothContractInPutSX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmClothContractInPutSX.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutSX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContractSX_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from ContractSX_Main order by FillTime desc '); + Open; + end; + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + QDPalce.Text:=''; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutSX.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSX.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutSX.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutSX.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); +end; + +function TfrmClothContractInPutSX.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'SM','ContractSX_Main',2,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 ContractSX_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + + end + else begin + + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'SS','ContractSX_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractSX_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSX.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if PState=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(FConNo)<>Trim(ConNo.Text) then + begin + Application.MessageBox('Ѿ޸ĺͬ!','ʾ',0); + Exit; + end; + end; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutSX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothSX'; + flagname:='ɴ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractInPutSXMX.dfm b/贸易管理/U_ClothContractInPutSXMX.dfm new file mode 100644 index 0000000..74b5a62 --- /dev/null +++ b/贸易管理/U_ClothContractInPutSXMX.dfm @@ -0,0 +1,647 @@ +object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX + Left = 198 + Top = 90 + Width = 831 + Height = 622 + Caption = #32433#32447#35746#36141#21512#21516#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 = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 815 + Height = 220 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 290 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 511 + Top = 222 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 552 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 290 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#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 = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 552 + Top = 42 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#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 = 24 + Top = 68 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 552 + Top = 68 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 118 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 290 + Top = 80 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 24 + Top = 154 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 190 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Tag = 77 + Left = 575 + Top = 218 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 614 + Top = 10 + Width = 162 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 353 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 86 + Top = 43 + Width = 179 + Height = 18 + TabOrder = 6 + Text = #26607#26725 + end + object JHPlace: TcxButtonEdit + Left = 614 + Top = 38 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 614 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 162 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 114 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 691 + end + object ConTK4: TcxButtonEdit + Left = 353 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 177 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 150 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 563 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 186 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 669 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 249 + Width = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 278 + Width = 815 + Height = 305 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 456 + Top = 5 + end +end diff --git a/贸易管理/U_ClothContractInPutSXMX.pas b/贸易管理/U_ClothContractInPutSXMX.pas new file mode 100644 index 0000000..1d2366c --- /dev/null +++ b/贸易管理/U_ClothContractInPutSXMX.pas @@ -0,0 +1,931 @@ +unit U_ClothContractInPutSXMX; + +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, cxDropDownEdit; + +type + TfrmClothContractInPutSXMX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo:String; + + { Public declarations } + end; + +var + frmClothContractInPutSXMX: TfrmClothContractInPutSXMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun; + +{$R *.dfm} + +procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutSXMX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContractSX_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from ContractSX_Main order by FillTime desc '); + Open; + end; + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + QDPalce.Text:=''; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutSXMX.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSXMX.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutSXMX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutSXMX.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +function TfrmClothContractInPutSXMX.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'SM','ContractSX_Main',2,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 ContractSX_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString); + Post; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'SS','ContractSX_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractSX_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + ADOCmd.Append + else + ADOCmd.Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + ADOCmd.FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + ADOCmd.Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Sub Set C_Unit='''+Trim(Order_Sub.fieldbyname('C_Unit').AsString)+''''); + sql.Add(' where Subid='''+Trim(Order_Sub.fieldbyname('Subid').AsString)+''''); + ExecSQL; + end; + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + {if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; } + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryNoName',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if PState=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(FConNo)<>Trim(ConNo.Text) then + begin + Application.MessageBox('Ѿ޸ĺͬ!','ʾ',0); + Exit; + end; + end; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + 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 Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothSX'; + flagname:='ɴ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractKCList.dfm b/贸易管理/U_ClothContractKCList.dfm new file mode 100644 index 0000000..b97e94f --- /dev/null +++ b/贸易管理/U_ClothContractKCList.dfm @@ -0,0 +1,635 @@ +object frmClothContractKCList: TfrmClothContractKCList + Left = 100 + Top = 35 + Width = 1238 + Height = 653 + Caption = #22383#24067#24211#23384#27719#24635#26597#35810 + 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 = 1222 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1222 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 748 + Top = 22 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 892 + Top = 22 + Width = 26 + Height = 12 + Caption = #26579#21378 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 792 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object FirstName: TEdit + Tag = 2 + Left = 920 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1222 + Height = 529 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + 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 = v1Column4 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skAverage + end + item + Kind = skAverage + 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.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 103 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 171 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 134 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 93 + end + object v1Column5: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 104 + end + object v1Column1: TcxGridDBColumn + Caption = #37319#36141#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #37319#36141#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_unit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'DHPS' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #25237#24067#21305#25968 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Styles.Content = FontBlue + Styles.Footer = FontBlue + Styles.Header = FontBlue + Width = 58 + end + object v1Column14: TcxGridDBColumn + Caption = #25237#24067#25968#37327 + DataBinding.FieldName = 'TPQty' + HeaderAlignmentHorz = taCenter + Styles.Content = FontBlue + Styles.Footer = FontBlue + Styles.Header = FontBlue + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Styles.Content = FoneRed + Styles.Footer = FoneRed + Styles.Header = FoneRed + Width = 61 + end + object v1Column8: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = FoneRed + Styles.Footer = FoneRed + Styles.Header = FoneRed + Width = 58 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 448 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 168 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 512 + Top = 168 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 544 + Top = 168 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 168 + 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 = 320 + Top = 168 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 352 + Top = 168 + 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 = 384 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 416 + Top = 168 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + 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 +end diff --git a/贸易管理/U_ClothContractKCList.pas b/贸易管理/U_ClothContractKCList.pas new file mode 100644 index 0000000..6b0a810 --- /dev/null +++ b/贸易管理/U_ClothContractKCList.pas @@ -0,0 +1,202 @@ +unit U_ClothContractKCList; + +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 + TfrmClothContractKCList = 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; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + FactoryNoName: TEdit; + Label7: TLabel; + FirstName: TEdit; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + 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; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + procedure InitGridWSQL(FWSQL:String); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractKCList: TfrmClothContractKCList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractKCList.FormDestroy(Sender: TObject); +begin + frmClothContractKCList:=nil; +end; + +procedure TfrmClothContractKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractKCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_Get_PBKC :begdate,:enddate'); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmClothContractKCList.InitGridWSQL(FWSQL:String); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_View_ClothHZ :begdate,:enddate,:WSQL'); + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Parameters.ParamByName('WSQL').Value:=FWSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractKCList.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; + InitGrid(); +end; + +procedure TfrmClothContractKCList.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 TfrmClothContractKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractKCList.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 TfrmClothContractKCList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +end. diff --git a/贸易管理/U_ClothContractList.dfm b/贸易管理/U_ClothContractList.dfm new file mode 100644 index 0000000..509da43 --- /dev/null +++ b/贸易管理/U_ClothContractList.dfm @@ -0,0 +1,952 @@ +object frmClothContractList: TfrmClothContractList + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #22383#24067#37319#36141#21512#21516 + 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 = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 41 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 86 + OnClick = TNochkClick + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton6: TToolButton + Left = 591 + Top = 0 + Width = 48 + Caption = 'ToolButton6' + ImageIndex = 115 + Style = tbsSeparator + Visible = False + end + object TBClose: TToolButton + Left = 639 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton1: TToolButton + Left = 702 + Top = 0 + Width = 41 + Caption = 'ToolButton1' + ImageIndex = 60 + Style = tbsSeparator + Visible = False + end + object ToolButton2: TToolButton + Left = 743 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 806 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 869 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 956 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 21 + Top = 22 + Width = 52 + Height = 12 + Caption = #31614#35746#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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 604 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 740 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 632 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object Button1: TButton + Left = 872 + Top = 15 + Width = 75 + Height = 25 + Caption = #22686#34892 + TabOrder = 5 + Visible = False + OnClick = Button1Click + end + object Button2: TButton + Left = 908 + Top = 15 + Width = 75 + Height = 25 + Caption = #21024#34892 + TabOrder = 6 + Visible = False + OnClick = Button2Click + end + object Button3: TButton + Left = 988 + Top = 15 + Width = 75 + Height = 25 + Caption = #21040#22383#30830#23450 + TabOrder = 7 + Visible = False + OnClick = Button3Click + end + object Button4: TButton + Left = 1048 + Top = 15 + Width = 86 + Height = 25 + Caption = #22383#24067#39046#26009#30830#23450 + TabOrder = 8 + Visible = False + OnClick = Button4Click + end + object FactoryNoName: TEdit + Tag = 2 + Left = 784 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 9 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = -172 + Top = 112 + Width = 1351 + Height = 545 + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 815 + Height = 545 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1C_Qty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1Column1: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object v1C_Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'Sdefstr1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'Sdefstr2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column8: TcxGridDBColumn + Caption = #26579#21378#24037#33402 + DataBinding.FieldName = 'Sdefstr3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #26579#21378#20215#26684 + DataBinding.FieldName = 'Sdefstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'sdefstr5' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 70 + end + object v1Column11: TcxGridDBColumn + Caption = #24037#21378#32534#21495 + DataBinding.FieldName = 'sdefstr6' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1DHQty: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1MXQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'MXQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 823 + Top = 0 + Width = 528 + Height = 545 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + Visible = False + object cxGrid3: TcxGrid + Left = 2 + Top = 195 + Width = 524 + Height = 348 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object cxGridDBPRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 42 + end + object v3Column6: TcxGridDBColumn + Caption = #25237#22383#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v3Column3: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327'('#35745#21010')' + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v3Column4: TcxGridDBColumn + Caption = #25968#37327#20844#24046 + DataBinding.FieldName = 'Qty2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column5: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v3Column7: TcxGridDBColumn + Caption = #25237#22383#20154 + DataBinding.FieldName = 'TPPerson' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + Width = 73 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 524 + Height = 193 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v2ComeDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v2Column3: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'RKPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v2BatchNo: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v2Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 44 + end + object v2MxQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 48 + end + object v2MxNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v2Column2: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCSL' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 0 + Width = 8 + Height = 545 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel2 + Visible = False + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1366 + Height = 22 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23436#25104 + #23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1140 + Top = 52 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1092 + Top = 16 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1120 + Top = 20 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 52 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1080 + Top = 76 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1104 + Top = 64 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + 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 = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 32 + end +end diff --git a/贸易管理/U_ClothContractList.pas b/贸易管理/U_ClothContractList.pas new file mode 100644 index 0000000..1b007c7 --- /dev/null +++ b/贸易管理/U_ClothContractList.pas @@ -0,0 +1,1036 @@ +unit U_ClothContractList; + +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 + TfrmClothContractList = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1C_Qty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + v1Money: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton1: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBPRTColor: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2BatchNo: TcxGridDBColumn; + v2Qty1: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + CDS_PRT: TClientDataSet; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + TNochk: TToolButton; + v1DHQty: TcxGridDBColumn; + v1MXQty: TcxGridDBColumn; + FactoryNoName: TEdit; + Label6: TLabel; + v1Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SetStatus(); + { Private declarations } + public + FType:string; + { Public declarations } + end; + +var + frmClothContractList: TfrmClothContractList; + +implementation +uses + U_DataLink,U_ClothContractInPutPB,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList.SetStatus(); +begin + TBAdd.Visible:=false; + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + IF FType=''then + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + TBAdd.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + + end; + end; + end; + IF FType='ѯ' then + begin + Tbadd.Visible:=false; + TBPrint.Visible:=false; + v1Price.Visible:=false; + v1PriceUnit.Visible:=false; + v1Money.Visible:=false; + + v1Price.Hidden:=true; + v1PriceUnit.Hidden:=true; + v1Money.Hidden:=true; + cxTabControl1.TabIndex:=2; + cxTabControl1.Visible:=false; + end; +end; + +procedure TfrmClothContractList.FormDestroy(Sender: TObject); +begin + frmClothContractList:=nil; +end; + +procedure TfrmClothContractList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList.InitGrid(); +var strwhere: string; +begin + strwhere:=' and QDTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and QDTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' + +' and HTType=''ɹͬ'''; + IF cxTabControl1.TabIndex=0 then + strwhere:=strwhere+' and isnull(C_status,''0'')=''0'' '; + IF cxTabControl1.TabIndex=1 then + strwhere:=strwhere+' and isnull(C_status,''0'')=''1'' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=strwhere; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmClothContractList.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + cxTabControl1.TabIndex:=0; + if Trim(DParameters1)='1' then + begin + TBPrint.Visible:=False; + end else + begin + // v1Column1.Visible:=True; + // v1Column1.Hidden:=False; + // v1PRTUnit.Visible:=True; + // v1PRTUnit.Hidden:=False; + // v1PRTQty.Visible:=True; + // v1PRTQty.Hidden:=False; + TBPrint.Visible:=True; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList.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 TfrmClothContractList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmClothContractInPutPB.Free; + end; +end; + +procedure TfrmClothContractList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if ClientDataSet2.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 TfrmClothContractList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').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\ͬ.rmf'),'ʾ',0); + end; + //SDofilter(ADOQueryMain,''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + //Order_Main.Locate('ConNoM',FConNoM,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmClothContractList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmClothContractInPutPB.Free; + end; +end; + +procedure TfrmClothContractList.ConNoMChange(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 TfrmClothContractList.FormShow(Sender: TObject); +begin + InitForm(); + SetStatus(); +end; + +procedure TfrmClothContractList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if FInt=2 then + begin + ClientDataSet2.Append; + ClientDataSet2.Post; + end else + if FInt=3 then + begin + //ClientDataSet3.Append; + //ClientDataSet3.Post; + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=2; + FCloth:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.ToolButton1.Visible:=False; + frmProductOrderList.ToolButton2.Visible:=False; + frmProductOrderList.ToolButton3.Visible:=True; + frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + with frmProductOrderList.Order_Main do + begin + frmProductOrderList.Order_Main.First; + while not frmProductOrderList.Order_Main.Eof do + begin + if frmProductOrderList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.ClientDataSet3 do + begin + Self.ClientDataSet3.Append; + Self.ClientDataSet3.FieldByName('OrdSubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + Self.ClientDataSet3.FieldByName('OrderNo').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + Self.ClientDataSet3.FieldByName('MPRTCodeName').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('MPRTCodeName').AsString); + Self.ClientDataSet3.FieldByName('MPRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('MPRTSpec').AsString); + Self.ClientDataSet3.FieldByName('PRTColor').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + end; + end; + frmProductOrderList.Order_Main.Next; + end; + end; + end; + end; + finally + frmProductOrderList.Free; + end; + end; +end; + +procedure TfrmClothContractList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,KCSL=A.MXQty-(select isnull(Sum(TPQty),0) from Contract_Sub_Mxto B where B.MXID=A.MXID),'); + sql.Add(' KCPS=A.Qty1-(select isnull(Sum(Qty1),0) from Contract_Sub_Mxto B where B.MXID=A.MXID)'); + sql.Add('from Contract_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add('from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractList.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'Contract_Sub_Mx',0); + if Trim(ClientDataSet2.fieldbyname('Qty1').AsString)='' then + begin + FieldByName('Qty1').Value:=0; + end; + if Trim(ClientDataSet2.fieldbyname('MxQty').AsString)='' then + begin + FieldByName('MxQty').Value:=0; + end; + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractList.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractList.ToolButton3Click(Sender: TObject); +begin + if FInt=2 then + begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet3.IsEmpty=false then + begin + Application.MessageBox('Ѳݣɾ¼','ʾ',0); + Exit; + end; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end else + if FInt=3 then + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + with ClientDataSet2 do + begin + Edit; + if ClientDataSet3.IsEmpty=False then + FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + else + FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value; + Post; + end; + end; +end; + +procedure TfrmClothContractList.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractList.Button1Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmClothContractList.Button2Click(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmClothContractList.Button3Click(Sender: TObject); +begin + ToolButton4.Click; +end; + +procedure TfrmClothContractList.Button4Click(Sender: TObject); +begin + ToolButton5.Click; +end; + +procedure TfrmClothContractList.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty2:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]; + Post; + end; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + begin + qty1:=ClientDataSet3.fieldbyname('TPQty').AsString; + end else + begin + qty1:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + begin + Qty2:=ClientDataSet3.fieldbyname('Qty2').AsString; + end else + begin + Qty2:='0'; + end; + if StrToFloat(qty1)*StrToFloat(qty2)=0 then Exit; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty3').Value:=(StrToFloat(qty1)-StrToFloat(qty2))*1.00*100/StrToFloat(qty1); + Post; + end; +end; + +procedure TfrmClothContractList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' + +' and HTType=''ɹͬ'''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + If Order_Main.IsEmpty then Exit; + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=1; + ToolBar1.Enabled:=false; + ToolBar2.Enabled:=false; + Tv1.OptionsData.Editing:=false; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmClothContractInPutPB.Free; + end; +end; + +procedure TfrmClothContractList.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''1'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹɣ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ɹʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList.TNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''0'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +procedure TfrmClothContractList.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if cxTabControl1.TabIndex=0 then + begin + with Order_Main do + begin + if (AViewInfo.GridRecord.Values[v1MXQty.Index]< + AViewInfo.GridRecord.Values[v1C_Qty.Index]*0.97) or + (AViewInfo.GridRecord.Values[v1MXQty.Index]> + AViewInfo.GridRecord.Values[v1C_Qty.Index]*1.03) then + begin + ACanvas.Font.Color:=clRed; + end; + if AViewInfo.GridRecord.Values[v1DHQty.Index]< + AViewInfo.GridRecord.Values[v1Qty1.Index] then + begin + ACanvas.Font.Color:=clRed; + end; + end; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractListDH.dfm b/贸易管理/U_ClothContractListDH.dfm new file mode 100644 index 0000000..2b6e9d7 --- /dev/null +++ b/贸易管理/U_ClothContractListDH.dfm @@ -0,0 +1,707 @@ +object frmClothContractListDH: TfrmClothContractListDH + Left = 194 + Top = 75 + Width = 1100 + Height = 573 + Caption = #22383#24067#21040#36135 + 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 = 1084 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TWC: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 41 + Visible = False + OnClick = TWCClick + end + object TNOWC: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 86 + Visible = False + OnClick = TNOWCClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 552 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1084 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 752 + Top = 22 + Width = 65 + Height = 12 + Caption = #23458#25143#21512#21516#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' ('#31616#20307') - '#25628#29399#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' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = ConNoMKeyPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object sdefstr6: TEdit + Tag = 2 + Left = 820 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1084 + Height = 210 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 74 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 93 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 81 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column3: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'Sdefstr1' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1DHQty: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1MxQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column7: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column8: TcxGridDBColumn + Caption = #23458#25143#21512#21516#21495 + DataBinding.FieldName = 'sdefstr6' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #26579#21378#24037#33402 + DataBinding.FieldName = 'Sdefstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column10: TcxGridDBColumn + DataBinding.FieldName = 'subID' + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 296 + Width = 1084 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 304 + Width = 1084 + Height = 231 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 2 + Top = 34 + Width = 1080 + Height = 195 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v2ComeDate: TcxGridDBColumn + Tag = 2 + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'RKPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 122 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v2MxQty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 90 + end + object v2Column2: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MXUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v2MxNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 145 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1080 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton10: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + OnClick = ToolButton4Click + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 664 + Top = 256 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 988 + Top = 208 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 453 + Top = 200 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 520 + end +end diff --git a/贸易管理/U_ClothContractListDH.pas b/贸易管理/U_ClothContractListDH.pas new file mode 100644 index 0000000..275beda --- /dev/null +++ b/贸易管理/U_ClothContractListDH.pas @@ -0,0 +1,1119 @@ +unit U_ClothContractListDH; + +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 + TfrmClothContractListDH = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + sdefstr6: TEdit; + Label6: TLabel; + v1DHQty: TcxGridDBColumn; + v1MxQty: TcxGridDBColumn; + TWC: TToolButton; + TNOWC: TToolButton; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ConNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TWCClick(Sender: TObject); + procedure TNOWCClick(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + procedure SetStatus(); + function DelData():Boolean; + function YFData():Boolean; + function DelYFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListDH: TfrmClothContractListDH; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp, + U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmClothContractListDH.FormDestroy(Sender: TObject); +begin + frmClothContractListDH:=nil; +end; + +procedure TfrmClothContractListDH.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListDH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ1',Tv1,'ָʾ'); + WriteCxGrid('ͬ2',Tv2,'ָʾ'); +end; + +procedure TfrmClothContractListDH.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' + +' and HTType=''ɹͬ'''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListDH.InitForm(); +begin + ReadCxGrid('ͬ1',Tv1,'ָʾ'); + ReadCxGrid('ͬ2',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractListDH.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 TfrmClothContractListDH.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDH.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListDH.ConNoMChange(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 TfrmClothContractListDH.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListDH.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; +{ with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1 * from Contract_Main where ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + ClientDataSet2.Append; + ClientDataSet2.FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + ClientDataSet2.FieldByName('RKPlace').Value:=''; + ClientDataSet2.FieldByName('RKPLCode').Value:=Trim(ADOQueryTemp.fieldbyname('JHPlace').AsString); + ClientDataSet2.Post; +end; + +procedure TfrmClothContractListDH.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmClothContractListDH.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListDH.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractListDH.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractListDH.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace',null,[]) then + begin + Application.MessageBox('ŵص㲻Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace','',[]) then + begin + Application.MessageBox('ŵص㲻Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + ClientDataSet2.DisableControls; + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet2.EnableControls; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end + else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'Contract_Sub_Mx',2); + FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('RKPLCode').Value:=Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString); + if Trim(ClientDataSet2.fieldbyname('Qty1').AsString)='' then + begin + FieldByName('Qty1').Value:=0; + end; + if Trim(ClientDataSet2.fieldbyname('MxQty').AsString)='' then + begin + FieldByName('MxQty').Value:=0; + end; + if Trim(Order_Main.fieldbyname('C_Unit').AsString)='Kg' then + begin + if (Order_Main.fieldbyname('MFQty').AsFloat<>0) and (Order_Main.fieldbyname('KZQty').AsFloat<>0) then + begin + FieldByName('MxMQty').Value:=ClientDataSet2.fieldbyname('MxQty').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + end; + end + else + begin + FieldByName('MxMQty').Value:=ClientDataSet2.fieldbyname('MxQty').Value; + end; + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'DH','Contract_Cloth_DH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet2.EnableControls; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('Mainid').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(maxno); + FieldByName('FirstNo').Value:=Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet2.fieldbyname('RKPLace').AsString); + FieldByName('DHUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('PBName').Value:=Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('PBSpec').Value:=Trim(Order_Main.fieldbyname('C_Spec').AsString); + FieldByName('PBMF').Value:=Order_Main.fieldbyname('MFQty').AsFloat; + FieldByName('PBKZ').Value:=Order_Main.fieldbyname('KZQty').AsFloat; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set DHUnit='''+Trim(Order_Main.fieldbyname('C_Unit').AsString)+''''); + sql.Add(',PBName='+quotedstr(Trim(Order_Main.fieldbyname('C_CodeName').AsString))); + sql.Add(',PBSpec='+quotedstr(Trim(Order_Main.fieldbyname('C_Spec').AsString))); + sql.Add(',PBMF='+floattostr(Order_Main.fieldbyname('MFQty').AsFloat)); + sql.Add(',PBKZ='+floattostr(Order_Main.fieldbyname('KZQty').AsFloat)); + sql.Add(' where DHID='''+Trim(ADOQueryTemp.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set DHQty=(select Sum(MxQty) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(',DHMQty=(select Sum(MxMQty) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(', DHPS=(select Sum(Qty1) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_DH '); + sql.Add('where not exists(select * from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId and A.RKPlace=Contract_Cloth_DH.firstName) '); + sql.Add('and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + //ӹ + with ADOQueryCmd do + begin + Close; + sql.Clear; + // sql.Add('select * from Contract_Cloth_LLMX B where not exists(select * from '); + // sql.Add(' Contract_Cloth_DH A where A.DHID=B.DHID '); + // SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' select A.DHID from Contract_Cloth_LLMx A '); + sql.Add(' inner join Contract_Cloth_LL B on B.DHID=A.DHID and B.OrdSubId=A.OrdSubId and B.LLID not like ''HL%'' '); + sql.Add(' where not exists (select X.DHID from Contract_Cloth_DH X where X.DHId=A.DHID and X.FirstName=B.FirstName) '); + sql.Add(' and A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''' '); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + ClientDataSet2.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݽҲӦȾܱ!','ʾ',0); + //begin + + Exit; + //end; + end; + ClientDataSet2.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ClientDataSet2.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListDH.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').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_Main.fieldbyname('FactoryNoName').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_Main.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + begin + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'PF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ClientDataSet2.fieldbyname('MXId').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_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('CRTime').Value:=ClientDataSet2.fieldbyname('ComeDate').Value; + FieldByName('Qty').Value:=ClientDataSet2.fieldbyname('MXQty').Value; + FieldByName('PS').Value:=ClientDataSet2.fieldbyname('Qty1').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main.fieldbyname('Price').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value:=''; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(MXQty),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(',PS=(select isnull(Sum(A.Qty1),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; + +function TfrmClothContractListDH.DelYFData():Boolean; +var + CRID,OrdMainId,YFID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + 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; + Result:=True; +end; +procedure TfrmClothContractListDH.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListDH.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDH.ToolButton3Click(Sender: TObject); +begin + //if FInt=2 then + //begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set DHQty=(select isnull(Sum(MxQty),0) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(', DHMQty=(select isnull(Sum(MxMQty),0) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(', DHPS=(select isnull(Sum(Qty1),0) from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=Contract_Cloth_DH.FirstNo)'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString)+''''); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_DH '); + sql.Add('where not exists(select * from Contract_Sub_Mx A where A.SubId=Contract_Cloth_DH.SubId and A.RKPlace=Contract_Cloth_DH.firstName) '); + sql.Add(' and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX B where not exists(select * from '); + sql.Add(' Contract_Cloth_DH A where A.DHID=B.DHID '); + SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + Application.MessageBox('ѲͶɾ!','ʾ',0); + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + DelYFData(); + ClientDataSet2.Delete; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmClothContractListDH.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='ص'; + //MainType:='RanFactory'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('RKPlCode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + // FieldByName('FactoryNoName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FieldByName('RKPlace').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FieldByName('RKPlCode').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractListDH.Button1Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmClothContractListDH.Button2Click(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmClothContractListDH.Button3Click(Sender: TObject); +begin + ToolButton4.Click; +end; + +procedure TfrmClothContractListDH.ConNoMKeyPress(Sender: TObject; + var Key: Char); +begin if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' + +' and HTType=''ɹͬ'''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListDH.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from Contract_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add('from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3);} +end; + +procedure TfrmClothContractListDH.TWCClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''2'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɣ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractListDH.TNOWCClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''1'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractListDH.SetStatus(); +begin + +end; + +procedure TfrmClothContractListDH.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + {with Order_Main do + begin + if (AViewInfo.GridRecord.Values[v1MXQty.Index]< + AViewInfo.GridRecord.Values[v1PRTOrderQty.Index]*0.97) or + (AViewInfo.GridRecord.Values[v1MXQty.Index]> + AViewInfo.GridRecord.Values[v1PRTOrderQty.Index]*1.03) then + begin + ACanvas.Font.Color:=clRed; + end; + if AViewInfo.GridRecord.Values[v1DHQty.Index]< + AViewInfo.GridRecord.Values[v1Column1.Index] then + begin + ACanvas.Font.Color:=clRed; + end; + end;} +end; + +end. diff --git a/贸易管理/U_ClothContractListDHSX.dfm b/贸易管理/U_ClothContractListDHSX.dfm new file mode 100644 index 0000000..5715065 --- /dev/null +++ b/贸易管理/U_ClothContractListDHSX.dfm @@ -0,0 +1,595 @@ +object frmClothContractListDHSX: TfrmClothContractListDHSX + Left = 248 + Top = 60 + Width = 1068 + Height = 619 + Caption = #32433#32447#21040#36135 + 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 = 1060 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1060 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#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' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = ConNoMKeyPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1060 + Height = 204 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 74 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 93 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 81 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 577 + Width = 1060 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object Panel2: TPanel + Left = 0 + Top = 290 + Width = 1060 + Height = 287 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 2 + Top = 34 + Width = 1056 + Height = 251 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v2ComeDate: TcxGridDBColumn + Tag = 2 + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'RKPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 122 + end + object v2MxQty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 90 + end + object v2Column2: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MXUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v2MxNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 145 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1056 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton10: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21040#36135#30830#23450 + ImageIndex = 113 + OnClick = ToolButton4Click + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 664 + Top = 256 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 520 + end +end diff --git a/贸易管理/U_ClothContractListDHSX.pas b/贸易管理/U_ClothContractListDHSX.pas new file mode 100644 index 0000000..801fa95 --- /dev/null +++ b/贸易管理/U_ClothContractListDHSX.pas @@ -0,0 +1,1022 @@ +unit U_ClothContractListDHSX; + +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 + TfrmClothContractListDHSX = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + v2Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ConNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData():Boolean; + function DelYFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListDHSX: TfrmClothContractListDHSX; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListDHSX.FormDestroy(Sender: TObject); +begin + frmClothContractListDHSX:=nil; +end; + +procedure TfrmClothContractListDHSX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListDHSX.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothContractListDHSX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬSXdh',Tv1,'ָʾ'); + WriteCxGrid('ͬSXdhr',Tv2,'ָʾ'); +end; + +procedure TfrmClothContractListDHSX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + + IF Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and DHTYpe=''ǰӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + + + +end; + +procedure TfrmClothContractListDHSX.InitForm(); +begin + ReadCxGrid('ͬSXdh',Tv1,'ָʾ'); + ReadCxGrid('ͬSXdhr',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractListDHSX.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 TfrmClothContractListDHSX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDHSX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListDHSX.ConNoMChange(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 TfrmClothContractListDHSX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListDHSX.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + SQL.Clear; + //sql.Add('select Top 1 * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + sql.Add('select Top 1* from ContractHZ_Main '); + sql.Add(' where ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + SQL.Add(' and ConType like ''%ɴ%'' '); + Open; + end; + ClientDataSet2.Append; + ClientDataSet2.FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + //ClientDataSet2.FieldByName('RKPlace').Value:=Trim(ADOQueryTemp.fieldbyname('PBFactory').AsString); + //ClientDataSet2.FieldByName('RKPLCode').Value:=Trim(ADOQueryTemp.fieldbyname('PBFactory').AsString); + ClientDataSet2.FieldByName('RKPlace').Value:=Trim(ADOQueryTemp.fieldbyname('FactoryNoName').AsString); + ClientDataSet2.FieldByName('RKPLCode').Value:=Trim(ADOQueryTemp.fieldbyname('FactoryNoName').AsString); + ClientDataSet2.Post; +end; + +procedure TfrmClothContractListDHSX.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add('from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); } +end; + +procedure TfrmClothContractListDHSX.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListDHSX.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractListDHSX.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractListDHSX.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace',null,[]) then + begin + Application.MessageBox('ŵص㲻Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace','',[]) then + begin + Application.MessageBox('ŵص㲻Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'QM','ContractSX_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'ContractSX_Sub_Mx',2); + FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('RKPLCode').Value:=Trim(ClientDataSet2.fieldbyname('RKPlace').AsString); + FieldByName('DHType').Value:='ǰӹ'; + if Trim(ClientDataSet2.fieldbyname('MxQty').AsString)='' then + begin + FieldByName('MxQty').Value:=0; + end; + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPlace').AsString)+''''); + sql.Add(' and DHTYpe=''ǰӹ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'QD','ContractSX_Cloth_DH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('Mainid').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(maxno); + FieldByName('FirstNo').Value:=Trim(ClientDataSet2.fieldbyname('RKPLace').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet2.fieldbyname('RKPLace').AsString); + FieldByName('DHUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('DHType').Value:='ǰӹ'; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHUnit='''+Trim(Order_Main.fieldbyname('C_Unit').AsString)+''''); + sql.Add(' where DHID='''+Trim(ADOQueryTemp.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHQty=(select Sum(MxQty) from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId'); + sql.Add(' and A.RKPLace=ContractSX_Cloth_DH.FirstName and A.DHType=''ǰӹ'' )'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + sql.Add(' and DHType=''ǰӹ'' '); + ExecSQL; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_DH '); + sql.Add('where not exists(select * from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId '); + sql.Add(' and A.RKPlace=ContractSX_Cloth_DH.firstName and A.DHType=''ǰӹ'') '); + sql.Add(' and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + sql.Add(' and DHType=''ǰӹ'' '); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX B where not exists(select * from '); + sql.Add(' Contract_Cloth_DH A where A.DHID=B.DHID '); + SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + Application.MessageBox('ݽҲӦȾܱ!','ʾ',0); + //begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + //end; + end; } + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YFMoney'); + ExecSQL; + end;} + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListDHSX.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; +{ with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').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_Main.fieldbyname('FactoryNoName').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_Main.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + //if ADOQueryTemp.IsEmpty then + begin + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'PF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ClientDataSet2.fieldbyname('MXId').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_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('CRTime').Value:=ClientDataSet2.fieldbyname('ComeDate').Value; + FieldByName('Qty').Value:=ClientDataSet2.fieldbyname('MXQty').Value; + //FieldByName('PS').Value:=ClientDataSet2.fieldbyname('Qty1').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main.fieldbyname('Price').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value:='ɴ߷'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(MXQty),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(',PS=(select isnull(Sum(A.Qty1),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; +function TfrmClothContractListDHSX.DelYFData():Boolean; +var + CRID,OrdMainId,YFID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + 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; + Result:=True; +end; +procedure TfrmClothContractListDHSX.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListDHSX.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDHSX.ToolButton3Click(Sender: TObject); +begin + //if FInt=2 then + //begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHQty=(select isnull(Sum(MxQty),0) from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId'); + sql.Add(' and A.RKPLCode=ContractSX_Cloth_DH.FirstNo and A.DHTYpe=''ǰӹ'' )'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString)+''''); + SQL.Add(' and DHTYpe=''ǰӹ'''); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_DH '); + sql.Add('where not exists(select * from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId '); + sql.Add(' and A.RKPlace=ContractSX_Cloth_DH.firstName and A.DHType=''ǰӹ'') '); + sql.Add(' and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + sql.Add(' and DHType=''ǰӹ'' '); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Sub_MX B where not exists(select * from '); + sql.Add(' ContractSX_Cloth_DH A where A.DHID=B.QJGDHID '); + SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and isnull(QJGDHID,'''')<>'''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݣɾ!','ʾ',0); + //begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + //end; + end; + DelYFData(); + ClientDataSet2.Delete; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + //end; +end; + +procedure TfrmClothContractListDHSX.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + //flag:='RKPlace'; + flag:='Factory'; + flagname:='ص'; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('RKPlCode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListDHSX.Button1Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmClothContractListDHSX.Button2Click(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmClothContractListDHSX.Button3Click(Sender: TObject); +begin + ToolButton4.Click; +end; + +procedure TfrmClothContractListDHSX.ConNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListDHSX.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and DHTYpe=''ǰӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +end. diff --git a/贸易管理/U_ClothContractListDHSXQJG.dfm b/贸易管理/U_ClothContractListDHSXQJG.dfm new file mode 100644 index 0000000..e4760c5 --- /dev/null +++ b/贸易管理/U_ClothContractListDHSXQJG.dfm @@ -0,0 +1,596 @@ +object frmClothContractListDHSXQJG: TfrmClothContractListDHSXQJG + Left = 174 + Top = -1 + Width = 1155 + Height = 754 + Caption = #32433#32447#21069#21152#24037 + 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 = 1147 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1147 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#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' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = ConNoKeyPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 712 + Width = 1147 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object Panel2: TPanel + Left = 0 + Top = 425 + Width = 1147 + Height = 287 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 2 + Top = 34 + Width = 1143 + Height = 251 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2MxQty + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v2ComeDate: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'ComeDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 117 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'RKPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 115 + end + object v2MxQty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MxQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 90 + end + object v2Column2: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MXUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #26579#32433#21333#20215 + DataBinding.FieldName = 'MXPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 76 + end + object v2MxNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MxNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 145 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1143 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton10: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 113 + OnClick = ToolButton4Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1147 + Height = 339 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 114 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21407#26448#26009#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #21069#21152#24037#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DHUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column3: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #32433#32447#25968#37327 + DataBinding.FieldName = 'ClothQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 664 + Top = 256 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 520 + end +end diff --git a/贸易管理/U_ClothContractListDHSXQJG.pas b/贸易管理/U_ClothContractListDHSXQJG.pas new file mode 100644 index 0000000..24e7a69 --- /dev/null +++ b/贸易管理/U_ClothContractListDHSXQJG.pas @@ -0,0 +1,1057 @@ +unit U_ClothContractListDHSXQJG; + +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 + TfrmClothContractListDHSXQJG = 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_CodeNameM: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + cxSplitter1: TcxSplitter; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2ComeDate: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2MxQty: TcxGridDBColumn; + v2MxNote: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData():Boolean; + function DelYFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListDHSXQJG: TfrmClothContractListDHSXQJG; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListDHSXQJG.FormDestroy(Sender: TObject); +begin + frmClothContractListDHSXQJG:=nil; +end; + +procedure TfrmClothContractListDHSXQJG.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListDHSXQJG.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬSXdhQJG',Tv1,'ָʾ'); + WriteCxGrid('ͬSXdhrQJG',Tv2,'ָʾ'); +end; + +procedure TfrmClothContractListDHSXQJG.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothQty=DHQty-TPQtyHZ, '); + sql.Add(' A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + sql.add(' inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + sql.Add(' where B.FillTime>=:begdate and B.Filltime<:enddate and A.DHType=''ǰӹ'' '); + Parameters.ParamByName('begdate').Value:=BegDate.Date; + Parameters.ParamByName('enddate').Value:=EndDate.Date+1; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + IF Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and A.DHType=''ǰ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmClothContractListDHSXQJG.InitForm(); +begin + ReadCxGrid('ͬSXdhQJG',Tv1,'ָʾ'); + ReadCxGrid('ͬSXdhrQJG',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractListDHSXQJG.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 TfrmClothContractListDHSXQJG.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDHSXQJG.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListDHSXQJG.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 TfrmClothContractListDHSXQJG.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListDHSXQJG.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + if ClientDataSet2.Active=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1 * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + ClientDataSet2.Append; + ClientDataSet2.FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('DHUnit').AsString); + ClientDataSet2.Post; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + sql.Add(' and A.ConType=''ɴǰӹ'''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=ADOQueryTemp.fieldbyname('FactoryNoName').Value; + FieldByName('MXPrice').Value:=ADOQueryTemp.fieldbyname('Price').Value; + Post; + end; + end; +end; + +procedure TfrmClothContractListDHSXQJG.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add('from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); } +end; + +procedure TfrmClothContractListDHSXQJG.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListDHSXQJG.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractListDHSXQJG.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothContractListDHSXQJG.ToolButton4Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('ComeDate',null,[]) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace',null,[]) then + begin + Application.MessageBox('ӹΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('RKPlace','',[]) then + begin + Application.MessageBox('ӹΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MxQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('MXPrice',null,[]) then + begin + Application.MessageBox('Ⱦɴ۲Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ϸ + with ClientDataSet2 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','ContractSX_Sub_Mx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv2,ClientDataSet2,'ContractSX_Sub_Mx',2); + FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('DHUnit').AsString); + FieldByName('RKPLCode').Value:=Trim(ClientDataSet2.fieldbyname('RKPlace').AsString); + FieldByName('QJGDHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('DHTYpe').Value:='ǰ'; + if Trim(ClientDataSet2.fieldbyname('MxQty').AsString)='' then + begin + FieldByName('MxQty').Value:=0; + end; + if Trim(ClientDataSet2.fieldbyname('MxPrice').AsString)='' then + begin + FieldByName('MxPrice').Value:=0; + end; + Post; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('MxId').Value:=Trim(maxno); + Post; + end; + + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPlace').AsString)+''''); + sql.Add(' and DHTYpe=''ǰ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'SD','ContractSX_Cloth_DH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϸˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_DH where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('Mainid').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(maxno); + FieldByName('FirstNo').Value:=Trim(ClientDataSet2.fieldbyname('RKPLace').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet2.fieldbyname('RKPLace').AsString); + FieldByName('DHUnit').Value:=Trim(Order_Main.fieldbyname('DHUnit').AsString); + FieldByName('DHType').Value:='ǰ'; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHUnit='''+Trim(Order_Main.fieldbyname('DHUnit').AsString)+''''); + sql.Add(' where DHID='''+Trim(ADOQueryTemp.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHQty=(select Sum(MxQty) from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId'); + sql.Add(' and A.RKPLace=ContractSX_Cloth_DH.FirstName and A.DHTYpe=''ǰ'' )'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + sql.Add(' and DHType=''ǰ'' '); + ExecSQL; + end; + + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate ContractSX_Cloth_DH Set TPQtyHZ=(select sum(MXQty) from ContractSX_Sub_Mx A where A.QJGDHID=ContractSX_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_DH '); + sql.Add('where not exists(select * from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId '); + SQL.Add('and A.RKPlace=ContractSX_Cloth_DH.firstName and A.DHType=''ǰ'')'); + sql.Add(' and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and firstName='''+Trim(ClientDataSet2.fieldbyname('RKPLace').AsString)+''''); + sql.Add(' and DHType=''ǰ'''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX B where not exists(select * from '); + sql.Add(' Contract_Cloth_DH A where A.DHID=B.DHID '); + SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + Application.MessageBox('ݽҲӦȾܱ!','ʾ',0); + //begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + //end; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YFMoney'); + ExecSQL; + end;} + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListDHSXQJG.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; +{ with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + Open; + end; + //if ADOQueryTemp.IsEmpty then + begin + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'SQ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ClientDataSet2.fieldbyname('MXId').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=ClientDataSet2.fieldbyname('ComeDate').Value; + FieldByName('Qty').Value:=ClientDataSet2.fieldbyname('MXQty').Value; + //FieldByName('PS').Value:=ClientDataSet2.fieldbyname('Qty1').Value; + FieldByName('YFType').Value:='Զ'; + if Trim(ClientDataSet2.fieldbyname('MXPrice').AsString)<>'' then + FieldByName('Price').Value:=ClientDataSet2.fieldbyname('MXPrice').Value + else + FieldByName('Price').Value:=0; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('DHUnit').AsString); + //FieldByName('YFName').Value:='ɴǰӹ'; + FieldByName('YFName').Value:='Ⱦɴ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(MXQty),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(',PS=(select isnull(Sum(A.Qty1),0) from Contract_Sub_MX A inner join'); + SQL.Add('Contract_Sub B on A.SubId=B.SubId where B.MainId=YF_Money_CR.YFTypeId)'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; +function TfrmClothContractListDHSXQJG.DelYFData():Boolean; +var + CRID,OrdMainId,YFID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet2.fieldbyname('MXId').AsString)+''''); + 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; + Result:=True; +end; +procedure TfrmClothContractListDHSXQJG.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListDHSXQJG.ToolButton5Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString)='' then + begin + Application.MessageBox('δȷ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Contract_Sub_MxTo',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId='''+Trim(ClientDataSet3.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('MxId').Value:=Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListDHSXQJG.ToolButton3Click(Sender: TObject); +begin + //if FInt=2 then + //begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.FieldByName('MxId').AsString)='' then + begin + ClientDataSet2.Delete; + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Sub_Mx where MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set DHQty=(select isnull(Sum(MxQty),0) from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId'); + sql.Add(' and A.RKPLace=ContractSX_Cloth_DH.FirstName)'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString)+''''); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_DH '); + sql.Add('where not exists(select * from ContractSX_Sub_Mx A where A.SubId=ContractSX_Cloth_DH.SubId and A.RKPlace=ContractSX_Cloth_DH.firstName) '); + sql.Add(' and SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_LLMX B where not exists(select * from '); + sql.Add(' ContractSX_Cloth_DH A where A.DHID=B.DHID '); + SQL.Add(' and A.SubId=B.SubId ) and B.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + Application.MessageBox('Ѳݣɾ!','ʾ',0); + //begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + //end; + end; + DelYFData(); + ClientDataSet2.Delete; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + //end; +end; + +procedure TfrmClothContractListDHSXQJG.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + //flag:='RKPlace'; + flag:='Factory'; + flagname:='ص'; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('RKPlCode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListDHSXQJG.Button1Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmClothContractListDHSXQJG.Button2Click(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmClothContractListDHSXQJG.Button3Click(Sender: TObject); +begin + ToolButton4.Click; +end; + +procedure TfrmClothContractListDHSXQJG.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 ClothQty=DHQty-TPQtyHZ, '); + sql.Add(' A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + sql.add(' inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + sql.Add(' where B.ConNO like '''+'%'+Trim(ConNo.Text)+'%'+''' and A.DHType=''ǰӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListDHSXQJG.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from ContractSX_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and A.DHType=''ǰ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +end. diff --git a/贸易管理/U_ClothContractListHZ.dfm b/贸易管理/U_ClothContractListHZ.dfm new file mode 100644 index 0000000..5e0b7f1 --- /dev/null +++ b/贸易管理/U_ClothContractListHZ.dfm @@ -0,0 +1,1137 @@ +object frmClothContractListHZ: TfrmClothContractListHZ + Left = 267 + Top = 175 + Width = 980 + Height = 513 + Caption = #37319#36141#21512#21516 + 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 = 964 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + Caption = #22797#21046 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 964 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 86 + Width = 964 + Height = 147 + ActivePage = cxTabSheet1 + Style = 9 + TabOrder = 2 + Visible = False + OnChange = cxPageControl1Change + ClientRectBottom = 147 + ClientRectRight = 964 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #32433#32447#37319#36141#21512#21516 + ImageIndex = 0 + end + object cxTabSheet6: TcxTabSheet + Caption = #26579#32433#21512#21516 + ImageIndex = 5 + object cxGrid6: TcxGrid + Left = 0 + Top = 0 + Width = 964 + Height = 128 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn56 + end + item + Kind = skSum + Column = cxGridDBColumn58 + end + item + Kind = skSum + Column = cxGridDBColumn60 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object cxGridDBColumn50: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object cxGridDBColumn51: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn52: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn53: TcxGridDBColumn + Caption = #21152#24037#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn54: TcxGridDBColumn + Caption = #21152#24037#21333#20301 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object cxGridDBColumn55: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn56: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn57: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn58: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object cxGridDBColumn59: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object cxGridDBColumn60: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn61: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv6 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #32455#36896#21512#21516 + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 964 + Height = 128 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21152#24037#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21152#24037#21333#20301 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #22383#24067#37319#36141#21512#21516 + ImageIndex = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 964 + Height = 128 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn22 + end + item + Kind = skSum + Column = cxGridDBColumn24 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #26579#33394#21512#21516 + ImageIndex = 3 + object cxGrid4: TcxGrid + Left = 0 + Top = 0 + Width = 964 + Height = 128 + Align = alClient + TabOrder = 0 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn32 + end + item + Kind = skSum + Column = cxGridDBColumn34 + end + item + Kind = skSum + Column = cxGridDBColumn36 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object cxGridDBColumn26: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #26579#33394#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26579#33394#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 59 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object cxTabSheet5: TcxTabSheet + Caption = #21518#21152#24037#21512#21516 + ImageIndex = 4 + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 964 + Height = 128 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn44 + end + item + Kind = skSum + Column = cxGridDBColumn46 + end + item + Kind = skSum + Column = cxGridDBColumn48 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object cxGridDBColumn38: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #21152#24037#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn46: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object cxGridDBColumn47: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object cxGridDBColumn48: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn49: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 964 + Height = 389 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 88 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 82 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 89 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + 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 = 352 + Top = 192 + 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 = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 880 + Top = 56 + end +end diff --git a/贸易管理/U_ClothContractListHZ.pas b/贸易管理/U_ClothContractListHZ.pas new file mode 100644 index 0000000..2a16015 --- /dev/null +++ b/贸易管理/U_ClothContractListHZ.pas @@ -0,0 +1,1250 @@ +unit U_ClothContractListHZ; + +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 + TfrmClothContractListHZ = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxTabSheet5: TcxTabSheet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn38: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + cxGridDBColumn46: TcxGridDBColumn; + cxGridDBColumn47: TcxGridDBColumn; + cxGridDBColumn48: TcxGridDBColumn; + cxGridDBColumn49: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet6: TcxTabSheet; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn50: TcxGridDBColumn; + cxGridDBColumn51: TcxGridDBColumn; + cxGridDBColumn52: TcxGridDBColumn; + cxGridDBColumn53: TcxGridDBColumn; + cxGridDBColumn54: TcxGridDBColumn; + cxGridDBColumn55: TcxGridDBColumn; + cxGridDBColumn56: TcxGridDBColumn; + cxGridDBColumn57: TcxGridDBColumn; + cxGridDBColumn58: TcxGridDBColumn; + cxGridDBColumn59: TcxGridDBColumn; + cxGridDBColumn60: TcxGridDBColumn; + cxGridDBColumn61: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListHZ: TfrmClothContractListHZ; + +implementation +uses + U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ClothContractInPutSXMX + ,U_ClothContractInPutHZ,U_ClothContractInPutPB; + +{$R *.dfm} + +procedure TfrmClothContractListHZ.FormDestroy(Sender: TObject); +begin + frmClothContractListHZ:=nil; +end; + +procedure TfrmClothContractListHZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListHZ.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбSX',Tv1,'ָʾ'); + WriteCxGrid('ɴ߼ӹͬ',Tv2,'ָʾ'); + WriteCxGrid('ɹͬ',Tv3,'ָʾ'); + WriteCxGrid('Ⱦɫͬ',Tv4,'ָʾ'); + WriteCxGrid('ӹͬ',Tv5,'ָʾ'); +end; + +procedure TfrmClothContractListHZ.InitGrid(); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_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 A.ConType=''ɴǰӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_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 A.ConType=''ɴ߼ӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end else + if cxPageControl1.ActivePageIndex=4 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_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 A.ConType=''Ⱦɫӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end else + if cxPageControl1.ActivePageIndex=5 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_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 A.ConType=''ӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +procedure TfrmClothContractListHZ.InitForm(); +begin + ReadCxGrid('ͬбSX',Tv1,'ָʾ'); + ReadCxGrid('ɴ߼ӹͬ',Tv2,'ָʾ'); + ReadCxGrid('ɹͬ',Tv3,'ָʾ'); + ReadCxGrid('Ⱦɫͬ',Tv4,'ָʾ'); + ReadCxGrid('ӹͬ',Tv5,'ָʾ'); + if Trim(DParameters1)='1' then + begin + TBPrint.Visible:=False; + v1Column1.Visible:=False; + v1Column1.Hidden:=True; + v1PRTUnit.Visible:=False; + v1PRTUnit.Hidden:=True; + v1PRTQty.Visible:=False; + v1PRTQty.Hidden:=True; + end else + begin + v1Column1.Visible:=True; + v1Column1.Hidden:=False; + v1PRTUnit.Visible:=True; + v1PRTUnit.Hidden:=False; + v1PRTQty.Visible:=True; + v1PRTQty.Hidden:=False; + TBPrint.Visible:=True; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractListHZ.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 TfrmClothContractListHZ.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='Ⱦɴͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴǰӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='֯ͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴ߼ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutPB.Free; + end; + end else + if cxPageControl1.ActivePageIndex=4 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='Ⱦɫӹͬ'; + FactoryFlag:='RanFactory'; + v1Column3.Caption:='Ⱦ'; + v1Price.Caption:='Ⱦɫ'; + FConType:='Ⱦɫӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=5 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='ӹͬ'; + FactoryFlag:='HZLFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end; + +end; + +procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.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 else + if cxPageControl1.ActivePageIndex=1 then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractHZ_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 ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractHZ_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 ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.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; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end else + if cxPageControl1.ActivePageIndex=4 then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractHZ_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 ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end else + if cxPageControl1.ActivePageIndex=5 then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractHZ_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 ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end; + +end; + +function TfrmClothContractListHZ.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_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 ContractSX_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 ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴǰӹͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end else + if cxPageControl1.ActivePageIndex=2 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߼ӹͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + end else + if cxPageControl1.ActivePageIndex=4 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ⱦɫͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end else + if cxPageControl1.ActivePageIndex=5 then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ӹͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end; + + + 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\Ӧĺͬ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListHZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=0; + FMainId:=''; + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='Ⱦɴͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴǰӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=0; + FMainId:=''; + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='֯ͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴ߼ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutPB.Free; + end; + end else + if cxPageControl1.ActivePageIndex=4 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=0; + FMainId:=''; + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='Ⱦɫӹͬ'; + FactoryFlag:='RanFactory'; + v1Column3.Caption:='Ⱦ'; + v1Price.Caption:='Ⱦɫ'; + FConType:='Ⱦɫӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=5 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=0; + FMainId:=''; + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='ӹͬ'; + FactoryFlag:='HZLFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end; + +end; + +procedure TfrmClothContractListHZ.ConNoMChange(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 TfrmClothContractListHZ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListHZ.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); + SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + sql.Add(' and A.ConType=''ɴ߼ӹ'''); + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); + SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + sql.Add(' and A.ConType=''Ⱦɫӹ'''); + end else + if cxPageControl1.ActivePageIndex=4 then + begin + sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); + SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + sql.Add(' and A.ConType=''ӹ'''); + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListHZ.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + PCopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='Ⱦɴͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴǰӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + PCopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='ClothSX'; + CPFlagName:='ɴ'; + Caption:='֯ͬ'; + FactoryFlag:='PBFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ɴ߼ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=3 then + begin + try + frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + with frmClothContractInPutPB do + begin + PState:=1; + PCopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutPB.Free; + end; + end else + if cxPageControl1.ActivePageIndex=4 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + PCopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='Ⱦɫӹͬ'; + FactoryFlag:='RanFactory'; + v1Column3.Caption:='Ⱦ'; + v1Price.Caption:='Ⱦɫ'; + FConType:='Ⱦɫӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end else + if cxPageControl1.ActivePageIndex=5 then + begin + try + frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + with frmClothContractInPutHZ do + begin + PState:=1; + PCopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag:='Cloth'; + CPFlagName:=''; + Caption:='ӹͬ'; + FactoryFlag:='HZLFactory'; + v1Column3.Caption:='ӹ'; + v1Price.Caption:='ӹ'; + FConType:='ӹ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutHZ.Free; + end; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractListLL.dfm b/贸易管理/U_ClothContractListLL.dfm new file mode 100644 index 0000000..c87a517 --- /dev/null +++ b/贸易管理/U_ClothContractListLL.dfm @@ -0,0 +1,771 @@ +object frmClothContractListLL: TfrmClothContractListLL + Left = 110 + Top = 14 + Width = 1279 + Height = 705 + Caption = #22383#24067#39046#26009 + 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 = 1263 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1263 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 748 + Top = 22 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 892 + Top = 22 + Width = 26 + Height = 12 + Caption = #26579#21378 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = ConNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 792 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object FirstName: TEdit + Tag = 2 + Left = 920 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object Panel2: TPanel + Left = 0 + Top = 366 + Width = 1263 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1259 + Height = 265 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3TPPS + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column5 + end + item + Kind = skSum + Column = v3Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 98 + end + object v3Column9: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MprtCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBPRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v3Column12: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PrtKuanNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v3Column16: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taRightJustify + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v3Column13: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column14: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column15: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v3Column6: TcxGridDBColumn + Caption = #39046#26009#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v3Column3: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3TPPS: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'TPPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327'('#35745#21010')' + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v3Column5: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column4: TcxGridDBColumn + Caption = #25968#37327#20844#24046 + DataBinding.FieldName = 'Qty2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'TPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v3Column7: TcxGridDBColumn + Caption = #25237#22383#20154 + DataBinding.FieldName = 'TPPerson' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #32568#36153 + DataBinding.FieldName = 'GangFee' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1259 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton11: TToolButton + Left = 126 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton1Click + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 358 + Width = 1263 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1263 + Height = 272 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 114 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 99 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DHUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'DHPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column3: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #30333#22383#21305#25968 + DataBinding.FieldName = 'ClothPS' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column8: TcxGridDBColumn + Caption = #30333#22383#25968#37327 + DataBinding.FieldName = 'ClothQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 752 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 968 + Top = 480 + end +end diff --git a/贸易管理/U_ClothContractListLL.pas b/贸易管理/U_ClothContractListLL.pas new file mode 100644 index 0000000..d8d3dfd --- /dev/null +++ b/贸易管理/U_ClothContractListLL.pas @@ -0,0 +1,1214 @@ +unit U_ClothContractListLL; + +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, cxDropDownEdit, cxCheckBox, cxCurrencyEdit, cxCalc; + +type + TfrmClothContractListLL = 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; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBPRTColor: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton11: TToolButton; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + FactoryNoName: TEdit; + Label7: TLabel; + FirstName: TEdit; + v3Column1: TcxGridDBColumn; + v3TPPS: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure v3Column5PropertiesEditValueChanged(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListLL: TfrmClothContractListLL; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderListSel,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListLL.FormDestroy(Sender: TObject); +begin + frmClothContractListLL:=nil; +end; + +procedure TfrmClothContractListLL.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListLL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬll1',Tv1,'ָʾ'); + WriteCxGrid('ͬllr11',Tv3,'ָʾ'); +end; + +procedure TfrmClothContractListLL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ, A.DHUnit,SXMainId='''',SXDHID='''',A.MainId,A.SubId'); + SQL.Add(' ,A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.FirstName,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName '); + sql.Add(' from Contract_Cloth_DH A inner join Contract_Main B on A.Mainid=B.Mainid'); + sql.Add(' inner join Contract_Sub C on A.Subid=C.Subid'); + SQL.Add(' where B.FillTime>='''+FormatDateTime('yyyy-MM-dd',BegDate.Date)+''' '); + sql.Add(' and B.Filltime<'''+FormatDateTime('yyyy-MM-dd',EndDate.Date+1)+''''); + sql.add(' and isnull(A.DHType,'''')='''''); + sql.Add(' union all'); + sql.Add(' select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ,A.DHUnit,A.SXMainId,A.SXDHID,A.MainId,A.SubId '); + SQL.Add(' ,A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.FirstName '); + sql.Add(',ConNo=(select Top 1 ConNo from ContractSX_Main SM where SM.MainId=A.SXMainId)'); + sql.Add(',C_CodeName=A.PBName,C_Spec=A.PBSpec,MFQty=A.PBMF,KZQty=A.PBKZ'); + SQL.Add(',FactoryNoName=(select Top 1 FirstName from ContractSX_Cloth_DH SD where SD.DHID=A.SXDHID)'); + sql.Add(' from Contract_Cloth_DH A '); + SQL.Add(' where exists(select * from ContractSX_Main B where B.MainId=A.SXMainId'); + SQL.Add(' and B.FillTime>='''+FormatDateTime('yyyy-MM-dd',BegDate.Date)+''' '); + sql.Add(' and B.Filltime<'''+FormatDateTime('yyyy-MM-dd',EndDate.Date+1)+''')'); + sql.Add(' and isnull(A.DHType,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListLL.InitForm(); +begin + + ReadCxGrid('ͬll1',Tv1,'ָʾ'); + ReadCxGrid('ͬllr11',Tv3,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + InitGrid(); +end; + +procedure TfrmClothContractListLL.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 TfrmClothContractListLL.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListLL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListLL.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 TfrmClothContractListLL.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListLL.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + OrderNoM.Text:=Trim(self.Order_Main.fieldbyname('ConNo').AsString); + if ShowModal=1 then + begin + with frmProductOrderListSel.Order_Main do + begin + frmProductOrderListSel.Order_Main.First; + while not frmProductOrderListSel.Order_Main.Eof do + begin + if frmProductOrderListSel.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.ClientDataSet3 do + begin + Self.ClientDataSet3.Append; + Self.ClientDataSet3.FieldByName('OrdSubId').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + Self.ClientDataSet3.FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + Self.ClientDataSet3.FieldByName('MPRTCodeName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); + Self.ClientDataSet3.FieldByName('MPRTSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); + Self.ClientDataSet3.FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + Self.ClientDataSet3.FieldByName('PRTkuanNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTkuanNo').AsString); + Self.ClientDataSet3.FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + Self.ClientDataSet3.FieldByName('PRTOrderKgQty').Value:=0; + Self.ClientDataSet3.FieldByName('PRTOrderQty').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTOrderQty').AsString); + Self.ClientDataSet3.FieldByName('OrderUnit').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderUnit').AsString); + Self.ClientDataSet3.FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + Self.ClientDataSet3.FieldByName('TPUnit').Value:=Self.Order_Main.FieldByName('DHUnit').Value; + Self.ClientDataSet3.FieldByName('Qty2').Value:=0; + end; + end; + frmProductOrderListSel.Order_Main.Next; + end; + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; + end; +end; + +procedure TfrmClothContractListLL.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListLL.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLL.ToolButton5Click(Sender: TObject); +var + maxno,LLIdx,FDW:string; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar1.SetFocus; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPPS',null,[]) then + begin + Application.MessageBox('ƥΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('Qty2',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPUnit',null,[]) then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('TPUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + if Trim(Order_Main.fieldbyname('DHUnit').AsString)='M' then + begin + if ClientDataSet3.Locate('TPUnit','Kg',[]) then + begin + Application.MessageBox('ͬλΪM,λΪKg','ʾ',0); + Exit; + end; + end; + + BegDate.SetFocus; + if tv3.DataController.Summary.FooterSummaryValues[0]> Order_Main.FieldByName('dhps').AsFloat then + begin + Application.MessageBox('Ͷƥܴڵƥ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Cloth_LLMx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SXMainId').Value:=Trim(Order_Main.fieldbyname('SXMainId').AsString); + FieldByName('SXDHId').Value:=Trim(Order_Main.fieldbyname('SXDHId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(Order_Main.fieldbyname('DHId').AsString); + FieldByName('MXId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Trim(ADOQueryCmd.fieldbyname('TPUnit').AsString)<>Trim(ClientDataSet3.fieldbyname('TPUnit').AsString) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A where A.DHIDHelp in('); + sql.Add('select LLID from Contract_Cloth_LL B where B.DHID='''+Trim(ClientDataSet3.fieldbyname('DHID').AsString)+''''); + sql.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)+''' and JXJGFlag=1)'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ӹ޸λ!','ʾ',0); + Exit; + end; + end; + end; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Trim(ADOQueryCmd.fieldbyname('TPUnit').AsString)<>Trim(ClientDataSet3.fieldbyname('TPUnit').AsString) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai A where SubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ѻزֲ޸λ!','ʾ',0); + Exit; + end; + end; + end; + + + FieldByName('TPUnit').Value:=ClientDataSet3.fieldbyname('TPUnit').Value; + {if ClientDataSet3.FieldByName('JXJGFlag').AsBoolean=True then + begin + FieldByName('JXJGFlag').Value:=1; + end else + begin + FieldByName('JXJGFlag').Value:=0; + end; } + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('JGPrice').Value:=ClientDataSet3.fieldbyname('JGPrice').Value + else + FieldByName('JGPrice').Value:=0; + if Trim(ClientDataSet3.fieldbyname('GangFee').AsString)<>'' then + FieldByName('GangFee').Value:=ClientDataSet3.fieldbyname('GangFee').Value + else + FieldByName('GangFee').Value:=0; + FieldByName('TPPS').AsFloat:=ClientDataSet3.fieldbyname('TPPS').AsFloat; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + if Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)='Kg' then + begin + FieldByName('TPMQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + end else + begin + FieldByName('TPMQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value; + end; + if Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)='Kg' then + begin + FieldByName('MQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + end else + begin + FieldByName('MQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value; + end; + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('DHUnit').AsString) then + begin + FieldByName('TPYZQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value; + end else + begin + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)='M' then + begin + FieldByName('TPYZQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + *Order_Main.fieldbyname('MFQty').Value*1.00/100 + *Order_Main.fieldbyname('KZQty').Value*1.00/1000; + end; + end; + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('DHUnit').AsString) then + begin + FieldByName('YZQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value; + end else + begin + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)='M' then + begin + FieldByName('YZQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + *Order_Main.fieldbyname('MFQty').Value*1.00/100 + *Order_Main.fieldbyname('KZQty').Value*1.00/1000; + end; + end; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('MXId').Value:=Trim(maxno); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set TPMQtyHZ=(select Sum(TPMQty) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('DHUnit').AsString) then + begin + sql.Add(',TPQtyHZ=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + end else + begin + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)='M' then + begin + SQL.Add(',TPQtyHZ=(select sum(TPQty*(PBMF/100)*(PBKZ/1000)) from Contract_Cloth_LLMx A '); + sql.Add(' where A.DHID=Contract_Cloth_DH.DHID )'); + end; + end; + sql.Add(',TPPSHZ=(select Sum(TPPS) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + sql.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Max(LLIdx),0) LLIdx from Contract_Cloth_LL'); + Open; + end; + LLIdx:=IntToStr(ADOQueryTemp.fieldbyname('LLIdx').AsInteger+1); } + if GetLSNo(ADOQueryCmd,maxno,'LL','Contract_Cloth_LL',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('LLID').Value:=Trim(maxno); + FieldByName('DHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('SXDHID').Value:=Trim(Order_Main.fieldbyname('SXDHID').AsString); + FieldByName('SXMainID').Value:=Trim(Order_Main.fieldbyname('SXMainID').AsString); + FieldByName('FirstNo').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString); + FieldByName('FirstName').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPUnit').Value:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + FieldByName('LLIdx').Value:=1; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set TPUnit='''+Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)+''''); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set TPPS=(select sum(TPPS) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('DHUnit').AsString) then + begin + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end else + begin + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)='M' then + begin + SQL.Add(',TPQty=(select sum(TPQty*(PBMF/100)*(PBKZ/1000)) from Contract_Cloth_LLMx A '); + sql.Add(' where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end; + end; + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('DHUnit').AsString) then + begin + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end else + begin + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)='M' then + begin + SQL.Add(',BCPQty=(select sum(A.Qty2*(PBMF/100)*(PBKZ/1000)) from Contract_Cloth_LLMx A '); + sql.Add(' where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end; + end; + sql.Add(', TPMQty=(select sum(TPMQty) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select sum(MQty2) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubid').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LL where not exists('); + sql.Add(' select * from Contract_Cloth_LLMX LM where LM.DHID=Contract_Cloth_LL.DHID '); + sql.Add(' and LM.OrdSubId=Contract_Cloth_LL.OrdSubId )'); + sql.Add(' and DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + sql.Add(' and isnull(DHIDHelp,'''')='''' '); + ExecSQL; + end; + { if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸׷쳣!','ʾ',0); + Exit; + end; } + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListLL.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou:String; +begin + Result:=False; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + if GetLSNo(ADOQueryCmd,YFID,'GF','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_Main.fieldbyname('DHid').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('YFType').Value:='Զ'; + //FieldByName('Price').Value:=Order_Main.fieldbyname('Price').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=''; + FieldByName('YFName').Value:='׷'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set CRTime='''+Trim(ClientDataSet3.fieldbyname('TPDate').AsString)+''''); + sql.Add(' where YFID='''+Trim(ADOQueryTemp.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Count(*),0) from Contract_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId and A.GangFee>0)'); + sql.Add(',Money=(select isnull(sum(GangFee),0) from Contract_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId and A.GangFee>0)'); + sql.Add(',BBMoney=(select isnull(sum(GangFee),0) from Contract_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId and A.GangFee>0)'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + 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.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('Money').AsFloat=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + end; + Result:=True; +end; + +procedure TfrmClothContractListLL.ToolButton3Click(Sender: TObject); +begin + + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add(' select * from Contract_Cloth_LL where DHID='''+Trim(ClientDataSet3.fieldbyname('DHID').AsString)+''''); + sql.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HCQty').AsFloat>0 then + begin + Application.MessageBox('лز,ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set TPQtyHZ=(select isnull(Sum(TPYZQty),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + sql.Add(',TPMQtyHZ=(select isnull(Sum(TPMQty),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + sql.Add(',TPPSHZ=(select isnull(Sum(TPPS),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set TPPS=(select isnull(sum(TPPS),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPQty=(select isnull(sum(TPYZQty),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPQty=(select isnull(sum(YZQty2),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPMQty=(select isnull(sum(TPMQty),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select isnull(sum(MQty2),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.DHID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubid').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LL where not exists('); + sql.Add(' select * from Contract_Cloth_LLMX LM where LM.DHID=Contract_Cloth_LL.DHID '); + sql.Add(' and LM.OrdSubId=Contract_Cloth_LL.OrdSubId )'); + sql.Add(' and DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + sql.Add(' and isnull(DHIDHelp,'''')='''' '); + ExecSQL; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸׷쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.Delete; + except; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + + {with Order_Main do + begin + Edit; + if ClientDataSet3.IsEmpty=False then + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + else + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value; + Post; + end; } + end; +end; + +procedure TfrmClothContractListLL.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLL.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty2:String; +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + {with Order_Main do + begin + Edit; + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]; + Post; + end; } + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + begin + qty1:=ClientDataSet3.fieldbyname('TPQty').AsString; + end else + begin + qty1:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + begin + Qty2:=ClientDataSet3.fieldbyname('Qty2').AsString; + end else + begin + Qty2:='0'; + end; + if StrToFloat(qty1)*StrToFloat(qty2)=0 then Exit; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty3').Value:=(StrToFloat(qty1)-StrToFloat(qty2))*1.00*100/StrToFloat(qty1); + Post; + end; + +end; + +procedure TfrmClothContractListLL.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + //sql.Add('select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ, '); + // SQL.Add(' A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.DHUnit,A.FirstName,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName '); + sql.Add('select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ, A.DHUnit,SXMainId='''',SXDHID='''',A.MainId,A.SubId'); + SQL.Add(' ,A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.FirstName,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName '); + sql.Add(' from Contract_Cloth_DH A inner join Contract_Main B on A.Mainid=B.Mainid'); + sql.Add(' inner join Contract_Sub C on A.Subid=C.Subid'); + SQL.Add(' where B.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + sql.add(' and isnull(A.DHType,'''')='''''); + sql.Add(' union all'); + + // sql.Add(' select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ, '); + //SQL.Add(' A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.DHUnit,A.FirstName '); + //sql.Add(',ConNo=(select Top 1 ConNo from ContractSX_Main SM where SM.MainId=A.SXMainId)'); + //sql.Add(',C_CodeName=A.PBName,C_Spec=A.PBSpec,MFQty=A.PBMF,KZQty=A.PBKZ'); + //SQL.Add(',FactoryNoName=(select Top 1 FirstName from ContractSX_Cloth_DH SD where SD.DHID=A.SXDHID)'); + sql.Add(' select ClothPS=A.DHPS-A.TPPSHZ,ClothQty=A.DHQty-A.TPQtyHZ,A.DHUnit,A.SXMainId,A.SXDHID,A.MainId,A.SubId '); + SQL.Add(' ,A.DHID,A.DHPS,A.TPPSHZ,A.TPQtyHZ,A.DHQty,A.FirstName '); + sql.Add(',ConNo=(select Top 1 ConNo from ContractSX_Main SM where SM.MainId=A.SXMainId)'); + sql.Add(',C_CodeName=A.PBName,C_Spec=A.PBSpec,MFQty=A.PBMF,KZQty=A.PBKZ'); + SQL.Add(',FactoryNoName=(select Top 1 FirstName from ContractSX_Cloth_DH SD where SD.DHID=A.SXDHID)'); + sql.Add(' from Contract_Cloth_DH A '); + SQL.Add(' where exists(select * from ContractSX_Main B where B.MainId=A.SXMainId'); + SQL.Add(' and B.ConNO like '''+'%'+Trim(ConNo.Text)+'%'+''')'); + sql.Add(' and isnull(A.DHType,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListLL.ToolButton1Click(Sender: TObject); + var + FColumn:String; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar2.SetFocus; + FColumn:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)='OrderNo' then Exit; + if Trim(FColumn)='PRTColor' then Exit; + if Application.MessageBox('ȷҪһ滻','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv3,ClientDataSet3); +end; + +procedure TfrmClothContractListLL.v3Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty3:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + {with Order_Main do + begin + Edit; + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]; + Post; + end; } + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + begin + qty1:=ClientDataSet3.fieldbyname('TPQty').AsString; + end else + begin + qty1:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('qty3').AsString)<>'' then + begin + qty3:=ClientDataSet3.fieldbyname('qty3').AsString; + end else + begin + qty3:='0'; + end; + //if StrToFloat(qty1)*StrToFloat(qty2)=0 then Exit; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty2').Value:=StrToFloat(qty1)*(1-StrToFloat(qty3)*1.00/100); + Post; + end; + +end; + +procedure TfrmClothContractListLL.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo,B.PrtKuanNo,B.SOrddefstr1,B.PRTHX,B.PRTOrderQty,B.OrderUnit, '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,0)) '); + sql.Add(' when B.OrderUnit=''Kg'' then B.PRTOrderQty else Null end as PRTOrderKgQty'); + SQL.Add('from Contract_Cloth_LLMx A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('DHId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +end. diff --git a/贸易管理/U_ClothContractListLLSX.dfm b/贸易管理/U_ClothContractListLLSX.dfm new file mode 100644 index 0000000..f96c066 --- /dev/null +++ b/贸易管理/U_ClothContractListLLSX.dfm @@ -0,0 +1,712 @@ +object frmClothContractListLLSX: TfrmClothContractListLLSX + Left = 184 + Top = 11 + Width = 1280 + Height = 705 + Caption = #32433#32447#32455#25104#21697#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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1264 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 748 + Top = 22 + Width = 52 + Height = 12 + Caption = #21407#26448#26009#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 892 + Top = 22 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = ConNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 800 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object FirstName: TEdit + Tag = 2 + Left = 932 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object Panel2: TPanel + Left = 0 + Top = 365 + Width = 1264 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1260 + Height = 265 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column65 + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skAverage + Column = v3Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object v3Column7: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v3Column11: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'PBSpec' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column12: TcxGridDBColumn + Caption = #22383#24067#38376#24133'(cm)' + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v3Column13: TcxGridDBColumn + Caption = #22383#24067#20811#37325'(g/'#13217')' + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Width = 113 + end + object v3Column14: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'ToName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v3Column6: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v3Column3: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column9: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SXPS' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column4: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SXQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'SXUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column5: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'ZSXS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column65: TcxGridDBColumn + Caption = #32433#32447#25968#37327 + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'JGPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1260 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton8Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton11: TToolButton + Left = 126 + Top = 0 + Caption = #32455#25104#21697#20986#24211#30830#23450 + ImageIndex = 114 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton1Click + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 357 + Width = 1264 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1264 + Height = 271 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + 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 + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 114 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21407#26448#26009#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DHUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column3: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #32433#32447#25968#37327 + DataBinding.FieldName = 'ClothQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 752 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 1128 + Top = 472 + end +end diff --git a/贸易管理/U_ClothContractListLLSX.pas b/贸易管理/U_ClothContractListLLSX.pas new file mode 100644 index 0000000..8753995 --- /dev/null +++ b/贸易管理/U_ClothContractListLLSX.pas @@ -0,0 +1,1046 @@ +unit U_ClothContractListLLSX; + +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, cxDropDownEdit, cxCheckBox, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmClothContractListLLSX = 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; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column6: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column65: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton11: TToolButton; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + FactoryNoName: TEdit; + Label7: TLabel; + FirstName: TEdit; + v3Column1: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column7: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure v3Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListLLSX: TfrmClothContractListLLSX; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderListSel,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListLLSX.FormDestroy(Sender: TObject); +begin + frmClothContractListLLSX:=nil; +end; + +procedure TfrmClothContractListLLSX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListLLSX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('AAͬll1SX',Tv1,'ָʾ'); + WriteCxGrid('AAͬllr1SX',Tv3,'ָʾ'); +end; + +procedure TfrmClothContractListLLSX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothQty=DHQty-TPQtyHZ, '); + sql.Add(' A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + sql.add(' inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + //sql.Add(' where B.FillTime>=:begdate and B.Filltime<:enddate and A.DHType=''ǰ'' '); + sql.Add(' where B.FillTime>=:begdate and B.Filltime<:enddate '); + Parameters.ParamByName('begdate').Value:=BegDate.Date; + Parameters.ParamByName('enddate').Value:=EndDate.Date+1; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + + if Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + SQL.Add('from ContractSX_Cloth_LLMx A '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('DHId').AsString)+''''); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLLSX.InitForm(); +begin + + ReadCxGrid('AAͬll1SX',Tv1,'ָʾ'); + ReadCxGrid('AAͬllr1SX',Tv3,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + InitGrid(); +end; + +procedure TfrmClothContractListLLSX.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 TfrmClothContractListLLSX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListLLSX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListLLSX.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 TfrmClothContractListLLSX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListLLSX.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListLLSX.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLLSX.ToolButton5Click(Sender: TObject); +var + maxno,LLIdx,FDW:string; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar1.SetFocus; + if ClientDataSet3.Locate('PBName',null,[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXPS',null,[]) then + begin + Application.MessageBox('ƥΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('JGPrice',null,[]) then + begin + Application.MessageBox('ӹ۲Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPQty',null,[]) then + begin + Application.MessageBox('ɴΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXUnit',null,[]) then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('PBMF',null,[]) then + begin + Application.MessageBox('ŷΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('PBKZ',null,[]) then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('SXUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end; + { with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('SXUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end;} + ClientDataSet3.EnableControls; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','ContractSX_Cloth_LLMx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(Order_Main.fieldbyname('DHId').AsString); + FieldByName('MXId').Value:=Trim(maxno); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + FieldByName('TPUnit').Value:='Kg'; + FieldByName('SXUnit').Value:=ClientDataSet3.fieldbyname('SXUnit').Value; + FieldByName('PBName').Value:=ClientDataSet3.fieldbyname('PBName').Value; + FieldByName('PBSpec').Value:=ClientDataSet3.fieldbyname('PBSpec').Value; + FieldByName('PBMF').Value:=ClientDataSet3.fieldbyname('PBMF').Value; + FieldByName('PBKZ').Value:=ClientDataSet3.fieldbyname('PBKZ').Value; + FieldByName('ToName').Value:=ClientDataSet3.fieldbyname('ToName').Value; + if Trim(ClientDataSet3.fieldbyname('SXUnit').AsString)='Kg' then + begin + FieldByName('SXMQty').Value:=ClientDataSet3.FieldByName('SXQty').Value*1.00 + /(ClientDataSet3.FieldByName('PBKZ').Value/1000) + /(ClientDataSet3.FieldByName('PBMF').Value/100) + end else + begin + FieldByName('SXMQty').Value:=ClientDataSet3.FieldByName('SXQty').Value; + end; + + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('JGPrice').Value:=ClientDataSet3.fieldbyname('JGPrice').Value + else + FieldByName('JGPrice').Value:=0; + + if Trim(ClientDataSet3.fieldbyname('SXPS').AsString)<>'' then + FieldByName('SXPS').Value:=ClientDataSet3.fieldbyname('SXPS').Value + else + FieldByName('SXPS').Value:=0; + if Trim(ClientDataSet3.fieldbyname('SXQty').AsString)<>'' then + FieldByName('SXQty').Value:=ClientDataSet3.fieldbyname('SXQty').Value + else + FieldByName('SXQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('ZSXS').AsString)<>'' then + FieldByName('ZSXS').Value:=ClientDataSet3.fieldbyname('ZSXS').Value + else + FieldByName('ZSXS').Value:=0; + FieldByName('TPYZQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('MXId').Value:=Trim(maxno); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update ContractSX_Cloth_DH Set '); + sql.Add(' TPQtyHZ=(select Sum(TPQty) from ContractSX_Cloth_LLMx A where A.DHID=ContractSX_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'SD','Contract_Cloth_DH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('DHID').Value:=Trim(maxno); + FieldByName('SXDHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('SXMainID').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('FirstNo').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHUnit').Value:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + FieldByName('PBName').Value:=Trim(ClientDataSet3.fieldbyname('PBName').AsString); + FieldByName('PBSpec').Value:=Trim(ClientDataSet3.fieldbyname('PBSpec').AsString); + FieldByName('PBKZ').Value:=Trim(ClientDataSet3.fieldbyname('PBKZ').AsString); + FieldByName('PBMF').Value:=Trim(ClientDataSet3.fieldbyname('PBMF').AsString); + FieldByName('DHType').Value:='ɴ߼ӹ'; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set DHUnit='''+Trim(ClientDataSet3.fieldbyname('SXUnit').AsString)+''''); + sql.Add(' ,PBName='''+Trim(ClientDataSet3.fieldbyname('PBName').AsString)+''''); + sql.Add(' ,PBSpec='''+Trim(ClientDataSet3.fieldbyname('PBSpec').AsString)+''''); + sql.Add(' ,PBMF='+Trim(ClientDataSet3.fieldbyname('PBMF').AsString)); + sql.Add(' ,PBKZ='+Trim(ClientDataSet3.fieldbyname('PBKZ').AsString)); + sql.Add(' ,SXMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.add(',DHType=''ɴ߼ӹ'' '); + sql.Add(' where DHID='''+Trim(ADOQueryTemp.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_DH Set DHPS=(select isnull(sum(SXPS),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(',SXTPQty=(select isnull(Sum(TPQty),0) from ContractSX_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(',DHQty=(select isnull(Sum(SXQty),0) from ContractSX_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + SQL.Add(',DHMQty=(select isnull(sum(SXMQty),0) from ContractSX_Cloth_LLMx A '); + SQL.Add(' where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add('where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¼ӹ쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListLLSX.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou:String; +begin + Result:=False; +{ with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + if GetLSNo(ADOQueryCmd,YFID,'PJ','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_Main.fieldbyname('DHid').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('JGPrice').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFName').Value:='ɴߺӹ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set CRTime='''+Trim(ClientDataSet3.fieldbyname('TPDate').AsString)+''''); + sql.add(',Price='+ClientDataSet3.fieldbyname('JGPrice').AsString); + sql.Add(' where YFID='''+Trim(ADOQueryTemp.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(sum(TPQty),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(',Money=(select isnull(sum(TPQty*JGPrice),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(',BBMoney=(select isnull(sum(TPQty*JGPrice),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + 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.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('Money').AsFloat=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + end; + Result:=True; +end; + +procedure TfrmClothContractListLLSX.ToolButton3Click(Sender: TObject); +begin + + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set TPQtyHZ=(select isnull(Sum(TPYZQty),0) from ContractSX_Cloth_LLMx A where A.DHID=ContractSX_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_DH Set DHPS=(select isnull(sum(SXPS),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(', DHQty=(select isnull(sum(SXQty),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(', DHMQty=(select isnull(sum(SXMQty),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add('where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_DH where not exists('); + sql.Add(' select * from ContractSX_Cloth_LLMX LM where LM.DHID=Contract_Cloth_DH.SXDHID '); + sql.Add(' and LM.ToName=Contract_Cloth_DH.FirstName )'); + sql.Add(' and SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ӹ쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.Delete; + except; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + + {with Order_Main do + begin + Edit; + if ClientDataSet3.IsEmpty=False then + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + else + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value; + Post; + end; } + end; +end; + +procedure TfrmClothContractListLLSX.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLLSX.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty2,qty3:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + if Trim(ClientDataSet3.fieldbyname('ZSXS').AsString)<>'' then + begin + Qty3:=ClientDataSet3.fieldbyname('ZSXS').AsString; + end else + begin + Qty3:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('SXQty').AsString)<>'' then + begin + Qty1:=ClientDataSet3.fieldbyname('SXQty').AsString; + end else + begin + Qty1:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('TPQty').Value:=StrToFloat(qty1)*StrToFloat(qty3); + Post; + end; + +end; + +procedure TfrmClothContractListLLSX.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + SQL.Add('from ContractSX_Cloth_LLMx A '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('DHId').AsString)+''''); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + +end; + +procedure TfrmClothContractListLLSX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothQty=DHQty-TPQtyHZ, '); + sql.Add('A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + Sql.Add('inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + SQL.Add(' where B.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''' '); //and A.DHType=''ǰ'' + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListLLSX.ToolButton1Click(Sender: TObject); + var + FColumn:String; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar2.SetFocus; + FColumn:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)='OrderNo' then Exit; + if Trim(FColumn)='PRTColor' then Exit; + if Application.MessageBox('ȷҪһ滻','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv3,ClientDataSet3); +end; + +procedure TfrmClothContractListLLSX.ToolButton8Click(Sender: TObject); +begin + + IF Order_Main.IsEmpty then exit; + if ClientDataSet3.IsEmpty then + begin + + with ClientDataSet3 do + begin + Append; + FieldByName('TPDate').Value:=SGetServerDate(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + FieldByName('ToName').Value:=Trim(ADOQueryTemp.fieldbyname('RanFactory').AsString); + Post; + end; + end else + begin + CopyAddRow(Tv3,ClientDataSet3); + with ClientDataSet3 do + begin + Edit; + FieldByName('MXID').Value:=''; + FieldByName('TPDate').Value:=null; + FieldByName('SXPS').Value:=null; + FieldByName('SXQty').Value:=null; + FieldByName('TPQty').Value:=null; + Post; + end; + end; + +end; + +procedure TfrmClothContractListLLSX.v3Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.ClientDataSet3.Edit; + Self.ClientDataSet3.FieldByName('PBName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //Self.ClientDataSet3.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLLSX.v3Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + MainType:='RanFactory'; + if ShowModal=1 then + begin + Self.ClientDataSet3.Edit; + self.ClientDataSet3.FieldByName('ToName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractListLLSXQJG.dfm b/贸易管理/U_ClothContractListLLSXQJG.dfm new file mode 100644 index 0000000..2434503 --- /dev/null +++ b/贸易管理/U_ClothContractListLLSXQJG.dfm @@ -0,0 +1,712 @@ +object frmClothContractListLLSXQJG: TfrmClothContractListLLSXQJG + Left = 37 + Top = 2 + Width = 1280 + Height = 705 + Caption = #32433#32447#21069#21152#24037#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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1272 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1272 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 748 + Top = 22 + Width = 52 + Height = 12 + Caption = #21407#26448#26009#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 892 + Top = 22 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = ConNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 800 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object FirstName: TEdit + Tag = 2 + Left = 932 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object Panel2: TPanel + Left = 0 + Top = 367 + Width = 1272 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1268 + Height = 265 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column65 + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skAverage + Column = v3Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object v3Column7: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PBName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v3Column11: TcxGridDBColumn + Caption = #22383#24067#35268#26684 + DataBinding.FieldName = 'PBSpec' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column12: TcxGridDBColumn + Caption = #22383#24067#38376#24133'(cm)' + DataBinding.FieldName = 'PBMF' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v3Column13: TcxGridDBColumn + Caption = #22383#24067#20811#37325'(g/'#13217')' + DataBinding.FieldName = 'PBKZ' + HeaderAlignmentHorz = taCenter + Width = 113 + end + object v3Column14: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'ToName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v3Column6: TcxGridDBColumn + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v3Column3: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column9: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SXPS' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column4: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SXQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'SXUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column5: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'ZSXS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column65: TcxGridDBColumn + Caption = #32433#32447#25968#37327 + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'JGPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1268 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton8Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton11: TToolButton + Left = 126 + Top = 0 + Caption = #32455#25104#21697#20986#24211#30830#23450 + ImageIndex = 114 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 54 + OnClick = ToolButton1Click + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 359 + Width = 1272 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1272 + Height = 273 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 114 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21407#26448#26009#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DHUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column3: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #32433#32447#25968#37327 + DataBinding.FieldName = 'ClothQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 752 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 1128 + Top = 472 + end +end diff --git a/贸易管理/U_ClothContractListLLSXQJG.pas b/贸易管理/U_ClothContractListLLSXQJG.pas new file mode 100644 index 0000000..3b6e75a --- /dev/null +++ b/贸易管理/U_ClothContractListLLSXQJG.pas @@ -0,0 +1,1030 @@ +unit U_ClothContractListLLSXQJG; + +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, cxDropDownEdit, cxCheckBox; + +type + TfrmClothContractListLLSXQJG = 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; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column6: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column65: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton11: TToolButton; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + FactoryNoName: TEdit; + Label7: TLabel; + FirstName: TEdit; + v3Column1: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column7: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure v3Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListLLSXQJG: TfrmClothContractListLLSXQJG; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderListSel,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListLLSXQJG.FormDestroy(Sender: TObject); +begin + ClothContractListLLSXQJG:=nil; +end; + +procedure TfrmClothContractListLLSXQJG.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListLLSXQJG.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('AAͬll1SXQJG',Tv1,'ָʾ'); + WriteCxGrid('AAͬllr1SXQJG',Tv3,'ָʾ'); +end; + +procedure TfrmClothContractListLLSXQJG.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothQty=DHQty-TPQtyHZ, '); + sql.Add(' A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + sql.add(' inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + sql.Add(' where B.FillTime>=:begdate and B.Filltime<:enddate '); + + Parameters.ParamByName('begdate').Value:=BegDate.Date; + Parameters.ParamByName('enddate').Value:=EndDate.Date+1; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListLLSXQJG.InitForm(); +begin + + ReadCxGrid('AAͬll1SXQJG',Tv1,'ָʾ'); + ReadCxGrid('AAͬllr1SXQJG',Tv3,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + InitGrid(); +end; + +procedure TfrmClothContractListLLSXQJG.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 TfrmClothContractListLLSXQJG.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListLLSXQJG.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListLLSXQJG.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 TfrmClothContractListLLSXQJG.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListLLSXQJG.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListLLSXQJG.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLLSXQJG.ToolButton5Click(Sender: TObject); +var + maxno,LLIdx,FDW:string; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar1.SetFocus; + if ClientDataSet3.Locate('PBName',null,[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXPS',null,[]) then + begin + Application.MessageBox('ƥΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('JGPrice',null,[]) then + begin + Application.MessageBox('ӹ۲Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPQty',null,[]) then + begin + Application.MessageBox('ɴΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('SXUnit',null,[]) then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('PBMF',null,[]) then + begin + Application.MessageBox('ŷΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('PBKZ',null,[]) then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('SXUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end; + { with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('SXUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end;} + ClientDataSet3.EnableControls; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','ContractSX_Cloth_LLMx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(Order_Main.fieldbyname('DHId').AsString); + FieldByName('MXId').Value:=Trim(maxno); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + FieldByName('TPUnit').Value:='Kg'; + FieldByName('SXUnit').Value:=ClientDataSet3.fieldbyname('SXUnit').Value; + FieldByName('PBName').Value:=ClientDataSet3.fieldbyname('PBName').Value; + FieldByName('PBSpec').Value:=ClientDataSet3.fieldbyname('PBSpec').Value; + FieldByName('PBMF').Value:=ClientDataSet3.fieldbyname('PBMF').Value; + FieldByName('PBKZ').Value:=ClientDataSet3.fieldbyname('PBKZ').Value; + FieldByName('ToName').Value:=ClientDataSet3.fieldbyname('ToName').Value; + if Trim(ClientDataSet3.fieldbyname('SXUnit').AsString)='Kg' then + begin + FieldByName('SXMQty').Value:=ClientDataSet3.FieldByName('SXQty').Value*1.00 + /(ClientDataSet3.FieldByName('PBKZ').Value/1000) + /(ClientDataSet3.FieldByName('PBMF').Value/100) + end else + begin + FieldByName('SXMQty').Value:=ClientDataSet3.FieldByName('SXQty').Value; + end; + + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('JGPrice').Value:=ClientDataSet3.fieldbyname('JGPrice').Value + else + FieldByName('JGPrice').Value:=0; + + if Trim(ClientDataSet3.fieldbyname('SXPS').AsString)<>'' then + FieldByName('SXPS').Value:=ClientDataSet3.fieldbyname('SXPS').Value + else + FieldByName('SXPS').Value:=0; + if Trim(ClientDataSet3.fieldbyname('SXQty').AsString)<>'' then + FieldByName('SXQty').Value:=ClientDataSet3.fieldbyname('SXQty').Value + else + FieldByName('SXQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('ZSXS').AsString)<>'' then + FieldByName('ZSXS').Value:=ClientDataSet3.fieldbyname('ZSXS').Value + else + FieldByName('ZSXS').Value:=0; + FieldByName('TPYZQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('MXId').Value:=Trim(maxno); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update ContractSX_Cloth_DH Set '); + sql.Add(' TPQtyHZ=(select Sum(TPQty) from ContractSX_Cloth_LLMx A where A.DHID=ContractSX_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + sql.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'SD','Contract_Cloth_DH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_DH where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('DHID').Value:=Trim(maxno); + FieldByName('SXDHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('SXMainID').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('FirstNo').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('DHUnit').Value:=Trim(ClientDataSet3.fieldbyname('SXUnit').AsString); + FieldByName('PBName').Value:=Trim(ClientDataSet3.fieldbyname('PBName').AsString); + FieldByName('PBSpec').Value:=Trim(ClientDataSet3.fieldbyname('PBSpec').AsString); + FieldByName('PBKZ').Value:=Trim(ClientDataSet3.fieldbyname('PBKZ').AsString); + FieldByName('PBMF').Value:=Trim(ClientDataSet3.fieldbyname('PBMF').AsString); + FieldByName('DHType').Value:='ɴ߼ӹ'; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_DH Set DHUnit='''+Trim(ClientDataSet3.fieldbyname('SXUnit').AsString)+''''); + sql.Add(' ,PBName='''+Trim(ClientDataSet3.fieldbyname('PBName').AsString)+''''); + sql.Add(' ,PBSpec='''+Trim(ClientDataSet3.fieldbyname('PBSpec').AsString)+''''); + sql.Add(' ,PBMF='+Trim(ClientDataSet3.fieldbyname('PBMF').AsString)); + sql.Add(' ,PBKZ='+Trim(ClientDataSet3.fieldbyname('PBKZ').AsString)); + sql.Add(' ,SXMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.add(',DHType=''ɴ߼ӹ'' '); + sql.Add(' where DHID='''+Trim(ADOQueryTemp.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_DH Set DHPS=(select isnull(sum(SXPS),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(',SXTPQty=(select isnull(Sum(TPQty),0) from ContractSX_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(',DHQty=(select isnull(Sum(SXQty),0) from ContractSX_Cloth_LLMx A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + SQL.Add(',DHMQty=(select isnull(sum(SXMQty),0) from ContractSX_Cloth_LLMx A '); + SQL.Add(' where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add('where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¼ӹ쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListLLSXQJG.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + if GetLSNo(ADOQueryCmd,YFID,'PJ','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_Main.fieldbyname('DHid').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('JGPrice').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(FComTaiTou); + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFName').Value:='ӹ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set CRTime='''+Trim(ClientDataSet3.fieldbyname('TPDate').AsString)+''''); + sql.add(',Price='+ClientDataSet3.fieldbyname('JGPrice').AsString); + sql.Add(' where YFID='''+Trim(ADOQueryTemp.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(sum(TPQty),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(',Money=(select isnull(sum(TPQty*JGPrice),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(',BBMoney=(select isnull(sum(TPQty*JGPrice),0) from ContractSX_Cloth_LLMX A '); + SQL.Add(' where A.DHId=YF_Money_CR.YFTypeId )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('DHid').AsString)+''''); + 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.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('Money').AsFloat=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + end; + Result:=True; +end; + +procedure TfrmClothContractListLLSXQJG.ToolButton3Click(Sender: TObject); +begin + + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ContractSX_Cloth_DH Set TPQtyHZ=(select isnull(Sum(TPYZQty),0) from ContractSX_Cloth_LLMx A where A.DHID=ContractSX_Cloth_DH.DHID)'); + sql.Add(' where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_DH Set DHPS=(select isnull(sum(SXPS),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(', DHQty=(select isnull(sum(SXQty),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add(', DHMQty=(select isnull(sum(SXMQty),0) from ContractSX_Cloth_LLMX A where A.DHID=Contract_Cloth_DH.SXDHID'); + SQL.Add(' and A.ToName=Contract_Cloth_DH.FirstName)'); + sql.Add('where SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_DH where not exists('); + sql.Add(' select * from ContractSX_Cloth_LLMX LM where LM.DHID=Contract_Cloth_DH.SXDHID '); + sql.Add(' and LM.ToName=Contract_Cloth_DH.FirstName )'); + sql.Add(' and SXDHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + ExecSQL; + end; + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ӹ쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.Delete; + except; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + + {with Order_Main do + begin + Edit; + if ClientDataSet3.IsEmpty=False then + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + else + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value; + Post; + end; } + end; +end; + +procedure TfrmClothContractListLLSXQJG.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLLSXQJG.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty2,qty3:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + if Trim(ClientDataSet3.fieldbyname('ZSXS').AsString)<>'' then + begin + Qty3:=ClientDataSet3.fieldbyname('ZSXS').AsString; + end else + begin + Qty3:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('SXQty').AsString)<>'' then + begin + Qty1:=ClientDataSet3.fieldbyname('SXQty').AsString; + end else + begin + Qty1:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('TPQty').Value:=StrToFloat(qty1)*StrToFloat(qty3); + Post; + end; + +end; + +procedure TfrmClothContractListLLSXQJG.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + SQL.Add('from ContractSX_Cloth_LLMx A '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('DHId').AsString)+''''); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + +end; + +procedure TfrmClothContractListLLSXQJG.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select ClothQty=DHQty-TPQtyHZ '); + sql.Add('A.*,B.ConNo,C.C_CodeName,C.C_Spec,C.MFQty,C.KZQty,B.FactoryNoName from ContractSX_Cloth_DH A '); + Sql.Add('inner join ContractSX_Main B on A.Mainid=B.Mainid'); + sql.Add('inner join ContractSX_Sub C on A.Subid=C.Subid'); + SQL.Add(' where B.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListLLSXQJG.ToolButton1Click(Sender: TObject); + var + FColumn:String; +begin + if ClientDataSet3.IsEmpty then Exit; + ToolBar2.SetFocus; + FColumn:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)='OrderNo' then Exit; + if Trim(FColumn)='PRTColor' then Exit; + if Application.MessageBox('ȷҪһ滻','ʾ',32+4)<>IDYES then Exit; + OneKeyPost(Tv3,ClientDataSet3); +end; + +procedure TfrmClothContractListLLSXQJG.ToolButton8Click(Sender: TObject); +begin + + if ClientDataSet3.IsEmpty then + begin + + with ClientDataSet3 do + begin + Append; + FieldByName('TPDate').Value:=SGetServerDate(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + FieldByName('ToName').Value:=Trim(ADOQueryTemp.fieldbyname('RanFactory').AsString); + Post; + end; + end else + begin + CopyAddRow(Tv3,ClientDataSet3); + with ClientDataSet3 do + begin + Edit; + FieldByName('MXID').Value:=''; + FieldByName('TPDate').Value:=null; + FieldByName('SXPS').Value:=null; + FieldByName('SXQty').Value:=null; + FieldByName('TPQty').Value:=null; + Post; + end; + end; + +end; + +procedure TfrmClothContractListLLSXQJG.v3Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.ClientDataSet3.Edit; + Self.ClientDataSet3.FieldByName('PBName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //Self.ClientDataSet3.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLLSXQJG.v3Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + MainType:='RanFactory'; + if ShowModal=1 then + begin + Self.ClientDataSet3.Edit; + self.ClientDataSet3.FieldByName('ToName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractListSX.dfm b/贸易管理/U_ClothContractListSX.dfm new file mode 100644 index 0000000..23e93bf --- /dev/null +++ b/贸易管理/U_ClothContractListSX.dfm @@ -0,0 +1,436 @@ +object frmClothContractListSX: TfrmClothContractListSX + Left = -41 + Top = 54 + Width = 1280 + Height = 705 + Caption = #32433#32447#37319#36141#21512#21516 + 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 = 1272 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1272 + 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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 612 + Top = 22 + Width = 26 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + end + object cxGrid1: TcxGrid + Left = 64 + Top = 112 + Width = 929 + Height = 377 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + 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 = 352 + Top = 192 + 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 = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 880 + Top = 56 + end +end diff --git a/贸易管理/U_ClothContractListSX.pas b/贸易管理/U_ClothContractListSX.pas new file mode 100644 index 0000000..5bc6901 --- /dev/null +++ b/贸易管理/U_ClothContractListSX.pas @@ -0,0 +1,375 @@ +unit U_ClothContractListSX; + +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 + TfrmClothContractListSX = 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; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + 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 ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListSX: TfrmClothContractListSX; + +implementation +uses + U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractListSX.FormDestroy(Sender: TObject); +begin + frmClothContractListSX:=nil; +end; + +procedure TfrmClothContractListSX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListSX.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothContractListSX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбSX',Tv1,'ָʾ'); +end; + +procedure TfrmClothContractListSX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListSX.InitForm(); +begin + ReadCxGrid('ͬбSX',Tv1,'ָʾ'); + if Trim(DParameters1)='1' then + begin + TBPrint.Visible:=False; + v1Column1.Visible:=False; + v1Column1.Hidden:=True; + v1PRTUnit.Visible:=False; + v1PRTUnit.Hidden:=True; + v1PRTQty.Visible:=False; + v1PRTQty.Hidden:=True; + end else + begin + v1Column1.Visible:=True; + v1Column1.Hidden:=False; + v1PRTUnit.Visible:=True; + v1PRTUnit.Hidden:=False; + v1PRTQty.Visible:=True; + v1PRTQty.Hidden:=False; + TBPrint.Visible:=True; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractListSX.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 TfrmClothContractListSX.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application); + with frmClothContractInPutSX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSX.Free; + end; +end; + +procedure TfrmClothContractListSX.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.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 TfrmClothContractListSX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ContractSX_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 ContractSX_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 ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListSX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListSX.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + //SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+''''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + 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\ɴ߶ͬ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListSX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListSX.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application); + with frmClothContractInPutSX do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSX.Free; + end; +end; + +procedure TfrmClothContractListSX.ConNoMChange(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 TfrmClothContractListSX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListSX.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/贸易管理/U_ClothContractListWJG.dfm b/贸易管理/U_ClothContractListWJG.dfm new file mode 100644 index 0000000..8825e81 --- /dev/null +++ b/贸易管理/U_ClothContractListWJG.dfm @@ -0,0 +1,820 @@ +object frmClothContractListWJG: TfrmClothContractListWJG + Left = 107 + Top = 19 + Width = 1189 + Height = 705 + Caption = #22806#21152#24037 + 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 Label2: TLabel + Left = 243 + Top = 70 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1173 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21040#22383#30830#23450 + ImageIndex = 113 + Visible = False + end + object ToolButton5: TToolButton + Left = 402 + Top = 0 + Caption = #22383#24067#39046#26009#30830#23450 + ImageIndex = 114 + Visible = False + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1173 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 14 + 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 Label3: TLabel + Left = 231 + Top = 14 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 452 + Top = 13 + 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 Label4: TLabel + Left = 452 + Top = 38 + 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 Label6: TLabel + Left = 679 + Top = 14 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 679 + Top = 38 + Width = 40 + Height = 12 + Caption = #26579' '#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 231 + Top = 38 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 10 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 75 + Top = 34 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 285 + Top = 10 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = ConNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 509 + Top = 10 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 508 + Top = 34 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 723 + Top = 10 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object FirstName: TEdit + Tag = 2 + Left = 723 + Top = 34 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + object khconNO: TEdit + Tag = 2 + Left = 285 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = ConNoChange + end + end + object Panel2: TPanel + Left = 0 + Top = 366 + Width = 1173 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1169 + Height = 265 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 98 + end + object cxGridDBPRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v3Column15: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCgangNO' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column16: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNO' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v3Column14: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #39046#26009#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v3Column10: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'ToName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column3: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v3Column9: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327'('#35745#21010')' + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v3Column4: TcxGridDBColumn + Caption = #25968#37327#20844#24046 + DataBinding.FieldName = 'Qty2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column5: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Qty3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'TPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v3Column7: TcxGridDBColumn + Caption = #39046#26009#20154 + DataBinding.FieldName = 'TPPerson' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column11: TcxGridDBColumn + Caption = #19978#36947#21152#24037#21333#20215 + DataBinding.FieldName = 'JGPrice' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v3Column12: TcxGridDBColumn + Caption = #22806#21152#24037#31867#22411 + DataBinding.FieldName = 'HJGType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '' + #22238#20179#21518#21152#24037) + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'TPNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1169 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton11: TToolButton + Left = 126 + Top = 0 + Caption = #21518#21152#24037#30830#23450 + ImageIndex = 114 + OnClick = ToolButton5Click + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 358 + Width = 1173 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 93 + Width = 1173 + Height = 265 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 114 + end + object v1Column7: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'khconNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'TPUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column6: TcxGridDBColumn + Caption = #24207#27425 + DataBinding.FieldName = 'LLIdx' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column9: TcxGridDBColumn + Caption = #21322#25104#21697#21305#25968 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #21322#25104#21697#25968#37327 + DataBinding.FieldName = 'BCPQty' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column11: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 752 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 416 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 1168 + Top = 464 + end +end diff --git a/贸易管理/U_ClothContractListWJG.pas b/贸易管理/U_ClothContractListWJG.pas new file mode 100644 index 0000000..e07e5ac --- /dev/null +++ b/贸易管理/U_ClothContractListWJG.pas @@ -0,0 +1,1238 @@ +unit U_ClothContractListWJG; + +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, cxDropDownEdit, cxCheckBox; + +type + TfrmClothContractListWJG = 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; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton5: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Panel2: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBPRTColor: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton11: TToolButton; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + FactoryNoName: TEdit; + Label7: TLabel; + FirstName: TEdit; + v3Column1: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + Label2: TLabel; + khconNO: TEdit; + Label8: TLabel; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v3Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v3Column5PropertiesEditValueChanged(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWhere(fsj:string); + function YFData():Boolean; + function YFDataDel():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListWJG: TfrmClothContractListWJG; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderListSel,U_ZDYHelp, + U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmClothContractListWJG.FormDestroy(Sender: TObject); +begin + frmClothContractListWJG:=nil; +end; + +procedure TfrmClothContractListWJG.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListWJG.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ӹ1',Tv1,'ָʾ'); + WriteCxGrid('ӹ2',Tv3,'ָʾ'); +end; + +procedure TfrmClothContractListWJG.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add(' exec P_HJG_View :begdate,:enddate,:PState,:ConNo'); + Parameters.ParamByName('PState').Value:=1; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Parameters.ParamByName('ConNo').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo '); + SQL.Add('from Contract_Cloth_LLMx A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListWJG.InitGridWhere(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add(' select A.*,B.ConNo,C.C_CodeName,B.FactoryNoName,C.C_Spec,C.MFQty,C.KZQty,C.MainId,D.DHUnit,C.SubId '); + sql.Add(' ,JM.OrderNo,JS.PRTColor'); + sql.Add(',Price=(select Top 1 JGPrice from Contract_Cloth_LLMX AAA where AAA.DHID=A.DHID )'); + sql.Add(',KCPS=TPPS-HCPS,KCQty=BCPQty-HCQty'); + sql.Add(',APFlag=(select Count(*) from JYOrder_Sub_AnPai JAP where JAP.LLID=A.LLID)'); + sql.Add(' from Contract_Cloth_LL A '); + sql.Add(' inner join Contract_Cloth_DH D on A.DHID=D.DHID '); + sql.Add(' inner join Contract_Main B on D.Mainid=B.Mainid'); + sql.Add(' inner join Contract_Sub C on D.Subid=C.Subid'); + sql.Add(' inner join JYOrder_Sub JS on A.OrdSubId=JS.SubId '); + sql.Add(' inner join JYOrder_Main JM on JS.Mainid=JM.MainId'); + //sql.Add(' where isnull(DHIDHelp,'''')='''' '); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListWJG.InitForm(); +begin + + ReadCxGrid('ӹ1',Tv1,'ָʾ'); + ReadCxGrid('ӹ2',Tv3,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + InitGrid(); +end; + +procedure TfrmClothContractListWJG.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 TfrmClothContractListWJG.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_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 Contract_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 Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListWJG.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListWJG.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 TfrmClothContractListWJG.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListWJG.ToolButton2Click(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + with ClientDataSet3 do + begin + Append; + FieldByName('OrderNo').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PRTColor').Value:=Trim(Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('ToName').Value:=Trim(ADOQueryTemp.fieldbyname('HZLFactory').AsString); + FieldByName('TPDate').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('TPUnit').Value:=Order_Main.fieldbyname('TPUnit').Value; + Post; + end; +end; + +procedure TfrmClothContractListWJG.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractListWJG.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListWJG.ToolButton5Click(Sender: TObject); +var + maxno,LLIdx,FDW,FFLLID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('OrderNo',null,[]) then + begin + Application.MessageBox('ָŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('ToName',null,[]) then + begin + Application.MessageBox('ӹΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('ToName','',[]) then + begin + Application.MessageBox('ӹΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPPS',null,[]) then + begin + Application.MessageBox('ƥΪգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPQty',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('Qty2',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('TPUnit',null,[]) then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + + if Trim(FDW)='' then + begin + FDW:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + end; + if FDW<>Trim(ClientDataSet3.fieldbyname('TPUnit').AsString) then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + if Trim(Order_Main.fieldbyname('DHUnit').AsString)='M' then + begin + if ClientDataSet3.Locate('TPUnit','Kg',[]) then + begin + Application.MessageBox('ȾɫλΪM,ӹλΪKg','ʾ',0); + Exit; + end; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Cloth_LLMx',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MXId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('SXMainId').Value:=Trim(Order_Main.fieldbyname('SXMainId').AsString); + FieldByName('SXDHID').Value:=Trim(Order_Main.fieldbyname('SXDHID').AsString); + FieldByName('DHId').Value:=Trim(Order_Main.fieldbyname('LLId').AsString); + FieldByName('MXId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(Order_Main.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('HJGType').Value:=ClientDataSet3.fieldbyname('HJGType').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + FieldByName('RCGangNO').Value:=Trim(ClientDataSet3.fieldbyname('RCGangNO').AsString); + FieldByName('BCgangNO').Value:=Trim(ClientDataSet3.fieldbyname('BCgangNO').AsString); + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + FieldByName('HCFlag').Value:=1 + end else + begin + FieldByName('HCFlag').Value:=0; + end; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Trim(ADOQueryCmd.fieldbyname('TPUnit').AsString)<>Trim(ClientDataSet3.fieldbyname('TPUnit').AsString) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai A where SubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ѻزֲ޸λ!','ʾ',0); + Exit; + end; + end; + end; + FieldByName('TPUnit').Value:=ClientDataSet3.fieldbyname('TPUnit').Value; + FieldByName('ToNo').Value:=ClientDataSet3.fieldbyname('ToNo').Value; + FieldByName('ToName').Value:=ClientDataSet3.fieldbyname('ToName').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('TPPS').AsString)<>'' then + FieldByName('TPPS').Value:=ClientDataSet3.fieldbyname('TPPS').Value + else + FieldByName('TPPS').Value:=0; + if Trim(ClientDataSet3.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('JGPrice').Value:=ClientDataSet3.fieldbyname('JGPrice').Value + else + FieldByName('JGPrice').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString)<>'' then + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value:=0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString)<>'' then + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value:=0; + if Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)='Kg' then + begin + FieldByName('TPMQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + end else + begin + FieldByName('TPMQty').Value:=ClientDataSet3.fieldbyname('TPQty').Value; + end; + if Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)='Kg' then + begin + FieldByName('MQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + end else + begin + FieldByName('MQty2').Value:=ClientDataSet3.fieldbyname('Qty2').Value; + end; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('MXId').Value:=Trim(maxno); + Post; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Cloth_LL where DHIdHelp='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + sql.Add(' and firstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,FFLLID,'HL','Contract_Cloth_LL',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('DHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('OrdSubId').Value:=Trim(Order_Main.fieldbyname('OrdSubId').AsString); + FieldByName('SXMainId').Value:=Trim(Order_Main.fieldbyname('SXMainId').AsString); + FieldByName('SXDHID').Value:=Trim(Order_Main.fieldbyname('SXDHID').AsString); + FieldByName('LLId').Value:=Trim(FFLLID); + FieldByName('DHIdHelp').Value:=Trim(Order_Main.fieldbyname('LLID').AsString); + FieldByName('FirstNo').Value:=Trim(ClientDataSet3.fieldbyname('ToNo').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('TPUnit').Value:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + FieldByName('HJGType').Value:=ClientDataSet3.fieldbyname('HJGType').Value; + FieldByName('LLIdx').Value:=Order_Main.fieldbyname('LLIdx').Value+1; + FieldByName('DHID').Value:=Trim(Order_Main.fieldbyname('DHID').AsString); + FieldByName('RCGangNO').Value:=Trim(ClientDataSet3.fieldbyname('RCGangNO').AsString); + FieldByName('BCgangNO').Value:=Trim(ClientDataSet3.fieldbyname('BCgangNO').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update Contract_Cloth_LL Set JXJGFlag=1 '); + sql.Add(',ToNo='''+Trim(ClientDataSet3.fieldbyname('ToNo').AsString)+''''); + sql.Add(',ToName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set TPUnit='''+Trim(ClientDataSet3.fieldbyname('TPUnit').AsString)+''''); + sql.Add(',HJGType='''+Trim(ClientDataSet3.fieldbyname('HJGType').AsString)+''''); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end; + { if Order_Main.FieldByName('APFlag').Value=0 then + begin + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ⱦʧ!','ʾ',0); + Exit; + end; + end else + begin + if YFDataDel()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ⱦʧ!','ʾ',0); + Exit; + end; + end;} + if Trim(ClientDataSet3.fieldbyname('HJGType').AsString)='' then + begin + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ⱦʧ!','ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set TPMQty=(select Sum(TPMQty) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPPS=(select Sum(TPPS) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPMQty=(select Sum(MQty2) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(' where DHIDHelp='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + if Order_Main.FieldByName('APFlag').Value=0 then + begin + if Trim(ClientDataSet3.fieldbyname('HJGType').AsString)<>'زֺӹ' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(Sum(TPPS),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.LLID)'); + sql.Add(', HCQty=(select isnull(Sum(TPQty),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.LLID)'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCMQty=HCQty*(TPMQty*1.00/TPQty)'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmClothContractListWJG.YFData():Boolean; +var + CRID,OrdMainId,YFID,Price,FComTaiTou:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('orderNO').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + + Application.MessageBox('δ¼!','ʾ',0); + Exit; + end else + begin + if ADOQueryTemp.RecordCount>1 then + begin + Application.MessageBox('¼ظ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('orderNO').AsString)+''''); + Open; + end; + OrdMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(OrdMainId)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFName=''Ⱦ'''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet3.fieldbyname('MXID').AsString)+''''); + Open; + end; + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + //if ADOQueryTemp.IsEmpty then + begin + if Trim(YFID)='' then + begin + if GetLSNo(ADOQueryCmd,YFID,'RF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡȾӦʧ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(YFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ClientDataSet3.fieldbyname('MXID').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('Qty').Value:=0; + if Trim(ClientDataSet3.fieldbyname('TPPS').AsString)<>'' then + FieldByName('PS').Value:=ClientDataSet3.fieldbyname('TPPS').Value + else + FieldByName('PS').Value:=0; + FieldByName('YFType').Value:='Զ'; + if Trim(ClientDataSet3.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('JGPrice').Value + else + FieldByName('Price').Value:=0; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString); + FieldByName('YFName').Value:='Ⱦ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(HCQty,0) from Contract_Cloth_LL A '); + SQL.Add(' where A.LLId=YF_Money_CR.YFTypeId )'); + sql.Add(',PS=(select isnull(HCPS,0) from Contract_Cloth_LL A '); + SQL.Add(' where A.LLId=YF_Money_CR.YFTypeId )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('LLid').AsString)+''''); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; +function TfrmClothContractListWJG.YFDataDel():Boolean; +var + CRID,OrdMainId,YFID,Price,FComTaiTou:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(ClientDataSet3.fieldbyname('MXID').AsString)+''''); + Open; + end; + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR '); + 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; + Result:=True; +end; + +procedure TfrmClothContractListWJG.ToolButton3Click(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where DHIDHelp='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + SQL.Add(' and FirstName='''+Trim(ClientDataSet3.fieldbyname('ToName').AsString)+''''); + sql.Add(' and HCPS>0 '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('лز!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MXId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set TPMQty=(select isnull(Sum(TPMQty),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPPS=(select isnull(Sum(TPPS),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPQty=(select isnull(Sum(TPQty),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPQty=(select isnull(Sum(Qty2),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPMQty=(select isnull(Sum(MQty2),0) from Contract_Cloth_LLMx A where A.DHID=Contract_Cloth_LL.DHIDHelp'); + SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(' where DHIDHelp='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + if Order_Main.FieldByName('APFlag').Value=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(Sum(TPPS),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.LLID)'); + sql.Add(', HCQty=(select isnull(Sum(TPQty),0) from Contract_Cloth_LLMX A where A.DHID=Contract_Cloth_LL.LLID)'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCMQty=HCQty*(TPMQty*1.00/TPQty)'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end; + + + end; + + if YFDataDel()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ⱦʧ!','ʾ',0); + Exit; + end; + ClientDataSet3.Delete; + if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LL where DHIDHelp='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + sql.Add('Update Contract_Cloth_LL Set ToNo='''' ,ToName='''' ,JXJGFlag=0 '); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + + end; +end; + +procedure TfrmClothContractListWJG.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListWJG.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty2:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty2').Value:= FieldByName('TPQty').AsFloat; + // FieldByName('qty3').Value:=(StrToFloat(qty1)-StrToFloat(qty2))*1.00*100/StrToFloat(qty1); + Post; + end; + {with Order_Main do + begin + Edit; + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]; + Post; + end; } + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + begin + qty1:=ClientDataSet3.fieldbyname('TPQty').AsString; + end else + begin + qty1:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString)<>'' then + begin + Qty2:=ClientDataSet3.fieldbyname('Qty2').AsString; + end else + begin + Qty2:='0'; + end; + if StrToFloat(qty1)*StrToFloat(qty2)=0 then Exit; + with ClientDataSet3 do + begin + Edit; + // FieldByName('qty2').Value:= FieldByName('TPQty').AsFloat; + FieldByName('qty3').Value:=(StrToFloat(qty1)-StrToFloat(qty2))*1.00*100/StrToFloat(qty1); + Post; + end; + +end; + +procedure TfrmClothContractListWJG.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo '); + SQL.Add('from Contract_Cloth_LLMx A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.DHId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + +end; + +procedure TfrmClothContractListWJG.v3Column10PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flagname:='ӹ'; + flag:='Factory'; + if ShowModal=1 then + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('ToName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + ClientDataSet3.FieldByName('ToNo').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('ToName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + ClientDataSet3.FieldByName('ToNo').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractListWJG.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Length(ConNo.Text)<3 then Exit; + if Key=#13 then + begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.add(' exec P_HJG_View :begdate,:enddate,:PState,:ConNo'); + Parameters.ParamByName('PState').Value:=2; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Parameters.ParamByName('ConNo').Value:='%'+Trim(ConNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end; +end; + +procedure TfrmClothContractListWJG.v3Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fieldname,qty1,qty3:String; + +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName; + with ClientDataSet3 do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + {with Order_Main do + begin + Edit; + FieldByName('KCQty').Value:=Order_Main.fieldbyname('DHQty').Value-tv3.DataController.Summary.FooterSummaryValues[0]; + Post; + end; } + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString)<>'' then + begin + qty1:=ClientDataSet3.fieldbyname('TPQty').AsString; + end else + begin + qty1:='0'; + end; + if Trim(ClientDataSet3.fieldbyname('qty3').AsString)<>'' then + begin + qty3:=ClientDataSet3.fieldbyname('qty3').AsString; + end else + begin + qty3:='0'; + end; + //if StrToFloat(qty1)*StrToFloat(qty2)=0 then Exit; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty2').Value:=StrToFloat(qty1)*(1-StrToFloat(qty3)*1.00/100); + Post; + end; + +end; + +end. diff --git a/贸易管理/U_ClothHCList.dfm b/贸易管理/U_ClothHCList.dfm new file mode 100644 index 0000000..b8b6605 --- /dev/null +++ b/贸易管理/U_ClothHCList.dfm @@ -0,0 +1,598 @@ +object frmClothHCList: TfrmClothHCList + Left = 137 + Top = 26 + Width = 1179 + Height = 706 + Caption = #24067#21305#22238#20179#26597#35810 + 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 = 1163 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1163 + Height = 69 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #22238#20179#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 = 231 + 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 = 812 + Top = 22 + Width = 52 + Height = 12 + Caption = #26579#21378#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 812 + Top = 46 + Width = 52 + Height = 12 + Caption = #26412#21378#32568#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 = 611 + Top = 46 + Width = 54 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 1000 + Top = 18 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 231 + Top = 46 + 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 Label9: TLabel + Left = 427 + Top = 22 + Width = 53 + 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 Label2: TLabel + Left = 427 + Top = 46 + 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 = 611 + Top = 22 + Width = 52 + Height = 12 + Caption = #22411#21495#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 = 1000 + Top = 42 + Width = 40 + Height = 12 + Caption = #27454' '#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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 42 + Width = 85 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 271 + Top = 18 + Width = 98 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object GangNo: TEdit + Tag = 2 + Left = 865 + Top = 18 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object AOrddefstr1: TEdit + Tag = 2 + Left = 865 + Top = 42 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 668 + Top = 42 + Width = 85 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object AOrddefstr4: TEdit + Tag = 2 + Left = 1049 + Top = 14 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object KHconNo: TEdit + Tag = 2 + Left = 271 + Top = 42 + Width = 98 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object conNo: TEdit + Tag = 2 + Left = 483 + Top = 18 + Width = 86 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object mprtCodeName: TEdit + Tag = 2 + Left = 483 + Top = 42 + Width = 86 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object Mprtspec: TEdit + Tag = 2 + Left = 667 + Top = 18 + Width = 85 + Height = 20 + TabOrder = 10 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object prtkuanNo: TEdit + Tag = 2 + Left = 1049 + Top = 38 + Width = 83 + Height = 20 + TabOrder = 11 + OnChange = OrderNoMChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 101 + Width = 1163 + Height = 567 + Align = alClient + TabOrder = 2 + object TV2: TcxGridDBTableView + OnDblClick = TV2DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = V2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column1 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + Column = V2Column6 + end + item + Kind = skSum + Column = V2Column11 + end + item + Kind = skSum + Column = V2Column12 + end + item + Kind = skSum + Column = V2Column17 + end + item + Kind = skSum + Column = V2Column18 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object V2Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 96 + end + object V2APID: TcxGridDBColumn + Caption = #32568#26465#30721 + DataBinding.FieldName = 'APID' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object V2Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'AOrddefstr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 88 + end + object V2Column10: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object V2Column9: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHCOnNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V2Column14: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V2Column15: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MprtCodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column16: TcxGridDBColumn + Caption = #22411#21495#35268#26684 + DataBinding.FieldName = 'mprtspec' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object V2Column19: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'prtkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object V2Column3: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object V2Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'AOrdQty2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column1: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 61 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr2' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object V2Column5: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JY_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 59 + end + object V2Column6: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 86 + end + object V2Column11: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RK_RollNum' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object V2Column12: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object V2Column17: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CK_RollNum' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object V2Column18: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CK_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 448 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 800 + Top = 12 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 24 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 216 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 824 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 840 + Top = 192 + end +end diff --git a/贸易管理/U_ClothHCList.pas b/贸易管理/U_ClothHCList.pas new file mode 100644 index 0000000..278c770 --- /dev/null +++ b/贸易管理/U_ClothHCList.pas @@ -0,0 +1,220 @@ +unit U_ClothHCList; + +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, cxDropDownEdit, cxCheckBox; + +type + TfrmClothHCList = 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; + Label5: TLabel; + GangNo: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + AOrddefstr1: TEdit; + Label6: TLabel; + PRTColor: TEdit; + Label7: TLabel; + AOrddefstr4: TEdit; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + V2Column2: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column7: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + V2Column10: TcxGridDBColumn; + V2Column13: TcxGridDBColumn; + V2APID: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + V2Column14: TcxGridDBColumn; + KHconNo: TEdit; + Label8: TLabel; + conNo: TEdit; + Label9: TLabel; + V2Column15: TcxGridDBColumn; + V2Column16: TcxGridDBColumn; + mprtCodeName: TEdit; + Label2: TLabel; + Mprtspec: TEdit; + Label10: TLabel; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + V2Column17: TcxGridDBColumn; + V2Column18: TcxGridDBColumn; + Label11: TLabel; + prtkuanNo: TEdit; + V2Column19: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure TV2DblClick(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + procedure InitGridWSQL(FWSQL:String); + { Private declarations } + public + fType:string; + { Public declarations } + end; + +var + frmClothHCList: TfrmClothHCList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ProductOrderNewList_JD; + +{$R *.dfm} + +procedure TfrmClothHCList.FormDestroy(Sender: TObject); +begin + frmClothHCList:=nil; +end; + +procedure TfrmClothHCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothHCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); +end; + +procedure TfrmClothHCList.InitGrid(); +begin + try + //ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_View_HC :begdate,:enddate,:WSQL'); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Parameters.ParamByName('WSQL').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + //ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothHCList.InitGridWSQL(FWSQL:String); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_View_HC :begdate,:enddate,:WSQL'); + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Parameters.ParamByName('WSQL').Value:=FWSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothHCList.InitForm(); +begin + ReadCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-7; + //InitGrid(); +end; + +procedure TfrmClothHCList.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 TfrmClothHCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothHCList.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 TfrmClothHCList.FormShow(Sender: TObject); +begin + InitForm(); + TBRafresh.Click; +end; + +procedure TfrmClothHCList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(OrderNoM.Text))<4 then Exit; + fsj:=' and B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + InitGridWSQL(fsj); + end; +end; + +procedure TfrmClothHCList.TV2DblClick(Sender: TObject); +begin + if fType='10' then frmClothHCList.ModalResult:=1; +end; + +end. diff --git a/贸易管理/U_ClothPDInfoList.dfm b/贸易管理/U_ClothPDInfoList.dfm new file mode 100644 index 0000000..4b123f1 --- /dev/null +++ b/贸易管理/U_ClothPDInfoList.dfm @@ -0,0 +1,363 @@ +object frmClothPDInfoList: TfrmClothPDInfoList + Left = 123 + Top = 23 + Width = 1162 + Height = 705 + Caption = #24453#26816#20179#24211#24211#23384 + 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 = 1154 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1154 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 33 + 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 = 194 + 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 Label4: TLabel + Left = 362 + 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 OrderNo: TEdit + Tag = 2 + Left = 87 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 247 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 416 + Top = 18 + Width = 113 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1154 + Height = 585 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1JY_PS + end + item + Kind = skSum + Column = v1JY_Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22238#20462#21305#25968 + DataBinding.FieldName = 'HXPS' + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #22238#20462#25968#37327 + DataBinding.FieldName = 'HXQty' + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column10: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 59 + end + object v1JY_PS: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JY_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 65 + end + object v1JY_Qty: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 656 + Top = 288 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 688 + Top = 288 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 288 + end +end diff --git a/贸易管理/U_ClothPDInfoList.pas b/贸易管理/U_ClothPDInfoList.pas new file mode 100644 index 0000000..24f17ec --- /dev/null +++ b/贸易管理/U_ClothPDInfoList.pas @@ -0,0 +1,169 @@ +unit U_ClothPDInfoList; + +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 + TfrmClothPDInfoList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + MPRTCodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1JY_PS: TcxGridDBColumn; + v1JY_Qty: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothPDInfoList: TfrmClothPDInfoList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothPDInfoList.FormDestroy(Sender: TObject); +begin + frmClothPDInfoList:=nil; +end; + +procedure TfrmClothPDInfoList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothPDInfoList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('첼1',Tv1,'ָʾ'); +end; + +procedure TfrmClothPDInfoList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + filtered:=False; + Close; + sql.Clear; + sql.Add('exec p_view_DJBKC '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothPDInfoList.InitForm(); +begin + ReadCxGrid('첼1',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmClothPDInfoList.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 TfrmClothPDInfoList.DelData():Boolean; +begin + +end; + +procedure TfrmClothPDInfoList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('첼',cxGrid1); +end; + +procedure TfrmClothPDInfoList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothPDInfoList.OrderNoChange(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 TfrmClothPDInfoList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothPDInfoList.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +end. diff --git a/贸易管理/U_ClothSCListZDSel.dfm b/贸易管理/U_ClothSCListZDSel.dfm new file mode 100644 index 0000000..43f21b5 --- /dev/null +++ b/贸易管理/U_ClothSCListZDSel.dfm @@ -0,0 +1,804 @@ +object frmClothSCListZDSel: TfrmClothSCListZDSel + Left = 48 + Top = 50 + Width = 1280 + Height = 705 + Caption = #22383#24067#36716#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 = 1272 + 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_TradeManagePB.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #29983#20135#35745#21010#21333#25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 564 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1272 + Height = 73 + 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 Label3: TLabel + Left = 179 + Top = 22 + Width = 52 + Height = 12 + Caption = #29983#20135#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 = 326 + Top = 22 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 452 + Top = 22 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 745 + Top = 21 + Width = 26 + Height = 12 + Caption = #21305#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label7: TLabel + Left = 819 + Top = 21 + Width = 26 + Height = 12 + Caption = #21592#24037 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 919 + Top = 21 + Width = 26 + Height = 12 + Caption = #36710#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label9: TLabel + Left = 1005 + Top = 21 + Width = 26 + Height = 12 + Caption = #36716#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 179 + Top = 46 + Width = 47 + Height = 12 + Caption = #26465' '#30721 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 75 + Top = 42 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 233 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 354 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Color: TEdit + Tag = 2 + Left = 480 + Top = 18 + Width = 56 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object Button1: TButton + Left = 1162 + Top = 16 + Width = 43 + Height = 21 + Caption = #20316#24223 + TabOrder = 5 + Visible = False + OnClick = Button1Click + end + object Button2: TButton + Left = 1103 + Top = 16 + Width = 44 + Height = 21 + Caption = #20445#23384 + TabOrder = 6 + Visible = False + OnClick = Button2Click + end + object PS: TEdit + Left = 773 + Top = 17 + Width = 35 + Height = 20 + TabOrder = 7 + Visible = False + end + object SCPerson: TBtnEditA + Left = 846 + Top = 17 + Width = 65 + Height = 20 + Hint = 'SCPerson/'#25377#36710#24037 + ReadOnly = True + TabOrder = 8 + Visible = False + OnBtnClick = SCPersonBtnClick + end + object CarNo: TBtnEditA + Left = 946 + Top = 17 + Width = 48 + Height = 20 + Hint = 'CarNo/'#36710#21495 + ReadOnly = True + TabOrder = 9 + Visible = False + OnBtnClick = SCPersonBtnClick + end + object ZhuanQty: TEdit + Left = 1033 + Top = 17 + Width = 51 + Height = 20 + TabOrder = 10 + Visible = False + end + object MainIdTM: TEdit + Tag = 2 + Left = 233 + Top = 42 + Width = 81 + Height = 20 + TabOrder = 11 + OnKeyPress = MainIdTMKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 105 + Width = 690 + Height = 563 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + 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 = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManagePB.SHuangSe + Styles.IncSearch = DataLink_TradeManagePB.SHuangSe + Styles.Selection = DataLink_TradeManagePB.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #29983#20135#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 56 + end + object v1Column8: TcxGridDBColumn + Caption = #33410#25968 + DataBinding.FieldName = 'ConDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 68 + end + object v1Column9: TcxGridDBColumn + Caption = #36710#22411 + DataBinding.FieldName = 'ConDefStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 53 + end + object v1Column1: TcxGridDBColumn + Caption = #36716#25968 + DataBinding.FieldName = 'ZhuanStr' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 53 + end + object v1Column5: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 63 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManagePB.Default + Width = 46 + end + object v1Column6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 46 + end + object v1Column10: TcxGridDBColumn + Caption = #24050#23433#25490#21305#25968 + DataBinding.FieldName = 'APPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 78 + end + object v1Column11: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #27599#21305#37325#37327'(KG)' + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 83 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #24635#37325#37327'(KG)' + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 73 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 690 + Top = 105 + Width = 8 + Height = 563 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel2 + Visible = False + end + object Panel2: TPanel + Left = 698 + Top = 105 + Width = 574 + Height = 563 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + Visible = False + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 570 + Height = 559 + Align = alClient + TabOrder = 0 + Visible = False + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSAnPai + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + Column = cxGridDBColumn2 + 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 + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManagePB.Default + Width = 42 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21592#24037 + DataBinding.FieldName = 'SCPerson' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 51 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'APID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 92 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36710#21495 + DataBinding.FieldName = 'CarNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 43 + end + object v2Column3: TcxGridDBColumn + Caption = #36716#25968 + DataBinding.FieldName = 'ZhuanQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 46 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #23433#25490#26085#26399 + DataBinding.FieldName = 'APDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 77 + end + object v2Column1: TcxGridDBColumn + Caption = #24050#26816#39564 + DataBinding.FieldName = 'JYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 46 + end + object v2Column4: TcxGridDBColumn + Caption = #25171#21360#27425#25968 + DataBinding.FieldName = 'PRTCount' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManagePB.Default + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 536 + Top = 272 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManagePB.ADOLink + Parameters = <> + Left = 448 + Top = 168 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManagePB.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 424 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManagePB.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 168 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 368 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 160 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 288 + Top = 160 + 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 = 336 + Top = 160 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 312 + Top = 160 + 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 = RMDBPRT + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 624 + Top = 264 + ReportData = {} + end + object RMDBPRT: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 528 + Top = 168 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManagePB.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 592 + Top = 176 + end + object DSAnPai: TDataSource + DataSet = CDS_AnPai + Left = 872 + Top = 264 + end + object CDS_AnPai: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 264 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 792 + Top = 224 + end +end diff --git a/贸易管理/U_ClothSCListZDSel.pas b/贸易管理/U_ClothSCListZDSel.pas new file mode 100644 index 0000000..74a9d11 --- /dev/null +++ b/贸易管理/U_ClothSCListZDSel.pas @@ -0,0 +1,880 @@ +unit U_ClothSCListZDSel; + +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, cxCheckBox, BtnEdit; + +type + TfrmClothSCListZDSel = 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; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Color: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + RM2: TRMGridReport; + RMDBPRT: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + cxSplitter1: TcxSplitter; + DSAnPai: TDataSource; + CDS_AnPai: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Button1: TButton; + Button2: TButton; + v2Column2: TcxGridDBColumn; + PS: TEdit; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + SCPerson: TBtnEditA; + CarNo: TBtnEditA; + ZhuanQty: TEdit; + Label9: TLabel; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + Label2: TLabel; + MainIdTM: TEdit; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure conPress(Sender: TObject; var Key: Char); + procedure SCPersonBtnClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure MainIdTMKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothSCListZDSel: TfrmClothSCListZDSel; + +implementation +uses + U_DataLink,U_ClothSCInPut,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothSCListZDSel.FormDestroy(Sender: TObject); +begin + frmClothSCListZDSel:=nil; +end; + +procedure TfrmClothSCListZDSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothSCListZDSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƻ',Tv1,'ָʾ'); + WriteCxGrid('ƻAP',Tv2,'ָʾ'); +end; + +procedure TfrmClothSCListZDSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' + +' and ConType='''' '; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothSCListZDSel.InitForm(); +begin + ReadCxGrid('ƻ',Tv1,'ָʾ'); + ReadCxGrid('ƻAP',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + {if Trim(DParameters1)='Ȩ' then + begin + TBPrintAgn.Visible:=True; + end;} +end; + +procedure TfrmClothSCListZDSel.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 TfrmClothSCListZDSel.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); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothSCInPut.Free; + end; +end; + +procedure TfrmClothSCListZDSel.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Main.fieldbyname('SubId').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 TfrmClothSCListZDSel.DelData():Boolean; +begin +end; + +procedure TfrmClothSCListZDSel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothSCListZDSel.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + //SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+''''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + 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\.rmf'),'ʾ',0); + end; + //SDofilter(ADOQueryMain,''); + //SCreateCDS20(ADOQueryMain,Order_Main); + //SInitCDSData20(ADOQueryMain,Order_Main); + //Order_Main.Locate('ConNoM',FConNoM,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmClothSCListZDSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothSCListZDSel.TBAddClick(Sender: TObject); +begin + try + frmClothSCInPut:=TfrmClothSCInPut.Create(Application); + with frmClothSCInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothSCInPut.Free; + end; +end; + +procedure TfrmClothSCListZDSel.ConNoMChange(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 TfrmClothSCListZDSel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothSCListZDSel.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + 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)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_AnPai); + SInitCDSData20(ADOQueryTemp,CDS_AnPai); +end; + +procedure TfrmClothSCListZDSel.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothSCListZDSel.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmClothSCListZDSel.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); } +end; + +procedure TfrmClothSCListZDSel.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' + +' and ConType='''' '; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothSCListZDSel.SCPersonBtnClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothSCListZDSel.Button2Click(Sender: TObject); +var + FFDS:Integer; +begin + if Trim(PS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(PS.Text),FFDS)=False then + begin + Application.MessageBox('ƥǷ','ʾ',0); + Exit; + end; + if Trim(SCPerson.Text)='' then + begin + Application.MessageBox('ԱΪ!','ʾ',0); + Exit; + end; + if Trim(CarNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ZhuanQty.Text)='' then + begin + Application.MessageBox('תΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(ZhuanQty.Text),FFDS)=False then + begin + Application.MessageBox('תǷ','ʾ',0); + Exit; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Count(*),0) APPS from JYCon_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if (ADOQueryTemp.FieldByName('APPS').AsInteger+strtoint(PS.Text))>Order_Main.fieldbyname('Qty1').AsInteger then + begin + Application.MessageBox('ƥ࣬!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + SaveData(); +end; +function TfrmClothSCListZDSel.SaveData():Boolean; +var + maxno,fPrintFile,TaiQty,TaiQtyMax,TaiQtyMin:String; + i:Integer; + FDate:string; +begin + FDate:=FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + try + ADOQueryCmd.Connection.BeginTrans; + /// + + for i:=1 to StrToInt(PS.Text) do + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYCon_Sub_AnPai',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYCon_Sub_AnPai where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('APId').Value:=Trim(maxno); + FieldByName('SCPerson').Value:=Trim(SCPerson.Text); + FieldByName('CarNo').Value:=Trim(CarNo.Text); + FieldByName('ZhuanQty').Value:=Trim(ZhuanQty.Text); + FieldByName('PRTCount').Value:=1; + FieldByName('APDate').Value:=FDate; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + //¼ӹ + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' select Count(*) TaiQty from '); + sql.Add('(select distinct(CarNo) CarNo from [JYCon_Sub_AnPai] where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+''''); + SQL.Add(' and APDate='''+Trim(FDate)+''') AA'); + //ShowMessage(sql.Text); + Open; + end; + TaiQty:=Trim(ADOQueryCmd.fieldbyname('TaiQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select isnull(Max(DEFFlt1),0) TaiQtyMax,isnull(Min(DEFFlt1),0) TaiQtyMin '); + sql.Add(' from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('TaiQtyMax').AsInteger=0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ӹδ!','ʾ',0); + Exit; + end else + begin + TaiQtyMax:=ADOQueryTemp.fieldbyname('TaiQtyMax').AsString; + TaiQtyMin:=ADOQueryTemp.fieldbyname('TaiQtyMin').AsString; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + sql.Add(' and DEFFlt1='+TaiQty); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYCon_Sub_AnPai Set JGPrice='+ADOQueryTemp.fieldbyname('DEFFlt3').AsString); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+''''); + SQL.Add(' and APDate='''+Trim(FDate)+''''); + ExecSQL; + end; + end else + begin + if StrToInt(TaiQty)'+TaiQty); + sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+''''); + SQL.Add(' and APDate='''+Trim(FDate)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYCon_Sub_AnPai Set JGPrice='); + sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + sql.Add(' and DEFFlt1='+TaiQtyMax); + sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+''''); + SQL.Add(' and APDate='''+Trim(FDate)+''''); + ExecSQL; + end; + end; + end; + //¼ӹ + with CDS_AnPai do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('APId').Value:=Trim(maxno); + FieldByName('SCPerson').Value:=Trim(SCPerson.Text); + FieldByName('CarNo').Value:=Trim(CarNo.Text); + FieldByName('ZhuanQty').Value:=Trim(ZhuanQty.Text); + FieldByName('APDate').Value:=FDate; + FieldByName('PRTCount').Value:=1; + Post; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf'; + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.ConNo ,A.C_CodeName,A.C_Color,A.ConDefStr1,A.ConDefStr2,A.ConDefStr3,A.ConDefStr4, '); + sql.Add(' AA.APID,AA.ZhuanQty,AA.SCPerson,AA.CarNo,A.ConDefStr5,A.KZQty '); + sql.Add(' from JYCon_Sub_AnPai AA'); + sql.Add(' inner join Contract_Sub A on AA.SubId=A.SubId '); + sql.Add(' inner join Contract_Main B on A.MainId=B.MainId '); + sql.Add(' where AA.APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+''''); + Open; + end; + {CDS_AnPai.Edit; + CDS_AnPai.FieldByName('PRTFlag').Value:=1; + CDS_AnPai.FieldByName('PRTCount').Value:=2; + CDS_AnPai.Post;} + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYCon_Sub_AnPai Set PRTFlag=1,PRTCount=2 '); + sql.Add(' where APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; } + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + {RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.ConNo ,A.C_CodeName,A.C_Color,A.ConDefStr1,A.ConDefStr2,A.ConDefStr3,A.ConDefStr4, '); + sql.Add(' AA.APID,AA.ZhuanQty,AA.SCPerson,AA.CarNo '); + sql.Add(' from JYCon_Sub_AnPai AA'); + sql.Add(' inner join Contract_Sub A on AA.SubId=A.SubId '); + sql.Add(' inner join Contract_Main B on A.MainId=B.MainId '); + sql.Add(' where AA.APId='''+Trim(maxno)+''''); + Open; + end; } + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothSCListZDSel.Button1Click(Sender: TObject); +var + TaiQtyMax,TaiQtyMin,TaiQty:string; +begin + if CDS_AnPai.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if CDS_AnPai.Locate('SSel;JYFlag',VarArrayOf([True,True]),[]) then + begin + Application.MessageBox('Ѽ鲻!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_AnPai.DisableControls; + with CDS_AnPai do + begin + while CDS_AnPai.FieldByName('SSel').AsBoolean=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYCon_Sub_AnPai '); + sql.Add(' where APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + //¼ӹ + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' select Count(*) TaiQty from '); + sql.Add('(select distinct(CarNo) CarNo from [JYCon_Sub_AnPai] where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+''''); + SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+''') AA'); + //ShowMessage(sql.Text); + Open; + end; + TaiQty:=Trim(ADOQueryCmd.fieldbyname('TaiQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select isnull(Max(DEFFlt1),0) TaiQtyMax,isnull(Min(DEFFlt1),0) TaiQtyMin '); + sql.Add(' from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('TaiQtyMax').AsInteger=0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_AnPai.EnableControls; + Application.MessageBox('ӹδ!','ʾ',0); + Exit; + end else + begin + TaiQtyMax:=ADOQueryTemp.fieldbyname('TaiQtyMax').AsString; + TaiQtyMin:=ADOQueryTemp.fieldbyname('TaiQtyMin').AsString; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + sql.Add(' and DEFFlt1='+TaiQty); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYCon_Sub_AnPai Set JGPrice='+ADOQueryTemp.fieldbyname('DEFFlt3').AsString); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+''''); + SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+''''); + ExecSQL; + end; + end else + begin + if StrToInt(TaiQty)'+TaiQty); + sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+''''); + SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYCon_Sub_AnPai Set JGPrice='); + sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+''''); + sql.Add(' and DEFFlt1='+TaiQtyMax); + sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+''''); + SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+''''); + ExecSQL; + end; + end; + end; + //¼ӹ + CDS_AnPai.Delete; + end; + end; + CDS_AnPai.EnableControls; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_AnPai.EnableControls; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmClothSCListZDSel.MainIdTMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and substring(OM.MainId,3,10)='''+Trim(MainIdTM.Text)+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MainIdTM.Text:=''; + end; +end; + +procedure TfrmClothSCListZDSel.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/贸易管理/U_ConInPut.dfm b/贸易管理/U_ConInPut.dfm new file mode 100644 index 0000000..19278a6 --- /dev/null +++ b/贸易管理/U_ConInPut.dfm @@ -0,0 +1,1400 @@ +object frmConInPut: TfrmConInPut + Left = 127 + Top = 35 + Width = 957 + Height = 659 + Caption = #22806#38144#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 941 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 941 + Height = 324 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label3: TLabel + Left = 674 + Top = 12 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 674 + Top = 36 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 247 + Top = 36 + Width = 65 + Height = 12 + Caption = #35013#33337#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 463 + Top = 12 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 31 + Top = 12 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 31 + Top = 64 + Width = 65 + Height = 12 + Caption = #20132#26399#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 247 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 31 + Top = 182 + Width = 65 + Height = 12 + Caption = #20844#21496#21488#22836#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 = 674 + Top = 65 + Width = 65 + Height = 12 + Caption = #20215#26684#26415#35821#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 = 463 + Top = 142 + Width = 66 + Height = 12 + Caption = #28322' '#30701' '#35013#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 463 + Top = 66 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 463 + Top = 36 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#22320#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 = 247 + Top = 66 + Width = 65 + Height = 12 + Caption = #36816#36755#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 247 + Top = 182 + Width = 65 + Height = 12 + Caption = #20844#21496#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 674 + Top = 182 + Width = 65 + Height = 12 + Caption = #38134#34892#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 31 + Top = 210 + Width = 66 + Height = 12 + Caption = #24320' '#25143' '#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 463 + Top = 210 + Width = 65 + Height = 12 + Caption = #38134#34892#22320#22336#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 = 71 + Top = 387 + Width = 65 + Height = 12 + Caption = #38134#34892#20195#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 31 + Top = 235 + Width = 67 + Height = 12 + Caption = #30005' '#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 247 + Top = 235 + Width = 67 + Height = 12 + Caption = #20256' '#30495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 63 + Top = 367 + Width = 65 + Height = 12 + Caption = #20013#38388#38134#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 35 + Top = 328 + Width = 65 + Height = 12 + Caption = #25104#20221#32534#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label26: TLabel + Left = 455 + Top = 375 + Width = 66 + Height = 12 + Caption = #21518' '#24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label27: TLabel + Left = 247 + Top = 331 + Width = 65 + Height = 12 + Caption = #25253#20851#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label28: TLabel + Left = 247 + Top = 210 + Width = 65 + Height = 12 + Caption = #38134#34892#20195#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 31 + Top = 39 + Width = 39 + Height = 14 + Caption = 'PO#'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 31 + Top = 347 + Width = 59 + Height = 12 + Caption = #25104#20221'%'#27604#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 31 + Top = 92 + Width = 66 + Height = 12 + Caption = #25910' '#36135' '#20154#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 = 239 + Top = 426 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 247 + Top = 90 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 674 + Top = 90 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 31 + Top = 118 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#20256#30495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 674 + Top = 446 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label34: TLabel + Left = 247 + Top = 142 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#20256#30495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 247 + Top = 116 + Width = 66 + Height = 12 + Caption = #36890' '#30693' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 31 + Top = 142 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 463 + Top = 114 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 463 + Top = 235 + Width = 67 + Height = 12 + Caption = #37038' '#20214#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 31 + Top = 259 + Width = 91 + Height = 12 + Caption = #20844#21496#27880#20876#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 674 + Top = 142 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 31 + Top = 282 + Width = 46 + Height = 12 + Caption = #22791#27880'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 302 + Width = 46 + Height = 12 + Caption = #22791#27880'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 737 + Top = 8 + Width = 136 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 0 + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 737 + Top = 32 + Width = 136 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object ConPerson1: TEdit + Tag = 2 + Left = 526 + Top = 9 + Width = 136 + Height = 18 + TabOrder = 2 + end + object ConNo: TEdit + Tag = 2 + Left = 97 + Top = 9 + Width = 136 + Height = 18 + Enabled = False + TabOrder = 3 + Text = #33258#21160#29983#25104 + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 309 + Top = 32 + Width = 136 + Height = 20 + Hint = 'FromPlace/'#35013#33337#21475#23736 + ReadOnly = True + TabOrder = 4 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 310 + Top = 8 + Width = 136 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 5 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRName: TBtnEditC + Tag = 2 + Left = 97 + Top = 178 + Width = 136 + Height = 20 + Hint = 'SYRName/'#20844#21496#21488#22836 + TabOrder = 6 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PriceNote: TBtnEditC + Tag = 2 + Left = 737 + Top = 61 + Width = 136 + Height = 20 + Hint = 'PriceNote/'#20215#26684#26415#35821 + TabOrder = 7 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object QtyNote: TBtnEditC + Tag = 2 + Left = 529 + Top = 138 + Width = 136 + Height = 20 + Hint = 'QtyNote/'#28322#30701#35013 + TabOrder = 8 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Payment: TBtnEditC + Tag = 2 + Left = 528 + Top = 62 + Width = 133 + Height = 20 + Hint = 'Payment/'#20184#27454#26041#24335 + TabOrder = 9 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 526 + Top = 32 + Width = 136 + Height = 20 + Hint = 'ToPlace/'#30446#30340#22320 + ReadOnly = True + TabOrder = 10 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ShippMent: TBtnEditC + Tag = 2 + Left = 309 + Top = 62 + Width = 136 + Height = 20 + Hint = 'ShippMent/'#36816#36755#26041#24335 + TabOrder = 11 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNo: TBtnEditC + Tag = 2 + Left = 737 + Top = 178 + Width = 136 + Height = 20 + Hint = 'BankNo/'#38134#34892#36134#21495 + TabOrder = 12 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRAddress: TEdit + Tag = 2 + Left = 310 + Top = 179 + Width = 350 + Height = 18 + TabOrder = 13 + end + object BankName: TEdit + Tag = 2 + Left = 97 + Top = 207 + Width = 136 + Height = 18 + TabOrder = 14 + end + object BankAddress: TEdit + Tag = 2 + Left = 526 + Top = 207 + Width = 348 + Height = 18 + TabOrder = 15 + end + object BankFastNo: TEdit + Tag = 2 + Left = 137 + Top = 392 + Width = 352 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 16 + Visible = False + end + object TelNo: TEdit + Tag = 2 + Left = 97 + Top = 232 + Width = 135 + Height = 18 + TabOrder = 17 + end + object FaxNo: TEdit + Tag = 2 + Left = 310 + Top = 232 + Width = 139 + Height = 18 + TabOrder = 18 + end + object DlyNote: TBtnEditC + Tag = 2 + Left = 97 + Top = 60 + Width = 136 + Height = 20 + Hint = 'DlyNote/'#20132#26399#35828#26126 + TabOrder = 19 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MidBank: TBtnEditC + Tag = 2 + Left = 129 + Top = 367 + Width = 352 + Height = 20 + Hint = 'MidBank/'#20013#38388#38134#34892 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 20 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CPTanLi: TCheckBox + Left = 187 + Top = 381 + Width = 58 + Height = 17 + Caption = #24377' '#21147 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 21 + Visible = False + OnClick = CPTanLiClick + end + object CPRanYin: TRadioGroup + Left = 302 + Top = 363 + Width = 140 + Height = 38 + Columns = 3 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #26579#33394 + #21360#33457 + #26080) + ParentFont = False + TabOrder = 22 + Visible = False + OnClick = CPRanYinClick + end + object CPRanHouGY: TBtnEditC + Tag = 2 + Left = 521 + Top = 375 + Width = 136 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 23 + Visible = False + OnChange = CPRanHouGYChange + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = CPRanHouGYBtnUpClick + OnBtnDnClick = CPRanHouGYBtnDnClick + end + object CPType: TRadioGroup + Left = 746 + Top = 363 + Width = 195 + Height = 38 + Columns = 2 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #38024#32455#24067 + #26797#32455#24067) + ParentFont = False + TabOrder = 24 + Visible = False + OnClick = CPTypeClick + end + object CPZHName: TEdit + Tag = 2 + Left = 308 + Top = 336 + Width = 354 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 25 + Visible = False + end + object CPCFNo: TEdit + Tag = 2 + Left = 97 + Top = 324 + Width = 136 + Height = 18 + CharCase = ecUpperCase + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 26 + Visible = False + OnChange = CPCFNoChange + OnDblClick = CPCFNoDblClick + OnKeyPress = CPCFNoKeyPress + end + object BankSelfFastNo: TEdit + Tag = 2 + Left = 310 + Top = 207 + Width = 136 + Height = 18 + TabOrder = 27 + end + object KHConNo: TEdit + Tag = 2 + Left = 97 + Top = 36 + Width = 136 + Height = 18 + TabOrder = 28 + end + object CPCFBi: TEdit + Tag = 2 + Left = 101 + Top = 344 + Width = 136 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 29 + Visible = False + end + object ConPerson2: TBtnEditC + Tag = 2 + Left = 97 + Top = 88 + Width = 136 + Height = 20 + Hint = 'ConPerson2/'#25910#36135#20154 + ReadOnly = True + TabOrder = 30 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object conDefstr1: TEdit + Tag = 2 + Left = 326 + Top = 423 + Width = 115 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 31 + Visible = False + end + object conDefstr2: TEdit + Tag = 2 + Left = 338 + Top = 87 + Width = 323 + Height = 18 + TabOrder = 32 + end + object conDefstr3: TEdit + Tag = 2 + Left = 764 + Top = 87 + Width = 109 + Height = 18 + TabOrder = 33 + end + object conDefstr4: TEdit + Tag = 2 + Left = 118 + Top = 115 + Width = 115 + Height = 18 + TabOrder = 34 + end + object conDefstr8: TEdit + Tag = 2 + Left = 326 + Top = 139 + Width = 119 + Height = 18 + TabOrder = 35 + end + object conDefstr7: TEdit + Tag = 2 + Left = 116 + Top = 139 + Width = 117 + Height = 18 + TabOrder = 36 + end + object conDefstr5: TEdit + Tag = 2 + Left = 758 + Top = 443 + Width = 119 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 37 + Visible = False + end + object ConPerson3: TBtnEditC + Tag = 2 + Left = 310 + Top = 112 + Width = 136 + Height = 20 + Hint = 'ConPerson3/'#36890#30693#20154 + ReadOnly = True + TabOrder = 38 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object conDefstr6: TEdit + Tag = 2 + Left = 550 + Top = 111 + Width = 323 + Height = 18 + TabOrder = 39 + end + object EmailNo: TEdit + Tag = 2 + Left = 526 + Top = 232 + Width = 139 + Height = 18 + TabOrder = 40 + end + object condefNote1: TEdit + Tag = 2 + Left = 120 + Top = 256 + Width = 757 + Height = 18 + TabOrder = 41 + end + object condefstr10: TEdit + Tag = 2 + Left = 737 + Top = 137 + Width = 137 + Height = 18 + Enabled = False + TabOrder = 42 + end + object condefnote2: TEdit + Tag = 2 + Left = 96 + Top = 280 + Width = 781 + Height = 18 + TabOrder = 43 + end + object condefnote3: TEdit + Tag = 2 + Left = 96 + Top = 300 + Width = 781 + Height = 18 + TabOrder = 44 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 353 + Width = 941 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 382 + Width = 941 + Height = 239 + Align = alTop + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end + item + Format = '0' + Position = spFooter + Column = v1Column2 + end + item + Format = '0' + Position = spFooter + Column = v1Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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 + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column5: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #35268#26684#25104#20221 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#33521#25991 + DataBinding.FieldName = 'SOrdDefStr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + Properties.OnEditValueChanged = v1OrderUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTPricePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 64 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #20844#26020#25968#37327 + DataBinding.FieldName = 'KgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 86 + end + object v1Column4: TcxGridDBColumn + Caption = #20844#26020#21333#20215 + DataBinding.FieldName = 'KgPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1008 + Top = 181 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1008 + Top = 141 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1000 + Top = 352 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1016 + Top = 125 + end + object CDS_Type: TClientDataSet + Aggregates = <> + Params = <> + Left = 1084 + Top = 208 + end +end diff --git a/贸易管理/U_ConInPut.pas b/贸易管理/U_ConInPut.pas new file mode 100644 index 0000000..96ef0d1 --- /dev/null +++ b/贸易管理/U_ConInPut.pas @@ -0,0 +1,1631 @@ +unit U_ConInPut; + +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; + +type + TfrmConInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + OrdDate: TDateTimePicker; + Label4: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label9: TLabel; + ConPerson1: TEdit; + Label10: TLabel; + ConNo: TEdit; + Label11: TLabel; + Label14: TLabel; + Label20: TLabel; + FromPlace: TBtnEditC; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + SYRName: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + Label5: TLabel; + PriceNote: TBtnEditC; + Label6: TLabel; + QtyNote: TBtnEditC; + Label15: TLabel; + Payment: TBtnEditC; + Label1: TLabel; + ToPlace: TBtnEditC; + Label16: TLabel; + ShippMent: TBtnEditC; + Label17: TLabel; + Label18: TLabel; + BankNo: TBtnEditC; + SYRAddress: TEdit; + Label19: TLabel; + BankName: TEdit; + Label21: TLabel; + BankAddress: TEdit; + Label22: TLabel; + BankFastNo: TEdit; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label8: TLabel; + TelNo: TEdit; + Label23: TLabel; + FaxNo: TEdit; + Label24: TLabel; + DlyNote: TBtnEditC; + MidBank: TBtnEditC; + Label25: TLabel; + CPTanLi: TCheckBox; + CPRanYin: TRadioGroup; + Label26: TLabel; + CPRanHouGY: TBtnEditC; + CPType: TRadioGroup; + Label27: TLabel; + CPZHName: TEdit; + CDS_Type: TClientDataSet; + CPCFNo: TEdit; + Label28: TLabel; + BankSelfFastNo: TEdit; + Label29: TLabel; + KHConNo: TEdit; + Label30: TLabel; + CPCFBi: TEdit; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ConPerson2: TBtnEditC; + Label2: TLabel; + conDefstr1: TEdit; + Label12: TLabel; + conDefstr2: TEdit; + Label13: TLabel; + Label31: TLabel; + conDefstr3: TEdit; + conDefstr4: TEdit; + Label32: TLabel; + conDefstr8: TEdit; + conDefstr7: TEdit; + Label33: TLabel; + Label34: TLabel; + conDefstr5: TEdit; + ConPerson3: TBtnEditC; + Label35: TLabel; + Label36: TLabel; + Label37: TLabel; + conDefstr6: TEdit; + EmailNo: TEdit; + Label38: TLabel; + Label39: TLabel; + condefNote1: TEdit; + condefstr10: TEdit; + Label40: TLabel; + Label41: TLabel; + Label42: TLabel; + condefnote2: TEdit; + condefnote3: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CPCFNoDblClick(Sender: TObject); + procedure CPCFNoKeyPress(Sender: TObject; var Key: Char); + procedure CPRanHouGYBtnUpClick(Sender: TObject); + procedure CPTanLiClick(Sender: TObject); + procedure CPRanYinClick(Sender: TObject); + procedure CPTypeClick(Sender: TObject); + procedure CPRanHouGYBtnDnClick(Sender: TObject); + procedure CPRanHouGYChange(Sender: TObject); + procedure CPCFNoChange(Sender: TObject); + procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); + procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject); + procedure v1PRTPricePropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FormCreate(Sender: TObject); + private + fusername:string; + procedure InitData(); + + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure GetName(); + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + procedure GetKgQty(); + procedure GetKgPrice(); + { Public declarations } + end; + +var + frmConInPut: TfrmConInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment; + +{$R *.dfm} + +procedure TfrmConInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); +end; + +procedure TfrmConInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Type); + SInitCDSData20(ADOQuery1,CDS_Type); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderCon_Sub '); + if PState=1 then + begin + sql.Add('where MainId='''+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 * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if Trim(ADOQuery1.fieldbyname('CPTanLi').AsString)='' then + begin + CPTanLi.Checked:=True; + end else + begin + CPTanLi.Checked:=False; + end; + + if Trim(ADOQuery1.fieldbyname('CPRanYin').AsString)='Ⱦɫ' then + begin + CPRanYin.ItemIndex:=0; + end else + if Trim(ADOQuery1.fieldbyname('CPRanYin').AsString)='ӡ' then + begin + CPRanYin.ItemIndex:=1; + end else + begin + CPRanYin.ItemIndex:=2; + end; + + if Trim(ADOQuery1.fieldbyname('CPType').AsString)='֯' then + begin + CPType.ItemIndex:=0; + end else + if Trim(ADOQuery1.fieldbyname('CPType').AsString)='֯' then + begin + CPType.ItemIndex:=1; + end; + CPZHName.Text:=Trim(ADOQuery1.fieldbyname('CPZHName').AsString); + SYRName.TxtCode:=Trim(ADOQuery1.fieldbyname('ConDefStr2').AsString); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=SGetServerDateTime(ADOTemp); + ConPerson1.Text:=Trim(DName); + CPZHName.Text:=''; + conNo.Text:='Զ'; + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + ConPerson1.Text:=Trim(DName); + conNo.Text:='Զ'; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmConInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmConInPut.FormShow(Sender: TObject); +begin + fuserName:=DCode; + if (trim(DCode)='A1') or (trim(DCode)='A2') then + begin + fuserName:='A'; + end; + readCxGrid('ָʾ¼',Tv1,'ָʾ'); + InitData(); +end; + +function TfrmConInPut.SaveData():Boolean; +var + maxno:String; + fconNO,fmxType:string; + +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JW','JYOrderCon_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_MaxConNo '); + sql.Add(' @MPRTType='''' '); + open; + end; + IF trim(ADOTemp.FieldByName('maxStr').AsString)='XXX' then + begin + // fmxType:=uppercase('BK'+trim(DCode)+trim(condefstr10.Text)+formatdateTime('yy',DServerDate)); + fmxType:=uppercase('BK'+formatdateTime('yy',DServerDate)); + if GetLSNo(ADOCmd,fconNO,fmxType,'JYOrderCon_Main',3,0)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end + else + fconNO:=trim(ADOTemp.FieldByName('maxStr').AsString); + fconNO:='BK'+trim(fusername)+trim(condefstr10.Text)+Trim(RightBStr(fconNO,Length(fconNO)-2)); + ConNo.Text:=uppercase(fconNO); + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrderCon_Main',ScrollBox1,2); + if CPTanLi.Checked=True then + begin + FieldByName('CPTanLi').Value:=''; + end else + begin + FieldByName('CPTanLi').Value:='޵'; + end; + + if CPRanYin.ItemIndex=0 then + begin + FieldByName('CPRanYin').Value:='Ⱦɫ'; + end else + if CPRanYin.ItemIndex=1 then + begin + FieldByName('CPRanYin').Value:='ӡ' + end else if CPRanYin.ItemIndex=0 then + begin + FieldByName('CPRanYin').Value:=''; + end; + + if CPType.ItemIndex=0 then + begin + FieldByName('CPType').Value:='֯'; + end else + if CPType.ItemIndex=1 then + begin + FieldByName('CPType').Value:='֯'; + end; + // FieldByName('ConDefStr2').Value:=Trim(SYRName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MPRTType').Value:=''; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + FMainId:=Trim(maxno); + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'JB','JYOrderCon_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderCon_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0 + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0 + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmConInPut.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(condefstr10.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmConInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + MainType:=Trim(DName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmConInPut.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + // FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr4').Value:=null; + //FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmConInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmConInPut.CustomerNoNameBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + V1Note.Caption:=''; + fnote:=true; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + condefstr10.Text:=Trim(ClientDataSet1.fieldbyname('note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + condefstr10.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmConInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmConInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with Order_Sub do + begin + Edit; + FieldByName('SLbName').Value:=labname; + FieldByName('SLbInt').Value:=LabInt; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmConInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + mvalue,FMF,FKZ,FXS,FOrdUnit:string; + FReal:Double; +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //FOrdUnit:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + GetKgQty(); + GetKgPrice(); + { if Trim(FOrdUnit)<>'M' then + begin + if Trim(FOrdUnit)<>'Y' then + begin + if Trim(FOrdUnit)='Kg' then + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgQty').Value:=Order_Sub.FieldByName('PRTOrderQty').Value; + end else + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgQty').Value:=null; + end; + Exit; + end; + end; + if Trim(MPRTMF.Text)='' then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)='' then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + FMF:=Copy(Trim(MPRTMF.Text),Pos('/',Trim(MPRTMF.Text))+1,2); + if TryStrToFloat(FMF,FReal)=False then + begin + Application.MessageBox('ŷ¼!','ʾ',0); + Exit; + end; + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + if TryStrToFloat(FKZ,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(FOrdUnit)='M' then + begin + FXS:='1'; + end else + begin + FXS:='0.9144'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('KgQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').Value + *strtofloat(FXS)*strtofloat(FMF)*2.54/100*strtofloat(FKZ)/1000; + //Post; + end; } +end; +procedure TfrmConInPut.GetKgQty(); +var + mvalue,FMF,FKZ,FXS,FOrdUnit,FOrdQty:string; + FReal:Double; +begin +{ FOrdUnit:=Trim(Order_Sub.fieldbyname('OrderUnit').AsString); + if Trim(FOrdUnit)<>'M' then + begin + if Trim(FOrdUnit)<>'Y' then + begin + if Trim(FOrdUnit)='Kg' then + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgQty').Value:=Order_Sub.FieldByName('PRTOrderQty').Value; + end else + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgQty').Value:=null; + end; + Exit; + end; + end; + + + + if Pos('-',Trim(MPRTKZ.Text))>0 then + begin + if Pos('g',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),Pos('-',Trim(MPRTKZ.Text))+1,Pos('g',Trim(MPRTKZ.Text))-Pos('-',Trim(MPRTKZ.Text))-1); + if Pos('G',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),Pos('-',Trim(MPRTKZ.Text))+1,Pos('G',Trim(MPRTKZ.Text))-Pos('-',Trim(MPRTKZ.Text))-1); + end else + begin + if Pos('g',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + if Pos('G',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('G',Trim(MPRTKZ.Text))-1); + end; + if TryStrToFloat(FKZ,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(FOrdUnit)='M' then + begin + FXS:='1'; + end else + begin + FXS:='0.9144'; + end; + FOrdQty:=Order_Sub.fieldbyname('PRTOrderQty').AsString; + if Trim(FOrdQty)='' then + FOrdQty:='0'; + with Order_Sub do + begin + Edit; + FieldByName('KgQty').Value:=strtofloat(FOrdQty) + *strtofloat(FXS)*strtofloat(FMF)*2.54/100*strtofloat(FKZ)/1000; + //Post; + end; } +end; +procedure TfrmConInPut.GetKgPrice(); +var + mvalue,FMF,FKZ,FXS,FOrdUnit,FOrdPrice:string; + FReal:Double; +begin + { FOrdUnit:=Trim(Order_Sub.fieldbyname('OrderUnit').AsString); + if Trim(FOrdUnit)<>'M' then + begin + if Trim(FOrdUnit)<>'Y' then + begin + if Trim(FOrdUnit)='Kg' then + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgPrice').Value:=Order_Sub.FieldByName('PRTPrice').Value; + end else + begin + Order_Sub.Edit; + Order_Sub.FieldByName('KgPrice').Value:=null; + end; + Exit; + end; + end; + if Trim(MPRTMF.Text)='' then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)='' then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + //FMF:=Copy(Trim(MPRTMF.Text),Pos('/',Trim(MPRTMF.Text))+1,2); + if Pos('/',Trim(MPRTMF.Text))>0 then + begin + FMF:=Copy(Trim(MPRTMF.Text),Pos('/',Trim(MPRTMF.Text))+1,2); + end else + FMF:=Copy(Trim(MPRTMF.Text),1,2); + if TryStrToFloat(FMF,FReal)=False then + begin + Application.MessageBox('ŷ¼!','ʾ',0); + Exit; + end; + {FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + if TryStrToFloat(FKZ,FReal)=False then + begin + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('G',Trim(MPRTKZ.Text))-1); + if TryStrToFloat(FKZ,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Pos('-',Trim(MPRTKZ.Text))>0 then + begin + if Pos('g',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),Pos('-',Trim(MPRTKZ.Text))+1,Pos('g',Trim(MPRTKZ.Text))-Pos('-',Trim(MPRTKZ.Text))-1); + if Pos('G',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),Pos('-',Trim(MPRTKZ.Text))+1,Pos('G',Trim(MPRTKZ.Text))-Pos('-',Trim(MPRTKZ.Text))-1); + end else + begin + if Pos('g',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + if Pos('G',Trim(MPRTKZ.Text))>0 then + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('G',Trim(MPRTKZ.Text))-1); + end; + if TryStrToFloat(FKZ,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(FOrdUnit)='M' then + begin + FXS:='1'; + end else + begin + FXS:='0.9144'; + end; + FOrdPrice:=Order_Sub.fieldbyname('PRTPrice').AsString; + if Trim(FOrdPrice)='' then + FOrdPrice:='0'; + with Order_Sub do + begin + Edit; + FieldByName('KgPrice').Value:=1.00/(strtofloat(FXS)*strtofloat(FMF)*2.54/100*strtofloat(FKZ)/1000)*strtofloat(FOrdPrice); + //Post; + end; } +end; + +procedure TfrmConInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='SYRName' then + begin + flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + { if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=false; + TBDel.Visible:=false; + TBSave.Visible:=false; + end; } + end; + if Trim(flag)='BankNo' then + begin + { if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=false; + TBDel.Visible:=false; + TBSave.Visible:=false; + end; } + fnote:=True; + end; + + if ShowModal=1 then + begin + if Trim(flag)<>'OrdDefStr2' then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='BankNo' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where BankNo='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' and MPRTTYpe='''' '); + sql.Add(' order by FillTime desc'); + Open; + Self.BankName.Text:=Trim(ADOTemp.fieldbyname('BankName').AsString); + Self.BankAddress.Text:=Trim(ADOTemp.fieldbyname('BankAddress').AsString); + Self.BankSelfFastNo.Text:=Trim(ADOTemp.fieldbyname('BankSelfFastNo').AsString); + Self.BankFastNo.Text:=Trim(ADOTemp.fieldbyname('BankFastNo').AsString); + Self.MidBank.Text:=Trim(ADOTemp.fieldbyname('MidBank').AsString); + + end; + end; + end + else + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + SYRName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where SYRName='''+Trim(ClientDataSet1.fieldbyname('Note').AsString)+''''); + sql.Add(' and MPRTTYpe='''' '); + sql.Add(' order by FillTime desc'); + Open; + Self.SYRAddress.Text:=Trim(ADOTemp.fieldbyname('SYRAddress').AsString); + Self.TelNo.Text:=Trim(ADOTemp.fieldbyname('TelNo').AsString); + Self.FaxNo.Text:=Trim(ADOTemp.fieldbyname('FaxNo').AsString); + Self.EmailNo.Text:=Trim(ADOTemp.fieldbyname('EmailNo').AsString); + Self.condefNote1.Text:=Trim(ADOTemp.fieldbyname('condefNote1').AsString); + end; + end; + end; + if flag='MPRTMF' then + begin + if Self.Order_Sub.IsEmpty=False then + begin + with Self.Order_Sub do + begin + First; + while not Eof do + begin + GetKgQty(); + GetKgPrice(); + Next; + end; + end; + + end; + end; + if flag='MPRTKZ' then + begin + if Self.Order_Sub.IsEmpty=False then + begin + with Self.Order_Sub do + begin + First; + while not Eof do + begin + GetKgQty(); + GetKgPrice(); + Next; + end; + end; + end; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmConInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmConInPut.CPCFNoDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTNameEngType'; + flagname:='Ʒ'; + V1HelpType.Visible:=True; + V1HelpType.Caption:='д'; + fnote:=True; + V1Name.Caption:='Ӣ'; + V1Note.Caption:='ע'; + if ShowModal=1 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Type); + SInitCDSData20(ADOQuery1,CDS_Type); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.CPCFNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + GetName(); + end; +end; +procedure TfrmConInPut.GetName(); +var + fsj,FCPCF,FCPHZName,fsjhelp:String; + i,j,z:Integer; +begin + if Trim(CPCFNo.Text)='' then + begin + CPZHName.Text:=''; + Exit; + end; + i:=0; + j:=0; + z:=0; + FCPCF:=''; + FCPHZName:=''; + if Trim(CPCFNo.Text)='' then + begin + CPZHName.Text:=''; + end; + fsj:=Trim(CPCFNo.Text); + i:=Pos('/',fsj); + while i>=0 do + begin + fsjhelp:=Copy(fsj,i+1,i+1); + if i>0 then + begin + if Trim(fsjhelp)<>'' then + begin + if Trim(fsjhelp)<>'/' then + begin + FCPCF:=Copy(fsj,1,i-1); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + fsj:=Copy(fsj,i+1,Length(fsj)); + i:=Pos('/',fsj); + j:=1; + z:=1; + end else + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end else + begin + if z<>1 then + i:=0 + else begin + FCPCF:=Copy(fsj,1,i-1); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + fsj:=Copy(fsj,i+1,Length(fsj)); + i:=Pos('/',fsj); + j:=1; + z:=2; + end; + end; + + end else + begin + if j=1 then + begin + if z<>2 then + begin + FCPCF:=Trim(fsj); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + end else + i:=-1; + + end else + begin + FCPCF:=Trim(fsj); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('ZdyName').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + end; + i:=-1; + end; + end; + if CPType.ItemIndex=0 then + FCPHZName:=FCPHZName+'֯'; + if CPTanLi.Checked=True then + FCPHZName:=FCPHZName+''; + if CPRanYin.ItemIndex=0 then + FCPHZName:=FCPHZName+'Ⱦɫ' + else if CPRanYin.ItemIndex=1 then + FCPHZName:=FCPHZName+'ӡ'; + FCPHZName:=FCPHZName+Trim(CPRanHouGY.Text); + {if CPType.ItemIndex=0 then + FCPHZName:=FCPHZName+'֯' + else if CPType.ItemIndex=1 then + FCPHZName:=FCPHZName+''; } + FCPHZName:=FCPHZName+''; + CPZHName.Text:=Trim(FCPHZName); +end; + + +procedure TfrmConInPut.CPRanHouGYBtnUpClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPRanHouGY'; + flagname:=''; + JiangeStr:=99; + if ShowModal=1 then + begin + CPRanHouGY.Text:=Trim(ReturnStr); + GetName(); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmConInPut.CPTanLiClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPut.CPRanYinClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPut.CPTypeClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPut.CPRanHouGYBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; + GetName(); +end; + +procedure TfrmConInPut.CPRanHouGYChange(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPut.CPCFNoChange(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPut.v1PRTOrderQtyPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FMF,FKZ,FXS:string; + FReal:Double; +begin + {if Trim(Order_Sub.FieldByName('OrderUnit').AsString)<>'M' then + begin + if Trim(Order_Sub.FieldByName('OrderUnit').AsString)<>'Y' then Exit; + end; + if Trim(MPRTMF.Text)='' then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)='' then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + FMF:=Copy(Trim(MPRTMF.Text),Pos('/',Trim(MPRTMF.Text))+1,2); + if TryStrToFloat(FMF,FReal)=False then + begin + Application.MessageBox('ŷ¼!','ʾ',0); + Exit; + end; + FKZ:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + if TryStrToFloat(FKZ,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.FieldByName('OrderUnit').AsString)='M' then + begin + FXS:='1'; + end else + begin + FXS:='0.9144'; + end; } + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName('PRTOrderQty').Value:=mvalue; + Post; + end; + {with Order_Sub do + begin + Edit; + FieldByName('KgQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').Value + *strtofloat(FXS)*strtofloat(FMF)*2.54/100*strtofloat(FKZ)/1000; + Post; + end; } + GetKgQty(); +end; + +procedure TfrmConInPut.v1OrderUnitPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxButtonEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('OrderUnit').Value:=mvalue; + Post; + end; + GetKgQty(); + GetKgPrice(); +end; + +procedure TfrmConInPut.v1PRTPricePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName('PRTPrice').Value:=mvalue; + Post; + end; + GetKgPrice(); +end; + +procedure TfrmConInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmConInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTMF'; + flagname:='ŷϢ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmConInPut.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTKZ'; + flagname:='Ϣ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmConInPut.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alclient; +end; + +end. diff --git a/贸易管理/U_ConInPutNX.dfm b/贸易管理/U_ConInPutNX.dfm new file mode 100644 index 0000000..1788829 --- /dev/null +++ b/贸易管理/U_ConInPutNX.dfm @@ -0,0 +1,1292 @@ +object frmConInPutNX: TfrmConInPutNX + Left = 315 + Top = 35 + Width = 1000 + Height = 664 + Caption = #20869#38144#21512#21516#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 = 984 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 984 + Height = 304 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label3: TLabel + Left = 247 + Top = 42 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 675 + Top = 42 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 463 + Top = 42 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 463 + Top = 12 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 34 + Top = 12 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 98 + Top = 334 + Width = 65 + Height = 12 + Caption = #20132#26399#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 247 + Top = 12 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 675 + Top = 12 + Width = 72 + Height = 12 + Caption = #20379#26041'/'#25260#22836#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 = 27 + Top = 310 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label6: TLabel + Left = 463 + Top = 71 + Width = 66 + Height = 12 + Caption = #28322' '#30701' '#35013#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 = 595 + Top = 364 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 663 + Top = 332 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 34 + Top = 132 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 34 + Top = 101 + Width = 65 + Height = 12 + Caption = #20132#36135#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 35 + Top = 162 + Width = 65 + Height = 12 + Caption = #20379#26041#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 35 + Top = 192 + Width = 65 + Height = 12 + Caption = #20379#26041#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 247 + Top = 192 + Width = 78 + Height = 12 + Caption = #20379#26041#24320#25143#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 462 + Top = 190 + Width = 65 + Height = 12 + Caption = #38656#26041#22320#22336#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 = 462 + Top = 160 + Width = 65 + Height = 12 + Caption = #20379#26041#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 675 + Top = 160 + Width = 65 + Height = 12 + Caption = #20379#26041#20256#30495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 30 + Top = 379 + Width = 65 + Height = 12 + Caption = #25104#20221#32534#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label26: TLabel + Left = 459 + Top = 398 + Width = 66 + Height = 12 + Caption = #21518' '#24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label27: TLabel + Left = 249 + Top = 418 + Width = 65 + Height = 12 + Caption = #25253#20851#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 71 + Width = 65 + Height = 12 + Caption = #36136#37327#35201#27714#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 = 247 + Top = 101 + Width = 104 + Height = 12 + Caption = #36816#36755#26041#24335#21450#36153#29992#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 463 + Top = 101 + Width = 65 + Height = 12 + Caption = #39564#25910#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 463 + Top = 132 + Width = 65 + Height = 12 + Caption = #20854#20182#20107#39033#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 = 35 + Top = 222 + Width = 65 + Height = 12 + Caption = #38656#26041#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 247 + Top = 222 + Width = 65 + Height = 12 + Caption = #38656#26041#20256#30495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 34 + Top = 332 + Width = 65 + Height = 12 + Caption = #35268#26684#22411#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label31: TLabel + Left = 35 + Top = 250 + 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 Label32: TLabel + Left = 30 + Top = 349 + Width = 65 + Height = 12 + Caption = #31169#20154#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label33: TLabel + Left = 30 + Top = 410 + Width = 59 + Height = 12 + Caption = #25104#20221'%'#27604#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label34: TLabel + Left = 34 + Top = 39 + 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 Label35: TLabel + Left = 463 + Top = 222 + Width = 65 + Height = 12 + Caption = #38656#26041#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 675 + Top = 218 + Width = 78 + Height = 12 + Caption = #38656#26041#24320#25143#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 35 + Top = 278 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 310 + Top = 38 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 0 + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 738 + Top = 38 + Width = 138 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object ConPerson1: TEdit + Tag = 2 + Left = 526 + Top = 9 + Width = 136 + Height = 18 + TabOrder = 2 + end + object ConNo: TEdit + Tag = 2 + Left = 97 + Top = 9 + Width = 136 + Height = 18 + Enabled = False + TabOrder = 3 + Text = #33258#21160#29983#25104 + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 526 + Top = 38 + Width = 140 + Height = 20 + Hint = 'QianDPlace/'#31614#35746#22320#28857 + ReadOnly = True + TabOrder = 4 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 310 + Top = 8 + Width = 140 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 5 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRName: TBtnEditC + Tag = 2 + Left = 737 + Top = 8 + Width = 136 + Height = 20 + Hint = 'SYRName/'#20379#26041 + TabOrder = 6 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 93 + Top = 430 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + Visible = False + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object QtyNote: TBtnEditC + Tag = 2 + Left = 526 + Top = 67 + Width = 347 + Height = 20 + Hint = 'QtyNoteZW/'#28322#30701#35013 + TabOrder = 8 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 666 + Top = 360 + Width = 136 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 725 + Top = 328 + Width = 136 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 10 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Payment: TBtnEditC + Tag = 2 + Left = 97 + Top = 128 + Width = 351 + Height = 20 + Hint = 'PaymentZW/'#20184#27454#26041#24335 + TabOrder = 11 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ShippMent: TBtnEditC + Tag = 2 + Left = 97 + Top = 97 + Width = 136 + Height = 20 + Hint = 'ShippMentZW/'#36816#36755#26041#24335 + TabOrder = 12 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNo: TBtnEditC + Tag = 2 + Left = 98 + Top = 188 + Width = 136 + Height = 20 + Hint = 'BankNo/'#38134#34892#36134#21495 + TabOrder = 13 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRAddress: TEdit + Tag = 2 + Left = 98 + Top = 159 + Width = 347 + Height = 18 + TabOrder = 14 + end + object BankName: TEdit + Tag = 2 + Left = 309 + Top = 189 + Width = 136 + Height = 18 + TabOrder = 15 + end + object CTMAddress: TEdit + Tag = 2 + Left = 525 + Top = 187 + Width = 351 + Height = 18 + TabOrder = 16 + end + object TelNo: TEdit + Tag = 2 + Left = 525 + Top = 157 + Width = 136 + Height = 18 + TabOrder = 17 + end + object FaxNo: TEdit + Tag = 2 + Left = 738 + Top = 157 + Width = 138 + Height = 18 + TabOrder = 18 + end + object DlyNote: TBtnEditC + Tag = 2 + Left = 157 + Top = 330 + Width = 256 + Height = 20 + Hint = 'DlyNoteZW/'#20132#26399#35828#26126 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 19 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CPTanLi: TCheckBox + Left = 241 + Top = 396 + Width = 58 + Height = 17 + Caption = #24377' '#21147 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 20 + Visible = False + OnClick = CPTanLiClick + end + object CPRanYin: TRadioGroup + Left = 308 + Top = 370 + Width = 140 + Height = 38 + Columns = 3 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #26579#33394 + #21360#33457 + #26080) + ParentFont = False + TabOrder = 21 + Visible = False + OnClick = CPRanYinClick + end + object CPRanHouGY: TBtnEditC + Tag = 2 + Left = 522 + Top = 394 + Width = 136 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 22 + Visible = False + OnChange = CPRanHouGYChange + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = CPRanHouGYBtnUpClick + OnBtnDnClick = CPRanHouGYBtnDnClick + end + object CPType: TRadioGroup + Left = 682 + Top = 382 + Width = 195 + Height = 38 + Columns = 2 + Font.Charset = GB2312_CHARSET + Font.Color = clTeal + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #38024#32455#24067 + #26797#32455#24067) + ParentFont = False + TabOrder = 23 + Visible = False + OnClick = CPTypeClick + end + object CPZHName: TEdit + Tag = 2 + Left = 312 + Top = 415 + Width = 357 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 24 + Visible = False + end + object CPCFNo: TEdit + Tag = 2 + Left = 93 + Top = 375 + Width = 136 + Height = 18 + CharCase = ecUpperCase + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 25 + Visible = False + OnChange = CPCFNoChange + OnDblClick = CPCFNoDblClick + OnKeyPress = CPCFNoKeyPress + end + object ZhiLiangNote: TBtnEditC + Tag = 2 + Left = 97 + Top = 67 + Width = 353 + Height = 20 + Hint = 'ZhiLiangNote/'#36136#37327#35201#27714 + TabOrder = 26 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ChuanYangNote: TBtnEditC + Tag = 2 + Left = 348 + Top = 97 + Width = 101 + Height = 20 + Hint = 'ChuanYangNote/'#33337#26679#35828#26126 + TabOrder = 27 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YSBiaoZhunNote: TBtnEditC + Tag = 2 + Left = 526 + Top = 97 + Width = 347 + Height = 20 + Hint = 'YSBiaoZhunNote/'#39564#25910#26631#20934 + TabOrder = 28 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OtherNote: TBtnEditC + Tag = 2 + Left = 526 + Top = 128 + Width = 347 + Height = 20 + Hint = 'OtherNote/'#20854#20182#20107#39033 + TabOrder = 29 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CTMTelNo: TEdit + Tag = 2 + Left = 98 + Top = 218 + Width = 136 + Height = 18 + TabOrder = 30 + end + object CTMFaxNo: TEdit + Tag = 2 + Left = 309 + Top = 218 + Width = 136 + Height = 18 + TabOrder = 31 + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 349 + Top = 316 + Width = 353 + Height = 20 + Hint = 'MPRTSpecNX/'#35268#26684#22411#21495 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 32 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TBtnEditC + Tag = 2 + Left = 98 + Top = 246 + Width = 779 + Height = 20 + Hint = 'ConNote/'#22791#27880 + TabOrder = 33 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SelfBankNo: TBtnEditC + Tag = 2 + Left = 201 + Top = 354 + Width = 352 + Height = 20 + Hint = 'SelfBankNo/'#31169#20154#36134#21495 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 34 + Visible = False + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CPCFBi: TEdit + Tag = 2 + Left = 93 + Top = 407 + Width = 136 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 35 + Visible = False + end + object KHConNo: TEdit + Tag = 2 + Left = 97 + Top = 36 + Width = 136 + Height = 18 + TabOrder = 36 + end + object CTMBankNo: TBtnEditC + Tag = 2 + Left = 526 + Top = 218 + Width = 136 + Height = 20 + Hint = 'CTMBankNo/'#38134#34892#36134#21495 + TabOrder = 37 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CTMBankName: TEdit + Tag = 2 + Left = 741 + Top = 214 + Width = 136 + Height = 18 + TabOrder = 38 + end + object condefstr10: TEdit + Tag = 2 + Left = 98 + Top = 272 + Width = 137 + Height = 18 + Enabled = False + TabOrder = 39 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 333 + Width = 984 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 362 + Width = 984 + Height = 264 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column4: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'prtspec' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#33521#25991 + DataBinding.FieldName = 'SOrdDefStr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'prtmf' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'prtkz' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 59 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 68 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 113 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1008 + Top = 181 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1008 + Top = 141 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1000 + Top = 352 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1016 + Top = 125 + end + object CDS_Type: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 488 + end +end diff --git a/贸易管理/U_ConInPutNX.pas b/贸易管理/U_ConInPutNX.pas new file mode 100644 index 0000000..e3c376d --- /dev/null +++ b/贸易管理/U_ConInPutNX.pas @@ -0,0 +1,1315 @@ +unit U_ConInPutNX; + +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; + +type + TfrmConInPutNX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + OrdDate: TDateTimePicker; + Label4: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label9: TLabel; + ConPerson1: TEdit; + Label10: TLabel; + ConNo: TEdit; + Label11: TLabel; + Label14: TLabel; + Label20: TLabel; + FromPlace: TBtnEditC; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + SYRName: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label6: TLabel; + QtyNote: TBtnEditC; + Label12: TLabel; + MPRTMF: TBtnEditC; + Label13: TLabel; + MPRTKZ: TBtnEditC; + Label15: TLabel; + Payment: TBtnEditC; + Label1: TLabel; + ShippMent: TBtnEditC; + Label17: TLabel; + Label18: TLabel; + BankNo: TBtnEditC; + SYRAddress: TEdit; + Label19: TLabel; + BankName: TEdit; + Label21: TLabel; + CTMAddress: TEdit; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label8: TLabel; + TelNo: TEdit; + Label23: TLabel; + FaxNo: TEdit; + DlyNote: TBtnEditC; + Label25: TLabel; + CPTanLi: TCheckBox; + CPRanYin: TRadioGroup; + Label26: TLabel; + CPRanHouGY: TBtnEditC; + CPType: TRadioGroup; + Label27: TLabel; + CPZHName: TEdit; + CDS_Type: TClientDataSet; + CPCFNo: TEdit; + Label5: TLabel; + ZhiLiangNote: TBtnEditC; + Label16: TLabel; + ChuanYangNote: TBtnEditC; + Label28: TLabel; + YSBiaoZhunNote: TBtnEditC; + Label29: TLabel; + OtherNote: TBtnEditC; + Label22: TLabel; + Label24: TLabel; + CTMTelNo: TEdit; + CTMFaxNo: TEdit; + Label30: TLabel; + MPRTSpec: TBtnEditC; + Label31: TLabel; + Note: TBtnEditC; + Label32: TLabel; + SelfBankNo: TBtnEditC; + Label33: TLabel; + CPCFBi: TEdit; + Label34: TLabel; + KHConNo: TEdit; + Label35: TLabel; + CTMBankNo: TBtnEditC; + Label36: TLabel; + CTMBankName: TEdit; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + Label37: TLabel; + condefstr10: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MPRTCodeNameBtnUpClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CPCFNoDblClick(Sender: TObject); + procedure CPCFNoKeyPress(Sender: TObject; var Key: Char); + procedure CPRanHouGYBtnUpClick(Sender: TObject); + procedure CPTanLiClick(Sender: TObject); + procedure CPRanYinClick(Sender: TObject); + procedure CPTypeClick(Sender: TObject); + procedure CPRanHouGYBtnDnClick(Sender: TObject); + procedure CPRanHouGYChange(Sender: TObject); + procedure CPCFNoChange(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + fuserName:string; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure GetName(); + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmConInPutNX: TfrmConInPutNX; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment; + +{$R *.dfm} + +procedure TfrmConInPutNX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ¼',Tv1,'ָʾ'); +end; + +procedure TfrmConInPutNX.InitData(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Type); + SInitCDSData20(ADOQuery1,CDS_Type); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderCon_Sub '); + if PState=1 then + begin + sql.Add('where MainId='''+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 * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if Trim(ADOQuery1.fieldbyname('CPTanLi').AsString)='' then + begin + CPTanLi.Checked:=True; + end else + begin + CPTanLi.Checked:=False; + end; + + if Trim(ADOQuery1.fieldbyname('CPRanYin').AsString)='Ⱦɫ' then + begin + CPRanYin.ItemIndex:=0; + end else + if Trim(ADOQuery1.fieldbyname('CPRanYin').AsString)='ӡ' then + begin + CPRanYin.ItemIndex:=1; + end else + begin + CPRanYin.ItemIndex:=2; + end; + + if Trim(ADOQuery1.fieldbyname('CPType').AsString)='֯' then + begin + CPType.ItemIndex:=0; + end else + if Trim(ADOQuery1.fieldbyname('CPType').AsString)='֯' then + begin + CPType.ItemIndex:=1; + end; + CPZHName.Text:=Trim(ADOQuery1.fieldbyname('CPZHName').AsString); + SYRName.TxtCode:=Trim(ADOQuery1.fieldbyname('ConDefStr2').AsString); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=SGetServerDateTime(ADOTemp); + ConPerson1.Text:=Trim(DName); + CPZHName.Text:=''; + ConNo.Text:='Զ'; + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + ConPerson1.Text:=Trim(DName); + ConNo.Text:='Զ'; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmConInPutNX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmConInPutNX.FormShow(Sender: TObject); +begin + fuserName:=DCode; + if (trim(DCode)='A1') or (trim(DCode)='A2') then + begin + fuserName:='A'; + end; + readCxGrid('ͬ¼',Tv1,'ָʾ'); + InitData(); +end; + +function TfrmConInPutNX.SaveData():Boolean; +var + maxno:String; + fconNO,fmxType:string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JN','JYOrderCon_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_MaxConNo '); + sql.Add(' @MPRTType='''' '); + open; + end; + IF trim(ADOTemp.FieldByName('maxStr').AsString)='XXX' then + begin + //fmxType:=uppercase('BQ'+trim(DCode)+trim(condefstr10.Text)+formatdateTime('yy',DServerDate)); + fmxType:=uppercase('BQ'+formatdateTime('yy',DServerDate)); + if GetLSNo(ADOCmd,fconNO,fmxType,'JYOrderCon_Main',3,0)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end + else + fconNO:=trim(ADOTemp.FieldByName('maxStr').AsString); + + fconNO:='BQ'+trim(fuserName)+trim(condefstr10.Text)+Trim(RightBStr(fconNO,Length(fconNO)-2)); + ConNo.Text:=uppercase(fconNO); + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrderCon_Main',ScrollBox1,2); + if CPTanLi.Checked=True then + begin + FieldByName('CPTanLi').Value:=''; + end else + begin + FieldByName('CPTanLi').Value:='޵'; + end; + + if CPRanYin.ItemIndex=0 then + begin + FieldByName('CPRanYin').Value:='Ⱦɫ'; + end else + if CPRanYin.ItemIndex=1 then + begin + FieldByName('CPRanYin').Value:='ӡ' + end else if CPRanYin.ItemIndex=0 then + begin + FieldByName('CPRanYin').Value:=''; + end; + + if CPType.ItemIndex=0 then + begin + FieldByName('CPType').Value:='֯'; + end else + if CPType.ItemIndex=1 then + begin + FieldByName('CPType').Value:='֯'; + end; + FieldByName('ConDefStr2').Value:=Trim(SYRName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MPRTType').Value:=''; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + FMainId:=Trim(maxno); + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'JB','JYOrderCon_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderCon_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0 + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0 + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + + + ADOCmd.Connection.CommitTrans; + Result:=True; + except + + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Result:=False; + end; +end; +function TfrmConInPutNX.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Result:=False; + end; +end; +function TfrmConInPutNX.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmConInPutNX.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmConInPutNX.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(condefstr10.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmConInPutNX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + MainType:=Trim(DName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + // FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr4').Value:=null; + //FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmConInPutNX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmConInPutNX.CustomerNoNameBtnUpClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoNameNX'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + V1Note.Caption:=''; + fnote:=true; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + condefstr10.Text:=Trim(ClientDataSet1.fieldbyname('note').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where CustomerNoName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + Self.CTMAddress.Text:=Trim(ADOTemp.fieldbyname('CTMAddress').AsString); + Self.CTMTelNo.Text:=Trim(ADOTemp.fieldbyname('CTMTelNo').AsString); + Self.CTMFaxNo.Text:=Trim(ADOTemp.fieldbyname('CTMFaxNo').AsString); + Self.CTMbankNo.Text:=Trim(ADOTemp.fieldbyname('CTMbankNo').AsString); + Self.CTMbankName.Text:=Trim(ADOTemp.fieldbyname('CTMbankName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end;} + + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + condefstr10.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where CustomerNoName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + Self.CTMAddress.Text:=Trim(ADOTemp.fieldbyname('CTMAddress').AsString); + Self.CTMTelNo.Text:=Trim(ADOTemp.fieldbyname('CTMTelNo').AsString); + Self.CTMFaxNo.Text:=Trim(ADOTemp.fieldbyname('CTMFaxNo').AsString); + Self.CTMbankNo.Text:=Trim(ADOTemp.fieldbyname('CTMbankNo').AsString); + Self.CTMbankName.Text:=Trim(ADOTemp.fieldbyname('CTMbankName').AsString); + end; + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmConInPutNX.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmConInPutNX.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with Order_Sub do + begin + Edit; + FieldByName('SLbName').Value:=labname; + FieldByName('SLbInt').Value:=LabInt; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmConInPutNX.MPRTCodeNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeNameNX'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + MPRTCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + MPRTCodeName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='SYRName' then + begin + flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + { if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=false; + TBDel.Visible:=false; + TBSave.Visible:=false; + end; } + end; + if Trim(flag)='BankNo' then + begin + { if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=false; + TBDel.Visible:=false; + TBSave.Visible:=false; + end; } + fnote:=True; + end; + + if ShowModal=1 then + begin + if Trim(flag)<>'OrdDefStr2' then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='BankNo' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where BankNo='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' and MPRTTYpe='''' '); + sql.Add(' order by FillTime desc'); + Open; + Self.BankName.Text:=Trim(ADOTemp.fieldbyname('BankName').AsString); + //Self.BankAddress.Text:=Trim(ADOTemp.fieldbyname('BankAddress').AsString); + //Self.BankFastNo.Text:=Trim(ADOTemp.fieldbyname('BankFastNo').AsString); + end; + end; + end + else + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //SYRName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where SYRName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' and MPRTTYpe='''' '); + sql.Add(' order by FillTime desc'); + Open; + Self.SYRAddress.Text:=Trim(ADOTemp.fieldbyname('SYRAddress').AsString); + Self.TelNo.Text:=Trim(ADOTemp.fieldbyname('TelNo').AsString); + Self.FaxNo.Text:=Trim(ADOTemp.fieldbyname('FaxNo').AsString); + end; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmConInPutNX.CPCFNoDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTNameType'; + flagname:='Ʒ'; + V1HelpType.Visible:=True; + V1HelpType.Caption:='д'; + fnote:=True; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Type); + SInitCDSData20(ADOQuery1,CDS_Type); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPutNX.CPCFNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + GetName(); + end; +end; +procedure TfrmConInPutNX.GetName(); +var + fsj,FCPCF,FCPHZName,fsjhelp:String; + i,j,z:Integer; +begin + if Trim(CPCFNo.Text)='' then + begin + CPZHName.Text:=''; + Exit; + end; + i:=0; + j:=0; + z:=0; + FCPCF:=''; + FCPHZName:=''; + if Trim(CPCFNo.Text)='' then + begin + CPZHName.Text:=''; + end; + fsj:=Trim(CPCFNo.Text); + i:=Pos('/',fsj); + while i>=0 do + begin + fsjhelp:=Copy(fsj,i+1,i+1); + if i>0 then + begin + if Trim(fsjhelp)<>'' then + begin + if Trim(fsjhelp)<>'/' then + begin + FCPCF:=Copy(fsj,1,i-1); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + fsj:=Copy(fsj,i+1,Length(fsj)); + i:=Pos('/',fsj); + j:=1; + z:=1; + end else + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end else + begin + if z<>1 then + i:=0 + else begin + FCPCF:=Copy(fsj,1,i-1); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + fsj:=Copy(fsj,i+1,Length(fsj)); + i:=Pos('/',fsj); + j:=1; + z:=2; + end; + end; + + end else + begin + if j=1 then + begin + if z<>2 then + begin + FCPCF:=Trim(fsj); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('HelpType').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + end else + i:=-1; + + end else + begin + FCPCF:=Trim(fsj); + if CDS_Type.Locate('Note',Trim(FCPCF),[]) then + begin + FCPCF:=Trim(CDS_Type.fieldbyname('ZdyName').AsString); + FCPHZName:=FCPHZName+FCPCF; + end; + + + end; + i:=-1; + end; + end; + if CPType.ItemIndex=0 then + FCPHZName:=FCPHZName+'֯'; + if CPTanLi.Checked=True then + FCPHZName:=FCPHZName+''; + if CPRanYin.ItemIndex=0 then + FCPHZName:=FCPHZName+'Ⱦɫ' + else if CPRanYin.ItemIndex=1 then + FCPHZName:=FCPHZName+'ӡ'; + FCPHZName:=FCPHZName+Trim(CPRanHouGY.Text); + {if CPType.ItemIndex=0 then + FCPHZName:=FCPHZName+'֯' + else if CPType.ItemIndex=1 then + FCPHZName:=FCPHZName+'';} + FCPHZName:=FCPHZName+''; + CPZHName.Text:=Trim(FCPHZName); +end; + + +procedure TfrmConInPutNX.CPRanHouGYBtnUpClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPRanHouGY'; + flagname:=''; + JiangeStr:=99; + if ShowModal=1 then + begin + CPRanHouGY.Text:=Trim(ReturnStr); + GetName(); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmConInPutNX.CPTanLiClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPutNX.CPRanYinClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPutNX.CPTypeClick(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPutNX.CPRanHouGYBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; + GetName(); +end; + +procedure TfrmConInPutNX.CPRanHouGYChange(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPutNX.CPCFNoChange(Sender: TObject); +begin + GetName(); +end; + +procedure TfrmConInPutNX.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmConInPutNX.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTMF'; + flagname:='ŷϢ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmConInPutNX.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTKZ'; + flagname:='Ϣ'; + if ShowModal=1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/贸易管理/U_ContractList.dfm b/贸易管理/U_ContractList.dfm new file mode 100644 index 0000000..9768395 --- /dev/null +++ b/贸易管理/U_ContractList.dfm @@ -0,0 +1,1031 @@ +object frmContractList: TfrmContractList + Left = 103 + Top = 116 + Width = 1263 + Height = 667 + Caption = #35746#21333#21512#21516 + 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 = 1247 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + Caption = #20135#21697#31867#21035#23450#20041 + ImageIndex = 58 + Visible = False + OnClick = ToolButton4Click + end + object TBAdd: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 296 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Wrap = True + Visible = False + OnClick = TnochkClick + end + object TQX: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21512#21516#21462#28040 + ImageIndex = 41 + OnClick = TQXClick + end + object TNOQX: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #25764#38144#21512#21516#21462#28040 + ImageIndex = 86 + OnClick = TNOQXClick + end + object TBExport: TToolButton + Left = 198 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 261 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 324 + Top = 30 + AutoSize = True + Caption = #21512#21516#38468#20214 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object ComboBox1: TComboBox + Left = 411 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + object TBClose: TToolButton + Left = 556 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 127 + Width = 1247 + Height = 276 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1ConMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.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 + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1Column3: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Width = 119 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ConPerson1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 102 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 120 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #20132#26399#35828#26126 + DataBinding.FieldName = 'DlyNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20215#26684#26415#35821 + DataBinding.FieldName = 'PriceNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V1ISCG: TcxGridDBColumn + Caption = #22383#24067#26159#21542#24050#37319#36141 + DataBinding.FieldName = 'ISCG' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column9: TcxGridDBColumn + DataBinding.FieldName = 'status' + Visible = False + Hidden = True + end + object v1Column10: TcxGridDBColumn + Caption = #21512#21516#38468#20214 + DataBinding.FieldName = 'ISSC' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1ConMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ConMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = FoneRed + Styles.Footer = FoneRed + Styles.Header = FoneRed + Width = 105 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1247 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + 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 = 295 + Top = 15 + Width = 40 + 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 Label5: TLabel + Left = 658 + Top = 15 + Width = 53 + 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 = 458 + Top = 87 + Width = 52 + Height = 12 + Caption = #33521#25991#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 = 471 + 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 = 335 + Top = 83 + 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 = 335 + Top = 107 + 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 = 164 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 846 + 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 = 1064 + Top = 16 + Width = 54 + Height = 12 + Caption = #38144#21806#39069#65306'0' + 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 = 172 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 343 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object ConPerson1: TEdit + Tag = 2 + Left = 719 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 511 + Top = 83 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 516 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object MPRTKZ: TEdit + Tag = 2 + Left = 364 + Top = 79 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 364 + Top = 103 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + object KHConNO: TEdit + Tag = 2 + Left = 875 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1247 + Height = 22 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #24050#21462#28040 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1247 + ClientRectTop = 19 + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 418 + Width = 1247 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 426 + Width = 1247 + Height = 203 + Align = alBottom + TabOrder = 5 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn3 + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn3 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column5: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #35268#26684#25104#20221 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTColor: 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_TradeManage.handBlack + Width = 90 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #39068#33394#33521#25991 + DataBinding.FieldName = 'SOrdDefStr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 64 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 87 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20844#26020#25968#37327 + DataBinding.FieldName = 'KgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 86 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20844#26020#21333#20215 + DataBinding.FieldName = 'KgPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 316 + Top = 232 + 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, 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 = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object PopupMenu2: TPopupMenu + Left = 648 + Top = 168 + object N11: TMenuItem + Caption = #26684#24335'1' + end + object N21: TMenuItem + Caption = #26684#24335'2' + end + object N31: TMenuItem + Caption = #26684#24335'3' + end + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 488 + Top = 440 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + 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 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clLime + end + end +end diff --git a/贸易管理/U_ContractList.pas b/贸易管理/U_ContractList.pas new file mode 100644 index 0000000..fcc5401 --- /dev/null +++ b/贸易管理/U_ContractList.pas @@ -0,0 +1,991 @@ +unit U_ContractList; + +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, cxTextEdit; + +type + TfrmContractList = 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; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + PopupMenu2: TPopupMenu; + N11: TMenuItem; + N21: TMenuItem; + N31: TMenuItem; + 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; + ComboBox1: TComboBox; + ToolButton4: TToolButton; + Label2: TLabel; + v1Column3: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + V1ISCG: TcxGridDBColumn; + KHConNO: TEdit; + Label3: TLabel; + TQX: TToolButton; + TNOQX: TToolButton; + ToolButton3: TToolButton; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + v1ConMoney: TcxGridDBColumn; + 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; + cxStyle1: TcxStyle; + v1Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure 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 Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TQXClick(Sender: TObject); + procedure TNOQXClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + DQdate:TDateTime; + fuserName:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure SetStatus(); + procedure InitSub(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractList: TfrmContractList; + +implementation +uses + U_DataLink,U_ConInPut,U_Fun,U_ZDYHelp, U_FjList_RZ; + +{$R *.dfm} +procedure TfrmContractList.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderCon_sub '); + sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + open; + end; +end; +procedure TfrmContractList.SetStatus(); +begin + + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + Tqx.Visible:=false; + TNoqx.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + IF trim(DCode)<>'A2' then + begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + Tqx.Visible:=true; + end; + 1:begin + Tqx.Visible:=true; + end; + 2:begin + TNoqx.Visible:=true; + end; + 3:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + Tqx.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + Tqx.Visible:=true; + end; + 2:begin + TNoqx.Visible:=true; + end; + 3:begin + // TNoqx.Visible:=true; + end; + end; + end; + +end; + +procedure TfrmContractList.FormDestroy(Sender: TObject); +begin + frmContractList:=nil; +end; + +procedure TfrmContractList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ͬб',Tv1,'ָʾ') + else + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,A.ConNo ConNoM '); + SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then '''' else '''' end as IScg '); + sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.maiNID and X.TFType=''ͬ''),0)>0 then 1 else 0 end) as bit)'); + sql.Add(' from JYOrderCon_Main A '); + // sql.Add(' left join Contract_Main B on B.conNO=A.conNo '); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + sql.Add(' and A.MPRTType='''' '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + IF cxTabControl1.TabIndex<3 then + begin + sql.Add(' and isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmContractList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractList.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ͬб',Tv1,'ָʾ') + else + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + // v1PRTPrice.Visible:=False; + // v1PRTPrice.Hidden:=True; + end else + begin + v1Column4.Visible:=False; + // v1PRTPrice.Visible:=True; + // v1PRTPrice.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractList.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 TfrmContractList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmContractList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmContractList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; + fRMXLSExport1:TRMXLSExport; +begin + if Order_Main.IsEmpty then Exit; + fRMXLSExport1:= TRMXLSExport.Create(self); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(',Case when substring(PriceNote,1,3)=''FOB'' then '' ''+A.FromPlace else '' ''+A.ToPlace end as PriceNote10 '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + // RM1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbSaveToXLS,pbExport,pbNavigator]; + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; + fRMXLSExport1.Free; +end; + +procedure TfrmContractList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; + TBFind.Click; +end; + +procedure TfrmContractList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.FormShow(Sender: TObject); +begin + + InitForm(); + SetStatus(); +end; + +procedure TfrmContractList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmContractList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmContractList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmContractList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractList.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 TfrmContractList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmContractList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.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 TfrmContractList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Tedit(Sender).Text)<1 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,A.ConNo ConNoM '); + SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then '''' else '''' end as IScg '); + sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.maiNID and X.TFType=''ͬ''),0)>0 then 1 else 0 end) as bit)'); + sql.Add(' from JYOrderCon_Main A '); + SQL.Add('where OrdDate>='''+'1899-01-01'+''''); + SQL.Add('and OrdDate<'''+'2050-01-01'+''''); + sql.Add(' and MPRTType='''' '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and '+Tedit(Sender).Name+' like '+quotedstr(trim('%'+trim(Tedit(Sender).Text)+'%'))); + // sql.Add(' and ConNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractList.ToolButton4Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTNameType'; + flagname:='Ʒ'; + V1HelpType.Visible:=True; + V1HelpType.Caption:='д'; + fnote:=True; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContractList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +procedure TfrmContractList.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractList.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmContractList.TQXClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''2'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ͬȡɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ͬȡʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractList.TNOQXClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ͬȡɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ͬȡʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmFjList_RZ:=TfrmFjList_RZ.Create(Application); + with frmFjList_RZ do + begin + // PState:=1; + if Trim(DParameters1)<>'Ȩ' then cxButton1.Visible:=false; + fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fType:='ͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmFjList_RZ.Free; + end; +end; + +procedure TfrmContractList.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index]='2' then + ACanvas.Brush.Color:=clLime; +end; + +end. diff --git a/贸易管理/U_ContractListNX.dfm b/贸易管理/U_ContractListNX.dfm new file mode 100644 index 0000000..293662e --- /dev/null +++ b/贸易管理/U_ContractListNX.dfm @@ -0,0 +1,899 @@ +object frmContractListNX: TfrmContractListNX + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #35746#21333#21512#21516 + 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 = 1366 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20135#21697#31867#21035#23450#20041 + ImageIndex = 58 + Visible = False + OnClick = ToolButton4Click + end + object TBAdd: TToolButton + Left = 296 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 674 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Visible = False + OnClick = TnochkClick + end + object Tqx: TToolButton + Left = 761 + Top = 0 + AutoSize = True + Caption = #21512#21516#21462#28040 + ImageIndex = 41 + OnClick = TqxClick + end + object Tnoqx: TToolButton + Left = 848 + Top = 0 + AutoSize = True + Caption = #25764#38144#21512#21516#21462#28040 + ImageIndex = 86 + OnClick = TnoqxClick + end + object TBExport: TToolButton + Left = 959 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object ToolButton5: TToolButton + Left = 1022 + Top = 0 + AutoSize = True + Caption = #21512#21516#38468#20214 + ImageIndex = 57 + Wrap = True + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 63 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + object TBClose: TToolButton + Left = 208 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 36 + Top = 144 + Width = 1249 + Height = 169 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.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_TradeManage.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #23458#25143#21512#21516#21495 + DataBinding.FieldName = 'KHConNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ConPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 91 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #38656#26041 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 94 + 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_TradeManage.Default + Width = 80 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 59 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25968#37327#35828#26126 + DataBinding.FieldName = 'QtyNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 125 + end + object v1Column9: TcxGridDBColumn + Caption = #22383#24067#26159#21542#24050#37319#36141 + DataBinding.FieldName = 'ISCG' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column10: TcxGridDBColumn + DataBinding.FieldName = 'status' + Visible = False + Hidden = True + end + object v1Column12: TcxGridDBColumn + Caption = #21512#21516#38468#20214 + DataBinding.FieldName = 'ISSC' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ConMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1366 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + 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 = 291 + 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 = 454 + Top = 15 + Width = 53 + 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 = 623 + 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 = 774 + 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 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 = 168 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 331 + Top = 11 + Width = 78 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object ConPerson1: TEdit + Tag = 2 + Left = 507 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + 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 = 4 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 664 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + 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 = 6 + 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 = 7 + OnChange = CustomerNoNameChange + end + object KHConNO: TEdit + Tag = 2 + Left = 803 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1366 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #24050#21462#28040 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 528 + Width = 1366 + Height = 188 + Align = alBottom + TabOrder = 4 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'prtspec' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn2: 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_TradeManage.handBlack + Width = 90 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394#33521#25991 + DataBinding.FieldName = 'SOrdDefStr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'prtmf' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'prtkz' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 59 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 68 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 113 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 520 + Width = 1366 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object PopupMenu2: TPopupMenu + Left = 648 + Top = 168 + object N11: TMenuItem + Caption = #26684#24335'1' + end + object N21: TMenuItem + Caption = #26684#24335'2' + end + object N31: TMenuItem + Caption = #26684#24335'3' + end + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 488 + Top = 440 + end +end diff --git a/贸易管理/U_ContractListNX.pas b/贸易管理/U_ContractListNX.pas new file mode 100644 index 0000000..844b0d9 --- /dev/null +++ b/贸易管理/U_ContractListNX.pas @@ -0,0 +1,965 @@ +unit U_ContractListNX; + +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; + +type + TfrmContractListNX = 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; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu2: TPopupMenu; + N11: TMenuItem; + N21: TMenuItem; + N31: TMenuItem; + 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; + ComboBox1: TComboBox; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label2: TLabel; + KHConNO: TEdit; + Label3: TLabel; + Tqx: TToolButton; + Tnoqx: TToolButton; + ToolButton5: TToolButton; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure 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 Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton4Click(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TqxClick(Sender: TObject); + procedure TnoqxClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + DQdate:TDateTime; + fuserName:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure SetStatus(); + procedure InitSub(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractListNX: TfrmContractListNX; + +implementation +uses + U_DataLink,U_ConInPutNX,U_Fun,U_ZDYHelp, U_FjList_RZ; + +{$R *.dfm} +procedure TfrmContractListNX.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderCon_sub '); + sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + open; + end; +end; +procedure TfrmContractListNX.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + Tqx.Visible:=false; + TNoqx.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + IF trim(DCode)<>'A2' then + begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + Tqx.Visible:=true; + end; + 1:begin + Tqx.Visible:=true; + end; + 2:begin + TNoqx.Visible:=true; + end; + 3:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + Tqx.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + Tqx.Visible:=true; + end; + 2:begin + TNOqx.Visible:=true; + end; + 3:begin + end; + end; + end; +end; + + +procedure TfrmContractListNX.FormDestroy(Sender: TObject); +begin + frmContractListNX:=nil; +end; + +procedure TfrmContractListNX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractListNX.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractListNX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬб',Tv1,'ָʾ'); +end; + +procedure TfrmContractListNX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,A.ConNo ConNoM '); + SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then '''' else '''' end as IScg '); + sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.maiNID and X.TFType=''ͬ''),0)>0 then 1 else 0 end) as bit)'); + sql.Add(' from JYOrderCon_Main A '); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + sql.Add(' and A.MPRTType='''' '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + IF cxTabControl1.TabIndex<3 then + begin + sql.Add(' and isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListNX.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmContractListNX.InitForm(); +begin + ReadCxGrid('ͬб',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end + else + begin + v1Column4.Visible:=False; + v1PRTPrice.Visible:=True; + v1PRTPrice.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmConInPutNX:=TfrmConInPutNX.Create(Application); + with frmConInPutNX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPutNX.Free; + end; +end; + +procedure TfrmContractListNX.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmContractListNX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Main 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 TfrmContractListNX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmContractListNX.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //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\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContractListNX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; + TBFind.Click; +end; + +procedure TfrmContractListNX.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmConInPutNX:=TfrmConInPutNX.Create(Application); + with frmConInPutNX do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPutNX.Free; + end; +end; + +procedure TfrmContractListNX.FormShow(Sender: TObject); +begin + fuserName:=DCode; + if (trim(DCode)='A1') or (trim(DCode)='A2') then + begin + fuserName:='A'; + end; + InitForm(); + SetStatus(); +end; + +procedure TfrmContractListNX.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmContractListNX.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmContractListNX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractListNX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmContractListNX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractListNX.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmContractListNX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPutNX:=TfrmConInPutNX.Create(Application); + with frmConInPutNX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPutNX.Free; + end; +end; + +procedure TfrmContractListNX.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPutNX:=TfrmConInPutNX.Create(Application); + with frmConInPutNX do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPutNX.Free; + end; +end; + +procedure TfrmContractListNX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmContractListNX.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 TfrmContractListNX.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Tedit(Sender).Text)<1 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,A.ConNo ConNoM '); + SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)'); + SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)'); + sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.maiNID and X.TFType=''ͬ''),0)>0 then 1 else 0 end) as bit)'); + sql.Add(' from JYOrderCon_Main A '); + SQL.Add('where OrdDate>='''+'1899-01-01'+''''); + SQL.Add('and OrdDate<'''+'2050-01-01'+''''); + sql.Add(' and MPRTType='''' '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + // sql.Add(' and ConNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''); + sql.Add(' and '+Tedit(Sender).Name+' like '+quotedstr(trim('%'+trim(Tedit(Sender).Text)+'%'))); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractListNX.ToolButton4Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTNameType'; + flagname:='Ʒ'; + V1HelpType.Visible:=True; + V1HelpType.Caption:='д'; + fnote:=True; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContractListNX.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractListNX.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractListNX.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; + +end; + +procedure TfrmContractListNX.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmContractListNX.TqxClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''2'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ͬȡɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ͬȡʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractListNX.TnoqxClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrdercon_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ͬȡɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ͬȡʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContractListNX.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmFjList_RZ:=TfrmFjList_RZ.Create(Application); + with frmFjList_RZ do + begin + // PState:=1; + if Trim(DParameters1)<>'Ȩ' then cxButton1.Visible:=false; + fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fType:='ͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmFjList_RZ.Free; + end; +end; + +procedure TfrmContractListNX.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index]='2' then + ACanvas.Brush.Color:=clLime; +end; + +end. diff --git a/贸易管理/U_Contract_Main.dfm b/贸易管理/U_Contract_Main.dfm new file mode 100644 index 0000000..4c8ec8d --- /dev/null +++ b/贸易管理/U_Contract_Main.dfm @@ -0,0 +1,546 @@ +object frmContract_Main: TfrmContract_Main + Left = 64 + Top = 133 + Width = 1232 + Height = 656 + Caption = #21152#24037#21512#21516 + 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 = 1216 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + Visible = False + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Visible = False + OnClick = TNochkClick + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1216 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 21 + Top = 22 + Width = 52 + Height = 12 + Caption = #31614#35746#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 = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 444 + 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 Label4: TLabel + Left = 604 + Top = 22 + Width = 26 + 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 Label6: TLabel + Left = 740 + Top = 22 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + 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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNoM: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 632 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 784 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1216 + Height = 485 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1216 + Height = 467 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1C_Qty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 77 + end + object v1Qty1: TcxGridDBColumn + Caption = #21152#24037#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1C_Qty: TcxGridDBColumn + Caption = #21152#24037#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object v1Price: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Money: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JGMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1216 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #23457#26680 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 1216 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1140 + Top = 52 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1092 + Top = 16 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 52 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1080 + Top = 76 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + 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 = 918 + Top = 186 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 864 + Top = 248 + 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 = 853 + Top = 207 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 934 + Top = 65 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 163 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 616 + Top = 279 + end +end diff --git a/贸易管理/U_Contract_Main.pas b/贸易管理/U_Contract_Main.pas new file mode 100644 index 0000000..4605ab3 --- /dev/null +++ b/贸易管理/U_Contract_Main.pas @@ -0,0 +1,530 @@ +unit U_Contract_Main; + +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 + TfrmContract_Main = 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; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNoM: TEdit; + Label5: TLabel; + C_CodeNameM: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1C_Qty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1Money: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + TNochk: TToolButton; + FactoryNoName: TEdit; + Label6: TLabel; + Order_Main: TClientDataSet; + ADOQueryMain: TADOQuery; + 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 ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SetStatus(); + { Private declarations } + public + FType:string; + { Public declarations } + end; + +var + frmContract_Main: TfrmContract_Main; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderList,U_ZDYHelp, + U_Contract_Sub; + +{$R *.dfm} + +procedure TfrmContract_Main.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + // tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + end; + 2:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + // tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + end; + end; + end; +end; + +procedure TfrmContract_Main.FormDestroy(Sender: TObject); +begin + frmContract_Main:=nil; +end; + +procedure TfrmContract_Main.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContract_Main.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; + cxGrid1.Align:=ALClient; +end; + +procedure TfrmContract_Main.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ͬ'); +end; + +procedure TfrmContract_Main.InitGrid(); +var strwhere: string; +begin + strwhere:=' and QDTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and QDTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' + +' and HTType=''ӹͬ'''; + IF cxTabControl1.TabIndex=0 then + strwhere:=strwhere+' and isnull(C_status,''0'')=''0'' '; + IF cxTabControl1.TabIndex=1 then + strwhere:=strwhere+' and isnull(C_status,''0'')=''1'' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=strwhere; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmContract_Main.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ͬ'); + cxTabControl1.TabIndex:=0; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmContract_Main.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 TfrmContract_Main.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmContract_Sub:=TfrmContract_Sub.Create(Application); + with frmContract_Sub do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmContract_Sub.Free; + end; +end; + +procedure TfrmContract_Main.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if ClientDataSet2.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 TfrmContract_Main.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_main where mainID='''+Trim(Order_Main.fieldbyname('mainID').AsString)+''''); + sql.Add('delete Contract_Sub 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 TfrmContract_Main.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ӹͬ',cxGrid1); +end; + +procedure TfrmContract_Main.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContract_Main.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContract_Main.TBAddClick(Sender: TObject); +begin + try + frmContract_Sub:=TfrmContract_Sub.Create(Application); + with frmContract_Sub do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmContract_Sub.Free; + end; +end; + +procedure TfrmContract_Main.ConNoMChange(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 TfrmContract_Main.FormShow(Sender: TObject); +begin + InitForm(); + SetStatus(); +end; + +procedure TfrmContract_Main.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,KCSL=A.MXQty-(select isnull(Sum(TPQty),0) from Contract_Sub_Mxto B where B.MXID=A.MXID),'); + sql.Add(' KCPS=A.Qty1-(select isnull(Sum(Qty1),0) from Contract_Sub_Mxto B where B.MXID=A.MXID)'); + sql.Add('from Contract_Sub_Mx A'); + sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add('from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmContract_Main.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmContract_Main.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmContract_Main.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=3; +end; + +procedure TfrmContract_Main.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,'); + sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); + SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); + SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); + sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmContract_Main.v2Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Main.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' + +' and HTType=''ӹͬ'''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContract_Main.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''1'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContract_Main.TNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Sub SET C_status=''0'' '); + sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmContract_Main.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +end. diff --git a/贸易管理/U_Contract_Sub.dfm b/贸易管理/U_Contract_Sub.dfm new file mode 100644 index 0000000..1cfcf7f --- /dev/null +++ b/贸易管理/U_Contract_Sub.dfm @@ -0,0 +1,595 @@ +object frmContract_Sub: TfrmContract_Sub + Left = 217 + Top = 121 + Width = 1125 + Height = 632 + Caption = #21152#24037#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1109 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1109 + Height = 288 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 34 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 556 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#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 = 34 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 556 + Top = 14 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#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 = 34 + Top = 80 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#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 = 555 + Top = 80 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 34 + Top = 115 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#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 = 305 + Top = 80 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#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 = 305 + Top = 14 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 306 + Top = 46 + Width = 66 + Height = 12 + Caption = #21152' '#24037' '#21378#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 35 + Top = 219 + Width = 52 + Height = 12 + Caption = #21152#24037#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 33 + Top = 142 + Width = 52 + Height = 12 + Caption = #20854#20182#20107#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 96 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + end + object DeliveryDate: TDateTimePicker + Left = 619 + Top = 42 + Width = 180 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + TabOrder = 1 + end + object QDTime: TDateTimePicker + Left = 96 + Top = 42 + Width = 180 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + TabOrder = 2 + end + object CompanyName: TcxButtonEdit + Left = 619 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 3 + Width = 180 + end + object QDPalce: TEdit + Left = 98 + Top = 77 + Width = 180 + Height = 18 + TabOrder = 4 + end + object JHPlace: TcxButtonEdit + Left = 619 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 5 + Width = 180 + end + object factoryNoName: TcxButtonEdit + Left = 368 + Top = 42 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 6 + Width = 180 + end + object ConTK3: TcxButtonEdit + Left = 96 + Top = 111 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 7 + Width = 700 + end + object ConTK4: TcxButtonEdit + Left = 368 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 8 + Width = 180 + end + object ConTK5: TMemo + Left = 94 + Top = 216 + Width = 699 + Height = 65 + ScrollBars = ssVertical + TabOrder = 9 + OnClick = ConTK5Click + end + object ConTk6: TMemo + Left = 94 + Top = 142 + Width = 699 + Height = 65 + ScrollBars = ssVertical + TabOrder = 10 + OnClick = ConTk6Click + end + object OrderNo: TcxButtonEdit + Left = 368 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = orderNoPropertiesButtonClick + TabOrder = 11 + Width = 180 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 317 + Width = 1109 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 346 + Width = 1109 + Height = 213 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.Default + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 67 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Sdefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'Sdefstr1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1Qty2: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 67 + end + object v1MainUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'MainUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #21152#24037#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 57 + end + object v1C_Qty: TcxGridDBColumn + Caption = #21152#24037#25968#37327 + DataBinding.FieldName = 'C_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1C_QtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1Price: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Qty3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1JGMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JGMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1JGMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 140 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 13 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 16 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 456 + Top = 13 + end +end diff --git a/贸易管理/U_Contract_Sub.pas b/贸易管理/U_Contract_Sub.pas new file mode 100644 index 0000000..5751340 --- /dev/null +++ b/贸易管理/U_Contract_Sub.pas @@ -0,0 +1,922 @@ +unit U_Contract_Sub; + +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, cxDropDownEdit; + +type + TfrmContract_Sub = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1C_Qty: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + factoryNoName: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Qty2: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + Label7: TLabel; + Label9: TLabel; + Label14: TLabel; + Label15: TLabel; + ConTK5: TMemo; + ConTk6: TMemo; + v1C_Color: TcxGridDBColumn; + v1Sdefstr1: TcxGridDBColumn; + v1MainUnit: TcxGridDBColumn; + v1JGMoney: TcxGridDBColumn; + OrderNo: TcxButtonEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FormCreate(Sender: TObject); + procedure ConTk6Click(Sender: TObject); + procedure ConTK5Click(Sender: TObject); + procedure v1C_QtyPropertiesEditValueChanged(Sender: TObject); + procedure v1Qty3PropertiesEditValueChanged(Sender: TObject); + procedure v1JGMoneyPropertiesEditValueChanged(Sender: TObject); + procedure OrderNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo:String; + { Public declarations } + end; + +var + frmContract_Sub: TfrmContract_Sub; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun, U_ProductOrder_CX, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmContract_Sub.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmContract_Sub.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContract_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from Contract_Main order by FillTime desc '); + Open; + end; + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + end; +end; + +procedure TfrmContract_Sub.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin + +end; + +procedure TfrmContract_Sub.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmContract_Sub.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JG','Contract_Main',2,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 Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + + end + else begin + + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('HTType').Value:='ӹͬ'; + SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(factoryNoName.Text); + Post; + end; + + with Order_Sub do + begin + First; + while not Eof do + begin + + ///ӱ + + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'HT','Contract_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + FieldByName('MFQty').Value:=Order_Sub.fieldbyname('MFQty').AsFloat; + FieldByName('C_Qty').Value:=Order_Sub.fieldbyname('C_Qty').AsFloat; + FieldByName('KZQty').Value:=Order_Sub.fieldbyname('KZQty').AsFloat; + FieldByName('C_Qty').Value:=Order_Sub.fieldbyname('C_Qty').AsFloat; + FieldByName('Qty1').Value:=Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').AsFloat; + FieldByName('JGMoney').Value:=Order_Sub.fieldbyname('JGMoney').AsFloat; + FieldByName('C_Note').Value:=trim(Order_Sub.fieldbyname('C_Note').AsString); + FieldByName('C_status').Value:='0'; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmContract_Sub.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(factoryNoName.Text)='' then + begin + Application.MessageBox('ӹΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('ӹλΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmContract_Sub.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmContract_Sub.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmContract_Sub.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Cloth'; + flagname:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmContract_Sub.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='̧ͷ'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + factoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('factoryNoname').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.v1Column10PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + MainType:='PBFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('Sdefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmContract_Sub.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alclient; +end; + +procedure TfrmContract_Sub.ConTk6Click(Sender: TObject); +VAR i: integer; +begin + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='QTYDSX'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + ConTK6.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmContract_Sub.ConTK5Click(Sender: TObject); +VAR i: integer; +begin + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGYQ'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK5.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + ConTK5.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmContract_Sub.v1C_QtyPropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_sub do + begin + edit; + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('JGMoney').Value:=strtofloat(format('%.2f',[Fieldbyname('C_Qty').AsFloat*Fieldbyname('Price').AsFloat ])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmContract_Sub.v1Qty3PropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_sub do + begin + edit; + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('JGMoney').Value:=strtofloat(format('%.2f',[Fieldbyname('Price').AsFloat*Fieldbyname('C_Qty').AsFloat ])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + + +procedure TfrmContract_Sub.v1JGMoneyPropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_sub do + begin + edit; + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + if Fieldbyname('C_Qty').AsFloat<>0 then + begin + FieldByName('Price').Value:=strtofloat(format('%.2f',[Fieldbyname('JGMoney').AsFloat/Fieldbyname('C_Qty').AsFloat])); + end; + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmContract_Sub.OrderNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var FOrderNo: String; +begin + FrmProductOrder_CX:=TFrmProductOrder_CX.Create(self); + with FrmProductOrder_CX do + begin + if showModal=1 then + begin + self.ConNo.Text:=trim(Order_Main.fieldbyname('ConNo').AsString); + self.OrderNo.Text:=trim(Order_Main.fieldbyname('OrderNo').AsString); + self.CompanyName.Text:=trim(Order_Main.fieldbyname('SYRName').AsString); + self.ConTK3.Text:=trim(Order_Main.fieldbyname('MPRTBZNote').AsString); + with Order_Main do + begin + first; + ForderNo:=''; + while not Eof do + begin + if fieldbyname('Ssel').AsBoolean then + begin + if FOrderNo='' then + begin + FOrderNo:=trim(fieldbyname('OrderNo').AsString); + end + else + begin + if FOrderNo<>trim(fieldbyname('OrderNo').AsString) then + begin + application.MessageBox('Ųһ','ʾ',0); + exit; + end; + end; + Order_Sub.Append; + Order_Sub.FieldByName('C_CodeName').AsString:=trim(fieldbyname('MPRTCodeName').AsString); + Order_Sub.FieldByName('C_Spec').AsString:=trim(fieldbyname('MPRTSpec').AsString); + Order_Sub.FieldByName('C_Color').AsString:=trim(fieldbyname('PRTColor').AsString); + Order_Sub.FieldByName('Sdefstr1').AsString:=trim(fieldbyname('SOrddefstr1').AsString); + Order_Sub.FieldByName('Qty2').value:=fieldbyname('PRTOrderQty').AsFloat; + Order_Sub.FieldByName('MainUnit').AsString:=trim(fieldbyname('OrderUnit').AsString); + order_Sub.Post; + end; + next; + end; + end; + end; + free; + end; +end; + +end. diff --git a/贸易管理/U_CpCkSaoMNew.dfm b/贸易管理/U_CpCkSaoMNew.dfm new file mode 100644 index 0000000..d882883 --- /dev/null +++ b/贸易管理/U_CpCkSaoMNew.dfm @@ -0,0 +1,460 @@ +object frmCpCkSaoMNew: TfrmCpCkSaoMNew + Left = 31 + Top = 61 + Width = 1199 + Height = 652 + Caption = #25104#21697#20986#24211#25195#25551 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object cxGrid2: TcxGrid + Left = 0 + Top = 169 + Width = 593 + Height = 446 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 129 + end + object v1Column5: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJId' + HeaderAlignmentHorz = taCenter + Width = 144 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 121 + end + object v2Column6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v1Column2: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 86 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1191 + Height = 169 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 110 + Top = 134 + Width = 68 + Height = 16 + Caption = #25195#25551#20837#21475 + end + object BaoID: TEdit + Left = 178 + Top = 131 + Width = 167 + Height = 24 + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 1006 + Top = 132 + Width = 75 + Height = 23 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 21 + Top = 132 + Width = 75 + Height = 23 + Caption = #36873#21333 + TabOrder = 2 + OnClick = Button3Click + end + object Button1: TButton + Left = 598 + Top = 132 + Width = 107 + Height = 23 + Caption = #25764#38144#20986#24211 + TabOrder = 3 + OnClick = Button1Click + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1187 + Height = 120 + Align = alTop + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 78 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 141 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGrid3: TcxGrid + Left = 593 + Top = 169 + Width = 584 + Height = 446 + Align = alLeft + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_MainSel + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = cxGridDBColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 157 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJId' + HeaderAlignmentHorz = taCenter + Width = 144 + end + object v3Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object v3Column2: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 8 + Top = 208 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 64 + Top = 48 + Width = 147 + Height = 48 + Caption = #24050#20986#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 456 + Top = 56 + Width = 49 + Height = 48 + Caption = #21367 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 216 + Top = 24 + Width = 241 + 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 = 0 + Text = '1234' + end + object Edit2: TEdit + Left = 73 + Top = 143 + Width = 386 + Height = 72 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '91209120001' + end + object Button4: TButton + Left = 216 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button4Click + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 976 + Top = 40 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 136 + Top = 216 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 96 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1072 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 72 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 48 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 288 + Top = 48 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 680 + Top = 64 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 56 + Top = 200 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 600 + Top = 72 + 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 = 832 + Top = 312 + end +end diff --git a/贸易管理/U_CpCkSaoMNew.pas b/贸易管理/U_CpCkSaoMNew.pas new file mode 100644 index 0000000..2506945 --- /dev/null +++ b/贸易管理/U_CpCkSaoMNew.pas @@ -0,0 +1,450 @@ +unit U_CpCkSaoMNew; + +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; + +type + TfrmCpCkSaoMNew = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + BaoID: TEdit; + Label1: TLabel; + v1Column5: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + CDS_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOQuerySub: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_MainSel: TDataSource; + CDS_MainSel: TClientDataSet; + v3Column1: TcxGridDBColumn; + Button1: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + MovePanel1: TMovePanel; + Edit1: TEdit; + Edit2: TEdit; + Label2: TLabel; + Label3: TLabel; + Button4: TButton; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + v3Column2: 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 Button3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button4Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitSubGrid(); + public + { Public declarations } + end; + +var + frmCpCkSaoMNew: TfrmCpCkSaoMNew; + +implementation +uses +U_DataLink,U_Fun,U_OrderSel ; + +{$R *.dfm} + +procedure TfrmCpCkSaoMNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCpCkSaoMNew.FormDestroy(Sender: TObject); +begin + frmCpCkSaoMNew:=nil; +end; +procedure TfrmCpCkSaoMNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MainSel); + SInitCDSData20(ADOQueryMain,CDS_MainSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCpCkSaoMNew.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + ReadCxGrid('Ʒ',Tv1,'Ʒֿ'); + ReadCxGrid('ƷSels',Tv3,'Ʒֿ'); + InitSubGrid(); + InitGrid(); +end; + +procedure TfrmCpCkSaoMNew.BaoIDKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; +begin + if Key=#13 then + begin + if CDS_Sub.IsEmpty then + begin + BaoID.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if CDS_Main.Locate('MJId',Trim(BaoID.Text),[])=False then + begin + BaoID.Text:=''; + Application.MessageBox('˾ڴľУ','ʾ',0); + Exit; + end; + CDS_Main.Locate('MJId',Trim(BaoID.Text),[]); + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + if GetLSNo(ADOQueryCmd,maxno,'CC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(maxno); + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_Main.Delete; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(BaoID.Text); + BaoID.Text:=''; + Exit; + except + BaoID.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; + +procedure TfrmCpCkSaoMNew.Button2Click(Sender: TObject); +begin + Close; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + WriteCxGrid('Ʒ',Tv1,'Ʒֿ'); + WriteCxGrid('ƷSels',Tv3,'Ʒֿ'); +end; + +procedure TfrmCpCkSaoMNew.Button3Click(Sender: TObject); +begin + {if CDS_Main.IsEmpty=False then + begin + Application.MessageBox('ɨ費ܸĵţ','ʾ',0); + Exit; + end;} + try + frmOrderSel:=TfrmOrderSel.Create(Application); + with frmOrderSel do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + if Self.CDS_Sub.Locate('SubId',Trim(CDS_OrderSel.fieldbyname('SubId').AsString),[])=False then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_OrderSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_OrderSel.fieldbyname('SubId').AsString); + FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString); + FieldByName('OrderNo').Value:=Trim(CDS_OrderSel.fieldbyname('OrderNo').AsString); + FieldByName('CustomerNoName').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNoName').AsString); + FieldByName('MPRTCodeName').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTOrderQty').Value:=Trim(CDS_OrderSel.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(CDS_OrderSel.fieldbyname('OrderUnit').AsString); + FieldByName('PRTColor').Value:=Trim(CDS_OrderSel.fieldbyname('PRTColor').AsString); + FieldByName('MPRTMF').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTMF').AsString); + FieldByName('MPRTKZ').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTKZ').AsString); + Post; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(Self.CDS_Sub.fieldbyname('SFlag').AsString)<>'2' then + begin + with Self.ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select orderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId), A.*,B.KCQty,B.KCKgQty '); + sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC B on A.CRID=B.CRID'); + sql.Add(' where B.KCqty>0 and A.CRType='''' '); + SQL.Add(' and A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + with Self.ADOQueryTemp do + begin + First; + while not Eof do + begin + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=Self.ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=Self.ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('OrderNo').Value:=Self.ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.ADOQueryTemp.fieldbyname('KCKgQty').Value; + FieldByName('Qty').Value:=Self.ADOQueryTemp.fieldbyname('KCQty').Value; + FieldByName('QtyUnit').Value:=Self.ADOQueryTemp.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.ADOQueryTemp.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.ADOQueryTemp.fieldbyname('CRId').Value; + FieldByName('CPType').Value:=Self.ADOQueryTemp.fieldbyname('CPType').Value; + Post; + end; + Next; + end; + end; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SFlag').Value:='2'; + CDS_Sub.Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; + end; + finally + frmOrderSel.Free; + end; +end; + +procedure TfrmCpCkSaoMNew.InitSubGrid(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where 1<>1 '); + + Open; + end; + SCreateCDS20(ADOQuerySub,CDS_Sub); + SInitCDSData20(ADOQuerySub,CDS_Sub); + finally + ADOQuerySub.EnableControls; + end; +end; + + +procedure TfrmCpCkSaoMNew.Button1Click(Sender: TObject); +begin + if CDS_MainSel.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_MainSel.fieldbyname('BCID').AsString)+''''); + sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + SQL.Add(' where CRID='+CDS_MainSel.fieldbyname('CRID').AsString); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_MainSel.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value; + FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value; + Post; + end; + CDS_MainSel.Delete; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(CDS_Main.fieldbyname('MJId').AsString); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmCpCkSaoMNew.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MainSel.IsEmpty=False then Exit; + if CDS_Sub.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(CDS_Main.fieldbyname('SubId').AsString)=Trim(CDS_Sub.fieldbyname('SubId').AsString) then + begin + CDS_Main.Delete; + end else + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Sub.Delete; +end; + +procedure TfrmCpCkSaoMNew.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +end. diff --git a/贸易管理/U_CpCkSaoMNewSel.dfm b/贸易管理/U_CpCkSaoMNewSel.dfm new file mode 100644 index 0000000..5dfa89b --- /dev/null +++ b/贸易管理/U_CpCkSaoMNewSel.dfm @@ -0,0 +1,768 @@ +object frmCpCkSaoMNewSel: TfrmCpCkSaoMNewSel + Left = 107 + Top = 59 + Width = 1230 + Height = 637 + Caption = #25104#21697#20986#24211#25195#25551 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1214 + Height = 205 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 95 + Top = 134 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + end + object Label4: TLabel + Left = 310 + Top = 158 + Width = 48 + Height = 12 + Caption = #20986#24211#26102#38388 + end + object Label5: TLabel + Left = 310 + Top = 134 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label6: TLabel + Left = 248 + Top = 136 + Width = 26 + Height = 12 + Caption = #21333#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 248 + Top = 157 + Width = 39 + Height = 12 + Caption = #20837#24211#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 492 + Top = 158 + Width = 48 + Height = 12 + Caption = #20986#24211#22791#27880 + end + object Label9: TLabel + Left = 248 + Top = 180 + Width = 39 + Height = 12 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 816 + Top = 136 + Width = 48 + Height = 12 + Caption = #36864#24211#25195#25551 + end + object BaoID: TEdit + Left = 143 + Top = 130 + Width = 100 + Height = 20 + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 693 + Top = 130 + Width = 48 + Height = 20 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 21 + Top = 130 + Width = 65 + Height = 20 + Caption = #36873#21333 + TabOrder = 2 + OnClick = Button3Click + end + object Button1: TButton + Left = 1033 + Top = 132 + Width = 62 + Height = 18 + Caption = #25764#38144#20986#24211 + TabOrder = 3 + OnClick = Button1Click + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1210 + Height = 120 + Align = alTop + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 78 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 141 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Button5: TButton + Left = 492 + Top = 130 + Width = 60 + Height = 20 + Caption = #20986#24211 + TabOrder = 5 + OnClick = Button5Click + end + object CRTime: TDateTimePicker + Left = 358 + Top = 154 + Width = 102 + Height = 20 + Date = 41337.663190821760000000 + Time = 41337.663190821760000000 + TabOrder = 6 + end + object CKOrdNo: TEdit + Left = 358 + Top = 130 + Width = 101 + Height = 20 + TabOrder = 7 + end + object RKOrdID: TEdit + Left = 143 + Top = 154 + Width = 100 + Height = 20 + TabOrder = 8 + OnKeyPress = RKOrdIDKeyPress + end + object CRNote: TEdit + Left = 541 + Top = 154 + Width = 206 + Height = 20 + TabOrder = 9 + end + object bao: TEdit + Left = 143 + Top = 178 + Width = 100 + Height = 20 + TabOrder = 10 + OnKeyPress = baoKeyPress + end + object THMJID: TEdit + Left = 868 + Top = 132 + Width = 121 + Height = 20 + TabOrder = 11 + OnKeyPress = THMJIDKeyPress + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 205 + Width = 577 + Height = 394 + Align = alLeft + TabOrder = 1 + object Tv1: TcxGridDBTableView + PopupMenu = PopupMenu1 + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 41 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + end + object v1Column9: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v2Column6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object v1Column7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column8: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'RKOrdId' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column11: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid3: TcxGrid + Left = 577 + Top = 205 + Width = 637 + Height = 394 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + PopupMenu = PopupMenu2 + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_MainSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + 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 + OptionsView.Indicator = True + object v3Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 44 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v3Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v3Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v3Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v3Column7: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'RKOrdId' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v3Column8: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v3MJID: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 4 + Top = 248 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 64 + Top = 48 + Width = 147 + Height = 48 + Caption = #24050#20986#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 460 + Top = 40 + Width = 49 + Height = 48 + Caption = #21367 + 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 = 68 + Top = 264 + Width = 9 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 216 + Top = 24 + Width = 241 + 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 = 0 + Text = '1234' + end + object Edit2: TEdit + Left = 73 + Top = 143 + Width = 386 + Height = 72 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '91209120001' + end + object Button4: TButton + Left = 396 + Top = 240 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button4Click + end + end + object MovePanel2: TMovePanel + Left = 584 + Top = 264 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 976 + Top = 40 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 136 + Top = 216 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 96 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1072 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 72 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 48 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 288 + Top = 48 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 680 + Top = 64 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 56 + Top = 228 + 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 = 832 + Top = 312 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 528 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object PopupMenu2: TPopupMenu + Left = 936 + Top = 480 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + end + object ADOQueryPrice: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 608 + Top = 64 + end + object CDSPrice: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 352 + end +end diff --git a/贸易管理/U_CpCkSaoMNewSel.pas b/贸易管理/U_CpCkSaoMNewSel.pas new file mode 100644 index 0000000..e2295b7 --- /dev/null +++ b/贸易管理/U_CpCkSaoMNewSel.pas @@ -0,0 +1,1418 @@ +unit U_CpCkSaoMNewSel; + +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, MMSystem, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, + ComCtrls; + +type + TfrmCpCkSaoMNewSel = class(TForm) + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + BaoID: TEdit; + Label1: TLabel; + Button2: TButton; + Button3: TButton; + CDS_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOQuerySub: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_MainSel: TDataSource; + CDS_MainSel: TClientDataSet; + Button1: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column5: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + Button5: TButton; + CRTime: TDateTimePicker; + Label4: TLabel; + Label5: TLabel; + CKOrdNo: TEdit; + ADOQueryPrice: TADOQuery; + CDSPrice: TClientDataSet; + Label6: TLabel; + RKOrdID: TEdit; + Label7: TLabel; + v1Column8: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + MovePanel1: TMovePanel; + Label2: TLabel; + Label3: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Button4: TButton; + MovePanel2: TMovePanel; + v1Column9: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + Label8: TLabel; + CRNote: TEdit; + bao: TEdit; + Label9: TLabel; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label10: TLabel; + THMJID: TEdit; + v3MJID: TcxGridDBColumn; + Label12: TLabel; + 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 Button3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button4Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char); + procedure baoKeyPress(Sender: TObject; var Key: Char); + procedure THMJIDKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure InitGrid(); + procedure InitSubGrid(); + function YSData(Order_Main10:TClientDataSet):Boolean; + public + { Public declarations } + end; + +var + frmCpCkSaoMNewSel: TfrmCpCkSaoMNewSel; + +implementation +uses +U_DataLink,U_Fun,U_OrderSel ; + +{$R *.dfm} + +procedure TfrmCpCkSaoMNewSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCpCkSaoMNewSel.FormDestroy(Sender: TObject); +begin + frmCpCkSaoMNewSel:=nil; +end; +procedure TfrmCpCkSaoMNewSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + sql.Add(',KHName=(select isnull(customerNoName,OrderNo) from JYOrder_Main where MainId=A.MainId)'); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + sql.Add(',KHName=(select isnull(customerNoName,OrderNo) from JYOrder_Main where MainId=A.MainId)'); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MainSel); + SInitCDSData20(ADOQueryMain,CDS_MainSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCpCkSaoMNewSel.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + ReadCxGrid('Ʒ',Tv1,'Ʒֿ'); + ReadCxGrid('ƷSels',Tv3,'Ʒֿ'); + InitSubGrid(); + InitGrid(); + CRTime.DateTime:=SGetServerDate(ADOQueryTemp); + +end; + + +procedure TfrmCpCkSaoMNewSel.BaoIDKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; +begin + if Key=#13 then + begin + Label12.Caption:=''; + if CDS_Sub.IsEmpty then + begin + BaoID.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if Trim(CKOrdNo.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if CDS_MainSel.Locate('MJId',Trim(BaoID.Text),[]) then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(BaoID.Text); + Label12.Caption:='ѣ˾ظɨ裡'; + BaoID.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav'),0, SND_ASYNC); + // Application.MessageBox('˾ظɨ裡','ʾ',0); + Exit; + end; + if CDS_Main.Locate('MJId',Trim(BaoID.Text),[])=False then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(BaoID.Text); + Label12.Caption:='ѣ˾ڴľУ'; + BaoID.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Exit; + end; + CDS_Main.Locate('MJId',Trim(BaoID.Text),[]); + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + { if GetLSNo(ADOQueryCmd,maxno,'CC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_Main.fieldbyname('BaoID').Value; + FieldByName('RKPlace').Value:=CDS_Main.fieldbyname('RKPlace').AsString; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo.Text); + FieldByName('CRNote').Value:=Trim(CRNote.Text); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',CKOrdNo='''+trim(CKOrdNo.Text)+''''); + sql.Add(',CRNote='''+trim(CRNote.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''ѳ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + end; + { if YSData(CDS_Main)=False then + begin + + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; } + ADOQueryCmd.Connection.CommitTrans; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('KHName').Value:=CDS_Main.fieldbyname('KHName').Value; + FieldByName('RKOrdId').Value:=CDS_Main.fieldbyname('RKOrdId').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_Main.Delete; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(BaoID.Text); + BaoID.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + Exit; + except + BaoID.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; + +procedure TfrmCpCkSaoMNewSel.Button2Click(Sender: TObject); +begin + tv1.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + Close; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + WriteCxGrid('Ʒ',Tv1,'Ʒֿ'); + WriteCxGrid('ƷSels',Tv3,'Ʒֿ'); +end; + +procedure TfrmCpCkSaoMNewSel.Button3Click(Sender: TObject); +var + maxno,fsj:String; +begin + {if CDS_Main.IsEmpty=False then + begin + Application.MessageBox('ɨ費ܸĵţ','ʾ',0); + Exit; + end;} + + try + frmOrderSel:=TfrmOrderSel.Create(Application); + with frmOrderSel do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + if Self.CDS_Sub.Locate('SubId',Trim(CDS_OrderSel.fieldbyname('SubId').AsString),[])=False then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_OrderSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_OrderSel.fieldbyname('SubId').AsString); + FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString); + FieldByName('OrderNo').Value:=Trim(CDS_OrderSel.fieldbyname('OrderNo').AsString); + FieldByName('CustomerNoName').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNoName').AsString); + FieldByName('MPRTCodeName').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTOrderQty').Value:=Trim(CDS_OrderSel.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(CDS_OrderSel.fieldbyname('OrderUnit').AsString); + FieldByName('PRTColor').Value:=Trim(CDS_OrderSel.fieldbyname('PRTColor').AsString); + FieldByName('MPRTMF').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTMF').AsString); + FieldByName('MPRTKZ').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTKZ').AsString); + Post; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + + end; + end; + finally + frmOrderSel.Free; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DCode)+''''); + ExecSQL; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID select :SubId,:Dname'); + Parameters.ParamByName('SubId').Value:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + Parameters.ParamByName('Dname').Value:=Trim(DCode); + ExecSQL; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + with Self.ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select orderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId), A.* '); + sql.Add(',KHName=(select isnull(customerNoName,OrderNo) from JYOrder_Main where MainId=A.MainId)'); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select MJStr4 from WFB_MJJY where MJID=A.MJID)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC B on A.CRID=B.CRID'); + sql.Add(' where exists( select * from TBSubID AA where AA.SubId=A.SubId and AA.DName='''+Trim(DCode)+''') '); + SQL.Add(' and (B.KCqty>0 or B.KCKgQty>0) and A.CRType='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Main); + SInitCDSData20(ADOQueryTemp,CDS_Main); + + if GetLSNo(ADOQueryCmd,maxno,'CK','CK_BanCP_CR',3,1)=False then + begin + Application.MessageBox('ȡⵥʧ!','ʾ',0); + Exit; + end; + CKOrdNo.Text:=Trim(maxno); +end; + +procedure TfrmCpCkSaoMNewSel.InitSubGrid(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where 1<>1 '); + + Open; + end; + SCreateCDS20(ADOQuerySub,CDS_Sub); + SInitCDSData20(ADOQuerySub,CDS_Sub); + finally + ADOQuerySub.EnableControls; + end; +end; + + +procedure TfrmCpCkSaoMNewSel.Button1Click(Sender: TObject); +var + FMainid:String; +begin + if CDS_MainSel.IsEmpty then Exit; + if CDS_MainSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_MainSel.DisableControls; + CDS_Main.DisableControls; + with CDS_MainSel do + begin + //First; + while CDS_MainSel.Locate('SSel',True,[]) do + begin + //if CDS_MainSel.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCP_CR Set CRFlag='''',CRType='''',CRTime=NULL'); + sql.Add(',CRNote='''''); + sql.Add(',CKOrdNo='''''); + sql.Add(' where CRID='''+Trim(CDS_MainSel.fieldbyname('CRID').AsString)+''''); + sql.Add(' and CRFlag='''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + SQL.Add(' where CRID='+CDS_MainSel.fieldbyname('CRID').AsString); + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_MainSel.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_MainSel.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value; + FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value; + FieldByName('PRTColor').Value:=Self.CDS_MainSel.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.CDS_MainSel.fieldbyname('AOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.CDS_MainSel.fieldbyname('MJXH').Value; + FieldByName('KHName').Value:=CDS_MainSel.fieldbyname('KHName').Value; + FieldByName('RKOrdID').Value:=CDS_MainSel.fieldbyname('RKOrdID').Value; + FieldByName('BaoNo').Value:=CDS_MainSel.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_MainSel.fieldbyname('BaoID').Value; + Post; + end; + CDS_MainSel.Delete; + end; + end; + end; + CDS_MainSel.EnableControls; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + { MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; } + MovePanel2.Visible:=False; + Exit; + except + MovePanel2.Visible:=False; + CDS_MainSel.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmCpCkSaoMNewSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MainSel.IsEmpty=False then Exit; + if CDS_Sub.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(CDS_Main.fieldbyname('SubId').AsString)=Trim(CDS_Sub.fieldbyname('SubId').AsString) then + begin + CDS_Main.Delete; + end else + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Sub.Delete; +end; + +procedure TfrmCpCkSaoMNewSel.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmCpCkSaoMNewSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCpCkSaoMNewSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCpCkSaoMNewSel.MenuItem1Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,True); +end; + +procedure TfrmCpCkSaoMNewSel.MenuItem2Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,False); +end; + +procedure TfrmCpCkSaoMNewSel.Button5Click(Sender: TObject); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(CKOrdNo.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + CDS_MainSel.DisableControls; + with CDS_Main do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1=2'); + Open; + end; + //First; + while CDS_Main.Locate('SSel',True,[]) do + begin + application.ProcessMessages; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',CKOrdNo='''+trim(CKOrdNo.Text)+''''); + sql.Add(',CRNote='''+trim(CRNote.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + //if CDS_Main.FieldByName('SSel').AsBoolean=True then + //begin + { if GetLSNo(ADOQueryTemp,maxno,'CC','CK_BanCp_CR',5,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.Date); + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_Main.fieldbyname('BaoID').Value; + FieldByName('RKPlace').Value:=CDS_Main.fieldbyname('RKPlace').AsString; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo.Text); + FieldByName('CRNote').Value:=Trim(CRNote.Text); + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + } + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('KHName').Value:=CDS_Main.fieldbyname('KHName').Value; + FieldByName('RKOrdId').Value:=CDS_Main.fieldbyname('RKOrdId').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + // CDS_MainSel.EnableControls; + CDS_Main.Delete; + // end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 '); + sql.Add('from CK_BanCp_KC A '); + sql.Add('inner join CK_BanCp_CR B on B.CRID=A.CRID'); + sql.Add('where B.CKOrdNo='''+trim(CKOrdNo.Text)+''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''ѳ'' '); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join CK_BanCp_CR B on B.MJID=A.MJID'); + sql.Add('where B.CKOrdNo='''+trim(CKOrdNo.Text)+''' '); + ExecSQL; + end; + CDS_MainSel.EnableControls; + CDS_Main.EnableControls; + CDS_Sub.DisableControls; +// YSdata(cds_main); + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + Exit; + except + BaoID.Text:=''; + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmCpCkSaoMNewSel.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou:String; +begin + Result:=False; + + with Order_Main10 do + begin + //First; + //while not Eof do + begin + 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; + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrdDefStr2 from JYOrder_Main where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + Open; + end; + FComTaiTou:=Trim(ADOQueryTemp.fieldbyname('OrdDefStr2').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='+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:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date)); + FieldByName('YFType').Value:='Զ'; + //FieldByName('Price').Value:=Order_Main10.fieldbyname('PRTPrice').Value; + //FieldByName('HuiLv').Value:=1; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 HuiLv from YF_Money_CR '); + sql.Add(' where Mainid='''+Trim(Order_Main10.fieldbyname('Mainid').AsString)+''''); + sql.Add(' and CRType=''տǼ'' '); + SQL.Add(' and YFDefFlag1=0'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.FieldByName('HuiLv').Value:=ADOQueryTemp.fieldbyname('HuiLv').Value; + end; + 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); + Post; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(OrderUnit)<>'Kg' then + begin + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.Qty),0) from CK_BanCP_CR A '); + end else + begin + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.KgQty),0) from CK_BanCP_CR A '); + end; + 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)+''''); + 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; + //Next; + end; + end; + Result:=True; +end; + +procedure TfrmCpCkSaoMNewSel.RKOrdIDKeyPress(Sender: TObject; + var Key: Char); +var + maxno:String; +begin + if Key=#13 then + begin + Label12.Caption:=''; + if CDS_Sub.IsEmpty then + begin + BaoID.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if Trim(CKOrdNo.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('RKOrdId',Trim(RKOrdId.Text),[])=False then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(RKOrdId.Text); + Label12.Caption:='ѣⵥڴľУ'; + RKOrdId.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + + // Application.MessageBox('ⵥڴľУ','ʾ',0); + Exit; + end; + //CDS_Main.Locate('MJId',Trim(BaoID.Text),[]); + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + First; + while CDS_Main.Locate('RKOrdId',Trim(RKOrdId.Text),[])=True do + begin + { if GetLSNo(ADOQueryCmd,maxno,'CC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_Main.fieldbyname('BaoID').Value; + FieldByName('RKPlace').Value:=CDS_Main.fieldbyname('RKPlace').AsString; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRNote').Value:=Trim(CRNote.Text); + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo.Text); + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',CKOrdNo='''+trim(CKOrdNo.Text)+''''); + sql.Add(',CRNote='''+trim(CRNote.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''ѳ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + {if YSData(CDS_Main)=False then + begin + + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; } + + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('KHName').Value:=CDS_Main.fieldbyname('KHName').Value; + FieldByName('RKOrdId').Value:=CDS_Main.fieldbyname('RKOrdId').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_Main.Delete; + end; + + end; + + + ADOQueryCmd.Connection.CommitTrans; + + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(RKOrdID.Text); + RKOrdID.Text:=''; + MovePanel2.Visible:=False; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + Exit; + except + RKOrdID.Text:=''; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; + +procedure TfrmCpCkSaoMNewSel.baoKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; +begin + if Key=#13 then + begin + Label12.Caption:=''; + if CDS_Sub.IsEmpty then + begin + Bao.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if Trim(bao.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(CKOrdNo.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('baoID',Trim(bao.Text),[])=False then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(bao.Text); + Label12.Caption:='ѣ˰ڴľУ'; + bao.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + + // Application.MessageBox('˰ڴľУ','ʾ',0); + Exit; + end; + // CDS_Main.Locate('baoID',Trim(bao.Text),[]); + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + first; + while CDS_Main.Locate('baoID',Trim(bao.Text),[]) do + begin + { if GetLSNo(ADOQueryCmd,maxno,'CC','CK_BanCp_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_Main.fieldbyname('BaoID').Value; + FieldByName('RKPlace').Value:=CDS_Main.fieldbyname('RKPlace').AsString; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo.Text); + FieldByName('CRNote').Value:=Trim(CRNote.Text); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',CKOrdNo='''+trim(CKOrdNo.Text)+''''); + sql.Add(',CRNote='''+trim(CRNote.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''ѳ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + + { if YSData(CDS_Main)=False then + begin + + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; } + + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('KHName').Value:=CDS_Main.fieldbyname('KHName').Value; + FieldByName('RKOrdId').Value:=CDS_Main.fieldbyname('RKOrdId').Value; + FieldByName('BaoNo').Value:=CDS_Main.fieldbyname('BaoNo').Value; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(bao.Text); + bao.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + exit; + except + bao.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Application.MessageBox('쳣','ʾ',0); + end; + end; + +end; + +procedure TfrmCpCkSaoMNewSel.THMJIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if CDS_MainSel.IsEmpty then + begin + BaoID.Text:=''; + Application.MessageBox('δⲻɨ˻','ʾ',0); + Exit; + end; + if Trim(THMJID.Text)='' then + begin + Application.MessageBox('벻Ϊ!','ʾ',0); + Exit; + end; + if not CDS_MainSel.Locate('MJId',Trim(THMJID.Text),[]) then + begin + BaoID.Text:=''; + Application.MessageBox('˾Ųڣ','ʾ',0); + Exit; + end; + + CDS_MainSel.Locate('MJId',Trim(THMJID.Text),[]); + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCP_CR Set CRFlag='''',CRType='''',CRTime=NULL'); + sql.Add(',CRNote='''''); + sql.Add(',CKOrdNo='''''); + sql.Add(' where CRID='''+Trim(CDS_MainSel.fieldbyname('CRID').AsString)+''''); + sql.Add(' and CRFlag='''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRType='''') '); + SQL.Add(' where CRID='+CDS_MainSel.fieldbyname('CRID').AsString); + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_MainSel.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + // CDS_Main.DisableControls; + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_MainSel.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value; + FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value; + FieldByName('PRTColor').Value:=Self.CDS_MainSel.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.CDS_MainSel.fieldbyname('AOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.CDS_MainSel.fieldbyname('MJXH').Value; + FieldByName('KHName').Value:=CDS_MainSel.fieldbyname('KHName').Value; + FieldByName('RKOrdID').Value:=CDS_MainSel.fieldbyname('RKOrdID').Value; + FieldByName('BaoNo').Value:=CDS_MainSel.fieldbyname('BaoNo').Value; + FieldByName('BaoID').Value:=CDS_MainSel.fieldbyname('BaoID').Value; + Post; + end; + CDS_MainSel.Delete; + Edit2.Text:=Trim(THMJID.Text); + THMJID.Text:=''; + THMJID.SetFocus; + Exit; + except + THMJID.Text:=''; + THMJID.SetFocus; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; + +end. diff --git a/贸易管理/U_CpRkSaoMNew.dfm b/贸易管理/U_CpRkSaoMNew.dfm new file mode 100644 index 0000000..9198915 --- /dev/null +++ b/贸易管理/U_CpRkSaoMNew.dfm @@ -0,0 +1,992 @@ +object frmCpRkSaoMNew: TfrmCpRkSaoMNew + Left = 319 + Top = 287 + Width = 1136 + Height = 618 + Caption = #25104#21697#20837#24211#25195#25551 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 245 + Width = 516 + Height = 335 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + PopupMenu = PopupMenu1 + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 41 + end + object v1MJID: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column8: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'baoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column11: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1120 + Height = 245 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 61 + Top = 125 + Width = 51 + Height = 16 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 250 + Top = 125 + Width = 68 + Height = 16 + Caption = #20837#24211#26102#38388 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 6 + Top = 185 + Width = 34 + Height = 48 + Caption = #20837#24211#13#10' '#21333#13#10#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 437 + Top = 125 + Width = 34 + Height = 16 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clGreen + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 509 + Top = 320 + Width = 34 + Height = 16 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 867 + Top = 311 + Width = 40 + Height = 19 + Caption = #25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 437 + Top = 157 + Width = 34 + Height = 16 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clGreen + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 61 + Top = 157 + Width = 51 + Height = 16 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BaoID: TEdit + Left = 131 + Top = 125 + Width = 110 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 762 + Top = 165 + Width = 57 + Height = 31 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 3 + Top = 121 + Width = 45 + Height = 24 + Caption = #36873#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button3Click + end + object Button1: TButton + Left = 663 + Top = 165 + Width = 84 + Height = 31 + Caption = #25764#38144#20837#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button1Click + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1116 + Height = 103 + Align = alTop + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 78 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 75 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 60 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Button5: TButton + Left = 663 + Top = 118 + Width = 81 + Height = 31 + Caption = #25163#24037#20837#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button5Click + end + object CRTime: TDateTimePicker + Left = 320 + Top = 121 + Width = 107 + Height = 24 + Date = 41337.663190821760000000 + Time = 41337.663190821760000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + end + object Button6: TButton + Left = 250 + Top = 196 + Width = 43 + Height = 40 + Caption = #33719#21462 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Button6Click + end + object RKOrdID: TEdit + Left = 47 + Top = 192 + Width = 205 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + end + object RKPlace: TBtnEditA + Left = 472 + Top = 119 + Width = 121 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 9 + OnBtnClick = RKPlaceBtnClick + end + object BaoNo: TEdit + Left = 552 + Top = 302 + Width = 78 + Height = 44 + BiDiMode = bdLeftToRight + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentBiDiMode = False + ParentFont = False + TabOrder = 10 + end + object RKOrdPS: TEdit + Left = 293 + Top = 195 + Width = 90 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + end + object Button7: TButton + Left = 381 + Top = 196 + Width = 41 + Height = 40 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = Button7Click + end + object Button8: TButton + Left = 715 + Top = 300 + Width = 96 + Height = 40 + Caption = #25171#21360#21253#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + OnClick = Button8Click + end + object ComboBox1: TComboBox + Left = 760 + Top = 120 + Width = 57 + Height = 24 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 16 + ParentFont = False + TabOrder = 14 + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object Edit3: TEdit + Left = 824 + Top = 319 + Width = 31 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 15 + OnClick = Edit3Click + end + object gangNo: TEdit + Left = 472 + Top = 156 + Width = 121 + Height = 20 + TabOrder = 16 + end + object Bao: TEdit + Left = 131 + Top = 153 + Width = 110 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 17 + OnKeyPress = BaoKeyPress + end + end + object cxGrid3: TcxGrid + Left = 516 + Top = 245 + Width = 604 + Height = 335 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + PopupMenu = PopupMenu2 + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DS_MainSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = cxGridDBColumn1 + end + item + Kind = skSum + Column = v3KgQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object v3Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 44 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v3Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v3Column8: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v3Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v3Column7: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'RKOrdID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoID' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column9: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 0 + Top = 244 + Width = 506 + Height = 321 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 29 + Top = 48 + Width = 147 + Height = 48 + Caption = #24050#20837#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 421 + Top = 56 + Width = 49 + Height = 48 + Caption = #21367 + 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 = 50 + Top = 268 + Width = 9 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 181 + Top = 24 + Width = 241 + 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 = 0 + Text = '1234' + end + object Edit2: TEdit + Left = 44 + Top = 158 + Width = 429 + Height = 72 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '91209120001' + end + object Button4: TButton + Left = 394 + Top = 232 + Width = 70 + Height = 41 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button4Click + end + end + object MovePanel2: TMovePanel + Left = 536 + Top = 272 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 816 + Top = 48 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 132 + Top = 240 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 84 + Top = 248 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 56 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 664 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 48 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 808 + Top = 48 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 856 + Top = 48 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 56 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 56 + Top = 200 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 776 + Top = 48 + 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 = 832 + Top = 312 + end + object PopupMenu1: TPopupMenu + Left = 344 + Top = 544 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N3: TMenuItem + Caption = #20840#36873'('#25171#21253')' + OnClick = N3Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object PopupMenu2: TPopupMenu + Left = 936 + Top = 480 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + 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 = 664 + Top = 64 + ReportData = {} + end + object ADOQueryPrt: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrt + Left = 776 + Top = 384 + end +end diff --git a/贸易管理/U_CpRkSaoMNew.pas b/贸易管理/U_CpRkSaoMNew.pas new file mode 100644 index 0000000..aab1935 --- /dev/null +++ b/贸易管理/U_CpRkSaoMNew.pas @@ -0,0 +1,1514 @@ +unit U_CpRkSaoMNew; + +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, RM_System, RM_Common, RM_Class, RM_GridReport, + RM_Dataset; + +type + TfrmCpRkSaoMNew = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + BaoID: TEdit; + Label1: TLabel; + v1Column5: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + CDS_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOQuerySub: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_MainSel: TDataSource; + CDS_MainSel: TClientDataSet; + v3KgQty: TcxGridDBColumn; + Button1: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + MovePanel1: TMovePanel; + Edit1: TEdit; + Edit2: TEdit; + Label2: TLabel; + Label3: TLabel; + Button4: TButton; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Button5: TButton; + v1Column7: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + MovePanel2: TMovePanel; + CRTime: TDateTimePicker; + Label4: TLabel; + Button6: TButton; + RKOrdID: TEdit; + RKPlace: TBtnEditA; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + BaoNo: TEdit; + RKOrdPS: TEdit; + Button7: TButton; + v3Column7: TcxGridDBColumn; + RM1: TRMGridReport; + Button8: TButton; + ADOQueryPrt: TADOQuery; + RMDB_Main: TRMDBDataSet; + v3Column8: TcxGridDBColumn; + ComboBox1: TComboBox; + Edit3: TEdit; + Label8: TLabel; + v1MJID: TcxGridDBColumn; + Label9: TLabel; + gangNo: TEdit; + Bao: TEdit; + Label10: TLabel; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Label12: TLabel; + N3: TMenuItem; + v1Column11: TcxGridDBColumn; + v3Column9: 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 Button3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure RKPlaceBtnClick(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button7Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure BaoKeyPress(Sender: TObject; var Key: Char); + procedure N3Click(Sender: TObject); + private + { Private declarations } + FBaoId:String; + procedure InitGrid(); + procedure InitSubGrid(); + procedure SavedataCK(); + + public + { Public declarations } + end; + +var + frmCpRkSaoMNew: TfrmCpRkSaoMNew; + +implementation +uses +U_DataLink,U_Fun,U_OrderSelRK,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCpRkSaoMNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCpRkSaoMNew.FormDestroy(Sender: TObject); +begin + frmCpRkSaoMNew:=nil; +end; +procedure TfrmCpRkSaoMNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + SQL.Add(',SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + // SInitCDSData20(ADOQueryMain,CDS_Main); + SCreateCDS20(ADOQueryMain,CDS_MainSel); + { with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MainSel); + SInitCDSData20(ADOQueryMain,CDS_MainSel); } + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCpRkSaoMNew.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + ReadCxGrid('Ʒ',Tv1,'Ʒֿ'); + ReadCxGrid('ƷSels',Tv3,'Ʒֿ'); + InitSubGrid(); + InitGrid(); + CRTime.DateTime:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmCpRkSaoMNew.BaoIDKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if Key=#13 then + begin + Label12.Caption:=''; + if CDS_Sub.IsEmpty then + begin + BaoID.Text:=''; + + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if Trim(RKOrdID.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if CDS_MainSel.Locate('MJId',Trim(BaoID.Text),[]) then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(BaoID.Text); + Label12.Caption:='ѣ˾ظɨ裡'; + BaoID.Text:=''; + + + // Application.MessageBox('˾ظɨ裡','ʾ',0); + Exit; + end; + if CDS_Main.Locate('MJId',Trim(BaoID.Text),[])=False then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(BaoID.Text); + Label12.Caption:='ѣ˾ڴľУ'; + BaoID.Text:=''; + // Application.MessageBox('˾ڴľУ','ʾ',0); + Exit; + end; + + { if Trim(RKPlace.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; } + if Trim(BaoNo.Text)='' then + begin + if Trim(Edit3.Text)='' then + begin + application.MessageBox('ţ','ʾϢ',MB_ICONERROR); + exit; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select BaoInt=max(Cast(BaoNo as int))+1 from CK_BanCP_CR where Mainid='''+Trim(CDS_Main.fieldbyname('Mainid').AsString)+''''); + Open; + end; + BaoNo.Text:=ADOQueryTemp.fieldbyname('BaoInt').AsString; } + end; + + end; + + CDS_Main.Locate('MJId',Trim(BaoID.Text),[]); + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + { with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('RKOrdId').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + FieldByName('RKPlace').Value:=Trim(RKPlace.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET baoID=B.baoID,BaoNo=B.baoNo'); + SQL.Add(',RKPlace='''+trim(RKPlace.Text)+''' '); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('INNER JOIN WFB_MJJY B on B.MJID=A.MJID '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',RKOrdId='''+trim(RKOrdId.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' '); + IF trim(gangNo.Text)<>'' then + sql.Add(',MJStr4='+Quotedstr(trim(gangNo.Text))); + sql.Add('where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Mainid from CK_BanCP_CR where RKOrdId='''+Trim(RKOrdID.Text)+''''); + SQL.Add(' group by MainId'); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʹͬⵥ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRID').Value:=Self.CDS_Main.fieldbyname('CRID').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('PRTColor').Value:=CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=CDS_Main.fieldbyname('MJXH').Value; + IF trim(gangNo.Text)<>'' then + FieldByName('AOrdDefstr1').Value:=trim(gangNo.Text) + else + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('SOrddefstr1').Value:=CDS_Main.fieldbyname('SOrddefstr1').Value; + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + Post; + end; + CDS_Main.Delete; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(BaoID.Text); + BaoID.Text:=''; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(MJID),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + // BaoID.SetFocus; + Exit; + except + BaoID.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; +procedure TfrmCpRkSaoMNew.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; +end; +procedure TfrmCpRkSaoMNew.Button2Click(Sender: TObject); +begin + IF (trim(RKOrdID.Text)<>'') and (CDS_MainSel.RecordCount>0) then + begin + if Application.MessageBox('ȷҪرս棬ӡⵥ','ʾ',32+4)<>IDYES then Exit; + end; + tv1.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + Close; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + WriteCxGrid('Ʒ',Tv1,'Ʒֿ'); + WriteCxGrid('ƷSels',Tv3,'Ʒֿ'); +end; + +procedure TfrmCpRkSaoMNew.Button3Click(Sender: TObject); +begin + {if CDS_Main.IsEmpty=False then + begin + Application.MessageBox('ɨ費ܸĵţ','ʾ',0); + Exit; + end;} + try + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + if Self.CDS_Sub.Locate('SubId',Trim(CDS_OrderSel.fieldbyname('SubId').AsString),[])=False then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_OrderSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_OrderSel.fieldbyname('SubId').AsString); + FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString); + FieldByName('OrderNo').Value:=Trim(CDS_OrderSel.fieldbyname('OrderNo').AsString); + FieldByName('CustomerNoName').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNoName').AsString); + FieldByName('MPRTCodeName').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTOrderQty').Value:=Trim(CDS_OrderSel.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(CDS_OrderSel.fieldbyname('OrderUnit').AsString); + FieldByName('PRTColor').Value:=Trim(CDS_OrderSel.fieldbyname('PRTColor').AsString); + FieldByName('MPRTMF').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTMF').AsString); + FieldByName('MPRTKZ').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTKZ').AsString); + Post; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(Self.CDS_Sub.fieldbyname('SFlag').AsString)<>'2' then + begin + with Self.ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select orderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + sql.Add(',PRTColor=(select PRTColor from JYOrder_Sub JS where JS.SubId=A.SubId) '); + sql.Add(',SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JS where JS.SubId=A.SubId) '); + sql.Add(',AOrdDefStr1=B.MJStr4,B.MJXh,A.* '); + sql.Add(' from CK_BanCP_CR A '); + sql.Add(' inner join WFB_MJJY B on B.MJID=A.MJID '); + sql.Add(' where isnull(A.CRFlag,'''')='''' '); + SQL.Add(' and A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + // sql.Add(' and APID in (''150422026'',''150401015'')'); + Open; + end; + Self.ADOQueryTemp.DisableControls; + CDS_Main.DisableControls; + with Self.ADOQueryTemp do + begin + First; + while not Eof do + begin + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=Self.ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=Self.ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('OrderNo').Value:=Self.ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.ADOQueryTemp.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.ADOQueryTemp.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.ADOQueryTemp.fieldbyname('MJId').Value; + FieldByName('CRID').Value:=Self.ADOQueryTemp.fieldbyname('CRID').Value; + FieldByName('CPType').Value:=Self.ADOQueryTemp.fieldbyname('CPType').Value; + FieldByName('PRTColor').Value:=Self.ADOQueryTemp.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.ADOQueryTemp.fieldbyname('AOrddefstr1').Value; + FieldByName('SOrddefstr1').Value:=Self.ADOQueryTemp.fieldbyname('SOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.ADOQueryTemp.fieldbyname('MJXH').Value; + FieldByName('baoID').Value:=Self.ADOQueryTemp.fieldbyname('baoID').Value; + FieldByName('baoNo').Value:=Self.ADOQueryTemp.fieldbyname('baoNo').Value; + Post; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Self.ADOQueryTemp.EnableControls; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SFlag').Value:='2'; + CDS_Sub.Post; + Next; + end; + end; + CDS_Sub.EnableControls; + Button6.OnClick(self); + end; + + end; + finally + frmOrderSelRK.Release; + end; +end; + +procedure TfrmCpRkSaoMNew.InitSubGrid(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,Cast('''' as varchar(20))'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where 1<>1 '); + + Open; + end; + SCreateCDS20(ADOQuerySub,CDS_Sub); + SInitCDSData20(ADOQuerySub,CDS_Sub); + finally + ADOQuerySub.EnableControls; + end; +end; + + +procedure TfrmCpRkSaoMNew.Button1Click(Sender: TObject); +begin + if CDS_MainSel.IsEmpty then Exit; + if CDS_MainSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_MainSel.DisableControls; + CDS_Main.DisableControls; + with CDS_MainSel do + begin + First; + while CDS_MainSel.FieldByName('SSel').AsBoolean=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_BanCP_CR Set CRFlag='''',CRType='''',CRTime=NULL,RKOrdId='''''); + sql.Add(' where MJID='''+Trim(CDS_MainSel.fieldbyname('MJID').AsString)+''''); + sql.Add(' and CRFlag='''''); + ExecSQL; + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + // sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_MainSel.fieldbyname('BCID').AsString)+''''); + // sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_MainSel.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2=''δ'' where MJID='''+Trim(CDS_MainSel.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; } + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value; + FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value; + FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value; + FieldByName('PRTColor').Value:=Self.CDS_MainSel.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.CDS_MainSel.fieldbyname('AOrddefstr1').Value; + FieldByName('SOrddefstr1').Value:=CDS_MainSel.fieldbyname('SOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.CDS_MainSel.fieldbyname('MJXH').Value; + FieldByName('baoID').Value:=Self.CDS_MainSel.fieldbyname('baoID').Value; + FieldByName('baoNo').Value:=Self.CDS_MainSel.fieldbyname('baoNo').Value; + FieldByName('CRId').Value:=Self.CDS_MainSel.fieldbyname('CRId').Value; + Post; + end; + CDS_MainSel.Delete; + end; + + end; + CDS_MainSel.EnableControls; + CDS_Main.EnableControls; + + + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2=''δ''where not exists(select MJID from CK_BanCP_CR X where X.MJID=WFB_MJJY.MJID and X.CRFlag='''' and MJStr2<>''δ'')'); + ExecSQL; + end; + + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(CDS_Main.fieldbyname('MJId').AsString); + if Trim(RKOrdID.Text)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(MJID),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + end; + except + MovePanel2.Visible:=False; + CDS_MainSel.EnableControls; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCpRkSaoMNew.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MainSel.IsEmpty=False then Exit; + if CDS_Sub.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(CDS_Main.fieldbyname('SubId').AsString)=Trim(CDS_Sub.fieldbyname('SubId').AsString) then + begin + CDS_Main.Delete; + end else + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Sub.Delete; +end; + +procedure TfrmCpRkSaoMNew.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmCpRkSaoMNew.Button5Click(Sender: TObject); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(RKOrdID.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; +{ if Trim(RKPlace.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then exit; + + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + CDS_MainSel.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + application.ProcessMessages; + with ADOQueryCmd do + begin + Close; + sql.Clear; + { sql.Add('UPDATE CK_BanCP_CR SET baoID=B.baoID,BaoNo=B.baoNo'); + SQL.Add(',RKPlace='''+trim(RKPlace.Text)+''' '); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('INNER JOIN WFB_MJJY B on B.MJID=A.MJID '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + } + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',RKOrdId='''+trim(RKOrdId.Text)+''''); + SQL.Add(',RKPlace='''+trim(RKPlace.Text)+''' '); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryTemp.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryTemp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('RKOrdId').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + FieldByName('RKPlace').Value:=Trim(RKPlace.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' '); + IF trim(gangNo.Text)<>'' then + sql.Add(',MJStr4='+Quotedstr(trim(gangNo.Text))); + sql.Add('where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; } + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + IF trim(gangNo.Text)<>'' then + FieldByName('AOrdDefstr1').Value:=trim(gangNo.Text) + else + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('SOrddefstr1').Value:=Self.CDS_Main.fieldbyname('SOrddefstr1').Value; + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + Post; + end; + CDS_Main.Delete; + end else + CDS_Main.Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''''); + IF trim(gangNo.Text)<>'' then + sql.Add(',MJStr4='+Quotedstr(trim(gangNo.Text))); + sql.Add('where exists (select X.MJID from CK_BanCP_CR X where X.MJID=WFB_MJJY.MJID and X.RKOrdId='''+Trim(RKOrdId.Text)+''')'); + ExecSQL; + end; + CDS_Main.EnableControls; + CDS_MainSel.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Mainid from CK_BanCP_CR where RKOrdId='''+Trim(RKOrdID.Text)+''''); + SQL.Add(' group by MainId'); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʹͬⵥ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + Exit; + except + BaoID.Text:=''; + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmCpRkSaoMNew.N1Click(Sender: TObject); +begin + //SelOKNo(CDS_Main,True); + if CDS_Main.IsEmpty then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(ComboBox1.Text)='' then + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + end else + begin + if Trim(CDS_Main.fieldbyname('CPType').AsString)=Trim(ComboBox1.Text) then + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmCpRkSaoMNew.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCpRkSaoMNew.MenuItem1Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,True); +end; + +procedure TfrmCpRkSaoMNew.MenuItem2Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,False); +end; + +procedure TfrmCpRkSaoMNew.Button6Click(Sender: TObject); +var + maxno:string; +begin + if GetLSNo(ADOQueryCmd,maxno,'9','CK_BanCP_CR',4,1)=False then + begin + Application.MessageBox('ȡⵥʧ!','ʾ',0); + Exit; + end; + RKOrdID.Text:=Trim(maxno); +end; + +procedure TfrmCpRkSaoMNew.RKPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + RKPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCpRkSaoMNew.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + RKOrdID.Text:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; +end; + +procedure TfrmCpRkSaoMNew.Button7Click(Sender: TObject); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Trim(RKOrdID.Text)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ⵥǩ.rmf'; + with ADOQueryPrt do + begin + Close; + sql.Clear; + sql.Add('select A1.CRTime,A1.RKOrdID,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(RKOrdID,''RKColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(RKOrdID,''RKSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(RKOrdID,''RkSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(RKOrdID,''RKPRtHX''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(RKOrdID,''RkPrtkuanno''),'); + sql.Add('MJStr4=DBO.F_Get_Order_SubStr(RKOrdID,''RKGangNO''), '); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('Bsl=(select count(distinct baoNo) from CK_BanCP_CR X where X.RKOrdID=A1.RKOrdID), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from CK_BanCP_CR A1 inner join WFB_MJJY A on A.MJID=A1.MJID '); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + sql.Add(' where A1.RKOrdID='''+Trim(RKOrdID.Text)+''''); + SQL.ADD(' group by A1.CRTime,A1.RKOrdID,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO'); + //ShowMessage(ADOQueryPrt.SQL.Text); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrt.fieldbyname('RKOrdID').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; + + if FileExists(fPrintFile) then + begin + //CDS_MainSel.Locate('RKOrdID',Trim(RKOrdID.Text),[]); + //RMVariables['RKOrdID']:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + //RMVariables['OrderNo']:=Trim(CDS_MainSel.fieldbyname('OrderNo').AsString); + //RMVariables['PS']:=Trim(RKOrdPS.Text); + //RMVariables['QtyUnit']:=Trim(CDS_MainSel.fieldbyname('QtyUnit').AsString); + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ⵥǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCpRkSaoMNew.Button8Click(Sender: TObject); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Trim(Edit3.Text)='' then Exit; + if Trim(BaoNo.Text)='' then + begin + BaoNo.Text:=''; + Exit; + end else + begin + BaoNo.Text:=''; + // BaoNo.Text:=IntToStr(StrToInt(BaoNo.Text)+1); + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + with ADOQueryPrt do + begin + Close; + sql.Clear; + sql.Add('select A.BaoId,A.BaoNo,A.QtyUnit,B.AOrdDefStr1,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,C.PRtHX,'); + sql.Add(' khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add(' Count(A.BaoId) JSl,Sum(WM.MJQty4) MJQty4,Sum(WM.MJMaoZ) MJMaoZ,Sum(WM.MJLen) MJLen'); + sql.Add(' from CK_BanCP_CR A inner join WFB_MJJY WM on A.MJID=WM.MJID'); + sql.Add(' inner join JYOrder_Sub_AnPai B on A.APID=B.APID'); + sql.Add(' inner join JYOrder_Sub C on B.SubID=C.SubID'); + sql.Add(' inner join JYOrder_Main D on C.MainID=D.MainID'); + sql.Add(' where BaoId='''+Trim(FBaoId)+''' and A.CRflag='''' '); + sql.Add(' Group by A.BaoId,A.BaoNo,A.QtyUnit,B.AOrdDefStr1,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1,C.PRTColor,C.SOrddefstr1,C.SOrddefstr4,C.PRtHX'); + Open; + end; + if ADOQueryPrt.RecordCount>1 then + begin + Application.MessageBox('볷!','ʾ',0); + Exit; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrt.fieldbyname('BaoId').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; + if FileExists(fPrintFile) then + begin + //RMVariables['RKOrdID']:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + //RMVariables['OrderNo']:=Trim(CDS_MainSel.fieldbyname('OrderNo').AsString); + //RMVariables['PS']:=Trim(RKOrdPS.Text); + //RMVariables['QtyUnit']:=Trim(CDS_MainSel.fieldbyname('QtyUnit').AsString); + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + // rm1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + CDS_MainSel.EmptyDataSet; + FBaoId:=''; +end; + +procedure TfrmCpRkSaoMNew.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + baoNo.Text:=''; + fbaoID:=''; + end else + begin + Edit3.Text:=''; + baoNo.Text:=''; + fbaoID:=''; + end; +end; + +procedure TfrmCpRkSaoMNew.BaoKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if Key=#13 then + begin + Label12.Caption:=''; + if CDS_Sub.IsEmpty then + begin + Bao.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if Trim(RKOrdID.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + IF trim(Bao.text)='' then + begin + // Label12.Caption:='ŲΪգ'; + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if CDS_MainSel.Locate('baoID',Trim(Bao.Text),[]) then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(Bao.Text); + Label12.Caption:='ѣ˰ظɨ裡'; + Bao.Text:=''; + + // Application.MessageBox('˰ظɨ裡','ʾ',0); + Exit; + end; + if CDS_Main.Locate('baoID',Trim(Bao.Text),[])=False then + begin + MovePanel1.Visible:=True; + Edit2.Text:=Trim(Bao.Text); + Label12.Caption:='ѣ˾ڴľУ'; + Bao.Text:=''; + + // Application.MessageBox('˾ڴľУ','ʾ',0); + Exit; + end; + + + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + DisableControls; + while CDS_Main.Locate('BaoID',Trim(Bao.Text),[]) do + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCP_CR SET baoID=B.baoID,BaoNo=B.baoNo'); + SQL.Add(',RKPlace='''+trim(RKPlace.Text)+''' '); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('INNER JOIN WFB_MJJY B on B.MJID=A.MJID '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + + sql.Add('UPDATE CK_BanCP_CR SET CRFlag='''',CRType='''',FillTime=getdate() '); + sql.add(',CRTime='''+trim(FormatDateTime('yyyy-MM-dd',CRTime.DateTime))+''''); + sql.Add(',RKOrdId='''+trim(RKOrdId.Text)+''''); + sql.Add(',Filler='''+trim(DName)+''''); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('and A.CRFlag='''' '); + ExecSQL; + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('RKOrdId').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + + FieldByName('RKPlace').Value:=Trim(RKPlace.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' '); + IF trim(gangNo.Text)<>'' then + sql.Add(',MJStr4='+Quotedstr(trim(gangNo.Text))); + sql.Add('where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRID').Value:=Self.CDS_Main.fieldbyname('CRID').Value; + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('PRTColor').Value:=CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=CDS_Main.fieldbyname('MJXH').Value; + IF trim(gangNo.Text)<>'' then + FieldByName('AOrdDefstr1').Value:=trim(gangNo.Text) + else + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('SOrddefstr1').Value:=CDS_Main.fieldbyname('SOrddefstr1').Value; + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(CDS_Main.fieldbyname('BaoNo').AsString); + FieldByName('BaoID').Value:=Trim(CDS_Main.fieldbyname('BaoID').AsString); + Post; + end; + CDS_Main.Delete; + end; + CDS_Main.EnableControls; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Mainid from CK_BanCP_CR where RKOrdId='''+Trim(RKOrdID.Text)+''''); + SQL.Add(' group by MainId'); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʹͬⵥ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(Bao.Text); + Bao.Text:=''; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + Exit; + except + Bao.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; + + +procedure TfrmCpRkSaoMNew.N3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(Fieldbyname('baoNo').AsString)<>'' then + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +end. diff --git a/贸易管理/U_CpRkSaoMNewDB.dfm b/贸易管理/U_CpRkSaoMNewDB.dfm new file mode 100644 index 0000000..eb91430 --- /dev/null +++ b/贸易管理/U_CpRkSaoMNewDB.dfm @@ -0,0 +1,710 @@ +object frmCpRkSaoMNewDB: TfrmCpRkSaoMNewDB + Left = 31 + Top = 56 + Width = 1199 + Height = 652 + Caption = #25104#21697#25171#21253#25195#25551 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 209 + Width = 516 + Height = 405 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + PopupMenu = PopupMenu1 + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 41 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1183 + Height = 209 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 90 + Top = 137 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + end + object Label4: TLabel + Left = 256 + Top = 137 + Width = 48 + Height = 12 + Caption = #20837#24211#26102#38388 + end + object Label5: TLabel + Left = 22 + Top = 157 + Width = 34 + Height = 48 + Caption = #20837#24211#13#10' '#21333#13#10#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 464 + Top = 137 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label7: TLabel + Left = 464 + Top = 168 + Width = 24 + Height = 12 + Caption = #21253#21495 + end + object BaoID: TEdit + Left = 139 + Top = 133 + Width = 110 + Height = 20 + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 701 + Top = 164 + Width = 57 + Height = 20 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 21 + Top = 133 + Width = 45 + Height = 20 + Caption = #36873#21333 + TabOrder = 2 + OnClick = Button3Click + end + object Button1: TButton + Left = 619 + Top = 164 + Width = 65 + Height = 20 + Caption = #25764#38144#20837#24211 + TabOrder = 3 + OnClick = Button1Click + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1179 + Height = 120 + Align = alTop + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 78 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Button5: TButton + Left = 619 + Top = 133 + Width = 65 + Height = 20 + Caption = #20837#24211 + TabOrder = 5 + OnClick = Button5Click + end + object CRTime: TDateTimePicker + Left = 309 + Top = 133 + Width = 97 + Height = 20 + Date = 41337.663190821760000000 + Time = 41337.663190821760000000 + TabOrder = 6 + end + object Button6: TButton + Left = 365 + Top = 163 + Width = 40 + Height = 21 + Caption = #33719#21462 + TabOrder = 7 + OnClick = Button6Click + end + object RKOrdID: TEdit + Left = 59 + Top = 166 + Width = 205 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + end + object RKPlace: TBtnEditA + Left = 491 + Top = 133 + Width = 100 + Height = 20 + TabOrder = 9 + OnBtnClick = RKPlaceBtnClick + end + object BaoNo: TEdit + Left = 491 + Top = 164 + Width = 100 + Height = 20 + TabOrder = 10 + end + object RKOrdPS: TEdit + Left = 265 + Top = 164 + Width = 99 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + end + object Button7: TButton + Left = 365 + Top = 187 + Width = 41 + Height = 21 + Caption = #25171#21360 + TabOrder = 12 + OnClick = Button7Click + end + end + object cxGrid3: TcxGrid + Left = 516 + Top = 209 + Width = 667 + Height = 405 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + PopupMenu = PopupMenu2 + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DS_MainSel + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Format = #21367#25968#37327#65306'#' + Kind = skCount + Column = cxGridDBColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v3Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 44 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v3Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v3Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v3Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v3Column7: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'RKOrdID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 8 + Top = 232 + Width = 506 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 29 + Top = 48 + Width = 147 + Height = 48 + Caption = #24050#20837#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 421 + Top = 56 + Width = 49 + Height = 48 + Caption = #21367 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 181 + Top = 24 + Width = 241 + 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 = 0 + Text = '1234' + end + object Edit2: TEdit + Left = 38 + Top = 143 + Width = 386 + Height = 72 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '91209120001' + end + object Button4: TButton + Left = 181 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button4Click + end + end + object MovePanel2: TMovePanel + Left = 464 + Top = 272 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 976 + Top = 40 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 136 + Top = 216 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 96 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1072 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 72 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 48 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 288 + Top = 48 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 680 + Top = 64 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 56 + Top = 200 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 600 + Top = 72 + 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 = 832 + Top = 312 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 528 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object PopupMenu2: TPopupMenu + Left = 936 + Top = 480 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + 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 = 456 + Top = 176 + ReportData = {} + end +end diff --git a/贸易管理/U_CpRkSaoMNewDB.pas b/贸易管理/U_CpRkSaoMNewDB.pas new file mode 100644 index 0000000..61bb83a --- /dev/null +++ b/贸易管理/U_CpRkSaoMNewDB.pas @@ -0,0 +1,940 @@ +unit U_CpRkSaoMNewDB; + +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, RM_System, RM_Common, RM_Class, RM_GridReport; + +type + TfrmCpRkSaoMNewDB = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Panel1: TPanel; + BaoID: TEdit; + Label1: TLabel; + v1Column5: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + CDS_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOQuerySub: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_MainSel: TDataSource; + CDS_MainSel: TClientDataSet; + v3Column1: TcxGridDBColumn; + Button1: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + MovePanel1: TMovePanel; + Edit1: TEdit; + Edit2: TEdit; + Label2: TLabel; + Label3: TLabel; + Button4: TButton; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Button5: TButton; + v1Column7: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + MovePanel2: TMovePanel; + CRTime: TDateTimePicker; + Label4: TLabel; + Button6: TButton; + RKOrdID: TEdit; + RKPlace: TBtnEditA; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + BaoNo: TEdit; + RKOrdPS: TEdit; + Button7: TButton; + v3Column7: TcxGridDBColumn; + RM1: TRMGridReport; + 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 Button3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure RKPlaceBtnClick(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button7Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitSubGrid(); + procedure SavedataCK(); + public + { Public declarations } + end; + +var + frmCpRkSaoMNewDB: TfrmCpRkSaoMNewDB; + +implementation +uses +U_DataLink,U_Fun,U_OrderSelRK,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCpRkSaoMNewDB.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCpRkSaoMNewDB.FormDestroy(Sender: TObject); +begin + frmCpRkSaoMNewDB:=nil; +end; +procedure TfrmCpRkSaoMNewDB.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',PRTColor=(select PRTColor from JYOrder_Sub where SubId=A.SubId)'); + sql.Add(',AOrdDefstr1=(select AOrdDefstr1 from JYOrder_Sub_AnPai where ApId=A.ApId)'); + sql.Add(',MJXH=(select MJXH from WFB_MJJY where MJID=A.MJID)'); + sql.Add('from CK_BanCP_CR A'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MainSel); + SInitCDSData20(ADOQueryMain,CDS_MainSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCpRkSaoMNewDB.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + ReadCxGrid('Ʒ',Tv1,'Ʒֿ'); + ReadCxGrid('ƷSels',Tv3,'Ʒֿ'); + InitSubGrid(); + InitGrid(); + CRTime.DateTime:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmCpRkSaoMNewDB.BaoIDKeyPress(Sender: TObject; var Key: Char); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if Key=#13 then + begin + if CDS_Sub.IsEmpty then + begin + BaoID.Text:=''; + Application.MessageBox('δѡɨ⣡','ʾ',0); + Exit; + end; + if CDS_Main.Locate('MJId',Trim(BaoID.Text),[])=False then + begin + BaoID.Text:=''; + //Application.MessageBox('˾ڴľУ','ʾ',0); + Exit; + end; + if Trim(RKOrdID.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if Trim(RKPlace.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + CDS_Main.Locate('MJId',Trim(BaoID.Text),[]); + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('RKOrdId').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('RKPlace').Value:=Trim(RKPlace.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Mainid from CK_BanCP_CR where RKOrdId='''+Trim(RKOrdID.Text)+''''); + SQL.Add(' group by MainId'); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʹͬⵥ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=IntToStr(CRID); + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + FieldByName('PRTColor').Value:=CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + Post; + end; + CDS_Main.Delete; + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(BaoID.Text); + BaoID.Text:=''; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + Exit; + except + BaoID.Text:=''; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end; +end; +procedure TfrmCpRkSaoMNewDB.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; +end; +procedure TfrmCpRkSaoMNewDB.Button2Click(Sender: TObject); +begin + Close; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + WriteCxGrid('Ʒ',Tv1,'Ʒֿ'); + WriteCxGrid('ƷSels',Tv3,'Ʒֿ'); +end; + +procedure TfrmCpRkSaoMNewDB.Button3Click(Sender: TObject); +begin + {if CDS_Main.IsEmpty=False then + begin + Application.MessageBox('ɨ費ܸĵţ','ʾ',0); + Exit; + end;} + try + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + if Self.CDS_Sub.Locate('SubId',Trim(CDS_OrderSel.fieldbyname('SubId').AsString),[])=False then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_OrderSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_OrderSel.fieldbyname('SubId').AsString); + FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString); + FieldByName('OrderNo').Value:=Trim(CDS_OrderSel.fieldbyname('OrderNo').AsString); + FieldByName('CustomerNoName').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNoName').AsString); + FieldByName('MPRTCodeName').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTOrderQty').Value:=Trim(CDS_OrderSel.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(CDS_OrderSel.fieldbyname('OrderUnit').AsString); + FieldByName('PRTColor').Value:=Trim(CDS_OrderSel.fieldbyname('PRTColor').AsString); + FieldByName('MPRTMF').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTMF').AsString); + FieldByName('MPRTKZ').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTKZ').AsString); + Post; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(Self.CDS_Sub.fieldbyname('SFlag').AsString)<>'2' then + begin + with Self.ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select orderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + sql.Add(',PRTColor=(select PRTColor from JYOrder_Sub JS where JS.SubId=A.SubId) '); + sql.Add(',AOrdDefStr1=(select AOrdDefStr1 from JYOrder_Sub_AnPai JS where JS.APId=A.APId),A.* '); + sql.Add(' from WFB_MJJY A '); + sql.Add(' where isnull(A.MJStr2,'''')=''δ'' '); + SQL.Add(' and A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + Self.ADOQueryTemp.DisableControls; + with Self.ADOQueryTemp do + begin + First; + while not Eof do + begin + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=Self.ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=Self.ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('OrderNo').Value:=Self.ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.ADOQueryTemp.fieldbyname('MJMaoZ').Value; + FieldByName('Qty').Value:=Self.ADOQueryTemp.fieldbyname('MJLen').Value; + FieldByName('QtyUnit').Value:=Self.ADOQueryTemp.fieldbyname('MJTypeOther').Value; + FieldByName('MJId').Value:=Self.ADOQueryTemp.fieldbyname('MJId').Value; + FieldByName('CPType').Value:=Self.ADOQueryTemp.fieldbyname('MJType').Value; + FieldByName('PRTColor').Value:=Self.ADOQueryTemp.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.ADOQueryTemp.fieldbyname('AOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.ADOQueryTemp.fieldbyname('MJXH').Value; + Post; + end; + Next; + end; + end; + Self.ADOQueryTemp.EnableControls; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SFlag').Value:='2'; + CDS_Sub.Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; + end; + finally + frmOrderSelRK.Free; + end; +end; + +procedure TfrmCpRkSaoMNewDB.InitSubGrid(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where 1<>1 '); + + Open; + end; + SCreateCDS20(ADOQuerySub,CDS_Sub); + SInitCDSData20(ADOQuerySub,CDS_Sub); + finally + ADOQuerySub.EnableControls; + end; +end; + + +procedure TfrmCpRkSaoMNewDB.Button1Click(Sender: TObject); +begin + if CDS_MainSel.IsEmpty then Exit; + if CDS_MainSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_MainSel.DisableControls; + with CDS_MainSel do + begin + First; + while not Eof do + begin + if CDS_MainSel.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_MainSel.fieldbyname('BCID').AsString)+''''); + sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_MainSel.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2=''δ'' where MJID='''+Trim(CDS_MainSel.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with CDS_Main do + begin + Append; + FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value; + FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value; + FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value; + FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value; + FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value; + FieldByName('PRTColor').Value:=Self.CDS_MainSel.fieldbyname('PRTColor').Value; + FieldByName('AOrddefstr1').Value:=Self.CDS_MainSel.fieldbyname('AOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.CDS_MainSel.fieldbyname('MJXH').Value; + Post; + end; + CDS_MainSel.Delete; + end else + Next; + end; + end; + CDS_MainSel.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + + MovePanel1.Visible:=True; + if CDS_MainSel.IsEmpty=False then + Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2]) + else + Edit1.Text:='0'; + Edit2.Text:=Trim(CDS_Main.fieldbyname('MJId').AsString); + if Trim(RKOrdID.Text)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + end; + except + MovePanel2.Visible:=False; + CDS_MainSel.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmCpRkSaoMNewDB.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MainSel.IsEmpty=False then Exit; + if CDS_Sub.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if Trim(CDS_Main.fieldbyname('SubId').AsString)=Trim(CDS_Sub.fieldbyname('SubId').AsString) then + begin + CDS_Main.Delete; + end else + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Sub.Delete; +end; + +procedure TfrmCpRkSaoMNewDB.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmCpRkSaoMNewDB.Button5Click(Sender: TObject); +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(RKOrdID.Text)='' then + begin + Application.MessageBox('ⵥŲΪ!','ʾ',0); + Exit; + end; + if Trim(RKPlace.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('RKOrdId').Value:=Trim(RKOrdID.Text); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('RKPlace').Value:=Trim(RKPlace.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').Value; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with CDS_MainSel do + begin + Append; + FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value; + FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value; + FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value; + FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value; + FieldByName('CRId').Value:=IntToStr(CRID); + FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('PRTColor').Value:=Self.CDS_Main.fieldbyname('PRTColor').Value; + FieldByName('MJXH').Value:=Self.CDS_Main.fieldbyname('MJXH').Value; + FieldByName('AOrdDefstr1').Value:=CDS_Main.fieldbyname('AOrdDefstr1').Value; + FieldByName('RKOrdID').Value:=Trim(RKOrdID.Text); + Post; + end; + CDS_Main.Delete; + end else + CDS_Main.Next; + end; + end; + CDS_Main.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Mainid from CK_BanCP_CR where RKOrdId='''+Trim(RKOrdID.Text)+''''); + SQL.Add(' group by MainId'); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬʹͬⵥ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; + Exit; + except + BaoID.Text:=''; + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmCpRkSaoMNewDB.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCpRkSaoMNewDB.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCpRkSaoMNewDB.MenuItem1Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,True); +end; + +procedure TfrmCpRkSaoMNewDB.MenuItem2Click(Sender: TObject); +begin + SelOKNo(CDS_MainSel,False); +end; + +procedure TfrmCpRkSaoMNewDB.Button6Click(Sender: TObject); +var + maxno:string; +begin + if GetLSNo(ADOQueryCmd,maxno,'9','CK_BanCP_CR',4,1)=False then + begin + Application.MessageBox('ȡⵥʧ!','ʾ',0); + Exit; + end; + RKOrdID.Text:=Trim(maxno); +end; + +procedure TfrmCpRkSaoMNewDB.RKPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + RKPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCpRkSaoMNewDB.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + RKOrdID.Text:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select isnull(Count(*),0) ZPS from CK_BanCP_CR where RKOrdID='''+Trim(RKOrdID.Text)+''''); + Open; + end; + RKOrdPS.Text:=Trim(ADOQueryCmd.fieldbyname('ZPS').AsString)+'ƥ'; +end; + +procedure TfrmCpRkSaoMNewDB.Button7Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(RKOrdPS.Text)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ⵥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + CDS_MainSel.Locate('RKOrdID',Trim(RKOrdID.Text),[]); + RMVariables['RKOrdID']:=Trim(CDS_MainSel.fieldbyname('RKOrdID').AsString); + RMVariables['OrderNo']:=Trim(CDS_MainSel.fieldbyname('OrderNo').AsString); + RMVariables['PS']:=Trim(RKOrdPS.Text); + RMVariables['QtyUnit']:=Trim(CDS_MainSel.fieldbyname('QtyUnit').AsString); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ⵥǩ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/贸易管理/U_DataLink.dfm b/贸易管理/U_DataLink.dfm new file mode 100644 index 0000000..dae1176 --- /dev/null +++ b/贸易管理/U_DataLink.dfm @@ -0,0 +1,17978 @@ +object DataLink_TradeManage: TDataLink_TradeManage + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 276 + Top = 210 + Height = 296 + Width = 410 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 72 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A400000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C900000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C0000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA00000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF8000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC00000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB800263873000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B10028387100000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC0028397700000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D0034468200000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA900000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F428500000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF0000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D00000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D00000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE1000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A200000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB80000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 000000000000808080005050500080808000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB10000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 000000000000808080005555550080808000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B70000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 000000000000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 000000000000000000000000000000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A0000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF0000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D0000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB300000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB00000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 00000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 00000000000000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF100000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E0000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C00000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E600000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA5000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E00000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D7000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB0000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD00000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE10000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE300000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C9000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A6000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D9000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F600000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB40000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE1000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E9000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF800000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F0000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F9000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD700000000000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F100000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA0000000000000000000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F100000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F90000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC00000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 000000000000000000000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC00000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 00000000000000000000000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E500000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D40000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D300000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB40000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E10000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F70000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD00000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC2000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD700000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF600000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F4000000000000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF5000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F519400000000000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB1000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C30000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC50000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF6000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C0000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F60000000000000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 00000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 00000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 000000000000000000000000000000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF00000000000000000000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C50000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A4000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F40000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C760000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD80000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C0000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC003143830000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E40000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA0000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E2000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A3000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF00000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B900000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D1000000000000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F7000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF00000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC500000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B930000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F990000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A10000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B10000000000000000000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A990000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D0000000000000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F1000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D0003143840000000000000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F20000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E0000000000000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B90000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA0000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC0000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC80000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A7000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F4491000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 00000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC00324999000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 000000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 000000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA1000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A9000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B0000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB30000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB40000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD00000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A30000000000000000000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A000000000000000000000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C6002333670000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D0000000000000000000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB000324910029397200000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 7100000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA0030428200000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 7400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB00033468700000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C9200000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A509700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D200000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF00000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB00000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC000000000000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB50000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD000000000000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB0000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD000000000000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD00000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C0000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC3000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF7000000000000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF800000000000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F5000000000000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF500000000000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF70000000000000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 000000000000000000000000000000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 000000000000000000000000000000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 000000000000000000000000000000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 000000000000000000000000000000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF5000000000000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C00000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D4186000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A800000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB003147920000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A3000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB30000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB40000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB6000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B9000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C1000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E90000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C5000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D41870000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C9000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C3003247900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C4003348930000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A950000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F990000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 000000000000000000000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A20000000000000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C0000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A50000000000000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA80000000000000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF5000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD00000000000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC7000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF60000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD0000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C90000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB900000000000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C9000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB000000000000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B500263774000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D71000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D8100000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D00000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A0000000000000000000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB0031479200000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC00000000000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C9000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A300000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E00000000000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA500000000000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D1000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD000000000000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D5000000000000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB00000000000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E200000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B700000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE00000000000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D6000000000000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C8000000000000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F0068676900555769000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB000000000000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F300000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC2000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF2000000000000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A6387000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D200000000000000000000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C30000000000000000000000000000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C700000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 000000000000000000000000000000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 000000000000000000000000000000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 0000000000000000000000000000000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF80000000000000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA000000000000000000000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 00000000000000000000000000000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 000000000000000000000000000000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 820000000000000000000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 88000000000000000000000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C870000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F000000000000000000000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B9600000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F70000000000000000000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A0000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD000000000000000000000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A9000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC0000000000000000000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B00000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA0000000000000000000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A0000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD0000000000000000000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE000000000000000000000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B8000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD00000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C0000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C50000000000000000000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC1000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C60000000000000000000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC2000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB00000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C90000000000000000000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE0000000000000000000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB0000000000000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F00000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE000000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F0000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A800000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB00000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE0000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B800000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD00516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA00435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB00000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC00445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD00000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB00445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE00000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC00445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 0000000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF00516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 000000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC100000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E300748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 000000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF600BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E80000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC40000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC8000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF6000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC6000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE2000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD0000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C7000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C700000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D20000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E00000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F20000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F200000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E40000000000000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 000000000000000000000000000000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F300000000000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 00000000000000000000000000000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF500000000000000000000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF300000000000000000000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 000000000000000000000000000000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F2000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC50000000000000000000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC00000000000000000000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D800000000000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED000000000000000000000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED00000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC50000000000000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB00000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A0000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F41800000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C9003144870000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F80000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D950000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F519200000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D0000000000000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F0000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A40000000000000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB30000000000000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB0000000000000000000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A400000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD0000000000000000000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF0000000000000000000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C10000000000000000000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC20000000000000000000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C1000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC40000000000000000000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD3000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC60000000000000000000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E900000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C700000000000000000000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 00000000000000000000000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 00000000000000000000000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 0000000000000000000000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D0000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB00000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E90000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D60000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB00000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E10000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E00000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC20000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA0000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F100000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B20000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F2000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF3000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF3000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF3000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC40000000000000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC700000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 000000000000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B700000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB200000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 000000000000000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC10000000000000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D20000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 00000000000000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C60000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 00000000000000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 00000000000000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 00000000000000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD00000000000000000000000000031D3D85093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C7BFF093C + 7BFF093C7BFF093C7BFF010D1D3A000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000C458BFF1D54ABFF1E54A9FF1E54 + A9FF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54AAFF1E54 + AAFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1E54ABFF1D54ABFF1D54 + ABFF1D54ABFF1C54AEFF0D468CFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000F4791FF14439DFF14439DFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF15449EFF1544 + 9EFF15449EFF3E8AD8FF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000F4792FF15459FFF1546A0FF1546 + A0FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647A1FF1647 + A1FF1647A1FF1D55AFFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000F4892FF1749A3FF184CA6FF194D + A7FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1B4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1B51ABFF448EDAFF0C458BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA00324894000000000000000000000000000F4893FF1A4EA8FF1B51ABFF1C54 + AEFF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57B1FF1E57 + B1FF1E57B1FF4C92DCFF0B448AFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C00000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF0B448AFF000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000104894FF1A4EA8FF1B52ACFF1C55 + AFFF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF1E58 + B2FF1E58B2FF1E58B2FF1E58B2FF1E58B2FF053D82FF053D82FF0D4187FF053D + 82FF053D82FF053D82FF053D82FF03254F9B000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A500000000000000000000000000114995FF1A4EA8FF1C53ADFF1D56 + B0FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1F59 + B3FF1F59B3FF1F59B3FF1F59B3FF1F59B3FF1C54AEFF3D5978FF6C715CFF3458 + 88FF1C54AEFF1C54AEFF1A4FA9FF053D82FF000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000114A96FF194FA9FF1C53ADFF1D57 + B1FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5A + B4FF1F5AB4FF1F5AB4FF1F5AB4FF1F5AB4FF1C54AEFF3F463CFF32372CFF3B45 + 42FF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB100000000000000000000000000114A97FF1A4FA9FF1D54AEFF1E58 + B2FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205BB5FF205B + B5FF205BB5FF205BB5FF205BB5FF205BB5FF1C54AEFF43586CFFD3D6B6FF3956 + 7BFF1A4FA9FF1A4FA9FF1A4FA9FF053D82FF00000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000114B97FF1A50AAFF1D55AFFF1E59 + B3FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205CB6FF205C + B6FF205CB6FF205CB6FF205CB6FF205CB6FF5495DEFF3786D5FF327DCEFF327D + CEFF327DCEFF327DCFFF2D77C4FF032F65C788878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB700000000000000000000000000124B98FF1A4FA9FF1D55AFFF1F59 + B3FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215CB6FF215C + B6FF215CB6FF6EA7E8FF0B4489FF0000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000124C99FF1A50AAFF1D56B0FF1F59 + B3FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215DB7FF215D + B7FF215DB7FF70A9EAFF0B4489FF000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B900000000000000000000000000134C99FF2661B5FF3071C2FF3479 + C9FF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377D + CDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377DCDFF377C + CDFF387ECEFF2360B9FF0B448AFF000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB00000000000000000000000000134C9AFF2D6ABCFF377ACBFF3B81 + CFFF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84D2FF3D84 + D2FF3D84D2FF74ABEBFF0B448AFF0000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC00000000000000000000000000134D9BFF1E57B1FF6AA0E3FF70A6 + E7FF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74AB + EBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225FB9FF74ABEBFF74ABEBFF225F + B9FF74ABEBFF74ABEBFF0C458AFF00000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD000000000000000000000000001A529AFF7FB5F2FF337ECFFF3481 + D1FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786D5FF3786 + D5FF3786D5FF7FB5F2FF0C458BFF0000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C0000000000000000000000000000D468BFF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4FA9FF1A4F + A9FF1A4FA9FF0C458BFF010D1C3800000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C000000000000000000000000000031C3B730D468BFF0D468BFF0D46 + 8BFF0D468BFF0D468BFF0D468CFF0D468CFF0D468CFF0D468CFF0D478CFF0D46 + 8CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D468CFF0D46 + 8CFF0D468CFF0D468CFF00000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000110000001C0000002E0000002E0000002E0000002E0000002E0000 + 002E0000002E0000002E0000002E0000002E0000002E0000002E0000001C0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101020000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000005000000090000000C0000 + 000F00000016000000190000001D00000024000000260000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A00000024000000200000001D0000 + 0016000000130000000F00000009000000060000000000000000000000000000 + 00000000000000000000339F70FF339F70FF339F70FF339F70FF339F70FF339F + 70FF339F70FF339F70FF339F70FF339F70FF339F70FF339F70FF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000003B2A9C75FF2A9C75FF2A9C75FF0000003E0000 + 003B000000330000002800000017000000140000000E0000000B000000080000 + 000300000002000000000000000000000000000000060000000D000000120000 + 001800000024A5A5A5E6CECECEFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7 + E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFCCCCCCFF2525 + 254D0000001D000000180000000D000000090000000000000000000000000000 + 0000000000000000000032A072FF12BC8EFF12BC8EFF12BC8EFF12BC8EFF12BC + 8EFF12BC8DFF12BC8EFF12BC8DFF12BC8EFF3CD7A7FF32A172FF000E0B120000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000320000001E0000000000000000000000000000 + 000000000000040F0B190000000035CD98FF15B081FF38D19BFF0D34276F0000 + 0024000000200000001800000014000000100000000900000006000000040000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F17B3B3B3EFCECECEFFE4E4E4FFE4E4E4FFE4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFF2F2F2FFD4DDD9FFE2E2E2FFE1E1E1FFEFEFEFFFCCCCCCFF5B5B + 5B76000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A172FF12BD8EFF12BC8EFF12BD8EFF12BC8EFF12BD + 8EFF12BC8EFF12BD8EFF12BD8EFF12BD8EFF3CD7A7FF31A172FF000E0B120000 + 0000000000000000000000000000000000000000001E131313EF121212EF1111 + 11EF111111EF111111EF111111EF111111EF111111EF111111EF111111EF1111 + 11FD111111FD111111EF111111EF111111EF111111EF111111EF121212EF1212 + 12EF131313EF141414EF111111B6000000000000000000000000000000000000 + 00000209060F000000002A9C75FF13B082FF13B082FF17B687FF259771F1030C + 0914000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333349C2C2C2FCD5D5D5FFE4E4E4FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3 + F3FFE3E3E3FF5DB591FFBFD7CDFFF3F3F3FFF2F2F2FFEDEDEDFFD5D5D5FF8383 + 83AE000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A273FF11C090FF0DCB95FF0CCA94FF0DCB94FF0CCB + 95FF0CCB94FF0CCB95FF0CCA95FF0CCB95FF3CD7A7FF30A273FF000E0B120000 + 000000000000000000000000000000000000000000003B3B3BFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF1B1B1BF6000000000000000000000000000000000000 + 00002A9C75FF32D59FFF14B183FF10CF9EFF10CF9DFF12C191FF31D39DFF23A0 + 78F60D3225520000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8CC1CFCFCFFFE8E8E8FF6CC0A0FF38B284FF39B083FF3BB083FF3AAE + 82FF78C0A4FF3EAC80FF3BAC81FF3DAB7FFF3DAA7DFFD1DFD8FFE9E9E9FFACAC + ACE6000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA575FF11C291FF0CCD97FF0DCD97FF0CCC96FF0CCC + 96FF0CCC97FF0DCC96FF0DCC96FF0DCC97FF3BD7A7FF2EA574FF000E0B120000 + 000000000000000000000000000000000000000000002A2A2AFF2E2E2EFF3939 + 39FF393939FF393939FF393939FF393939FF393939FF393939FF3A3A3AFF3A3A + 3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A3AFF3A3A + 3AFF3B3B3BFF323232FF1F1F1FC6000000000000000000000000000000000223 + 1A2C2BD19CFF14B284FF13B284FF16D2A1FF11D09EFF10D09EFF16B687FF27CB + 99FF259670F00000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9DD6D0D0D0FFEFEFEFFF39B285FF39B184FF5DBC98FF64BC9BFF58B8 + 94FFDEE3E1FF3CAB80FF92CAB3FF84C4AAFF3EAA7EFF96C9B3FFEEEEEEFFB9B9 + B9F5020202040000000000000000000000000000000000000000000000000000 + 000000000000000000002CA676FF11C392FF0DCE98FF0DCE98FF0DCD97FF0DCE + 97FF0DCD98FF0DCE98FF0DCD97FF0CCE97FF3BD7A7FF2CA676FF011C14220000 + 00000000000000000000000000000000000000000000323232FE343434FF3C3C + 3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3C3C3CFF3D3D3DFF3D3D + 3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D3DFF3D3D + 3DFF3E3E3EFF383838FF1212127100000000000000000000000001150F1A2AA0 + 75FF15B384FF13B283FF0FCE9BFF80EFD0FF6EE5BFFF0FD19EFF13B788FF24C9 + 96FF1FB78AFC0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACACE8D0D0D0FFF1F1F1FF44B98EFF38B285FF41B288FFCFDFD9FFE6E6 + E6FFE6E6E6FF58B691FFA5D0BEFFB9D7CCFF3BAA7DFFAED1C2FFF0F0F0FFC4C4 + C4FE252525340000000000000000000000000000000000000000000000000000 + 000000000000000000002BA776FF10C492FF0DCE98FF0DCF99FF0DCF99FF0DCE + 98FF0DCF99FF0DCE99FF0DCE99FF0DCF99FF3AD7A6FF2BA877FF000E0B120000 + 00000000000000000000000000000000000000000000272727F04E4E4EFF4040 + 40FF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF3F3F3FFF404040FF4040 + 40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040 + 40FF424242FF4B4B4BFF0505052200000000000000002AA078FF1BD09DFF1DD2 + 9FFF0FD09EFF16D4A3FF5DE7BFFF40AC89FF33A37EF255DCB3FF0FD29FFF11C0 + 90FF1ACC99FF259871EF02090710000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CACACAFEDADADAFFF2F2F2FFE0E7E4FF45B98FFF35B486FF8DCDB5FFE8E8 + E8FFE8E8E8FFE6E6E6FF6FC0A1FF3BAE82FFD7E1DCFFE5E5E5FFEEEEEEFFCDCD + CDFF838383B20000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA79FF10C794FF0DD19BFF0DD19BFF0ED19BFF0DD1 + 9BFF0ED19BFF0DD19BFF0ED19BFF0DD19AFF38D7A6FF28AA79FF000E0B120000 + 0000000000000000000000000000000000000000000000000000121212612C2C + 2CE7686868FF616161FF555555FF464646FF464646FF464646FF464646FF4646 + 46FF464646FF464646FF464646FF474747FF494949FF535353FF5E5E5EFF4A4A + 4AFD303030F01313136500000000000000000001010218CF9CFF1CD4A0FF10D3 + A0FF16D5A3FF5CE8C0FF46CFA8E600000000071E162F269F77F147E4B9FF0FD3 + A0FF0FD3A0FF1DB78AFB1B7255B2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D0D0D0FFE5E5E5FFEFEFEFFF59C09CFF39B88BFF35B587FFE7E9E8FFE6E8 + E7FFE8E8E8FFE8E8E8FFE5E6E6FF80C7ACFFE6E6E6FFE6E6E6FFEBEBEBFFCFCF + CFFF9A9A9ACF0000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7AFF10C795FF0DD29CFF0ED29CFF0ED29CFF0ED2 + 9CFF0ED29CFF0DD29DFF0DD29DFF0DD29CFF37D6A6FF26AB7AFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000202 + 020B2F2F2FE83C3C3CEE525252FD6A6A6AFF4F4F4FFF494949FF4A4A4AFF4A4A + 4AFF4A4A4AFF4A4A4AFF4A4A4AFF515151FF6D6D6DFF585858FF434343F81C1C + 1C850202020B0000000000000000000000002AA379FF1AD5A1FF10D4A1FF0FD4 + A1FF5BEAC1FF4CD7B1EE2CAA7FFF0000000000000000071E162F51DCB3FF44E4 + B8FF0FD3A1FF1DD3A1FF23A178F40C2F234B0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D2D2D2FFEDEDEDFFEDEDEDFFEAEAEAFFEAEAEAFFDCE6E2FF3EB88CFF81CB + AFFFE5E8E7FF48B78EFF37AF82FF7FC5AAFFE7E7E7FFE6E6E6FFE8E8E8FFCFCF + CFFFA8A8A8E10000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7BFF11C996FF0ED39DFF0DD39DFF0ED39EFF0DD3 + 9EFF0ED39DFF0DD39EFF0ED39DFF0DD49DFF36D6A6FF25AD7BFF000E0B120000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000202020A0F0F0F481E1E1E8E3A3A3AF4656565FF585858FF4D4D4DFF4D4D + 4DFF4D4D4DFF4D4D4DFF606060FF6A6A6AFF333333E1202020950F0F0F480000 + 00000000000000000000000000000000000006140F1D3BCDA1FD3EE2B6FF56E9 + C0FF2EAF83FF00020103000000000000000000000000000000000820183127A4 + 7AF14DDCB2FF0FD5A1FF15D5A1FF1CB88BF90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000B0B + 0B10D3D3D3FFF4F4F4FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFF31B686FF35B5 + 87FF94D1BAFF36B385FF3DB388FF2EAE80FFE9E9E9FFE8E8E8FFE8E8E8FFD0D0 + D0FFC6C6C6FC2C2C2C3F00000000000000000000000000000000000000000000 + 0000000000000000000022B17EFF10CB98FF0ED6A0FF0ED69FFF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF33D7A6FF22B07DFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000001010105313131C3545454FF5454 + 54FF545454FF464646F9262626A0010101050000000000000000000000000000 + 00000000000000000000000000000000000000000000259E76E587EBCDFFFFFF + FFFF010504080000000000000000000000000000000000000000000000000821 + 183127A67AF136E0B3FF10D5A2FF13D4A1FF0C2E234800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002C2C + 2C40D6D6D6FFF5F5F5FFECECECFFEBEBEBFFEBEBEBFFEBEBEBFF7CCCAFFF34B6 + 88FF35B587FF38B587FFCEE2DAFF96D0B8FFE9E9E9FFE9E9E9FFE9E9E9FFD6D6 + D6FFCDCDCDFF5C5C5C80000000000000000020B27FFF21B27FFF21B27FFF21B2 + 7FFF20B27FFF21B27FFF21B27FFF10CC99FF0ED7A2FF0ED7A1FF0FD7A1FF0ED7 + A1FF0ED8A1FF0ED7A1FF0ED7A1FF0ED7A1FF31D7A6FF21B27FFF20B27FFF21B2 + 7FFF20B27FFF20B27FFF21B27FFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282899595959FF5959 + 59FF595959FF444444F41B1B1B75000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000004100C1828A179E528A2 + 7AE3000000000000000000000000000000000000000000000000000000000000 + 00000822193249DCB1FF33E0B2FF0FD6A3FF259C74EC0209060E000000000000 + 0000000000000000000000000000000000000000000000000000000000005B5B + 5B8FD1D1D1FFE4E4E4FFDDDDDDFFDCDCDCFFDCDCDCFFDCDCDCFFD9DBDAFF30AB + 80FF30AA7FFF2AA77BFFDADBDAFFDBDBDBFFDADADAFFD9D9D9FFD9D9D9FFD1D1 + D1FFC2C2C2FF797979B8000000000000000005291D3842E6B8FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE9BFF0ED9A3FF0ED8A2FF0ED8A3FF0ED8 + A3FF0ED8A2FF0ED8A2FF0ED8A3FF0FD9A2FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF38E3B4FF05291D38000000000000000000000000000000000000 + 000000000000000000000000000000000000040404113F3F3FF85D5D5DFF5D5D + 5DFF5D5D5DFF5A5A5AFF3B3B3BEE0303030E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A3427A77EF146DDB1FF10D6A3FF26A97EF30C2E22450000 + 0000000000000000000000000000000000000000000000000000000000007171 + 71DEA4A4A4FF949494FF929292FF929292FF929292FF929292FF929292FF9191 + 91FF919191FF909090FF909090FF909090FF909090FF909090FF909090FFA3A3 + A3FF8B8B8BFF767676E500000000000000000000000005291D381CB783FF52EB + C0FF0FDAA5FF0EDBA5FF0EDAA4FF0FDBA5FF0EDBA5FF0FDAA5FF0EDBA5FF0FDB + A5FF0FDBA5FF0EDBA5FF0FDBA5FF0FDBA5FF0FDBA4FF0EDBA5FF0EDBA5FF49E9 + BCFF1CB783FF05291D3800000000000000000000000000000000000000000000 + 000000000000000000000000000000000000434343DD5F5F5FFF636363FF6363 + 63FF636363FF636363FF606060FF333333B30000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B3428AA7FF12BDFAFFF14D09EFF27A177EB0000 + 000000000000000000000000000000000000000000000E7C5AAA21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B17FFF21B1 + 7FFF21B17FFF21B17FFF0E7C5AAA00000000000000000000000005291D381AB8 + 84FF0FDCA6FF0FDCA6FF0FDCA6FF0EDCA7FF0EDCA6FF0FDCA6FF0FDCA6FF0FDC + A6FF0EDCA6FF0FDCA6FF0EDDA6FF0FDCA6FF0FDCA6FF0FDCA6FF0FDCA6FF1AB8 + 84FF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000020202064E4E4EFC656565FF666666FF6666 + 66FF666666FF666666FF666666FF414141DD0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B3444DDB1FF28DFAFFF1DBC8EF80000 + 0000000000000000000000000000000000000000000021B17FFF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC995FF1AC9 + 95FF1AC995FF1AC995FF21B17FFF000000000000000000000000000000000529 + 1D3860F0C7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDDA7FF0EDDA7FF0FDEA7FF0FDD + A7FF0FDDA7FF0EDDA8FF0FDEA7FF0FDDA7FF0FDDA7FF0EDDA8FF5AEEC4FF0529 + 1D38000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001313132F515151FF686868FF696969FF6969 + 69FF696969FF696969FF696969FF4A4A4AED0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C372AAC7FF140DCB0FF29A4 + 7AEA0208060C0000000000000000000000000000000021B17FFF12C28EFF12C2 + 8EFF13C28DFF13C38EFF12C28EFF12C28EFF12C28DFF13C28EFF12C28EFF12C2 + 8EFF12C38DFF13C28EFF12C38EFF12C38EFF12C38EFF12C28EFF13C28EFF13C2 + 8EFF12C38EFF13C38EFF21B17FFF000000000000000000000000000000000000 + 000005291D3817BD87FF6FF3CDFF0FE0AAFF0FDFAAFF0FE0AAFF0FDFA9FF10DF + AAFF0FDFAAFF0FDFA9FF0FE0A9FF0FE0A9FF6AF2CBFF17BD88FF05291D380000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002222224F5B5B5BFF6F6F6FFF707070FF7070 + 70FF707070FF707070FF707070FF585858F60000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D372BAC80F126C1 + 94F81B7256A20000000000000000000000000000000021B17FFF12C490FF11C4 + 8FFF12C48FFF12C48FFF11C48FFF11C48FFF11C48FFF12C48FFF12C48FFF12C4 + 8FFF11C48FFF12C48FFF12C48FFF12C48FFF11C48FFF11C38FFF12C48FFF12C4 + 8FFF11C48FFF11C48FFF21B17FFF000000000000000000000000000000000000 + 00000000000005291D3815BE88FF10E0AAFF0FE0AAFF0FE1ABFF0FE0AAFF0FE1 + ABFF0FE0AAFF10E1ABFF0FE1AAFF0FE1ABFF15BE88FF05291D38000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D3F5A5A5AFF727272FF737373FF7373 + 73FF737373FF737373FF737373FF555555F00000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D373ADB + ADFF2BB285F40B2C213F00000000000000000000000021B17FFF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C590FF11C5 + 90FF11C590FF11C590FF21B17FFF000000000000000000000000000000000000 + 0000000000000000000005291D387BF6D2FF0FE1ACFF10E1ABFF0FE1ACFF0FE1 + ABFF0FE2ABFF0FE1ABFF0FE2ACFF78F5D1FF05291D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D1B5E5E5EFF757575FF767676FF7676 + 76FF767676FF767676FF767676FF565656E90000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E392CAF84F232C093FC00000000000000000000000016BD88FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8B4FF17E8 + B4FF17E8B4FF17E8B4FF16BD88FF010604070000000000000000000000000000 + 000000000000000000000000000005291D3813C28BFF86F8D6FF10E4ADFF0FE3 + ADFF0FE4AEFF84F7D5FF12C18BFF05291D380000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003939398E696969FF7C7C7CFF7C7C + 7CFF7C7C7CFF818181FF676767FC191919500000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F3A2CB185F413392C4B00000000000000000E382C4216BD88FF17E8 + B4FF299065FF289266FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF0CBE + 89FF46E7B5FF17E8B4FF0E372A40000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D3812C38CFF10E4AEFF10E4 + AEFF10E4AEFF11C38CFF05291D38000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020207494949D58F8F8FFF8A8A + 8AFF898989FF707070FE444444CA020202070000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B203C2FAE84EF0208060B00000000000000010F3C2E4616BD + 88FF48E6B5FF299065FF25A171FF25A171FF25A171FF25A171FF25A171FF25A1 + 71FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF25A171FF4DEC + BAFF17E8B4FF16BD88FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D388DF9D8FF10E4 + AFFF8DF9D8FF05291D3800000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070718525252EB5D5D + 5DF85D5D5DF8353535A307070718000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B203C2EAE83F40000000000000000000000000001 + 010217DCA7FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D1 + 97FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF10D197FF16CE + 99FF0F3A2D440001010200000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D380FC5 + 8EFF05291D380000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C000000240000 + 0027339F70FF0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000001E00000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000270000001E0000001E319F70FF32A071FF319F + 70FF31A070FF319F71FF32A071FF32A070FF31A071FF32A070FFD58F6AFFD58F + 6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFFD58F6AFF000000001560BCFF1560 + BDFF1560BDFF1660BDFF00000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AEFFFED6AEFFFED6AEFFFED7B0FFFED7 + B0FFFED8B1FFFED9B4FFFEDAB6FFFEDAB6FFFEDCB9FFFEDCB9FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A071FF32A071FF0F342452000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000252422FF262624FF2625 + 23FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86F2FF0E86 + F2FF262524FF262524FF0000000000000000000000000DC992FF13B98CFF13B9 + 8CFF13B98CFF13B98CFF13B98CFF13B98CFF0EC992FF2FA171FFD58F6AFFEBA5 + 7DFFE19D79FFE19D79FFE19D79FFE19D79FFD58F6AFF000000001661BEFF076E + E6FF076EE6FF0578EAFF00000000000000000000000E00000013000000140000 + 0016000000191111113114141431FED4AAFFFED4AAFFFED4AAFFFED5ACFFFED5 + AEFFFED6AFFFFED8B2FFFED8B2FFFED9B4FFFEDAB7FFFFDBB9FF111111310000 + 00180000001600000014000000100000000E0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172FF3BD7A7FF30A271FF0F3424520000000000000000000000000000 + 00000000000000000000000000000000000000000000262523FF282724FF2727 + 24FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF272625FF000000000000000000000000000000000DCA93FF13B98CFF0DCA + 93FF0DCA93FF0DCA94FF0DCA93FF13B98CFF0DCA93FF2FA272FFD58F6AFFECA5 + 7DFFE29E79FFECA57DFFECA57CFFE29E79FFD58F6BFF000000001662C0FF057A + EBFF0388F0FF057BEAFF000000000000000000000017000000343F3F3F7FACAC + ACFFACACACFFACACACFF636262FFFFCD9DFFFFCD9DFFFFCE9FFFFFD0A3FFFFD2 + A6FFFFD4AAFFFFD7AFFFFFD8B1FFFFD9B5FFFFDDBCFFFFDDBCFF636363FFACAC + ACFFACACACFF4B4B4B8C00000030000000170000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A373FF10BF8EFF39D6A6FF30A373FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000272624FF292826FF2929 + 26FF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037FEEFF037F + EEFF2A2927FF292826FF0000000000000000000000000DCB95FF13BA8DFF0DCB + 95FF0DCC94FF0DCB94FF0DCB94FF13B98CFF0ECB94FF2EA273FFD68F6AFFECA5 + 7EFFE39E7AFFECA67DFFECA67DFFE39E7AFFD5906BFF000000001764C3FF057C + EBFF0389F0FF057CEBFF000000000000000000000000ACACACFFD1D1D1FFD1D1 + D1FFD1D1D1FFD1D1D1FF323232FFC49F7BFFC4A07EFFC4A17FFFC4A383FFC4A5 + 87FFC4A688FFC4A78BFFC4A88EFFC4A991FFC4AC96FFC4AC96FF323232FFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000003020400040306000403060004 + 030600040306000403060009060C000403060004030600040306000403060000 + 00002DA575FF10BF8EFF10BF8EFF10BF8EFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000292927FF2E2D2AFF2E2D + 2AFFFBE7D0FFFBE6D0FFFBE7CFFFFCE6CFFFFBE7D0FFFBE7D0FFFBE6D0FFFCE7 + D0FFFBE6CFFFFBE6CFFFFBE7D0FFFCE7CFFFFBE6D0FFFBE6CFFFFBE7CFFFFBE6 + CFFF2D2C2AFF2D2C2AFF0000000000000000000000000DCD97FF13BD8FFF0ECE + 97FF0ECE97FF0DCE97FF0ECE98FF13BC8EFF0ECD97FF2CA575FFD6906BFFEDA7 + 7FFFE5A17BFFECA77EFFECA77EFFE6A17BFFD6906BFF000000001A66C7FF0581 + EDFF038DF1FF0581EDFF000000000000000000000000ACACACFFD4D4D4FFD4D4 + D4FFD4D4D4FFD4D4D4FF333131FF9E8373FF9E8373FF9E8373FF9E8474FF9E84 + 74FF9E8475FF9E8576FF9E8576FF9E8577FF9E8577FF9E8577FF333131FFC8CC + CAFFCECECEFFCECECEFF00000000000000002CA676FF2CA776FF2CA676FF2CA6 + 75FF2CA675FF2BA676FF2BA675FF2CA675FF2BA676FF2CA676FF2CA676FF2CA6 + 76FF2BA776FF10BF8EFF0DCA94FF10C08EFF31D4A3FF2CA675FF0F3424520000 + 000000000000000000000000000000000000000000002B2927FF302E2CFF302E + 2DFFFBE7D0FFFCE7D0FFFCE7D0FFFBE7D1FFFBE7D1FFFCE7D0FFFBE7D1FFFBE7 + D1FFFBE7D0FFFBE7D1FFFBE7D0FFFBE7D0FFFCE7D1FFFBE7D1FFFCE7D0FFFBE7 + D0FF302E2CFF302F2CFF0000000000000000000000000ECF99FF12C090FF0ECF + 98FF0ECF99FF0ECF99FF0ECF99FF12BF8FFF0ECF99FF2BA675FFD6906CFFEDA8 + 7FFFE7A27CFFECA87FFFECA87FFFE7A27CFFD6906BFF000000001A68CBFF0482 + EDFF038EF1FF0483EEFF000000000000000000000000ACACACFFD7D7D7FFD7D7 + D7FFD7D7D7FFD7D7D7FFD6D6D6FFD6D6D6FFD5D5D5FFD5D5D5FFD5D5D5FFD4D4 + D4FFD4D4D4FFD4D4D4FFD3D3D3FFD3D3D3FFD3D3D3FFD2D2D2FFD2D2D2FF39A4 + 76FFC4CDCAFFD1D1D1FF00000000000000002AA777FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF10BF8EFF0DCB95FF0DCC95FF0FC18FFF2ED4A2FF2BA777FF0000 + 000000000000000000000000000000000000000000002C2A29FF33312EFF3231 + 2FFFC4D1D7FFC4D0D7FFC4D0D7FFC4D0D7FFC4D0D8FFC4D0D7FFC4D1D7FFC4D1 + D8FFC4D1D7FFC4D1D7FFC4D1D8FFC4D0D8FFC4D0D8FFC4D1D7FFC4D0D8FFC4D0 + D7FF33302FFF33302FFF0000000000000000000000000ED09AFF11C392FF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF11C191FF0FD09AFF2AA677FFD7906CFFEDA9 + 80FFE8A47DFFEDA980FFEDA980FFE8A47DFFD7906BFF000000001B6ACDFF0486 + EFFF038FF2FF0486EEFF000000000000000000000000ACACACFFDCDCDCFFEDED + EDFF269B6AFF279B6AFF279B6AFF279B69FF279A69FF289A69FF289A68FF289A + 68FF289A68FF289968FF289968FF289968FF289968FF289968FF289968FFCBE8 + DCFFEAEAEAFFD7D7D7FF000000000000000028AA7AFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF0FC793FF0ECE98FF0DCE98FF0DCE98FF0DCE98FF0FC492FF27AA + 7AFF0F342452000604080000000000000000000000002F2E2BFF373534FF3735 + 34FFFBE8D4FFFBE9D3FFFCE9D4FFFBE8D4FFFCE9D3FFFCE8D4FFFBE8D3FFFCE9 + D4FFFBE9D4FFFBE8D3FFFBE9D3FFFBE8D3FFFCE9D3FFFBE9D4FFFCE8D4FFFCE8 + D4FF383634FF373633FF00000000000000000000000013D59FFF10CB97FF0ED3 + 9CFF0FD39DFF0ED39DFF0ED39DFF10C996FF14D5A0FF27AA78FFD7916DFFEDAB + 81FFEBA880FFEDAA82FFEEAA82FFECA880FFD8926CFF000000001E6ED2FF048C + F1FF0391F3FF048BF1FF000000000000000000000000A3A3A3ECE0E0E0FFF9FC + FBFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC + 9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF4ACC9FFF2899 + 68FFFFFFFFFFDADADAFF000000000000000026AB7BFF0FC390FF10C18FFF0EC9 + 95FF0ECF99FF0DD099FF0DD09AFF0DD099FF0DCF9AFF0DD09AFF0DD099FF0DD0 + 99FF0ED099FF0DCF9AFF0ED09AFF0ED099FF0ED09AFF0ECF9AFF0DCF99FF19C9 + 97FF26AC7BFF0F342452000000000000000000000000302E2CFF3A3836FF3A38 + 36FFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2 + DAFFC4D2DAFFC4D3DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2DAFFC4D2 + DAFF3A3836FF3A3836FF00000000000000000000000016D7A2FF10CE9AFF0FD4 + 9EFF0ED59EFF0FD59EFF0ED49EFF10CC99FF17D7A2FF26AA79FFD8926DFFEDAB + 83FFEDAC82FFEEAC82FFEEAB83FFEEAC82FFD8926DFF000000001F6FD4FF038E + F1FF0393F2FF038EF1FF000000000000000000000000A1A1A1E6EAEAEAFFF4FA + F7FF47CA9DFF23A674FF23A674FF24A472FF24A472FF24A472FF24A472FF24A4 + 72FF24A472FF24A472FF24A472FF24A472FF24A472FF24A472FF23A674FF279B + 6BFFFFFFFFFFE5E5E5FF000000000000000024AD7CFF0FC492FF0ECA96FF0DD1 + 9BFF0DD29BFF0ED29BFF0DD19BFF0ED19AFF0DD19BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD29BFF0ED19BFF0DD19AFF0DD19BFF0DD19BFF0ED19BFF0ED19BFF0FC9 + 95FF19CB99FF24AD7CFF000403060000000000000000312F2EFF3D3B38FF3C3A + 39FFFCE9D5FFFCEAD5FFFCE9D5FFFBEAD6FFFCEAD5FFFCE9D5FFFCE9D6FFFCEA + D5FFFCEAD6FFFCEAD5FFFCEAD5FFFCEAD6FFFBEAD6FFFCE9D5FFFCEAD6FFFBE9 + D5FF3D3B39FF3D3B39FF0000000000000000000000001AD9A5FF0FD29DFF0ED5 + A0FF0FD5A0FF0FD6A0FF0FD69FFF10D19CFF1BD9A6FF25AC7AFFD9936DFFEEAE + 84FFEDAC83FFEEAC83FFEEAC83FFEEAC83FFD9926DFF000000002071D7FF0393 + F3FF0393F3FF0393F3FF000000000000000000000000A7A7A7E3FFFFFFFFEEFA + F5FF5AE0B6FF26C18FFF26C895FF26C895FF26C895FF26C895FF26C895FF26C8 + 95FF26C895FF26C895FF26C895FF26C895FF26C895FF26C895FF26C08EFF23A2 + 70FFFFFFFFFFFFFFFFFF000000000000000021B17FFF0FC995FF0ED49EFF0ED4 + 9EFF0DD49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED4 + 9DFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED49EFF0ED5 + 9EFF0ED49EFF0FCF9AFF22B07FFF0F34245200000000353331FF43403EFF4240 + 3EFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D4DBFFC4D3DCFFC4D4DCFFC4D4 + DCFFC4D4DCFFC4D3DCFFC4D3DCFFC4D4DCFFC4D4DCFFC4D4DCFFC4D3DBFFC4D3 + DCFF42403EFF43403EFF00000000000000000000000022DDABFF0ED9A3FF0FD9 + A3FF0FD9A3FF0ED8A3FF0ED9A2FF0FD8A3FF25DFACFF22B07EFFD9946EFFF0B2 + 8AFFEFAE85FFEEAE85FFEFAE84FFEFAE84FFD9946EFF000000001584EAFF5DC7 + FBFF5DC7FBFF5DC7FBFF000000000000000000000000A8A8A8E0FFFFFFFFE6F8 + F2FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF21A7 + 74FFFFFFFFFFFFFFFFFF000000000000000020B280FF0FCC98FF0ED5A0FF0ED6 + A0FF0ED69FFF0ED5A0FF0ED59FFF0ED6A0FF0ED69FFF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED5A0FF0ED69FFF0ED69FFF0ED69FFF0ED69FFF0ED59FFF0ED6A0FF0ED5 + A0FF0ED69FFF0ED5A0FF2ADEACFF20B27FFF00000000363432FF454341FF4643 + 40FFFBEAD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD7FFFCEB + D7FFFCEBD7FFFCEBD7FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEAD8FFFCEB + D8FF454341FF454341FF00000000000000000000000027E0AEFF0EDAA4FF0EDA + A5FF0FDBA4FF0FDAA4FF0FDAA5FF0FDAA4FF29E0AEFF22B17FFFD9946EFFEFB4 + 8CFFEFAF86FFEEAF85FFEFAF85FFEFAF86FFDA936EFF00000000000000001584 + EAFF1584EAFF1584EAFF000000000000000000000000A0A0A0D5FFFFFFFFDDF7 + EFFF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEE + C8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF6CEEC8FF1EAB + 78FFFFFFFFFFFFFFFFFF00000000000000001FB381FF0FCF9AFF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0FD7A1FF1EB381FF063C2C5200000000383634FF484643FF4846 + 43FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEB + D8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFFCEBD8FFB2A6 + 9AFF484543FF484543FF0000000000000000000000002CE2B1FF0FDBA6FF0FDC + A5FF0FDBA6FF0FDBA6FF0FDCA6FF0FDCA6FF2EE3B1FF21B381FFDA946EFFF0B7 + 8FFFEFAF86FFEFB086FFEFB086FFEFB086FFDA946FFF00000000000000000000 + 000000000000000000000000000000000000000000007B7B7BA8EFEFEFFFF6FC + FAFF5CE7BDFF23C08DFFECBD96FFECBE97FFECBE97FFECBE97FFECBE97FFECBE + 97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FFECBE97FF24BD8BFF19B3 + 7FFFFFFFFFFFF3F3F3FF00000000000000001BB783FF0FD5A1FF0FDAA4FF0EDA + A4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDA + A4FF0EDAA4FF0FD9A4FF0ED9A4FF0EDAA5FF0FDAA4FF0EDAA4FF0FDAA4FF0EDA + A4FF46E7BAFF1BB684FF0000000000000000000000003B3836FF4E4B49FF4E4A + 49FF4E4B49FF4E4B49FF4E4B48FF3D3A39FF3C3A39FF3C3A39FF3C3A38FF3D3A + 39FF3C3A39FF3D3A38FF3C3A39FF3C3A39FF3D3A38FF3D3A39FF3C3A39FF4E4B + 49FF4E4A48FF4D4A49FF00000000000000000000000037E6B5FF0FDEA9FF0FDE + A8FF0FDEA9FF0FDEA9FF10DEA9FF0FDEA9FF39E6B6FF20B885FFDB956FFFF1BD + 94FFF0B188FFEFB188FFEFB187FFEFB187FFDB956FFF00000000000000000000 + 000000000000000000000000000000000000000000000D0D0D13959595C6C3CE + CAFD54BF9EFF48B48FFEF1C9A0FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CC + A3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CCA3FFF3CBA2FF46B28CFE18B7 + 83FFBDBDBDE99B9B9BCE000000000000000019B884FF0ED8A3FF0EDBA6FF0FDB + A6FF0EDBA6FF0FDBA6FF0EDBA5FF0FDCA6FF0EDCA6FF0EDBA5FF0FDBA5FF0FDC + A5FF0EDBA6FF0EDBA6FF0FDCA6FF0FDCA5FF0FDBA6FF0FDBA6FF0FDBA6FF4FEA + BFFF1AB885FF063C2C520000000000000000000000003C3938FF504D4BFF504E + 4BFF6D6B6AFF5F5B58FF5F5B58FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8 + C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FFE8E8C2FF3E3C3AFF504D + 4BFF504D4BFF504D4BFF0000000000000000000000003DE8B8FF0FE0A9FF0FDF + AAFF0FDFAAFF10E0A9FF0FE0AAFF0FDFA9FF3EE8B9FF1FB986FFDB9570FFF2C0 + 97FFF0B188FFF0B187FFEFB288FFF0B188FFDB956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002222 + 22321616162000000000F5D1ABFFF9D8B2FFF8D8B2FFF9D8B2FFF8D8B1FFF9D8 + B2FFF9D8B2FFF8D8B1FFF9D8B1FFF9D8B2FFF9D8B1FFF7D5AFFF161817231616 + 16201010101800000000000000000000000018B985FF0FDCA6FF0FDDA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDDA7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDD + A7FF0EDDA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF0FDDA7FF0FDCA7FF18BA + 85FF063C2C52000000000000000000000000000000003D3A39FF534F4DFF5350 + 4DFF5F5B58FF4A4645FF4A4645FFE9E8C4FFE9E9C4FFE9E9C4FFE9E9C5FFE8E9 + C4FFE8E9C4FFE9E8C4FF2F2E2CFF474341FFE9E9C5FFE9E9C5FF413D3CFF534F + 4DFF53504DFF53504EFF00000000000000000000000041E9BAFF0FE1ABFF0FE1 + ACFF0FE0ABFF10E0ABFF10E1ABFF0FE1ABFF43EABBFF1EBB88FFDC956FFFF2C2 + 99FFF0B288FFEFB389FFEFB288FFF0B288FFDC956FFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3CEA9FFFADBB7FFFADBB7FFF9DAB7FFFADBB7FFF9DB + B7FFF9DBB7FFF9DBB7FFF9DAB7FFFADBB7FFF9DBB7FFF5D2AEFF000000000000 + 00000000000000000000000000000000000013C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF16BC89FF0FE0AAFF0FDFAAFF0FE0AAFF0FE0A9FF6BF2CCFF16BC88FF0000 + 00000000000000000000000000000000000000000000403E3CFF575452FF5754 + 52FF5F5B58FF4A4645FF575452FFEBEBCDFFEBEBCCFFEBEBCCFFEBEBCCFFEBEC + CCFFEBEBCCFFEBEBCCFF2F2E2CFF474341FFEBEBCCFFEBEBCCFF444140FF5754 + 52FF575452FF575452FF0000000000000000000000004CECBEFF10E3AEFF0FE3 + ADFF10E2AEFF0FE2ADFF0FE3AEFF10E3ADFF4EECBFFF1DBE8BFFDC9670FFF5F9 + F7FFF7E1BAFFF7E1BAFFF7E1BAFFF7E1BAFFDC9670FF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2CCA8FFFADDBAFFFADCBAFFFADCBAFFFADDBAFFF9DC + BAFFFADDBAFFFADCBAFFF9DCBAFFFADCBAFFFADCB9FFF4D0ADFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89FF0FE1ABFF10E0ABFF10E1ABFF73F4CFFF14BD89FF063C2C520000 + 00000000000000000000000000000000000000000000413E3DFF5A5654FF5A56 + 54FF5F5B58FF4A4645FF5A5654FFEDECD0FFEDEDD1FFEDEDD0FFEDEDD1FFECEC + D0FFEDEDD0FFECEDD0FF2F2E2CFF474341FFECEDD0FFECECD1FF464341FF5A56 + 54FF5A5654FF595554FF00000000000000000000000051EDC0FF0FE3AFFF10E4 + AFFF10E4AEFF10E4AFFF10E3AFFF10E4AEFF53EDC1FF1DC18DFF54392B58D796 + 70E3F2AF85FFF3AE85FFF2AE85FFF2AE85FF35261D3800000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA6FFFADEBCFFFADEBDFFFADDBCFFFADDBCFFFADE + BDFFFADEBDFFFADDBDFFFADEBCFFFADEBDFFFADDBDFFF3CFACFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8BFF0FE2ACFF10E1ADFF0FE2ACFF13BF8AFF063C2C52000000000000 + 0000000000000000000000000000000000000000000042403EFF5B5855FF5B57 + 56FF5F5B58FF4A4645FF5C5855FFEEEED5FFEEEED5FFEEEED5FFEEEED5FFEEEE + D5FFEEEED5FFEEEED5FF2F2E2CFF474341FFEEEED5FFEEEED5FF484442FF5B57 + 56FF5C5856FF5B5856FF00000000000000000000000056EEC2FF10E5AFFF0FE5 + B0FF10E5B0FF10E4AFFF10E5B0FF10E5B0FF58EEC2FF1CC28FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A4FFFAE0C1FFFBE0C2FFFAE0C1FFFBE0C2FFFAE0 + C2FFFAE0C2FFFAE0C2FFFAE0C1FFFBE0C1FFFAE0C2FFF1CBA8FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18CFF10E3AFFF89F8D7FF11C18CFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000444140FF5F5A58FF5F5B + 58FF5F5B58FF4A4645FF5E5B59FFF0F1DEFFF1F1DDFFF1F1DEFFF1F1DEFFF0F1 + DEFFF1F1DEFFF0F1DEFF2F2E2CFF2F2E2CFFF1F1DDFFF0F1DEFF494645FF5F5A + 59FF5F5B59FF6D6B6AFF0000000000000000000000005FEFC4FF10E7B1FF10E7 + B1FF10E6B1FF10E7B1FF10E6B1FF10E6B1FF61EFC5FF1CC591FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A4FFFBE2C3FFFAE1C4FFFBE1C3FFFAE2C3FFFBE1 + C4FFFAE1C4FFFBE1C4FFFBE1C3FFFBE1C3FFFBE1C4FFEFC8A6FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28DFF8EF9D8FF10C28DFF063C2C520000000000000000000000000000 + 00000000000000000000000000000000000000000000454241FF8D8C8BFF6D6B + 6AFF5F5B58FF4A4645FF6D6B6AFFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFB + F5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FFFBFBF5FF555353FF6D6B + 6AFF8D8C8BFF454240FF00000000000000000000000063F0C5FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF65F0C5FF1CC792FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7 + A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A4FFEFC7A5FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28DFF0FC28DFF063C2C52000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A37369B454241FF4542 + 40FF5F5B58FF4A4645FF454241FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3 + B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFC3C3B5FFF4F3E4FF363333FF4542 + 41FF454240FF1F1D1D5A00000000000000000000000068F0C7FF10E7B2FF10E7 + B2FF10E7B2FF10E7B2FF10E7B2FF10E7B2FF68F0C7FF1DC894FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48FFF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001BCB97F420CA97F421CB + 98F421CB98F421CB98F421CB98F41FCB97F418C390EC00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202220A0A0938000000380000003800000038000000380000 + 0038000000380000003800000038000000380A0A093C02020222000000000000 + 0000000000000000000000000000000000000000000000000002000000040000 + 0002000000000000000B000000180000002A0000002900000029000000290000 + 00290000002900000028000000260000001A0000000900000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82FF8E8F82FF8E8F82FF8E8F82FF8E8F + 82FF8E8F82FF8E8F82FF8E8F82FF8E8F82FF1313122002020205000000000000 + 0000000000000000000000000000000000000000000000000004000000060000 + 00090000000C0000001000000025349E6FFF349E6FFF349E6FFF349E6FFF349E + 6FFF349E6FFF349E6FFF349E6FFF349E6FFF0000002400000021000000150000 + 000B000000090000000900000003000000020000001E00000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 00520000005200000052000000520000003200000000BD8B6BFBD39E7AFFD39E + 7BFFD39E7AFFD39E7AFFD39E7AFFD49E7AFFD49E7AFFD49E7AFFD49E7AFFD49E + 7AFFD49E7AFFD49F7AFFD49F7AFFD49F7AFFD49F7AFFD59F7AFFD59F7AFFD59F + 7AFFD59F7AFFD59F7AFF73513D9F000000000000000000000000000000000000 + 0000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFA5A69BFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070FF3CD7A7FF13B98CFF13B98CFF13B9 + 8CFF13B98CFF13B98CFF3CD7A7FF329F70FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFF1361DFFF1361 + DFFF1361DFFF1361DFFF0F3EB0FFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFCC8865FF0000000000000000C29372FFF5C49CFFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD94FFF3BD + 94FFF3BD94FFF5C49CFFD09775FF020101030000000000000000000000000000 + 0000000000000000000000000000C2C3B4FFF0F0ECFFF0F0ECFFF0F0ECFFF0F0 + ECFFF0F0ECFFF0F0ECFFF0F0ECFFC2C3B4FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031A171FF39D7A6FF0CC78FFF0CC78FFF0CC7 + 8FFF0CC78FFF0CC78FFF39D7A6FF32A171FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CC8865FFEEA97AFFE59E + 75FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDC936FFF0353DCFF0353 + DCFF0352DBFF0353DBFF0F3FB1FFDD946FFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFE59E75FFCC8865FF0000000000000000DDAB86FFC59674FFF5C9 + A3FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B690FFE8B6 + 90FFE8B690FFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B68FFFE8B6 + 8FFFF5C9A3FFCF9D7AFFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000A5A69BFFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFA5A69BFF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000030A272FF34D5A4FF0CC790FF0CC790FF0CC7 + 90FF0CC790FF0CC790FF34D6A5FF31A272FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CD8965FFEEA97AFFDF97 + 72FFDF9772FFDF9772FFDF9772FFDF9772FFDF9772FFDB916EFF0455DCFF0455 + DCFF0454DCFF0454DCFF0E40B3FFDC926EFFDF9772FFDF9772FFDF9772FFDF97 + 72FFDF9772FFDF9772FFCD8965FF0000000000000000F4C49BFFF0C198FFE7B8 + 91FFF7D3B4FFEBBD96FFF5C89FFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C7 + 9EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFF5C79EFFEBBC96FFD8A6 + 82FFECB890FFF2BD94FFD09775FF020201040000000000000000000000000000 + 000000000000000000000000000000000000818277FF818277FF818277FF8182 + 77FF818277FF818277FF818277FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA474FF29D3A1FF0DCA92FF0DCA92FF0DCA + 92FF0DCA92FF0DCA92FF29D3A1FF2EA473FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CE8A66FFEEA97BFFE19A + 74FFECA77FFFECA77EFFECA77EFFECA87FFFECA87EFFE09873FF0657DEFF0657 + DEFF0657DFFF0657DFFF0E42B7FFE29974FFECA77FFFECA77FFFECA77FFFECA7 + 7FFFECA87FFFE19974FFCE8A66FF0000000000000000F5C89EFFF5C89EFFF4C7 + 9DFFD3A582FFF8D9BCFFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CA + A1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF5CAA1FFF8D9BCFFF1BE + 96FFF4C198FFF4C198FFD09775FF02020104A5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFFA5A6 + 9BFFA5A69BFFA5A69BFFA5A69BFFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002CA675FF23D29FFF0DCB93FF0DCB93FF0DCB + 93FF0DCB93FF0DCB93FF23D19FFF2DA574FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000CF8A67FFEEA97CFFE39C + 76FFEDA981FFECA980FFECA980FFECA980FFECA980FFDE9671FF0759E0FF0759 + E0FF0759DFFF0759E0FF0D44BAFFE09772FFECA880FFEDA980FFECA980FFEDA9 + 80FFEDA980FFE39C76FFCF8B67FF0000000000000000F5C89EFFF5C89EFFF5C8 + 9EFFF3C59CFFDBAD88FFF9DFC5FFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C5 + 9DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF2C59DFFF9DFC7FFE2B38DFFF4C4 + 9BFFF4C49BFFF4C49BFFD09775FF03020104A5A69BFFC3C4B5FFC2C3B5FFC2C4 + B5FFC3C4B4FFC2C4B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C3 + B5FFC3C3B5FFC3C4B5FFC3C3B5FFC2C4B5FFC3C4B5FFC3C3B4FFC3C4B4FFC3C4 + B5FFC3C3B4FFC2C4B5FFC3C3B5FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000002BA676FF1DD09DFF0DCC94FF0DCC94FF0DCC + 94FF0DCC94FF0DCC94FF1DD19CFF2BA676FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000D08B68FFEEA97DFFE49F + 78FFEEAA81FFEEAB82FFEDAA82FFEDAB82FFEDAA82FFDC936FFF095AE1FF095A + E1FF085AE1FF095AE1FF0D45BDFFDD9470FFEEAB81FFEDAA82FFEEAA81FFEDAB + 82FFEEAA81FFE49F78FFCF8B67FF0000000000000000F6CDA4FFF6CDA4FFF6CD + A4FFF5CCA3FFF5CCA3FFF5CCA3FFFBE8D4FFE9B790FFE9B790FFE9B790FFE9B7 + 90FFE9B790FFE9B790FFE9B790FFE9B790FFECBF97FFF5C89FFFF5C89FFFF5C8 + 9EFFF5C89EFFF5C89EFFD09775FF03020104A5A69BFFE4E3DBFFE4E3DBFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6DFFFE5E6 + DFFFE5E6DFFFE5E6DFFFC7C7B8FFA5A69BFF28AA7AFF28AA7AFF27AA79FF28AA + 79FF28AA79FF28AA79FF28AA79FF27AA79FF14CE99FF0DCF98FF0DCF98FF0DCF + 98FF0DCF98FF0DCF98FF13CF99FF28A979FF29A978FF28A979FF28A978FF29A9 + 78FF28A978FF29A978FF29A978FF0000000000000000D28E69FFEFAE82FFECA9 + 81FFF0B086FFF0B086FFF0B086FFF0AF86FFF0AF86FFD68A68FF0D60E4FF0D60 + E4FF0D60E4FF0D60E5FF0E4DC8FFD78B69FFF0B086FFF0B086FFF0B086FFF0AF + 86FFF0AF86FFECAA81FFD28D69FF0000000000000000F6D0A7FFF6D0A7FFF6D0 + A7FFF6CFA6FFF6CFA6FFF6CFA6FFFDF2E6FFFDF4EAFFFBEBD9FFFBEBD9FFFBEB + D9FFFBEBD9FFFBEBD9FFFDF4EAFFFDF4EAFFF5CBA2FFF5CBA2FFF5CBA2FFF5CA + A1FFF5CAA1FFF5CAA1FFD09775FF03020104A5A69BFFD69773FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD79774FFD797 + 74FFD79774FFD79774FFC7C9B9FFA5A69BFF26AC7BFF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF11CE98FF0DD099FF0DD099FF0DD0 + 99FF0DD099FF0DD099FF11CE98FF3EDCB0FF3EDCB0FF3EDCB0FF3EDCB0FF3EDC + B0FF3EDCB0FF3EDCB0FF27AA79FF0000000000000000D38E69FFEAA77DFFE8A5 + 7EFFEBA880FFEBA880FFEBA880FFEBA880FFEBA880FFD38564FF0E62E6FF0E62 + E6FF0E61E5FF0E62E6FF0E50CCFFD38665FFEBA881FFEAA981FFEBA880FFEBA8 + 80FFEBA880FFE8A57DFFD38E6AFF0000000000000000F7D3AAFFF7D3AAFFF7D3 + AAFFF6D2A9FFF6D2A9FFF6D3AAFF3786A9FF0685C4FF0685C5FF0299E8FF0299 + ECFF0299EFFF038FE3FF038FE3FF4FA4D4FFF6D0A8FFF6CEA5FFF6CEA5FFF6CD + A4FFF6CDA4FFF6CDA4FFD09775FF03020104A5A69BFFE6A47EFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFC9CABBFFA5A69BFF24AE7CFF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF11C996FF11C996FF11C996FF0DD29BFF0DD29BFF0DD2 + 9BFF0DD29BFF0DD29BFF0DD29BFF11C996FF11C996FF11C996FF11C996FF11C9 + 96FF11C996FF11C996FF26AC7BFF0000000000000000D48F6AFFDB926EFFDA90 + 6EFFDB926EFFDB926EFFDB926EFFDB926EFFDB926EFFCE7F5FFF1064E7FF1064 + E7FF1064E7FF1064E7FF1054D0FFCE8060FFDB916EFFDB926EFFDB926EFFDB92 + 6EFFDB916EFFDB926EFFD48F6BFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF7D7B1FFF9E2CAFF0C8ABAFF069AD6FF04AFF2FF03AFF5FF03ACF6FF02AA + F6FF02A8F6FF02A3F6FF01A2F7FF01A0F7FF019DF7FFF9E2CAFFF2D7B6FFF7D3 + AAFFF7D3AAFFF7D3AAFFD09775FF03020104A5A69BFFE6A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCDBEFFA5A69BFF21B17FFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED59EFF0ED5 + 9EFF0ED59EFF0ED59EFF22AF7DFF0000000000000000D6916CFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFF1368E9FF1368 + E9FF1367EAFF1367EAFF125BD9FFCC7C5DFFCC7C5DFFCC7C5DFFCC7C5DFFCC7C + 5DFFCC7C5DFFCC7C5DFFD6906CFF0000000000000000F7D5ADFFF7D5ADFFF7D5 + ADFFF8DFC3FF0997CAFF0999CEFF05B5F4FF05B5F5FF04B4F5FF04B1F5FF03AE + F5FF03ACF6FF02A8F6FF02A7F6FF02A5F6FF01A0F7FF019FF7FFF8DFC3FFF7D8 + B2FFF7D5ADFFF7D5ADFFD09775FF03020104A5A69BFFE5A37DFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A57FFFE8A5 + 7FFFE8A57FFFE8A57FFFCCCEBFFFA5A69BFF1FB280FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6A0FF0ED6 + A0FF0ED6A0FF0ED6A0FF20B17FFF0000000000000000F4B78DFFF5B88DFFF4B8 + 8DFFF4B78DFFF4B78DFFF4B88DFFF4B88DFFF4B88DFFF0AF86FF1469EBFF1469 + EBFF166BEBFF1369EBFF135EDDFFF2B289FFF4B78DFFF4B78DFFF4B88DFFF4B8 + 8DFFF4B88DFFF5B78DFFF5BC93FFD7916CFF00000000F7D5ADFFF7D5ADFFEED2 + B0FB0B9BCAFF0AA5D6FF09AFE4FF06B9F5FF06B8F5FF05B6F5FF05B5F5FF04B2 + F5FF04B1F5FF03ACF5FF02ABF6FF02AAF6FF02A5F6FF02A3F6FF01A2F7FFF5D7 + B5FFF4D6B4FCF7D5ADFFD09775FF03020104A5A69BFFE5A37EFFE9A680FFE8A6 + 80FFE9A680FFE8A680FFE8A680FFE9A680FFE9A680FFE9A680FFE8A680FFE8A6 + 80FFE8A780FFE8A680FFE8A780FFE9A680FFE9A780FFE9A680FFE9A681FFE8A6 + 80FFE8A780FFE8A680FFCECFC0FFA5A69BFF1EB482FF10D8A1FF10D8A1FF10D8 + A1FF10D8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0FD8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8A1FF0ED8 + A1FF0ED8A1FF0ED8A1FF20B280FF0000000000000000F5B98FFFEFB087FFEFB0 + 87FFEFB087FFEFB087FFEFB087FFEFAF87FFEFB087FFE8A57EFF146BECFF146B + ECFF2073EEFF156AECFF1462E0FFEAA780FFEFB087FFEFB087FFEFB087FFEFB0 + 87FFEFB087FFEFB087FFF5BD94FFD8926DFF00000000F1D3B3FBF5D8B7FFC9A5 + 8AFF35C4E7FF0BC3F4FF0BC3F4FF0AC1F4FF09C0F4FF08BEF4FF07BCF5FF06B9 + F5FF06B8F5FF05B5F5FF04B4F5FF04B2F5FF36AAD7FFA89D90FFC3A289FFE1B5 + 93FFF5D8B7FFF5D8B7FFDFB090FF03020104A5A69BFFE6A681FFEAAA84FFEAA9 + 84FFEBA983FFEBA983FFEBA984FFEAAA83FFEAAA83FFEBA983FFEAAA83FFEBAA + 83FFEAAA84FFEAAA83FFEBA983FFEAA983FFEAAA84FFEBAA83FFEBA983FFEAAA + 83FFEAAA84FFEAAA83FFD1D2C3FFA5A69BFF1AB784FF16DBA6FF16DBA6FF16DB + A6FF16DBA6FF15DBA6FF15DBA6FF15DBA6FF14DBA6FF14DBA6FF14DBA6FF14DB + A6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DBA6FF13DB + A5FF13DBA5FF12DBA5FF1CB683FF0000000000000000F7C79FFFF2B58CFFF6BB + 90FFF6BC90FFF6BB90FFF6BB91FFF6BB90FFF6BB90FFEAA780FF176DEEFF176D + EEFF5196F4FF176EEDFF1568E7FFEAA780FFF6BB90FFF7BB91FFF6BB91FFF6BB + 91FFF6BB90FFF6BB90FFF7C7A0FFD9936EFF00000000E8C2A2FDE6BA96FFE0B2 + 90FF9EA598FF55D2EAFF0CC5F3FF0BC3F4FF0BC3F4FF0AC2F4FF09C0F4FF08BD + F4FF07BCF5FF06B8F5FF05B6F5FF0AB6F3FFBE9F88FFCDA88CFFDEB593FFE8BB + 97FFE8BC97FFE8BC97FFC39071EA00000000A5A69BFFE6A881FFECAB85FFECAC + 86FFEBAC85FFEBAB85FFEBAB85FFECAB85FFEBAC85FFECAC85FFEBAC85FFEBAC + 85FFECAB85FFEBAC85FFEBAC85FFECAC85FFEBAB85FFECAC85FFECAB85FFECAC + 85FFECAC85FFEBAC85FFD3D4C5FFA5A69BFF18B885FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF90F9D9FFF5F9F7FF1FDDA9FF19DCA7FF19DCA7FF19DC + A7FF18DCA7FF18DCA7FF1DDDA9FFF5F9F7FF90F9D9FF90F9D9FF90F9D9FF90F9 + D9FF90F9D9FF90F9D9FF1AB784FF0000000000000000F8CCA6FFF3B78DFFF6BC + 91FFF7BC91FFF7BC91FFF7BC91FFF6BC91FFF6BD91FFEAA881FF176EEEFF1970 + EEFF69A8F7FF176FEEFF166BEAFFE6A27CFFF7BC91FFF7BD91FFF7BC91FFF6BC + 91FFF6BC92FFF6BC91FFF8CCA6FFDA946EFF00000000DAA886FFECCAACFEE7BB + 98FFD7AE90FFB3A793FF74D9EAFF0CC5F3FF0BC3F3FF0BC3F4FF0BC3F4FF0AC1 + F4FF09C0F4FF07BCF4FF21B7E6FF97A49DFFD8B292FFE4B996FFE9BD99FFE9BE + 99FFE9BE9AFFEECFB1FD5642356500000000A5A69BFFE8A983FFECAE87FFECAE + 87FFEDAE87FFEDAE87FFECAE87FFECAD87FFECAE87FFEDAE87FFEDAE88FFEDAE + 87FFECAE88FFEDAE87FFEDAE87FFECAD87FFEDAE87FFECAE87FFECAE87FFECAE + 87FFECAE88FFECAE87FFD4D5C8FFA5A69BFF17BA87FF17BB87FF17BA86FF17BA + 86FF18BA87FF17B986FF17BA87FF17BA86FF2AE0ADFF1DDDA9FF1DDDA9FF1DDD + A9FF1CDDA9FF1CDDA9FF28E0ADFF18B986FF18B986FF18B986FF18B986FF18B9 + 86FF18B986FF19B985FF19B985FF0000000000000000F9DFC7FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFF7BE93FFE7A47EFF186FEFFF277A + F1FF7AB4F9FF186FEFFF186EEEFFE7A47EFFF7BE93FFF7BE93FFF7BE93FFF7BE + 93FFF7BE93FFF7BE93FFFAE8D8FFDA946FFF000000000000000055413464DAA8 + 86FFEAC09BFFE9BE99FFE5BB98FF9CE8F3FF11CDF2FF0FCAF3FF0DC8F3FF0CC5 + F3FF0EC9F4FFC1A78FFFDAB595FFE8BF9CFFECC29DFFECC29DFFECC39DFFF2D6 + B9FDDEAE8DFF564235650000000000000000A5A69BFFE8AC86FFEFB38CFFEFB3 + 8CFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB28CFFEFB38BFFEFB28CFFEFB3 + 8CFFEFB28BFFEFB28CFFEFB28CFFEFB28CFFEFB38CFFEFB38BFFEFB28CFFEFB3 + 8BFFEFB38BFFEFB28CFFD7D7CBFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000014BC88FF3FE4B3FF26DEABFF25DEABFF25DE + ABFF25DEABFF24DEABFF3CE3B2FF15BC88FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000DA9570FFAE8989FF3648 + 99FF1E3592FF454C91FF615178FFB67E62FFBF8260FF95654AC7146BECFF146B + ECFF146BECFF146BECFFBF8260FF95654AC7B67E63FF8C6B70FF7F708EFF203E + 9AFF1A3B9BFF374E9DFFDA9570FF8D654A8F0000000000000000000000005541 + 3464F2D8BDFDECC19EFFEBC19CFFCBB99EFFAFEEF8FF12CEF2FF10CCF3FF13CE + F3FF5CBFC8FFE3BD9AFFECC39EFFEEC59FFFEEC59FFFEEC59FFFEEC5A0FFDFB0 + 8EFF57433566000000000000000000000000A5A69BFFE9AD87FFF1B58EFFF1B5 + 8EFFF1B58EFFF0B58EFFF0B58DFFF0B58EFFF0B58EFFF1B58EFFF1B58EFFF0B5 + 8EFFF1B58EFFF1B58DFFF1B58EFFF1B58EFFF0B58DFFF1B58DFFF0B58DFFF0B5 + 8DFFF0B58EFFF1B58EFFD7D8CCFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BE8AFF46E5B5FF2ADEABFF29DEABFF29DE + ABFF29DEABFF29DEABFF45E5B5FF14BE89FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000017234F7C0E33A0FF1F5D + CEFF0D46BBFF0B4ECBFF0A44BBFF0C2890FF1C3796FF5B5684FF062E9EFF062E + 9EFF062E9EFF062E9EFF947272FF5C5984FF0F379EFF0D3FADFF0C4CC4FF0E48 + BEFF1662DFFF2063D4FF615A75C6000000010000000000000000000000000000 + 0000DCAA88FFF5DBC1FEEDC59FFFECC39DFFCDC2A6FFBFF1FAFF15D3F2FF5AC7 + CEFFDCB998FFEEC7A1FFEEC7A1FFEFC8A2FFEFC8A2FFEFC8A2FFF4DBC0FD5844 + 366800000000000000000000000000000000A5A69BFFEAAF89FFF1B78FFFF1B7 + 90FFF1B890FFF1B790FFF2B790FFF2B890FFF1B790FFF1B790FFF1B890FFF1B8 + 90FFF2B890FFF2B890FFF2B790FFF1B790FFF2B790FFF2B890FFF2B78FFFF2B7 + 8FFFF2B790FFF1B790FFD8DACEFFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000013BF8BFF4CE6B7FF2EDEABFF2EDEABFF2DDE + ABFF2DDEABFF2DDEACFF4BE6B7FF13BF8BFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000C317FB61653C5FF3880 + EDFF0E50CCFF0C5FE3FF0448CEFF0E35A5FF0E34A4FF0D35A6FF103CADFF4990 + F1FF4990F1FF103CADFF1345B2FF0E36A3FF0E35A5FF0E35A5FF0D40B5FF0E50 + CCFF387BECFF3880EDFF0C317FB6000000000000000000000000000000000000 + 00000000000058443668DDAD8BFFF0CAA3FFF1CBA4FFF1CBA4FFF0CBA4FFF1CC + A4FFF2CCA5FFF2CDA5FFF2CDA5FFF3CEA6FFF5DDC3FDE1B593FF5B46376B0000 + 000000000000000000000000000000000000A5A69BFFEBB18BFFF4BB93FFF3BB + 94FFF3BB94FFF3BB94FFF4BB93FFF4BB94FFF4BB93FFF4BB94FFF3BB94FFF3BB + 94FFF3BC94FFF4BB94FFF3BB94FFF3BB93FFF4BC93FFF3BB94FFF4BB93FFF4BB + 94FFF4BB94FFF4BB94FFDBDBD0FFA5A69BFF0000000000000000000000000000 + 000000000000000000000000000011C28CFF53E8B9FF35DDABFF34DDABFF34DD + ABFF34DEABFF34DEABFF53E8B9FF11C18CFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000B317FB7215BCAFF5195 + F8FF0C5BDDFF0C5FE3FF0E60E3FF2672E6FF2A6CDDFF124FCBFF123AA3F4173F + A5EF1241AEFF1241ABF80E45B6FD0D4CCBFF206CE4FF2270E7FF0E60E3FF0C5B + DDFF5091F6FF5195F8FF0B317FB7000000000000000000000000000000000000 + 000000000000000000005A45376AF7DFC6FEF7DEC2FFF7DEC2FFF7DEC2FFF7DE + C2FFF7DFC2FFF7DFC3FFF7DFC3FFF8DFC3FFE2B695FF5D47386D000000000000 + 000000000000000000000000000000000000A5A69BFFEBB28CFFF4BD94FFF4BC + 95FFF4BC95FFF4BC95FFF5BD95FFF4BD95FFF4BC95FFF4BD95FFF4BD95FFF5BD + 95FFF4BC95FFF4BD95FFF4BD95FFF5BD95FFF5BD95FFF4BD95FFF4BD95FFF4BD + 95FFF4BD94FFF5BD94FFDBDCD0FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000FC38DFF54E9BAFF37DDABFF37DDABFF37DD + ABFF37DDABFF37DDABFF54E9BAFF10C28DFF0000000000000000000000000000 + 000000000000000000000000000000000000000000000928699A2158C7FF579B + FDFF1C6CE6FF3781ECFF478AEBFF0D48C8FF0D40B8FE0D34A0F2000001030000 + 00000000000000000203061B486C0F3EA5F20D49C8FF2464D8FF478AEBFF1C6C + E6FF5698FCFF579BFDFF0928699A000000000000000000000000000000000000 + 0000000000000000000000000000B28B6FCDE8BC98FFE8BC98FFE8BC98FFE8BD + 98FFE8BD99FFE8BE99FFE8BE99FFE9BE99FF5E48386E00000000000000000000 + 000000000000000000000000000000000000A5A69BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C6BFFC98C + 6BFFC98C6BFFC98C6BFFDCDDD1FFA5A69BFF0000000000000000000000000000 + 00000000000000000000000000000EC38EFF79EDC8FF3ADCABFF39DCABFF39DC + ABFF39DCABFF39DDABFF79EDC8FF0FC38EFF0000000000000000000000000000 + 00000000000000000000000000000000000000000000061C4A6F1B50BEFF599C + FDFF97C3FAFF1859D4FF0D47C7FF0D36A4F70820629500030B11000000000000 + 000000000000000000000000000001040B110F40A9F70E46BCFF0D48C7FF97C3 + FAFF9BC8FDFF599CFDFF061C4A6F000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3 + B4FFC2C3B4FFC2C3B4FFC2C3B4FFC2C3B4FF0000000000000000000000000000 + 00000000000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963791143 + B8FF0C3296DC071C578501030C13000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C130C3A + 9ADC0E42B0FB1249BBFF00000203000000000000000000000000000000000000 + 000000000001000000020000000300000006000000090000000C000000100000 + 001100000014000000100000000D0000000C0000000600000005000000030000 + 0001000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00010000000300000005000000060000000C0000000E00000010000000140000 + 0011000000100000000C00000009000000060000000300000002000000010000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000200000004000000070000000C000000120000001C0E33246A339F + 70FF0E33247F0000002E00000029000000210000000D0000000A000000060000 + 0002000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000001E000000320000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000003200000000000000000000000000000000000000000000 + 0002000000070000000A0000000C0000001C00000021000000240F34247F339F + 70FF0000002E00000021000000110000000D0000000600000003000000020000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523AD6A6FF13BA + 8CFF3AD6A6FF0F34245200000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF3569DCFF3569DCFF3569DCFF3569DCFF173BB6FF063384FF093889FF0938 + 89FF093889FF0C3C8FFF063384FF173BB6FF3568DCFF3568DCFF3568DCFF3568 + DCFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424523CD7A7FF32A0 + 71FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245232A171FF13BA8CFF13BA + 8CFF13BA8CFF31A071FF0F342452000402050000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4FF366DDDFF366DDDFF366DDDFF366CDDFF173BB6FF063384FF13469DFF1346 + 9DFF13469DFF0E3E92FF063384FF173BB6FF366CDDFF366CDDFF366CDDFF366C + DDFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34245230A271FF17CA95FF31A1 + 72FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A172FF35D5A5FF11BE8EFF12BD + 8EFF13BB8DFF35D5A5FF30A172FF0F3424520000000000000000000000000000 + 0000000000000000000000000000000000000000001800000021000000210000 + 00250000002A0000002A0000002A0000002A0000002A0000002A0000002A0000 + 002A0000002A0000002A0000002A0000002A0000002A0000002A000000280000 + 0021000000210000001B00000000000000000000000000000000000000002E54 + D4FF5799EBFF5799EBFF5799EBFF72B7FFFF173BB6FF063384FF1548A0FF1448 + A0FF14489FFF114297FF063384FF173BB6FF5799EBFF5799EBFF5799EBFF5799 + EBFF2E54D4FF0000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34245230A373FF39D6A6FF1FCE9AFF30A3 + 73FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245230D4A3FF12BD8EFF12BD8EFF0DCB95FF0DCB + 96FF0DCB95FF12BD8EFF12BD8EFF30D4A3FF0F34245200040205000000000000 + 00000000000000000000000000000000000000000010BD8462F1E8A97FFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA9 + 7AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFEEA97AFFD595 + 70FF140E0B4A0000002700000000000000000000000000000000000000000000 + 0000D4D4D4FFBFBFBFFFBFBFBFFFBFBFBFFF9C9C9CFF063384FF194FA7FF184E + A7FF184EA7FF184EA5FF063384FF9C9C9CFFBFBFBFFFBFBFBFFFC3C3C3FFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34245234D5A4FF10BF8EFF10BF8EFF30D4A2FF2DA5 + 75FF00000000000403060004030600040306000403060009060C000403060004 + 0306000403060004030600040306000302040000000000000000000000000000 + 0000000000000F3424522DA575FF12BE8FFF12BE8FFF0ECC97FF0ECC96FF0DCC + 96FF0ECC96FF0ECD97FF12BE8EFF12BF8FFF2DA575FF0F342452000000000000 + 00000000000000000000000000000000000000000000B57D5BEFF6BB91FFE09B + 73FFD5916AFFD6926BFFD8946CFFD8956DFFD9956DFFDA966FFFDB976FFFDB97 + 6FFFDB976FFFDD9971FFDE9971FFDE9971FFE09A72FFE09A72FFE09B73FFE09C + 74FFB07C5ECD0000000000000000000000000000000000000000000000000000 + 0000D4D5D5FFBFBFBFFFCBCBCBFFCDCDCDFF9C9C9CFF063384FF093889FF0938 + 89FF093889FF1951AAFF063384FF9C9C9CFFCBCBCBFFCBCBCBFFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000008050A0F3424522CA675FF10C08FFF10C08EFF0DCA94FF37D6A5FF2BA7 + 76FF2CA676FF2CA676FF2CA676FF2BA676FF2BA676FF2BA675FF2BA676FF2CA6 + 76FF2CA675FF2CA676FF2BA675FF2CA676FF0000000000000000000000000000 + 00000F3424522CA676FF2AD3A2FF11C090FF0ECD98FF0ECD98FF0ECE97FF0ECD + 98FF0DCE97FF0ECE98FF0ECD98FF11C190FF2AD4A1FF2CA676FF0F3424520000 + 00000000000000000000000000000000000000000000B67E5CEEFDEFE2FFEDAC + 83FFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A37AFFE9A3 + 7AFFE9A47AFFE9A47AFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE9A47BFFE19C + 74FFD3946FFB0000000000000000000000000000000000000000000000000000 + 0000D6D6D6FFC3C3C3FFD3D3D3FFD6D6D6FF9C9C9CFF063384FF1D58B0FF1D57 + B0FF1D57AFFF114498FF063384FF9C9C9CFFD6D6D6FFD3D3D3FFBFBFBFFFB3B3 + B3FF000000000000000000000000000000000000000000000000000000000000 + 00000F3424522BA777FF2ED4A2FF10C18FFF0DCC95FF0DCB95FF0DCB95FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7A7FF3CD7 + A7FF3CD7A7FF3CD7A7FF3CD7A7FF2AA777FF0000000000000000000000000F34 + 245224D4A1FF10C995FF10C995FF0ED09BFF0ED09AFF0ED09AFF0ED09BFF0ED0 + 9AFF0ED09AFF0ED09AFF0ED09AFF0ED09AFF10C996FF10C995FF24D4A1FF0F34 + 24520000000000000000000000000000000000000000B67E5DECF4C196FFEDB1 + 87FFE19C74FFEAA57CFFEAA57CFFEAA67DFFEAA67DFFEAA67DFFEAA67DFFEAA6 + 7DFFEAA67DFFEBA77DFFEBA77EFFEBA77EFFEBA87EFFEBA87EFFEBA87EFFEAA7 + 7EFFE6A57BFFC88D6BEE00000000000000000000000000000000000000000000 + 0000D9D9D9FFD0CFCFFFD8D8D9FFD8D9D9FF9C9C9CFF063384FF215EB8FF205D + B7FF205EB7FF1952A9FF063384FF9C9C9CFFD9D8D8FFD9D8D8FFC4C4C4FFB3B3 + B3FF000000000000000000000000000000000000000000000000000604080F34 + 245219C895FF0FC492FF0DCE98FF0DCF98FF0DCE98FF0ECE98FF10C18FFF10C1 + 8FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C18FFF10C1 + 8FFF10C18FFF10C18FFF19D29FFF28AA7AFF00000000000000000F34245227AB + 7AFF0FCC98FF0FCC97FF0ED19CFF0ED19CFF0ED19CFF0ED19BFF0FD19CFF0ED2 + 9CFF0ED19CFF0ED29BFF0ED19CFF0ED29CFF0ED19BFF0FCB97FF0FCC98FF27AA + 7AFF0F34245200000000000000000000000000000000B7805EEBF3C297FFCC8F + 69FFE19E76FFEAA67DFFEBA87EFFEBA87EFFEBA87EFFEBA87FFFECA97FFFECA9 + 7FFFECA97FFFECA97FFFECAA80FFECAA80FFECAA80FFECAA80FFEDAA80FFEDAB + 81FFE9A77EFFDB9C76FE00000000000000000000000000000000000000000000 + 0000DADADAFFD6D6D6FFDADADAFFDADADBFF9C9C9CFF063384FF3786D5FF3786 + D5FF3786D5FF1E5AB2FF063384FF9C9C9CFFDADADAFFDADADAFFCCCCCCFFB3B3 + B3FF0000000000000000000000000000000000000000000000000F34245226AC + 7BFF0FC793FF0DCF99FF0ECF9AFF0DD099FF0ED099FF0ED09AFF0DD099FF0ED0 + 99FF0DD099FF0ED099FF0DD09AFF0DCF9AFF0DCF9AFF0DD09AFF0DD099FF0DD0 + 9AFF0EC995FF10C18FFF20D6A2FF26AB7BFF000000000F34245226AC7BFF1ED4 + A1FF0FCF9AFF0ED39DFF0ED39DFF0ED29DFF0ED39DFF0ED29DFF0FD39DFF0ED3 + 9DFF0ED29DFF0ED39DFF0ED39DFF0ED39DFF0FD29DFF0ED39CFF10CE99FF1ED4 + A1FF26AC7AFF0F342452000000000000000000000000B77F5EE9F3C397FFC286 + 61FFE8AB82FFE5A47AFFECAA80FFEDAA80FFEDAB81FFEDAB81FFEDAB81FFEDAB + 81FFEDAC82FFEDAC82FFEDAC82FFEEAC83FFEEAD83FFEEAD83FFEEAD84FFEEAD + 84FFEDAD83FFE9AA80FF00000000000000000000000000000000000000000606 + 060BDCDBDBFFDCDCDBFFDBDCDBFFDBDBDCFF9C9C9CFF063384FF2260BAFF2260 + BAFF2260BAFF2260BAFF063384FF9C9C9CFFDBDBDBFFDBDBDCFFD3D3D3FFADAD + ADFF2C2C2C4B000000000000000000000000000000000F34245224AD7CFF19CB + 99FF0DD19BFF0ED19BFF0ED19BFF0ED19BFF0DD19BFF0DD19AFF0DD19BFF0DD2 + 9BFF0ED19BFF0ED19BFF0DD19BFF0DD19BFF0DD29BFF0DD19BFF0ED29BFF0ED1 + 9BFF0DD19BFF0ECA96FF27D9A6FF24AD7CFF0F342452D0F5EBFF57E7BEFF57E7 + BEFF56E9BFFF57EABFFFCEF5EBFF0ED59FFF0ED5A0FF0ED5A0FF0ED5A0FF0ED6 + A0FF0ED5A0FF0FD6A0FF0ED59FFF0ED59FFF23DBA9FFCEF5EBFF56EABFFF57E7 + BEFF57E7BEFFD0F5EBFF0F3424520000000000000000B78060E7F2C499FFCC90 + 6AFFEEC499FFEBAC83FFEDAD84FFF0B086FFF0B187FFF0B187FFF1B188FFF1B1 + 88FFF1B288FFF1B388FFF1B389FFF1B389FFF1B489FFF1B489FFF2B48AFFF2B4 + 8BFFF2B48BFFF3B58BFF936A50AD000000000000000000000000000000001935 + BFFF9F9F9FFFD4D4D5FFDEDFDEFFDFDEDEFF9C9C9CFF3786D5FF3786D5FF3786 + D5FF3786D5FF3786D5FF3786D5FF9C9C9CFFDEDEDFFFDEDEDFFFD1D0D0FFA3A3 + A3FE1226ADFF0000000000000000000000000F34245217D09CFF0FCF9AFF0ED4 + 9EFF0DD49EFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0ED49EFF0ED4 + 9EFF0ED49DFF0ED49EFF0DD49EFF0ED49EFF0ED49EFF0ED49EFF0DD49EFF0ED4 + 9EFF0ED49EFF0ED49EFF34DFB0FF21B17FFF21B17EFF21B17FFF21B17FFF20B1 + 7FFF21B17FFF21B17FFF19B885FF0FD7A2FF0ED7A1FF0ED7A1FF0FD7A1FF0FD6 + A1FF0FD7A2FF0FD6A1FF0FD7A1FF0ED7A1FF27DEACFF18B985FF21B07EFF21B1 + 7FFF21B17EFF21B17EFF21B17FFF0000000000000000B88160E5F2C79AFFD195 + 6EFFE5B287FFEFC094FFECAF85FFF2B48AFFF2B48AFFF2B48BFFF3B58BFFF3B6 + 8BFFF3B68BFFF3B68BFFF3B68CFFF3B68CFFF4B78DFFF4B78DFFF4B78DFFF4B8 + 8EFFF4B88EFFF4B88EFFCA926FEE000000000000000000000000000000001935 + BFFFA1A1A1FF9F9F9FFFD5D5D5FFE0DFDFFFDFE0E0FFE0DFE0FF2A8F60FF0CC7 + 90FF2A8F60FFE0E0E0FFE0DFE0FFE0E0DFFFDFE0E0FFD2D2D2FF9C9C9CFF4275 + DBFF1226ADFF00000000000000000000000020B27FFF0ED6A0FF0ED5A0FF0ED6 + 9FFF0ED69FFF0ED6A0FF0ED59FFF0ED69FFF0ED69FFF0ED69FFF0ED5A0FF0ED5 + A0FF0ED69FFF0ED59FFF0ED59FFF0ED69FFF0ED5A0FF0ED59FFF0ED5A0FF0ED6 + 9FFF0ED6A0FF0ED5A0FF3CE2B4FF20B280FF0000000000000000000000000000 + 0000000000000000000017BB87FF0FD8A3FF0FD8A3FF0FD8A3FF0FD8A2FF0FD9 + A3FF0FD8A2FF0FD8A2FF0ED9A3FF0ED8A3FF2CE0AEFF17BA87FF000000000000 + 00000000000000000000000000000000000000000000B88261E4F1C89BFFD69A + 72FFD79B73FFF0C99CFFF2B58BFFF4B78DFFF4B88DFFF4B88EFFF4B88EFFF4B9 + 8EFFF4B98EFFF5B98FFFF5B98FFFF5BA8FFFF6BA90FFF6BB90FFF6BB90FFF6BB + 90FFF6BB90FFF6BB90FFE8AD85FF624836730000000000000000000000001935 + BFFF4275DBFFA2A2A2FF9F9F9FFFE1E1E1FFE1E1E1FFE1E1E1FF0CC790FF2A8F + 60FF2E54D4FF2A8F60FFE1E1E1FFE1E1E1FFD2D2D2FF9D9D9DFFA4A5A5FF4A8D + EBFF1226ADFF000000000000000000000000063C2C5233E1B1FF0FD7A1FF0ED7 + A1FF0FD7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED6A1FF0ED7A1FF0ED7 + A1FF0ED7A1FF0ED7A1FF0ED7A1FF0ED7A2FF0ED7A1FF0ED7A1FF0ED7A1FF0FD6 + A1FF0ED7A1FF0ED7A1FF42E5B7FF1FB381FF0000000000000000000000000000 + 0000000000000000000014BD8AFF0FDBA5FF0FDBA6FF0FDBA6FF0FDBA6FF0FDA + A5FF0FDBA6FF0FDBA5FF0FDAA6FF0FDBA5FF35E4B4FF14BD8AFF000000000000 + 00000000000000000000000000000000000000000000B88362E1EFC99CFFDFA3 + 7BFFDFA37BFFE2A77FFFFFFAF1FFFDF1DFFFFDEFDBFFFDEDD9FFFCEAD2FFFBE9 + CFFFFAE7CCFFF9E2C4FFF9E1C1FFF8DFBEFFF8DDBAFFF7DCB8FFF7DCB8FFF6DB + B7FFF6DAB6FFF6DAB6FFF5D9B5FFD7A481FA0000000000000000000000001935 + BFFF3562DAFF5092EFFF4275DBFFA0A0A0FFD8D9D9FFE4E3E3FF154BA3FFF1B1 + 87FFF1B187FFE4E4E3FFE3E3E3FFD5D5D5FFA4A4A5FF4275DBFF4B8EECFF1934 + BFFF1226ADFF00000000000000000000000000000000063C2C521BB684FF46E7 + BAFF0FDAA4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA5FF0ED9A4FF0FDAA4FF0EDA + A4FF0FDAA4FF0EDAA4FF0EDAA4FF0EDAA4FF0FDAA4FF0FDAA4FF0FDAA4FF0FDA + A4FF0EDAA4FF0FDAA4FF4EE9BEFF1BB783FF0000000000000000000000000000 + 0000000000000000000013BF8BFF0FDCA7FF0FDCA7FF0FDCA7FF0FDCA7FF0FDC + A6FF0FDCA6FF10DCA7FF0FDCA6FF0FDCA7FF39E6B7FF13BF8BFF000000000000 + 00000000000000000000000000000000000000000000B98363E0EFCA9CFFE3A8 + 7FFFE3A87FFFE3A87FFFE7AE87FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF + 85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFE9AF85FFDBA0 + 79FF91674EB18A624AA7886149A43D2C21490000000000000000000000000C17 + 3A462E54D4FF3563DAFF5699F1FFA1A1A3FFA0A0A0FFDADAD9FF154BA3FFF1B1 + 87FFF1B187FFE5E5E5FFD5D5D6FF9D9D9DFF4275DBFF4B8EECFF2447CAFF1226 + ADFF060E34460000000000000000000000000000000000000000063C2C521AB8 + 85FF0EDBA5FF0FDBA6FF0FDBA6FF0FDBA5FF0FDCA5FF0FDCA6FF0EDBA5FF0EDB + A6FF0FDCA5FF0FDBA6FF0EDBA5FF0EDCA6FF0FDCA6FF0EDBA5FF0FDBA6FF0FDB + A6FF0FDBA6FF0EDBA6FF53EBC1FF19B884FF0000000000000000000000000000 + 0000000000000000000012C08CFF0FDDA8FF0FDDA8FF10DDA8FF0FDDA8FF0FDD + A8FF0FDDA8FF0FDEA8FF0FDEA8FF0FDDA8FF3DE7BAFF12C08CFF000000000000 + 00000000000000000000000000000000000000000000B88463DEEFCA9DFFE8AD + 84FFEFB58AFFEFB58BFFEFB58BFFEFB48AFFEEB48AFFEEB48AFFEDB389FFEDB3 + 89FFEDB389FFECB288FFECB188FFECB187FFEBB086FFEAB086FFEAAF86FFDCA0 + 79FF17100B1E0000000000000000000000000000000000000000000000000000 + 00001935BFFF2E54D4FF3664DAFF4275DBFFA1A1A3FFA0A0A0FF063384FF0633 + 84FF063384FFD6D6D6FF9D9D9DFFA4A5A5FF5093EFFF244ACBFF1934BFFF060E + 334500000000000000000000000000000000000000000000000000000000063C + 2C5258EDC3FF0FDCA7FF0FDDA7FF0FDDA7FF0FDDA7FF0FDCA7FF0EDCA7FF0EDD + A7FF0FDDA7FF0EDDA7FF0FDDA7FF0EDDA7FF0FDCA7FF0FDCA7FF0EDDA7FF0FDD + A7FF0EDDA7FF0FDDA7FF56EDC2FF18B985FF0000000000000000000000000000 + 0000000000000000000010C28DFF10E0ABFF10E0ABFF0FE0ABFF0FE0AAFF10E0 + AAFF10E0AAFF0FDFAAFF0FE0ABFF0FDFAAFF45EBBDFF10C28DFF000000000000 + 00000000000000000000000000000000000000000000BA8665DCEECC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFE2A7 + 7FFF140E0A1A0000000000000000000000000000000000000000000000000000 + 0000000000000B1535401935BFFF3664DBFF579BF2FF4275DBFFA0A0A0FFDBDC + DBFFD8D7D8FFA3A4A7FF4275DBFF579AF1FF878CA6FF1226ADFF060D2F400000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C5216BC88FF6BF2CCFF0FDFA9FF0FE0AAFF0FDFAAFF21E3B1FF16BC + 89FF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C08AFF13C0 + 8AFF13C08AFF13C08AFF13C08AFF13C08AFF0000000000000000000000000000 + 000000000000000000000FC38EFF0FE1ACFF0FE1ABFF0FE1ACFF10E1ACFF0FE1 + ACFF0FE1ACFF0FE1ABFF10E1ABFF0FE1ACFF4AECC0FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BC8867DCEDCC9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFFADDB8FFFADD + B8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFFADDB8FFD198 + 73F4050302070000000000000000000000000000000000000000000000000000 + 000000000000000000000B14323D2E54D4FF3664DBFF589BF2FFA0A1A4FFA0A0 + A0FF9D9D9DFF4275DBFF579BF2FF061D94FFABABABFF050C2D3D000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C5214BD89FF10E0ABFF10E1ABFF10E0ABFF2DE6B6FF14BD + 89FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38EFF0FE2ADFF10E2ADFF0FE2ADFF0FE2ADFF0FE2 + ADFF10E2ADFF10E2ADFF10E2ADFF10E2ADFF4DEDC1FF0FC38EFF000000000000 + 00000000000000000000000000000000000000000000BF8A69E0EDCD9FFFF6BC + 91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF6BC91FFF3D2AEFFDDAC8EFFDDAC + 8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFFDDAC8EFF3B2B + 2045000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BFFF2E54D4FF3664DBFF4275DBFF9FA1 + A5FF9D9FA7FF589CF2FF061D94FFA0A5BFFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C527CF5D2FF0FE2ACFF10E1ADFF3AEABBFF13BE + 8BFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E4AFFF10E4AFFF10E4AFFF10E4AFFF10E4 + AEFF10E4AFFF10E4AFFF10E4AFFF0FE4AFFF53EFC5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000087634C99D9A686FAD89D + 78FAD69C77F8D69B77F7D69B77F7D49A75F5C18B69E4271C1531000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E381935BFFF3563DAFF72B7 + FFFF72B7FFFF1934BFFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C5211C18CFF89F8D7FF50EEC4FF12C1 + 8CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF10E5B0FF10E5B0FF10E5B0FF10E5B0FF10E5 + B0FF10E5B0FF10E5B0FF0FE5B0FF0FE4B0FF55F0C5FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C352E54D4FF3F82 + E6FF3F82E6FF1226ADFFABABABFFCCCCCCFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C5210C28DFF57F0C7FF11C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0FE5B1FF10E6B0FF10E6B0FF10E5B0FF0FE5 + B1FF10E6B1FF10E5B0FF10E6B1FF10E6B1FF57F0C8FF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BFFF3F82 + E6FF3F82E6FF050A2634ABABABFFE4EBEBFFABABABFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C52F5F9F7FF10C2 + 8DFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC4 + 8FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF0EC48FFF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 181E0206161E0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8FFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003200000040000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000052000000520000005200000052000000520000 + 0052000000520000005200000032000000320000000000000017000000270000 + 0032000000400000004000000040000000400000004100000047000000400000 + 0040000000400000004500000047000000400000004000000040000000400000 + 0040000000250000001A00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000343433FF232323FF2222 + 22FF222222FF212121FF212121FF202020FF202020FF1F1F1FFF1F1F1FFF1E1E + 1EFF1E1E1EFF1D1D1DFF1D1D1DFF1D1D1DFF1C1C1CFF1C1C1CFF1B1B1BFF1B1B + 1BFF1B1B1BFF1A1A1AFF343433FF000000000000000000000000000000000534 + 6AFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF12589FFF1258 + 9FFF05346AFF000000000000000000000000000000179D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E9EFF9D9E + 9EFF9D9E9EFF9D9E9EFF00000017000000000000000000000000000000150000 + 001BE2B798FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B696FFE1B6 + 96FFE1B696FFE1B696FF000000110000000000000000363635FFF4E0BDFFF7E2 + BFFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFFF7E0 + BAFFF7E0BAFFF7E0BAFFF7E0BAFFF7E0BAFFFAEFCCFFF9EED0FFF7EBCFFFF5E5 + C9FFF2DFC0FFF2DAB6FF343433FF000000000000000000000000000000000534 + 6AFF0F5094FF073B75FF073A74FF073973FF073972FF073871FF063770FF0637 + 6FFF06376FFF06366EFF06356DFF05356DFF05356CFF05346BFF05346BFF0E50 + 94FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5C4FFF9E5 + C4FFF9E5C4FFE2B797FF000000000000000000000000393937FFF7E3C1FFF7E3 + C1FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF7E2BEFFF7E1BDFFF7E1BCFFF7E0 + BBFFF7E0BBFFF7E0BAFFF7E0BAFFF7E0BAFFF8E3BCFFFCF3CEFFFDF7D8FFFEF9 + E4FFFEF9E7FFF3DEBBFF343433FF000000000000000000000000000000000534 + 6AFF0F5195FFF6DDB6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DCB3FFF6DCB3FFF6DC + B3FFF6DCB2FFF6DCB2FFF6DCB2FFF9E9C1FFFAEDD2FFF9E9CDFFF7E1BDFF0F51 + 95FF05346AFF00000000000000000000000000000000CCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCCCCFFCCCC + CCFFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E2BBFFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6B1FFF3D6 + B1FFF8E0BAFFE2B898FF0000000000000000000000003E3D3BFFF8E4C4FFF8E4 + C4FFF7E4C3FFF7E4C3FFF7E3C2FFF7E3C1FFD8C7A9FF8C8171FFF7E2BFFFF7E2 + BEFFF7E2BEFFB4A48CFF756C5DFF736A5CFFF5DEBAFFF7E0BBFFF7E0BBFFFCF5 + D3FFFDF7DBFFF8EBD0FF343433FF000000000000000000000000000000000534 + 6AFF115499FFF6DFB9FFF6DFB8FFF6DEB7FFF6DEB7FFF6DDB5FFF6DDB4FFF6DD + B4FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF8E5BBFFFCF5D3FFFDF6DDFF1154 + 99FF05346AFF00000000000000000000000000000000CDCDCDFFCCCCCCFFDF98 + 71FFEBA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFEAA279FFFCC8 + A5FFEAA279FFEAA279FFEBA279FFEAA279FFEAA279FFEAA279FFEAA279FFDF98 + 71FFCCCCCCFFCCCCCCFF00000000000000000000000000000000000000000000 + 0000F8E1BEFFF3D6B1FFF5DAB5FFF8E1BBFFF8E0BBFFF8E1BBFFF8E1BBFFF8E1 + BBFFF8E1BBFFF8E1BCFFF8E1BBFFF8E1BBFFF9E1BCFFF8E1BBFFF8E1BBFFF4D7 + B2FFF8E1BBFFE3B99AFF00000000000000000000000040403CFFF8E5C7FFF8E5 + C7FFF8E4C5FFF8E4C4FFF7E4C3FFF7E4C3FFB7AA94FF262626FFF7E3C1FFF7E2 + C0FFF7E2C0FF1D1D1DFF1C1C1CFF1F1F1EFF615A4EFFF5DFBBFFF7E1BCFFF7E1 + BCFFFBEFCCFFFAF1D2FF343433FF000000000000000000000000000000000535 + 6BFF11559BFFF6E0BBFFF6DFB9FFF6DFB8FFF6DEB8FFF6DEB7FFF6DDB6FFF6DD + B6FFF6DDB5FFF6DDB4FFF6DDB4FFF6DDB4FFF6DDB4FFF7DFB7FFFBF1CCFF1155 + 9AFF05356BFF00000000000000000000000000000000CECECEFFCDCDCDFFDE97 + 71FFEBA37AFFEBA27AFFEAA37AFFE9A178FFEAA179FFEBA37AFFEAA27AFFFCC8 + A5FFEAA27AFFEAA279FFEBA379FFEBA27AFFEAA37AFFEBA37AFFEBA27AFFDF98 + 71FFCDCDCDFFCDCDCDFF00000000000000000000000000000000000000000000 + 0000F8E2BFFFF3D7B2FFF8E2BCFFF8E1BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1 + BCFFF8E1BCFFF8E1BCFFF8E2BCFFF8E1BCFFF8E1BCFFF9E1BCFFF8E1BCFFF5DA + B5FFF8E1BCFFE3BA9BFF00000000000000000000000042423EFFF8E6C9FFF8E6 + C9FFF8E5C8FFF8E5C7FFF8E4C5FFF8E4C4FFB9AB95FF292929FFF7E4C3FFF7E3 + C2FFE2D0B2FF252524FFC9B79DFFEDD9B7FF1B1B1BFFAA9C85FFF7E2BEFFF7E1 + BDFFF7E1BCFFF9E9C3FF343433FF000000000000000000000000000000000535 + 6CFF12569DFFF6E0BCFFF6E0BBFFF6E0BAFFF6E0BAFFF6DFB9FFF6DEB7FFF6DE + B7FFF6DEB7FFF6DDB6FFF6DDB5FFF6DDB5FFF6DDB5FFF6DDB5FFF6DEB5FF1256 + 9DFF06356CFF00000000000000000000000000000000CFCFCFFFCECECEFFDB94 + 6EFFEBA37AFFEAA37AFFE8A178FFDC9770FFE09971FFE8A079FFEAA37AFFFCC8 + A5FFEBA47AFFEBA37AFFEBA37BFFEBA37AFFEBA37AFFEBA37AFFEAA47BFFDF98 + 71FFCECECEFFCECECEFF00000000000000000000000000000000000000000000 + 0000F8E3BFFFF4D8B3FFF8E2BDFFF8E2BDFFF8E2BDFFF8E1BDFFF9E2BCFFF8E2 + BDFFF8E2BDFFF8E2BDFFF8E2BDFFF8E2BCFFF8E1BDFFF8E1BCFFF8E2BDFFF5DB + B6FFF8E1BDFFE3BC9CFF000000000000000000000000474742FFF8E7CCFFF8E7 + CCFFF8E7CBFFF8E7CBFFF8E6CAFFF8E6C9FFBBAF9AFF303030FFF8E5C7FFF8E4 + C5FFF8E4C5FFF7E4C3FFF7E4C3FFF7E4C3FF222222FF766E61FFF7E3C1FFF7E2 + C0FFF7E2BFFFF7E2BFFF343433FF000000000000000000000000000000000637 + 6FFF1359A0FFF7E2C0FFF7E2BFFFF7E2BEFFF7E2BEFFF6E0BDFFF6E0BBFFF6E0 + BBFFF6E0BBFFF6DFBAFFF6DFB9FFF6DFB9FFF6DFB9FFF6DEB8FFF6DEB8FF1359 + A1FF06366FFF00000000000000000000000000000000D1D1D1FFD0D0D0FFCC87 + 63FFD18C68FFCF8965FFCA8562FFCE9B81FFC7825FFFD18C68FFEBA47BFFFCC8 + A5FFECA57CFFECA57CFFE8A37BFFE9A27AFFEBA57CFFEBA57CFFECA57CFFDF9A + 73FFD0D0D0FFD0D0D0FF00000000000000000000000000000000000000000000 + 0000F9E4C3FFF4DAB5FFF8E2BFFFF8E3BFFFF8E3BFFFF9E3BFFFF8E2BEFFF8E3 + BEFFF9E3BFFFF8E2BFFFF8E2BFFFF8E3BFFFF8E2BFFFF8E2BEFFF8E3BEFFF5DC + B8FFF8E2BFFFE5BE9FFF0000000000000000000000004A4944FFF8E8CEFFF8E8 + CEFFF8E7CDFFF8E7CCFFF8E7CBFFF8E7CBFFBCB09DFF333333FFF8E6C9FFF8E5 + C8FFF6E3C5FF56524CFFBDAF99FFC9B9A1FF262626FFAB9F8BFFF7E4C3FFF7E3 + C2FFF7E3C1FFF7E3C1FF343433FF000000000000000000000000000000000737 + 70FF135AA3FFF7E3C1FFF7E2C0FFF7E2C0FFF7E2C0FFF7E2BFFFF7E1BEFFF7DF + BCFFF7E0BAFFF7E1BBFFF7E0BAFFF7E0BAFFF7E0BBFFF7E0BAFFF7E0BAFF135B + A3FF073771FF00000000000000000000000000000000D2D2D2FFD1D1D1FFD7A7 + 8EFFC78360FFCD8E6FFFDBBCACFFE4E2E1FFD49E81FFC98461FFE59F78FFFBC7 + A4FFEBA67DFFE6A279FFDE9A73FFDC9770FFEAA57DFFECA67DFFECA67DFFDF9A + 73FFD1D1D1FFD1D1D1FF00000000000000000000000000000000000000000000 + 0000F8E4C5FFF6DEBAFFF9E3BFFFF8E2BFFFF8E3C0FFF8E3C0FFF8E3C0FFF9E3 + C0FFF8E2C0FFF8E3C0FFF8E3BFFFF8E3C0FFF9E3C0FFF7E2BEFFF9E1BEFFF6DD + B9FFF7E1BDFFE5BFA0FF0000000000000000000000004C4C46FFF9E9CFFFF9E9 + CFFFF8E8CEFFF8E8CEFFF8E7CDFFF6E5CAFFBDB19FFF373737FFF8E7CBFFF8E6 + CAFFF8E6CAFF2E2E2EFF2D2D2DFF2C2C2CFF6E685EFFF7E3C3FFF8E4C4FFF7E4 + C3FFF7E4C3FFF7E4C3FF343433FF000000000000000000000000000000000738 + 72FF145BA4FFF8E3C3FFF7E3C2FFF7E3C1FFF7E3C1FFF7E2C0FFF7E2BFFFF7E1 + BDFFF6DFBAFFF7DFBAFFF7E1BBFFF7E1BCFFF7E1BCFFF7E0BBFFF7E0BBFF145C + A5FF073872FF00000000000000000000000000000000D3D3D3FFD2D2D2FFE6E4 + E3FFDFC4B5FFE6E4E3FFE6D6CCFFE8BBA1FFE5DED9FFCE906FFFDA956FFFF5BF + 9DFFEAA57DFFD9946DFFCB8763FFCA8663FFE8A37AFFEBA77EFFECA77EFFE09B + 74FFD2D2D2FFD2D2D2FF00000000000000000000000000000000000000000000 + 0000F9E5C5FFF7DFBDFFF8E3C0FFF9E3C0FFF9E3C1FFF8E3C0FFF8E3C0FFF9E3 + C0FFF9E3C0FFF8E2C0FFF9E3C1FFF9E4C1FFF7E2C0FFF8E3BFFFF7E2BFFFF5DD + BAFFF7E0BEFFE6C0A3FF000000000000000000000000515149FFF9EAD2FFF9EA + D2FFF9E9D1FFF9E9D1FFF9E9D0FF464544FF3E3E3EFF3D3D3DFFF8E8CEFFF8E7 + CDFFF8E7CDFF353535FF9E9485FFE2D3B9FFE2D2B8FFF3E2C4FFF8E6C9FFF8E5 + C8FFF8E5C7FFF8E5C7FF363634FF00000000000000000000000000000000073A + 76FF155EA9FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4C3FFF8E4C3FFF7E3C2FFF7E2 + C1FFF6E1BEFFF5DAB4FFF5DCB3FFF6DEB9FFF7E3C0FFF7E2BFFFF7E2BEFF155F + A9FF083A76FF00000000000000000000000000000000D5D5D5FFD4D4D4FFE19C + 75FFECA980FFECA980FFEDA980FFEDA980FFECAA82FFE9DAD1FFCA8662FFCE8D + 6BFFCB8764FFE4D5CEFFE9E5E3FFDFBFAEFFD08D68FFE29F77FFECA87FFFE09C + 75FFD4D4D4FFD4D4D4FF00000000000000000000000000000000000000000000 + 0000F9E6C9FFF7E1BFFFF9E4C2FFF8E4C3FFF8E4C2FFF9E4C2FFF8E4C2FFF9E4 + C2FFF7E3C2FFF7E1BFFFF5DEBDFFF5DFBDFFF5DFBEFFF5DEBEFFF5DEBDFFF3DC + BAFFF3DCBCFFE8C3A5FF00000000000000000000000053534BFFF9EBD4FFF9EB + D4FFF9EAD3FFF9EAD2FFF9E9D1FFE1D3BDFF5D5B57FF414141FFF9E9CFFFF8E8 + CEFFF8E8CEFF393939FF383838FF363636FF333333FFCBBDA7FFF8E7CBFFF8E6 + CAFFF8E6C9FFF8E6C9FF363635FF00000000000000000000000000000000083B + 78FF1660ABFFF8E5C7FFF8E5C5FFF8E5C4FFF8E5C4FFF8E4C3FFF8E4C3FFF8E4 + C3FFF8E3C2FFF5DFB7FFF5DBB2FFF5DCB4FFF7E1BEFFF7E3C0FFF7E3C0FF1660 + ABFF083C78FF00000000000000000000000000000000D7D7D7FFD6D6D6FFEBB1 + 8FFFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFFCC9A6FFF9CAABFFDEB49DFFC887 + 65FFD6A991FFEBCDBAFFF4C4A6FFECE7E4FFCC8B69FFDCA07EFFF3BD9BFFEBB1 + 8FFFD5D5D5FFD5D5D5FF00000000000000000000000000000000000000000000 + 0000F9E7CAFFF7E2C0FFF9E5C4FFF8E4C3FFF9E5C4FFF8E5C4FFF9E5C3FFF9E4 + C4FFF8E3C1FFF4DEBEFFF2DCBCFFF3DDBDFFF4DDBEFFF5DEBEFFF4DEBDFFF4DD + BAFFF4DEBDFFE8C5A7FF00000000000000000000000053534BFFF9ECD5FFF9EC + D5FFF9EBD4FFF9EBD4FFF9EAD3FFF9EAD2FFDACEB9FF504F4DFFF9E9D1FFF9E9 + D0FFF9E9D0FF6B6760FF6A6660FF69655FFF67635CFFD7C9B1FFF8E7CCFFF8E7 + CBFFF8E7CBFFF8E7CBFF383836FF00000000000000000000000000000000093C + 7AFF1662ADFFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF8E5C5FFF8E4C4FFF8E4 + C3FFF8E4C3FFF8E1BFFFF5DFB8FFF4DAB0FFF5DFBAFFF7E1BFFFF7E3C2FF1661 + ADFF093D7AFF00000000000000000000000000000000D8D8D8FFD7D7D7FFE19E + 77FFEDAB82FFEEAB82FFEEAB82FFEDAB82FFEDAB82FFEDAB82FFEEE9E7FFE7D1 + C3FFECE3DEFFEBA981FFEDAB82FFEBB99AFFD29B7EFFCA8663FFDB9772FFE19E + 77FFD7D7D7FFD7D7D7FF00000000000000000000000000000000000000000000 + 0000F9E8CCFFF8E5C4FFF9E5C5FFF9E5C5FFF9E5C5FFF9E5C4FFF8E5C4FFF8E4 + C4FFF8E3C2FFF2DCBDFFF3DCBDFFF2DBBAFFF2DBBBFFF2DCBCFFF3DCBCFFF3DD + BCFFF3DCBDFFE9C7A9FF00000000000000000000000058584FFF0C5DDDFF0B5C + DCFF0A5ADAFF0959D9FF0958D8FF0855D6FF0754D5FF0653D4FF0551D2FF0550 + D1FF044FD1FF034DCFFF034DCEFF024CCEFF024BCDFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3A3A38FF000000000000000000000000000000000A3F + 7EFF1864B2FFF8E7CBFFF8E7CAFFF8E7CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5 + C8FFF8E5C8FFF8E5C5FFF8E4C4FFF8E2C1FFF6DBB4FFF5DBB3FFF7E0BDFF1864 + B1FF0A3F7EFF00000000000000000000000000000000DADADAFFD9D9D9FFE19F + 78FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFEEAD84FFFCC8 + A5FFEEAD85FFEEAD84FFEEAD84FFEEAD84FFEFD7C8FFECD9CFFFCA8663FFDA98 + 72FFD9D9D9FFD9D9D9FF00000000000000000000000000000000000000000000 + 0000F9E8CDFFF8E6C7FFF9E6C8FFF9E5C8FFF8E6C8FFF9E5C7FFF9E6C8FFF7E4 + C5FFF6E1C3FFEDD5B7FFEACFB1FFE8CCAFFFE7CBACFFE6CBADFFE7CBACFFE8CC + AFFFDEBEA3FFE7C3A8FF0101010200000000000000005A5A50FF0C5EDEFF0C5D + DEFF0B5BDCFF0A5ADBFF0A59DAFF0957D8FF0856D7FF0755D6FF0653D4FF0652 + D3FF0551D2FF044FD0FF044ED0FF034DCFFF024CCEFF024BCDFF024BCDFF024B + CDFF024BCDFF024BCDFF3C3C39FF000000000000000000000000000000000A41 + 81FF1965B3FFF8E8CCFFF8E7CBFFF8E7CBFFF8E7CBFFF8E7CAFFF8E6C9FFF8E6 + C9FFF8E6C9FFF8E5C8FFF8E5C7FFF8E5C7FFF6E0BBFFF5DAB3FFF6DCB6FF1865 + B3FF0A4081FF00000000000000000000000000000000DBDBDBFFDADADAFFE2A0 + 79FFEFAE85FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFEFAE85FFEEAE85FFFCC9 + A6FFEEAE85FFEFAE85FFEEAE85FFEFAE85FFECAE87FFF2E4DCFFE5C7B5FFD28E + 6AFFDADADAFFDADADAFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E6C8FFF9E7C8FFF9E6C8FFF9E6C8FFF8E6C9FFF9E7C9FFF8E5 + C7FFF5E1C3FFEACFB3FFE4C5AAFFE2C0A5FFDBB89CFFDBB89CFFD9B69BFFD9B7 + 9BFFE8CDAEFFE7C3A8FF0000000000000000000000005D5C52FF0D5FE0FF0D5F + DFFF0C5DDDFF0B5CDDFF0B5BDCFF0A59DAFF0958D9FF0857D8FF0754D6FF0753 + D5FF0652D4FF0550D2FF044FD1FF044ED0FF034DCEFF034CCEFF024BCDFF024B + CDFF024BCDFF024BCDFF3E3E3BFF000000000000000000000000000000000B41 + 82FF1966B5FFF8E8CEFFF8E8CDFFF8E8CCFFF8E8CCFFF8E7CBFFF8E7CAFFF8E7 + CAFFF8E7CAFFF8E6C9FFF8E5C8FFF8E5C8FFF8E2C3FFF6E0BCFFF5DDB5FF1967 + B5FF0B4282FF00000000000000000000000000000000DCDCDCFFDBDBDBFFE2A1 + 79FFEFAF86FFEEAF86FFEEAE85FFEFAF86FFEFAF86FFEFAF86FFEFAF86FFFCC9 + A6FFEEAE86FFEEAF86FFEFAF86FFEFAF86FFEFAF86FFECB58FFFF5EFEBFFCC88 + 64FFDBDBDBFFDBDBDBFF00000000000000000000000000000000000000000000 + 0000F9E9CFFFF8E7C9FFF8E7C9FFF9E7C9FFF8E6C9FFF9E7CAFFF9E6C9FFF8E5 + C8FFF4E0C1FFE8CBAFFFE2C2A7FFE4C7AEFFDFBFA6FFE1C3A8FFEAD2B6FFF5DF + BCFFE8C5AAFF483B3252000000000000000000000000626156FF0E61E1FF0E61 + E1FF0D60E0FF2A70E4FF3D79E6FF3270E0FF0B5BDCFF0A5ADBFF0958D9FF0857 + D8FF0856D7FF0753D5FF0652D4FF2769DFFF3B77E5FF306CDDFF044ECFFF034C + CEFF024BCDFF024BCDFF43433FFF000000000000000000000000000000000C44 + 87FF1B69B9FFF9E9D0FFF8E9CFFF9B9280FF9B9280FF9B927FFF9B927FFF9B92 + 7FFF9B927EFF9B917EFF9B917DFF9B917DFF9B917DFFBFB299FFF8E5C7FF1B69 + B8FF0C4487FF00000000000000000000000000000000DEDEDEFFDDDDDDFFE3A1 + 7AFFEFB187FFEFB188FFEFB087FFEFB088FFEFB187FFEFB187FFEFB188FFFCCA + A7FFEFB187FFEFB187FFEFB188FFF0B188FFEFB188FFEFB088FFEFB088FFF5EA + E3FFDDDDDDFFDDDDDDFF00000000000000000000000000000000000000000000 + 0000F9EAD1FFF9E7CBFFF9E8CBFFF9E8CBFFF9E7CCFFF9E8CBFFF9E8CBFFF6E6 + C9FFF1DDC0FFFCF9F7FFF8F2ECFFFDF7EEFFFAECD5FFF8E3C3FFF7E0BBFF483D + 33520000000000000000000000000000000000000000646458FF0E61E1FF0E61 + E1FF1F6BE4FF2E65D0FF133896FF133896FF2A5CBFFF0B5CDCFF0A5ADAFF0959 + D9FF0957D8FF0855D6FF1B62DCFF2D63CEFF173271FF133896FF2A5EC5FF034D + CFFF034CCEFF024CCEFF454540FF000000000000000000000000000000000D45 + 8AFF1B6AB9FFF9EAD1FFF9E9D0FF565544FF575545FF575544FF575644FF5755 + 44FF565544FF575545FF575544FF575644FF86806CFF9B917DFFF8E7CAFF1B69 + BAFF0D4589FF00000000000000000000000000000000DFDFDFFFDEDEDEFFE3A3 + 7BFFEFB288FFF0B188FFEFB288FFF0B188FFEFB188FFEFB188FFF0B288FFFCCA + A7FFEFB288FFF0B188FFEFB288FFEFB289FFF0B188FFEFB188FFF0B188FFEFD1 + BDFFDEDEDEFFDEDEDEFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CCFFF8E7CCFFF9E8CCFFF9E7CCFFF9E8CCFFF8E7CBFFF7E4 + C8FFF2DDC0FFFEFAF5FFFCF6ECFFFBF0DDFFF8E3C2FFF7DFBAFFEDD0B4FF0000 + 0000000000000000000000000000000000000000000067665AFF0E61E1FF0E61 + E1FF1565E2FF133CA0FF526D97FF506C97FF163A8BFF0C59D5FF0B5BDCFF0A5A + DBFF0A59DAFF0957D8FF115BD9FF123BA0FF4774C5FF506C97FF1742A4FF044E + D0FF034ECFFF034DCFFF484842FF000000000000000000000000000000000D47 + 8CFF1C6BBBFFF9EAD2FFF9EAD1FF908974FF908974FF908974FF908974FF9089 + 74FF908974FF908974FF908974FF908974FF5A5A48FF9B917EFFF8E7CBFF1C6A + BBFF0D468CFF00000000000000000000000000000000E1E1E1FFE0E0E0FFE2A3 + 7BFFEFB289FFF0B289FFF0B289FFF0B289FFF0B288FFF0B289FFEFB289FFFCCA + A7FFF0B289FFEFB289FFEFB289FFEFB289FFEFB289FFEFB289FFF0B289FFE9B7 + 98FFDFDFDFFFDFDFDFFF00000000000000000000000000000000000000000000 + 0000F9EBD2FFF9E8CDFFF9E8CDFFF9E8CCFFF9E8CDFFF8E8CDFFF9E7CBFFF6E4 + C9FFF1DCBFFFFCF4E7FFFBEFDCFFF9E8CEFFF7DFB9FFEFD3B7FF493E35520000 + 000000000000000000000000000000000000000000006B6B5DFF579BF0FF579B + F0FF579BF0FF579BF0FF46453DFF48473FFF345E98FF4C89D6FF579BF0FF579B + F0FF579BF0FF579BF0FF579BF0FF579BF0FF3D3C36FF48473FFF345E98FF579B + F0FF579BF0FF579BF0FF4B4B45FF000000000000000000000000000000000E49 + 90FF3786D5FF3786D5FF3786D5FFF5F6EFFFE3E5D2FFD3D6B6FFD3D6B6FFD3D6 + B6FFD3D6B6FFD3D6B6FFD3D6B6FFDDDFC7FF64634FFF2F5B83FF3786D5FF3786 + D5FF0E4990FF00000000000000000000000000000000E3E3E3FFE2E2E2FFE3A3 + 7CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFEBB2 + 90FFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A37CFFE3A3 + 7CFFE2E2E2FFE2E2E2FF00000000000000000000000000000000000000000000 + 0000F9EBD4FFF9E8CEFFF9E8CEFFF9E8CEFFF9E9CEFFF9E9CEFFF7E6CDFFF5E1 + C8FFF0DABEFFF7E2C0FFF7E1BEFFF7DFB9FF51463C5900000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF4078AFFF2380 + E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF1F6EC5FF2380E4FF2380 + E4FF2380E4FF2380E4FF2380E4FF2380E4FF3D3C36FF3D3C36FF164883FF2380 + E4FF2380E4FF3770A9FF4F4E47FF000000000000000000000000000000000B39 + 71C70E4A93FF0E4B92FF0F4A92FF686754FF686754FF686754FF72725EFF7272 + 5EFF72725EFF72725EFF686854FF686754FF455C6DFF183A5EFF0E4B92FF0F4A + 92FF0B3971C700000000000000000000000000000000E4E4E4FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3E3FFE3E3 + E3FFE3E3E3FFE3E3E3FF00000000000000000000000000000000000000000000 + 0000FAECD4FFF9E8CEFFF9E9CFFFF9E9CEFFF9E9CFFFF9E8CDFFF7E5CCFFF4E2 + C7FFF0DABFFFF7DFB9FFF7DFB9FFF1D8BCFF0000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5FFF6C6C5EFF6B6B + 5DFF6A695CFF69685BFFA9A98AFFB8B998FF32363FFF52544FFF636257FF6261 + 56FF626156FF5F5F54FF5E5E53FF5E5D53FFD4D4ABFFB8B998FF2C313BFF5858 + 4FFF58584FFF57564EFF79786DFF000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B57FF646351FF6463 + 51FF646351FF646351FF6D6C58FF000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000 + 0000FAECD5FFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CFFFF9E9CEFFF7E6CCFFF6E3 + C9FFF1DDC2FFF4DCB8FFF1D8BCFF6A5E50720000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000515044C7515044C70000000000000000000000000000 + 000000000000000000000000000000000000686758FF515044C7000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545389B73725DFF7372 + 5DFF73725DFF73725DFF4545389B000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8BCFFF1D8 + BCFFF1D8BCFF7266587900000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FFE00007000000FFFFFF80FFFFC00007000000010101807FFF + E00007000000010101803FFFE00007800001010101801FFFE000078000030101 + 01800FFFE00007C000030101018007FFE00007E00007010101E003FFE00007E0 + 0007010101F001FFF0000FF0000FEFEFEFF000FFF8001FF0001FEFEFEFFC007F + FE00FFF0001FE0000FFE0007FF00FFF8001FFFEFFFFE0003FE00FFFC003FFE00 + FFFF8001FE007FFE007FFE00FFFFC000FE007FFE007FFE00FFFFC000FE007FFE + 00FFFE00FFFFF020FE007FFF00FFFE00FFFFF070FE007FFF00FFFE00FFFFF038 + FE00FFFFC1FFFE00FFFFF01CFE00FFFFC3FFFE00FFFFF81FFF00FFFFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFE00FF800001FFFFFF00003FFE00FF000000FFFFFF8000FFFE00FF + 000000FFFFFF8000FFFE00FF0000008007F98000FFFE00FF0000008007F18000 + FFFE00FF0000008007F18000FFFE00FF000000801FE18000FFFE00FF00000080 + 3FC38000FFFE00FF000000801F038000FFFE00FF0000008000038000F8FE00FF + 0000008000038000F8FE00FF0000008000078000F8FE00FF00000080000FFFE3 + F8E0000300000080000FFFE3F8E0000700000080001FFFE3F8F0000F000000FC + 003FFFE1F0F8001F000000FE00FFFFE1F0FC003F000000FF01FFFFE0E0FE007F + 800003FFFFFFFFF001FF00FFFFFFFFFFFFFFFFF803FF81FFFFFFFFFFFFFFFFFC + 07FFC3FFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFC00007FE003FFFFFFFC0000FE0001FFE003F000000C0000FE0001F + FFC0FF800003C0000FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C000 + 0FE0001FFFC1FF800003C0000FE0001FFFC1FF800003C0FC0FE0001FFFC1FF80 + 0003C0FC0FE0001FFFC1FF800003C0FC0FE0001FFFC1FF800001C0FC0FE0001F + FFC1FF800001C0FC0FE0001FFFC1FF800001C0FC0FE0001FFFC1FF800001C0C0 + 00E0001FFFC1FF800001C0C000E0001FFFC1FF800001C0C000E0001FF3C1E3FE + 007FC0F003E0001FF1C1E3FE007FC0F803800007F1C1C3FE007FC0F807800007 + F00003FFFFFFC0FE1F800007F00003FFFFFFE1FF1F800007F00003FFFFFFFFFF + 1FC0000FFFFFFFFFFFFFFFFFFFFF87FFF0000FFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFF801FF0000FFFFFFFC00001FFE0FFE00007FFFFFFC00001FFC07F + C00003FFFFFFC00001FFC03F800001FFFFFFC00001FF001F000000FFFFFFC000 + 01FE000F000000FFFFFFC00001FE0007000000FFFFFFC00001F8000300000080 + 0003C00001F00001000000800003C00001F00000000000800003C00001C00001 + 000000E00007C00001800003000000E00007C00001800003000000F0000FC000 + 0180000F000000F0000FC0000180001F000000F0000FC0000180001F000000F0 + 000FC0000182007F800001F0001FC000018200FF800003F8001FC000018000FF + E00007FFFFFFFFFFFFC003FFF0000FFFFFFFFFFFFFE007FFF0001FFFFFFFFFFF + FFF007FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF000FF01C07FC0FFFFF87FFFFFC3FF07F0FF007FFFF87FFFFF83FF83E1F + F003FFFF87FFFFF83FF8181FC000FFF8007FFFE03FFC001FC0C0FFF8007FFFC0 + 3FFC001F81E0FFF8007FFC003FFC001F83F0FFFF03FFF0001FFE003F87F8FFFE + 00FFF0001FFE001F87F8FFFC00FFF0000FF8001F83F0FFF0003FF0000FE00003 + 81E0FFF0303FF0000FC00003C0C0C7F0781FF0000F800000E00047F0FC1FF000 + 1F800000F00007F1FE1FF0001FFF80FFF00007F1FE1FF0003FFF80FFFFF807F0 + FC1FFFC03FFFC1FFFFF807F0781FFFE03FFFC1FFFFE007F0303FFFF03FFFC3FF + FFE007F8007FFFF83FFFC3FFFFE007FC00FFFFFC3FFFE7FFFFFFFFFE00FFFFFE + 3FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00FFF03E0FC0 + 000FE00007FF81FFF07F0780001FF8003FFE00FFF07F0780001FF8003FFE007F + F03E0780001FF8003FFE007FF03C2780001FF8003FF8001FF01847F0001FF800 + 3FF0001FF00807F0001FF8003FF0001FF0000FF0001FF8003FF0000FF8001FF0 + 001FF8003FE00007FE003FF0001FF8003FE00007FF80FFF0001FF8003FC00003 + FF80FFF0001FF8003FC00003FF00FFF0001FF8003FC00003FE087FF0001FF800 + 3FC00003FE183FF0001FF8003FC00003FE183FF0001FF8003FC00003FC3E1FF0 + 0003F8003FC00003F87F1FF00003F8003FC00003F07F0FF00003F8003FC00003 + F1FF8FF00003F8003FFF81FFF1FFCFF00003F8003FFFC3FFF3FFEFF80003F800 + 3FFFC7FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003FFFFFFFFFFFFFC001FFC001FC00003E00003F0000FF0000F800003C00003 + F00007F00007800003800003E00003E00003800003800003C00003C000038000 + 03800003C00003C0000380000380000380000180000180000380000380000180 + 0001800003800003800001800001800003800003800001800001800003800003 + 8000018000018000038000038000018000018000038000038000018000018000 + 03800003800001800001800003800003C00003C00003800003800003E00003E0 + 0003800003800003F00007F00007800003800003F00007F00007800003800003 + FC001FFC001F800003800003FE003FFE003FC00003800003FF00FFFF00FFE000 + 07800003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003E0 + 0003E00003FFFFFFFC001FFC001FFC001FFC007FF0000FF0000FF0000FF8003F + F00007F00007F00007F0001FE00003E00003E00003E0000FC00003C00003C000 + 03C00007C00003C00003C0000380000380000180000180000180000380000180 + 0001800001800003800001800001800001800003800001800001800001800003 + 8000018000018000018000038000018000018000018000038000018000018000 + 01800003800001800001800001800003C00003C00003C00003800003E00003E0 + 0003E00003800003F00007F00007F00007C00007F00007F00007F00007E0000F + FC001FFC001FFC001FF0001FFE003FFE003FFE003FF8003FFF00FFFF00FFFF00 + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFC3FFFFF8FFFC007FFFFFFFFF80E3FFF8FFF8003F + FFFFFFFF00C3FFF87FF0001FFFFFFFFE0001FFF81FE0000FFFFFFFFC0001FFF8 + 1FC00007FFFFFFF8000180000F800003800001F00003800003800003800001E0 + 0003800003800003800001E00003800001800003800001800001800001800003 + 8000018000018000018000038000018000018000038000038000018000018000 + 0780000380000180000180000F800003800001800001FFF81F800003FFFFFF80 + 0001FFF83F800003FFFFFF800001FFF87FC00007FFFFFF800001FFF8FFE0000F + FFFFFF801803FFFFFFF0001FFFFFFFC03803FFFFFFF8003FFFFFFFF03E07FFFF + FFFC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003F80 + 07FFFFFFFFFFFFFFFC003F83FFFF80007FFFFFFFF0001FC1FFFF80007FFFFFFF + F0000FE0FFFF80007FFFFFFF800003F03E7F8000639FFFFF800003F03C7F8000 + 439FE001800003F0187F8000418FE001800003FC007FC200018FF001800003FE + 007FE3000187F801800003FE007FFF000183F801800003FF803FC20001806001 + 800003FF001F800001C00001800003FE001F800001C00001C00003FC00078000 + 63E00001E00007FC000380007FF00001F0001FFC000080007FF00001F0001FFF + F80080007FF80019F0001FFFF801FE07FFFC003FF0001FFFFC03FC03FFFE007F + FC003FFFFF07F801FFFFFFFFFC003FFFFF0FF801FFFFFFFFFC003FFFFF1FF801 + FFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0 + 0007800001FFFFFFFE0003F00007C00003F07FFFFC0003F00007C00003E03FFF + F80003F00007C00003C01FFFF00003F00007C000038007FFE00003F00007C000 + 038007FFE00003F00007C000038003FFE00003F00007C000038000FFE00003F0 + 0007C000038000FFE00003F00007C00003C0007FE00003F00007C00003E0001F + E00003F00007C00003F0001FE00003F00007C00003F0000FE00003F00007C000 + 03FC0007E00003F00007C00003FE0003E00003F00007C00003FE0003E00003F0 + 0007C00003FF8003E00003F00007C00003FFC003E00003F00007C00003FFC003 + E00003F00007C00003FFF007FFFFFFF00007C00003FFF80FFFFFFFFE493FC000 + 03FFFC1FFFFFFFFE493FFFFFFFFFFFFFC00FFFFFFFFFFFFFFFFFFFFFC07FFFFF + FFFFFFFFFFFE001F807FFFFFFFFF800003FFF8FF807FFFFFFFFF800003FFF0FF + 807E1FFC003F800003FFE0FF807807000000800003FFC0FFC078070000008000 + 03FF80C7E07807000000800003F00083F87807000000800003C00003F87807FC + 003F800003C00003F87C07FF00FF800003C00003F87F07FF00FF800003C00007 + F87F87FF00FF800003C00007F87F87FF00FFFC0003C00003F87F87FFC3FFFC00 + 03C00003F80F87FFC3FFFC0003C00003F80187FFC3FFFC0003E00003F80007FF + C3FFFC0003FF80C7F80007FFC3FFFC0003FFC0FFF80007FFC3FFFC0003FFC0FF + FC0007FFC3FFFC0003FFF0FFFF0007FFFFFFFFFFFFFFF8FFFFE007FFFFFFFFFF + FFFFF8FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FF00007FF + FFFFFFFFFFFFC3FFFC001FF0001FFFFFFFFF00FFFC001FFC003FFFFFFFFE00FF + FC001FFC003FF8000FFE007FFC001FFF00FFFF181FFE007FFC001F000000FF18 + 1FFF81FFFC001F000000FE101FF381CFFC001F000000FE007FE381C3FC001F00 + 0000FE00FFC00003FC001F000000FC00FF800001FC001F000000F8007F000000 + FC001F000000F8003F000000FC001F000000F0003F000000FC001F000000F000 + FF800003FC001F000000F003FFC381C3FC001F000000F007FFE381C7FC001F00 + 0000E03FFFFF81FFFC001F000000C0FFFFFE007FFC001F000000C3FFFFFE007F + FC001F000000FFFFFFFE00FFFC001F000000FFFFFFFF00FFFC001F000000FFFF + FFFF81FFFFFFFFFFFFFFFFFFFFFFC7FFC0000FFFFFFFFFFFFFFFFFFFE07FFFFF + FFFFFFFFFFFFFFFF803FFF80000383FFFFFFFFFF801FFFE0000F81FFFFFFFFFF + 860FFFE0000F81FFFFFFFFFF8F07FFE0000FC07FFF8000018707FFE0000FE03F + FF8000018207FFE0000FF03FFF800001C007FFE0000FF80FFF800001E007FFE0 + 000FFC07FF800001F003FFE0000FFE07FF800001F8001FE0000FFF00CF800001 + FC000FE0000FFF8007800001FFC007F0001FFFC007800001FFE003F8FE3FFFE0 + 03800001FFE001F8FE3FFFE001800001FFE061F8FE3FFFE001800001FFF0F0F8 + 7C3FFFF803800001FFF070F87C3FFFF803800001FFF820F8383FFFF003800001 + FFFC01FC007FFFF003800001FFFE03FE00FFFFFE1FFFFFFFFFFF03FF01FFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FFFFFFFFFFFFFF3FFFFFFF01FFFFFFFFFFFFFE3FFFFFFF01800000800001 + FE3FFFFFFE01800000800003F83FFFFFF801900081800003F03FFFFFF8039000 + 81800003F00001FFF003900081800003C00001FFE00F900081800003800001F0 + 001F900081800003800001E0001F90008180000380000180007F9000FF800003 + 8000018000FF9000FF8000038000018001FF9000FF800003E000010001FF9000 + FF800003F000010001FF9FC0FF800003F03FFF0001FF9FC0FF800003FC3FFF00 + 01FF9FC0FF800003FE3FFF0001FF9FC0FF800003FE3FFF0001FF9FC0FF800003 + FFFFFF8003FF9FC0FFFFFFFFFFFFFF8007FF9FC0FFFFFFFFFFFFFFC007FF9FFF + FFFFFFFFFFFFFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 3FFFFFFFFFFFFFFF80007FC01FFFFFFFFF80000383FFFF800FFFFFFFFF800003 + 83FFFF8207FFFFFFFF80000381FFFF8F87FFFFFFFF800003807FFF8FC7FF8000 + 01800003C03FFF8FC7FF800001800003F00FFF8F07FF800001800003F000FF82 + 07FF800001800003F8003F8003FF800001800003FE001FE000FF800001800003 + FE0007F000FF800001800003FF0003FFC07F800001800003FF0003FFF01F8000 + 01800003FF0003FFF81F800001800003FF0203FFF80FEFFFFF800003FF8703FF + FE03E00003800003FF8707FFFF03FFFFFF800003FFC20FFFFF01FFFFFF800003 + FFE01FFFFF00FFFFFFFFFFFFFFE03FFFFF00FFFFFFFFFFFFFFF07FFFFF00FFFF + FFFFFFFFFFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFF + BFFFFFFFFFF0001FF1FFFFFF8FFF000000F8001FF1FFFFFF8FFF800001F8001F + F1FFFFFF87FF800001F8001FF1FFFFFF87FF800001C00003F1FFFFFF83FF8000 + 01800003F1FFFFFFC3FF800001800003F1FFFFFFC0FF800001C03C03F1FFFFFF + C0FF800001C07E03F1FFFFFFC0FF80000180FF03F00003FE007F80000181FF01 + F00003FE003F80000181FF01F00003FE003F80000180FF01F00003FE001F8000 + 01C07E03F00003FE001F800001C03C03F00003FE01FF800001801803F00003FE + 00FF800001800003F00003FE00FF800001C00003F00003FE00FF803FFFF8001F + F00003FE007F807FFFF8001FF001F3FE003F80FFFFF8001FF0FFFFFE003FFFFF + FFFCC33FF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003800001FF9FFF807E03E00007CC0033FF87FF807E03E00007CC0033FF87FF + 80FF03E00007C00003FF83FF807E03E00007C00003FF81FF803C03E00007CC00 + 33FF81FF803803E00007CC0033FF81FF880013E00007C00003FF81FFFC003FE0 + 0007C00003FF81FFFE007FE00007CC0033FF81FFFF00FFE00007C00003FF00FF + FF00FFE00007C00003FE007FFE00FFE00007C00003FE003FFC003FE00007CC00 + 33F8001F880013E00007C00003F0000F801803E00007C00003F00007803C03E0 + 0007CC0033C00003807E03E00007CC003380000180FF03E00007C00003800001 + 807E03E00007C00003800001807E03E0000FCC0033800001807E03E0001FCC00 + 33800001FFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFC00003800001C1FFFFFC007F800003800001C0FFFFF8003F + 800003800001E03FFFF0001F800003800001F00FFFE0000F800003800001F007 + FFC00007800003800001F007FF800003800003800001F001FF80000380000380 + 0001F800FF800003800003800001F800FF800003800003800001FE003F800003 + 800003800001FE001F800003800003800001FF001F800003800003800001FFC0 + 07800003800003800001FFC003800003800003800001FFE00380000380000380 + 0001FFF801800003800003803FFFFFF801C00007800003803FFFFFFC01E0000F + 80000380FFFFFFFF01F0001FC00003FFFFFFFFFF83F8003FE00007FFFFFFFFFF + C3FC007FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFF7FFF03E0780 + 0001F0001FFFC7FFE07E07E00007F0001FFF81FFC03C03E00007F0001FFF00FF + 803803E00007F0001FFE00FF800001E00007F0001FFC003F800001E00007F000 + 1FF8001F800001E00007F0001FF0001FC00003E00007F0001FE00007E00007E0 + 0007F0001FE00003F0000FE00007F0001FE00007F8001FE00007F0001FFE00FF + F8001FE00007F0001FFE00FFF0001FE00007F0001FFE00FFE00007E00007F000 + 1FFE00FFC00003E00007F0001FFE00FF800003E00007F0001FFE00FF800001E0 + 0007F0001FFE00FF800001E00007F0001FFE00FF801801E00007F0001FFE00FF + C03C03E00007F0001FFE00FFE07E07E0000FF0001FFE00FFF0FF0FE0001FF000 + 1FFE00FFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + F0E3FF00FFFFFFFFFFF1FFFFF003FC001FE0000FFFE1FFFFF003F0000FE0000F + FFE1FFFFF003F00007E0000FFFC1FFFE001FE00003E0000FC00003FE001FC000 + 03E0000F800003FE001FC00003E0000F800001C0021F800001E0000F800001C0 + 021F800001E0000F800001C0021F800001E0000F800001C0021F800001E0000F + 800001C0021F800001E0000F800001C0021F800001E0000F800001C0021F8000 + 01E0000F800001C0021F800001E0000F800001C0021FC00003E0000F800001C0 + 021FE00003E0000F800001C0021FF00007E0000F800001C0021FF00007E0000F + 800001FE001FFC001FE0000F800001FE001FFE003FE0000F800003FE001FFF00 + FFF0001FFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF00FFFC003FFF + FFFF800001FE003FF0000FFC03FFE00007F0000FE00007F803FFE00007F00007 + C00003F003FFE00007E00003800003E001FFE00007C00003800001C001FFE000 + 07800001800001C001FFE00007800001000000E000FFE00007800000000000F0 + 40FFE00007800000000800F0C0FFE00007800000003800FFE07FE00007800000 + 003C00FFE03FE00007800000003800FFF03FE00007800000000000FFF81FE000 + 07800000000000FFF81FE00007800000000000FFFC0FE00007800001800001FF + FF03E00007C00003800003FFFF03E00007C00003800003FFFF83E00007E00003 + E00007FFFFE1E00007F0000FF0000FFFFFFFF0000FF8001FF0001FFFFFFFFE00 + FFFE003FFE00FFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFF + FFFFFFFFFFFFFFFFF8001FFFFFFF800003C1F0FFF0000F840023800003C0007F + F00007840021800003C000FFE00003840021800003E3F8FFC01E038E00618000 + 03FFFC7FC00F03840021800003FFFC7F80078180000180000380003F8003C180 + 000180000380003F8001C180000180000380003F8100C180000180000380001F + 81804180000180000380001F81C00180000180000380001F81E0018000018000 + 0380001F81F001800001E0000780000FC0F803800001E0000780000FE0000380 + 0001E00007C00007E00007800001FFFFFFFFE007F00007800001FFFFFFFFFFC1 + F8001FFFFFFFFFFFFFFFFFE1FE003FFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80001FFFFFFFFFFFFFFFFFFFC00003FF + FFFF800003FFFFFFC0000780001FC00007FFFFFFC0000780000FC00007800003 + C00007800007C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800001C0000780 + 0003C00007800001C00007800003C00007800001C00007800003C00007800001 + C00007800003C00007800001C00007800003C00007800001C00007800003C000 + 07800001C00007800003C00007800001C00007800003C00007800003C0001F80 + 0003C00007E00007C0001F800003C00007F8001FC001FF800003C00007FFC01F + C001FF800003C00007FFFFFFC001FF800003C00007FFFFFFC001FFFFFFFFC000 + 07FFFFFFF007FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFFFFFFFFF9 + F3FFFFFFFFFFFFFFE00007F8E3FF000000FFFFFFC00003F843FF000000800003 + C00003F803FF000000800003C00003F803FF000000800003C00003F803FF0000 + 00800003C00003F803FF000000800003C00003F803FF000000800003C00003F8 + 03FF000000800003C00003F803FF000000800003800001F803FF000000800003 + 800001F803FF000000800003800001F8001F000000800003800001F8001F0000 + 00800003FFC7FFF8001F000000800003FFC7FFF8001F000000800003FFC7FFF8 + 001F000000800003FFC7FFF8001F800001800003FFC7FFF8001FFE3CFF800003 + FFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00FFFFFFFFFFC7FFF8001FFE00 + FFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFE0000FFF + C1FFFFFFFFF8001FE0000FFE003FFE7E7FFE00FFE0000FFC001FF83C1FFE18FF + E0000FF8000FF03C1FFE38FFC00007F00003F0181FFE3CFFC00007C0C181F818 + 1FFC38FF800003C1C1C1F8001FFC38FF800003C1C1C1FE007FFC38FF800003C1 + C1E1FE007FFC38FF800003C3E3E1FE00FFFC38FF800003CFE3F9800001FC38FF + 800003CFE3FD800001FC38FF800003FF80FF800001FC38FF800003FF80FF8000 + 01FC38FF800003FFE3FFFE00FFFC30FF800003FFC1FFFE007FFC30FF800003FF + 80FFFC003FFC00FF800003FF80FFFC001FFC84FF800003FF88FFF8181FFCFCFF + 800003FF80FFF0381FFC38FFC06C07FF80FFF03C1FFC00FFF0C60FFFC0FFF83C + 1FFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + E003FC001FC0001F000000FFFF01FF00FFC00007000001FFFF01FF00FFC00007 + 000001FFFE01FF00FFC00007000001FFF801FF00FFC00007000001FFF803FF00 + FFC00007000001FFF003FF00FFC00007000001FFE00F800000C00007000001F0 + 001F800000C00007000000E0001F800000C0000700000080007F800000C00007 + 0000008000FF800000C000070000008001FF800000C000070000000001FF8000 + 00C000070000010001FF800000C000070000010001FF800000C0000700000100 + 001FFF00FFC0000700000100001FFF00FFC0000700000100001FFF00FFC00007 + 0000018003FFFF00FFC000070000018007FFFF00FFC00007000001C007FFFF00 + FFC00007FFFFFFF03FFFFF00FFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFE000F00 + 0000FC001FFFFFFFFC0007000000FC001F000000FA000FF0000FFC001F000001 + F00FFFF0000FFC001F800001F007FFF0000FFC001F800001E003FFF00007FC00 + 1F8000018003FFF00007FC001F8000018001FFF00007FC001FC000030001FFF0 + 0007FC001FE0000701807FF00003FC001FF0000F03C07FE00003FC003FFF00FF + 87E07FE00003000001FF81FF87F03FE00003000001FF00FFFFF81FE000018000 + 03FF00FFFFFC0F800001C00007FE00FFFFFE0F800001E0000FFE00FFFFFF0780 + 0001F0001FFE00FFFFFF87800001F8003FFE00FFFFFFC1800001FC007FFE00FF + FFFFE1800000FE00FFFF00FFFFFFF1800001FF01FFFF00FFFFFFF8800001FF83 + FFFF81FFFFFFFCE00003FFC7FFFFFFFFFFFFFFF0000FFFFFFF000001F8000FF0 + 000F000000000041FE003FFFF1FF800001800041000000FFF0FF800005800041 + 000000FFF07F80000180004180000100103F80000180004180000100000F8000 + 0180004180000100000780000180004180000100000380000180004180000100 + 0003800001800041800001000000800001800041800001000000800001800041 + 80000100000080000180006380000100000080000180007F8000010000018000 + 0180007F80000100000380000180007FE4000700000780000180007FFC003F00 + 000F80000180007FFC003FFFF01F80000180007FFC003FFFF03F800001803FFF + FC003FFFF07F800001803FFFFC003FFFF0FF800001803FFFFC003FFFF1FF8000 + 01803FFFFFFFFFFFF7FFFFFFFF807FFFFFFFFFF8003F88007FFFFFFF000000FE + 003F800000000000800001FE00FFFE00FF800001800000FE00FFFE00FF800001 + 800000FF01FFFE00FF800001800000FF01FFFE00FF800001800000000000FE00 + FF800001800000000000FE00FF80000180000000000000000180000180000000 + 0000000001800001800000000000000001800001800000000000000001800001 + 8000000000000000018000008000000000000000018000008000000000000000 + 01800000800001000000000001800000800001000000000001800000C0000300 + 0000FE00FF800000E00007000000FE00FF800000F0000F000000FE00FF800001 + F8001F000000FE00FF800001FC003F000000FE00FF801801FE007F000000FE00 + FF803E01FFFFFF000000FE00FFC1FFC1F0000FFFFFFFFFFFFFE0001FF0000FFF + FFFF800001E0001FFF83FFFFFFFFE00007FF8FFFFF00FFFFFFFFE00007FF0FFF + FE007F000001E00007FE0FFFFC003F000001F0000FFC0800F8003F800007F000 + 0FF00000F0000F800003F0000FE00000E0000F800003F0000FC00000C0000780 + 0001F0000FC00000800001800001E00007000000000001800001E00007000000 + 000001800001E00007000000FC003F800000E00007000000FC003F800000E000 + 07800000FC003F800000E00007C00000FC003F800007F0000FE00000FC003F80 + 0007F8001FF00000FC003F800007FC003FF80FFFFC003F80000FFE007FFC0FFF + FC003F803FFFFF007FFE0FFFFC003FFFFFFFFF807FFF0FFFFC003FFFFFFFFFC0 + 7FFF8FFFFC003FFFFFFFFFE7FFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFF00000080 + 0001000001E00001800001E00007000001C00001800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00003800001E000078000 + 01F00003800001E00007800001F00003800001E00007800001F00003800001E0 + 0007800001F00003800001E00007800001F00003800001E00007800001F00003 + 800001E00007800001F00003800001E00007800001F00001800001E000078000 + 01F00001800001E00007800001F00001800001E00007800001F00003800001E0 + 0007800001F0000F800001E00007800001F0000F800001E00007800001F0001F + 800001E00007800001F0007F800001E00007800001F0007F800001FF81FF8000 + 01F000FFFCFF3FFF81FFFFFFFFF003FF00000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + NativeStyle = False + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 139 + Top = 80 + PixelsPerInch = 96 + object SHuangSe: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBtnText + end + object SkyBlue: TcxStyle + AssignedValues = [svColor, svFont] + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object Default: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object QHuangSe: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object FontBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object TextSHuangSe: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlack + end + object FonePurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindow + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlack + end + object FoneClMaroon: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clMaroon + end + object FoneRed: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + object RowColor: TcxStyle + AssignedValues = [svColor] + Color = 16311512 + end + object handBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxBlue: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16711731 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clLime + end + end +end diff --git a/贸易管理/U_DataLink.pas b/贸易管理/U_DataLink.pas new file mode 100644 index 0000000..ca18594 --- /dev/null +++ b/贸易管理/U_DataLink.pas @@ -0,0 +1,91 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; +var + DConString:String; {ȫַ} + server, dtbase, user, pswd: String; {ݿӲ} + DCurHandle:hwnd; //ǰ + DName:string ; //#û#// + DCode:string ; //#û#// + Ddatabase:string; //#ݿ#// + DTitCaption:string; //##// + PicSvr: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; //˾ + IpCall:Integer; + IpWLDZStr:string; + UserDataFlag:string; + +type + TDataLink_TradeManage = 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; + cxStyle1: 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_TradeManage: TDataLink_TradeManage; + +implementation +{$R *.dfm} + + +procedure TDataLink_TradeManage.DataModuleDestroy(Sender: TObject); +begin + DataLink_TradeManage:=nil; +end; + +end. + + + + diff --git a/贸易管理/U_FanYangList.dfm b/贸易管理/U_FanYangList.dfm new file mode 100644 index 0000000..b389c08 --- /dev/null +++ b/贸易管理/U_FanYangList.dfm @@ -0,0 +1,899 @@ +object FrmFanYangList: TFrmFanYangList + Left = 120 + Top = 98 + Width = 1152 + Height = 620 + Caption = #25918#26679#25351#31034#21333 + 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 = 1136 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1136 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 33 + Top = 14 + 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 = 195 + Top = 14 + Width = 52 + Height = 12 + Caption = #25918#26679#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 353 + Top = 14 + 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 = 508 + Top = 14 + 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 = 195 + Top = 38 + Width = 53 + 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 Label10: TLabel + Left = 508 + Top = 38 + Width = 54 + Height = 12 + Caption = 'PO#& '#27454#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 353 + Top = 38 + 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 = 667 + Top = 38 + 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 = 667 + Top = 14 + 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 = 801 + Top = 14 + Width = 39 + Height = 12 + Caption = #19994#21153#32452 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 86 + Top = 10 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 85 + Top = 34 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 249 + Top = 10 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 406 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 562 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 249 + Top = 34 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKuanNO: TEdit + Tag = 2 + Left = 562 + Top = 34 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 34 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 696 + Top = 34 + Width = 82 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 696 + Top = 10 + Width = 82 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 842 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 116 + Width = 1136 + Height = 225 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1OrderNO: TcxGridDBColumn + Caption = #25918#26679#21333#21495 + DataBinding.FieldName = 'OrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 92 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + 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_TradeManage.Default + Width = 70 + end + object v1DlyDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1MPRTCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'CustomerNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 94 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #19994#21153#32452 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1OrdDefStr2: TcxGridDBColumn + Caption = #29983#20135#32452 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1OrdQty1: TcxGridDBColumn + Caption = #21046#32593#36153 + DataBinding.FieldName = 'OrdQty1' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrdQty3: TcxGridDBColumn + Caption = #25968#30721#21943#21360#36153 + DataBinding.FieldName = 'OrdQty3' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1OrdQty5: TcxGridDBColumn + Caption = #21305#26679#36153 + DataBinding.FieldName = 'OrdQty5' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1orddefstr7: TcxGridDBColumn + Caption = #32467#31639#26041#24335 + DataBinding.FieldName = 'orddefstr7' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1RanFactory: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'RanFactory' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 139 + end + object v1CPCFBi: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CPCFBi' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1PBFactory: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 357 + Width = 1136 + Height = 225 + Align = alBottom + TabOrder = 3 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DSSUB + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 108 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = 'PO#_'#27454#21495 + DataBinding.FieldName = 'MPRTKuanNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #19994#21153#32452 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #29983#20135#32452 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #21305#26679#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object V2Column1: TcxGridDBColumn + Caption = #38754#26009#21333#20215 + DataBinding.FieldName = 'PRTPRice' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #23454#38469#20986#36135 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #25104#21697#23492#20986 + DataBinding.FieldName = 'SOrdQty2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #24037#21378#32534#21495 + DataBinding.FieldName = 'SOrddefstr3' + HeaderAlignmentHorz = taCenter + Width = 113 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 174 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CPCFBi' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'RanFactory' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object Panel4: TPanel + Left = 411 + Top = 136 + Width = 231 + Height = 216 + Locked = True + TabOrder = 4 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 28 + Width = 149 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #25918#26679#25351#31034#21333 + #25918#26679#25351#31034#21333'('#26080#20215#26684')' + #25918#26679#25351#31034#21333#21457#31080) + TabOrder = 2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 96 + Width = 1136 + Height = 20 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1136 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 270 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 520 + Top = 269 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 270 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 419 + Top = 273 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 590 + Top = 270 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 385 + Top = 273 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 453 + Top = 274 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 554 + Top = 269 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 633 + Top = 269 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 240 + Top = 416 + end + object DSSUB: TDataSource + DataSet = ADOQuerySub + Left = 312 + Top = 420 + 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 = 740 + Top = 248 + end +end diff --git a/贸易管理/U_FanYangList.pas b/贸易管理/U_FanYangList.pas new file mode 100644 index 0000000..cb9329d --- /dev/null +++ b/贸易管理/U_FanYangList.pas @@ -0,0 +1,447 @@ +unit U_FanYangList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, Menus, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, DBClient, + ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxSplitter, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxPC; + +type + TFrmFanYangList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + ToolButton1: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + CustomerNoName: TEdit; + MPRTCodeName: TEdit; + ConNo: TEdit; + MPRTKuanNO: TEdit; + MPRTCode: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNO: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTCode: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DlyDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1OrdDefStr1: TcxGridDBColumn; + v1OrdDefStr2: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1CPCFBi: TcxGridDBColumn; + v1PBFactory: TcxGridDBColumn; + v1RanFactory: TcxGridDBColumn; + v1OrdQty1: TcxGridDBColumn; + v1OrdQty3: TcxGridDBColumn; + v1OrdQty5: TcxGridDBColumn; + OrdDefStr1: TEdit; + Label2: TLabel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQuerySub: TADOQuery; + DSSUB: TDataSource; + v1orddefstr7: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + cxTabControl1: TcxTabControl; + v1Column1: TcxGridDBColumn; + RMXLSExport1: TRMXLSExport; + ToolButton2: TToolButton; + v1Column2: TcxGridDBColumn; + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBPrintClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + procedure initGrid(); + procedure initsub(); + procedure SetStatus(); + { Private declarations } + public + { Public declarations } + end; + +var + FrmFanYangList: TFrmFanYangList; + +implementation + +uses U_DataLink,U_FanYangList_Sub,U_Fun; + +{$R *.dfm} +procedure TFrmFanYangList.SetStatus(); +begin + tbedit.Visible:=false; + tbdel.Visible:=false; + + case cxTabControl1.TabIndex of + 0:begin + // tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + // tnochk.Visible:=true; + end; + 2:begin + end; + end; +end; +procedure TFrmFanYangList.initsub(); +begin + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* from JYOrderFy_Main A '); + sql.add('inner join JYOrderFy_Sub B on B.Mainid=A.Mainid '); + sql.Add('where A.MainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + + open; + end; +end; + +procedure TFrmFanYangList.initGrid(); +begin + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.* from JYOrderFy_Main A '); + // sql.add('inner join JYOrderFy_Sub B on B.Mainid=A.Mainid '); + sql.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + sql.add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)+''' '); + //sql.add('and status=''0'''); + if trim(DParameters1)<>'Ȩ' then + begin + sql.add('and filler='''+trim(DName)+''' '); + end; + if cxTabControl1.TabIndex<2 then + sql.add(' and status ='''+inttostr(cxTabControl1.TabIndex)+''' '); + open; + end; + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); + TBFind.Click; +end; + +procedure TFrmFanYangList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+Tv1.Name,Tv1,'ָʾ¼'); + ReadCxGrid(self.Caption+Tv2.Name,Tv2,'ָʾ¼'); + BegDate.DateTime:=SGetServerDate10(ADOQuerycmd)-30; + EndDate.DateTime:=SGetServerDate10(ADOQuerycmd); + SetStatus(); + initGrid(); +end; + +procedure TFrmFanYangList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TFrmFanYangList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TFrmFanYangList.FormDestroy(Sender: TObject); +begin + FrmFanYangList:=nil; +end; + +procedure TFrmFanYangList.TBAddClick(Sender: TObject); +begin + try + FrmFanYangListSub:=TFrmFanYangListSub.Create(Application); + with FrmFanYangListSub do + begin + FMainid:=''; + // v1SOrdQty1.Options.Editing:=False; + if ShowModal=1 then + begin + initGrid(); + end; + end; + finally + FrmFanYangListSub.Free; + end; +end; + +procedure TFrmFanYangList.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TFrmFanYangList.TBFindClick(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TFrmFanYangList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + IF trim(order_Main.fieldbyname('Status').AsString)='1' then + begin + application.MessageBox('˲޸','ʾ'); + exit; + end; +{ if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + FrmFanYangListSub:=TFrmFanYangListSub.Create(Application); + with FrmFanYangListSub do + begin + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + // CustomerNo.Enabled:=False; + // CustomerNoName.Enabled:=False; + OrdDefStr1.Enabled:=False; + if ShowModal=1 then + begin + initGrid(); + end; + end; + finally + FrmFanYangListSub.Free; + end; +end; + +procedure TFrmFanYangList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + FrmFanYangListSub:=TFrmFanYangListSub.Create(Application); + with FrmFanYangListSub do + begin + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + if ShowModal=1 then + begin + initGrid(); + end; + end; + finally + FrmFanYangListSub.Free; + end; +end; + +procedure TFrmFanYangList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + IF trim(order_Main.fieldbyname('Status').AsString)='1' then + begin + application.MessageBox('˲ɾ','ʾ'); + exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + close; + sql.clear; + sql.Add('delete from JYOrderFy_Main where Mainid='''+trim(order_Main.fieldbyname('Mainid').AsString)+''' '); + sql.Add('delete from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + execsql; + end; + initGrid(); +end; + +procedure TFrmFanYangList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+Tv1.Name,Tv1,'ָʾ¼'); + WriteCxGrid(self.Caption+Tv2.Name,Tv2,'ָʾ¼'); +end; + +procedure TFrmFanYangList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TFrmFanYangList.TBPrintClick(Sender: TObject); +begin + Panel4.Visible:=true; + +end; + +procedure TFrmFanYangList.OrderNoChange(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TFrmFanYangList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + initsub(); +end; + +procedure TFrmFanYangList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TFrmFanYangList.Button1Click(Sender: TObject); +var + fPrintFile:string; +begin + if order_Main.IsEmpty then exit; + with ADOQueryPrint do + begin + close; + sql.clear; + sql.add('select A.*,B.*, '); + sql.add('ColorGS=(select count(AA.PRTColor) from '); + sql.add('(select distinct C.PRTColor From JYOrderFY_Sub C where C.Mainid=A.Mainid) AA),'); + sql.Add('PYZJ=(select Sum(C.PRTOrderQty) from JYOrderFY_Sub C where C.Mainid=A.Mainid),'); + sql.Add('m_SOrdQty1=(select Sum(C.SOrdQty1) from JYOrderFY_Sub C where C.Mainid=A.Mainid),'); + sql.Add('m_SOrdQty2=(select Sum(C.SOrdQty2) from JYOrderFY_Sub C where C.Mainid=A.Mainid),'); + sql.Add('MLMoney=(select Sum(C.PRTOrderQty*PrtPrice) from JYOrderFY_Sub C where C.Mainid=A.Mainid)'); + sql.add('from JYOrderFY_Main A '); + sql.add('inner join JYOrderFY_Sub B on B.Mainid=A.Mainid '); + sql.Add('where A.Mainid='''+trim(Order_Main.fieldbyname('Mainid').asstring)+''' '); + open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + IF RadioGroup1.ItemIndex=2 then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ָʾƱ.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['FS'] :=RadioGroup1.ItemIndex; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TFrmFanYangList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initgrid(); +end; + +procedure TFrmFanYangList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + try + FrmFanYangListSub:=TFrmFanYangListSub.Create(Application); + with FrmFanYangListSub do + begin + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + CopyInt:=99; + // CustomerNo.Enabled:=False; + // CustomerNoName.Enabled:=False; + // OrdDefStr1.Enabled:=False; + if ShowModal=1 then + begin + initGrid(); + end; + end; + finally + FrmFanYangListSub.Free; + end; +end; + +end. diff --git a/贸易管理/U_FanYangListHZ.dfm b/贸易管理/U_FanYangListHZ.dfm new file mode 100644 index 0000000..e437c2a --- /dev/null +++ b/贸易管理/U_FanYangListHZ.dfm @@ -0,0 +1,920 @@ +object FrmFanYangListHZ: TFrmFanYangListHZ + Left = 39 + Top = 162 + Width = 1184 + Height = 584 + Caption = #25918#26679#25351#31034#21333#32479#35745 + 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 = 1168 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 89 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TChk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TChkClick + end + object TNoChk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Visible = False + OnClick = TNoChkClick + end + object ToolButton2: TToolButton + Left = 402 + Top = 0 + Caption = #23548#20986'Excel' + ImageIndex = 57 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1168 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 33 + Top = 14 + 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 = 195 + Top = 14 + Width = 52 + Height = 12 + Caption = #25918#26679#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 353 + Top = 14 + Width = 52 + Height = 12 + Caption = #23458#25143#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 508 + Top = 14 + 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 = 195 + Top = 38 + Width = 53 + 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 Label10: TLabel + Left = 508 + Top = 38 + Width = 54 + Height = 12 + Caption = 'PO#& '#27454#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 353 + Top = 38 + 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 = 667 + Top = 38 + 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 = 667 + Top = 14 + 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 = 801 + Top = 14 + Width = 39 + Height = 12 + Caption = #19994#21153#32452 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 86 + Top = 10 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 85 + Top = 34 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 249 + Top = 10 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + end + object CustomerNo: TEdit + Tag = 2 + Left = 406 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 562 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 249 + Top = 34 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTKuanNO: TEdit + Tag = 2 + Left = 562 + Top = 34 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 34 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 696 + Top = 34 + Width = 82 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 696 + Top = 10 + Width = 82 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 842 + Top = 10 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 116 + Width = 1168 + Height = 364 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V1PRTOrderQty + end + item + Kind = skSum + Column = V1SOrdQty1 + end + item + Kind = skSum + Column = V1MLF + end + item + Kind = skSum + Column = V1SMPYF + end + item + Kind = skSum + Column = V1SOrdQty2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsCustomize.BandMoving = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + Styles.BandHeader = DataLink_TradeManage.Default + Bands = < + item + Options.Moving = False + Width = 1000 + end + item + Caption = #21046#32593#36153 + Options.Moving = False + Width = 165 + end + item + Caption = #25968#30721#36153 + Options.Moving = False + Width = 113 + end + item + Options.Moving = False + Styles.Background = DataLink_TradeManage.FoneRed + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 389 + end + item + Caption = #25910#27454#20449#24687 + Width = 311 + end> + object VOrdDate: TcxGridDBBandedColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 79 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1OrdDefStr1: TcxGridDBBandedColumn + Caption = #19994#21153#32452 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 47 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Mainid: TcxGridDBBandedColumn + Caption = #25918#26679#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1MPRTCodeName: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 112 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V1MPRTCode: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 69 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V1PRTOrderQty: TcxGridDBBandedColumn + Caption = #21305#26679#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V1OrderUnit: TcxGridDBBandedColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V1PRTColor: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 56 + OnCompareRowValuesForCellMerging = V1PRTColorCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V1OrdQty4: TcxGridDBBandedColumn + Caption = #38754#26009#21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V1SOrdQty1: TcxGridDBBandedColumn + Caption = #23454#38469#20986#36135 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V1SOrdQty2: TcxGridDBBandedColumn + Caption = #25104#21697#23492#20986 + DataBinding.FieldName = 'SOrdQty2' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V1MLF: TcxGridDBBandedColumn + Caption = #38754#26009#36153 + DataBinding.FieldName = 'MLF' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V1OrdQty5: TcxGridDBBandedColumn + Caption = #21305#26679#36153 + DataBinding.FieldName = 'OrdQty5' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 75 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V1OrdQty2: TcxGridDBBandedColumn + Caption = #32593#25968 + DataBinding.FieldName = 'OrdQty2' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 49 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1OrdQty1: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdQty1' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1ZWF: TcxGridDBBandedColumn + Caption = #21512#35745 + DataBinding.FieldName = 'ZWF' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 62 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1OrdQty3: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdQty3' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1SMPYF: TcxGridDBBandedColumn + Caption = #21512#35745 + DataBinding.FieldName = 'SMPYF' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 62 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1ZJ: TcxGridDBBandedColumn + Caption = #24635#35745 + DataBinding.FieldName = 'ZJ' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 65 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1OrdQty6: TcxGridDBBandedColumn + Caption = #24555#36882#36153 + DataBinding.FieldName = 'OrdQty6' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 50 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Note: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 127 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V1OrdDefStr6: TcxGridDBBandedColumn + Caption = #24065#31181 + DataBinding.FieldName = 'OrdDefStr6' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 37 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1CustomerNoName: TcxGridDBBandedColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'CustomerNo' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 85 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V1OrdQty7: TcxGridDBBandedColumn + Caption = #25187#27454 + DataBinding.FieldName = 'OrdQty7' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 41 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Orddefdate1: TcxGridDBBandedColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'Orddefdate1' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 81 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1OrdQty9: TcxGridDBBandedColumn + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'OrdQty9' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 63 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1OrddefNote1: TcxGridDBBandedColumn + Caption = #25910#27454#22791#27880 + DataBinding.FieldName = 'OrddefNote1' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 147 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1conNo: TcxGridDBBandedColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 70 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1orddefstr7: TcxGridDBBandedColumn + Caption = #32467#31639#26041#24335 + DataBinding.FieldName = 'orddefstr7' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 69 + OnCompareRowValuesForCellMerging = VOrdDateCompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 96 + Width = 1168 + Height = 20 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1168 + ClientRectTop = 19 + end + object PanelSh: TPanel + Left = 428 + Top = 156 + Width = 401 + Height = 173 + BevelInner = bvLowered + BevelOuter = bvSpace + TabOrder = 4 + Visible = False + object Label5: TLabel + Left = 28 + Top = 32 + Width = 52 + Height = 12 + Caption = #25910#27454#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 204 + Top = 32 + Width = 52 + Height = 12 + Caption = #25910#27454#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 28 + Top = 56 + Width = 52 + Height = 12 + Caption = #25910#27454#22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Orddefdate1: TDateTimePicker + Left = 84 + Top = 28 + Width = 90 + Height = 20 + Date = 42066.617078726850000000 + Format = 'yyyy-MM-dd' + Time = 42066.617078726850000000 + TabOrder = 0 + end + object ordQty9: TcxCurrencyEdit + Left = 260 + Top = 28 + Properties.DisplayFormat = '0.00;-,0.00' + TabOrder = 1 + Width = 90 + end + object OrddefNote1: TMemo + Left = 83 + Top = 56 + Width = 270 + Height = 53 + TabOrder = 2 + end + object Button1: TButton + Left = 80 + Top = 124 + Width = 75 + Height = 25 + Caption = #23457#26680#36890#36807 + TabOrder = 3 + OnClick = Button1Click + end + object Button2: TButton + Left = 232 + Top = 124 + Width = 75 + Height = 25 + Caption = #21462#28040#23457#26680 + TabOrder = 4 + OnClick = Button2Click + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 304 + Top = 205 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 274 + Top = 288 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 309 + Top = 268 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 254 + Top = 353 + 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 = 362 + Top = 198 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 226 + Top = 247 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 150 + Top = 271 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 279 + Top = 185 + end +end diff --git a/贸易管理/U_FanYangListHZ.pas b/贸易管理/U_FanYangListHZ.pas new file mode 100644 index 0000000..2f53ad0 --- /dev/null +++ b/贸易管理/U_FanYangListHZ.pas @@ -0,0 +1,399 @@ +unit U_FanYangListHZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, DBClient, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxPC, cxGridBandedTableView, cxGridDBBandedTableView, + cxCustomPivotGrid, cxDBPivotGrid, cxContainer, cxTextEdit, cxCurrencyEdit; + +type + TFrmFanYangListHZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton1: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + CustomerNo: TEdit; + MPRTCodeName: TEdit; + ConNo: TEdit; + MPRTKuanNO: TEdit; + MPRTCode: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxGrid1: TcxGrid; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryTmp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + TChk: TToolButton; + TNoChk: TToolButton; + cxTabControl1: TcxTabControl; + TV1: TcxGridDBBandedTableView; + VOrdDate: TcxGridDBBandedColumn; + V1OrdDefStr1: TcxGridDBBandedColumn; + V1Mainid: TcxGridDBBandedColumn; + V1MPRTCodeName: TcxGridDBBandedColumn; + V1MPRTCode: TcxGridDBBandedColumn; + V1PRTColor: TcxGridDBBandedColumn; + V1PRTOrderQty: TcxGridDBBandedColumn; + V1OrdQty4: TcxGridDBBandedColumn; + V1SOrdQty1: TcxGridDBBandedColumn; + V1MLF: TcxGridDBBandedColumn; + V1OrdQty5: TcxGridDBBandedColumn; + V1OrdQty2: TcxGridDBBandedColumn; + V1OrdQty1: TcxGridDBBandedColumn; + V1ZWF: TcxGridDBBandedColumn; + V1OrdQty3: TcxGridDBBandedColumn; + V1SMPYF: TcxGridDBBandedColumn; + V1ZJ: TcxGridDBBandedColumn; + V1Note: TcxGridDBBandedColumn; + V1OrderUnit: TcxGridDBBandedColumn; + V1OrdQty6: TcxGridDBBandedColumn; + V1SOrdQty2: TcxGridDBBandedColumn; + V1OrdDefStr6: TcxGridDBBandedColumn; + OrdDefStr1: TEdit; + Label2: TLabel; + V1CustomerNoName: TcxGridDBBandedColumn; + V1OrdQty7: TcxGridDBBandedColumn; + PanelSh: TPanel; + Label5: TLabel; + Orddefdate1: TDateTimePicker; + Label6: TLabel; + ordQty9: TcxCurrencyEdit; + Label7: TLabel; + OrddefNote1: TMemo; + Button1: TButton; + Button2: TButton; + V1Orddefdate1: TcxGridDBBandedColumn; + V1OrdQty9: TcxGridDBBandedColumn; + V1OrddefNote1: TcxGridDBBandedColumn; + ToolButton2: TToolButton; + V1conNo: TcxGridDBBandedColumn; + V1orddefstr7: TcxGridDBBandedColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TChkClick(Sender: TObject); + procedure TNoChkClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBPrintClick(Sender: TObject); + procedure VOrdDateCompareRowValuesForCellMerging(Sender: TcxGridColumn; + ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; + const AValue1: Variant; ARow2: TcxGridDataRow; + AProperties2: TcxCustomEditProperties; const AValue2: Variant; + var AAreEqual: Boolean); + procedure V1PRTColorCompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + procedure initGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + FrmFanYangListHZ: TFrmFanYangListHZ; + +implementation + +uses U_DataLink,U_FanYangList_Sub,U_Fun; + +{$R *.dfm} + +procedure TFrmFanYangListHZ.initGrid(); +begin + with ADOQueryTmp do + begin + Filtered:=False; + close; + sql.Clear; + sql.add('exec P_Get_FYList '); + sql.add('@begdate='''+formatdatetime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@endDate='''+formatdatetime('yyyy-MM-dd',endDate.DateTime+1)+''' '); + open; + end; + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); + TBFind.Click; +end; + +procedure TFrmFanYangListHZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TFrmFanYangListHZ.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TFrmFanYangListHZ.FormDestroy(Sender: TObject); +begin + FrmFanYangListHZ:=nil; +end; + +procedure TFrmFanYangListHZ.FormShow(Sender: TObject); +begin + ReadCxBandedGrid(self.Caption+Tv1.Name+'5',Tv1,'ָʾͳ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryPrint)-15; + EndDate.DateTime:=SGetServerDate10(ADOQueryPrint); + initGrid(); +end; + +procedure TFrmFanYangListHZ.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TFrmFanYangListHZ.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxBandedGrid(self.Caption+Tv1.Name+'5',Tv1,'ָʾͳ'); +end; + +procedure TFrmFanYangListHZ.TBFindClick(Sender: TObject); +var strwhere: string; +begin + if ADOQueryTmp.Active=False then Exit; + strwhere:=SGetFilters(Panel1,1,2); + IF strwhere='' then + begin + if cxTabControl1.TabIndex<2 then + strwhere:=' status ='''+inttostr(cxTabControl1.TabIndex)+''''; + end + else + begin + if cxTabControl1.TabIndex<2 then + strwhere:=strwhere+' and status ='''+inttostr(cxTabControl1.TabIndex)+''''; + end; + SDofilter(ADOQueryTmp,strwhere); + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TFrmFanYangListHZ.OrderNoMChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TFrmFanYangListHZ.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + FrmFanYangListSub:=TFrmFanYangListSub.Create(Application); + with FrmFanYangListSub do + begin + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + if ShowModal=1 then + begin + initGrid(); + end; + end; + finally + FrmFanYangListSub.Free; + end; +end; + +procedure TFrmFanYangListHZ.cxTabControl1Change(Sender: TObject); +begin + Tchk.Visible:=False; + TNochk.Visible:=False; + if CxTabControl1.TabIndex=0 then + begin + Tchk.Visible:=True; + end; + if CxTabControl1.TabIndex=1 then + begin + TNochk.Visible:=true; + end; + initGrid(); +end; + +procedure TFrmFanYangListHZ.TChkClick(Sender: TObject); +begin + if order_Main.IsEmpty then exit; + + PanelSh.Left:=(Width-PanelSh.Width) div 2; + PanelSh.top:=(Height-PanelSh.Height-100) div 2; + Orddefdate1.DateTime:=date(); + ordQty9.Text:=''; + OrddefNote1.Text:=''; + PanelSh.Visible:=true; + +end; + +procedure TFrmFanYangListHZ.TNoChkClick(Sender: TObject); +begin + if order_Main.IsEmpty then exit; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.add('update jYorderFY_Main set Chker='''',Chktime=Null,status=''0'' '); + sql.Add(',Orddefdate1=null,ordQty9=0,OrddefNote1='''' '); + sql.add('where Mainid='''+trim(Order_Main.fieldbyname('Mainid').asstring)+''' '); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + initGrid(); + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TFrmFanYangListHZ.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TFrmFanYangListHZ.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if order_Main.IsEmpty then exit; + {with ADOQueryPrint do + begin + close; + sql.clear; + sql.Add('select A.*,B.*,'); + //Sql.add('CLRGS=(select count(AA.PRTColor) from (select distinct D.PRTColor from JYOrderFy_Sub D where D.Mainid=A.Mainid ) AA),'); + //sql.add('SumOrdQty1=(select Sum(D.SOrdQty1) from JYOrderFY_Sub D where D.Mainid=A.Mainid ),'); + //sql.add('ZJ=(select C.OrdQty5*Count(D.PRTColor)+C.OrdQty1*C.OrdQty2+C.OrdQty3*Sum(D.SOrdQty1)+C.OrdQty4*Sum(D.SOrdQty1)'); + //sql.add(' from JYOrderFy_Main C inner join JYOrderFy_Sub D on D.Mainid=C.Mainid where C.Mainid=A.Mainid '); + //sql.add('group by C.OrdQty5,C.OrdQty1,C.OrdQty2,C.OrdQty3,C.OrdQty4 ),'); + sql.add('ZJ=(select (AA.OrdQty5*Count(AA.PRTColor)+AA.OrdQty1*AA.OrdQty2+AA.OrdQty3*Sum(SL)+AA.OrdQty4*Sum(SL)) from '); + sql.add('(select E.PRTColor,F.OrdQty5,F.OrdQty1,F.OrdQty2,F.OrdQty3,F.OrdQty4,Sum(E.SOrdQty1) SL From JYOrderFy_Sub E inner join '); + sql.add('JYOrderFy_Main F on F.Mainid=E.Mainid where F.Mainid=A.Mainid group by E.PRTColor,F.OrdQty5,F.OrdQty1,F.OrdQty2,F.OrdQty3,F.OrdQty4 ) AA '); + sql.add('group by AA.OrdQty5,AA.OrdQty1,AA.OrdQty2,AA.OrdQty3,AA.OrdQty4) ,'); + + sql.add('MLF=SOrdQty1*OrdQty4,ZWF=OrdQty2*OrdQty1,SMPYF=OrdQty3*SOrdQty1 '); + sql.add('from JYOrderFy_Main A '); + sql.add('inner join JYOrderFy_Sub B on B.Mainid=A.Mainid '); + sql.Add('where A.Mainid='''+trim(Order_Main.fieldbyname('Mainid').asstring)+''' '); + open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print);} + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ָʾͳ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾͳ.rmf'),'ʾ',0); + end; +end; + +procedure TFrmFanYangListHZ.VOrdDateCompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); +begin + if ARow1.Values[V1Mainid.Index]=ARow2.Values[V1Mainid.Index] then + AAreEqual:=True + else + AAreEqual:=False; +end; + +procedure TFrmFanYangListHZ.V1PRTColorCompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[V1Mainid.Index]=ARow2.Values[V1Mainid.Index]) and + (ARow1.Values[V1PRTColor.Index]=ARow2.Values[V1PRTColor.Index]) then + begin + AAreEqual:=true + end + else + AAreEqual:=False; +end; + +procedure TFrmFanYangListHZ.Button1Click(Sender: TObject); +begin + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.add(' update jYorderFY_Main set Chker='''+Trim(DName)+''',Chktime=getdate(),status=''1'' '); + IF strTofloatdef(trim(OrdQty9.Text),0)<>0 then + begin + sql.Add(',Orddefdate1='''+formatdateTime('yyyy-MM-dd',Orddefdate1.DateTime)+''' '); + sql.Add(',OrdQty9='''+floattostr(strTofloatdef(trim(OrdQty9.Text),0))+''' '); + sql.Add(',OrddefNote1='''+trim(OrddefNote1.Text)+''' '); + end; + sql.add(' where Mainid='''+trim(Order_Main.fieldbyname('Mainid').asstring)+''' '); + execsql; + end; + PanelSh.Visible:=false; + application.MessageBox('˳ɹ','ʾϢ'); + initGrid(); + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TFrmFanYangListHZ.Button2Click(Sender: TObject); +begin + PanelSh.Visible:=false; +end; + +procedure TFrmFanYangListHZ.ToolButton2Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + TcxGridToExcel(self.Caption,CXGrid1); +end; + +end. diff --git a/贸易管理/U_FanYangList_Sub.dfm b/贸易管理/U_FanYangList_Sub.dfm new file mode 100644 index 0000000..8777f08 --- /dev/null +++ b/贸易管理/U_FanYangList_Sub.dfm @@ -0,0 +1,1119 @@ +object FrmFanYangListSub: TFrmFanYangListSub + Left = 191 + Top = 0 + Width = 1162 + Height = 712 + Caption = #25918#26679#25351#31034#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1146 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 393 + Width = 1146 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 422 + Width = 1146 + Height = 247 + Align = alTop + TabOrder = 2 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1SOrdQty1 + end + item + Kind = skSum + Column = v1SOrdQty2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 92 + end + object v1SOrddefstr4: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1PRTHX: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21305#26679#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 77 + end + object v1Column1: TcxGridDBColumn + Caption = #38754#26009#21333#20215 + DataBinding.FieldName = 'PRTPRice' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1SOrdQty1: TcxGridDBColumn + Caption = #23454#38469#20986#36135 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1SOrdQty2: TcxGridDBColumn + Caption = #25104#21697#23492#20986 + DataBinding.FieldName = 'SOrdQty2' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1SOrddefstr3: TcxGridDBColumn + Caption = #24037#21378#32534#21495 + DataBinding.FieldName = 'SOrddefstr3' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1SOrddefstr5: TcxGridDBColumn + Caption = #36873#39033 + DataBinding.FieldName = 'SOrddefstr5' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1SOrdDefNote1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 169 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1146 + Height = 364 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label1: TLabel + Left = 37 + Top = 17 + Width = 65 + Height = 12 + Caption = #25918#26679#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 213 + Top = 88 + 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 Label10: TLabel + Left = 213 + Top = 17 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 571 + Top = 17 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 571 + Top = 41 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#32452#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 37 + Top = 65 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 213 + Top = 65 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 389 + Top = 41 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 571 + Top = 65 + Width = 66 + Height = 12 + Caption = #29983' '#20135' '#32452#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 = 37 + Top = 88 + Width = 66 + Height = 12 + Caption = #22383' '#24067' '#21378#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 213 + Top = 188 + Width = 66 + Height = 12 + Caption = #21305' '#26679' '#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 389 + Top = 188 + Width = 66 + Height = 12 + Caption = #24555' '#36882' '#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 37 + Top = 41 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 213 + Top = 41 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 571 + Top = 88 + Width = 62 + Height = 13 + Caption = 'SEASON'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 389 + Top = 17 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 389 + Top = 65 + Width = 67 + Height = 12 + Caption = 'PO#& '#27454#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 37 + Top = 188 + Width = 78 + Height = 12 + Caption = #25968#30721#21943#21360#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 37 + Top = 164 + Width = 67 + Height = 12 + Caption = #27801' '#23376#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 389 + Top = 88 + Width = 67 + Height = 12 + Caption = #25104' '#20221#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 389 + Top = 164 + Width = 66 + Height = 12 + Caption = #21046' '#32593' '#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 37 + Top = 291 + 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 Label5: TLabel + Left = 571 + Top = 164 + Width = 67 + Height = 12 + Caption = #32593' '#25968#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 = 571 + Top = 188 + Width = 67 + Height = 12 + Caption = #24065' '#31181#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 37 + Top = 232 + Width = 65 + Height = 12 + Caption = #27880#24847#20107#39033#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 = 213 + Top = 113 + Width = 66 + Height = 12 + Caption = #32553' '#27700' '#29575#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 389 + Top = 113 + Width = 67 + Height = 12 + Caption = #25197' '#21147#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 571 + Top = 113 + Width = 68 + Height = 12 + Caption = 'PH '#20540#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 37 + Top = 112 + Width = 65 + Height = 12 + Caption = #27979#35797#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 37 + Top = 138 + Width = 65 + Height = 12 + Caption = #27838#33394#29282#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 213 + Top = 138 + Width = 65 + Height = 12 + Caption = #27700#27927#29282#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 389 + Top = 138 + Width = 67 + Height = 12 + Caption = #24178' '#30952#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 571 + Top = 138 + Width = 67 + Height = 12 + Caption = #28287' '#30952#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 213 + Top = 164 + Width = 91 + Height = 12 + Caption = #38750#27695#28418#33394#29282#24230#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 = 37 + Top = 212 + Width = 67 + Height = 12 + Caption = #25187' '#27454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 213 + Top = 212 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 101 + Top = 14 + Width = 98 + Height = 20 + Enabled = False + TabOrder = 0 + Text = #33258#21160#20135#29983 + end + object ConNo: TEdit + Tag = 2 + Left = 278 + Top = 14 + Width = 98 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 634 + Top = 13 + Width = 98 + Height = 20 + BevelInner = bvNone + Date = 0.670856296288548100 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548100 + ShowCheckbox = True + TabOrder = 2 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 101 + Top = 37 + Width = 98 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 3 + end + object CPCFBi: TEdit + Tag = 2 + Left = 456 + Top = 85 + Width = 98 + Height = 20 + TabOrder = 4 + end + object OrdDefStr2: TBtnEditA + Tag = 2 + Left = 634 + Top = 61 + Width = 98 + Height = 20 + TabOrder = 5 + OnBtnClick = OrdDefStr2BtnClick + end + object OrdDefStr3: TBtnEditA + Tag = 2 + Left = 634 + Top = 84 + Width = 98 + Height = 20 + TabOrder = 6 + OnBtnClick = OrdDefStr3BtnClick + end + object MPRTKuanNO: TEdit + Tag = 2 + Left = 456 + Top = 62 + Width = 98 + Height = 20 + TabOrder = 7 + end + object MPRTCodeName: TBtnEditA + Tag = 2 + Left = 456 + Top = 37 + Width = 98 + Height = 20 + TabOrder = 8 + OnBtnClick = MPRTCodeNameBtnClick + end + object OrdDefStr1: TBtnEditA + Tag = 2 + Left = 634 + Top = 37 + Width = 98 + Height = 20 + TabOrder = 9 + OnBtnClick = OrdDefStr1BtnClick + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 493 + Top = 13 + Width = 61 + Height = 20 + TabOrder = 10 + OnBtnClick = CustomerNoNameBtnClick + end + object RanFactory: TBtnEditA + Tag = 2 + Left = 278 + Top = 85 + Width = 98 + Height = 20 + TabOrder = 11 + OnBtnClick = RanFactoryBtnClick + end + object PBFactory: TBtnEditA + Tag = 2 + Left = 101 + Top = 84 + Width = 98 + Height = 20 + TabOrder = 12 + OnBtnClick = PBFactoryBtnClick + end + object MPRTKZ: TBtnEditA + Tag = 2 + Left = 278 + Top = 61 + Width = 98 + Height = 20 + TabOrder = 13 + OnBtnClick = MPRTKZBtnClick + end + object MPRTMF: TBtnEditA + Tag = 2 + Left = 101 + Top = 61 + Width = 98 + Height = 20 + TabOrder = 14 + OnBtnClick = MPRTMFBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 278 + Top = 37 + Width = 98 + Height = 20 + TabOrder = 15 + OnBtnClick = MPRTCodeBtnClick + end + object OrdDefStr4: TBtnEditA + Tag = 2 + Left = 101 + Top = 160 + Width = 98 + Height = 20 + TabOrder = 16 + OnBtnClick = OrdDefStr4BtnClick + end + object OrdQty1: TcxCurrencyEdit + Tag = 2 + Left = 456 + Top = 160 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 17 + Width = 98 + end + object OrdQty5: TcxCurrencyEdit + Tag = 2 + Left = 278 + Top = 184 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 18 + Width = 98 + end + object OrdQty3: TcxCurrencyEdit + Tag = 2 + Left = 113 + Top = 184 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 19 + Width = 84 + end + object OrdQty6: TcxCurrencyEdit + Tag = 2 + Left = 456 + Top = 184 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 20 + Width = 98 + end + object Note: TMemo + Tag = 2 + Left = 101 + Top = 293 + Width = 631 + Height = 62 + Lines.Strings = ( + '') + ScrollBars = ssVertical + TabOrder = 21 + end + object OrdFlag1: TCheckBox + Tag = 2 + Left = 751 + Top = 14 + Width = 97 + Height = 17 + Caption = #26159#21542#35745#31639#36153#29992 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 22 + Visible = False + end + object OrdQty2: TcxCurrencyEdit + Tag = 2 + Left = 634 + Top = 160 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 23 + Width = 98 + end + object OrdDefStr6: TBtnEditA + Tag = 2 + Left = 634 + Top = 184 + Width = 98 + Height = 20 + TabOrder = 24 + OnBtnClick = OrdDefStr6BtnClick + end + object MPRTTeBieNote: TMemo + Tag = 2 + Left = 101 + Top = 230 + Width = 631 + Height = 62 + Lines.Strings = ( + '') + ScrollBars = ssVertical + TabOrder = 25 + OnDblClick = MPRTTeBieNoteDblClick + end + object MPRTPH: TBtnEditA + Tag = 2 + Left = 634 + Top = 109 + Width = 98 + Height = 20 + TabOrder = 26 + OnBtnClick = MPRTPHBtnClick + end + object MPRTNiuDu: TBtnEditA + Tag = 2 + Left = 456 + Top = 109 + Width = 98 + Height = 20 + TabOrder = 27 + OnBtnClick = MPRTNiuDuBtnClick + end + object MPRTSL: TBtnEditA + Tag = 2 + Left = 278 + Top = 109 + Width = 98 + Height = 20 + TabOrder = 28 + OnBtnClick = MPRTSLBtnClick + end + object OrdDefStr5: TBtnEditA + Tag = 2 + Left = 101 + Top = 109 + Width = 98 + Height = 20 + TabOrder = 29 + OnBtnClick = OrdDefStr5BtnClick + end + object MPRTColorLaoDu4: TBtnEditA + Tag = 2 + Left = 278 + Top = 134 + Width = 98 + Height = 20 + TabOrder = 30 + OnBtnClick = MPRTColorLaoDu4BtnClick + end + object MPRTColorLaoDu3: TBtnEditA + Tag = 2 + Left = 101 + Top = 134 + Width = 98 + Height = 20 + TabOrder = 31 + OnBtnClick = MPRTColorLaoDu3BtnClick + end + object MPRTDingPoLv: TBtnEditA + Tag = 2 + Left = 300 + Top = 160 + Width = 77 + Height = 20 + TabOrder = 32 + OnBtnClick = MPRTDingPoLvBtnClick + end + object MPRTColorLaoDu1: TBtnEditA + Tag = 2 + Left = 456 + Top = 134 + Width = 98 + Height = 20 + TabOrder = 33 + OnBtnClick = MPRTColorLaoDu1BtnClick + end + object MPRTColorLaoDu2: TBtnEditA + Tag = 2 + Left = 634 + Top = 134 + Width = 98 + Height = 20 + TabOrder = 34 + OnBtnClick = MPRTColorLaoDu2BtnClick + end + object CustomerNo: TEdit + Tag = 2 + Left = 456 + Top = 13 + Width = 37 + Height = 20 + TabOrder = 35 + end + object OrdQty7: TcxCurrencyEdit + Tag = 2 + Left = 100 + Top = 208 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 36 + Width = 98 + end + object orddefstr7: TComboBox + Tag = 2 + Left = 279 + Top = 208 + Width = 98 + Height = 20 + ItemHeight = 12 + TabOrder = 37 + Items.Strings = ( + '' + #20813#36153 + #22823#36135#35797#26679) + end + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 369 + Top = 490 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 336 + Top = 490 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 300 + Top = 491 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 261 + Top = 491 + end +end diff --git a/贸易管理/U_FanYangList_Sub.pas b/贸易管理/U_FanYangList_Sub.pas new file mode 100644 index 0000000..18ce479 --- /dev/null +++ b/贸易管理/U_FanYangList_Sub.pas @@ -0,0 +1,887 @@ +unit U_FanYangList_Sub; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, ExtCtrls, + StdCtrls, BtnEdit, cxContainer, cxTextEdit, cxCurrencyEdit, ADODB, + DBClient,strutils; + +type + TFrmFanYangListSub = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTHX: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1SOrdDefNote1: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + Label7: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label16: TLabel; + Label19: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label28: TLabel; + Label29: TLabel; + Label35: TLabel; + Label42: TLabel; + Label43: TLabel; + Label45: TLabel; + Label48: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + DLYDate: TDateTimePicker; + CPCFBi: TEdit; + OrdDefStr2: TBtnEditA; + OrdDefStr3: TBtnEditA; + MPRTKuanNO: TEdit; + MPRTCodeName: TBtnEditA; + OrdDefStr1: TBtnEditA; + CustomerNoName: TBtnEditA; + RanFactory: TBtnEditA; + PBFactory: TBtnEditA; + MPRTKZ: TBtnEditA; + MPRTMF: TBtnEditA; + MPRTCode: TBtnEditA; + OrdDefStr4: TBtnEditA; + OrdQty1: TcxCurrencyEdit; + OrdQty5: TcxCurrencyEdit; + OrdQty3: TcxCurrencyEdit; + OrdQty6: TcxCurrencyEdit; + Label4: TLabel; + Note: TMemo; + OrdFlag1: TCheckBox; + Label5: TLabel; + OrdQty2: TcxCurrencyEdit; + Label8: TLabel; + OrdDefStr6: TBtnEditA; + v1SOrddefstr4: TcxGridDBColumn; + v1SOrdQty1: TcxGridDBColumn; + v1SOrddefstr3: TcxGridDBColumn; + v1SOrddefstr5: TcxGridDBColumn; + Label9: TLabel; + MPRTTeBieNote: TMemo; + Label11: TLabel; + Label15: TLabel; + Label17: TLabel; + MPRTPH: TBtnEditA; + MPRTNiuDu: TBtnEditA; + MPRTSL: TBtnEditA; + Label18: TLabel; + OrdDefStr5: TBtnEditA; + Label30: TLabel; + Label31: TLabel; + MPRTColorLaoDu4: TBtnEditA; + MPRTColorLaoDu3: TBtnEditA; + Label20: TLabel; + Label21: TLabel; + Label33: TLabel; + MPRTDingPoLv: TBtnEditA; + MPRTColorLaoDu1: TBtnEditA; + MPRTColorLaoDu2: TBtnEditA; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + CustomerNo: TEdit; + v1Column1: TcxGridDBColumn; + v1SOrdQty2: TcxGridDBColumn; + Label22: TLabel; + OrdQty7: TcxCurrencyEdit; + Label23: TLabel; + orddefstr7: TComboBox; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure MPRTTeBieNoteDblClick(Sender: TObject); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MPRTCodeNameBtnClick(Sender: TObject); + procedure OrdDefStr1BtnClick(Sender: TObject); + procedure OrdDefStr2BtnClick(Sender: TObject); + procedure MPRTMFBtnClick(Sender: TObject); + procedure MPRTKZBtnClick(Sender: TObject); + procedure PBFactoryBtnClick(Sender: TObject); + procedure RanFactoryBtnClick(Sender: TObject); + procedure OrdDefStr3BtnClick(Sender: TObject); + procedure OrdDefStr5BtnClick(Sender: TObject); + procedure MPRTSLBtnClick(Sender: TObject); + procedure MPRTNiuDuBtnClick(Sender: TObject); + procedure MPRTPHBtnClick(Sender: TObject); + procedure MPRTColorLaoDu3BtnClick(Sender: TObject); + procedure MPRTColorLaoDu4BtnClick(Sender: TObject); + procedure MPRTColorLaoDu1BtnClick(Sender: TObject); + procedure MPRTColorLaoDu2BtnClick(Sender: TObject); + procedure OrdDefStr4BtnClick(Sender: TObject); + procedure MPRTDingPoLvBtnClick(Sender: TObject); + procedure OrdDefStr6BtnClick(Sender: TObject); + private + procedure initGrid(); + procedure SaveData(); + { Private declarations } + public + FMainid: string; + CopyInt: integer; + { Public declarations } + end; + +var + FrmFanYangListSub: TFrmFanYangListSub; + +implementation + +uses U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment; + +{$R *.dfm} + +procedure TFrmFanYangListSub.SaveData(); +var MaxNo,ForederNo: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FMainId)='' then + begin + if GetLSNo(ADOQueryCmd,FMainId,'FY','JYOrderFY_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_MaxFYNo '); + sql.Add(' @MPRTType='+quotedstr(trim(OrdDefStr1.Text))); + open; + end; + IF trim(ADOQueryTmp.FieldByName('maxStr').AsString)='XXX' then + begin + if GetLSNo(ADOQueryCmd,ForederNo,trim(OrdDefStr1.text)+formatdateTime('yy',SGetServerDate10(ADOQueryTmp)),'JYOrderFY_Main',3,0)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ForederNo:=Trim(RightBStr(ForederNo,Length(ForederNo)-1)); + end + else + ForederNo:=trim(ADOQueryTmp.FieldByName('maxStr').AsString); + ForederNo:='P'+trim(OrdDefStr1.Text)+ForederNo+trim(CustomerNo.Text); + orderNo.Text:= ForederNo; + end; + // ForederNo:=trim(orderNo.Text); + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderFy_Main where MainId='''+Trim(FMainId)+''''); + Open; + if isempty then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=SGetServerDateTime(ADOQueryTmp); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTmp); + end; + FieldByName('OrderNo').Value:=Trim(orderNo.text); + FieldByName('MainId').Value:=Trim(FMainid); + FieldByName('Status').Value:='0'; + SSetsaveSqlNew(ADOQueryCmd,'JYOrderFy_Main',Panel1,2); + Post; + end; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'FY','JYOrderfy_Sub',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderFY_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + if isempty then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,Order_Sub,'JYOrderFY_Sub',0); + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').AsFloat; + fieldbyname('PrtPrice').Value:=Order_Sub.fieldbyname('PrtPrice').AsFloat; + fieldbyname('SOrdQty1').Value:=Order_Sub.fieldbyname('SOrdQty1').AsFloat; + fieldbyname('SOrdQty2').Value:=Order_Sub.fieldbyname('SOrdQty2').AsFloat; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.messagebox('ɹ','ʾ'); + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ'); + end; +end; + +procedure TFrmFanYangListSub.initGrid(); +begin + with AdoqueryCmd do + begin + close; + sql.clear; + sql.add('select * from JYOrderFy_Main where Mainid='''+trim(FMainid)+''' '); + open; + if not isempty then + begin + SCSHDataNew(AdoqueryCmd,Panel1,2); + OrderNO.Text:=Trim(fieldbyname('ORDERno').AsString); + orddefstr7.Text:=Trim(fieldbyname('orddefstr7').AsString); + end; + end; + with ADOQueryCmd do + begin + close; + sql.clear; + sql.add('select * from JYOrderFy_Sub where Mainid='''+trim(FMainid)+''' '); + open; + end; + SCreateCDS20(ADOQueryCmd,Order_Sub); + SInitCDSData20(ADOQueryCmd,Order_Sub); + + + IF CopyInt=99 then + begin + FMainid:=''; + OrderNo.Text:='Զ'; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + first; + end; + end; +end; + +procedure TFrmFanYangListSub.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TFrmFanYangListSub.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+Tv1.Name,Tv1,'ָʾ¼'); + ordDate.datetime:=SGetServerDateTime(ADOQueryTmp); + DLYDate.DateTime:=SGetServerDateTime(ADOQueryTmp); +{ if trim(DParameters1)<>'Ȩ' then + begin + OrdFlag1.Visible:=False; + end; } + initGrid(); +end; + +procedure TFrmFanYangListSub.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+Tv1.Name,Tv1,'ָʾ¼'); +end; + +procedure TFrmFanYangListSub.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + close; + sql.clear; + sql.Add('delete from JYOrderfy_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + execsql; + end; + Order_Sub.Delete; +end; + +procedure TFrmFanYangListSub.ToolButton1Click(Sender: TObject); +var j: integer; +begin + j:=Order_Sub.RecordCount; + j:=j+1; + CopyAddRow(Tv1,Order_Sub); + with order_Sub do + begin + edit; + fieldbyname('XHNo').AsString:=Inttostr(j); + post; + end; +end; + +procedure TFrmFanYangListSub.TBSaveClick(Sender: TObject); +begin + if trim(OrderNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(CustomerNo.Text)='' then + begin + application.MessageBox('ͻƲΪ','ʾ'); + exit; + end; + if trim(CustomerNoName.Text)='' then + begin + application.MessageBox('ͻΪ','ʾ'); + exit; + end; + if trim(OrdDefStr1.Text)='' then + begin + application.MessageBox('ҵ鲻Ϊ','ʾ'); + exit; + end; + if order_Sub.IsEmpty then + begin + application.MessageBox('ϸΪ','ʾ'); + exit; + end; + if order_Sub.Locate('PRTColor',null,[])=true then + begin + application.MessageBox('ɫΪ','ʾ'); + exit; + end; + SaveData(); +end; + +procedure TFrmFanYangListSub.MPRTCodeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCode'; + flagname:='Ʒ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTTeBieNoteDblClick(Sender: TObject); +var i: integer; +begin + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='MPRTTeBieNote'; + flagname:='ע'; + if ShowModal=1 then + begin + MPRTTeBieNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTTeBieNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TFrmFanYangListSub.CustomerNoNameBtnClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + fnote:=True; + V1Note.Caption:='ͻ'; + V1Name.Caption:='ͻ'; + if trim(DParameters1)<>'Ȩ' then ViewFlag:=true; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNo.text:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + CustomerNo.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TFrmFanYangListSub.v1PRTColorPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.v1OrderUnitPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTCodeNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YEWUZU'; + flagname:='ҵ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr2BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SHENGCHANZU'; + flagname:='';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTMFBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTMF'; + flagname:='ŷ'; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTKZBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTKZ'; + flagname:=''; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.PBFactoryBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.RanFactoryBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr3BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SEASON'; + flagname:='SEASON';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr5BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CESHIBZ'; + flagname:='Ա׼';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTSLBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTSL'; + flagname:='ˮ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTNiuDuBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTNiuDu'; + flagname:='Ť';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTPHBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTPH'; + flagname:='PHֵ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTColorLaoDu3BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTColorLaoDu3'; + flagname:='մɫζ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTColorLaoDu4BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTColorLaoDu4'; + flagname:='ˮϴζ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTColorLaoDu1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTColorLaoDu1'; + flagname:='ĥ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTColorLaoDu2BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTColorLaoDu2'; + flagname:='ʪĥ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr4BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SHAZI'; + flagname:='ɳ';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.MPRTDingPoLvBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTDingPoLv'; + flagname:='';; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmFanYangListSub.OrdDefStr6BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CYTP'; + flagname:=''; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_FileUp.dfm b/贸易管理/U_FileUp.dfm new file mode 100644 index 0000000..3139e63 --- /dev/null +++ b/贸易管理/U_FileUp.dfm @@ -0,0 +1,188 @@ +object frmFileUp: TfrmFileUp + Left = 247 + Top = 162 + Width = 660 + Height = 441 + 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 = 581 + Height = 362 + 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 = 581 + Top = 41 + Width = 63 + Height = 362 + Align = alRight + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_TradeManage.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 = 644 + 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 = 445 + Top = 9 + Width = 60 + Height = 28 + 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_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ADOQueryFile + Left = 392 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 496 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + Top = 264 + end +end diff --git a/贸易管理/U_FileUp.pas b/贸易管理/U_FileUp.pas new file mode 100644 index 0000000..1f3879b --- /dev/null +++ b/贸易管理/U_FileUp.pas @@ -0,0 +1,344 @@ +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,strutils; + +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(FTFID:string); + procedure ReadINIFile10(); + { Private declarations } + public + CYID:String; + { Public declarations } + end; + +var + frmFileUp: TfrmFileUp; + +implementation +uses + U_DataLink,U_Fun; + +{$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; + myStream: TADOBlobStream; +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 + IdFTP1.Host :=PicSvr;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end; + Panel16.Visible:=True; + Panel16.Refresh; + + try + AJpeg:=TJpegImage.Create(); + ADOQueryCmd.Connection.BeginTrans; + + for i:=0 to lstPat.Count - 1 do + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from XD_File'); + sql.Add('where CYID='''+trim(CYID)+''' '); + open; + end; + // PatFile:=Copy(ExtractFileName(lstPat[i]),(Pos('.',ExtractFileName(lstPat[i]))+1),(Length(ExtractFileName(lstPat[i]))-Pos('.',ExtractFileName(lstPat[i]))) ) ; + PatFile:=trim(Code.Text)+'-'+inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger)+'.'+Copy(ExtractFileName(lstPat[i]),(Pos('.',ExtractFileName(lstPat[i]))+1),(Length(ExtractFileName(lstPat[i]))-Pos('.',ExtractFileName(lstPat[i]))) ) ; + + AJpeg.LoadFromFile(ExtractFileName(lstPat[i])); + CreThumb(AJpeg,Image2,160, 120); + + if IdFTP1.Connected then + begin + try + IdFTP1.Put(lstPat[i], Trim('\YP')+'\'+Trim(PatFile)); + + 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('BQMT'); + Post; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID='''+Trim(MaxNo)+''''); + open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty 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(MaxNo); + FieldByName('WBID').Value:=Trim(CYID); + FieldByName('TFType').Value:='Ʒ'; + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; + except + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set TPFlag=1 where CYID='''+Trim(CYID)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + AJpeg.Free; + except + AJpeg.Free; + 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(FTFID:string); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FConNo,MaxNo:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + 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(FTFID); + FieldByName('WBID').Value:=Trim(CYID); + FieldByName('TFType').Value:='Ʒ'; + AJpeg.Assign(Image2.Picture.Graphic); + 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 TFID='''+Trim(ADOQueryFile.fieldbyname('XFID').AsString)+''''); + 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=''BQMT'''); + Open; + end; +end; + +end. diff --git a/贸易管理/U_FjList_RZ.dfm b/贸易管理/U_FjList_RZ.dfm new file mode 100644 index 0000000..a50c743 --- /dev/null +++ b/贸易管理/U_FjList_RZ.dfm @@ -0,0 +1,183 @@ +object frmFjList_RZ: TfrmFjList_RZ + Left = 177 + Top = 159 + Width = 796 + Height = 501 + BorderIcons = [biSystemMenu, biMinimize] + Caption = #38468#20214#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ListView1: TListView + Left = 40 + Top = 20 + Width = 429 + Height = 77 + Columns = <> + TabOrder = 0 + OnDblClick = ListView1DblClick + end + object Panel1: TPanel + Left = 629 + Top = 0 + Width = 151 + Height = 463 + Align = alRight + TabOrder = 1 + object FileName: TcxButton + Left = 30 + Top = 60 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152 + TabOrder = 0 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 30 + Top = 96 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #21024#38500 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 30 + Top = 132 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20445#23384 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton3: TcxButton + Left = 30 + Top = 172 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20851#38381 + TabOrder = 3 + Visible = False + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + end + object Panel2: TPanel + Left = 176 + Top = 140 + Width = 193 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel2' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnDblClick = Panel2DblClick + end + object cxGrid1: TcxGrid + Left = 8 + Top = 84 + Width = 593 + Height = 345 + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object v1Column1: TcxGridDBColumn + Caption = #25991#20214#21517#31216 + DataBinding.FieldName = 'FileName' + HeaderAlignmentHorz = taCenter + Width = 146 + end + object v1Column4: TcxGridDBColumn + Caption = #25991#20214#20462#25913#26102#38388 + DataBinding.FieldName = 'TFdate' + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v1Column2: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #19978#20256#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 140 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryTmp: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 520 + Top = 28 + end + object ADOQueryCmd: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 568 + Top = 32 + end + object ImageList1: TImageList + Left = 536 + Top = 228 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 500 + Top = 198 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 532 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ADOQueryTmp + Left = 548 + Top = 140 + end +end diff --git a/贸易管理/U_FjList_RZ.pas b/贸易管理/U_FjList_RZ.pas new file mode 100644 index 0000000..190a911 --- /dev/null +++ b/贸易管理/U_FjList_RZ.pas @@ -0,0 +1,443 @@ +unit U_FjList_RZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, + cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid; + +type + TfrmFjList_RZ = class(TForm) + ListView1: TListView; + Panel1: TPanel; + FileName: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + ImageList1: TImageList; + Panel2: TPanel; + IdFTP1: TIdFTP; + ADOConnection1: TADOConnection; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + DataSource1: TDataSource; + v1Column4: TcxGridDBColumn; + procedure cxButton3Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ListView1DblClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Panel2DblClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + procedure InitData(); + { Private declarations } + public + fkeyNO:string; + fType:string; + fId:integer; + fstatus:integer; + // fmanage:string; + + { Public declarations } + end; + +var +frmFjList_RZ: TfrmFjList_RZ; + +implementation + uses + U_DataLink,U_Fun10,U_CompressionFun; +{$R *.dfm} +procedure TfrmFjList_RZ.InitData(); +var + ListItem: TListItem; + Flag: Cardinal; + info: SHFILEINFOA; + Icon: TIcon; +begin + ListView1.Items.Clear; + try + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + open; + { if not IsEmpty then + begin + while not eof do + begin + with ListView1 do + begin + LargeImages := ImageList1; + Icon := TIcon.Create; + ListItem := Items.Add; + Listitem.Caption := trim(fieldbyname('fileName').AsString); + // Listitem.SubItems.Add(OpenDiaLog.FileName); + Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); + SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag); + Icon.Handle := info.hIcon; + ImageList1.AddIcon(Icon); + ListItem.ImageIndex := ImageList1.Count - 1; + end; + next; + end; + end; } + end; + except + end; +end; + +procedure TfrmFjList_RZ.cxButton3Click(Sender: TObject); +begin + ADOQueryTmp.Close; + ADOQuerycmd.Close; + ListView1.Items.Free; + ModalResult:=-1; +end; + +procedure TfrmFjList_RZ.FormDestroy(Sender: TObject); +begin + frmFjList_RZ:=nil; +end; + +procedure TfrmFjList_RZ.FileNameClick(Sender: TObject); +var + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; + maxNo:string; +// myStream: TADOBlobStream; + FJStream : TMemoryStream; + mfileSize:integer; + mCreationTime:TdateTime; + mWriteTime:TdateTime; +begin + + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + + + { with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select TFId from TP_File '); + sql.Add('where WBID<>'+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + IF not adoqueryCmd.IsEmpty then + begin + application.MessageBox('˸Ѵڣ޸ļϴ','ʾϢ',MB_ICONERROR); + exit; + end; + end; + } + + Panel2.Caption:='ϴݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + + if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + //ȡļϢ + GetFileInfo(fFilePath,mfileSize,mCreationTime,mWriteTime); + + adoqueryCmd.Connection.BeginTrans; + + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where TFID='+quotedstr(trim(maxNO))); + // sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + // sql.Add('and TFType='+quotedstr(trim(fType))); + // sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + try + FJStream:=TMemoryStream.Create; + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from TP_File '); + sql.Add('where TFID='+quotedstr(trim(maxNO))); + // sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + // sql.Add('and TFType='+quotedstr(trim(fType))); + // sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + append; + fieldbyname('TFID').Value:=trim(maxNO); + fieldbyname('WBID').Value:=trim(fkeyNO); + fieldbyname('TFType').Value:=trim(fType); + fieldbyname('Filler').Value:=trim(DName); + fieldbyname('FileName').Value:=trim(fFileName); + fieldbyname('TFDate').Value:=mWriteTime; + FJStream.LoadFromFile(fFilePath); + CompressionStream(FJStream); + tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream); + post; + end; + + { if fFilePath <> '' then + begin + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName)); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; + } + Panel2.Visible:=false; + initdata(); + finally + FJStream.Free; + end; + + end; + adoqueryCmd.Connection.CommitTrans; + except + adoqueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFjList_RZ.FormCreate(Sender: TObject); +begin + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + cxGrid1.Align:=alclient; + fstatus:=0; +end; + +procedure TfrmFjList_RZ.FormShow(Sender: TObject); +begin + IF fstatus=0 then Panel1.Visible:=true + else Panel1.Visible:=false; + initdata(); +end; + +procedure TfrmFjList_RZ.ListView1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; +begin + if ListView1.Items.Count<1 THEN EXIT; + + if listView1.SelCount<1 then exit; + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=ListView1.Selected.Caption; + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + +end; + +procedure TfrmFjList_RZ.cxButton1Click(Sender: TObject); +var + fFileName:string; + fFilePath:string; +begin + // if listView1.SelCount<1 then exit; + + IF ADOQueryTmp.IsEmpty then exit; + + try + // fFileName:=ListView1.Selected.Caption; + // ADOQueryTmp.Locate('fileName',fFileName,[]); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where TFID='+quotedstr(trim(ADOQueryTmp.fieldbyname('TFID').AsString))); + // sql.Add('and TFType='+quotedstr(trim(fType))); + // sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + initData(); + + except + end; + +end; + +procedure TfrmFjList_RZ.cxButton2Click(Sender: TObject); +var + SaveDialog: TSaveDialog; + fFileName:string; + fFilePath:string; + ff: TADOBlobStream; + FJStream : TMemoryStream; +begin + if adoqueryTmp.IsEmpty then exit; + + try + + fFileName:=adoqueryTmp.fieldbyname('FileName').AsString; + + SaveDialog := TSaveDialog.Create(Self); + + SaveDialog.FileName:=fFileName; + if SaveDialog.Execute then + begin + Panel2.Caption:='ڱݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + fFilePath:=SaveDialog.FileName; + + try + ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead); + + fjStream:= TMemoryStream.Create ; + ff.SaveToStream(fjStream); + UnCompressionStream(fjStream); + fjStream.SaveToFile(fFilePath); + // ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + finally + fjStream.free; + ff.Free; + end; + + + Panel2.Visible:=false; + // if IdFTP1.Connected then IdFTP1.Quit; + end; + except + Panel2.Visible:=false; + end; +end; + +procedure TfrmFjList_RZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if fId=10 then Action:=cafree + else + Action:=cahide; +end; + +procedure TfrmFjList_RZ.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmFjList_RZ.Tv1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; + ff: TADOBlobStream; + FJStream : TMemoryStream; +begin + + IF adoqueryTmp.IsEmpty then exit; + + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=adoqueryTmp.fieldbyname('FileName').AsString; + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead); + + fjStream:= TMemoryStream.Create ; + ff.SaveToStream(fjStream); + UnCompressionStream(fjStream); + fjStream.SaveToFile(sFieldName); + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + finally + fjStream.free; + ff.Free; + end; + + + +end; + +end. diff --git a/贸易管理/U_GetDllForm.pas b/贸易管理/U_GetDllForm.pas new file mode 100644 index 0000000..2c0edec --- /dev/null +++ b/贸易管理/U_GetDllForm.pas @@ -0,0 +1,1086 @@ + +unit U_GetDllForm; +interface +uses + Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,IniFiles,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; +Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean; + +implementation +uses + U_DataLink,U_Fun,U_iniParam,U_MJManageNewFDNew,U_ProductOrderList,U_ProductOrderAnPai,U_SetBanZu + ,U_BangAdd,U_MJEdit,U_JYOrderCDOne,U_JYOrderCDMore,U_CpCkSaoMNewSel,U_CKProductBCPInList + ,U_CKProductBCPOutList,U_BanCpHCSaoM,U_CKProductBCPHCList,U_CKProductBCPKCList, + U_CKProductBCPKCHZList,U_CpRkSaoMNew,U_ClothContractList,U_ClothContractListDH,U_ClothContractListLL, + U_ClothContractKCList,U_ContractList,U_ProductOrderNewList,U_ClothContractListWJG,U_ClothPDInfoList, + U_OrderJDList,U_ProductOrderAnPaiGQX,U_ClothHCList,U_ContractListNX,U_ClothContractListSX,U_ClothContractListDHSX + ,U_ClothContractListLLSX,U_ClothContractListHZ,U_ProductOrderLBNameSet,U_ClothContractListDHSXQJG,U_ProductOrderNewList_JD, + U_ProductOrderNewList_CY,U_HCList,U_OrderInPut_HYWT,U_ModulePromptList,U_ProductOrderNewList_FB,U_FanYangList,U_FanYangListHZ, + U_CKProductRKHZList,U_CKProductCKHZList,U_CKJYList,U_ProductOrderLBNameSetFZ,U_Contract_Main; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=GName; + DCode:=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; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + + //server:='192.168.1.99'; //192.168.1.113 + //dtbase:='powertexdata'; +// server:='.'; + server:='47.101.61.158,7781'; + dtbase:='leixiaofudata'; +// dtbase:='jianweidata'; + user:='haoyuesa'; + pswd:='rightsoft@123'; +// pswd:='numlock'; + DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID=' + +user+';Initial Catalog='+dtbase+';Data Source='+server; + IF trim(DataBaseStr)<>'' then + DConString:=DataBaseStr; + DParameters1:='Ȩ'; + //DCode:='002'; +// DName:='ADMIN'; + //DParameters2:=''; + // DParameters2:='Ʒ'; + // database:='Ȩ'; + if not ConnData() then + begin + result:=0; + exit; + end; + if IsINIFile() then + ReadINIFile() + else + WriteINIFile ; + GetsysParam('',''); + // 崰 ״̬ + if WinStyle=0 then + begin + mstyle := fsMDIChild ; + mstate := wsMaximized ; + mborderstyle := bsSizeable; + end + else + begin + mstyle := fsNormal ; + mstate := wsNormal ; + mborderstyle := bsSizeable; + end; + //////////////////// + { GetSWLDZ('192.168.1.246'); + if IpCall<>0 then + begin + Result:=0; + Application.MessageBox('粻ͨ','ʾ',0); + Exit; + end; + if Trim(IpWLDZStr)<>'D4:AE:52:BE:9F:02' then + begin + Result:=0; + Application.MessageBox('ݿʧܣ','ʾ',0); + Exit; + end; } + ///////////////////// + //ģ鴰 + case FormId of + 0: //ͬ() + begin + if frmContractList=nil then + begin + frmContractList:= TfrmContractList.Create(application.MainForm); + with frmContractList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmContractList.BringToFront; + // + mNewHandle:=frmContractList.Handle; + + end ; + 1: //ͬ() + begin + if frmContractListNX=nil then + begin + frmContractListNX:= TfrmContractListNX.Create(application.MainForm); + with frmContractListNX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmContractListNX.BringToFront; + // + mNewHandle:=frmContractListNX.Handle; + end ; + 201: //ָʾ + begin + if frmProductOrderNewList=nil then + begin + frmProductOrderNewList:= TfrmProductOrderNewList.Create(application.MainForm); + with frmProductOrderNewList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList.BringToFront; + // + mNewHandle:=frmProductOrderNewList.Handle; + + end; + 2: // Ʒ + begin + if frmMJManageNewFDNewSF=nil then + begin + frmMJManageNewFDNewSF:= TfrmMJManageNewFDNewSF.Create(application.MainForm); + with frmMJManageNewFDNewSF do + begin + fmanage:=Trim(database); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMJManageNewFDNewSF.BringToFront; + // + mNewHandle:=frmMJManageNewFDNewSF.Handle; + end ; + + 3: //ɹͬ + begin + if frmClothContractListHZ=nil then + begin + frmClothContractListHZ:= TfrmClothContractListHZ.Create(application.MainForm); + with frmClothContractListHZ do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListHZ.BringToFront; + // + mNewHandle:=frmClothContractListHZ.Handle; + + end ; + + 4: //ɴ + begin + if frmClothContractListDHSX=nil then + begin + frmClothContractListDHSX:= TfrmClothContractListDHSX.Create(application.MainForm); + with frmClothContractListDHSX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListDHSX.BringToFront; + // + mNewHandle:=frmClothContractListDHSX.Handle; + + end ; + 41: //Ⱦɴ + begin + if frmClothContractListDHSXQJG=nil then + begin + frmClothContractListDHSXQJG:= TfrmClothContractListDHSXQJG.Create(application.MainForm); + with frmClothContractListDHSXQJG do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListDHSXQJG.BringToFront; + // + mNewHandle:=frmClothContractListDHSXQJG.Handle; + end ; + 5: //ɴ֯Ʒ + begin + if frmClothContractListLLSX=nil then + begin + frmClothContractListLLSX:= TfrmClothContractListLLSX.Create(application.MainForm); + with frmClothContractListLLSX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListLLSX.BringToFront; + // + mNewHandle:=frmClothContractListLLSX.Handle; + end ; + + 61: //ʾ + begin + if frmModulePromptList=nil then + begin + frmModulePromptList:= TfrmModulePromptList.Create(application.MainForm); + with frmModulePromptList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmModulePromptList.BringToFront; + // + mNewHandle:=frmModulePromptList.Handle; + end ; + + 6: //ɹ + begin + if frmClothContractList=nil then + begin + frmClothContractList:= TfrmClothContractList.Create(application.MainForm); + with frmClothContractList do + begin + caption:=Trim(Title); + FType:=trim(database); + // FType:=''; + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList.BringToFront; + // + mNewHandle:=frmClothContractList.Handle; + end ; + 611: //ɹͬ + begin + if frmContract_Main=nil then + begin + frmContract_Main:= TfrmContract_Main.Create(application.MainForm); + with frmContract_Main do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmContract_Main.BringToFront; + // + mNewHandle:=frmContract_Main.Handle; + end ; + + 7: // + begin + if frmClothContractListDH=nil then + begin + frmClothContractListDH:= TfrmClothContractListDH.Create(application.MainForm); + with frmClothContractListDH do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListDH.BringToFront; + // + mNewHandle:=frmClothContractListDH.Handle; + + end ; + + 8: // + begin + if frmClothContractListLL=nil then + begin + frmClothContractListLL:= TfrmClothContractListLL.Create(application.MainForm); + with frmClothContractListLL do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListLL.BringToFront; + // + mNewHandle:=frmClothContractListLL.Handle; + + end ; + 9: //ӹ + begin + if frmClothContractListWJG=nil then + begin + frmClothContractListWJG:= TfrmClothContractListWJG.Create(application.MainForm); + with frmClothContractListWJG do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractListWJG.BringToFront; + // + mNewHandle:=frmClothContractListWJG.Handle; + + end ; + 10: //زֹ + begin + if frmProductOrderAnPai=nil then + begin + frmProductOrderAnPai:= TfrmProductOrderAnPai.Create(application.MainForm); + with frmProductOrderAnPai do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderAnPai.BringToFront; + // + mNewHandle:=frmProductOrderAnPai.Handle; + + end ; + + 11: //ǩƤ + begin + if frmProductOrderLBNameSet=nil then + begin + frmProductOrderLBNameSet:= TfrmProductOrderLBNameSet.Create(application.MainForm); + with frmProductOrderLBNameSet do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderLBNameSet.BringToFront; + // + mNewHandle:=frmProductOrderLBNameSet.Handle; + + end ; + 12: //ƥ + begin + if frmMJEdit=nil then + begin + frmMJEdit:= TfrmMJEdit.Create(application.MainForm); + with frmMJEdit do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMJEdit.BringToFront; + // + mNewHandle:=frmMJEdit.Handle; + + end ; + 13: //ɨ + begin + if frmCpRkSaoMNew=nil then + begin + frmCpRkSaoMNew:= TfrmCpRkSaoMNew.Create(application.MainForm); + with frmCpRkSaoMNew do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCpRkSaoMNew.BringToFront; + // + mNewHandle:=frmCpRkSaoMNew.Handle; + + end ; + 14: //Ʒ + begin + if frmCpCkSaoMNewSel=nil then + begin + frmCpCkSaoMNewSel:= TfrmCpCkSaoMNewSel.Create(application.MainForm); + with frmCpCkSaoMNewSel do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCpCkSaoMNewSel.BringToFront; + // + mNewHandle:=frmCpCkSaoMNewSel.Handle; + + end ; + 15: //Ʒб + begin + if frmCKProductBCPInList=nil then + begin + frmCKProductBCPInList:= TfrmCKProductBCPInList.Create(application.MainForm); + with frmCKProductBCPInList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPInList.BringToFront; + // + mNewHandle:=frmCKProductBCPInList.Handle; + end ; + 16: //Ʒб + begin + if frmCKProductBCPOutList=nil then + begin + frmCKProductBCPOutList:= TfrmCKProductBCPOutList.Create(application.MainForm); + with frmCKProductBCPOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPOutList.BringToFront; + // + mNewHandle:=frmCKProductBCPOutList.Handle; + + end ; + 17: //б + begin + if frmCKProductBCPKCList=nil then + begin + frmCKProductBCPKCList:= TfrmCKProductBCPKCList.Create(application.MainForm); + with frmCKProductBCPKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPKCList.BringToFront; + // + mNewHandle:=frmCKProductBCPKCList.Handle; + + end ; + 18: //б + begin + if frmCKProductBCPKCHZList=nil then + begin + frmCKProductBCPKCHZList:= TfrmCKProductBCPKCHZList.Create(application.MainForm); + with frmCKProductBCPKCHZList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPKCHZList.BringToFront; + // + mNewHandle:=frmCKProductBCPKCHZList.Handle; + + end ; + 19: //鱨 + begin + if frmJYOrderCDOne=nil then + begin + frmJYOrderCDOne:= TfrmJYOrderCDOne.Create(application.MainForm); + with frmJYOrderCDOne do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmJYOrderCDOne.BringToFront; + // + mNewHandle:=frmJYOrderCDOne.Handle; + + end ; + 20: // + begin + if frmJYOrderCDMore=nil then + begin + frmJYOrderCDMore:= TfrmJYOrderCDMore.Create(application.MainForm); + with frmJYOrderCDMore do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmJYOrderCDMore.BringToFront; + // + mNewHandle:=frmJYOrderCDMore.Handle; + + end ; + 21: //첼 + begin + if frmClothPDInfoList=nil then + begin + frmClothPDInfoList:= TfrmClothPDInfoList.Create(application.MainForm); + with frmClothPDInfoList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothPDInfoList.BringToFront; + // + mNewHandle:=frmClothPDInfoList.Handle; + + end ; + 22: //زֲѯ + begin + if frmClothHCList=nil then + begin + frmClothHCList:= TfrmClothHCList.Create(application.MainForm); + with frmClothHCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothHCList.BringToFront; + // + mNewHandle:=frmClothHCList.Handle; + + end ; + + 23: //ָʾȲѯ + begin + if frmProductOrderNewList_JD=nil then + begin + frmProductOrderNewList_JD:= TfrmProductOrderNewList_JD.Create(application.MainForm); + with frmProductOrderNewList_JD do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_JD.BringToFront; + // + mNewHandle:=frmProductOrderNewList_JD.Handle; + + end ; + + + 24: //ܲѯ + begin + if frmClothContractKCList=nil then + begin + frmClothContractKCList:= TfrmClothContractKCList.Create(application.MainForm); + with frmClothContractKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractKCList.BringToFront; + // + mNewHandle:=frmClothContractKCList.Handle; + + end ; + + 25: //˼ƻ + begin + if frmProductOrderNewList_CY=nil then + begin + frmProductOrderNewList_CY:= TfrmProductOrderNewList_CY.Create(application.MainForm); + with frmProductOrderNewList_CY do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_CY.BringToFront; + // + mNewHandle:=frmProductOrderNewList_CY.Handle; + end ; + + 26: //ί + begin + if frmorderInput_HYWT=nil then + begin + frmorderInput_HYWT:=TfrmorderInput_HYWT.create(application.MainForm); + with frmorderInput_HYWT do + begin + caption:=Trim(Title); + FormStyle:=mstyle; + windowState:=mstate; + BorderStyle:=mborderstyle; + end; + end + else + frmorderInput_HYWT.BringToFront; + mNewHandle:=frmorderInput_HYWT.Handle; + end ; + + 27: //ƱϢ + begin + if frmProductOrderNewList_FB=nil then + begin + frmProductOrderNewList_FB:= TfrmProductOrderNewList_FB.Create(application.MainForm); + with frmProductOrderNewList_FB do + begin + caption:=Trim(Title); + ftype:=''; + // ftype:=trim(DataBase); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_FB.BringToFront; + // + mNewHandle:=frmProductOrderNewList_FB.Handle; + end ; + + 28: //ָʾ + begin + if FrmFanYangList=nil then + begin + FrmFanYangList:= TFrmFanYangList.Create(application.MainForm); + with FrmFanYangList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + FrmFanYangList.BringToFront; + // + mNewHandle:=FrmFanYangList.Handle; + end ; + + 29: //ָʾ + begin + if FrmFanYangListHZ=nil then + begin + FrmFanYangListHZ:= TFrmFanYangListHZ.Create(application.MainForm); + with FrmFanYangListHZ do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + FrmFanYangListHZ.BringToFront; + // + mNewHandle:=FrmFanYangListHZ.Handle; + end ; + 30: // + begin + if frmCKProductRKHZList=nil then + begin + frmCKProductRKHZList:= TfrmCKProductRKHZList.Create(application.MainForm); + with frmCKProductRKHZList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductRKHZList.BringToFront; + // + mNewHandle:=frmCKProductRKHZList.Handle; + end ; + 31: // + begin + if frmCKProductCKHZList=nil then + begin + frmCKProductCKHZList:= TfrmCKProductCKHZList.Create(application.MainForm); + with frmCKProductCKHZList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductCKHZList.BringToFront; + // + mNewHandle:=frmCKProductCKHZList.Handle; + end ; + 32: //ͳ + begin + if frmCKJYList=nil then + begin + frmCKJYList:= TfrmCKJYList.Create(application.MainForm); + with frmCKJYList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKJYList.BringToFront; + // + mNewHandle:=frmCKJYList.Handle; + end ; + 33: //ǩƤ + begin + if frmProductOrderLBNameSetFZ=nil then + begin + frmProductOrderLBNameSetFZ:= TfrmProductOrderLBNameSetFZ.Create(application.MainForm); + with frmProductOrderLBNameSetFZ do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderLBNameSetFZ.BringToFront; + // + mNewHandle:=frmProductOrderLBNameSetFZ.Handle; + end ; + + { + + 101: //زֹ (Ȩ) + begin + if frmProductOrderAnPaiGQX=nil then + begin + frmProductOrderAnPaiGQX:= TfrmProductOrderAnPaiGQX.Create(application.MainForm); + with frmProductOrderAnPaiGQX do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderAnPaiGQX.BringToFront; + // + mNewHandle:=frmProductOrderAnPaiGQX.Handle; + + end ; + + + 3: // + begin + if frmSetBanZu=nil then + begin + frmSetBanZu:= TfrmSetBanZu.Create(application.MainForm); + with frmSetBanZu do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSetBanZu.BringToFront; + // + mNewHandle:=frmSetBanZu.Handle; + + end ; + + + + + 8: //Ʒز + begin + if frmBanCpHCSaoM=nil then + begin + frmBanCpHCSaoM:= TfrmBanCpHCSaoM.Create(application.MainForm); + with frmBanCpHCSaoM do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmBanCpHCSaoM.BringToFront; + // + mNewHandle:=frmBanCpHCSaoM.Handle; + + end ; + 9: //Ʒб + begin + if frmCKProductBCPHCList=nil then + begin + frmCKProductBCPHCList:= TfrmCKProductBCPHCList.Create(application.MainForm); + with frmCKProductBCPHCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPHCList.BringToFront; + // + mNewHandle:=frmCKProductBCPHCList.Handle; + + end ; + + 22: //Ȳѯ + begin + if frmOrderJDList=nil then + begin + frmOrderJDList:= TfrmOrderJDList.Create(application.MainForm); + with frmOrderJDList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmOrderJDList.BringToFront; + // + mNewHandle:=frmOrderJDList.Handle; + + end ; } + + + end ; // end case + + Result:= mnewHandle; +// NewDllApp:=Application ; +end; +Function GetsysParam(muserId:pchar;fparam1:pchar):Boolean; +begin + result:=true; + ////////////////////////////// + shortDateFormat:='yyyy-MM-dd'; + // + with DataLink_TradeManage.AdoDataLink do + begin + close; + sql.Clear; + sql.Add('select getDate()as dt'); + open; + DServerDate:=fieldByName('dt').AsDatetime; + end; + result:=true; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +var + IniFile: TIniFile; +begin + try + IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI'); + PicSvr := IniFile.ReadString('SERVER', 'ַ','127.0.0.1'); + UserDataFlag:=IniFile.ReadString('SERVER', 'ַ','-1'); + finally + IniFile.Free; + end; + if not Assigned(DataLink_TradeManage) then + DataLink_TradeManage:=TDataLink_TradeManage.Create(Application); + Try + with DataLink_TradeManage.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_TradeManage.Free; + application := NewDllApp; + dxUnitsLoader.Finalize; + +//INITIALIZATION +// OldDllApp:= Application; +// +//FINALIZATION +// DataLink_TradeManage.Free; +// Application := OldDllApp; + +end. + diff --git a/贸易管理/U_GetPGJBInList.dfm b/贸易管理/U_GetPGJBInList.dfm new file mode 100644 index 0000000..b91fa9a --- /dev/null +++ b/贸易管理/U_GetPGJBInList.dfm @@ -0,0 +1,400 @@ +object frmGetPGJBInList: TfrmGetPGJBInList + Left = 67 + Top = 20 + Width = 765 + Height = 623 + Caption = #24211#23384#21015#34920 + 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 = 757 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBFind: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 757 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 40 + Top = 15 + Width = 48 + Height = 12 + Caption = #29289#26009#21517#31216 + end + object Label4: TLabel + Left = 216 + Top = 15 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 376 + Top = 15 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object YCLName: TEdit + Tag = 2 + Left = 89 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = YCLNameChange + end + object YCLSpec: TEdit + Tag = 2 + Left = 254 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = YCLNameChange + end + object GYSName: TEdit + Tag = 2 + Left = 425 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = YCLNameChange + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 313 + Width = 757 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGrid1: TcxGrid + Left = 24 + Top = 80 + Width = 697 + Height = 217 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'YCLCode' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 321 + Width = 757 + Height = 265 + 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 = 'DefStr1' + end + item + Format = 'DefStr2' + Column = cxGridDBColumn15 + end + item + Format = 'RollUnit' + Column = cxGridDBColumn17 + end + item + Format = 'YCLCode' + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn16 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 190 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Width = 171 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 144 + end + object cxGridDBColumn16: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 256 + Top = 232 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 360 + Top = 232 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 232 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 432 + Top = 232 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 288 + Top = 232 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 680 + Top = 512 + end + object ADOQuery2: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 512 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 232 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 512 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 512 + Top = 584 + end +end diff --git a/贸易管理/U_GetPGJBInList.pas b/贸易管理/U_GetPGJBInList.pas new file mode 100644 index 0000000..82f8843 --- /dev/null +++ b/贸易管理/U_GetPGJBInList.pas @@ -0,0 +1,268 @@ +unit U_GetPGJBInList; + +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, cxSplitter; + +type + TfrmGetPGJBInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + ToolButton1: TToolButton; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ADOQuery2: TADOQuery; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + YCLName: TEdit; + YCLSpec: TEdit; + GYSName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_ChnName: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid3: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + 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 PlanNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure P_ChnNameChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure YCLNameChange(Sender: TObject); + private + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmGetPGJBInList: TfrmGetPGJBInList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmGetPGJBInList.FormDestroy(Sender: TObject); +begin + frmGetPGJBInList:=nil; +end; + +procedure TfrmGetPGJBInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGetPGJBInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGetPGJBInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'ԭϲֿ'); + WriteCxGrid('бѡ',Tv2,'ԭϲֿ'); +end; + +procedure TfrmGetPGJBInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select YCLName=(select ZdyName from KH_Zdy KK where KK.ZdyNo=A.YCLCode), '); + sql.Add(' A.*,GYSName=(select ZdyName from KH_ZDY B where A.GYS=B.ZdyNo) '); + sql.Add(' from CK_YCL_KC A where A.KCQty>0'); + sql.Add(' and A.CKName=''ԭϲֿ'' '); + Open; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGetPGJBInList.InitGrid10(); +begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select YCLName=(select ZdyName from KH_Zdy KK where KK.ZdyNo=A.YCLCode), '); + sql.Add(' A.*,GYSName=(select ZdyName from KH_ZDY B where A.GYS=B.ZdyNo) '); + sql.Add('from CK_YCL_KC A where 1<>1'); + Open; + SCreateCDS20(ADOQuery2,ClientDataSet2); + SInitCDSData20(ADOQuery2,ClientDataSet2); + end; + finally + ADOQuery2.EnableControls; + end; +end; + +procedure TfrmGetPGJBInList.InitForm(); +begin + ReadCxGrid('б',Tv1,'ԭϲֿ'); + ReadCxGrid('бѡ',Tv2,'ԭϲֿ'); + InitGrid(); + InitGrid10(); +end; + +procedure TfrmGetPGJBInList.TBFindClick(Sender: TObject); +begin + if not ADOQueryMain.Active then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +function TfrmGetPGJBInList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGetPGJBInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmGetPGJBInList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGetPGJBInList.PlanNoChange(Sender: TObject); +begin + if ADOQueryMain.Active then + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmGetPGJBInList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGetPGJBInList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + ModalResult:=-1 + else + ModalResult:=1; +end; + +procedure TfrmGetPGJBInList.P_ChnNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmGetPGJBInList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + if ClientDataSet1.IsEmpty then exit; + ClientDataSet2.Append; + for i:=0 to ClientDataSet2.FieldCount-1 do + begin + ClientDataSet2.Fields[i].Value:=ClientDataSet1.Fields[i].Value; + end; + ClientDataSet2.Post; + ClientDataSet1.Delete; +end; + +procedure TfrmGetPGJBInList.TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + if ClientDataSet2.IsEmpty then exit; + ClientDataSet1.Append; + for i:=0 to ClientDataSet1.FieldCount-1 do + begin + ClientDataSet1.Fields[i].Value:=ClientDataSet2.Fields[i].Value; + end; + ClientDataSet1.Post; + ClientDataSet2.Delete; +end; + +procedure TfrmGetPGJBInList.YCLNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/贸易管理/U_GetPGJBOneTwoInList.dfm b/贸易管理/U_GetPGJBOneTwoInList.dfm new file mode 100644 index 0000000..c62958a --- /dev/null +++ b/贸易管理/U_GetPGJBOneTwoInList.dfm @@ -0,0 +1,412 @@ +object frmGetPGJBOneTwoInList: TfrmGetPGJBOneTwoInList + Left = 238 + Top = 101 + Width = 765 + Height = 623 + Caption = #24211#23384#21015#34920 + 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 = 757 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBFind: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 757 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 40 + Top = 15 + Width = 48 + Height = 12 + Caption = #29289#26009#21517#31216 + end + object Label4: TLabel + Left = 216 + Top = 15 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 376 + Top = 15 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object YCLName: TEdit + Tag = 2 + Left = 89 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = YCLNameChange + end + object YCLSpec: TEdit + Tag = 2 + Left = 254 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = YCLNameChange + end + object GYSName: TEdit + Tag = 2 + Left = 425 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = YCLNameChange + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 313 + Width = 757 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGrid1: TcxGrid + Left = 8 + Top = 80 + Width = 713 + Height = 217 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'YCLCode' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object v1Column1: TcxGridDBColumn + Caption = #20179#24211 + DataBinding.FieldName = 'CKName' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 321 + Width = 757 + Height = 265 + 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 = 'DefStr1' + end + item + Format = 'DefStr2' + Column = cxGridDBColumn15 + end + item + Format = 'RollUnit' + Column = cxGridDBColumn17 + end + item + Format = 'YCLCode' + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn16 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object V2Column1: TcxGridDBColumn + Caption = #20179#24211 + DataBinding.FieldName = 'CKName' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 190 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Width = 171 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 144 + end + object cxGridDBColumn16: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 256 + Top = 232 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 360 + Top = 232 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 232 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 432 + Top = 232 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 288 + Top = 232 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 680 + Top = 512 + end + object ADOQuery2: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 512 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 232 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 512 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 512 + Top = 584 + end +end diff --git a/贸易管理/U_GetPGJBOneTwoInList.pas b/贸易管理/U_GetPGJBOneTwoInList.pas new file mode 100644 index 0000000..2031df2 --- /dev/null +++ b/贸易管理/U_GetPGJBOneTwoInList.pas @@ -0,0 +1,270 @@ +unit U_GetPGJBOneTwoInList; + +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, cxSplitter; + +type + TfrmGetPGJBOneTwoInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + ToolButton1: TToolButton; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ADOQuery2: TADOQuery; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + YCLName: TEdit; + YCLSpec: TEdit; + GYSName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_ChnName: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid3: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v1Column1: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure PlanNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure P_ChnNameChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure YCLNameChange(Sender: TObject); + private + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmGetPGJBOneTwoInList: TfrmGetPGJBOneTwoInList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmGetPGJBOneTwoInList.FormDestroy(Sender: TObject); +begin + frmGetPGJBOneTwoInList:=nil; +end; + +procedure TfrmGetPGJBOneTwoInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGetPGJBOneTwoInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGetPGJBOneTwoInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'ԭϲֿ'); + WriteCxGrid('бѡ',Tv2,'ԭϲֿ'); +end; + +procedure TfrmGetPGJBOneTwoInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select YCLName=(select ZdyName from KH_Zdy KK where KK.ZdyNo=A.YCLCode), '); + sql.Add(' A.*,GYSName=(select ZdyName from KH_ZDY B where A.GYS=B.ZdyNo) '); + sql.Add(' from CK_YCL_KC A where A.KCQty>0'); + sql.Add(' and A.CKName in(''ԭϲֿ'',''ԭ϶'') '); + Open; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGetPGJBOneTwoInList.InitGrid10(); +begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select YCLName=(select ZdyName from KH_Zdy KK where KK.ZdyNo=A.YCLCode), '); + sql.Add(' A.*,GYSName=(select ZdyName from KH_ZDY B where A.GYS=B.ZdyNo) '); + sql.Add('from CK_YCL_KC A where 1<>1'); + Open; + SCreateCDS20(ADOQuery2,ClientDataSet2); + SInitCDSData20(ADOQuery2,ClientDataSet2); + end; + finally + ADOQuery2.EnableControls; + end; +end; + +procedure TfrmGetPGJBOneTwoInList.InitForm(); +begin + ReadCxGrid('б',Tv1,'ԭϲֿ'); + ReadCxGrid('бѡ',Tv2,'ԭϲֿ'); + InitGrid(); + InitGrid10(); +end; + +procedure TfrmGetPGJBOneTwoInList.TBFindClick(Sender: TObject); +begin + if not ADOQueryMain.Active then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +function TfrmGetPGJBOneTwoInList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGetPGJBOneTwoInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmGetPGJBOneTwoInList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGetPGJBOneTwoInList.PlanNoChange(Sender: TObject); +begin + if ADOQueryMain.Active then + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmGetPGJBOneTwoInList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGetPGJBOneTwoInList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + ModalResult:=-1 + else + ModalResult:=1; +end; + +procedure TfrmGetPGJBOneTwoInList.P_ChnNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmGetPGJBOneTwoInList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + if ClientDataSet1.IsEmpty then exit; + ClientDataSet2.Append; + for i:=0 to ClientDataSet2.FieldCount-1 do + begin + ClientDataSet2.Fields[i].Value:=ClientDataSet1.Fields[i].Value; + end; + ClientDataSet2.Post; + ClientDataSet1.Delete; +end; + +procedure TfrmGetPGJBOneTwoInList.TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + if ClientDataSet2.IsEmpty then exit; + ClientDataSet1.Append; + for i:=0 to ClientDataSet1.FieldCount-1 do + begin + ClientDataSet1.Fields[i].Value:=ClientDataSet2.Fields[i].Value; + end; + ClientDataSet1.Post; + ClientDataSet2.Delete; +end; + +procedure TfrmGetPGJBOneTwoInList.YCLNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/贸易管理/U_HCList.dfm b/贸易管理/U_HCList.dfm new file mode 100644 index 0000000..d1242ae --- /dev/null +++ b/贸易管理/U_HCList.dfm @@ -0,0 +1,724 @@ +object frmHCList: TfrmHCList + Left = 95 + Top = 128 + Width = 1140 + Height = 555 + 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 = 1124 + Height = 33 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object Tprint: TToolButton + Left = 189 + Top = 0 + Caption = #25171#21360#32568#26631#31614 + ImageIndex = 96 + Visible = False + end + object TBClose: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1124 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 259 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 260 + Top = 40 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 48 + Top = 16 + Width = 48 + Height = 12 + Caption = #22238#20179#26102#38388 + end + object Label2: TLabel + Left = 84 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 472 + Top = 16 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 36 + Top = 76 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 195 + Top = 92 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 428 + Top = 92 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 510 + Top = 68 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 472 + Top = 40 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label11: TLabel + Left = 668 + Top = 16 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object C_CodeName: TEdit + Tag = 2 + Left = 312 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 312 + Top = 37 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 97 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Format = 'yyyy-MM-dd' + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 97 + Top = 37 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Format = 'yyyy-MM-dd' + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 522 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 86 + Top = 73 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 240 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 452 + Top = 88 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 536 + Top = 64 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object AOrddefstr1: TEdit + Tag = 2 + Left = 522 + Top = 37 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrddefstr4: TEdit + Tag = 2 + Left = 714 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 716 + Top = 40 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1124 + Height = 396 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.Alignment = taCenter + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'AOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HC_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 66 + end + object v1Column18: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'Aorddefstr2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JY_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 80 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#39564#25968#37327'(KG)' + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 87 + end + object v1Column16: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RK_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column15: TcxGridDBColumn + Caption = #20837#24211#25968#37327'(KG)' + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object MovePanel2: TMovePanel + Left = 408 + 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_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 856 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clInactiveCaption + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = 4707838 + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clOlive + end + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 496 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 448 + Top = 200 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 752 + Top = 192 + end +end diff --git a/贸易管理/U_HCList.pas b/贸易管理/U_HCList.pas new file mode 100644 index 0000000..ea8c0ab --- /dev/null +++ b/贸易管理/U_HCList.pas @@ -0,0 +1,279 @@ +unit U_HCList; + +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, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport; + +type + TfrmHCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label10: TLabel; + AOrddefstr1: TEdit; + Label11: TLabel; + AOrddefstr4: TEdit; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + v1Column17: TcxGridDBColumn; + Tprint: TToolButton; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + CheckBox1: TCheckBox; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + 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 C_CodeNameChange(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure CheckBox1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmHCList: TfrmHCList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmHCList.FormDestroy(Sender: TObject); +begin + frmHCList:=nil; +end; + +procedure TfrmHCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmHCList.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmHCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + sql.Clear; + Filtered:=False; + sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),'); + sql.Add('JY_Qty=(select sum(MJMaoZ) from WFB_MJJY X where X.APID=A.APID), '); + sql.Add('RK_RollNum=(select count(MainID) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(KGQty) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''), '); + sql.Add('KHCOnNO=(select KHCOnNo from JYOrdercon_Main X where X.conNO=B.conNO), '); + sql.Add('B.OrderNo,B.ConNO,C.PRTColor,B.MPrtCodeName,B.Mprtspec '); + sql.Add('from JYOrder_sub_anPai A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID ') ; + sql.Add('inner join JYOrder_Sub C on C.subID=A.subID ') ; + SQL.Add('WHERE ADefDate1>='''+formatdateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + SQL.Add('AND ADefDate1<'''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmHCList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmHCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmHCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmHCList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmHCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmHCList.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 TfrmHCList.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmHCList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('HC_PS').Index]<>AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('JY_ps').Index] then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; +end; + +procedure TfrmHCList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); +var + FValue: string; + FBounds: TRect; + begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); + FValue :=IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1); + InflateRect(FBounds, -1, -1) ; + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; + end; + + +procedure TfrmHCList.CheckBox1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +end. diff --git a/贸易管理/U_JBData.dfm b/贸易管理/U_JBData.dfm new file mode 100644 index 0000000..2f0bc9f --- /dev/null +++ b/贸易管理/U_JBData.dfm @@ -0,0 +1,265 @@ +object frmJBData: TfrmJBData + Left = 133 + Top = 13 + Width = 1056 + Height = 704 + Caption = #20132#29677 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 686 + Top = 139 + Width = 49 + Height = 97 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -96 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 295 + Top = 25 + Width = 388 + Height = 97 + Caption = #20132#29677#21367#38271 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -96 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Button1: TButton + Left = 291 + Top = 488 + Width = 154 + Height = 97 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -56 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object MJLen: TEdit + Left = 291 + Top = 134 + Width = 390 + Height = 105 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -96 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object Panel3: TPanel + Left = 192 + Top = 248 + Width = 617 + Height = 211 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 2 + object SpeedButton1: TSpeedButton + Left = 411 + Top = 106 + Width = 100 + Height = 100 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 3 + Top = 2 + Width = 100 + Height = 100 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 105 + Top = 2 + Width = 100 + Height = 100 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 207 + Top = 2 + Width = 100 + Height = 100 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 309 + Top = 2 + Width = 100 + Height = 100 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 411 + Top = 2 + Width = 100 + Height = 100 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 3 + Top = 106 + Width = 100 + Height = 100 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 105 + Top = 106 + Width = 100 + Height = 100 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 207 + Top = 106 + Width = 100 + Height = 100 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 309 + Top = 106 + Width = 100 + Height = 100 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 513 + Top = 2 + Width = 100 + Height = 100 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton12Click + end + end + object Button2: TButton + Left = 534 + Top = 488 + Width = 154 + Height = 97 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -56 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button2Click + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 384 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 448 + Top = 8 + end +end diff --git a/贸易管理/U_JBData.pas b/贸易管理/U_JBData.pas new file mode 100644 index 0000000..43dfa43 --- /dev/null +++ b/贸易管理/U_JBData.pas @@ -0,0 +1,260 @@ +unit U_JBData; //ʹϵͳһֹࡣ + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls; + +type + TfrmJBData = class(TForm) + Button1: TButton; + MJLen: TEdit; + Label1: TLabel; + ADOQueryCmd: TADOQuery; + Label2: TLabel; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton12: TSpeedButton; + ADOQueryTemp: TADOQuery; + Button2: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmJBData: TfrmJBData; + +implementation +Uses +U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmJBData.FormDestroy(Sender: TObject); +begin + frmJBData:=nil; +end; + +procedure TfrmJBData.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmJBData.FormShow(Sender: TObject); +begin + MJLen.SetFocus; +end; + +procedure TfrmJBData.SpeedButton1Click(Sender: TObject); +begin + MJLen.Text:=Trim(MJLen.Text)+Trim(TSpeedButton(Sender).Caption); + MJLen.SelectAll; +end; + +procedure TfrmJBData.SpeedButton12Click(Sender: TObject); +begin + if Trim(MJLen.Text)<>'' then + begin + MJLen.Text:=Copy(Trim(MJLen.Text),1,Length(Trim(MJLen.Text))-1); + MJLen.SelectAll; + end; +end; + +procedure TfrmJBData.Button1Click(Sender: TObject); +var + FFMJLen:Double; + MJIDInt:Integer; + maxno,maxno10,FBanZu,maxno100,maxno200,maxno300:String; +begin + if Trim(MJLen.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + MJLen.SetFocus; + exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Max(Cast(MJID as int)),0) MJIDInt from WFB_MJJY'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + + MJIDInt:=ADOQueryTemp.fieldbyname('MJIDInt').Value; + maxno100:=Trim(FormatDateTime('yyyyMMdd',SGetServerDateTime(ADOQueryTemp))); + maxno100:=Trim(SCXFlag)+Trim(Copy(maxno100,3,6)); + maxno200:=IntToStr(MJIDInt); + maxno200:=Copy(maxno200,1,7); + if StrToInt(maxno100)>StrToInt(maxno200) then + begin + maxno300:=Trim(maxno100)+'01'; + end else + begin + maxno300:=IntToStr(MJIDInt+1); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JYResult where MJID='''+Trim(maxno300)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('δ鲻ܽ࣡','ʾ',0); + Exit; + end; + // ʹϵͳһֹࡣ + if MJIDInt>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JB where MJID='''+Trim(Inttostr(MJIDInt+1))+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѵǼǣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִвȷݽ޸ģ','ʾ',32+4)<>IDYES then + begin + MJLen.Text:=''; + MJLen.SetFocus; + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + //潻 + if GetLSNo(ADOQueryCmd,maxno,'JB','WFB_JB',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡID쳣','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FBanZu:=Trim(ADOQueryTemp.fieldbyname('BanZu').AsString); + FFMJLen:=StrToFloat(MJLen.Text); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JB where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('JBID').Value:=Trim(maxno); + FieldByName('MJID').Value:=Trim(maxno300); + FieldByName('MJLen').Value:=FFMJLen; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('BanZu').Value:=Trim(FBanZu); + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + end; + //潻 + //Ա + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where BanZu='''+Trim(FBanZu)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not eof do + begin + if GetLSNo(ADOQueryCmd,maxno10,'BZ','WFB_BanZu',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_BanZu where 1<>1'); + open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BZID').Value:=Trim(maxno10); + FieldByName('BanZu').Value:=Trim(FBanZu); + FieldByName('MJID').Value:=Trim(maxno300); + // FieldByName('MJID').Value:=Trim(IntToStr(MJIDInt+1)); + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + FieldByName('UserId').Value:=Trim(ADOQueryTemp.fieldbyname('UserId').AsString); + FieldByName('UserName').Value:=Trim(ADOQueryTemp.fieldbyname('UserName').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('JBID').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + + //Ա + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('Ǽdzɹ!','ʾ',0); + Exit; + except + + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + end else + begin + Application.MessageBox('ʹϵͳһֹ࣡','ʾ',0); + Exit; + end; + +end; + +procedure TfrmJBData.Button2Click(Sender: TObject); +begin + Close; +end; + +end. diff --git a/贸易管理/U_JYMJIDPRINT.dfm b/贸易管理/U_JYMJIDPRINT.dfm new file mode 100644 index 0000000..2bfecf1 --- /dev/null +++ b/贸易管理/U_JYMJIDPRINT.dfm @@ -0,0 +1,135 @@ +object frmJYMJIDPRINT: TfrmJYMJIDPRINT + Left = 488 + Top = 310 + BorderIcons = [] + BorderStyle = bsToolWindow + Caption = #26816#39564#25253#21578 + ClientHeight = 202 + ClientWidth = 338 + 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 + PixelsPerInch = 96 + TextHeight = 12 + object Button1: TButton + Left = 33 + Top = 148 + Width = 60 + Height = 25 + Caption = #25171#21360 + TabOrder = 0 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 28 + Top = 24 + Width = 249 + Height = 117 + ItemIndex = 1 + Items.Strings = ( + #26816#39564#21333#21367#20013#25991#20449#24687#34920'('#32654#26631')' + #26816#39564#21333#21367#33521#25991#20449#24687#34920'('#32654#26631')' + #26816#39564#21333#21367#20013#25991#20449#24687#34920'('#27431#26631')' + #26816#39564#21333#21367#33521#25991#20449#24687#34920'('#27431#26631')') + TabOrder = 1 + end + object Button2: TButton + Left = 129 + Top = 148 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 217 + Top = 148 + Width = 60 + Height = 25 + Caption = #23548#20986 + TabOrder = 3 + OnClick = Button3Click + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 81 + Top = 33 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 84 + Top = 100 + end + object CDS_T: TClientDataSet + Aggregates = <> + Params = <> + Left = 128 + Top = 100 + end + object CDS_Z: TClientDataSet + Aggregates = <> + Params = <> + Left = 160 + Top = 100 + end + object CDS_E: TClientDataSet + Aggregates = <> + Params = <> + Left = 204 + Top = 100 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 76 + Top = 167 + end + object RMDB_T: TRMDBDataSet + Visible = True + DataSet = CDS_T + Left = 140 + Top = 168 + end + object RMDB_Z: TRMDBDataSet + Visible = True + DataSet = CDS_Z + Left = 200 + Top = 168 + end + object RMDB_E: TRMDBDataSet + Visible = True + DataSet = CDS_E + Left = 256 + Top = 168 + end + object RMGridReport1: 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 = 344 + Top = 136 + ReportData = {} + end +end diff --git a/贸易管理/U_JYMJIDPRINT.pas b/贸易管理/U_JYMJIDPRINT.pas new file mode 100644 index 0000000..7044ef4 --- /dev/null +++ b/贸易管理/U_JYMJIDPRINT.pas @@ -0,0 +1,339 @@ +unit U_JYMJIDPRINT; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, RM_Common, RM_Class, RM_e_Xls, RM_GridReport, RM_System, + RM_Dataset, DBClient, DB, ADODB, StdCtrls, ExtCtrls, RM_E_llPDF; + +type + TfrmJYMJIDPRINT = class(TForm) + ADOQueryTmp: TADOQuery; + CDS_Main: TClientDataSet; + CDS_T: TClientDataSet; + CDS_Z: TClientDataSet; + CDS_E: TClientDataSet; + RMDB_Main: TRMDBDataSet; + RMDB_T: TRMDBDataSet; + RMDB_Z: TRMDBDataSet; + RMDB_E: TRMDBDataSet; + RMGridReport1: TRMGridReport; + Button1: TButton; + RadioGroup1: TRadioGroup; + Button2: TButton; +// RMllPDFExport1: TRMllPDFExport; + Button3: TButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + private + Procedure Print1(flag1:integer); + { Private declarations } + public + fMJID:string; + Fflag:integer; + { Public declarations } + end; + +var + frmJYMJIDPRINT: TfrmJYMJIDPRINT; + +implementation + uses + U_DataLink,U_Fun,U_JYOrderCDOne, U_CKProductBCPOutList; +{$R *.dfm} +Procedure TfrmJYMJIDPRINT.Print1(flag1:integer); +var + i,j:integer; + fstr1,fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + + with ADOqueryTmp do + begin + Close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DCode)+''''); + ExecSQL; + end; + with ADOqueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * FROM TBSubID where DName='''+Trim(DCode)+''''); + open; + append; + fieldbyname('SubId').Value:=Trim(fMJID); + fieldbyname('Dname').Value:=Trim(DCode); + post; + end; + + + with ADOqueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID_Main '); + sql.Add(' @MJID='+quotedstr(fMJID)); + if radiogroup1.ItemIndex>1 then + sql.Add(',@flag=''1'' ') + else + sql.Add(',@flag=''0'' '); + sql.Add(',@userID='+quotedstr(trim(DCode))); + open; + end; + SCreateCDS20(ADOqueryTmp,CDS_Main); + SInitCDSData20(ADOqueryTmp,CDS_Main); + + with ADOqueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID '); + sql.Add(' @MJID='+quotedstr(fMJID)); + sql.Add(',@Flag='+quotedstr('0')); + open; + end; + SCreateCDS20(ADOqueryTmp,CDS_T); + SCreateCDS20(ADOqueryTmp,CDS_Z); + SCreateCDS20(ADOqueryTmp,CDS_E); +// SInitCDSData20(ADOQueryMain,Order_Main); + + +//ֵͷϢ + with ADOqueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID '); + sql.Add(' @MJID='+quotedstr(fMJID)); + if (radiogroup1.ItemIndex=1) or (radiogroup1.ItemIndex=3) then + sql.Add(',@Flag='+quotedstr('2')) + else + sql.Add(',@Flag='+quotedstr('1')); + open; + end; + with CDS_T do + begin + append; + fieldbyname('N').Value:=1; + post; + while not ADOqueryTmp.eof do + begin + edit; + fieldbyname('H'+inttostr(ADOqueryTmp.fieldbyname('keyNo').AsInteger)).Value:=ADOqueryTmp.fieldbyname('cdName').asstring; + post; + ADOqueryTmp.Next; + i:=i+1; + end; + end; + + + //ֵмεϢ + with ADOqueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID '); + sql.Add(' @MJID='+quotedstr(fMJID)); + sql.Add(',@Flag='+quotedstr('3')); + open; + end; + i:=1; + j:=1; + with CDS_Z do + begin + for j:=1 to 150 do + begin + append; + fieldbyname('N').Value:=j; + post; + end; + end; + + with CDS_Z do + begin + while not ADOqueryTmp.Eof do + begin + IF Locate('N',ADOqueryTmp.fieldbyname('H').AsInteger,[]) then + begin + Edit; + for i:=2 to 15 do + begin + Fields[i].Value:='----'; + end; + fieldbyname('N1').Value:=ADOqueryTmp.fieldbyname('CDBeg').AsString; + + IF ADOqueryTmp.FieldByName('KouFenQty').AsFloat>0 then + begin + fieldbyname('H'+inttostr(ADOqueryTmp.fieldbyname('keyNo').AsInteger)).Value:=inttostr(ADOqueryTmp.fieldbyname('KouFenQty').AsInteger)+'p'; + end; + IF ADOqueryTmp.FieldByName('CDName').AsString='' then + begin + fieldbyname('E1').Value:='----'; + fieldbyname('E2').Value:='----'; + fieldbyname('E3').Value:=ADOqueryTmp.fieldbyname('CDQty').AsString; + end; + post; + + IF (ADOqueryTmp.FieldByName('koufenType').AsString='1覴') + and (ADOqueryTmp.FieldByName('H1').AsInteger>ADOqueryTmp.FieldByName('H').AsInteger ) then + begin + for i:=ADOqueryTmp.FieldByName('H').AsInteger to ADOqueryTmp.FieldByName('H1').AsInteger do + begin + IF Locate('N',i,[]) then + begin + Edit; + fieldbyname('H'+inttostr(ADOqueryTmp.fieldbyname('keyNo').AsInteger)).Value:='====='; + post; + end; + end; + end; + end; + ADOqueryTmp.Next; + end; + end; + + //ֵܽϢ + + with ADOqueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID '); + sql.Add(' @MJID='+quotedstr(fMJID)); + sql.Add(',@Flag='+quotedstr('4')); + open; + end; + i:=1; + with CDS_E do + begin + append; + fieldbyname('N').Value:=1; + post; + while not ADOqueryTmp.eof do + begin + edit; + fieldbyname('H'+inttostr(ADOqueryTmp.fieldbyname('keyNo').AsInteger)).Value:=ADOqueryTmp.fieldbyname('num').asstring; + post; + ADOqueryTmp.Next; + i:=i+1; + end; + end; + if (radiogroup1.ItemIndex=0) or (radiogroup1.ItemIndex=2) then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\鵥Ϣ.rmf'; + if (radiogroup1.ItemIndex=1) or (radiogroup1.ItemIndex=3) then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\鵥Ϣ(Ӣ).rmf'; + if NOT FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',MB_ICONERROR); + exit; + end; + RMGridReport1.LoadFromFile(fPrintFile); + if flag1=0 then + RMGridReport1.ShowReport; + If flag1=1 then + begin + + if not DirectoryExists(pchar('D:\pdfĵ')) then + CreateDirectory(pchar('D:\pdfĵ'),nil); + fstr1:='D:\pdfĵ\'+trim(CDS_Main.fieldbyname('ISHzEng').AsString)+'_'+trim(CDS_Main.fieldbyname('MJID').AsString)+'_'+trim(CDS_Main.fieldbyname('MJXH').AsString)+'.pdf'; + RMGridReport1.PrepareReport; +// RMGridReport1.ExportTo(RMllPDFExport1,fstr1); + end; + // RMGridReport1.PrepareReport; + // RMGridReport1.PrintReport10(); +// RMGridReport1.ExportTo(RMXLSExport1,'C:\111.excel'); +// RMGridReport1.ExportTo(RMllPDFExport1,'C:\111.pdf'); + + +end; + +procedure TfrmJYMJIDPRINT.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cafree; +end; + +procedure TfrmJYMJIDPRINT.FormDestroy(Sender: TObject); +begin + frmJYMJIDPRINT:=nil; +end; + +procedure TfrmJYMJIDPRINT.Button1Click(Sender: TObject); +begin + Print1(0); +end; + +procedure TfrmJYMJIDPRINT.FormCreate(Sender: TObject); +begin + fMJID:='1504080304'; + Fflag:=0; +end; + +procedure TfrmJYMJIDPRINT.Button2Click(Sender: TObject); +begin + close; +end; + +procedure TfrmJYMJIDPRINT.Button3Click(Sender: TObject); +begin + + IF Fflag=1 then + begin + if frmCKProductBCPOutList.CDS_Main.IsEmpty then Exit; + if frmCKProductBCPOutList.CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + frmCKProductBCPOutList.CDS_Main.DisableControls; + with frmCKProductBCPOutList.CDS_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + fMJID:=frmCKProductBCPOutList.CDS_Main.fieldbyname('MJID').AsString; + Print1(1); + end; + Next; + end; + end; + frmCKProductBCPOutList.CDS_Main.EnableControls; + end + else + begin + if frmJYOrderCDOne.Order_Main.IsEmpty then Exit; + if frmJYOrderCDOne.Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + frmJYOrderCDOne.Order_Main.DisableControls; + with frmJYOrderCDOne.Order_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + fMJID:=frmJYOrderCDOne.Order_Main.fieldbyname('MJID').AsString; + Print1(1); + end; + Next; + end; + end; + frmJYOrderCDOne.Order_Main.EnableControls; + end; +end; + +end. diff --git a/贸易管理/U_JYOrderCDMore.dfm b/贸易管理/U_JYOrderCDMore.dfm new file mode 100644 index 0000000..f38eb36 --- /dev/null +++ b/贸易管理/U_JYOrderCDMore.dfm @@ -0,0 +1,611 @@ +object frmJYOrderCDMore: TfrmJYOrderCDMore + Left = 192 + Top = 166 + Width = 999 + Height = 552 + Caption = #26816#39564#20998#26512 + 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 = 991 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 991 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26816#39564#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 = 177 + Top = 15 + Width = 53 + 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 TLabel + Left = 322 + Top = 15 + 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 Label7: TLabel + Left = 322 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 444 + Top = 15 + Width = 47 + 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 Label9: TLabel + Left = 177 + Top = 39 + Width = 54 + Height = 12 + Caption = #32568' '#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 = 444 + Top = 39 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 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 = 1 + end + object RadioGroup1: TRadioGroup + Left = 588 + Top = -5 + Width = 185 + Height = 71 + Columns = 2 + ItemIndex = 0 + Items.Strings = ( + #25353#35746#21333 + #25353#32568#21495) + TabOrder = 2 + OnClick = RadioGroup1Click + end + object OrderNo: TEdit + Tag = 2 + Left = 230 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = OrderNoKeyPress + end + object MPRTMF: TEdit + Tag = 2 + Left = 350 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + object PRTColor: TEdit + Tag = 2 + Left = 350 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MPRTKZ: TEdit + Tag = 2 + Left = 498 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + object gangno: TEdit + Tag = 2 + Left = 230 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 498 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 24 + Top = 128 + Width = 961 + Height = 369 + TabOrder = 2 + 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 = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'gangno' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column18: TcxGridDBColumn + Caption = #32568#25968#37327 + DataBinding.FieldName = 'GangQty' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v1Column11: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'JQty' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #27491#21697#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #27491#21697#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column15: TcxGridDBColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #27425#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column16: TcxGridDBColumn + Caption = #22810#25340#21305#25968 + DataBinding.FieldName = 'LYPS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column17: TcxGridDBColumn + Caption = #22810#25340#25968#37327 + DataBinding.FieldName = 'LYQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column10: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'CDUnit' + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #30133#28857#25968#37327 + DataBinding.FieldName = 'CDQty' + HeaderAlignmentHorz = taCenter + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 180 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label11: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 991 + Height = 21 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #25968#37327#32479#35745 + #20010#25968#32479#35745) + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 991 + ClientRectTop = 19 + 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 = 5 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 200 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 464 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 496 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 528 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 368 + Top = 200 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 400 + Top = 200 + end +end diff --git a/贸易管理/U_JYOrderCDMore.pas b/贸易管理/U_JYOrderCDMore.pas new file mode 100644 index 0000000..981c9e4 --- /dev/null +++ b/贸易管理/U_JYOrderCDMore.pas @@ -0,0 +1,362 @@ +unit U_JYOrderCDMore; + +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, MovePanel; + +type + TfrmJYOrderCDMore = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + RadioGroup1: TRadioGroup; + cxTabControl1: TcxTabControl; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + OrderNo: TEdit; + MPRTMF: TEdit; + PRTColor: TEdit; + MPRTKZ: TEdit; + gangno: TEdit; + MPRTCodeName: TEdit; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + MovePanel2: TMovePanel; + 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 AOrdDefNote4Change(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(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 RadioGroup1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + FLeft,FTop:Integer; + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmJYOrderCDMore: TfrmJYOrderCDMore; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmJYOrderCDMore.FormDestroy(Sender: TObject); +begin + frmJYOrderCDMore:=nil; +end; + +procedure TfrmJYOrderCDMore.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYOrderCDMore.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmJYOrderCDMore.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('鱨J',Tv1,'Ⱦ'); +end; + +procedure TfrmJYOrderCDMore.InitGrid(); +var + i:integer; + j,z:Integer; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX :begdate,:enddate,:PState,:FFsql '); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + if cxTabControl1.TabIndex=0 then + Parameters.ParamByName('PState').Value:=RadioGroup1.ItemIndex+1 + else + Parameters.ParamByName('PState').Value:=RadioGroup1.ItemIndex+4; + Parameters.ParamByName('FFsql').Value:=''; + Open; + end; + SCreateCDSOnly(ADOQueryMain,Order_Main); + SInitCDSDataOnly(ADOQueryMain,Order_Main); + for i:=18 to Order_Main.FieldCount-1 do + begin + if Tv1.ColumnCount>i then + begin + + end else + Tv1.CreateColumn; + Tv1.Columns[i].Width:=68; + Tv1.Columns[i].DataBinding.FieldName:=Order_Main.Fields[i].FieldName; + Tv1.Columns[i].Caption:=Trim(Order_Main.Fields[i].FieldName); + tv1.Columns[i].Summary.FooterKind:=skSum; + end; + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmJYOrderCDMore.InitGrid10(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX :begdate,:enddate,:PState '); + Parameters.ParamByName('begdate').Value:='2012-01-01'; + Parameters.ParamByName('enddate').Value:='2011-01-01'; + Parameters.ParamByName('PState').Value:=RadioGroup1.ItemIndex+1; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJYOrderCDMore.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + InitGrid(); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + +end; + +procedure TfrmJYOrderCDMore.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 TfrmJYOrderCDMore.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + if RadioGroup1.ItemIndex=0 then + SelExportData(Tv1,ADOQueryMain,'') + else + if RadioGroup1.ItemIndex=1 then + SelExportData(Tv1,ADOQueryMain,''); +end; + +procedure TfrmJYOrderCDMore.TBRafreshClick(Sender: TObject); +begin + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmJYOrderCDMore.AOrdDefNote4Change(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFiltersHint(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmJYOrderCDMore.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmJYOrderCDMore.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmJYOrderCDMore.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmJYOrderCDMore.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmJYOrderCDMore.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; } +end; + +procedure TfrmJYOrderCDMore.RadioGroup1Click(Sender: TObject); +begin + if RadioGroup1.ItemIndex=0 then + begin + GangNo.Text:=''; + GangNo.ReadOnly:=True; + v1Column2.Visible:=False; + end else + begin + GangNo.ReadOnly:=False; + v1Column2.Visible:=True; + end; + TBRafresh.Click; +end; + +procedure TfrmJYOrderCDMore.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; + if cxTabControl1.TabIndex=0 then + v1Column9.Caption:='õ' + else + v1Column9.Caption:='õ'; +end; + +procedure TfrmJYOrderCDMore.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + i:Integer; +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX :begdate,:enddate,:PState,:FFsql '); + Parameters.ParamByName('begdate').Value:='2010-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + if cxTabControl1.TabIndex=0 then + begin + Parameters.ParamByName('PState').Value:=RadioGroup1.ItemIndex+1; + Parameters.ParamByName('FFSql').Value:=' where C.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + end + else + begin + Parameters.ParamByName('PState').Value:=RadioGroup1.ItemIndex+4; + Parameters.ParamByName('FFSql').Value:=' where C.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + end; + + Open; + end; + SCreateCDSOnly(ADOQueryMain,Order_Main); + SInitCDSDataOnly(ADOQueryMain,Order_Main); + for i:=18 to Order_Main.FieldCount-1 do + begin + if Tv1.ColumnCount>i then + begin + + end else + Tv1.CreateColumn; + Tv1.Columns[i].Width:=68; + Tv1.Columns[i].DataBinding.FieldName:=Order_Main.Fields[i].FieldName; + Tv1.Columns[i].Caption:=Trim(Order_Main.Fields[i].FieldName); + tv1.Columns[i].Summary.FooterKind:=skSum; + end; + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible:=False; + end; + +end; + +end. diff --git a/贸易管理/U_JYOrderCDOne.dfm b/贸易管理/U_JYOrderCDOne.dfm new file mode 100644 index 0000000..f6721ea --- /dev/null +++ b/贸易管理/U_JYOrderCDOne.dfm @@ -0,0 +1,1802 @@ +object frmJYOrderCDOne: TfrmJYOrderCDOne + Left = 81 + Top = 200 + Width = 1382 + Height = 770 + Caption = #26816#39564#25253#21578 + 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 = 1366 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 131 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBZF: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20316#24223 + ImageIndex = 48 + Visible = False + OnClick = TBZFClick + end + object TBManage: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 58 + Visible = False + OnClick = TBManageClick + end + object TBBN: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36716#21333 + ImageIndex = 41 + Visible = False + OnClick = TBBNClick + end + object TBAftChkHX: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26816#21518#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = TBAftChkHXClick + end + object ToolButton12: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25209#37327#20462#25913#25968#37327#21333#20301 + ImageIndex = 57 + Visible = False + OnClick = ToolButton12Click + end + object ToolButton3: TToolButton + Left = 600 + Top = 0 + AutoSize = True + Caption = #25442#31639#31995#25968 + ImageIndex = 57 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #25171#21360#21367#26631#31614 + ImageIndex = 96 + OnClick = ToolButton1Click + end + object ToolButton9: TToolButton + Left = 786 + Top = 0 + AutoSize = True + Caption = #25195#25551#25171#21360#21367#26631#31614 + ImageIndex = 96 + Wrap = True + Visible = False + OnClick = ToolButton9Click + end + object ToolButton4: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #24067#21305#25171#21253 + ImageIndex = 61 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #25764#38144#25171#21253 + ImageIndex = 86 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 174 + Top = 30 + AutoSize = True + Caption = #25171#21360#21253#26631#31614 + ImageIndex = 96 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton7: TToolButton + Left = 273 + Top = 30 + AutoSize = True + Caption = #24067#21305#25442#32568 + ImageIndex = 57 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton8: TToolButton + Left = 360 + Top = 30 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 12 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 447 + Top = 30 + AutoSize = True + Caption = #26816#39564#27719#24635#25253#21578 + ImageIndex = 12 + Visible = False + OnClick = ToolButton10Click + end + object ToolButton2: TToolButton + Left = 558 + Top = 30 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 12 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton11: TToolButton + Left = 645 + Top = 30 + AutoSize = True + Caption = #25171#21253#30721#21333 + ImageIndex = 12 + Visible = False + OnClick = ToolButton11Click + end + object TBClose: TToolButton + Left = 732 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1366 + Height = 87 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26816#39564#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 = 53 + 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 TLabel + Left = 318 + 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 Label7: TLabel + Left = 318 + Top = 39 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 444 + Top = 15 + Width = 39 + Height = 12 + Caption = #25171#30721#20154 + 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 = 54 + Height = 12 + Caption = #32568' '#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 = 444 + Top = 39 + Width = 39 + Height = 12 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 574 + Top = 17 + Width = 54 + Height = 12 + Caption = #30133' '#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 574 + Top = 39 + Width = 54 + 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 Label5: TLabel + Left = 179 + Top = 65 + Width = 52 + Height = 12 + Caption = #20013#25991#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 574 + Top = 63 + Width = 52 + Height = 12 + Caption = #20837#24211#29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 318 + Top = 63 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 444 + Top = 63 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 718 + Top = 17 + Width = 52 + Height = 12 + Caption = #26579#21378#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 718 + Top = 62 + Width = 53 + Height = 12 + Caption = #21253' '#26465' '#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 718 + Top = 39 + Width = 54 + Height = 12 + Caption = #21253' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 1172 + Top = 16 + Width = 52 + Height = 12 + Caption = #25171#21360#20221#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label19: TLabel + Left = 864 + Top = 17 + 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 Label20: TLabel + Left = 864 + Top = 37 + Width = 39 + Height = 12 + Caption = #32568#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 864 + Top = 61 + Width = 26 + Height = 12 + Caption = #27454#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 1023 + Top = 113 + Width = 52 + Height = 12 + Caption = #26159#21542#21512#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 995 + Top = 16 + Width = 52 + Height = 12 + Caption = #26159#21542#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 995 + Top = 41 + Width = 47 + Height = 12 + Caption = #33394' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 995 + Top = 65 + Width = 53 + Height = 12 + Caption = #33457' '#22411' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 1123 + Top = 64 + Width = 52 + Height = 12 + Caption = #24320#21098#26700#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 + 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 = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 232 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 2 + OnChange = BAONOChange + OnKeyPress = OrderNoKeyPress + end + object conNO: TEdit + Tag = 2 + Left = 360 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 3 + OnChange = AorddefstrChange + end + object MJID: TEdit + Tag = 2 + Left = 485 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 4 + OnKeyPress = MJIDKeyPress + end + object CDQK: TEdit + Tag = 2 + Left = 631 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 5 + OnChange = AorddefstrChange + end + object MJType: TComboBox + Tag = 2 + Left = 631 + Top = 35 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = AorddefstrChange + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + '') + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 232 + Top = 61 + Width = 70 + Height = 20 + TabOrder = 7 + OnChange = AorddefstrChange + end + object MJStr2: TComboBox + Tag = 2 + Left = 631 + Top = 59 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = AorddefstrChange + Items.Strings = ( + #26410#20837#24211 + #24050#20837#24211 + #24050#20986#24211 + '' + '' + '' + '') + end + object fromfactoryName: TEdit + Tag = 2 + Left = 360 + Top = 59 + Width = 70 + Height = 20 + TabOrder = 9 + OnChange = AorddefstrChange + end + object factoryName: TEdit + Tag = 2 + Left = 485 + Top = 59 + Width = 70 + Height = 20 + TabOrder = 10 + OnChange = AorddefstrChange + end + object Filler: TComboBox + Tag = 1 + Left = 485 + Top = 11 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = AorddefstrChange + end + object RadioGroup1: TRadioGroup + Left = 1244 + Top = 19 + Width = 137 + Height = 66 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#24120 + #22238#20462 + #20840#37096) + TabOrder = 12 + Visible = False + OnClick = RadioGroup1Click + end + object CheckBox1: TCheckBox + Left = 750 + Top = 87 + Width = 131 + Height = 17 + Caption = #26816#39564#25253#21578#33521#25991 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + Visible = False + end + object CheckBox2: TCheckBox + Left = 20 + Top = 176 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 14 + OnClick = CheckBox2Click + end + object BAONO: TEdit + Tag = 1 + Left = 771 + Top = 35 + Width = 70 + Height = 20 + TabOrder = 15 + OnChange = OrderNoChange + end + object BAOID: TEdit + Tag = 2 + Left = 771 + Top = 58 + Width = 70 + Height = 20 + TabOrder = 16 + OnChange = OrderNoChange + end + object Mjstr4: TEdit + Tag = 1 + Left = 232 + Top = 36 + Width = 70 + Height = 20 + TabOrder = 17 + OnChange = OrderNoChange + end + object gangNO: TEdit + Tag = 1 + Left = 771 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 18 + OnChange = OrderNoChange + end + object PrtColor: TEdit + Tag = 2 + Left = 360 + Top = 36 + Width = 70 + Height = 20 + TabOrder = 19 + OnChange = OrderNoChange + end + object ComboBox1: TComboBox + Left = 1228 + Top = 12 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 20 + Text = '1' + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object KHConNO: TEdit + Tag = 2 + Left = 905 + Top = 11 + Width = 70 + Height = 20 + TabOrder = 21 + OnChange = OrderNoChange + end + object APID: TEdit + Tag = 2 + Left = 905 + Top = 34 + Width = 70 + Height = 20 + TabOrder = 22 + OnChange = OrderNoChange + OnKeyPress = APIDKeyPress + end + object PRTKuanNO: TEdit + Tag = 2 + Left = 905 + Top = 58 + Width = 70 + Height = 20 + TabOrder = 23 + OnChange = OrderNoChange + end + object ISHZ: TComboBox + Tag = 2 + Left = 1076 + Top = 107 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 24 + OnChange = AorddefstrChange + Items.Strings = ( + '' + #21512#26684 + #19981#21512#26684 + '' + '' + '' + '') + end + object ISbao: TComboBox + Left = 1047 + Top = 11 + Width = 70 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 25 + OnChange = ISbaoChange + Items.Strings = ( + '' + '' + #24050#25171#21253 + #26410#25171#21253) + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 1047 + Top = 34 + Width = 70 + Height = 20 + TabOrder = 26 + OnChange = OrderNoChange + end + object prthx: TEdit + Tag = 2 + Left = 1047 + Top = 58 + Width = 70 + Height = 20 + TabOrder = 27 + OnChange = OrderNoChange + end + object KJZH: TEdit + Tag = 1 + Left = 1175 + Top = 57 + Width = 70 + Height = 20 + TabOrder = 28 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 149 + Width = 1366 + Height = 466 + Align = alTop + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column25 + end + item + Kind = skSum + Column = v1Column27 + end + item + Kind = skSum + Column = v1Column28 + end + item + Kind = skSum + Column = v1Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column22: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'Mjstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column31: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column37: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column38: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column18: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'fromfactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column19: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column20: TcxGridDBColumn + Caption = #25171#30721#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column21: TcxGridDBColumn + Caption = #25171#30721#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column32: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column27: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column28: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column8: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column10: TcxGridDBColumn + Caption = #21367#38271#24230 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column9: TcxGridDBColumn + Caption = #30133#28857#25968#37327 + DataBinding.FieldName = 'CDQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'MJTypeOther' + Options.Editing = False + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column26: TcxGridDBColumn + Caption = #26816#39564#38376#24133'(cm)' + DataBinding.FieldName = 'MJFK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #26816#39564#20811#37325'(g/'#13217')' + DataBinding.FieldName = 'MJSJKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column17: TcxGridDBColumn + Caption = #20837#24211#29366#24577 + DataBinding.FieldName = 'MJStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column25: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column24: TcxGridDBColumn + Caption = #22238#20462 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 48 + end + object v1Column14: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = #21028#23450 + DataBinding.FieldName = 'PanDing' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 61 + end + object v1MKXS: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'MKXS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column30: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'numbaoNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column29: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column33: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'khconNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column34: TcxGridDBColumn + Caption = #32568#26465#30721 + DataBinding.FieldName = 'APID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column35: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'MPRTKuanNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column36: TcxGridDBColumn + Caption = #26159#21542#21512#21516 + DataBinding.FieldName = 'ISHZ' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 50 + end + object v1Column39: TcxGridDBColumn + Caption = #24320#21098#26700#21495 + DataBinding.FieldName = 'KJZH' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column1: TcxGridDBColumn + Caption = #24320#21305'1' + DataBinding.FieldName = 'kaip1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24320#21305'2' + DataBinding.FieldName = 'kaip2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24320#21305'3' + DataBinding.FieldName = 'kaip3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 74 + Top = 199 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label11: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object MovePanel2: TMovePanel + Left = 400 + Top = 224 + 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 = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Panel2: TPanel + Left = 420 + Top = 200 + Width = 225 + Height = 117 + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label15: TLabel + Left = 24 + Top = 36 + Width = 24 + Height = 12 + Caption = #31995#25968 + end + object Label24: TLabel + Left = 24 + Top = 56 + Width = 24 + Height = 12 + Caption = #30382#37325 + end + object Label25: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #25442#31639#31867#22411 + end + object cxCurrencyEdit1: TcxCurrencyEdit + Left = 52 + Top = 32 + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####' + Properties.Nullstring = '0' + TabOrder = 0 + Width = 121 + end + object Button1: TButton + Left = 32 + Top = 80 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 128 + Top = 80 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 52 + Top = 52 + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####' + Properties.Nullstring = '0' + TabOrder = 3 + Width = 121 + end + object ComboBox4: TComboBox + Left = 76 + Top = 12 + Width = 97 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #38271#24230#25442#31639#20928#37325 + #20928#37325#25442#31639#38271#24230) + end + end + object Panel3: TPanel + Left = 480 + Top = 224 + Width = 249 + Height = 153 + Color = clSkyBlue + TabOrder = 6 + Visible = False + object Check_bq: TCheckBox + Left = 44 + Top = 24 + Width = 65 + Height = 17 + Caption = #21253#26631#31614 + TabOrder = 0 + end + object ComboBox2: TComboBox + Left = 120 + Top = 20 + Width = 70 + Height = 20 + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object ComboBox3: TComboBox + Left = 120 + Top = 52 + Width = 70 + Height = 20 + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 2 + Text = '1' + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object Fbq: TBtnEditA + Left = 64 + Top = 76 + Width = 125 + Height = 20 + TabOrder = 3 + Visible = False + OnBtnClick = FbqBtnClick + end + object check_Fbz: TCheckBox + Left = 44 + Top = 56 + Width = 73 + Height = 17 + Caption = #21253#21103#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Button3: TButton + Left = 32 + Top = 112 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 5 + OnClick = Button3Click + end + object Button4: TButton + Left = 148 + Top = 112 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 6 + OnClick = Button4Click + end + end + object Panel5: TPanel + Left = 736 + Top = 188 + Width = 273 + Height = 101 + Color = clSkyBlue + TabOrder = 7 + Visible = False + object Label28: TLabel + Left = 48 + Top = 28 + Width = 48 + Height = 12 + Caption = #25968#37327#21333#20301 + end + object ComboBox5: TComboBox + Left = 100 + Top = 24 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + '' + 'M' + 'Y') + end + object Button5: TButton + Left = 32 + Top = 64 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 172 + Top = 64 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button6Click + end + end + object cxGrid4: TcxGrid + Left = 234 + Top = 90 + Width = 144 + Height = 122 + TabOrder = 8 + Visible = False + object TV4: TcxGridDBTableView + OnDblClick = TV4DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSCON + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + object V4Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderno' + HeaderAlignmentHorz = taCenter + Width = 108 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TV4 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 600 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 464 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 496 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 528 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 368 + Top = 200 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 400 + Top = 200 + end + object PopupMenu1: TPopupMenu + Left = 488 + Top = 264 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = 424 + Top = 256 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 576 + Top = 256 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object CDS_CD: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 336 + end + object RMCD: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDBCD + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 304 + ReportData = {} + end + object RMDBCD: TRMDBDataSet + Visible = True + DataSet = CDS_CD + Left = 608 + Top = 304 + end + object CDS_LS: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 368 + end + object RM3: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 492 + Top = 300 + 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 = 548 + Top = 352 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 908 + Top = 280 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 836 + Top = 320 + end + object RMDBPRT: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 940 + Top = 308 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 868 + Top = 360 + end + object CDS_CON: TClientDataSet + Aggregates = <> + Params = <> + Left = 20 + Top = 177 + end + object DSCON: TDataSource + DataSet = CDS_CON + Left = 64 + Top = 173 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 96 + Top = 173 + end +end diff --git a/贸易管理/U_JYOrderCDOne.pas b/贸易管理/U_JYOrderCDOne.pas new file mode 100644 index 0000000..1bda99d --- /dev/null +++ b/贸易管理/U_JYOrderCDOne.pas @@ -0,0 +1,1928 @@ +unit U_JYOrderCDOne; + +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, MovePanel, cxTextEdit, + cxContainer, cxCurrencyEdit, U_SMLB, BtnEdit, RM_e_main, RM_e_htm, + RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmJYOrderCDOne = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + conNO: TEdit; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + MJID: TEdit; + Label2: TLabel; + CDQK: TEdit; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label4: TLabel; + MJType: TComboBox; + v1Column13: TcxGridDBColumn; + Label5: TLabel; + MPRTCodeName: TEdit; + v1Column16: TcxGridDBColumn; + Label6: TLabel; + MJStr2: TComboBox; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label12: TLabel; + Label13: TLabel; + fromfactoryName: TEdit; + factoryName: TEdit; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Filler: TComboBox; + TBManage: TToolButton; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBZF: TToolButton; + ToolButton1: TToolButton; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + v1Column25: TcxGridDBColumn; + TBAftChkHX: TToolButton; + v1Column24: TcxGridDBColumn; + RadioGroup1: TRadioGroup; + MovePanel2: TMovePanel; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column14: TcxGridDBColumn; + CDS_CD: TClientDataSet; + RMCD: TRMGridReport; + RMDBCD: TRMDBDataSet; + CDS_LS: TClientDataSet; + v1Column15: TcxGridDBColumn; + Label14: TLabel; + CheckBox1: TCheckBox; + ToolButton3: TToolButton; + Panel2: TPanel; + Label15: TLabel; + cxCurrencyEdit1: TcxCurrencyEdit; + Button1: TButton; + Button2: TButton; + v1MKXS: TcxGridDBColumn; + CheckBox2: TCheckBox; + v1Column29: TcxGridDBColumn; + v1Column30: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + BAONO: TEdit; + BAOID: TEdit; + Label16: TLabel; + Label17: TLabel; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + Mjstr4: TEdit; + gangNO: TEdit; + PrtColor: TEdit; + Label18: TLabel; + ComboBox1: TComboBox; + RM3: TRMGridReport; + v1Column26: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + v1Column32: TcxGridDBColumn; + v1Column33: TcxGridDBColumn; + Panel3: TPanel; + Check_bq: TCheckBox; + ComboBox2: TComboBox; + ComboBox3: TComboBox; + Fbq: TBtnEditA; + check_Fbz: TCheckBox; + Button3: TButton; + Button4: TButton; + KHConNO: TEdit; + Label19: TLabel; + v1Column34: TcxGridDBColumn; + APID: TEdit; + Label20: TLabel; + v1Column35: TcxGridDBColumn; + PRTKuanNO: TEdit; + Label21: TLabel; + v1Column36: TcxGridDBColumn; + Label22: TLabel; + ISHZ: TComboBox; + ToolButton10: TToolButton; + RMXLSExport1: TRMXLSExport; + ISbao: TComboBox; + Label23: TLabel; + ToolButton11: TToolButton; + CDS_HZ: TClientDataSet; + RMDBHZ: TRMDBDataSet; + cxCurrencyEdit2: TcxCurrencyEdit; + Label24: TLabel; + TBBN: TToolButton; + Label25: TLabel; + ComboBox4: TComboBox; + RMDBPRT: TRMDBDataSet; + CDS_PRT: TClientDataSet; + v1Column37: TcxGridDBColumn; + v1Column38: TcxGridDBColumn; + SOrddefstr1: TEdit; + Label26: TLabel; + prthx: TEdit; + Label27: TLabel; + ToolButton12: TToolButton; + Panel5: TPanel; + Label28: TLabel; + ComboBox5: TComboBox; + Button5: TButton; + Button6: TButton; + v1Column39: TcxGridDBColumn; + KJZH: TEdit; + Label29: TLabel; + CDS_CON: TClientDataSet; + DSCON: TDataSource; + ADOQuery1: TADOQuery; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + V4Column1: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); + procedure Image2Click(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 TBManageClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBZFClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure RadioGroup1Click(Sender: TObject); + procedure TBAftChkHXClick(Sender: TObject); + procedure AorddefstrChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure PRTColorChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FbqBtnClick(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton10Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure ISbaoChange(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure TBBNClick(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure TV4DblClick(Sender: TObject); + procedure BAONOChange(Sender: TObject); + private + DQdate: TDateTime; + FLeft, FTop: Integer; + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + function Savedata(): Boolean; + procedure GetCDSData(); + procedure GetBGData(); + { Private declarations } + public + FFInt: Integer; + { Public declarations } + end; + +var + frmJYOrderCDOne: TfrmJYOrderCDOne; + +implementation + +uses + U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_CPGangNo, U_JYMJIDPRINT, + U_ZDYHelp, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmJYOrderCDOne.FormDestroy(Sender: TObject); +begin + frmJYOrderCDOne := nil; +end; + +procedure TfrmJYOrderCDOne.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmJYOrderCDOne.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鱨JF', Tv1, ''); +end; + +procedure TfrmJYOrderCDOne.InitGrid(); +var + i: integer; + j: Integer; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql '); + Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime); + Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1); + Parameters.ParamByName('PState').Value := 0; + Parameters.ParamByName('FFSql').Value := ' '; + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + //TBFind.Click; + end; +end; + +procedure TfrmJYOrderCDOne.InitGrid10(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX :begdate,:enddate,:PState '); + Parameters.ParamByName('begdate').Value := '2012-01-01'; + Parameters.ParamByName('enddate').Value := '2011-01-01'; + Parameters.ParamByName('PState').Value := 3; + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJYOrderCDOne.InitForm(); +var + fsj: string; +begin + ReadCxGrid('鱨JF', Tv1, ''); + fsj := 'select distinct(Filler) name from WFB_MJJY '; + SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 1; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmJYOrderCDOne.TBFindClick(Sender: TObject); +var + fsj, fwhere: string; +begin + if ADOQueryMain.Active = False then + Exit; + + fwhere := SGetFilters(Panel1, 1, 2); + fsj := ''; + if trim(ISbao.Text) = 'Ѵ' then + begin + fsj := fsj + ' baoNo>''0'' '; + end + else if trim(ISbao.Text) = 'δ' then + begin + fsj := fsj + ' baoNo='''' '; + end; + + if trim(fsj) <> '' then + begin + if fwhere = '' then + fwhere := fsj + else + fwhere := fwhere + ' and ' + fsj; + end; + + SDofilter(ADOQueryMain, fwhere); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmJYOrderCDOne.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + SelExportData(Tv1, ADOQueryMain, '鱨'); +end; + +procedure TfrmJYOrderCDOne.TBRafreshClick(Sender: TObject); +begin + OrderNo.SetFocus; + MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; + MovePanel2.Visible := True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible := False; +end; + +procedure TfrmJYOrderCDOne.OrderNoChange(Sender: TObject); +begin + tbfind.Click; +end; + +procedure TfrmJYOrderCDOne.FormShow(Sender: TObject); +begin + InitForm(); + if Trim(DParameters2) = '' then + begin + TBManage.Visible := True; + TBZF.Visible := True; + v1Column15.Options.Focusing := True; + ToolButton3.Visible := true; + TBBN.Visible := true; + ToolButton12.Visible := true; + ToolButton1.Visible := true; + ToolButton9.Visible := true; + ToolButton4.Visible := true; + ToolButton6.Visible := true; + ToolButton5.Visible := true; + ToolButton7.Visible := true; + ToolButton11.Visible := true; + //TBAftChkHX.Visible:=True; + end; + if Trim(DParameters2) = 'Ʒ' then + begin + MJType.ItemIndex := MJType.Items.IndexOf('Ʒ'); + MJType.Enabled := false; + + end; +end; + +procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmJYOrderCDOne.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmJYOrderCDOne.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmJYOrderCDOne.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left := FLeft; + Panel4.Top := FTop + 110; + Panel4.Visible := True; + Panel4.Refresh; + Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text := Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmJYOrderCDOne.TBManageClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' and CRFlag='''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲɾ!', 'ʾ', 0); + Exit; + end; + try + frmMJEdit := TfrmMJEdit.Create(Application); + with frmMJEdit do + begin + MJID.Text := Trim(Self.Order_Main.fieldbyname('MJID').AsString); + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); + sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); + sql.Add(' where A.MJID=''' + Trim(MJID.Text) + ''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text := ''; + Label2.Caption := ''; + Label2.Visible := False; + Application.MessageBox('!', 'ʾ', 0); + Exit; + end; + MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); + MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + M.Caption := Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + Ma.Caption := Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + if Trim(m.Caption) = '' then + begin + m.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + end; + if Trim(Ma.Caption) = '' then + begin + Ma.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + end; + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = 'Ʒ' then + begin + RadioGroup1.ItemIndex := 0 + end + else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = 'Ʒ' then + begin + RadioGroup1.ItemIndex := 1; + end + else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '' then + begin + RadioGroup1.ItemIndex := 2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID=''' + Trim(MJID.Text) + ''''); + Open; + end; + Label2.Caption := Trim(MJID.Text); + Label2.Visible := True; + MJID.Text := ''; + SCreateCDS20(ADOTmp, Order_MJ); + SInitCDSData20(ADOTmp, Order_MJ); + if ShowModal = 1 then + begin + + end; + end; + finally + frmMJEdit.Free; + end; +end; + +procedure TfrmJYOrderCDOne.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main, True); +end; + +procedure TfrmJYOrderCDOne.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main, False); +end; + +procedure TfrmJYOrderCDOne.TBZFClick(Sender: TObject); +begin + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪϺݲָܻ', 'ʾ', 32 + 4) <> IDYES then + Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' and CRFlag='''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲɾ!', 'ʾ', 0); + Exit; + end + else + begin + //begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('delete CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + // end; + end; + Order_Main.Delete; + end + else + Next; + end; + end; + Order_Main.EnableControls; + +end; + +procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson=''' + Trim(DName) + ''''); + sql.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.MPRTCode,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName '); + sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A'); + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join CK_SXPB_CR D on D.SPId=A.APId '); + SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + Open; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('MJID').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; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM').AsString); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath1) then + DeleteFile(fImagePath1); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath1), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM2').AsString); + fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath2) then + DeleteFile(fImagePath2); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath2), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('DETM3').AsString); + fImagePath3 := ExtractFilePath(Application.ExeName) + 'image\temp3.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath3) then + DeleteFile(fImagePath3); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath3), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('LbName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LbName').AsString) + '.rmf' + else + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨӢıǩ.rmf'; + // fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\15029.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE1'] := fImagePath1; + RMVariables['QRBARCODE2'] := fImagePath2; + RMVariables['QRBARCODE3'] := fImagePath3; + RM2.LoadFromFile(fPrintFile); + Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); + RM2.ShowReport; + RM2.PrintReport; + { IF Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then + begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM3.LoadFromFile(fPrintFile); + RM3.DefaultCopies:=1; + // RM3.ShowReport; + RM3.PrintReport; + end; + end; } + end + else + begin + Order_Main.EnableControls; + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'), 'ʾ', 0); + Exit; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmJYOrderCDOne.RadioGroup1Click(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJYOrderCDOne.TBAftChkHXClick(Sender: TObject); +var + fsj, fsj10: string; +begin + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if Trim(fsj) = '' then + begin + fsj := Trim(Order_Main.fieldbyname('SubId').AsString); + end + else + begin + if Trim(fsj) <> Trim(Order_Main.fieldbyname('SubId').AsString) then + begin + Order_Main.EnableControls; + Application.MessageBox('ͬƷһ!', 'ʾ', 0); + Exit; + end; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if Trim(fsj10) = '' then + begin + fsj10 := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString); + end + else + begin + if Trim(fsj10) <> Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) then + begin + Order_Main.EnableControls; + Application.MessageBox('ͬȾһ!', 'ʾ', 0); + Exit; + end; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + +end; + +function TfrmJYOrderCDOne.Savedata(): Boolean; +var + maxno, LLID: string; + HXPS: Integer; + HXQty, HXMQty: Double; +begin + HXPS := 0; + HXQty := 0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); + sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + ''''); + Open; + end; + LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString); + if Trim(LLID) = '' then + begin + Result := False; + Application.MessageBox('ûӦļӹ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + HXPS := HXPS + 1; + HXQty := HXQty + Order_Main.FieldByName('MJLen').Value; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(''); + Open; + end; + except + end; +end; + +procedure TfrmJYOrderCDOne.AorddefstrChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(OrderNo.Text) < 4 then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql '); + Parameters.ParamByName('begdate').Value := '2010-01-01'; + Parameters.ParamByName('enddate').Value := '2050-01-01'; + Parameters.ParamByName('PState').Value := 3; +// Parameters.ParamByName('FFSql').Value:=' where CC.OrderNo like '''+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('FFSql').Value := ' where CC.OrderNo=''' + Trim(OrderNo.Text) + ''' '; + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible := False; + end; + +end; + +procedure TfrmJYOrderCDOne.PRTColorChange(Sender: TObject); +begin + TBFind.Click; + if Order_Main.IsEmpty = False then + begin + //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + // InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + end; +end; + +procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty = False then + begin + // InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + // InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + // InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); + end; +end; + +procedure TfrmJYOrderCDOne.GetCDSData(); +begin + CDS_CD.FieldByName('MJXH').Value := CDS_LS.fieldbyname('MJXH').Value; + CDS_CD.FieldByName('GangNo').Value := CDS_LS.fieldbyname('Aorddefstr1').Value; + CDS_CD.FieldByName('PRTColor').Value := CDS_LS.fieldbyname('PRTColor').Value; + CDS_CD.FieldByName('PRTEColor').Value := CDS_LS.fieldbyname('SOrddefstr4').Value; + CDS_CD.FieldByName('MJLen').Value := CDS_LS.fieldbyname('MJLen').Value; + CDS_CD.FieldByName('MJJZ').Value := CDS_LS.fieldbyname('MJQty4').Value; + CDS_CD.FieldByName('MJMZ').Value := CDS_LS.fieldbyname('MJMaoZ').Value; + CDS_CD.FieldByName('MJFK').Value := CDS_LS.fieldbyname('MJFK').Value; + CDS_CD.FieldByName('KFQtyHZ').Value := CDS_LS.fieldbyname('KFQtyHZ').Value; + CDS_CD.FieldByName('DengJi').Value := CDS_LS.fieldbyname('DengJi').Value; + CDS_CD.FieldByName('PanDing').Value := CDS_LS.fieldbyname('PanDing').Value; + CDS_CD.FieldByName('MJID').Value := CDS_LS.fieldbyname('MJID').Value; +end; + +procedure TfrmJYOrderCDOne.ToolButton2Click(Sender: TObject); +var + fPrintFile: string; +begin + GetBGData(); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf'; + if FileExists(fPrintFile) then + begin + RMCD.LoadFromFile(fPrintFile); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['CustomerNoName'] := Trim(Order_Main.fieldbyname('CustomerNoName').AsString); + RMVariables['MPRTCodeName'] := Trim(Order_Main.fieldbyname('MPRTCodeName').AsString); + RMVariables['MPRTMF'] := Trim(Order_Main.fieldbyname('MPRTMF').AsString); + RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString); + RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString); + RMCD.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmJYOrderCDOne.GetBGData(); +var + FMJId: string; + i, j, z: Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MJXH=Cast(0 as int),GangNo=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),MJID=Cast('''' as varchar(20))'); + sql.Add(',PRTEColor=Cast('''' as varchar(20)),MJLen=Cast(0 as decimal(18,2)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); + sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KFQtyHZ=Cast(0 as int),DengJi=Cast('''' as varchar(20)),PanDing=Cast('''' as varchar(20))'); + sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); + sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); + sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); + sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); + sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); + sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); + sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); + sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); + sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); + sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_CD); + SInitCDSData20(ADOQueryTemp, CDS_CD); + if CDS_CD.IsEmpty = False then + CDS_CD.Delete; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,Case when isnull(MJType,'''')=''Ʒ'' and KFQtyHZ<26 then ''A'' '); + sql.Add(' when isnull(MJType,'''')=''Ʒ'' and KFQtyHZ>33 then ''C'''); + sql.Add(' when isnull(MJType,'''')=''Ʒ'' and KFQtyHZ>25 and A.KFQtyHZ<34 then ''B'''); + sql.Add(' else MJType end as DengJi'); + sql.Add('from (select A.CDBeg,A.CDName,A.KouFenQty,B.MJXH,C.Aorddefstr1,JS.PRTColor,JS.SOrddefstr4,B.MJID '); + sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); + sql.Add(',B.MJLen,B.MJQty4,B.MJMaoZ,B.MJTypeOther,B.MJSJKZ,B.MJFK,B.MJType,B.PanDing'); + sql.Add(',KFQtyHZ=(select Sum(KouFenQty) from WFB_MJJY_CD MCD where MCD.MJID=B.MJID)'); + sql.Add(' from WFB_MJJY B inner join WFB_MJJY_CD A on B.MJID=A.MJID'); + sql.Add(' inner join JYOrder_Sub_AnPai C on B.APID=C.APID'); + sql.Add(' inner join JYOrder_Sub JS on C.SubId=JS.SubId'); + SQL.Add(' where B.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + if Trim(MJType.Text) <> '' then + begin + sql.Add(' and isnull(B.MJType,'''')=''' + Trim(MJType.Text) + ''''); + end; + + sql.Add(')A order by PRTColor,Cast(Aorddefstr1 as int),MJID,MJXH'); + Open; + end; + //ShowMessage(ADOQueryTemp.SQL.Text); + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp, CDS_LS); + SInitCDSData20(ADOQueryTemp, CDS_LS); + CDS_LS.DisableControls; + with CDS_LS do + begin + First; + while not Eof do + begin + if CDS_CD.IsEmpty then + begin + with CDS_CD do + begin + Append; + GetCDSData(); + if CheckBox1.Checked = True then + FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDEName').Value + else + FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg0').Value := CDS_LS.fieldbyname('CDBeg').Value; + FieldByName('KFQty0').Value := CDS_LS.fieldbyname('KouFenQty').Value; + FieldByName('XH').Value := 0; + Post; + FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString); + i := 0; //к + j := 0; + z := 0; //к + end; + end + else + begin + if Trim(CDS_LS.fieldbyname('MJID').AsString) = FMJId then + begin + i := i + 1; + if i < 10 then + begin + with CDS_CD do + begin + Edit; + GetCDSData(); + if CheckBox1.Checked = True then + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value + else + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; + FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; + Post; + end; + end + else + begin + i := 0; + with CDS_CD do + begin + Append; + GetCDSData(); + if CheckBox1.Checked = True then + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value + else + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; + FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; + Post; + end; + end; + end + else + begin + i := 0; + with CDS_CD do + begin + Append; + GetCDSData(); + if CheckBox1.Checked = True then + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value + else + FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; + FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; + Post; + end; + FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString); + end; + end; + Next; + end; + end; + CDS_LS.EnableControls; +end; + +procedure TfrmJYOrderCDOne.v1Column15PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + with Order_Main do + begin + Edit; + FieldByName('PanDing').Value := Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set PanDing=''' + Trim(mvalue) + ''''); + SQL.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmJYOrderCDOne.Button2Click(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmJYOrderCDOne.Button1Click(Sender: TObject); +var + i, J: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if trim(ComboBox4.Text) = '' then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + i := floattostr(strtofloatdef(trim(cxCurrencyEdit1.Text), 0)); + J := floattostr(strtofloatdef(trim(cxCurrencyEdit2.Text), 0)); + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); + if trim(ComboBox4.Text) = 'Ȼ㾻' then + begin + sql.Add('Update WFB_MJJY Set MKXs=''' + trim(i) + ''',MJQty3=''' + trim(J) + ''',MJQty4=cast(1.00000* MJlen *''' + trim(i) + ''' as decimal(18,1)) '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + end; + if trim(ComboBox4.Text) = 'ػ㳤' then + begin + sql.Add('Update WFB_MJJY Set MKXs=''' + trim(i) + ''',MJQty3=''' + trim(J) + ''',MJlen=cast(1.00000* MJQty4 *''' + trim(i) + ''' as decimal(18,0)) '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + end; + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel2.Visible := false; + TBRafresh.Click; + exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject); +begin + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Visible := true; +end; + +procedure TfrmJYOrderCDOne.CheckBox2Click(Sender: TObject); +begin + SelOKNo(Order_Main, CheckBox2.Checked); +end; + +procedure TfrmJYOrderCDOne.ToolButton4Click(Sender: TObject); +begin + frmCPDBao := TfrmCPDBao.Create(self); + with frmCPDBao do + begin + show; + + end; +// frmCPDBao.Release; +end; + +procedure TfrmJYOrderCDOne.ToolButton6Click(Sender: TObject); +var + strsql: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ𣿳ݲָܻ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if trim(fieldbyname('mjstr2').AsString) <> 'δ' then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ⲻܳ!', 'ʾϢ', MB_ICONERROR); + exit; + end; + strsql := 'ţ' + trim(Order_Main.FieldByName('MJID').AsString) + ';ID:' + trim(Order_Main.FieldByName('BAOID').AsString) + 'ţ' + trim(Order_Main.FieldByName('baoNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('Update CK_BanCP_CR Set baoID='''',baoNo='''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').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(strsql))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݳɹ', 'ʾϢ'); + TBRafresh.Click; + exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݳʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmJYOrderCDOne.ToolButton7Click(Sender: TObject); +begin + frmCPGangNo := TfrmCPGangNo.Create(self); + with frmCPGangNo do + begin + if showmodal = 1 then + begin + // InitGrid(); + end; + end; + frmCPGangNo.Free; +end; + +procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + frmJYMJIDPRINT := TfrmJYMJIDPRINT.create(self); + with frmJYMJIDPRINT do + begin + FMJId := trim(Order_Main.fieldbyname('MJID').AsString); + show; + end; +end; + +procedure TfrmJYOrderCDOne.ToolButton9Click(Sender: TObject); +begin + frmSMLB := TfrmSMLB.create(self); + with frmSMLB do + begin + show; + end; +end; + +procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject); +begin + Panel3.Visible := false; +end; + +procedure TfrmJYOrderCDOne.Button3Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + FBaoID: string; +begin + if Order_Main.IsEmpty then + Exit; + if trim(Order_Main.FieldByName('BaoID').AsString) = '' then + begin + application.MessageBox('δܴӡ', 'ʾ'); + exit; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + ''''); + SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); + Open; + end; + + if ADOQueryPrint.RecordCount > 1 then + begin + Application.MessageBox('´!', 'ʾ', 0); + Exit; + end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := trim(ADOQueryPrint.fieldbyname('baoID').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; + + if Check_bq.Checked then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf' + else + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.DefaultCopies := strtointdef(trim(ComboBox2.Text), 1); + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.printReport; + end + else + begin + // Order_Main.EnableControls; + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; + end; + + if check_Fbz.Checked then + begin + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Fbq.Text) + '.rmf'; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1); + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.printReport; + end + else + begin + // Order_Main.EnableControls; + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; + end; + +end; + +procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); +begin + Panel3.Left := (self.Width - Panel3.Width) div 2; + Panel3.Visible := true; +end; + +procedure TfrmJYOrderCDOne.FbqBtnClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'BAOFFLAG'; + flagname := 'ǩ'; + if ShowModal = 1 then + begin + Fbq.Text := trim(ClientDataSet1.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJYOrderCDOne.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(MJID.Text) < 4 then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql '); + Parameters.ParamByName('begdate').Value := '2010-01-01'; + Parameters.ParamByName('enddate').Value := '2050-01-01'; + Parameters.ParamByName('PState').Value := 3; + Parameters.ParamByName('FFSql').Value := ' where A.MJID like ''' + '%' + Trim(MJID.Text) + '%' + ''''; + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + if Order_Main.IsEmpty = False then + begin + //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + // InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + // InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); + end; + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible := False; + end; +end; + +procedure TfrmJYOrderCDOne.ToolButton10Click(Sender: TObject); +var + fPrintFile: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + 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; + ADOqueryCmd.Connection.BeginTrans; + try + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(fieldbyname('MJID').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + Order_Main.EnableControls; + ADOqueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + with ADOqueryPrint do + begin + close; + sql.Clear; + sql.Add(' exec P_Get_JYMJID_Main '); + sql.Add(' @MJID=' + quotedstr('')); + sql.Add(',@flag=''0'' '); + sql.Add(',@userID=' + quotedstr(trim(DCode))); + open; + end; + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ϣ.rmf'; + ; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + trim(fPrintFile)), 'ʾ', MB_ICONERROR); + exit; + end; + Rm2.LoadFromFile(fPrintFile); + Rm2.ShowReport; +end; + +procedure TfrmJYOrderCDOne.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(APID.Text) < 4 then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql '); + Parameters.ParamByName('begdate').Value := '2010-01-01'; + Parameters.ParamByName('enddate').Value := '2050-01-01'; + Parameters.ParamByName('PState').Value := 3; + Parameters.ParamByName('FFSql').Value := ' where B.APID like ''' + '%' + Trim(APID.Text) + '%' + ''''; + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + if Order_Main.IsEmpty = False then + begin + //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + // InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); + // InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); + end; + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible := False; + end; +end; + +procedure TfrmJYOrderCDOne.ISbaoChange(Sender: TObject); +begin + Tbfind.Click; +end; + +procedure TfrmJYOrderCDOne.ToolButton11Click(Sender: TObject); +var + fPrintFile, fPrintFile10, FMainID: string; +begin + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + + 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; + FMainID := ''; + Order_Main.DisableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + if FMainID = '' then + begin + FMainID := Trim(Order_Main.fieldbyname('mainID').AsString); + end + else + begin + if Trim(Order_Main.fieldbyname('mainID').AsString) <> FMainID then + begin + application.MessageBox('ѡIJͬһָʾһӡ', 'ʾϢ', 0); + ADOQueryCmd.Connection.RollbackTrans; + EnableControls; + exit; + end; + end; + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + Order_Main.EnableControls; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_HZ); + SInitCDSData20(ADOQueryCmd, CDS_HZ); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd30_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_PRT); + SInitCDSData20(ADOQueryCmd, CDS_PRT); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\뵥3.rmf'; + if FileExists(fPrintFile) then + begin + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + +end; + +procedure TfrmJYOrderCDOne.TBBNClick(Sender: TObject); +var + fmainid, fsubid: string; +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪת', 'ʾ', 32 + 4) <> IDYES then + Exit; + fmainid := ''; + frmProductOrderListSel := TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + if showmodal = 1 then + begin + fmainid := Order_Main.fieldbyname('MainID').asstring; + fsubid := Order_Main.fieldbyname('subID').asstring; + end; + free; + end; + if trim(fmainid) <> '' then + begin + ADOQueryCmd.Connection.BeginTrans; + try + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set MainId=''' + Trim(fmainid) + ''',SubId=''' + Trim(fsubid) + ''' '); + sql.Add('where MJID=' + quotedstr(trim(Order_Main.fieldbyName('MJID').AsString))); + sql.Add('UPdate CK_BanCP_CR Set MainId=''' + Trim(fmainid) + ''',SubId=''' + Trim(fsubid) + ''' '); + sql.Add('where MJID=' + quotedstr(trim(Order_Main.fieldbyName('MJID').AsString))); + execsql; + end; + end; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + TBRafresh.Click; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; + end; +end; + +procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject); +begin + Panel5.Visible := false; +end; + +procedure TfrmJYOrderCDOne.Button5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if trim(ComboBox5.Text) = '' then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJTypeOther=''' + trim(ComboBox5.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('Update CK_BanCP_CR Set QtyUnit=''' + trim(ComboBox5.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('Update CK_BanCP_KC Set kcQtyUnit=''' + trim(ComboBox5.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel2.Visible := false; + TBRafresh.Click; + exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmJYOrderCDOne.ToolButton12Click(Sender: TObject); +begin + Panel5.Visible := true; +end; + +procedure TfrmJYOrderCDOne.TV4DblClick(Sender: TObject); +begin + cxGrid4.Visible := False; + orderno.Text := CDS_CON.fieldbyname('orderno').AsString; + cxGrid4.Visible := False; + if Length(OrderNo.Text) < 4 then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql '); + Parameters.ParamByName('begdate').Value := '2010-01-01'; + Parameters.ParamByName('enddate').Value := '2050-01-01'; + Parameters.ParamByName('PState').Value := 3; +// Parameters.ParamByName('FFSql').Value:=' where CC.OrderNo like '''+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('FFSql').Value := ' where CC.OrderNo=''' + Trim(OrderNo.Text) + ''' '; + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible := False; +end; + +procedure TfrmJYOrderCDOne.BAONOChange(Sender: TObject); +begin + if Length(Trim(orderno.text)) > 3 then + begin + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*'); + sql.Add('from JYOrder_Main A'); + sql.Add('where A.orderno like ''' + '%' + Trim(OrderNo.Text) + '%' + ''''); +// showmessage(sql.text); + Open; + end; + SCreateCDS20(ADOQuery1, CDS_Con); + SInitCDSData20(ADOQuery1, CDS_Con); + + if CDS_Con.IsEmpty then + cxGrid4.Visible := False + else + cxGrid4.Visible := True; + end + else + begin + cxGrid4.Visible := False + end; +end; + +end. + diff --git a/贸易管理/U_JYResult.dfm b/贸易管理/U_JYResult.dfm new file mode 100644 index 0000000..580b681 --- /dev/null +++ b/贸易管理/U_JYResult.dfm @@ -0,0 +1,527 @@ +object frmJYResult: TfrmJYResult + Left = 134 + Top = 55 + Width = 1079 + Height = 664 + Caption = #26816#39564#32467#26524 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 63 + Top = 59 + Width = 74 + Height = 35 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 63 + Top = 122 + Width = 74 + Height = 35 + Caption = #21402#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 142 + Top = 204 + Width = 74 + Height = 35 + Caption = #21560#27700 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 867 + Top = 52 + Width = 70 + Height = 35 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 880 + Top = 120 + Width = 38 + Height = 35 + Caption = 'mm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 385 + Top = 204 + Width = 74 + Height = 35 + Caption = #27668#21619 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 625 + Top = 204 + Width = 111 + Height = 35 + Caption = #33394#29282#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object KZ1: TEdit + Left = 142 + Top = 55 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = KZ1Click + end + object KZ2: TEdit + Left = 288 + Top = 55 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = KZ2Click + end + object KZ3: TEdit + Left = 434 + Top = 55 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = KZ3Click + end + object KZ4: TEdit + Left = 580 + Top = 55 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = KZ4Click + end + object KZ5: TEdit + Left = 726 + Top = 55 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = KZ5Click + end + object HD1: TEdit + Left = 142 + Top = 118 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = HD1Click + end + object HD2: TEdit + Left = 288 + Top = 118 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = HD2Click + end + object HD3: TEdit + Left = 434 + Top = 118 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = HD3Click + end + object HD4: TEdit + Left = 580 + Top = 118 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = HD4Click + end + object HD5: TEdit + Left = 726 + Top = 118 + Width = 140 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = HD5Click + end + object XSWater: TComboBox + Left = 216 + Top = 195 + Width = 129 + Height = 56 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ItemHeight = 48 + ParentFont = False + TabOrder = 10 + Items.Strings = ( + #22909 + #23578#21487 + #27424#20339) + end + object QiWei: TComboBox + Left = 460 + Top = 195 + Width = 129 + Height = 56 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ItemHeight = 48 + ParentFont = False + TabOrder = 11 + Items.Strings = ( + #26377 + #26080) + end + object Button1: TButton + Left = 296 + Top = 514 + Width = 120 + Height = 90 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = Button1Click + end + object Button2: TButton + Left = 592 + Top = 514 + Width = 120 + Height = 90 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + OnClick = Button2Click + end + object Panel3: TPanel + Left = 187 + Top = 272 + Width = 618 + Height = 212 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 14 + object SpeedButton1: TSpeedButton + Left = 412 + Top = 108 + Width = 100 + Height = 100 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 3 + Top = 2 + Width = 100 + Height = 100 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 105 + Top = 2 + Width = 100 + Height = 100 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 207 + Top = 2 + Width = 100 + Height = 100 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 309 + Top = 2 + Width = 100 + Height = 100 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 411 + Top = 2 + Width = 100 + Height = 100 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 4 + Top = 108 + Width = 100 + Height = 100 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 106 + Top = 108 + Width = 100 + Height = 100 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 208 + Top = 108 + Width = 100 + Height = 100 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 310 + Top = 108 + Width = 100 + Height = 100 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 514 + Top = 108 + Width = 100 + Height = 100 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 513 + Top = 2 + Width = 100 + Height = 100 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + end + object SeLD: TComboBox + Left = 737 + Top = 195 + Width = 129 + Height = 56 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ItemHeight = 48 + ParentFont = False + TabOrder = 15 + Items.Strings = ( + #22909 + #19981#22909 + #20813#26816) + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 960 + Top = 528 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 984 + Top = 456 + end +end diff --git a/贸易管理/U_JYResult.pas b/贸易管理/U_JYResult.pas new file mode 100644 index 0000000..ad818b0 --- /dev/null +++ b/贸易管理/U_JYResult.pas @@ -0,0 +1,480 @@ +unit U_JYResult; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, DB, ADODB, Buttons, ExtCtrls; + +type + TfrmJYResult = class(TForm) + Label1: TLabel; + KZ1: TEdit; + KZ2: TEdit; + KZ3: TEdit; + KZ4: TEdit; + KZ5: TEdit; + Label2: TLabel; + HD1: TEdit; + HD2: TEdit; + HD3: TEdit; + HD4: TEdit; + HD5: TEdit; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + XSWater: TComboBox; + Label6: TLabel; + QiWei: TComboBox; + Button1: TButton; + Button2: TButton; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + Label7: TLabel; + SeLD: TComboBox; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure KZ1Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure KZ2Click(Sender: TObject); + procedure KZ3Click(Sender: TObject); + procedure KZ4Click(Sender: TObject); + procedure KZ5Click(Sender: TObject); + procedure HD1Click(Sender: TObject); + procedure HD2Click(Sender: TObject); + procedure HD3Click(Sender: TObject); + procedure HD4Click(Sender: TObject); + procedure HD5Click(Sender: TObject); + private + Fint:Integer; + { Private declarations } + public + { Public declarations } + end; + +var + frmJYResult: TfrmJYResult; + +implementation +uses +U_DataLink,U_Fun,U_iniParam; + +{$R *.dfm} + +procedure TfrmJYResult.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; +end; + +procedure TfrmJYResult.FormDestroy(Sender: TObject); +begin + frmJYResult:=nil; +end; + +procedure TfrmJYResult.Button1Click(Sender: TObject); +var + MJIDInt:Integer; + maxno,maxno10,maxno20,FBanZu:String; +begin + if( (Trim(KZ1.Text)<>'') and (Trim(KZ2.Text)<>'') and (Trim(KZ3.Text)<>'') and + (Trim(KZ4.Text)<>'') and (Trim(KZ5.Text)<>'') )=False then + begin + Application.MessageBox('ݲȫ','ʾ',0); + Exit; + end; + if( (Trim(HD1.Text)<>'') and (Trim(HD2.Text)<>'') and (Trim(HD3.Text)<>'') and + (Trim(HD4.Text)<>'') and (Trim(HD5.Text)<>'') )=False then + begin + Application.MessageBox('ݲȫ','ʾ',0); + Exit; + end; + if Trim(XSWater.Text)='' then + begin + Application.MessageBox('ˮΪգ','ʾ',0); + Exit; + end; + if Trim(QiWei.Text)='' then + begin + Application.MessageBox('ζΪգ','ʾ',0); + Exit; + end; + if Trim(SeLD.Text)='' then + begin + Application.MessageBox('ɫζȲΪգ','ʾ',0); + Exit; + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where Cast(MJID as int)='); + sql.Add('(select Max(Cast(MJID as int) ) from WFB_JYResult'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + sql.Add(')'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + SQL.Clear; + SQL.Add('select Top 1* from WFB_JYResult'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + Application.MessageBox('ϾδӡǩԽ飡','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִвȷݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Max(Cast(MJID as int)),0) MJIDInt from WFB_MJJY'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + // 112091201 20120914 + MJIDInt:=ADOQueryTemp.fieldbyname('MJIDInt').Value; + maxno10:=Trim(FormatDateTime('yyyyMMdd',SGetServerDateTime(ADOQueryTemp))); + maxno10:=Trim(SCXFlag)+Trim(Copy(maxno10,3,6)); + maxno20:=IntToStr(MJIDInt); + maxno20:=Copy(maxno20,1,7); + try + ADOQueryCmd.Connection.BeginTrans; + if MJIDInt>0 then + begin + if StrToInt(maxno10)>StrToInt(maxno20) then + begin + if GetLSNo(ADOQueryCmd,maxno,Trim(SCXFlag),'WFB_MJJY',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + maxno:=Trim(IntToStr(MJIDInt+1)) + end else + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from WFB_JB '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,Trim(SCXFlag),'WFB_MJJY',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ADOQueryTemp.fieldbyname('MJID').AsString); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JYResult where MJID='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ѿ飡','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FBanZu:=Trim(ADOQueryTemp.fieldbyname('BanZu').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JYResult where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('BanZu').Value:=Trim(FBanZu); + FieldByName('KZ1').Value:=Trim(KZ1.Text); + FieldByName('KZ2').Value:=Trim(KZ2.Text); + FieldByName('KZ3').Value:=Trim(KZ3.Text); + FieldByName('KZ4').Value:=Trim(KZ4.Text); + FieldByName('KZ5').Value:=Trim(KZ5.Text); + FieldByName('HD1').Value:=Trim(HD1.Text); + FieldByName('HD2').Value:=Trim(HD2.Text); + FieldByName('HD3').Value:=Trim(HD3.Text); + FieldByName('HD4').Value:=Trim(HD4.Text); + FieldByName('HD5').Value:=Trim(HD5.Text); + FieldByName('XSWater').Value:=Trim(XSWater.Text); + FieldByName('QiWei').Value:=Trim(QiWei.Text); + FieldByName('SeLD').Value:=Trim(SeLD.Text); + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + Exit; + except + DataLink_WFBProducttion.ADOLink.Connected:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmJYResult.Button2Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmJYResult.KZ1Click(Sender: TObject); +begin + Fint:=1; +end; + +procedure TfrmJYResult.SpeedButton1Click(Sender: TObject); +begin + if Fint=1 then + begin + KZ1.Text:=Trim(KZ1.Text)+Trim(TSpeedButton(Sender).Caption); + KZ1.SelectAll; + end else + if Fint=2 then + begin + KZ2.Text:=Trim(KZ2.Text)+Trim(TSpeedButton(Sender).Caption); + KZ2.SelectAll; + end else + if Fint=3 then + begin + KZ3.Text:=Trim(KZ3.Text)+Trim(TSpeedButton(Sender).Caption); + KZ3.SelectAll; + end else + if Fint=4 then + begin + KZ4.Text:=Trim(KZ4.Text)+Trim(TSpeedButton(Sender).Caption); + KZ4.SelectAll; + end else + if Fint=5 then + begin + KZ5.Text:=Trim(KZ5.Text)+Trim(TSpeedButton(Sender).Caption); + KZ5.SelectAll; + end else + if Fint=6 then + begin + HD1.Text:=Trim(HD1.Text)+Trim(TSpeedButton(Sender).Caption); + HD1.SelectAll; + end else + if Fint=7 then + begin + HD2.Text:=Trim(HD2.Text)+Trim(TSpeedButton(Sender).Caption); + HD2.SelectAll; + end else + if Fint=8 then + begin + HD3.Text:=Trim(HD3.Text)+Trim(TSpeedButton(Sender).Caption); + HD3.SelectAll; + end else + if Fint=9 then + begin + HD4.Text:=Trim(HD4.Text)+Trim(TSpeedButton(Sender).Caption); + HD4.SelectAll; + end else + if Fint=10 then + begin + HD5.Text:=Trim(HD5.Text)+Trim(TSpeedButton(Sender).Caption); + HD5.SelectAll; + end; +end; + +procedure TfrmJYResult.SpeedButton12Click(Sender: TObject); +begin + if Fint=1 then + begin + if Trim(KZ1.Text)<>'' then + begin + KZ1.Text:=Copy(Trim(KZ1.Text),1,Length(Trim(KZ1.Text))-1); + KZ1.SelectAll; + end; + end else + if Fint=2 then + begin + if Trim(KZ2.Text)<>'' then + begin + KZ2.Text:=Copy(Trim(KZ2.Text),1,Length(Trim(KZ2.Text))-1); + KZ2.SelectAll; + end; + end else + if Fint=3 then + begin + if Trim(KZ3.Text)<>'' then + begin + KZ3.Text:=Copy(Trim(KZ3.Text),1,Length(Trim(KZ3.Text))-1); + KZ3.SelectAll; + end; + end else + if Fint=4 then + begin + if Trim(KZ4.Text)<>'' then + begin + KZ4.Text:=Copy(Trim(KZ4.Text),1,Length(Trim(KZ4.Text))-1); + KZ4.SelectAll; + end; + end else + if Fint=5 then + begin + if Trim(KZ5.Text)<>'' then + begin + KZ5.Text:=Copy(Trim(KZ5.Text),1,Length(Trim(KZ5.Text))-1); + KZ5.SelectAll; + end; + end else + if Fint=6 then + begin + if Trim(HD1.Text)<>'' then + begin + HD1.Text:=Copy(Trim(HD1.Text),1,Length(Trim(HD1.Text))-1); + HD1.SelectAll; + end; + end else + if Fint=7 then + begin + if Trim(HD2.Text)<>'' then + begin + HD2.Text:=Copy(Trim(HD2.Text),1,Length(Trim(HD2.Text))-1); + HD2.SelectAll; + end; + end else + if Fint=8 then + begin + if Trim(HD3.Text)<>'' then + begin + HD3.Text:=Copy(Trim(HD3.Text),1,Length(Trim(HD3.Text))-1); + HD3.SelectAll; + end; + end else + if Fint=9 then + begin + if Trim(HD4.Text)<>'' then + begin + HD4.Text:=Copy(Trim(HD4.Text),1,Length(Trim(HD4.Text))-1); + HD4.SelectAll; + end; + end else + if Fint=10 then + begin + if Trim(HD5.Text)<>'' then + begin + HD5.Text:=Copy(Trim(HD5.Text),1,Length(Trim(HD5.Text))-1); + HD5.SelectAll; + end; + end; +end; + +procedure TfrmJYResult.FormShow(Sender: TObject); +begin + Fint:=1; + KZ1.SetFocus; +end; + +procedure TfrmJYResult.KZ2Click(Sender: TObject); +begin + Fint:=2; +end; + +procedure TfrmJYResult.KZ3Click(Sender: TObject); +begin + Fint:=3; +end; + +procedure TfrmJYResult.KZ4Click(Sender: TObject); +begin + Fint:=4; +end; + +procedure TfrmJYResult.KZ5Click(Sender: TObject); +begin + Fint:=5; +end; + +procedure TfrmJYResult.HD1Click(Sender: TObject); +begin + Fint:=6; +end; + +procedure TfrmJYResult.HD2Click(Sender: TObject); +begin + Fint:=7; +end; + +procedure TfrmJYResult.HD3Click(Sender: TObject); +begin + Fint:=8; +end; + +procedure TfrmJYResult.HD4Click(Sender: TObject); +begin + Fint:=9; +end; + +procedure TfrmJYResult.HD5Click(Sender: TObject); +begin + Fint:=10; +end; + +end. diff --git a/贸易管理/U_JiangLiaoSet.dfm b/贸易管理/U_JiangLiaoSet.dfm new file mode 100644 index 0000000..0fbe367 --- /dev/null +++ b/贸易管理/U_JiangLiaoSet.dfm @@ -0,0 +1,968 @@ +object frmJiangLiaoSet: TfrmJiangLiaoSet + Left = 36 + Top = 5 + Width = 1225 + Height = 754 + Caption = #27974#26009#37197#21046#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 14 + object Label12: TLabel + Left = 664 + Top = 15 + Width = 30 + Height = 14 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1217 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 63 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 67 + Top = 0 + Caption = #25764#38144 + ImageIndex = 7 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 130 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1217 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 60 + Height = 14 + Caption = #31614#21457#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 187 + Top = 15 + Width = 21 + Height = 14 + Caption = '---' + end + object Label3: TLabel + Left = 328 + Top = 15 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 528 + Top = 15 + Width = 30 + Height = 14 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 688 + Top = 15 + Width = 30 + Height = 14 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 824 + Top = 15 + Width = 60 + Height = 14 + Caption = #37197#27974#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 83 + Top = 11 + Width = 105 + Height = 22 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 201 + Top = 11 + Width = 103 + Height = 22 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 376 + Top = 11 + Width = 137 + Height = 22 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 560 + Top = 11 + Width = 105 + Height = 22 + TabOrder = 3 + OnChange = OrderNoChange + end + object SWFBColor: TComboBox + Tag = 1 + Left = 721 + Top = 11 + Width = 78 + Height = 22 + Style = csDropDownList + ItemHeight = 14 + TabOrder = 4 + OnChange = OrderNoChange + end + object ZuHeID: TEdit + Tag = 2 + Left = 885 + Top = 11 + Width = 137 + Height = 22 + TabOrder = 5 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1217 + Height = 24 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#37197#21046 + #24050#37197#21046) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1217 + ClientRectTop = 21 + end + object cxGrid4: TcxGrid + Left = 0 + Top = 95 + Width = 1217 + Height = 242 + Align = alClient + TabOrder = 3 + object TvOrdNo: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = TvOrdNoCellClick + DataController.DataSource = DSOrdNo + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object vOrderBakColumn1: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 39 + end + object vOrderBakColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 118 + end + object vOrderBakColumn3: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object vOrdNoColumn2: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 69 + end + object vOrdNoColumn3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object vOrderBakColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + end + object vOrderBakColumn5: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object vOrdNoColumn1: TcxGridDBColumn + Caption = #37197#27974#21333#21495 + DataBinding.FieldName = 'ZuHeID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 117 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdNo + end + end + object Panel2: TPanel + Left = 0 + Top = 337 + Width = 1217 + Height = 71 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label4: TLabel + Left = 5 + Top = 41 + Width = 80 + Height = 15 + Caption = #37197#21046#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 162 + Top = 41 + Width = 18 + Height = 15 + Caption = 'KG' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 5 + Top = 12 + Width = 80 + Height = 15 + Caption = #20135#21697#22411#21495#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 = 183 + Top = 12 + Width = 48 + Height = 15 + Caption = #23380#30446#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 183 + Top = 41 + Width = 48 + Height = 15 + Caption = #33457#22411#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 = 453 + Top = 41 + Width = 80 + Height = 15 + Caption = #37197#21046#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 610 + Top = 41 + Width = 18 + Height = 15 + Caption = 'KG' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MCQty: TEdit + Tag = 2 + Left = 76 + Top = 37 + Width = 84 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = MCQtyChange + OnKeyPress = MCQtyKeyPress + end + object WFBCpSpec: TcxButtonEdit + Left = 76 + Top = 10 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = SWFBCodeNamePropertiesButtonClick + TabOrder = 1 + Width = 84 + end + object WKMS: TcxButtonEdit + Left = 222 + Top = 10 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = WKMSPropertiesButtonClick + TabOrder = 2 + Width = 58 + end + object SWFBHW: TcxButtonEdit + Left = 222 + Top = 38 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxButtonEdit2PropertiesButtonClick + TabOrder = 3 + Width = 58 + end + object BtnSave: TButton + Left = 376 + Top = 10 + Width = 54 + Height = 22 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = BtnSaveClick + end + object BtnPrint: TButton + Left = 376 + Top = 38 + Width = 55 + Height = 22 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = BtnPrintClick + end + object BtnChkNo: TButton + Left = 288 + Top = 38 + Width = 80 + Height = 22 + Caption = #23457#26680#19981#36890#36807 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = BtnChkNoClick + end + object BtnChkOk: TButton + Left = 288 + Top = 10 + Width = 80 + Height = 22 + Caption = #23457#26680#36890#36807 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = BtnChkOkClick + end + object MCQty10: TEdit + Tag = 2 + Left = 524 + Top = 37 + Width = 84 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MCQty10Change + OnKeyPress = MCQtyKeyPress + end + end + object Panel3: TPanel + Left = 0 + Top = 408 + Width = 1217 + Height = 309 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label7: TLabel + Left = 1100 + Top = 51 + Width = 45 + Height = 14 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 1100 + Top = 131 + Width = 45 + Height = 14 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label9: TLabel + Left = 1100 + Top = 211 + Width = 45 + Height = 14 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 435 + Height = 305 + Align = alLeft + PopupMenu = PopupMenu3 + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSub + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + SortIndex = 0 + SortOrder = soAscending + Width = 53 + end + object v1Column3: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object v1Column4: TcxGridDBColumn + Caption = #39044#20272#25968#37327'(kg)' + DataBinding.FieldName = 'YGQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #37197#27604#37327 + DataBinding.FieldName = 'PBQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #23454#38469#25968#37327'(kg)' + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 91 + end + end + object cxGrid1Level4: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid3: TcxGrid + Left = 437 + Top = 2 + Width = 337 + Height = 305 + Align = alLeft + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSJYFZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v2Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + SortIndex = 0 + SortOrder = soAscending + Width = 59 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object v2Column2: TcxGridDBColumn + Caption = #37197#27604#37327 + DataBinding.FieldName = 'PBQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column4: TcxGridDBColumn + Tag = 2 + Caption = #23454#38469#25968#37327'(kg)' + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 92 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 774 + Top = 2 + Width = 153 + Height = 305 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel8: TPanel + Left = 2 + Top = 2 + Width = 149 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #22791#27880 + TabOrder = 0 + end + object MCNote: TRichEdit + Left = 2 + Top = 27 + Width = 149 + Height = 276 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ScrollBars = ssBoth + TabOrder = 1 + end + end + object Panel5: TPanel + Left = 927 + Top = 2 + Width = 154 + Height = 305 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 150 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35746#21333#21495 + TabOrder = 0 + end + object OrderNoSL: TRichEdit + Left = 2 + Top = 27 + Width = 150 + Height = 276 + Align = alClient + ScrollBars = ssBoth + TabOrder = 1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 208 + Top = 256 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 255 + end + object DSOrdNo: TDataSource + DataSet = CDS_Main + Left = 240 + Top = 256 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 934 + Top = 469 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 176 + Top = 258 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 690 + Top = 272 + end + object DSSub: TDataSource + DataSet = CDS_Sub + Left = 586 + Top = 264 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 642 + Top = 264 + end + object PopupMenu3: TPopupMenu + Left = 298 + Top = 525 + object MenuItem3: TMenuItem + Caption = #22686#34892 + OnClick = MenuItem3Click + end + object MenuItem4: TMenuItem + Caption = #21024#34892 + OnClick = MenuItem4Click + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 408 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 830 + Top = 488 + 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 = RMDBZY + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 870 + Top = 504 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 966 + Top = 466 + 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 = 806 + Top = 392 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 618 + Top = 460 + end + object RMDBZY: TRMDBDataSet + Visible = True + DataSet = CDS_Sub + Left = 830 + Top = 488 + end + object RMDBFZ: TRMDBDataSet + Visible = True + Left = 806 + Top = 496 + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 754 + Top = 471 + end + object DSJYFZ: TDataSource + DataSet = CDS_JYFZ + Left = 842 + Top = 575 + end + object CDS_JYFZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 898 + Top = 511 + end + object PopupMenu1: TPopupMenu + Left = 514 + Top = 519 + object MenuItem1: TMenuItem + Caption = #22686#34892 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #21024#34892 + OnClick = MenuItem2Click + end + end +end diff --git a/贸易管理/U_JiangLiaoSet.pas b/贸易管理/U_JiangLiaoSet.pas new file mode 100644 index 0000000..43e3835 --- /dev/null +++ b/贸易管理/U_JiangLiaoSet.pas @@ -0,0 +1,1182 @@ +unit U_JiangLiaoSet; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGrid, cxPC, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCheckBox, Menus, cxTextEdit, RM_Common, RM_Class, + RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, cxContainer, cxMaskEdit, + cxButtonEdit; + +type + TfrmJiangLiaoSet = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxTabControl1: TcxTabControl; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DSOrdNo: TDataSource; + ADOCmd: TADOQuery; + ADOQueryMain: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DSSub: TDataSource; + CDS_Sub: TClientDataSet; + ToolButton1: TToolButton; + PopupMenu3: TPopupMenu; + MenuItem3: TMenuItem; + MenuItem4: TMenuItem; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + RMDBMain: TRMDBDataSet; + RM1: TRMGridReport; + ADOQueryPrint: TADOQuery; + RMXLSExport1: TRMXLSExport; + Label10: TLabel; + CustomNoName: TEdit; + Label11: TLabel; + Label12: TLabel; + cxGridPopupMenu3: TcxGridPopupMenu; + TvOrdNo: TcxGridDBTableView; + cxGrid4Level1: TcxGridLevel; + cxGrid4: TcxGrid; + vOrderBakColumn1: TcxGridDBColumn; + vOrderBakColumn2: TcxGridDBColumn; + vOrderBakColumn3: TcxGridDBColumn; + vOrderBakColumn4: TcxGridDBColumn; + vOrderBakColumn5: TcxGridDBColumn; + RMDBZY: TRMDBDataSet; + RMDBFZ: TRMDBDataSet; + SWFBColor: TComboBox; + vOrdNoColumn1: TcxGridDBColumn; + Label18: TLabel; + ZuHeID: TEdit; + vOrdNoColumn2: TcxGridDBColumn; + vOrdNoColumn3: TcxGridDBColumn; + Panel2: TPanel; + Label4: TLabel; + Label5: TLabel; + Label14: TLabel; + Label16: TLabel; + Label17: TLabel; + MCQty: TEdit; + WFBCpSpec: TcxButtonEdit; + WKMS: TcxButtonEdit; + SWFBHW: TcxButtonEdit; + BtnSave: TButton; + BtnPrint: TButton; + BtnChkNo: TButton; + BtnChkOk: TButton; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGrid1Level4: TcxGridLevel; + cxGrid3: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + ADOTemp: TADOQuery; + DSJYFZ: TDataSource; + CDS_JYFZ: TClientDataSet; + PopupMenu1: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + v1Column2: TcxGridDBColumn; + Panel4: TPanel; + Panel5: TPanel; + Panel8: TPanel; + MCNote: TRichEdit; + Panel6: TPanel; + OrderNoSL: TRichEdit; + ToolButton2: TToolButton; + v2Column2: TcxGridDBColumn; + Label6: TLabel; + Label13: TLabel; + MCQty10: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure MenuItem3Click(Sender: TObject); + procedure MenuItem4Click(Sender: TObject); + procedure BtnSaveClick(Sender: TObject); + procedure TvOrdNoCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MCQtyKeyPress(Sender: TObject; var Key: Char); + procedure BtnChkOkClick(Sender: TObject); + procedure BtnChkNoClick(Sender: TObject); + procedure BtnPrintClick(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure SWFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WKMSPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxButtonEdit2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure MCQtyChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure MCQty10Change(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + ChkInt:Integer; + procedure InitGridMain(); + procedure InitGrid(); + procedure MCData(); + procedure InitGridMainSel(); + public + { Public declarations } + end; + +var + frmJiangLiaoSet: TfrmJiangLiaoSet; + +implementation +uses + U_DataLink,U_Fun,U_GetPGJBOneTwoInList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmJiangLiaoSet.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJiangLiaoSet.FormDestroy(Sender: TObject); +begin + frmJiangLiaoSet:=nil; +end; + +procedure TfrmJiangLiaoSet.InitGrid(); +begin + try + ADOTemp.DisableControls; + with ADOTemp do + begin + Close; + SQL.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+''''); + end else + sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(CDS_Main.fieldbyname('ZuHeID').AsString)+''''); + sql.Add(' and JYType=''ҪҺ'' '); + sql.Add(' order by OrderNo'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_Sub); + SInitCDSData20(ADOTemp,CDS_Sub); + with ADOTemp do + begin + Close; + SQL.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+''''); + end else + sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(CDS_Main.fieldbyname('ZuHeID').AsString)+''''); + sql.Add(' and JYType=''Һ'' '); + sql.Add(' order by OrderNo'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_JYFZ); + SInitCDSData20(ADOTemp,CDS_JYFZ); + finally + ADOTemp.EnableControls; + end; +end; + +procedure TfrmJiangLiaoSet.InitGridMain(); +begin + //BegDate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,OrderNo=(select OrderNo from WFBOrder_Main B where B.MainId=A.MainId), '); + sql.Add(' OrderQty=(select Sum(SOrdQty) from WFBOrder_Sub WS where WS.MainId=A.MainId and WS.SWFBColor=A.SWFBColor),'); + SQL.Add(' OrderUnit=(select OrdUnit from WFBOrder_Main B where B.MainId=A.MainId),'); + sql.Add(' OrderNoSL=dbo.F_Get_WFBOrder_SubStr(A.ZuHeId,''OrderNoSL''),'); + sql.Add(' CustomNoName=(select ZdyName from KH_Zdy B inner join WFBOrder_Main C on B.ZdyNo=C.CustomNo'); + sql.Add(' where C.MainId=A.MainId)'); + sql.Add(' from WFBYCL_MainIdColor_JiangYe A '); + SQL.Add(' inner join WFBOrder_Main C on A.MainId=C.MainId where C.ChkStatus=''ͨ'' '); + if cxTabControl1.TabIndex=0 then + SQL.Add(' and not exists(select * from WFBYCL_JiangYe WJY where WJY.ZuHeId=A.ZuHeId)') + else + if cxTabControl1.TabIndex>0 then + begin + sql.Add('and exists(select * from WFBYCL_JiangYe WJY where WJY.ZuHeId=A.ZuHeId) and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add('and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmJiangLiaoSet.InitGridMainSel(); +begin + //BegDate.SetFocus; + { try + ADOTemp.DisableControls; + with ADOTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add(' select A.*,OrderNo=(select OrderNo from WFBOrder_Main B '); + sql.Add(' where B.MainId=A.MainId), '); + sql.Add(' CustomNoName=(select ZdyName from KH_Zdy B inner join WFBOrder_Main C on B.ZdyNo=C.CustomNo'); + sql.Add(' where C.MainId=A.MainId)'); + sql.Add(' from WFBYCL_MainIdColor_JiangYe A '); + sql.Add(' where A.ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sel); + SInitCDSData20(ADOQueryMain,CDS_Sel); + finally + ADOQueryMain.EnableControls; + end; } +end; + +procedure TfrmJiangLiaoSet.ToolButton1Click(Sender: TObject); +begin + InitGridMain(); +end; + +procedure TfrmJiangLiaoSet.FormShow(Sender: TObject); +var + fsj:String; +begin + fsj:='select ZdyName name from KH_Zdy where Type=''WFBColor'' '; + SInitComBoxBySql(ADOTemp,SWFBColor,False,fsj); + EndDate.DateTime:=SGetServerDate(ADOTemp); + BegDate.DateTime:=EndDate.DateTime-30; + ReadCxGrid('New',Tv1,'޷IJ'); + ReadCxGrid('FZ',Tv2,'޷IJ'); + ReadCxGrid('ɫ',TvOrdNo,'޷IJ'); + InitGridMain(); + if Trim(DParameters1)='' then + begin + BtnSave.Visible:=False; + vOrderBakColumn1.Visible:=False; + v1Column1.Options.Focusing:=False; + v1Column2.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column5.Options.Focusing:=False; + v2Column4.Options.Focusing:=False; + MCQty.ReadOnly:=True; + MCQty10.ReadOnly:=True; + end else + begin + BtnChkOk.Visible:=False; + BtnChkNo.Visible:=False; + vOrderBakColumn1.Visible:=True; + end; + + //InitGrid(); +end; + +procedure TfrmJiangLiaoSet.cxTabControl1Change(Sender: TObject); +begin + InitGridMain(); + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + InitGrid(); + MCQty.Text:=Trim(CDS_Main.fieldbyname('MCQty').AsString); + MCQty10.Text:=Trim(CDS_Main.fieldbyname('MCQtySJ').AsString); + MCNote.Text:=Trim(CDS_Main.fieldbyname('MCNote').AsString); + if cxTabControl1.TabIndex>0 then + begin + Label7.Visible:=True; + Label8.Visible:=True; + Label9.Visible:=True; + Label7.Caption:='Ƶˣ'+Trim(CDS_Main.fieldbyname('Filler').AsString); + Label8.Caption:='ˣ'+Trim(CDS_Main.fieldbyname('Chker').AsString); + Label9.Caption:='״̬'+Trim(CDS_Main.fieldbyname('ChkStatus').AsString); + end else + begin + Label7.Visible:=False; + Label8.Visible:=False; + Label9.Visible:=False; + end; +end; + +procedure TfrmJiangLiaoSet.OrderNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmJiangLiaoSet.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('New',Tv1,'޷IJ'); + WriteCxGrid('FZ',Tv2,'޷IJ'); + WriteCxGrid('ɫ',TvOrdNo,'޷IJ'); +end; + +procedure TfrmJiangLiaoSet.MenuItem3Click(Sender: TObject); +begin + if BtnSave.Visible=False then Exit; + try + frmGetPGJBOneTwoInList:=TfrmGetPGJBOneTwoInList.Create(Application); + with frmGetPGJBOneTwoInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with CDS_Sub do + begin + Append; + CDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + CDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + //CDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + Post; + end; + Next; + end; + end; + end; + end; + finally + frmGetPGJBOneTwoInList.Free; + end; +end; + +procedure TfrmJiangLiaoSet.MenuItem4Click(Sender: TObject); +begin + if BtnSave.Visible=False then Exit; + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.FieldByName('YJID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_JiangYe where YJID='''+Trim(CDS_Sub.FieldByName('YJID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Sub.Delete; + {if CDS_Sub.IsEmpty=False then + MCQty.Text:=FloatToStr(Tv1.DataController.Summary.FooterSummaryValues[0]) + else + MCQty.Text:='0'; } +end; + +procedure TfrmJiangLiaoSet.BtnSaveClick(Sender: TObject); +var + maxno,FMCQty,FColor,FZuHeId:string; +begin + if ChkInt<>1 then + begin + if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('ͨݲ޸ģ','ʾ',0); + Exit; + end; + end else + begin + if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('ͨȷҪ','ʾ',32+4)<>IDYES then + begin + ChkInt:=2; + Exit; + end; + end; + end; + + + if CDS_Main.IsEmpty then Exit; + if CDS_Sub.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + if Trim(FColor)='' then + FColor:=Trim(CDS_Main.fieldbyname('SWFBColor').AsString) + else + if Trim(CDS_Main.fieldbyname('SWFBColor').AsString)<>FColor then + begin + CDS_Main.EnableControls; + Application.MessageBox('ɫͬܺϲƣ','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; + if Trim(MCQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + try + BegDate.SetFocus; + ADOCmd.Connection.BeginTrans; + if GetLSNo(ADOCmd,FZuHeId,'ZH','WFBYCL_MainIdColor_JiangYe',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡIDʧܣ','ʾ',0); + Exit; + end; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('YJID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'YJ','WFBYCL_JiangYe',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('YJID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_JiangYe where YJID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_Sub.fieldbyname('YJID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTemp); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(CDS_Sub.fieldbyname('MCID').AsString)<>'' then + begin + FieldByName('MCID').Value:=Trim(CDS_Sub.fieldbyname('MCID').AsString); + FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('MainId').AsString); + FieldByName('SWFBColor').Value:=Trim(CDS_Sub.fieldbyname('SWFBColor').AsString); + end else + begin + FieldByName('MCID').Value:='HB'; + FieldByName('MainId').Value:='HB'; + FieldByName('SWFBColor').Value:='HB'; + end; + + FieldByName('YJID').Value:=Trim(maxno); + FieldByName('JYType').Value:='ҪҺ'; + + FieldByName('YCLCode').Value:=Trim(CDS_Sub.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(CDS_Sub.fieldbyname('YCLName').AsString); + If Trim(CDS_Sub.fieldbyname('YGQty').AsString)<>'' then + FieldByName('YGQty').Value:=Trim(CDS_Sub.fieldbyname('YGQty').AsString) + else + FieldByName('YGQty').Value:=0; + If Trim(CDS_Sub.fieldbyname('SJQty').AsString)<>'' then + FieldByName('SJQty').Value:=CDS_Sub.fieldbyname('SJQty').Value + else + FieldByName('SJQty').Value:=0; + If Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + FieldByName('OrderNo').Value:=CDS_Sub.fieldbyname('OrderNo').Value + else + FieldByName('OrderNo').Value:=99; + If Trim(CDS_Sub.fieldbyname('PBQty').AsString)<>'' then + FieldByName('PBQty').Value:=CDS_Sub.fieldbyname('PBQty').Value + else + FieldByName('PBQty').Value:=0; + FieldByName('ZuHeId').Value:=Trim(FZuHeId); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('YJID').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + with CDS_JYFZ do + begin + First; + while not eof do + begin + if Trim(CDS_JYFZ.fieldbyname('YJID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'YF','WFBYCL_JiangYe',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JYFZ.fieldbyname('YJID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_JiangYe where YJID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JYFZ.fieldbyname('YJID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTemp); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(CDS_JYFZ.fieldbyname('MCID').AsString)<>'' then + begin + FieldByName('MCID').Value:=Trim(CDS_JYFZ.fieldbyname('MCID').AsString); + FieldByName('MainId').Value:=Trim(CDS_JYFZ.fieldbyname('MainId').AsString); + FieldByName('SWFBColor').Value:=Trim(CDS_JYFZ.fieldbyname('SWFBColor').AsString); + end else + begin + FieldByName('MCID').Value:='HB'; + FieldByName('MainId').Value:='HB'; + FieldByName('SWFBColor').Value:='HB'; + end; + FieldByName('YJID').Value:=Trim(maxno); + FieldByName('JYType').Value:='Һ'; + FieldByName('YCLCode').Value:=Trim(CDS_JYFZ.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(CDS_JYFZ.fieldbyname('YCLName').AsString); + If Trim(CDS_JYFZ.fieldbyname('SJQty').AsString)<>'' then + FieldByName('SJQty').Value:=CDS_JYFZ.fieldbyname('SJQty').Value + else + FieldByName('SJQty').Value:=0; + If Trim(CDS_JYFZ.fieldbyname('OrderNo').AsString)<>'' then + FieldByName('OrderNo').Value:=CDS_JYFZ.fieldbyname('OrderNo').Value + else + FieldByName('OrderNo').Value:=0; + If Trim(CDS_Sub.fieldbyname('PBQty').AsString)<>'' then + FieldByName('PBQty').Value:=CDS_Sub.fieldbyname('PBQty').Value + else + FieldByName('PBQty').Value:=0; + FieldByName('ZuHeId').Value:=Trim(FZuHeId); + Post; + end; + with CDS_JYFZ do + begin + Edit; + FieldByName('YJID').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + if Trim(MCQty.Text)='' then + FMCQty:='0' + else + FMCQty:=MCQty.Text; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_MainIdColor_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + Edit; + FieldByName('MCQty').Value:=FMCQty; + if Trim(MCQty10.Text)='' then + FieldByName('MCQtySJ').Value:=0 + else + FieldByName('MCQty').Value:=StrToFloat(MCQty10.Text); + FieldByName('MCNote').Value:=Trim(MCNote.Text); + FieldByName('WFBCpSpec').Value:=Trim(WFBCpSpec.Text); + FieldByName('WKMS').Value:=Trim(WKMS.Text); + FieldByName('SWFBHW').Value:=Trim(SWFBHW.Text); + FieldByName('ZuHeId').Value:=Trim(FZuHeId); + if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='˲ͨ' then + begin + FieldByName('ChkStatus').Value:='޸'; + FieldByName('Chker').Value:=''; + with CDS_Main do + begin + Edit; + FieldByName('ChkStatus').Value:='޸'; + + Post; + end; + end; + if Trim(CDS_Main.fieldbyname('Filler').AsString)='' then + begin + fieldbyname('Filler').Value:=Trim(DName); + fieldbyname('FillTime').Value:=SGetServerDateTime(ADOTemp); + with CDS_Main do + begin + Edit; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end else + begin + fieldbyname('Editer').Value:=Trim(DName); + fieldbyname('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with CDS_Main do + begin + Edit; + FieldByName('ZuHeId').Value:=Trim(FZuHeId); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + CDS_Main.Delete; + end else + Next; + end else + Next; + end; + end; + CDS_Main.EnableControls; + + ADOCmd.Connection.CommitTrans; + if ChkInt<>1 then + Application.MessageBox('ɹ','ʾ',0); + InitGrid(); + Exit; + except + ADOCmd.Connection.RollbackTrans; + if ChkInt<>1 then + Application.MessageBox('ʧ!','ʾ',0) + else + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmJiangLiaoSet.TvOrdNoCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + var + FFHBID,maxno:string; +begin + FFHBID:=Trim(CDS_Main.fieldbyname('ZuHeID').AsString); + maxno:=Trim(CDS_Main.fieldbyname('MCID').AsString); + with ADOTemp do + begin + Close; + SQL.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(maxno)+''''); + end else + sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(FFHBID)+''''); + sql.Add(' and JYType=''ҪҺ'' '); + sql.Add(' order by OrderNo'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_Sub); + SInitCDSData20(ADOTemp,CDS_Sub); + with ADOTemp do + begin + Close; + SQL.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(maxno)+''''); + end else + sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(FFHBID)+''''); + sql.Add(' and JYType=''Һ'' '); + sql.Add(' order by OrderNo'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_JYFZ); + SInitCDSData20(ADOTemp,CDS_JYFZ); + + with ADOTemp do + begin + Close; + sql.Clear; + SQL.Add('select Top 1*,'); + sql.Add(' OrderNoSL=dbo.F_Get_WFBOrder_SubStr(A.ZuHeId,''OrderNoSL'')'); + if Trim(FFHBID)<>'' then + sql.Add(' from WFBYCL_MainIdColor_JiangYe A where ZuHeId='''+Trim(FFHBID)+'''') + else + sql.Add(' from WFBYCL_MainIdColor_JiangYe A where MCId='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''') ; + Open; + end; + MCQty.Text:=Trim(ADOTemp.fieldbyname('MCQty').AsString); + MCQty10.Text:=Trim(ADOTemp.fieldbyname('MCQtySJ').AsString); + MCNote.Text:=Trim(ADOTemp.fieldbyname('MCNote').AsString); + WKMS.Text:=Trim(ADOTemp.fieldbyname('WKMS').AsString); + SWFBHW.Text:=Trim(ADOTemp.fieldbyname('SWFBHW').AsString); + WFBCpSpec.Text:=Trim(ADOTemp.fieldbyname('WFBCpSpec').AsString); + OrderNoSL.Text:=Trim(ADOTemp.fieldbyname('OrderNoSL').AsString); + if cxTabControl1.TabIndex>0 then + begin + Label7.Visible:=True; + Label8.Visible:=True; + Label9.Visible:=True; + Label7.Caption:='Ƶˣ'+Trim(ADOTemp.fieldbyname('Filler').AsString); + Label8.Caption:='ˣ'+Trim(ADOTemp.fieldbyname('Chker').AsString); + Label9.Caption:='״̬'+Trim(ADOTemp.fieldbyname('ChkStatus').AsString); + end else + begin + Label7.Visible:=False; + Label8.Visible:=False; + Label9.Visible:=False; + end; + + + +end; +procedure TfrmJiangLiaoSet.MCData(); +begin + MCQty.Text:=Trim(CDS_Main.fieldbyname('MCQty').AsString); + MCNote.Text:=Trim(CDS_Main.fieldbyname('MCNote').AsString); + if cxTabControl1.TabIndex>0 then + begin + Label7.Visible:=True; + Label8.Visible:=True; + Label9.Visible:=True; + Label7.Caption:='Ƶˣ'+Trim(CDS_Main.fieldbyname('Filler').AsString); + Label8.Caption:='ˣ'+Trim(CDS_Main.fieldbyname('Chker').AsString); + Label9.Caption:='״̬'+Trim(CDS_Main.fieldbyname('ChkStatus').AsString); + end else + begin + Label7.Visible:=False; + Label8.Visible:=False; + Label9.Visible:=False; + end; +end; + +procedure TfrmJiangLiaoSet.MCQtyKeyPress(Sender: TObject; var Key: Char); +begin + if not (Key in['0'..'9','.',#13,#8]) then + begin + Key:=#0; + end; +end; + +procedure TfrmJiangLiaoSet.BtnChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + ChkInt:=1; + // BtnSave.Click; + if ChkInt=2 then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_MainIdColor_JiangYe Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add('where ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + with CDS_Main do + begin + Edit; + FieldByName('ChkStatus').Value:='ͨ'; + FieldByName('Chker').Value:=Trim(DName); + Post; + end; + MCData(); + ChkInt:=0; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmJiangLiaoSet.BtnChkNoClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + ChkInt:=1; + // BtnSave.Click; + if ChkInt=2 then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_MainIdColor_JiangYe Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''˲ͨ'' '); + sql.Add('where ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + with CDS_Main do + begin + Edit; + FieldByName('ChkStatus').Value:='˲ͨ'; + FieldByName('Chker').Value:=Trim(DName); + Post; + end; + MCData(); + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmJiangLiaoSet.BtnPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)<>'ͨ' then + begin + Application.MessageBox('δܴͨӡݣ','ʾ',0); + Exit; + end; + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Print_JiangYe :ZuHeId'); + Parameters.ParamByName('ZuHeId').Value:=Trim(CDS_Main.fieldbyname('ZuHeId').AsString); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\õ10.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\õ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmJiangLiaoSet.MenuItem1Click(Sender: TObject); +begin + if BtnSave.Visible=False then Exit; + try + frmGetPGJBOneTwoInList:=TfrmGetPGJBOneTwoInList.Create(Application); + with frmGetPGJBOneTwoInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with CDS_JYFZ do + begin + Append; + CDS_JYFZ.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + CDS_JYFZ.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + //CDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + Post; + end; + Next; + end; + end; + end; + end; + finally + frmGetPGJBOneTwoInList.Free; + end; +end; + +procedure TfrmJiangLiaoSet.MenuItem2Click(Sender: TObject); +begin + if BtnSave.Visible=False then Exit; + if CDS_JYFZ.IsEmpty then Exit; + if Trim(CDS_JYFZ.FieldByName('YJID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_JiangYe where YJID='''+Trim(CDS_JYFZ.FieldByName('YJID').AsString)+''''); + ExecSQL; + end; + end; + CDS_JYFZ.Delete; +end; + +procedure TfrmJiangLiaoSet.SWFBCodeNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCpSpec'; + flagname:='Ʒͺ'; + if ShowModal=1 then + begin + Self.WFBCpSpec.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJiangLiaoSet.WKMSPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WKMS'; + flagname:='Ŀ'; + if ShowModal=1 then + begin + Self.WKMS.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJiangLiaoSet.cxButtonEdit2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBHX'; + flagname:=''; + if ShowModal=1 then + begin + Self.SWFBHW.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJiangLiaoSet.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FMCQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(MCQty.Text)='' then + begin + FMCQty:='0' + end else + begin + FMCQty:=Trim(MCQty.Text); + end; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_Sub do + begin + Edit; + FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100; + FieldByName('PBQty').Value:=StrToFloat(mvalue); + Post; + end; +end; + +procedure TfrmJiangLiaoSet.MCQtyChange(Sender: TObject); +var + mvalue,FMCQty:string; +begin + if( (MCQty.Focused) and (MCQty.ReadOnly=False) )then + begin + if Trim(MCQty.Text)='' then + begin + FMCQty:='0' + end else + begin + FMCQty:=Trim(MCQty.Text); + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('PBQty').AsString)<>'' then + mvalue:=Trim(fieldbyname('PBQty').AsString) + else + mvalue:='0'; + FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; + +end; + +procedure TfrmJiangLiaoSet.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if Trim(CDS_Main.FieldByName('ChkStatus').AsString)='ͨ' then Exit; + if Application.MessageBox('ȷҪִд˲?','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_JiangYe Set ZuHeId=NULL where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+''''); + sql.Add('Update WFBYCL_MainIdColor_JiangYe Set ZuHeId=NULL where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + +end; + +procedure TfrmJiangLiaoSet.MCQty10Change(Sender: TObject); +var + mvalue,FMCQty:string; +begin + if( (MCQty10.Focused) and (MCQty10.ReadOnly=False) )then + begin + if Trim(MCQty10.Text)='' then + begin + FMCQty:='0' + end else + begin + FMCQty:=Trim(MCQty10.Text); + end; + CDS_JYFZ.DisableControls; + with CDS_JYFZ do + begin + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('PBQty').AsString)<>'' then + mvalue:=Trim(fieldbyname('PBQty').AsString) + else + mvalue:='0'; + FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100; + Post; + Next; + end; + end; + CDS_JYFZ.EnableControls; + end; + +end; + +procedure TfrmJiangLiaoSet.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FMCQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(MCQty10.Text)='' then + begin + FMCQty:='0' + end else + begin + FMCQty:=Trim(MCQty10.Text); + end; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JYFZ do + begin + Edit; + FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100; + FieldByName('PBQty').Value:=StrToFloat(mvalue); + Post; + end; +end; + +end. diff --git a/贸易管理/U_LabelPrint.dfm b/贸易管理/U_LabelPrint.dfm new file mode 100644 index 0000000..517e74c --- /dev/null +++ b/贸易管理/U_LabelPrint.dfm @@ -0,0 +1,122 @@ +object frmLabelPrint: TfrmLabelPrint + Left = 345 + Top = 212 + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = #26631#31614#25171#21360 + ClientHeight = 166 + ClientWidth = 271 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 12 + object Button1: TButton + Left = 72 + Top = 80 + Width = 73 + Height = 25 + Caption = #25171#21360 + TabOrder = 0 + OnClick = Button1Click + end + object Panel1: TPanel + Left = 32 + Top = 24 + Width = 193 + Height = 41 + BevelOuter = bvLowered + Caption = #27491#22312#21152#36733#25171#21360#20449#24687'...' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object ADOQueryMain: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 144 + Top = 24 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 192 + Top = 24 + 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 = 160 + Top = 120 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ShowProgress = False + 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 = RMDS_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 184 + Top = 72 + ReportData = {} + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 128 + Top = 68 + end + object RMBMPExport1: TRMBMPExport + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + Left = 80 + Top = 120 + end + object RMDS_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryMain + Left = 170 + end + object ADOQueryTmp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 56 + Top = 80 + end + object ADOQueryCust: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 152 + Top = 88 + end +end diff --git a/贸易管理/U_LabelPrint.pas b/贸易管理/U_LabelPrint.pas new file mode 100644 index 0000000..6f531f7 --- /dev/null +++ b/贸易管理/U_LabelPrint.pas @@ -0,0 +1,143 @@ +unit U_LabelPrint; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, DB, ADODB, RM_e_Graphic, RM_e_bmp, RM_BarCode, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, StdCtrls, + ExtCtrls; + +type + TfrmLabelPrint = class(TForm) + ADOQueryMain: TADOQuery; + ADOConnection1: TADOConnection; + RMXLSExport1: TRMXLSExport; + RMGridReport1: TRMGridReport; + RMBarCodeObject1: TRMBarCodeObject; + RMBMPExport1: TRMBMPExport; + RMDS_Main: TRMDBDataSet; + ADOQueryTmp: TADOQuery; + Button1: TButton; + ADOQueryCust: TADOQuery; + Panel1: TPanel; + procedure FormCreate(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + procedure InitDataSetDictionary(); +// procedure InitVarDictionary(); + procedure OpenLabel(); + public + fLabelId:string; //ǩ¼Id; + fKeyNo:string; // + fCustomNo:string; //ͻ + fLabelCopys:integer; //ӡ + fIsPreviewPrint:Boolean; + FFCDFlag:String; + procedure DoPrintLabel(); + end; + +var + frmLabelPrint: TfrmLabelPrint; + +implementation +uses + U_DataLink; +{$R *.dfm} +//////////////////////////////////////////////////////////////////// + //ӡǩ +//////////////////////////////////////////////////////////////////// +procedure TfrmLabelPrint.DoPrintLabel(); +begin + InitDataSetDictionary(); + OpenLabel(); +end; + +procedure TfrmLabelPrint.FormCreate(Sender: TObject); +begin + try + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + Connected:=true; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; +end; +///////////////////////////////////////////////// + //ܣرǩ +///////////////////////////////////////////////// +procedure TfrmLabelPrint.InitDataSetDictionary(); +begin + try + with ADOQueryMain do + begin + close; + sql.Clear ; + sql.Add('select RTrim(AA.XJID) XJID,RTrim(Cast(AA.XJSJKZ as varchar(20))) XJSJKZ,RTrim(cast(Cast(AA.XJFK*10 as int) as varchar(20))) XJFK,RTrim(B.OrderNo)+'''+Trim(FFCDFlag)+''' OrderNo'); + sql.Add(',Rtrim(C.SWFBColor) SWFBColor, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',Rtrim(Cast(AA.XJlen as varchar(20))) XJlen,Rtrim(Cast(AA.XJMaoZ as varchar(20))) XJMaoZ'); + sql.Add(',Rtrim(Cast(AA.XJFree as varchar(20))) XJFree,Rtrim(Cast( Cast(AA.XJlen*AA.XJFK/100 as int) as varchar(20))) XJPFM'); + sql.Add(',Rtrim(Cast(Cast(C.SWFBKZ as int) as varchar(20))) SWFBKZ'); + sql.Add(',Rtrim(Cast(Cast(AA.XJJt as int) as varchar(20))) XJJt'); + sql.Add(',RTrim(B.LbEngName) LbEngName'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_XJJY AA '); + sql.add(' inner join WFB_MJJY A on AA.MJID=A.MJID') ; + sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where AA.XJID='''+Trim(fKeyNo)+''''); + OPen; + end; + with RMGridReport1 do + begin + Dictionary.FieldAliases.Clear; + Dictionary.FieldAliases['RMDS_Main']:= 'ǩ'; + // Dictionary.FieldAliases['RMDS_Main."BarCodeNo"']:='ǩ'; + end; + except + application.MessageBox('رǩʱ!','Ϣ',0); + end; +end; +////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////// +procedure TfrmLabelPrint.OpenLabel(); +begin + with ADOQueryTmp do + begin + close; + sql.Clear ; + sql.Add('select labelfile from P_Label A'); + sql.Add('where labelId='''+fLabelId+''''); + Open; + if fieldbyname('labelFile').IsNull then + begin + application.MessageBox('δҵҪӡıǩϢ¼!','ʾϢ',0); + self.Close ; + exit; + end; + RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile'))); + // InitVarDictionary(); + //fIsPreviewPrint:=true; + if fIsPreviewPrint then + RMGridReport1.ShowReport + else + RMGridReport1.PrintReport ; + close; + end; + +end; +procedure TfrmLabelPrint.Button1Click(Sender: TObject); +begin + DoPrintLabel(); +end; + +procedure TfrmLabelPrint.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +end. diff --git a/贸易管理/U_MJEdit.dfm b/贸易管理/U_MJEdit.dfm new file mode 100644 index 0000000..5003838 --- /dev/null +++ b/贸易管理/U_MJEdit.dfm @@ -0,0 +1,440 @@ +object frmMJEdit: TfrmMJEdit + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #24067#21305#31649#29702 + 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 = 1366 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 58 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20316#24223 + ImageIndex = 48 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 1366 + Height = 79 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 25 + Top = 16 + Width = 52 + Height = 12 + Caption = #24067#21305#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 33 + Top = 48 + 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 Label4: TLabel + Left = 459 + Top = 20 + Width = 24 + Height = 12 + Caption = #27611#37325 + end + object M: TLabel + Left = 428 + Top = 20 + Width = 6 + Height = 12 + Caption = 'M' + OnDblClick = MDblClick + end + object Label6: TLabel + Left = 343 + Top = 20 + Width = 24 + Height = 12 + Caption = #38271#24230 + end + object Ma: TLabel + Left = 296 + Top = 100 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label7: TLabel + Left = 211 + Top = 100 + Width = 24 + Height = 12 + Caption = #21407#30721 + end + object Label5: TLabel + Left = 332 + Top = 104 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label8: TLabel + Left = 563 + Top = 20 + Width = 24 + Height = 12 + Caption = #24133#23485 + end + object Label9: TLabel + Left = 644 + Top = 20 + Width = 12 + Height = 12 + Caption = 'cm' + end + object Label10: TLabel + Left = 540 + Top = 20 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label3: TLabel + Left = 563 + Top = 44 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 644 + Top = 44 + Width = 24 + Height = 12 + Caption = 'g/'#13217 + end + object Label13: TLabel + Left = 343 + Top = 48 + Width = 24 + Height = 12 + Caption = #36192#36865 + end + object Label12: TLabel + Left = 459 + Top = 48 + Width = 24 + Height = 12 + Caption = #20928#37325 + end + object Label14: TLabel + Left = 540 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label15: TLabel + Left = 231 + Top = 20 + Width = 24 + Height = 12 + Caption = #21367#21495 + end + object Label16: TLabel + Left = 231 + Top = 48 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object MJID: TEdit + Left = 80 + Top = 10 + Width = 110 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object MJMaoZ: TEdit + Left = 484 + Top = 16 + Width = 54 + Height = 20 + TabOrder = 1 + end + object MJLen: TEdit + Left = 368 + Top = 16 + Width = 54 + Height = 20 + TabOrder = 2 + end + object RadioGroup1: TRadioGroup + Left = 680 + Top = 3 + Width = 153 + Height = 58 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#21697 + #27425#21697) + TabOrder = 3 + end + object MJQty1: TEdit + Left = 236 + Top = 100 + Width = 54 + Height = 20 + TabOrder = 4 + end + object MJFK: TEdit + Left = 588 + Top = 16 + Width = 54 + Height = 20 + TabOrder = 5 + end + object MJSJKZ: TEdit + Left = 588 + Top = 40 + Width = 54 + Height = 20 + TabOrder = 6 + end + object MJQty2: TEdit + Left = 368 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 7 + end + object MJQty4: TEdit + Left = 484 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 8 + end + object MJXH: TEdit + Left = 256 + Top = 16 + Width = 54 + Height = 20 + TabOrder = 9 + end + object MJStr4: TEdit + Left = 256 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 10 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 109 + Width = 1366 + Height = 607 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_TradeManage.TextSHuangSe + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = tv2CDTypePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_TradeManage.Default + Width = 144 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = tv2CDWZPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_TradeManage.Default + Width = 96 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.Default + Width = 93 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_TradeManage.Default + Width = 93 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 131 + end + object v2Column1: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'koufenQty' + HeaderAlignmentHorz = taCenter + Width = 116 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1188 + Top = 72 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 200 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1188 + Top = 32 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 528 + Top = 200 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 200 + end +end diff --git a/贸易管理/U_MJEdit.pas b/贸易管理/U_MJEdit.pas new file mode 100644 index 0000000..10a0b14 --- /dev/null +++ b/贸易管理/U_MJEdit.pas @@ -0,0 +1,543 @@ +unit U_MJEdit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, + ComCtrls, ToolWin, cxButtonEdit; + +type + TfrmMJEdit = class(TForm) + ToolBar1: TToolBar; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + MJID: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOTmp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Label2: TLabel; + MJMaoZ: TEdit; + Label4: TLabel; + M: TLabel; + Label6: TLabel; + MJLen: TEdit; + RadioGroup1: TRadioGroup; + Ma: TLabel; + Label7: TLabel; + MJQty1: TEdit; + Label5: TLabel; + Label8: TLabel; + MJFK: TEdit; + Label9: TLabel; + Label10: TLabel; + Label3: TLabel; + Label11: TLabel; + MJSJKZ: TEdit; + ToolButton4: TToolButton; + Label13: TLabel; + MJQty2: TEdit; + Label12: TLabel; + Label14: TLabel; + MJQty4: TEdit; + MJXH: TEdit; + Label15: TLabel; + Label16: TLabel; + MJStr4: TEdit; + v2Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure MDblClick(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + end; + +var + frmMJEdit: TfrmMJEdit; + +implementation +uses + U_Fun,U_ZDYHelp,U_DataLink; + +{$R *.dfm} + +procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMJEdit.FormDestroy(Sender: TObject); +begin + frmMJEdit:=nil; +end; + +procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); + sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJXH.Text:=Trim(ADOTmp.fieldbyname('MJXH').AsString); + MJstr4.Text:=Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + { if Trim(m.Caption)='' then + begin + m.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + end; + if Trim(Ma.Caption)='' then + begin + Ma.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + end; } + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + + end; +end; + +procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + if ShowModal=1 then + begin + Self.Order_MJ.Edit; + Self.Order_MJ.FieldByName('CDName').value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject); +var + mvalue,CDBeg,CDEnd:string; + FFReal:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_MJ do + begin + Edit; + FieldByName('CDBeg').Value:=mvalue; + Post; + end; + CDBeg:=Trim(Order_MJ.fieldbyname('CDBeg').AsString); + CDEnd:=Trim(Order_MJ.fieldbyname('CDEnd').AsString); + if (Trim(CDBeg)<>'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY_CD where MCID='''+Trim(Order_MJ.fieldbyname('MCID').AsString)+''''); + ExecSQL; + end; + end; + Order_MJ.Delete; +end; +function TfrmMJEdit.SaveData():Boolean; +var + maxno:String; + FFreal:Double; +begin + try + ADOCmd.Connection.BeginTrans; + ///õ + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_MJ.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(Label2.Caption); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,Order_MJ,'WFB_MJJY_CD',0); + IF trim(Order_MJ.fieldbyname('CDName').AsString)='' then + FieldByName('koufenQty').Value:=0 + else + FieldByName('koufenQty').Value:=Order_MJ.fieldbyname('koufenQty').AsFloat; + Post; + end; + + Order_MJ.Edit; + Order_MJ.FieldByName('MCID').Value:=Trim(maxno); + Order_MJ.FieldByName('MJID').Value:=Trim(Label2.Caption); + Next; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if TryStrToFloat(MJLen.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty4.Text)<>'' then + begin + if TryStrToFloat(MJQty4.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set MJTypeOther='''+Trim(M.Caption)+''''); + sql.Add(',MJStr1='''+Trim(Ma.Caption)+''''); + sql.Add(',MJStr4='''+Trim(MJStr4.Text)+''''); + sql.Add(',MJXH='''+Trim(MJXH.Text)+''''); + if Trim(MJLen.Text)<>'' then + begin + sql.Add(',MJLen='+Trim(MJLen.Text)); + end else + begin + sql.Add(',MJLen=0'); + end; + if Trim(MJQty1.Text)<>'' then + begin + sql.Add(',MJQty1='+Trim(MJQty1.Text)); + end else + begin + sql.Add(',MJQty1=0'); + end; + if Trim(MJQty2.Text)<>'' then + begin + sql.Add(',MJQty2='+Trim(MJQty2.Text)); + end else + begin + sql.Add(',MJQty2=0'); + end; + if Trim(MJFK.Text)<>'' then + begin + sql.Add(',MJFK='+Trim(MJFK.Text)); + end else + begin + sql.Add(',MJFK=0'); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + sql.Add(',MJMaoZ='+Trim(MJMaoZ.Text)); + end else + begin + sql.Add(',MJMaoZ=0'); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + sql.Add(',MJSJKZ='+Trim(MJSJKZ.Text)); + end else + begin + sql.Add(',MJSJKZ=0'); + end; + if Trim(MJQty4.Text)<>'' then + begin + sql.Add(',MJQty4='+Trim(MJQty4.Text)); + end else + begin + sql.Add(',MJQty4=0'); + end; + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=2 then + begin + sql.Add(',MJType=''ƴ'' '); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + + + sql.Add('UPDATE CK_BanCP_CR SET KGQty=B.MJMaoZ,Qty=B.MJLen,QtyUnit=B.MJTypeOther,CPType=B.MJType '); + sql.Add('FROM CK_BanCP_CR A '); + sql.Add('INNER JOIN WFB_MJJY B on B.MJID=A.MJID '); + sql.Add('WHERE A.MJID='''+Trim(Label2.Caption)+''' '); + + sql.Add('UPDATE CK_BanCP_KC SET KCKGQty=B.MJMaoZ,KCQty=B.MJLen,KCQtyUnit=B.MJTypeOther '); + sql.Add('FROM CK_BanCP_KC A '); + sql.Add('INNER JOIN WFB_MJJY B on B.MJID=A.MJID '); + sql.Add('WHERE A.MJID='''+Trim(Label2.Caption)+''' '); + + sql.Add('UPDATE WFB_MJJY SET DETM=dbo.F_Get_MJJY_DETM(MJID) WHERE MJID='''+Trim(Label2.Caption)+''' '); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJEdit.ToolButton2Click(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmMJEdit.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.ToolButton4Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end else + begin + if Application.MessageBox('ȷҪϺݲָܻ','ʾ',32+4)=IDYES then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(Label2.Caption)+''''); + sql.Add('delete WFB_MJJY_CD where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + Label2.Caption:=''; + end; + end; +end; + +procedure TfrmMJEdit.MDblClick(Sender: TObject); +begin + IF trim(M.Caption)='M' then M.Caption:='Y' + ELSE + M.Caption:='M'; +end; + +end. diff --git a/贸易管理/U_MJManage.dfm b/贸易管理/U_MJManage.dfm new file mode 100644 index 0000000..2deb5de --- /dev/null +++ b/贸易管理/U_MJManage.dfm @@ -0,0 +1,1192 @@ +object frmMJManage: TfrmMJManage + Left = 65 + Top = -15 + Width = 1137 + Height = 730 + Caption = #27597#21367#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 19 + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 1129 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 143 + Top = 23 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 519 + Top = 23 + Width = 80 + Height = 19 + Caption = #25163#24037#24405#20837 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MainId: TEdit + Left = 224 + Top = 21 + Width = 241 + Height = 27 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MainIdKeyPress + end + object Edit1: TEdit + Left = 607 + Top = 21 + Width = 241 + Height = 27 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1129 + Height = 30 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBCD: TToolButton + Left = 0 + Top = 0 + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 83 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 201 + Width = 388 + Height = 492 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 384 + Height = 116 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 0 + Top = 1 + Width = 65 + Height = 57 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 64 + Top = 1 + Width = 65 + Height = 57 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 128 + Top = 1 + Width = 65 + Height = 57 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 192 + Top = 1 + Width = 65 + Height = 57 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 256 + Top = 1 + Width = 65 + Height = 57 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 320 + Top = 1 + Width = 65 + Height = 57 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + object Button7: TButton + Left = 0 + Top = 57 + Width = 65 + Height = 57 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button7Click + end + object Button8: TButton + Left = 64 + Top = 57 + Width = 65 + Height = 57 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Button8Click + end + object Button9: TButton + Left = 128 + Top = 57 + Width = 65 + Height = 57 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Button9Click + end + object Button10: TButton + Left = 192 + Top = 57 + Width = 65 + Height = 57 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Button10Click + end + object Button11: TButton + Left = 256 + Top = 57 + Width = 65 + Height = 57 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -48 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = Button11Click + end + object Button12: TButton + Left = 320 + Top = 57 + Width = 65 + Height = 57 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = Button12Click + end + end + object Panel4: TPanel + Left = 2 + Top = 118 + Width = 384 + Height = 339 + Align = alTop + TabOrder = 1 + object Button13: TButton + Left = 0 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 0 + Visible = False + OnClick = Button13Click + end + object Button14: TButton + Left = 64 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 1 + Visible = False + OnClick = Button14Click + end + object Button15: TButton + Left = 128 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 2 + Visible = False + OnClick = Button15Click + end + object Button16: TButton + Left = 192 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 3 + Visible = False + OnClick = Button16Click + end + object Button17: TButton + Left = 256 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 4 + Visible = False + OnClick = Button17Click + end + object Button18: TButton + Left = 320 + Top = 1 + Width = 65 + Height = 57 + TabOrder = 5 + Visible = False + OnClick = Button18Click + end + object Button19: TButton + Left = 0 + Top = 57 + Width = 65 + Height = 57 + TabOrder = 6 + Visible = False + OnClick = Button19Click + end + object Button20: TButton + Left = 64 + Top = 57 + Width = 65 + Height = 57 + TabOrder = 7 + Visible = False + OnClick = Button20Click + end + object Button21: TButton + Left = 128 + Top = 57 + Width = 65 + Height = 57 + TabOrder = 8 + Visible = False + OnClick = Button21Click + end + object Button22: TButton + Left = 192 + Top = 57 + Width = 65 + Height = 57 + TabOrder = 9 + Visible = False + OnClick = Button22Click + end + object Button23: TButton + Left = 256 + Top = 57 + Width = 65 + Height = 57 + TabOrder = 10 + Visible = False + OnClick = Button23Click + end + object Button24: TButton + Left = 320 + Top = 57 + Width = 65 + Height = 57 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = Button24Click + end + object Button25: TButton + Left = 0 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 12 + Visible = False + OnClick = Button25Click + end + object Button26: TButton + Left = 64 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 13 + Visible = False + OnClick = Button26Click + end + object Button27: TButton + Left = 128 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 14 + Visible = False + OnClick = Button27Click + end + object Button28: TButton + Left = 192 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 15 + Visible = False + OnClick = Button28Click + end + object Button29: TButton + Left = 256 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 16 + Visible = False + OnClick = Button29Click + end + object Button30: TButton + Left = 320 + Top = 113 + Width = 65 + Height = 57 + TabOrder = 17 + Visible = False + OnClick = Button30Click + end + object Button31: TButton + Left = 0 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 18 + Visible = False + OnClick = Button31Click + end + object Button32: TButton + Left = 64 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 19 + Visible = False + OnClick = Button32Click + end + object Button33: TButton + Left = 128 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 20 + Visible = False + OnClick = Button33Click + end + object Button34: TButton + Left = 192 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 21 + Visible = False + OnClick = Button34Click + end + object Button35: TButton + Left = 256 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 22 + Visible = False + OnClick = Button35Click + end + object Button36: TButton + Left = 320 + Top = 169 + Width = 65 + Height = 57 + TabOrder = 23 + Visible = False + OnClick = Button36Click + end + object Button39: TButton + Left = 0 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 24 + Visible = False + OnClick = Button39Click + end + object Button40: TButton + Left = 64 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 25 + Visible = False + OnClick = Button40Click + end + object Button41: TButton + Left = 128 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 26 + Visible = False + OnClick = Button41Click + end + object Button42: TButton + Left = 192 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 27 + Visible = False + OnClick = Button42Click + end + object Button43: TButton + Left = 256 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 28 + Visible = False + OnClick = Button43Click + end + object Button44: TButton + Left = 320 + Top = 225 + Width = 65 + Height = 57 + TabOrder = 29 + Visible = False + OnClick = Button44Click + end + object Button45: TButton + Left = 0 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 30 + Visible = False + OnClick = Button45Click + end + object Button46: TButton + Left = 64 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 31 + Visible = False + OnClick = Button46Click + end + object Button47: TButton + Left = 128 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 32 + Visible = False + OnClick = Button47Click + end + object Button48: TButton + Left = 192 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 33 + Visible = False + OnClick = Button48Click + end + object Button49: TButton + Left = 256 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 34 + Visible = False + OnClick = Button49Click + end + object Button50: TButton + Left = 320 + Top = 281 + Width = 65 + Height = 57 + TabOrder = 35 + Visible = False + OnClick = Button50Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1129 + Height = 104 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 140 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 78 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 93 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 114 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 57 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325#19978#38480 + DataBinding.FieldName = 'MJKZD' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle2 + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #20811#37325#19979#38480 + DataBinding.FieldName = 'MJKZX' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle2 + Width = 74 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 315 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 388 + Top = 201 + Width = 253 + Height = 492 + Align = alLeft + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 88 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622 + DataBinding.FieldName = 'CDBeg' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 69 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQtyS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 87 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 949 + Top = 201 + Width = 180 + Height = 492 + Align = alClient + TabOrder = 5 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24050#32463#30331#35760#30340#27597#21367 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 155 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 641 + Top = 201 + Width = 308 + Height = 492 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label3: TLabel + Left = 49 + Top = 27 + Width = 40 + Height = 19 + Caption = #27611#37325 + end + object Label4: TLabel + Left = 49 + Top = 70 + Width = 40 + Height = 19 + Caption = #38271#24230 + end + object Label5: TLabel + Left = 49 + Top = 114 + Width = 40 + Height = 19 + Caption = #24133#23485 + end + object Label6: TLabel + Left = 49 + Top = 157 + Width = 40 + Height = 19 + Caption = #29677#32452 + end + object Label7: TLabel + Left = 223 + Top = 69 + Width = 31 + Height = 19 + Caption = #65306'M' + end + object Label8: TLabel + Left = 223 + Top = 27 + Width = 42 + Height = 19 + Caption = #65306'Kg' + end + object Label9: TLabel + Left = 223 + Top = 110 + Width = 42 + Height = 19 + Caption = #65306'CM' + end + object Label10: TLabel + Left = 29 + Top = 313 + Width = 80 + Height = 19 + Caption = #23454#38469#20811#37325 + end + object Label11: TLabel + Left = 242 + Top = 312 + Width = 62 + Height = 19 + Caption = #65306'g/'#13217 + end + object Label12: TLabel + Left = 29 + Top = 274 + Width = 80 + Height = 19 + Caption = #30133#28857#25968#37327 + end + object Label13: TLabel + Left = 242 + Top = 272 + Width = 31 + Height = 19 + Caption = #65306'M' + end + object Label14: TLabel + Left = 40 + Top = 368 + Width = 11 + Height = 19 + Visible = False + end + object MJMaoZ: TEdit + Left = 96 + Top = 24 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 0 + OnChange = MJMaoZChange + OnClick = MJMaoZClick + end + object MJLen: TEdit + Left = 96 + Top = 67 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 1 + OnChange = MJMaoZChange + OnClick = MJLenClick + end + object MJFK: TEdit + Left = 96 + Top = 109 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 2 + OnChange = MJMaoZChange + OnClick = MJFKClick + end + object MJBanZu: TEdit + Left = 96 + Top = 152 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 3 + OnClick = MJBanZuClick + end + object BTPrint: TButton + Left = 175 + Top = 208 + Width = 89 + Height = 25 + Caption = #25171#21360#26465#30721 + TabOrder = 4 + OnClick = BTPrintClick + end + object Button38: TButton + Left = 223 + Top = 152 + Width = 41 + Height = 28 + Caption = #65294#65294#65294 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button38Click + end + object MJSJKZ: TEdit + Left = 113 + Top = 310 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 6 + OnClick = MJSJKZClick + end + object CDQty: TEdit + Tag = 99999 + Left = 113 + Top = 272 + Width = 121 + Height = 27 + ReadOnly = True + TabOrder = 7 + OnClick = MJSJKZClick + end + object BTAdd: TButton + Left = 49 + Top = 208 + Width = 47 + Height = 25 + Caption = #26032#22686 + TabOrder = 8 + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 111 + Top = 208 + Width = 47 + Height = 25 + Caption = #20462#25913 + TabOrder = 9 + Visible = False + OnClick = BTEditClick + end + end + object cxStyleRepository1: TcxStyleRepository + Top = 56 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 296 + Top = 128 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 328 + Top = 128 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 128 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 128 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 432 + Top = 128 + end + object ADOTmp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 128 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 536 + Top = 128 + end + object RM2: 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 = 496 + Top = 128 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 448 + Top = 264 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 264 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1032 + Top = 256 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1000 + Top = 256 + end + object Timer1: TTimer + Interval = 100 + OnTimer = Timer1Timer + Left = 656 + Top = 392 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 152 + end +end diff --git a/贸易管理/U_MJManage.pas b/贸易管理/U_MJManage.pas new file mode 100644 index 0000000..5420861 --- /dev/null +++ b/贸易管理/U_MJManage.pas @@ -0,0 +1,1086 @@ +unit U_MJManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + + +type + TfrmMJManage = class(TForm) + Panel1: TPanel; + MainId: TEdit; + Label1: TLabel; + Label2: TLabel; + Edit1: TEdit; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TBCD: TToolButton; + Panel3: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Button6: TButton; + Button7: TButton; + Button8: TButton; + Button9: TButton; + Button10: TButton; + Button11: TButton; + Button12: TButton; + Panel4: TPanel; + Button13: TButton; + Button14: TButton; + Button15: TButton; + Button16: TButton; + Button17: TButton; + Button18: TButton; + Button19: TButton; + Button20: TButton; + Button21: TButton; + Button22: TButton; + Button23: TButton; + Button24: TButton; + Button25: TButton; + Button26: TButton; + Button27: TButton; + Button28: TButton; + Button29: TButton; + Button30: TButton; + Button31: TButton; + Button32: TButton; + Button33: TButton; + Button34: TButton; + Button35: TButton; + Button36: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + v2Column1: TcxGridDBColumn; + Button39: TButton; + Button40: TButton; + Button41: TButton; + Button42: TButton; + Button43: TButton; + Button44: TButton; + Button45: TButton; + Button46: TButton; + Button47: TButton; + Button48: TButton; + Button49: TButton; + Button50: TButton; + Panel5: TPanel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + MJMaoZ: TEdit; + MJLen: TEdit; + MJFK: TEdit; + MJBanZu: TEdit; + BTPrint: TButton; + Button38: TButton; + MJSJKZ: TEdit; + CDQty: TEdit; + Timer1: TTimer; + Label14: TLabel; + BTAdd: TButton; + BTEdit: TButton; + ADOQueryPrint: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure MainIdKeyPress(Sender: TObject; var Key: Char); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button14Click(Sender: TObject); + procedure Button15Click(Sender: TObject); + procedure Button16Click(Sender: TObject); + procedure Button17Click(Sender: TObject); + procedure Button18Click(Sender: TObject); + procedure Button19Click(Sender: TObject); + procedure Button20Click(Sender: TObject); + procedure Button21Click(Sender: TObject); + procedure Button22Click(Sender: TObject); + procedure Button23Click(Sender: TObject); + procedure Button24Click(Sender: TObject); + procedure Button25Click(Sender: TObject); + procedure Button26Click(Sender: TObject); + procedure Button27Click(Sender: TObject); + procedure Button28Click(Sender: TObject); + procedure Button29Click(Sender: TObject); + procedure Button30Click(Sender: TObject); + procedure Button31Click(Sender: TObject); + procedure Button32Click(Sender: TObject); + procedure Button33Click(Sender: TObject); + procedure Button34Click(Sender: TObject); + procedure Button35Click(Sender: TObject); + procedure Button36Click(Sender: TObject); + procedure Button38Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Timer1Timer(Sender: TObject); + procedure Button39Click(Sender: TObject); + procedure Button40Click(Sender: TObject); + procedure Button41Click(Sender: TObject); + procedure Button42Click(Sender: TObject); + procedure Button43Click(Sender: TObject); + procedure Button44Click(Sender: TObject); + procedure Button45Click(Sender: TObject); + procedure Button46Click(Sender: TObject); + procedure Button47Click(Sender: TObject); + procedure Button48Click(Sender: TObject); + procedure Button49Click(Sender: TObject); + procedure Button50Click(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + FInt,PState:Integer; + FColumn:String; + MValue:String; + procedure InitJP(); + procedure InitGrid(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + public + { Public declarations } + end; + +var + frmMJManage: TfrmMJManage; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmMJManage.FormDestroy(Sender: TObject); +begin + frmMJManage:=nil; +end; + +procedure TfrmMJManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + + + + +procedure TfrmMJManage.MainIdKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + InitCDGridID(); + ADOQueryMain.First; + SSetWinData(ADOQueryMain,Panel5); + if CDS_MJID.IsEmpty then + begin + SClearData(Panel5,0); + end; + InitCDGrid(); + + end; +end; +procedure TfrmMJManage.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Main where MainID='''+Trim(MainId.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_MJ); + SInitCDSData20(ADOQueryMain,Order_MJ); + MainId.Text:=''; +end; +procedure TfrmMJManage.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); + //MainId.Text:=''; +end; +procedure TfrmMJManage.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where MainID='''+Trim(Order_MJ.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); + //MainId.Text:=''; +end; + +procedure TfrmMJManage.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmMJManage.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManage.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='޷IJõ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManage.FormShow(Sender: TObject); +begin + InitJP(); +end; +procedure TfrmMJManage.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + for j:=0 to 32 do + begin + with Panel4 do + begin + TButton(Controls[j]).Visible:=True; + if Length(AA[j])>3 then + begin + + end; + TButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManage.Button13Click(Sender: TObject); +begin + AddCD(Button13); +end; +procedure TfrmMJManage.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManage.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + MJMaoZ.Text:=Trim(MJMaoZ.Text)+Trim(TButton(Fbtn).Caption); + end else + if FInt=2 then + begin + MJLen.Text:=Trim(MJLen.Text)+Trim(TButton(Fbtn).Caption); + end else + if FInt=3 then + begin + MJFK.Text:=Trim(MJFK.Text)+Trim(TButton(Fbtn).Caption); + end else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; + +procedure TfrmMJManage.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Tv2.OptionsSelection.CellSelect=True then + begin + if CDS_MJCD.IsEmpty then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManage.Button14Click(Sender: TObject); +begin + AddCD(Button14); +end; + +procedure TfrmMJManage.Button15Click(Sender: TObject); +begin + AddCD(Button15); +end; + +procedure TfrmMJManage.Button16Click(Sender: TObject); +begin + AddCD(Button16); +end; + +procedure TfrmMJManage.Button17Click(Sender: TObject); +begin + AddCD(Button17); +end; + +procedure TfrmMJManage.Button18Click(Sender: TObject); +begin + AddCD(Button18); +end; + +procedure TfrmMJManage.Button19Click(Sender: TObject); +begin + AddCD(Button19); +end; + +procedure TfrmMJManage.Button20Click(Sender: TObject); +begin + AddCD(Button20); +end; + +procedure TfrmMJManage.Button21Click(Sender: TObject); +begin + AddCD(Button21); +end; + +procedure TfrmMJManage.Button22Click(Sender: TObject); +begin + AddCD(Button22); +end; + +procedure TfrmMJManage.Button23Click(Sender: TObject); +begin + AddCD(Button23); +end; + +procedure TfrmMJManage.Button24Click(Sender: TObject); +begin + AddCD(Button24); +end; + +procedure TfrmMJManage.Button25Click(Sender: TObject); +begin + AddCD(Button25); +end; + +procedure TfrmMJManage.Button26Click(Sender: TObject); +begin + AddCD(Button26); +end; + +procedure TfrmMJManage.Button27Click(Sender: TObject); +begin + AddCD(Button27); +end; + +procedure TfrmMJManage.Button28Click(Sender: TObject); +begin + AddCD(Button28); +end; + +procedure TfrmMJManage.Button29Click(Sender: TObject); +begin + AddCD(Button29); +end; + +procedure TfrmMJManage.Button30Click(Sender: TObject); +begin + AddCD(Button30); +end; + +procedure TfrmMJManage.Button31Click(Sender: TObject); +begin + AddCD(Button31); +end; + +procedure TfrmMJManage.Button32Click(Sender: TObject); +begin + AddCD(Button32); +end; + +procedure TfrmMJManage.Button33Click(Sender: TObject); +begin + AddCD(Button33); +end; + +procedure TfrmMJManage.Button34Click(Sender: TObject); +begin + AddCD(Button34); +end; + +procedure TfrmMJManage.Button35Click(Sender: TObject); +begin + AddCD(Button35); +end; + +procedure TfrmMJManage.Button36Click(Sender: TObject); +begin + AddCD(Button36); +end; + +procedure TfrmMJManage.Button38Click(Sender: TObject); +begin + FColumn:=''; + FInt:=0; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBBZ'; + flagname:=''; + if ShowModal=1 then + begin + Self.MJBanZu.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManage.Button1Click(Sender: TObject); +begin + AddSL(Button1); +end; + +procedure TfrmMJManage.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; +end; + +procedure TfrmMJManage.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; +end; + +procedure TfrmMJManage.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; +end; + +procedure TfrmMJManage.Button2Click(Sender: TObject); +begin + AddSL(Button2); +end; + +procedure TfrmMJManage.Button3Click(Sender: TObject); +begin + AddSL(Button3); +end; + +procedure TfrmMJManage.Button4Click(Sender: TObject); +begin + AddSL(Button4); +end; + +procedure TfrmMJManage.Button5Click(Sender: TObject); +begin + AddSL(Button5); +end; + +procedure TfrmMJManage.Button6Click(Sender: TObject); +begin + AddSL(Button6); +end; + +procedure TfrmMJManage.Button7Click(Sender: TObject); +begin + AddSL(Button7); +end; + +procedure TfrmMJManage.Button8Click(Sender: TObject); +begin + AddSL(Button8); +end; + +procedure TfrmMJManage.Button9Click(Sender: TObject); +begin + AddSL(Button9); +end; + +procedure TfrmMJManage.Button10Click(Sender: TObject); +begin + AddSL(Button10); +end; + +procedure TfrmMJManage.Button11Click(Sender: TObject); +begin + AddSL(Button11); +end; + +procedure TfrmMJManage.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManage.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; +end; + +procedure TfrmMJManage.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SSetWinData(ADOTmp,Panel5); + BtnStatus(False); +end; + +procedure TfrmMJManage.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManage.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + if Trim(MJMaoZ.Text)<>'' then + MJMaoZ.Text:=Copy(Trim(MJMaoZ.Text),1,Length(Trim(MJMaoZ.Text))-1); + end else + if FInt=2 then + begin + if Trim(MJLen.Text)<>'' then + MJLen.Text:=Copy(Trim(MJLen.Text),1,Length(Trim(MJLen.Text))-1); + end else + if FInt=3 then + begin + if Trim(MJFK.Text)<>'' then + MJFK.Text:=Copy(Trim(MJFK.Text),1,Length(Trim(MJFK.Text))-1); + end else + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + //MValue:=TcxTextEdit(Tv2CDQty).EditingText; + //BTPrint.SetFocus; + end; + + + end; + end; +end; + +procedure TfrmMJManage.Timer1Timer(Sender: TObject); +begin + CDQty.Text:=Tv2.DataController.Summary.FooterSummaryTexts[0]; +end; + +procedure TfrmMJManage.Button39Click(Sender: TObject); +begin + AddCD(Button39); +end; + +procedure TfrmMJManage.Button40Click(Sender: TObject); +begin + AddCD(Button40); +end; + +procedure TfrmMJManage.Button41Click(Sender: TObject); +begin + AddCD(Button41); +end; + +procedure TfrmMJManage.Button42Click(Sender: TObject); +begin + AddCD(Button42); +end; + +procedure TfrmMJManage.Button43Click(Sender: TObject); +begin + AddCD(Button43); +end; + +procedure TfrmMJManage.Button44Click(Sender: TObject); +begin + AddCD(Button44); +end; + +procedure TfrmMJManage.Button45Click(Sender: TObject); +begin + AddCD(Button45); +end; + +procedure TfrmMJManage.Button46Click(Sender: TObject); +begin + AddCD(Button46); +end; + +procedure TfrmMJManage.Button47Click(Sender: TObject); +begin + AddCD(Button47); +end; + +procedure TfrmMJManage.Button48Click(Sender: TObject); +begin + AddCD(Button48); +end; + +procedure TfrmMJManage.Button49Click(Sender: TObject); +begin + AddCD(Button49); +end; + +procedure TfrmMJManage.Button50Click(Sender: TObject); +begin + AddCD(Button50); +end; + +procedure TfrmMJManage.MJMaoZChange(Sender: TObject); +var + KZSX,KZXX:string; +begin + if (Trim(MJMaoZ.Text)<>'') and (Trim(MJLen.Text)<>'') and (Trim(MJFK.Text)<>'') then + begin + MJSJKZ.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)/(StrToFloat(MJLen.Text)*StrToFloat(MJFK.Text)/100)) ; + MJSJKZ.Text:=FloatToStr(SSWR(StrToFloat(MJSJKZ.Text)*1000)); + KZSX:=Trim(Order_MJ.fieldbyname('MJKZD').AsString); + KZXX:=Trim(Order_MJ.fieldbyname('MJKZX').AsString); + if (StrToFloat(MJSJKZ.Text)>=StrToFloat(KZXX)) and (StrToFloat(MJSJKZ.Text)<=StrToFloat(KZSX)) then + begin + Label14.Visible:=True; + Label14.Caption:='ĸ'; + end else + if StrToFloat(MJSJKZ.Text)StrToFloat(KZSX) then + begin + Label14.Visible:=True; + Label14.Caption:='ĸس>'+floattostr(StrToFloat(MJSJKZ.Text)-StrToFloat(KZSX))+'g/O'; + end; + end else + begin + MJSJKZ.Text:=''; + Label14.Caption:=''; + Label14.Visible:=False; + end; + +end; + +function TfrmMJManage.SaveData():Boolean; +var + maxno,FMJID:String; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,'','WFB_MJJY',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(Order_MJ.fieldbyname('MainId').AsString); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJMaoZ').Value:=Trim(MJMaoZ.Text); + FieldByName('MJLen').Value:=Trim(MJLen.Text); + FieldByName('MJFK').Value:=Trim(MJFK.Text); + FieldByName('MJSJKZ').Value:=Trim(MJSJKZ.Text); + FieldByName('MJBanZu').Value:=Trim(MJBanZu.Text); + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + Post; + end; + FMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + InitCDGridID(); + CDS_MJID.Locate('MJID',FMJID,[]); + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManage.BTAddClick(Sender: TObject); +begin + if PState=1 then + begin + if( (CDS_MJCD.IsEmpty=False) or (Trim(MJMaoZ.Text)<>'') or (Trim(MJLen.Text)<>'') or (Trim(MJFK.Text)<>'') ) then + if Application.MessageBox(PChar(' δӡǷҪ?'+#13+#13+'"(Y)"ǰݽᶪʧ'),'ʾ',32+4)<>IDYES then Exit; + end; + if Order_MJ.IsEmpty then Exit; + PState:=1; + InitCDGrid(); + SClearData(Panel5,0); + {Tv2.OptionsSelection.CellSelect:=True; + MJMaoZ.ReadOnly:=False; + MJLen.ReadOnly:=False; + MJFK.ReadOnly:=False; + Button38.Enabled:=True; } + BtnStatus(True); +end; + +procedure TfrmMJManage.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; +end; + +procedure TfrmMJManage.BTPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_MJ.IsEmpty then Exit; + if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end; + if Trim(MJLen.Text)='' then + begin + Application.MessageBox('ȲΪգ','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Trim(MJBanZu.Text)='' then + begin + Application.MessageBox('鲻Ϊգ','ʾ',0); + Exit; + end; + if PState=1 then + begin + if Application.MessageBox('ȷҪӡ𣿴ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //Application.MessageBox('ӡɹ','ʾ',0); + BtnStatus(False); + {Tv2.OptionsSelection.CellSelect:=False; + MJMaoZ.ReadOnly:=True; + MJLen.ReadOnly:=True; + MJFK.ReadOnly:=True; + Button38.Enabled:=False;} + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(A.MJID) MJID,RTrim(A.MJSJKZ) MJSJKZ,RTrim(A.MJFK) MJFK,RTrim(B.OrderNo) OrderNo,RTrim(B.WFBCodeName) WFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; +end; +procedure TfrmMJManage.BtnStatus(BSInt:Boolean); +begin + Tv2.OptionsSelection.CellSelect:=BSInt; + MJMaoZ.ReadOnly:=not BSInt; + MJLen.ReadOnly:=not BSInt; + MJFK.ReadOnly:=not BSInt; + Button38.Enabled:=BSInt; +end; +procedure TfrmMJManage.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +end. diff --git a/贸易管理/U_MJManageNew.dfm b/贸易管理/U_MJManageNew.dfm new file mode 100644 index 0000000..042e7a2 --- /dev/null +++ b/贸易管理/U_MJManageNew.dfm @@ -0,0 +1,1922 @@ +object frmMJManageNew: TfrmMJManageNew + Left = 33 + Top = 83 + Width = 1292 + Height = 773 + Caption = #27597#21367#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 19 + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 1284 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object Label1: TLabel + Left = 143 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 519 + Top = 16 + Width = 80 + Height = 19 + Caption = #25163#24037#24405#20837 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 29 + Top = 32 + Width = 8 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 856 + Top = 16 + Width = 11 + Height = 19 + end + object MainId: TEdit + Left = 224 + Top = 14 + Width = 241 + Height = 27 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MainIdKeyPress + end + object OrderNo: TEdit + Left = 607 + Top = 14 + Width = 241 + Height = 27 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1284 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_RCInspection.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 146 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 78 + Width = 1284 + Height = 174 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object v1Column4: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 47 + end + object v1Column11: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SCOrder' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 45 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 116 + end + object v1Column12: TcxGridDBColumn + Caption = #23450#21367#38271 + DataBinding.FieldName = 'BigLen' + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #23450#21367#25968 + DataBinding.FieldName = 'BigCount' + Options.Focusing = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 52 + end + object v1PRTMF: TcxGridDBColumn + Caption = #29983#20135#38376#24133 + DataBinding.FieldName = 'BigMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 46 + end + object v1Column7: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 46 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 49 + end + object v1Column13: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 66 + end + object v1Column8: TcxGridDBColumn + Caption = #23433#25490#31859#25968 + DataBinding.FieldName = 'OrderQtyM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 81 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#29983#20135#31859#25968 + DataBinding.FieldName = 'SCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 92 + end + object v1Column10: TcxGridDBColumn + Caption = #26410#29983#20135#31859#25968 + DataBinding.FieldName = 'WSCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 95 + end + object v1Column1: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 844 + Top = 252 + Width = 242 + Height = 484 + Align = alLeft + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 77 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 56 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 58 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 47 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 1086 + Top = 252 + Width = 127 + Height = 484 + Align = alLeft + TabOrder = 4 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24050#30331#35760#27597#21367 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 120 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 498 + Top = 252 + Width = 346 + Height = 484 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label3: TLabel + Left = 111 + Top = 28 + Width = 60 + Height = 29 + Caption = #27611#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 111 + Top = 92 + Width = 60 + Height = 29 + Caption = #38271#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 111 + Top = 155 + Width = 60 + Height = 29 + Caption = #24133#23485 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 111 + Top = 219 + Width = 60 + Height = 29 + Caption = #29677#32452 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 305 + Top = 95 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 305 + Top = 32 + Width = 32 + Height = 29 + Caption = 'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 305 + Top = 158 + Width = 32 + Height = 29 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 111 + Top = 345 + Width = 60 + Height = 29 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 281 + Top = 345 + Width = 62 + Height = 29 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 111 + Top = 283 + Width = 60 + Height = 29 + Caption = #30133#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 305 + Top = 286 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 21 + Top = 400 + Width = 180 + Height = 24 + Caption = 'aaaaaaaaaaaaaaa' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object MJMaoZ: TEdit + Left = 173 + Top = 24 + Width = 131 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnChange = MJMaoZChange + OnClick = MJMaoZClick + end + object MJLen: TEdit + Left = 173 + Top = 88 + Width = 131 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + OnChange = MJMaoZChange + OnClick = MJLenClick + end + object MJFK: TEdit + Left = 173 + Top = 152 + Width = 131 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + OnChange = MJMaoZChange + OnClick = MJFKClick + end + object MJBanZu: TEdit + Tag = 2 + Left = 173 + Top = 216 + Width = 131 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + OnClick = MJBanZuClick + end + object BTPrint: TButton + Left = 6 + Top = 164 + Width = 90 + Height = 50 + Caption = #25171#21360#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = BTPrintClick + end + object Button38: TButton + Left = 304 + Top = 220 + Width = 22 + Height = 28 + Caption = '....' + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = Button38Click + end + object MJSJKZ: TEdit + Left = 178 + Top = 343 + Width = 102 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + OnClick = MJSJKZClick + end + object CDQty: TEdit + Tag = 99999 + Left = 178 + Top = 280 + Width = 124 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + OnClick = MJSJKZClick + end + object BTAdd: TButton + Left = 6 + Top = 25 + Width = 90 + Height = 50 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 235 + Top = 404 + Width = 47 + Height = 25 + Caption = #20462#25913 + TabOrder = 9 + Visible = False + OnClick = BTEditClick + end + object Button5: TButton + Left = 6 + Top = 305 + Width = 90 + Height = 50 + Caption = #37325#26032#25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = Button5Click + end + end + object Panel3: TPanel + Left = 144 + Top = 33 + Width = 657 + Height = 172 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 6 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 88 + Top = 3 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 172 + Top = 3 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 256 + Top = 3 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 340 + Top = 3 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 4 + Top = 87 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 88 + Top = 87 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 172 + Top = 87 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 256 + Top = 87 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 340 + Top = 87 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 424 + Top = 87 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 424 + Top = 3 + Width = 80 + Height = 80 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 536 + Top = 44 + Width = 104 + Height = 80 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 252 + Width = 498 + Height = 484 + Align = alLeft + TabOrder = 7 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 0 + Width = 80 + Height = 80 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 85 + Top = 0 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 167 + Top = 0 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 249 + Top = 0 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 331 + Top = 0 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 413 + Top = 0 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 3 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 85 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 167 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 249 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 331 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 413 + Top = 82 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 3 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 85 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 167 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 249 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 331 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 413 + Top = 165 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 3 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 85 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 167 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 249 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 331 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 413 + Top = 248 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 3 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 85 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 167 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 249 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 331 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 413 + Top = 332 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel6: TPanel + Left = 174 + Top = 263 + Width = 1035 + Height = 428 + TabOrder = 8 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 1033 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #36873#21333 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 1000 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button2: TButton + Left = 144 + Top = 366 + Width = 65 + Height = 51 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 776 + Top = 366 + Width = 65 + Height = 51 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button3Click + end + object cxGrid4: TcxGrid + Left = 3 + Top = 25 + Width = 1027 + Height = 330 + TabOrder = 3 + object TvSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = TvSelCellClick + 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 + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = cxGridDBColumn2PropertiesChange + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle6 + Width = 84 + end + object vSelColumn3: TcxGridDBColumn + Caption = #29983#20135#24207#21495 + DataBinding.FieldName = 'SCOrder' + Options.Focusing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 74 + end + object vSelColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle6 + Width = 149 + end + object vSelColumn4: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object vSelColumn6: TcxGridDBColumn + Caption = #23450#21367#38271 + DataBinding.FieldName = 'BigLen' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object vSelColumn5: TcxGridDBColumn + Caption = #23450#21367#25968 + DataBinding.FieldName = 'BigCount' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #29983#20135#38376#24133 + DataBinding.FieldName = 'BigFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle6 + Styles.Header = cxStyle1 + Width = 71 + end + object vSelColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle6 + Width = 43 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle6 + Width = 60 + end + object vSelColumn2: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + Styles.Content = cxStyle6 + Width = 38 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvSel + end + end + end + object MovePanel1: TMovePanel + Left = 26 + Top = 254 + Width = 439 + Height = 299 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 9 + Visible = False + object Label17: TLabel + Left = 50 + Top = 47 + Width = 120 + Height = 29 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 237 + Top = 116 + Width = 30 + Height = 29 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 353 + Top = 55 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 353 + Top = 167 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 51 + Top = 116 + Width = 112 + Height = 29 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 171 + Top = 47 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Edit1Click + end + object Button1: TButton + Left = 73 + Top = 223 + Width = 75 + Height = 49 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 299 + Top = 223 + Width = 75 + Height = 49 + Caption = #21462#28040 + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 171 + Top = 157 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit2Click + OnKeyPress = MainIdKeyPress + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 48 + Top = 40 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 296 + Top = 128 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 328 + Top = 128 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 128 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 128 + end + object ADOCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 432 + Top = 128 + end + object ADOTmp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 128 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 536 + Top = 128 + 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 = 496 + Top = 128 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 672 + Top = 136 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 144 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + OnTimer = Timer1Timer + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 592 + Top = 136 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 624 + Top = 432 + end +end diff --git a/贸易管理/U_MJManageNew.pas b/贸易管理/U_MJManageNew.pas new file mode 100644 index 0000000..85ef37b --- /dev/null +++ b/贸易管理/U_MJManageNew.pas @@ -0,0 +1,1621 @@ +unit U_MJManageNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + + +type + TfrmMJManageNew = class(TForm) + Panel1: TPanel; + MainId: TEdit; + Label1: TLabel; + Label2: TLabel; + OrderNo: TEdit; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TBCD: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + v2Column1: TcxGridDBColumn; + Panel5: TPanel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + MJMaoZ: TEdit; + MJLen: TEdit; + MJFK: TEdit; + MJBanZu: TEdit; + BTPrint: TButton; + Button38: TButton; + MJSJKZ: TEdit; + CDQty: TEdit; + Timer1: TTimer; + Label14: TLabel; + BTAdd: TButton; + BTEdit: TButton; + ADOQueryPrint: TADOQuery; + Label15: TLabel; + Label16: TLabel; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + Button5: TButton; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + Panel6: TPanel; + Panel10: TPanel; + Image2: TImage; + Button2: TButton; + Button3: TButton; + cxGrid4: TcxGrid; + TvSel: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + vSelColumn1: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + vSelColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + v1Column10: TcxGridDBColumn; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + v1Column11: TcxGridDBColumn; + vSelColumn3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + vSelColumn4: TcxGridDBColumn; + vSelColumn5: TcxGridDBColumn; + vSelColumn6: TcxGridDBColumn; + vSelColumn7: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure MainIdKeyPress(Sender: TObject; var Key: Char); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button38Click(Sender: TObject); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Timer1Timer(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure TvSelCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Edit1Click(Sender: TObject); + procedure Edit2Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid:Integer; + FColumn:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitGrid(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + public + { Public declarations } + end; + +var + frmMJManageNew: TfrmMJManageNew; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNew.FormDestroy(Sender: TObject); +begin + frmMJManageNew:=nil; +end; + +procedure TfrmMJManageNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; +end; +procedure TfrmMJManageNew.MainIdKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + InitCDGridID(); + ADOQueryMain.First; + SSetWinData(ADOQueryMain,Panel5); + if CDS_MJID.IsEmpty then + begin + SClearData(Panel5,0); + end; + InitCDGrid(); + + end; +end; +procedure TfrmMJManageNew.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + //sql.Add('select A.OrderNo,B.* from WFBOrder_Main A inner join WFBOrder_Sub B on A.MainId=B.MainId where A.MainID='''+Trim(MainId.Text)+''''); + { sql.Add('select A.OrderNo,B.* from WFBOrder_Main A inner join WFBOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' inner join WFBOrder_Main_Attachment C on C.MainId=A.MainId'); + sql.Add(' where not exists(select * from WFBOrder_Status D where D.MainId=A.MainId and D.OSFlag10=1)'); } + sql.Add(' exec P_ProductAnPai :begdate,:enddate,:pstate,:WSQl'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('pstate').Value:=2; + Parameters.ParamByName('WSQl').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_MJ); + SInitCDSData20(ADOQueryMain,Order_MJ); + MainId.Text:=''; +end; +procedure TfrmMJManageNew.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); + //MainId.Text:=''; +end; +procedure TfrmMJManageNew.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where SubID='''+Trim(Order_MJ.fieldbyname('SubID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); + //MainId.Text:=''; +end; + +procedure TfrmMJManageNew.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + WriteCxGrid('ĸϢ1',Tv1,'޷IJ'); + WriteCxGrid('ĸϢ2',TvSel,'޷IJ'); + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNew.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNew.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='޷IJõ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNew.FormShow(Sender: TObject); +begin + ReadCxGrid('ĸϢ1',Tv1,'޷IJ'); + ReadCxGrid('ĸϢ2',TvSel,'޷IJ'); + InitJP(); + InitGrid(); + with ADOTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD where MJID='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); + PState:=1; + with ADOTmp do + begin + First; + while not Eof do + begin + with CDS_MJCD do + begin + Append; + FieldByName('CDName').Value:=ADOTmp.fieldbyname('CDName').Value; + FieldByName('CDBeg').Value:=ADOTmp.fieldbyname('CDBeg').Value; + FieldByName('CDEnd').Value:=ADOTmp.fieldbyname('CDEnd').Value; + FieldByName('CDQty').Value:=ADOTmp.fieldbyname('CDQty').Value; + Post; + end; + Next; + end; + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + MJBanZu.Text:=Trim(ADOTmp.fieldbyname('BanZu').AsString); + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + ExecSQL; + end; + end; +end; +procedure TfrmMJManageNew.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>29 then + begin + i:=29; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNew.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNew.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNew.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + MJMaoZ.Text:=Trim(MJMaoZ.Text)+Trim(TButton(Fbtn).Caption); + end else + if FInt=2 then + begin + MJLen.Text:=Trim(MJLen.Text)+Trim(TButton(Fbtn).Caption); + end else + if FInt=3 then + begin + MJFK.Text:=Trim(MJFK.Text)+Trim(TButton(Fbtn).Caption); + end else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNew.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + MJMaoZ.Text:=Trim(MJMaoZ.Text)+Trim(TSpeedButton(Fbtn).Caption); + MJMaoZ.SelectAll; + end else + if FInt=2 then + begin + MJLen.Text:=Trim(MJLen.Text)+Trim(TSpeedButton(Fbtn).Caption); + MJLen.SelectAll; + end else + if FInt=3 then + begin + MJFK.Text:=Trim(MJFK.Text)+Trim(TSpeedButton(Fbtn).Caption); + MJFK.SelectAll; + end else + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNew.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + if CDS_MJCD.FieldByName('MJID').AsString='' then + begin + CDS_MJCD.Delete; + end; +end; + +procedure TfrmMJManageNew.Button38Click(Sender: TObject); +begin + FColumn:=''; + FInt:=0; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBBZ'; + flagname:=''; + if ShowModal=1 then + begin + Self.MJBanZu.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNew.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNew.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNew.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNew.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNew.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNew.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNew.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNew.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNew.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + if Trim(MJMaoZ.Text)<>'' then + MJMaoZ.Text:=Copy(Trim(MJMaoZ.Text),1,Length(Trim(MJMaoZ.Text))-1); + end else + if FInt=2 then + begin + if Trim(MJLen.Text)<>'' then + MJLen.Text:=Copy(Trim(MJLen.Text),1,Length(Trim(MJLen.Text))-1); + end else + if FInt=3 then + begin + if Trim(MJFK.Text)<>'' then + MJFK.Text:=Copy(Trim(MJFK.Text),1,Length(Trim(MJFK.Text))-1); + end else + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + //MValue:=TcxTextEdit(Tv2CDQty).EditingText; + //BTPrint.SetFocus; + end; + + + end; + end; +end; + +procedure TfrmMJManageNew.Timer1Timer(Sender: TObject); +begin + CDQty.Text:=Tv2.DataController.Summary.FooterSummaryTexts[0]; +end; + +procedure TfrmMJManageNew.MJMaoZChange(Sender: TObject); +var + KZSX,KZXX,FMJMaoZ,FMJLen,FMJFK:string; +begin + if PState=0 then Exit; + if (Trim(MJMaoZ.Text)<>'') and (Trim(MJLen.Text)<>'') and (Trim(MJFK.Text)<>'') then + begin + MJSJKZ.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)/(StrToFloat(MJLen.Text)*StrToFloat(MJFK.Text)/100)) ; + MJSJKZ.Text:=FloatToStr(SSWR(StrToFloat(MJSJKZ.Text)*1000)); + //KZSX:=Trim(Order_MJ.fieldbyname('MJKZD').AsString); + //KZXX:=Trim(Order_MJ.fieldbyname('MJKZX').AsString); + KZSX:=Trim(Order_MJ.fieldbyname('KZBig').AsString); + KZXX:=Trim(Order_MJ.fieldbyname('KZSmal').AsString); + if (StrToFloat(MJSJKZ.Text)>=StrToFloat(KZXX)) and (StrToFloat(MJSJKZ.Text)<=StrToFloat(KZSX)) then + begin + Label14.Visible:=True; + Label14.Caption:='ĸ'; + Label14.Font.Color:=clBlue; + end else + if StrToFloat(MJSJKZ.Text)StrToFloat(KZSX) then + begin + Label14.Visible:=True; + Label14.Caption:='ĸس>'+floattostr(StrToFloat(MJSJKZ.Text)-StrToFloat(KZSX))+'g/O'; + Label14.Font.Color:=clRed; + end; + end else + begin + MJSJKZ.Text:=''; + Label14.Caption:=''; + Label14.Visible:=False; + end; + +end; + +function TfrmMJManageNew.SaveData():Boolean; +var + maxno,FMJID,BZID:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select Max(Cast(MJID as int)) as MJIDInt from WFB_JYResult'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + maxno:=Trim(ADOTmp.fieldbyname('MJIDInt').AsString); + + {if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; } + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(Order_MJ.fieldbyname('MainId').AsString); + FieldByName('SubId').value:=Trim(Order_MJ.fieldbyname('SubId').AsString); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJMaoZ').Value:=Trim(MJMaoZ.Text); + FieldByName('MJLen').Value:=Trim(MJLen.Text); + FieldByName('MJFK').Value:=Trim(MJFK.Text); + FieldByName('MJSJKZ').Value:=Trim(MJSJKZ.Text); + FieldByName('MJBanZu').Value:=Trim(MJBanZu.Text); + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + end; + FMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + //Ա + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from WFB_BanZu where MJID='''+Trim(FMJID)+''''); + sql.Add(' and BanZu='''+Trim(MJBanZu.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from WFB_BanZu where MJID='''+Trim(FMJID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + FMJLen:=0; + end else + begin + FMJLen:=ADOTmp.fieldbyname('MJLen').Value; + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where BanZu='''+Trim(MJBanZu.Text)+''''); + Open; + end; + with ADOTmp do + begin + First; + while not eof do + begin + if GetLSNo(ADOCmd,BZID,'BZ','WFB_BanZu',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_BanZu where 1<>1'); + open; + end; + with ADOCmd do + begin + Append; + FieldByName('BZID').Value:=Trim(BZID); + FieldByName('BanZu').Value:=Trim(MJBanZu.Text); + FieldByName('MJID').Value:=Trim(FMJID); + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text)-FMJlen; + FieldByName('UserId').Value:=Trim(ADOTmp.fieldbyname('UserId').AsString); + FieldByName('UserName').Value:=Trim(ADOTmp.fieldbyname('UserName').AsString); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + Next; + end; + end; + end; + //Ա + with Order_MJ do + begin + Edit; + FieldByName('SCMQty').Value:=FieldByName('SCMQty').Value+Strtofloat(MJLen.Text); + Post; + end; + with Order_MJ do + begin + Edit; + FieldByName('WSCMQty').Value:=FieldByName('OrderQtyM').Value-FieldByName('SCMQty').Value; + Post; + end; + if ((Order_MJ.FieldByName('SCMQty').Value-Order_MJ.FieldByName('OrderQtyM').Value)/Order_MJ.FieldByName('OrderQtyM').Value )>=0 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set SCStatus='''',SCOrder='''' '); + SQL.Add(' where SubId='''+Trim(Order_MJ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('exec P_ProductAnPai_JY'); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + FOrder:=1; + with ADOTmp do + begin + First; + while not Eof do + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set SCOrder='''+Trim(IntToStr(FOrder))+''''); + SQL.Add(' where SubId='''+Trim(ADOTmp.FieldByName('SubId').Asstring)+''''); + ExecSQL; + end; + FOrder:=FOrder+1; + Next; + end; + end; + SCInitGrid:=1; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set SCStatus='''' '); + SQL.Add(' where SubId='''+Trim(Order_MJ.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + InitCDGridID(); + CDS_MJID.Locate('MJID',FMJID,[]); + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNew.BTAddClick(Sender: TObject); +begin + + if PState=1 then + begin + if( (CDS_MJCD.IsEmpty=False) or (Trim(MJMaoZ.Text)<>'') or (Trim(MJLen.Text)<>'') or (Trim(MJFK.Text)<>'') ) then + if Application.MessageBox(PChar(' δӡǷҪ?'+#13+#13+'"(Y)"ǰݽᶪʧ'),'ʾ',32+4)<>IDYES then Exit; + end; + if Order_MJ.IsEmpty then Exit; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + MJBanZu.Text:=Trim(Fieldbyname('BanZu').AsString); + end; + if Trim(MJBanZu.Text)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; + PState:=1; + InitCDGrid(); + SClearData(Panel5,0); + {Tv2.OptionsSelection.CellSelect:=True; + MJMaoZ.ReadOnly:=False; + MJLen.ReadOnly:=False; + MJFK.ReadOnly:=False; + Button38.Enabled:=True; } + BtnStatus(True); + + Label16.Caption:=''; +end; + +procedure TfrmMJManageNew.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNew.BTPrintClick(Sender: TObject); +var + fPrintFile,FFMJFK,FFYDFK:string; +begin + if Order_MJ.IsEmpty then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end; + if Trim(MJLen.Text)='' then + begin + Application.MessageBox('ȲΪգ','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + FFMJFK:=Trim(MJFK.Text); + FFYDFK:=Trim(Order_MJ.fieldbyname('BigMF').AsString); + if ((StrToFloat(FFMJFK)-StrToFloat(FFYDFK))/StrToFloat(FFYDFK))<-0.3 then + begin + Application.MessageBox('¼','ʾ',0); + Exit; + end; + if ((StrToFloat(FFMJFK)-StrToFloat(FFYDFK))/StrToFloat(FFYDFK))>0.3 then + begin + Application.MessageBox('¼','ʾ',0); + Exit; + end; + if Trim(MJBanZu.Text)='' then + begin + Application.MessageBox('鲻Ϊգ','ʾ',0); + Exit; + end; + Panel6.Visible:=True; + { if PState=1 then + begin + if Application.MessageBox('ȷҪӡ𣿴ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + BtnStatus(False); + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(A.MJID) MJID,RTrim(A.MJSJKZ) MJSJKZ,RTrim(A.MJFK) MJFK,RTrim(B.OrderNo) OrderNo,RTrim(B.WFBCodeName) WFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + Label16.Caption:=''; + BTAdd.Click; } +end; +procedure TfrmMJManageNew.BtnStatus(BSInt:Boolean); +begin + Tv2.OptionsSelection.CellSelect:=BSInt; + MJMaoZ.ReadOnly:=not BSInt; + MJLen.ReadOnly:=not BSInt; + MJFK.ReadOnly:=not BSInt; + Button38.Enabled:=BSInt; +end; +procedure TfrmMJManageNew.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNew.SpeedButton1Click(Sender: TObject); +begin + AddSLNew(TSpeedButton(Sender)); +end; + +procedure TfrmMJManageNew.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=1 then + begin + if Trim(MJMaoZ.Text)<>'' then + begin + MJMaoZ.Text:=Copy(Trim(MJMaoZ.Text),1,Length(Trim(MJMaoZ.Text))-1); + MJMaoZ.SelectAll; + end; + end else + if FInt=2 then + begin + if Trim(MJLen.Text)<>'' then + begin + MJLen.Text:=Copy(Trim(MJLen.Text),1,Length(Trim(MJLen.Text))-1); + MJLen.SelectAll; + end; + end else + if FInt=3 then + begin + if Trim(MJFK.Text)<>'' then + begin + MJFK.Text:=Copy(Trim(MJFK.Text),1,Length(Trim(MJFK.Text))-1); + MJFK.SelectAll; + end; + end else + if FInt=11 then + begin + if Trim(Edit1.Text)<>'' then + begin + Edit1.Text:=Copy(Trim(Edit1.Text),1,Length(Trim(Edit1.Text))-1); + Edit1.SelectAll; + end; + end else + if FInt=12 then + begin + if Trim(Edit2.Text)<>'' then + begin + Edit2.Text:=Copy(Trim(Edit2.Text),1,Length(Trim(Edit2.Text))-1); + Edit2.SelectAll; + end; + end;{ else + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + //Tv2.GetColumnByFieldName(FColumn).Selected:=True; + // Tv2.GetColumnByFieldName(FColumn).FocusWithSelection; + //(Tv2.GetColumnByFieldName(FColumn).Properties as TcxTextEditProperties).AutoSelect:=True; + end; + //MValue:=TcxTextEdit(Tv2CDQty).EditingText; + //BTPrint.SetFocus; + end; + + + end; + end;} +end; + +procedure TfrmMJManageNew.SpeedButton13Click(Sender: TObject); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + Panel3.Visible:=True; + //AddCDNew(TSpeedButton(Sender)); +end; + +procedure TfrmMJManageNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel6).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmMJManageNew.Image2Click(Sender: TObject); +begin + Panel6.Visible:=False; +end; + +procedure TfrmMJManageNew.Button3Click(Sender: TObject); +begin + Panel6.Visible:=False; +end; + +procedure TfrmMJManageNew.Button2Click(Sender: TObject); +var + fPrintFile:String; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_JYResult where Cast(MJID as int)>'); + sql.Add(' (select isnull(Max(Cast(MJID as int)),0) from WFB_MJJY '); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where JTType='''+Trim(SCXFlag)+''''); + end; + sql.Add(')'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('δ鲻ܴӡǩ','ʾ',0); + Exit; + end; + if Order_MJ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('δѡ¼','ʾ',0); + Exit; + end; + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + Panel6.Visible:=False; + end; + + if SaveData() then + begin + BtnStatus(False); + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select RTrim(A.MJID) MJID,RTrim(Cast(A.MJSJKZ As varchar(20))) MJSJKZ,RTrim(Cast(A.MJFK as varchar(20))) MJFK,RTrim(B.OrderNo) OrderNo,'); + sql.Add(' RTrim(Cast(A.MJMaoZ As varchar(20))) MJMaoZ,RTrim(Cast(A.MJLen As varchar(20))) MJLen,'); + sql.Add(' Rtrim(C.SWFBColor) SWFBColor,Rtrim(Cast(C.SWFBKZ as varchar(20))) SWFBKZ, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if SCInitGrid=1 then + begin + InitGrid(); + SCInitGrid:=0; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + Label16.Caption:=''; + BTAdd.Click; +end; + +procedure TfrmMJManageNew.TvSelCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + + { fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); } +end; + +procedure TfrmMJManageNew.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNew.Button1Click(Sender: TObject); +begin + + //MovePanel1.Visible:=True; + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + MovePanel1.Visible:=False; +end; + +procedure TfrmMJManageNew.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmMJManageNew.ToolButton1Click(Sender: TObject); +begin + InitGrid(); + InitJP(); +end; + +procedure TfrmMJManageNew.Edit1Click(Sender: TObject); +begin + FInt:=11; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNew.Edit2Click(Sender: TObject); +begin + FInt:=12; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNew.Button5Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_MJID.IsEmpty then Exit; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(A.MJID) MJID,RTrim(A.MJSJKZ) MJSJKZ,RTrim(A.MJFK) MJFK,RTrim(B.OrderNo)+'' ش'' OrderNo,'); + sql.Add('RTrim(A.MJLen) MJLen,RTrim(A.MJMaoZ) MJMaoZ,'); + sql.Add('Rtrim(C.SWFBColor) SWFBColor,Rtrim(C.SWFBKZ) SWFBKZ, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmMJManageNew.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +end. diff --git a/贸易管理/U_MJManageNewFD1.dfm b/贸易管理/U_MJManageNewFD1.dfm new file mode 100644 index 0000000..7b89fda --- /dev/null +++ b/贸易管理/U_MJManageNewFD1.dfm @@ -0,0 +1,2054 @@ +object frmMJManageNewFD: TfrmMJManageNewFD + Left = 89 + Top = 0 + Width = 912 + Height = 705 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 817 + Top = 78 + Width = 403 + Height = 571 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 157 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 82 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 81 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 76 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 1220 + Top = 78 + Width = 146 + Height = 571 + Align = alLeft + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24050#30331#35760 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 137 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 78 + Width = 601 + Height = 571 + Align = alLeft + TabOrder = 3 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 0 + Width = 70 + Height = 70 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 77 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 151 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 225 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 299 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 373 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 447 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 521 + Top = 0 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 3 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 77 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 151 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 225 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 299 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 373 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 447 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 521 + Top = 74 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 3 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 77 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 151 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 225 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 299 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 373 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 447 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 521 + Top = 148 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 3 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 77 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 151 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 225 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 299 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 373 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 447 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 521 + Top = 222 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 3 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 77 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 151 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 225 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 299 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 373 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 447 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 521 + Top = 296 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 3 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 77 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 151 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 225 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 299 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 373 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 447 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 521 + Top = 370 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 3 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 77 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 151 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 225 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 299 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton67: TSpeedButton + Left = 373 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton68: TSpeedButton + Left = 447 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton69: TSpeedButton + Left = 521 + Top = 444 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 3 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 77 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 151 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 225 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 299 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 373 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton76: TSpeedButton + Left = 447 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton77: TSpeedButton + Left = 521 + Top = 518 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object MovePanel1: TMovePanel + Left = 136 + Top = 112 + Width = 313 + Height = 281 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 88 + Height = 21 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 178 + Top = 59 + Width = 20 + Height = 19 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 264 + Top = 24 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 264 + Top = 89 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 29 + Top = 89 + Width = 84 + Height = 21 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 264 + Top = 167 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 167 + Width = 92 + Height = 21 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 124 + Top = 14 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 36 + Top = 221 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 190 + Top = 221 + Width = 64 + Height = 42 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 124 + Top = 79 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 124 + Top = 157 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 1366 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 5 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 280 + Top = 15 + Width = 11 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 864 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 739 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 819 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + end + object Panel3: TPanel + Left = 13 + Top = 394 + Width = 588 + Height = 154 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 6 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 78 + Top = 3 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 152 + Top = 3 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 226 + Top = 3 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 300 + Top = 5 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 374 + Top = 5 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 5 + Top = 78 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 79 + Top = 78 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 153 + Top = 80 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 227 + Top = 80 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 301 + Top = 80 + Width = 70 + Height = 70 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 375 + Top = 80 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 456 + Top = 52 + Width = 89 + Height = 69 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel2: TPanel + Left = 601 + Top = 78 + Width = 216 + Height = 571 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 7 + object Label9: TLabel + Left = 174 + Top = 79 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 174 + Top = 136 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 174 + Top = 191 + Width = 24 + Height = 22 + Caption = 'Kg' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 17 + Top = 79 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 17 + Top = 136 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 17 + Top = 191 + Width = 40 + Height = 23 + Caption = #37325#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 17 + Top = 290 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 114 + Top = 290 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 174 + Top = 18 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 17 + Top = 18 + Width = 40 + Height = 23 + Caption = #21407#30721 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 79 + Top = 348 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 174 + Top = 239 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 17 + Top = 238 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 61 + Top = 127 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Edit1Click + end + object MJLen: TEdit + Left = 61 + Top = 70 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Edit1Click + end + object MJMaoZ: TEdit + Left = 61 + Top = 182 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + end + object BTPrint: TButton + Left = 56 + Top = 354 + Width = 105 + Height = 70 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 56 + Top = 458 + Width = 105 + Height = 70 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 62 + Top = 280 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Text = #8730 + OnClick = Edit3Click + end + object Edit4: TEdit + Left = 156 + Top = 280 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + OnClick = Edit4Click + end + object MJQty1: TEdit + Left = 61 + Top = 9 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Edit1Click + end + object MJSJKZ: TEdit + Left = 61 + Top = 229 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Edit1Click + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 368 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 616 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 432 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 616 + Top = 48 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 48 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 48 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 656 + Top = 467 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/贸易管理/U_MJManageNewFD1.pas b/贸易管理/U_MJManageNewFD1.pas new file mode 100644 index 0000000..04b40c1 --- /dev/null +++ b/贸易管理/U_MJManageNewFD1.pas @@ -0,0 +1,1450 @@ +unit U_MJManageNewFD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + + +type + TfrmMJManageNewFD = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TBCD: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + v2Column1: TcxGridDBColumn; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + v2Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + Panel1: TPanel; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + Label1: TLabel; + APID: TEdit; + Label2: TLabel; + BTAdd: TButton; + BTEdit: TButton; + Label16: TLabel; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton68: TSpeedButton; + SpeedButton69: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton77: TSpeedButton; + Label7: TLabel; + CDQty: TEdit; + Label8: TLabel; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + public + { Public declarations } + end; + +var + frmMJManageNewFD: TfrmMJManageNewFD; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFD.FormDestroy(Sender: TObject); +begin + frmMJManageNewFD:=nil; +end; + +procedure TfrmMJManageNewFD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; +end; +procedure TfrmMJManageNewFD.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFD.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFD.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFD.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFD.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFD.FormShow(Sender: TObject); +begin + InitJP(); + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; +end; +procedure TfrmMJManageNewFD.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>63 then + begin + i:=63; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFD.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFD.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFD.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFD.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFD.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFD.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFD.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFD.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFD.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFD.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFD.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFD.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + //MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFD.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFD.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFD.SaveData():Boolean; +var + maxno,FMJID,BZID:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 from WFB_MJJY A where A.APID=WFB_MJJY.APID)'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFD.BTAddClick(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFD.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFD.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; +begin + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)='' then + begin + Application.MessageBox('ȲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJSJKZ.Text:=''; + Label15.Caption:=''; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,Qty=A.MJLen,QtyUnit=A.MJTypeOther,B.orderNo,D.GangNo,PRTColorEng=E.Note,'); + sql.Add(' MPRTCodeNameEng=(select Top 1 F.CYEName from CP_YDang F where F.CYNo=B.OrdDefStr1),C.SLbName'); + sql.Add(',B.MPRTCF,C.SOrddefstr4,C.*,A.* '); + sql.Add(' from WFB_MJJY A') ; + 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(' inner join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + Label16.Caption:=''; + BTAdd.Click; +end; +procedure TfrmMJManageNewFD.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFD.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFD.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFD.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFD.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFD.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + //CDQty.SetFocus; + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFD.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFD.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFD.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFD.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + InitJP(); +end; + +procedure TfrmMJManageNewFD.Button5Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,Qty=A.MJLen,QtyUnit=A.MJTypeOther,B.orderNo,D.GangNo,PRTColorEng=E.Note,'); + sql.Add(' MPRTCodeNameEng=(select Top 1 F.CYEName from CP_YDang F where F.CYNo=B.OrdDefStr1),C.SLbName'); + sql.Add(',B.MPRTCF,C.SOrddefstr4,C.*,A.* '); + sql.Add(' from WFB_MJJY A') ; + 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(' inner join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmMJManageNewFD.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFD.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where APID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('GangNo').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('MainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('SubId').AsString); + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + Label19.Caption:=Trim(Label9.Caption); + Label20.Caption:=Trim(Label9.Caption); + Label7.Caption:=Trim(Label9.Caption); + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFD.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFD.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFD.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFD.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + end; +end; + +end. diff --git a/贸易管理/U_MJManageNewFDNew.dfm b/贸易管理/U_MJManageNewFDNew.dfm new file mode 100644 index 0000000..2b3c030 --- /dev/null +++ b/贸易管理/U_MJManageNewFDNew.dfm @@ -0,0 +1,2998 @@ +object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF + Left = 215 + Top = 140 + Width = 1556 + Height = 884 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 828 + Top = 81 + Width = 712 + Height = 764 + Align = alClient + TabOrder = 4 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skSum + Column = v3Column5 + end + item + Format = #21367#25968':0' + Kind = skCount + Column = cxGridDBColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle7 + Styles.Header = cxStyle7 + Width = 94 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 40 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 40 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Footer = cxStyle5 + Styles.Header = cxStyle5 + Width = 50 + end + object v3Column5: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 50 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 40 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 381 + Height = 764 + Align = alLeft + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 287 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 343 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 7 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 63 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 119 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 175 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 231 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 287 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 343 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 7 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 63 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 119 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 175 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 287 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 343 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 7 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 63 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 119 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 175 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 231 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 287 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 343 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 7 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 63 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 119 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 175 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 231 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 287 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 343 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 63 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 119 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 175 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 231 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 287 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton67: TSpeedButton + Left = 343 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 7 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 63 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 119 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 175 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 231 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 287 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 343 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 7 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 63 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 119 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 175 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 231 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 287 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 343 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 7 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 63 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 119 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 175 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton68: TSpeedButton + Left = 231 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton69: TSpeedButton + Left = 287 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton76: TSpeedButton + Left = 343 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton77: TSpeedButton + Left = 7 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton78: TSpeedButton + Left = 63 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton79: TSpeedButton + Left = 119 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton80: TSpeedButton + Left = 175 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton81: TSpeedButton + Left = 231 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton82: TSpeedButton + Left = 287 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton83: TSpeedButton + Left = 343 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 381 + Top = 81 + Width = 204 + Height = 764 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 126 + Top = 76 + Width = 17 + Height = 23 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 150 + Top = 244 + Width = 26 + Height = 23 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 148 + Top = 163 + Width = 29 + Height = 23 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 6 + Top = 77 + Width = 40 + Height = 20 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 7 + Top = 237 + Width = 40 + Height = 20 + Caption = #20840#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 7 + Top = 173 + Width = 40 + Height = 20 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 7 + Top = 429 + Width = 40 + Height = 20 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 92 + Top = 426 + Width = 40 + Height = 23 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 17 + Height = 23 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 199 + Top = 251 + Width = 6 + Height = 23 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 148 + Top = 270 + Width = 37 + Height = 23 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 7 + Top = 269 + Width = 40 + Height = 20 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 7 + Top = 205 + Width = 40 + Height = 20 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 299 + Top = 298 + Width = 40 + Height = 23 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 7 + Top = 472 + Width = 40 + Height = 20 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 7 + Top = 109 + Width = 40 + Height = 20 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 148 + Top = 130 + Width = 29 + Height = 23 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 7 + Top = 141 + Width = 40 + Height = 20 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 148 + Top = 101 + Width = 29 + Height = 23 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 92 + Top = 469 + Width = 40 + Height = 23 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label36: TLabel + Left = 7 + Top = 13 + Width = 40 + Height = 20 + Caption = #21367#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 7 + Top = 45 + Width = 40 + Height = 20 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label38: TLabel + Left = 7 + Top = 301 + Width = 40 + Height = 20 + Caption = #31995#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label40: TLabel + Left = 8 + Top = 333 + Width = 40 + Height = 20 + Caption = #21367#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label41: TLabel + Left = 7 + Top = 503 + Width = 36 + Height = 38 + Caption = #21253#13#10#26631#31614 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label42: TLabel + Left = 3 + Top = 363 + Width = 8 + Height = 16 + Caption = '1' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label43: TLabel + Left = 101 + Top = 367 + Width = 8 + Height = 16 + Caption = '2' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label44: TLabel + Left = 30 + Top = 395 + Width = 8 + Height = 16 + Caption = '3' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 51 + Top = 229 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 52 + Top = 69 + Width = 75 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJLenChange + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJstr3KeyPress + end + object MJMaoZ: TEdit + Left = 51 + Top = 165 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object BTPrint: TButton + Left = 4 + Top = 552 + Width = 80 + Height = 45 + Caption = #25552#20132 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 18 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 99 + Top = 552 + Width = 80 + Height = 45 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 19 + Visible = False + OnClick = Button5Click + end + object Edit3: TEdit + Left = 48 + Top = 416 + Width = 40 + Height = 44 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -36 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 15 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 133 + Top = 416 + Width = 45 + Height = 44 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -36 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 14 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -33 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 50 + Top = 261 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 51 + Top = 197 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJQty2Change + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object Edit5: TEdit + Left = 344 + Top = 288 + Width = 39 + Height = 44 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -36 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 48 + Top = 463 + Width = 40 + Height = 44 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -36 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 17 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -33 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 51 + Top = 101 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 51 + Top = 133 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 133 + Top = 461 + Width = 45 + Height = 44 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -31 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 36 + ItemIndex = 0 + ParentFont = False + TabOrder = 16 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object MJStr4: TEdit + Left = 51 + Top = 37 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = MJStr4Click + OnKeyPress = MJStr4KeyPress + end + object mjxh: TEdit + Left = 51 + Top = 5 + Width = 90 + Height = 32 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object MKXS: TEdit + Left = 51 + Top = 293 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object Edit10: TEdit + Left = 51 + Top = 325 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + Text = '1' + OnClick = Edit1Click + end + object Edit9: TEdit + Left = 48 + Top = 504 + Width = 40 + Height = 44 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -36 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 20 + Text = #8730 + OnClick = Edit9Click + OnKeyPress = MJstr3KeyPress + end + object Edit11: TEdit + Left = 90 + Top = 505 + Width = 41 + Height = 39 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -31 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 21 + Text = '1' + OnClick = Edit1Click + end + object ComboBox2: TComboBox + Left = 133 + Top = 505 + Width = 45 + Height = 44 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -31 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 36 + ItemIndex = 0 + ParentFont = False + TabOrder = 22 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object XSDian: TEdit + Left = 145 + Top = 72 + Width = 31 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 23 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJstr3KeyPress + end + object Kaip1: TEdit + Left = 13 + Top = 358 + Width = 88 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 24 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object Kaip2: TEdit + Left = 111 + Top = 358 + Width = 88 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 25 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object Kaip3: TEdit + Left = 49 + Top = 387 + Width = 90 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 26 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + end + object Panel3: TPanel + Left = 4 + Top = 426 + Width = 375 + Height = 231 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 6 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 78 + Top = 3 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 152 + Top = 3 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 226 + Top = 3 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 75 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 78 + Top = 75 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 152 + Top = 75 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 226 + Top = 75 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 4 + Top = 150 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 78 + Top = 150 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 152 + Top = 150 + Width = 70 + Height = 70 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -33 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 226 + Top = 150 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 303 + Top = 81 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -31 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1540 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1536 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1534 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 84 + Height = 20 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 653 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 509 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 813 + Top = 15 + Width = 84 + Height = 20 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label39: TLabel + Left = 949 + Top = 15 + Width = 42 + Height = 20 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1160 + Top = 8 + Width = 33 + Height = 25 + Caption = #20462#25913 + TabOrder = 0 + Visible = False + OnClick = BTEditClick + end + object Edit7: TEdit + Left = 784 + Top = 12 + Width = 28 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Text = #8730 + Visible = False + OnClick = Edit7Click + end + object Button6: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + end + object Edit8: TEdit + Left = 920 + Top = 12 + Width = 28 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1534 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 0 + Top = 85 + Width = 382 + Height = 337 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 72 + Height = 17 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 178 + Top = 27 + Width = 18 + Height = 17 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 0 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 272 + Top = 25 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 293 + Top = 25 + Width = 70 + Height = 17 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 61 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 61 + Width = 76 + Height = 17 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 14 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 172 + Top = 277 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button1Click + end + object Button4: TButton + Left = 278 + Top = 277 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 196 + Top = 15 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 51 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + end + object RadioGroup1: TRadioGroup + Left = -1 + Top = 83 + Width = 389 + Height = 185 + Columns = 2 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + Items.Strings = ( + '0-3"' + '3"-6"' + '6"-9"' + #8805'9"' + #30772#27934 + '1'#31859#20869#36830#32493#20986#29616#29781#30133) + ParentFont = False + TabOrder = 3 + end + object Button2: TButton + Left = 14 + Top = 277 + Width = 75 + Height = 42 + Caption = #21462#28040#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button2Click + end + end + object Panel7: TPanel + Left = 585 + Top = 81 + Width = 243 + Height = 764 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 239 + Height = 367 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 75 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 52 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 51 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 55 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object AOrdDefNote1: TRichEdit + Left = 2 + Top = 581 + Width = 239 + Height = 181 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + end + object Picture4: TcxDBImage + Left = 2 + Top = 369 + Hint = 'FileName' + Align = alBottom + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DataSource1 + Properties.GraphicClassName = 'TJPEGImage' + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 1 + OnDblClick = Picture4DblClick + Height = 212 + Width = 239 + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 612 + Top = 1 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = ADOQueryImage + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 536 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle7: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 661 + Top = 472 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object RM3: 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 = 496 + ReportData = {} + end + object ADOTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 432 + Top = 1 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 283 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 628 + Top = 466 + end +end diff --git a/贸易管理/U_MJManageNewFDNew.pas b/贸易管理/U_MJManageNewFDNew.pas new file mode 100644 index 0000000..fa03f49 --- /dev/null +++ b/贸易管理/U_MJManageNewFDNew.pas @@ -0,0 +1,2374 @@ +unit U_MJManageNewFDNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, cxContainer, cxImage, cxDBEdit,StrUtils, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; + + function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData1301(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmMJManageNewFDNewSF = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + RadioGroup1: TRadioGroup; + Button2: TButton; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + AOrdDefNote1: TRichEdit; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton68: TSpeedButton; + SpeedButton69: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton77: TSpeedButton; + SpeedButton78: TSpeedButton; + SpeedButton79: TSpeedButton; + SpeedButton80: TSpeedButton; + SpeedButton81: TSpeedButton; + SpeedButton82: TSpeedButton; + SpeedButton83: TSpeedButton; + v3Column4: TcxGridDBColumn; + Button6: TButton; + Label36: TLabel; + MJStr4: TEdit; + Label37: TLabel; + v3Column5: TcxGridDBColumn; + Label38: TLabel; + RM3: TRMGridReport; + Label39: TLabel; + Edit8: TEdit; + mjxh: TEdit; + ADOTmp: TADOQuery; + MKXS: TEdit; + Edit10: TEdit; + Label40: TLabel; + Picture4: TcxDBImage; + ADOQueryImage: TADOQuery; + IdFTP1: TIdFTP; + Label41: TLabel; + Edit9: TEdit; + Edit11: TEdit; + cxStyle7: TcxStyle; + ComboBox2: TComboBox; + XSDian: TEdit; + Label42: TLabel; + Label43: TLabel; + Label44: TLabel; + Kaip1: TEdit; + Kaip2: TEdit; + Kaip3: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MKXSChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MJQty2Change(Sender: TObject); + procedure Edit8Click(Sender: TObject); + procedure MJLenChange(Sender: TObject); + procedure Picture4DblClick(Sender: TObject); + procedure MJStr4KeyPress(Sender: TObject; var Key: Char); + procedure MJStr4Click(Sender: TObject); + procedure KJZHClick(Sender: TObject); + procedure Edit9Click(Sender: TObject); + procedure Kaip1Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID:String; + MValue,FCDName:String; + isCommopen,IsJsMessage:boolean; + fxsType:string; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure OpenCom(DllName:string); + procedure CloseCom(DllName:string); + procedure On1201(Var Message:Tmessage);Message 1201; + procedure InitImage(); + procedure LookImage(FileName:string); + // procedure On1301(Var Message:Tmessage);Message 1301; + public + fmanage:string; + fFlileFlag:string; + { Public declarations } + + end; + +var + frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF; + newh,newh1:hwnd; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam, U_ClothHCList; + +{$R *.dfm} +procedure TfrmMJManageNewFDNewSF.CloseCom(DllName:string); +type + TMyFunc = function(sCommName:PAnsiChar): HWND; stdcall; +var + Tf1: TMyFunc; + Tp1: TFarProc; + Th1:Thandle; +begin + Th1 := LoadLibrary(Pchar(trim(DllName))); + if Th1 > 0 then + begin + try + Tp1 := GetProcAddress(Th1, 'CommClose'); + if Tp1 <> nil then + begin + Tf1 := TMyFunc(Tp1); + newh1:=Tf1('Comm1'); + end + else + begin + + end; + finally + // FreeLibrary(Th1); + end; + end + else + begin + application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + end; +end; + +procedure TfrmMJManageNewFDNewSF.OpenCom(DllName:string); +type + TMyFunc = function(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer): HWND; stdcall; +var + Tf:TMyFunc; + Tp:TFarProc; + Th:Thandle; +begin + // closeCom(FComFile); + Th := LoadLibrary(Pchar(trim(DllName))); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'CommOpen'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(self.Handle,'Comm1',500,1); + if newh<1 then + begin + application.MessageBox(Pchar('򿪴ʧܣ'),'ʾ'); + end + else + IsCommOpen:=true; + end + else + begin + IsCommOpen:=false; + end; + finally + // FreeLibrary(Th); + end; + end + else + begin + IsCommOpen:=false; + application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + end; +end; + +procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewSF:=nil; +end; +procedure TfrmMJManageNewFDNewSF.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + + // MJMaoZ.Text:=format('%.2f',[i1 /100000]); + IF IsJsMessage then + begin + IF trim(Edit7.Text)='' then + begin + MJMaoZ.Text:=format('%.1f',[i1 /100000]); + // MJLen.Text:= format('%.2f',[i1 /100000]); + // IF i2=0 then Label9.Caption:='M' else Label9.Caption:='Y'; + end; + end; + +{ + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + IF IsJsMessage then + MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); } +end; + +procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + + if isCommopen then + begin + closeCom(JCYDLL); + + end; + Action:=caFree; +end; +procedure TfrmMJManageNewFDNewSF.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewSF.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select A.*'); + sql.Add('from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + + sql.Add(' and Filler='''+Trim(DName)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject); +begin + InitJP(); + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + {if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; } + IF trim(Edit7.Text)=''then + IsJsMessage:=true; + + IF trim(fmanage)<>'Ȩ' then + begin + IF trim(DllName)<>'' then + OpenCom(DllName); + Edit7.Visible:=true; + Label35.Visible:=true; + end; +end; +procedure TfrmMJManageNewFDNewSF.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin +// Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>69 then + begin + i:=69; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + + FInt:=4; + InitCDGridID(); + +end; + +procedure TfrmMJManageNewFDNewSF.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + // PState:=0; + PState:=2; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + MJstr4.Text:=Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJXH.Text:=Trim(ADOTmp.fieldbyname('MJXH').AsString); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewSF.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; + +begin + if PState=1 then + FMJID:='' + else + if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else + if PState<1 then Exit; + try + + ADOCmd.Connection.BeginTrans; + + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else + begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + FieldByName('MJstr4').Value:=Trim(MJstr4.Text); + FieldByName('mjxh').Value:=strtointdef(trim(mjxh.Text),0); + FieldByName('Kaip1').Value := StrToFloatdef(trim(Kaip1.Text), 0); + FieldByName('Kaip2').Value := StrToFloatdef(trim(Kaip2.Text), 0); + FieldByName('Kaip3').Value := StrToFloatdef(trim(Kaip3.Text), 0); + + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + FieldByName('MJLen').Value:=StrToFloatdef(trim(MJLen.Text),0); + FieldByName('MJQty1').Value:=StrToFloatdef(trim(MJQty1.Text),0); + FieldByName('MJQty2').Value:=StrToFloatdef(trim(MJQty2.Text),0); + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + FieldByName('MKXS').Value:=StrToFloatdef(trim(MKXS.Text),0); + + FieldByName('MJFK').Value:=StrToFloatdef(trim(MJFK.Text),0); + FieldByName('MJSJKZ').Value:=StrToFloatdef(trim(MJSJKZ.Text),0); + FieldByName('MJMaoZ').Value:=StrToFloatdef(trim(MJMaoZ.Text),0); + FieldByName('baoNO').Value:=Trim(Edit11.Text); + FieldByName('baoID').Value:=''; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + Post; + end; + if PState=1 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=WFB_MJJY.APID and X.MJID<>WFB_MJJY.MJID),(select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=WFB_MJJY.APID))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + execsql; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select MJXH from WFB_MJJY'); + sql.Add('where MJID='''+Trim(maxno)+''''); + open; + If not IsEmpty then + begin + MJXH.Text:=fieldbyname('mjxh').AsString; + end; + end; + end; + + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + // + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE WFB_MJJY SET DETM=dbo.F_Get_MJJY_DETM(MJID),DETM2=dbo.F_Get_MJJY_DETM2(MJID),DETM3=dbo.F_Get_MJJY_DETM3(MJID) WHERE MJID='''+Trim(FMJID)+''' '); + sql.Add('exec P_Do_JYCRK @MJID='''+trim(FMJID)+''''); + execsql; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject); +begin + if Trim(Label24.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i,ZS:Integer; +begin + if Trim(FAPID)='' then Exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select B.LBName,B.NLBName '); + sql.Add('from CK_SXPB_CR A'); + SQL.Add('inner join JYOrder_Main B on A.OrdMainIDCK=B.MainId'); + SQL.Add(' where A.SPId='''+Trim(FAPID)+''''); + Open; + IF not IsEmpty then + begin + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)='' then + begin + application.MessageBox('ûñǩܴ','ʾϢ',0); + exit; + end; + end; + end; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + IF trim(Label9.Caption)='' then + begin + Application.MessageBox('ȵλΪ!','ʾ',0); + Exit; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + IF strtofloatdef(trim(MJMaoZ.Text),0)>80 then + begin + Application.MessageBox(',ܴ80!','ʾ',0); + Exit; + end; + IF (strtofloatdef(trim(MJMaoZ.Text),0)>0) and (strtofloatdef(trim(MJMaoZ.Text),0)<1) then + begin + Application.MessageBox(',С1!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(Edit11.Text)<>'' then + begin + if TryStrToInt(Edit11.Text,ZS)=False then + begin + Application.MessageBox('ű','ʾ',0); + Exit; + end; + end; + if strtofloatdef(trim(MJQty4.Text),0)<0.00 then + begin + application.MessageBox('С0','ʾϢ',0); + exit; + end; + if strtofloatdef(trim(MJLen.Text),0)<0.00 then + begin + application.MessageBox('ȲС0','ʾϢ',0); + exit; + end; + + if Trim(MJLen.Text)<>'' then + begin + IF strtofloatdef(trim(MJLen.Text),0)>300 then + begin + Application.MessageBox('ȴ,ܴ300!','ʾ',0); + Exit; + end; + IF (strtofloatdef(trim(MJLen.Text),0)>0) and (strtofloatdef(trim(MJLen.Text),0)<15) then + begin + Application.MessageBox('ȴ,С15!','ʾ',0); + Exit; + end; + end; + + IF (strtofloatdef(trim(MJLen.Text),0)=0) and (strtofloatdef(trim(MJQty4.Text),0)=0) then + begin + Application.MessageBox('ȺܶΪ0!','ʾ',0); + Exit; + end; + + IF strtointdef(trim(Edit10.Text),0)>20 then + begin + Application.MessageBox('ܴ20!','ʾ',0); + Exit; + end; + + for i:=1 to strtointdef(Edit10.Text,1) do + begin + if SaveData() then + begin + if Trim(Edit6.Text)='' then + begin + PrtData(FFFMJID); + end; + BTAdd.Click; + if Edit9.Text<>'' then + begin + Edit11.Text:=FloatToStr(strtofloat(Edit11.Text)+1); + end; + end + else + exit; + end; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + kaip1.Text := ''; + kaip2.Text := ''; + kaip3.Text := ''; + Edit10.text:='1'; + Label16.Caption:=''; + BTAdd.Click; + MJLen.SetFocus; +end; + +procedure TfrmMJManageNewFDNewSF.PrtData(FMJID:String); +var + fPrintFile:String; + Txt,fImagePath,fImagePath1,fImagePath2,fImagePath3:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName '); + sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(',MBQty=(select Sum(E.MJLen) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); + sql.Add(',MBJZQty=(select Sum(E.MJQty4) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); + sql.Add(',MBMZQty=(select Sum(E.MJMaoZ) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); + sql.Add(',MBPS=(select Count(E.MJID) from WFB_MJJY E where E.Subid=A.Subid and E.BaoNo=A.BaoNo)'); + sql.Add(',MBGangNo=dbo.F_Get_Order_SubStr(A.MJID,''MBGangNo'')'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join CK_SXPB_CR D on D.SPId=A.APId '); + SQL.Add(' where A.MJID='''+Trim(FMJID)+''''); + Open; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('DETM').AsString); + fImagePath1:=ExtractFilePath(Application.ExeName)+'image\temp1.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath1) then DeleteFile(fImagePath1); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath1),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('DETM2').AsString); + fImagePath2:=ExtractFilePath(Application.ExeName)+'image\temp2.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath2) then DeleteFile(fImagePath2); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath2),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('DETM3').AsString); + fImagePath3:=ExtractFilePath(Application.ExeName)+'image\temp3.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath3) then DeleteFile(fImagePath3); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath3),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE1']:=fImagePath1; + RMVariables['QRBARCODE2']:=fImagePath2; + RMVariables['QRBARCODE3']:=fImagePath3; + RM2.LoadFromFile(fPrintFile); + Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + // RM2.ShowReport; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; + if edit9.Text<>'' then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + Rm2.DefaultCopies:=strtointdef(trim(ComboBox2.Text),1); + // RM2.ShowReport; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)),'ʾ',0); + end; + end; +end; +procedure TfrmMJManageNewFDNewSF.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label24.Caption)='' then Exit; + if Label24.Visible=False then Exit; + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + FieldByName('KouFenQty').Value:=0; + if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end + else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; + IF Trim(FCDName)='' then + FieldByName('KouFenQty').Value:=0; + FieldByName('CDQty').Value:=StrToFloatdef(trim(CDQty.Text),0); + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + InitJP(); +end; + +procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; + mvalue:Double; +begin + if CDS_MJID.IsEmpty then Exit; + IF trim(Label9.Caption)='' then + begin + Application.MessageBox('ȵλΪ!','ʾ',0); + Exit; + end; +{ IF strtofloatdef(trim(MJLen.Text),0)=0 then + begin + // Application.MessageBox('ȲΪ!','ʾ',0); + Exit; + end; } +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if strtofloatdef(trim(MJQty4.Text),0)<0.00 then + begin + application.MessageBox('С0','ʾϢ',0); + exit; + end; + if strtofloatdef(trim(MJLen.Text),0)<0.00 then + begin + application.MessageBox('ȲС0','ʾϢ',0); + exit; + end; + + if SaveData() then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + FInt:=0; + end; + if Trim(Edit6.Text)='' then + begin + PrtData(FFFMJID); + end; + + Label16.Caption:=''; + BTAdd.Click; + Edit8.Text:=''; + Button5.Visible:=false; + MJLen.SetFocus; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + fxsType:=''; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select B.xs,A.*,B.MPRTBZNote,isnull(B.XSDian,0) XSDian,B.MPRTYaoFeng,B.MPRTTangJin,B.MPRTJiBenNote,B.MPRTTeBieNote,B.xsType,B.MPRTKaiJian '); + sql.Add(',B.MPRTMF,B.MPRTKZ,B.OrdDefNote2,B.OrdDefNote3,B.MPRTSCTeBieNote,B.MPRTTeBieNote,B.OrderNo,'); + SQL.Add('OrderNoM=(select OrderNo from JYOrder_Main X where X.Mainid=A.OrdMainIDCK),'); + SQL.Add('PRTColor=(select PRTColor from JYOrder_Sub X where X.Subid=A.OrdsubIDCK), '); + SQL.Add('OrderUnit=(select OrderUnit from JYOrder_Sub X where X.Subid=A.OrdsubIDCK), '); + sql.Add('PiZhong=(select PiZhong from JYOrder_Main X where X.Mainid=A.OrdMainIDCK),'); + sql.Add('maxRoll=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=A.SPID),A.QSJHNo)'); + sql.Add(' from CK_SXPB_CR A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainIDCK=B.MainId'); + sql.Add(' where SPID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainIDCK').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdsubIDCK').AsString); + MJXH.Text:= Trim(ADOTmp.fieldbyname('maxRoll').AsString); + MKXS.Text:=Trim(ADOTmp.fieldbyname('Xs').AsString); + XSDian.Text:=IntToStr(ADOTmp.fieldbyname('XSDian').AsInteger); + MJstr4.Text:=Trim(ADOTmp.fieldbyname('gangNo').AsString); + fxsType:=Trim(ADOTmp.fieldbyname('xsType').AsString); + AOrdDefNote1.Text:= + ':'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 + +'̽:'+Trim(ADOTmp.fieldbyname('OrdDefNote2').AsString)+#13 + +':'+Trim(ADOTmp.fieldbyname('OrdDefNote3').AsString)+#13 + +'ŷ:'+Trim(ADOTmp.fieldbyname('MPRTMF').AsString)+#13 + +':'+Trim(ADOTmp.fieldbyname('MPRTKZ').AsString)+#13 + +'Ҫ:'+Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString)+#13 + +'رʾ:'+Trim(ADOTmp.fieldbyname('MPRTTeBieNote').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + if Trim(ADOTmp.fieldbyname('OrderUnit').AsString)='YDS' then + begin + Label9.Caption:='Y'; + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + if Trim(ADOTmp.fieldbyname('QtyUnit').AsString)<>'' then + begin + //Label9.Caption:=Trim(ADOTmp.fieldbyname('QtyUnit').AsString); + //Label19.Caption:=Label9.Caption; + //Label20.Caption:=Label9.Caption; + //Label7.Caption:=Label9.Caption; + end; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + AOrdDefNote1.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + MJLen.SetFocus; + InitImage(); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); +begin + if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenExit(Sender: TObject); +begin + //MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); +begin + RadioGroup1.ItemIndex:=-1; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + if Trim(MJQty4.Text)='' then + begin + // MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + + IF trim(fxsType)='ػ㳤'then + begin + if XSDian.Text='0' then + MJLen.Text:=format('%.0f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + if XSDian.Text='1' then + MJLen.Text:=format('%.1f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + if XSDian.Text='2' then + MJLen.Text:=format('%.2f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + //MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; +end; + +procedure TfrmMJManageNewFDNewSF.APIDClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if not IsCommOpen then OpenCom(JCYDLL); + IsJsMessage:=true; + end + else + begin + Edit7.Text:=''; + IsJsMessage:=true; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + IF key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MKXSChange(Sender: TObject); +begin + MJQty4.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); +end; + +procedure TfrmMJManageNewFDNewSF.FormCreate(Sender: TObject); +begin + IsCommopen:=false; + IsJsMessage:=false; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty2Change(Sender: TObject); +var + FReal:double; +begin +{ IF trim(MKXS.Text)<>'' then + begin + if TryStrToFloat(MKXS.Text,FReal)=true then + begin + // MJLen.Text:=format('%.1f',[StrToFloatdef(trim(MJQty4.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + MJLen.Text:=format('%.0f',[StrToFloatdef(trim(MJLen.Text),0)- StrToFloatdef(trim(MJQty2.Text),0)]); + end; + end + else + begin + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=format('%.1f',[StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)]); + MJLen.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)- StrToFloatdef(trim(MJQty2.Text),0)]); + end else + begin + MJLen.Text:=format('%.1f',[StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936]); + MJLen.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)- StrToFloatdef(trim(MJQty2.Text),0)]); + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + // MJLen.Text:=floatToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + Button5.Visible:=true; + end + else + begin + Edit8.Text:=''; + Button5.Visible:=false; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject); +begin + IF trim(fxsType)='Ȼ㾻'then + begin + MJQty4.Text:=format('%.1f',[StrToFloatdef(trim(MJLen.Text),0)* StrToFloatdef(trim(MKXS.Text),0)]); + MJMaoZ.Text:=FloatToStr(StrToFloatdef(trim(MJQty4.Text),0)+StrToFloatdef(trim(MJQty3.Text),0)); + end; +end; + +procedure TfrmMJManageNewFDNewSF.InitImage(); +begin + with ADOQueryImage do + begin + + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID='+quotedstr(ADOTmp.fieldbyname('OrderNo').AsString)); + open; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Picture4DblClick(Sender: TObject); +begin + IF TcxDBImage(Sender).Picture.Height=0 then exit; + + LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmMJManageNewFDNewSF.LookImage(FileName:string); +var + sFieldName:string; + // ff: TADOBlobStream; + // FJStream : TMemoryStream; +begin + + sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + // Panel2.Caption:='ݣԵ...'; + // Panel2.Visible:=true; + // application.ProcessMessages; + try + IdFTP1.Get(fFlileFlag+'\'+ Trim(fileName), sFieldName,true, false); + except + // Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + // Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; +// Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); +end; + +procedure TfrmMJManageNewFDNewSF.MJStr4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJStr4Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.KJZHClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit9Click(Sender: TObject); +begin + if Trim(Edit9.Text)='' then + begin + Edit9.Text:=''; + end else + begin + Edit9.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Kaip1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +end. diff --git a/贸易管理/U_MJManageNewFDNew1.dfm b/贸易管理/U_MJManageNewFDNew1.dfm new file mode 100644 index 0000000..8e5c0f5 --- /dev/null +++ b/贸易管理/U_MJManageNewFDNew1.dfm @@ -0,0 +1,1967 @@ +object frmMJManageNewFDNew: TfrmMJManageNewFDNew + Left = 68 + Top = -26 + Width = 1280 + Height = 754 + HorzScrollBar.Position = 85 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = -85 + Top = 0 + Width = 1365 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 626 + Top = 78 + Width = 330 + Height = 620 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 98 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 76 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 75 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 73 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 956 + Top = 78 + Width = 324 + Height = 620 + Align = alLeft + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 146 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 48 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 49 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 60 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = -85 + Top = 78 + Width = 483 + Height = 620 + Align = alLeft + TabOrder = 3 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 70 + Height = 70 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 86 + Top = 3 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 166 + Top = 3 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 245 + Top = 3 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 325 + Top = 3 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 404 + Top = 3 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 7 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 86 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 166 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 245 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 325 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 404 + Top = 77 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 7 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 86 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 166 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 245 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 325 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 404 + Top = 151 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 7 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 86 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 166 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 245 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 325 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 404 + Top = 225 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 7 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 86 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 166 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 245 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 325 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 404 + Top = 299 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 7 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 86 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 166 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 245 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 325 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 404 + Top = 373 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 7 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 86 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 166 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 245 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 325 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton67: TSpeedButton + Left = 404 + Top = 447 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 7 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 86 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 166 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 245 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 325 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 404 + Top = 521 + Width = 70 + Height = 70 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object MovePanel1: TMovePanel + Left = 1 + Top = 112 + Width = 313 + Height = 281 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 88 + Height = 21 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 178 + Top = 59 + Width = 20 + Height = 19 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 264 + Top = 24 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 264 + Top = 89 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 29 + Top = 89 + Width = 84 + Height = 21 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 264 + Top = 167 + Width = 22 + Height = 21 + Caption = #30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 167 + Width = 92 + Height = 21 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 124 + Top = 14 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 36 + Top = 221 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 190 + Top = 221 + Width = 64 + Height = 42 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 124 + Top = 79 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 124 + Top = 157 + Width = 131 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + end + object Panel1: TPanel + Left = -85 + Top = 30 + Width = 1365 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 5 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 592 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 296 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 448 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + end + object Panel2: TPanel + Left = 398 + Top = 78 + Width = 228 + Height = 620 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label9: TLabel + Left = 182 + Top = 79 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 182 + Top = 136 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 182 + Top = 191 + Width = 24 + Height = 22 + Caption = 'Kg' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 25 + Top = 79 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 25 + Top = 136 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 25 + Top = 191 + Width = 40 + Height = 23 + Caption = #37325#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 25 + Top = 341 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 122 + Top = 341 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 182 + Top = 18 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 25 + Top = 18 + Width = 40 + Height = 23 + Caption = #21407#30721 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 87 + Top = 348 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 182 + Top = 239 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 25 + Top = 238 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 25 + Top = 287 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 25 + Top = 392 + Width = 40 + Height = 22 + Caption = #30041#26679 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 121 + Top = 392 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 69 + Top = 127 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Edit1Click + end + object MJLen: TEdit + Left = 69 + Top = 70 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Edit1Click + end + object MJMaoZ: TEdit + Left = 69 + Top = 182 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + end + object BTPrint: TButton + Left = 11 + Top = 456 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 131 + Top = 456 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 70 + Top = 331 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Text = #8730 + OnClick = Edit3Click + end + object Edit4: TEdit + Left = 164 + Top = 331 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + OnClick = Edit4Click + end + object MJQty1: TEdit + Left = 69 + Top = 9 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Edit1Click + end + object MJSJKZ: TEdit + Left = 69 + Top = 229 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Edit1Click + end + object MJQty2: TEdit + Left = 69 + Top = 278 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Edit1Click + end + object Edit5: TEdit + Left = 70 + Top = 382 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + OnClick = Edit5Click + end + object Edit6: TEdit + Left = 166 + Top = 382 + Width = 46 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Text = #8730 + OnClick = Edit6Click + end + end + object Panel3: TPanel + Left = -43 + Top = 402 + Width = 383 + Height = 231 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 7 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 78 + Top = 3 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 152 + Top = 3 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 226 + Top = 3 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 75 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 78 + Top = 75 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 152 + Top = 75 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 226 + Top = 75 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 4 + Top = 150 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 78 + Top = 150 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 152 + Top = 150 + Width = 70 + Height = 70 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 226 + Top = 150 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 303 + Top = 81 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 368 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 616 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 432 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + 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 = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 816 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/贸易管理/U_MJManageNewFDNew1.pas b/贸易管理/U_MJManageNewFDNew1.pas new file mode 100644 index 0000000..837a689 --- /dev/null +++ b/贸易管理/U_MJManageNewFDNew1.pas @@ -0,0 +1,1532 @@ +unit U_MJManageNewFDNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + + +type + TfrmMJManageNewFDNew = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TBCD: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + v2Column1: TcxGridDBColumn; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + v2Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + Panel1: TPanel; + Label1: TLabel; + APID: TEdit; + Label2: TLabel; + BTAdd: TButton; + BTEdit: TButton; + Label16: TLabel; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + Label7: TLabel; + CDQty: TEdit; + Label8: TLabel; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + Label24: TLabel; + Label25: TLabel; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + public + { Public declarations } + end; + +var + frmMJManageNewFDNew: TfrmMJManageNewFDNew; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNew.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNew:=nil; +end; + +procedure TfrmMJManageNewFDNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; +end; +procedure TfrmMJManageNewFDNew.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNew.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNew.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNew.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNew.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNew.FormShow(Sender: TObject); +begin + InitJP(); + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; +end; +procedure TfrmMJManageNewFDNew.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>63 then + begin + i:=63; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNew.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNew.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNew.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNew.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNew.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNew.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNew.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + //MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNew.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNew.SaveData():Boolean; +var + maxno,FMJID,BZID:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:=''; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 from WFB_MJJY A where A.APID=WFB_MJJY.APID'); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' )'); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' )'); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType='''' )'); + end; + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNew.BTAddClick(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNew.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNew.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; +begin + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)='' then + begin + Application.MessageBox('ȲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + MJSJKZ.Text:=''; + Label15.Caption:=''; + Edit3.Text:=''; + + end; + if Trim(Edit6.Text)='' then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=(select Top 1 F.CYEName from CP_YDang F where F.CYNo=B.OrdDefStr1),C.SLbName'); + sql.Add(',B.MPRTCF,C.SOrddefstr4,C.*,A.* '); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + end; + + Label16.Caption:=''; + BTAdd.Click; +end; +procedure TfrmMJManageNewFDNew.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNew.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNew.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNew.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNew.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNew.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + //CDQty.SetFocus; + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNew.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNew.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNew.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNew.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + InitJP(); +end; + +procedure TfrmMJManageNewFDNew.Button5Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,'); + sql.Add(' MPRTCodeNameEng=(select Top 1 F.CYEName from CP_YDang F where F.CYNo=B.OrdDefStr1),C.SLbName'); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',B.MPRTCF,C.SOrddefstr4,C.*,A.* '); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmMJManageNewFDNew.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNew.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*, '); + SQL.Add('OrderNoM=(select OrderNo from JYOrder_Main B where B.Mainid=A.MainId),'); + SQL.Add('PRTColor=(select PRTColor from JYOrder_Sub B where B.Subid=A.Subid) '); + sql.Add('from JYOrder_Sub_AnPai A'); + sql.Add('where APID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('AOrddefStr1').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('MainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('SubId').AsString); + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + Label19.Caption:=Trim(Label9.Caption); + Label20.Caption:=Trim(Label9.Caption); + Label7.Caption:=Trim(Label9.Caption); + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNew.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +end. diff --git a/贸易管理/U_ModulePromptList.dfm b/贸易管理/U_ModulePromptList.dfm new file mode 100644 index 0000000..cbdab77 --- /dev/null +++ b/贸易管理/U_ModulePromptList.dfm @@ -0,0 +1,179 @@ +object frmModulePromptList: TfrmModulePromptList + Left = 126 + Top = 142 + Width = 1065 + 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 + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1049 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1049 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Panel2: TPanel + Left = 664 + Top = 2 + Width = 383 + Height = 37 + Align = alRight + BevelOuter = bvNone + Caption = #25552#31034#65306#21452#20987#25171#24320#22788#29702#20449#24687#30028#38754 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1049 + Height = 436 + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.FontBlue + object v1Column5: TcxGridDBColumn + Caption = #24453#22788#29702#20107#39033 + DataBinding.FieldName = 'ModuleName' + HeaderAlignmentHorz = taCenter + Width = 235 + end + object v1Column1: TcxGridDBColumn + Caption = #22788#29702#20154 + DataBinding.FieldName = 'DName' + HeaderAlignmentHorz = taCenter + Width = 107 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 195 + end +end diff --git a/贸易管理/U_ModulePromptList.pas b/贸易管理/U_ModulePromptList.pas new file mode 100644 index 0000000..cd44210 --- /dev/null +++ b/贸易管理/U_ModulePromptList.pas @@ -0,0 +1,223 @@ +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; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + Panel2: TPanel; + 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 Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + fDConString_link1: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:string; + end; + +var + frmModulePromptList: TfrmModulePromptList; + +implementation +uses + U_DataLink,U_Fun; +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 + fDConString_link1:=Trim(DConString); + ReadCxGrid('б',Tv1,'ҵĹܼ'); + InitGrid(); +end; + +procedure TfrmModulePromptList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmModulePromptList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmModulePromptList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +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(fDConString_link1)); + 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; + IF (trim(Order_Main.FieldByName('ModuleId').AsString)='05' ) and (trim(Order_Main.FieldByName('ModuleSubId').AsString)='04' ) then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_Sub_AnPai SET Aordflag10=1 where Aordflag10=0 '); + execsql; + end; + end; + IF not ADOQueryTemp.IsEmpty then + begin + InitDllEvt(Trim(ADOQueryTemp.FieldByName('formFile').AsString), + ADOQueryTemp.FieldByName('FormID').AsInteger, + Trim(ADOQueryTemp.FieldByName('FormPara').AsString), + ADOQueryTemp.FieldByName('FormType').AsInteger, + Trim(ADOQueryTemp.FieldByName('Formname').AsString), + + Trim(ADOQueryTemp.FieldByName('FormPara1').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara2').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara3').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara4').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara5').AsString), + + Trim(ADOQueryTemp.FieldByName('FormPara6').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara7').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara8').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara9').AsString), + Trim(ADOQueryTemp.FieldByName('FormPara10').AsString), + ); + end; +end; + +end. diff --git a/贸易管理/U_OrderAttachment.dfm b/贸易管理/U_OrderAttachment.dfm new file mode 100644 index 0000000..78503bc --- /dev/null +++ b/贸易管理/U_OrderAttachment.dfm @@ -0,0 +1,666 @@ +object frmOrderAttachment: TfrmOrderAttachment + Left = 123 + Top = 69 + Width = 1019 + Height = 650 + Caption = #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 + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1011 + Height = 300 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 44 + Top = 11 + Width = 69 + Height = 16 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 44 + Top = 39 + Width = 68 + Height = 16 + Caption = #29983#20135#32447#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 372 + Top = 11 + Width = 69 + Height = 16 + Caption = #32534' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 372 + Top = 39 + Width = 68 + Height = 16 + Caption = #35746#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 44 + Top = 70 + Width = 85 + Height = 16 + Caption = #21253#35013#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 60 + Top = 95 + Width = 36 + Height = 12 + Caption = #21253#35013#65306 + end + object Label12: TLabel + Left = 60 + Top = 119 + Width = 36 + Height = 12 + Caption = #21787#22836#65306 + end + object Label13: TLabel + Left = 44 + Top = 141 + Width = 85 + Height = 16 + Caption = #36136#37327#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 60 + Top = 173 + Width = 36 + Height = 12 + Caption = #24067#38754#65306 + end + object Label15: TLabel + Left = 60 + Top = 195 + Width = 36 + Height = 12 + Caption = #25163#24863#65306 + end + object Label16: TLabel + Left = 60 + Top = 217 + Width = 36 + Height = 12 + Caption = #21560#27700#65306 + end + object Label17: TLabel + Left = 188 + Top = 217 + Width = 48 + Height = 12 + Caption = #33394#29282#24230#65306 + end + object Label18: TLabel + Left = 300 + Top = 217 + Width = 36 + Height = 12 + Caption = #20998#20999#65306 + end + object Label19: TLabel + Left = 44 + Top = 244 + Width = 85 + Height = 16 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 583 + Top = 175 + Width = 85 + Height = 16 + Caption = #31614#21457#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 583 + Top = 239 + Width = 68 + Height = 16 + Caption = #31614#21457#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 583 + Top = 8 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 735 + Top = 216 + Width = 111 + Height = 35 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 912 + Top = 47 + Width = 41 + Height = 12 + Hint = 'clRed' + AutoSize = False + Color = clRed + ParentColor = False + OnClick = Label8Click + end + object Label9: TLabel + Left = 912 + Top = 63 + Width = 41 + Height = 12 + Hint = 'clOlive' + AutoSize = False + Color = clOlive + ParentColor = False + OnClick = Label8Click + end + object Label10: TLabel + Left = 912 + Top = 79 + Width = 41 + Height = 12 + Hint = 'clBlue' + AutoSize = False + Color = clBlue + ParentColor = False + OnClick = Label8Click + end + object Label22: TLabel + Left = 912 + Top = 95 + Width = 41 + Height = 12 + Hint = 'clFuchsia' + AutoSize = False + Color = clFuchsia + ParentColor = False + OnClick = Label8Click + end + object Label24: TLabel + Left = 912 + Top = 110 + Width = 41 + Height = 12 + Hint = 'clBlack' + AutoSize = False + Color = clBlack + ParentColor = False + OnClick = Label8Click + end + object Customnoname: TEdit + Left = 106 + Top = 8 + Width = 99 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object SCXName: TEdit + Left = 106 + Top = 36 + Width = 99 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object OrderCode: TEdit + Left = 438 + Top = 8 + Width = 119 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object OrderNo: TEdit + Left = 438 + Top = 36 + Width = 119 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object ADefStr3: TEdit + Tag = 9 + Left = 94 + Top = 92 + Width = 247 + Height = 20 + TabOrder = 4 + OnDblClick = ADefStr3DblClick + end + object ADefStr4: TEdit + Tag = 9 + Left = 94 + Top = 116 + Width = 463 + Height = 20 + TabOrder = 5 + OnDblClick = ADefStr4DblClick + end + object ADefStr5: TEdit + Tag = 9 + Left = 94 + Top = 170 + Width = 247 + Height = 20 + TabOrder = 6 + OnDblClick = ADefStr5DblClick + end + object ADefStr6: TEdit + Tag = 9 + Left = 94 + Top = 192 + Width = 79 + Height = 20 + TabOrder = 7 + OnDblClick = ADefStr6DblClick + end + object ADefStr7: TEdit + Tag = 9 + Left = 94 + Top = 214 + Width = 79 + Height = 20 + TabOrder = 8 + OnDblClick = ADefStr7DblClick + end + object ADefStr8: TEdit + Tag = 9 + Left = 238 + Top = 214 + Width = 47 + Height = 20 + TabOrder = 9 + OnDblClick = ADefStr8DblClick + end + object ADefStr9: TEdit + Tag = 9 + Left = 334 + Top = 214 + Width = 223 + Height = 20 + TabOrder = 10 + OnDblClick = ADefStr9DblClick + end + object QFDate: TDateTimePicker + Tag = 9 + Left = 583 + Top = 197 + Width = 126 + Height = 24 + Date = 41143.565024953710000000 + Time = 41143.565024953710000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + end + object QFPerson: TEdit + Tag = 9 + Left = 585 + Top = 258 + Width = 127 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + end + object BegRKDate: TDateTimePicker + Left = 94 + Top = 264 + Width = 143 + Height = 24 + Date = 41143.565024953710000000 + Time = 41143.565024953710000000 + ShowCheckbox = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + end + object ADefStr10: TRichEdit + Tag = 9 + Left = 584 + Top = 29 + Width = 321 + Height = 121 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 329 + Width = 1011 + Height = 284 + Align = alClient + TabOrder = 1 + object TvSub: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TvSubColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object vSubColumn3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 31 + end + object vSubColumn4: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 92 + end + object vSubColumn6: TcxGridDBColumn + Caption = #21407#26009#37197#27604 + DataBinding.FieldName = 'YLPBStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 72 + end + object vSubColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 70 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 64 + end + object vSubColumn5: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24133#23485'(cm)' + DataBinding.FieldName = 'FSWFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 69 + end + object vSubColumn1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 73 + end + object TvSubColumn1: TcxGridDBColumn + Caption = #35746#36141#25968#37327'(KG)' + DataBinding.FieldName = 'OrdQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 92 + end + object vSubColumn8: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 73 + end + object vSubColumn9: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 70 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvSub + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1011 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 368 + Top = 448 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 352 + Top = 480 + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 456 + Top = 445 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 496 + Top = 445 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 536 + Top = 445 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 248 + Top = 464 + end + object ADOQuery2: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 616 + Top = 453 + end +end diff --git a/贸易管理/U_OrderAttachment.pas b/贸易管理/U_OrderAttachment.pas new file mode 100644 index 0000000..7c91ac3 --- /dev/null +++ b/贸易管理/U_OrderAttachment.pas @@ -0,0 +1,543 @@ +unit U_OrderAttachment; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, + cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + ComCtrls, ToolWin, DBClient, ADODB, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmOrderAttachment = class(TForm) + Panel1: TPanel; + Label1: TLabel; + Customnoname: TEdit; + Label2: TLabel; + SCXName: TEdit; + Label3: TLabel; + OrderCode: TEdit; + Label4: TLabel; + OrderNo: TEdit; + Label5: TLabel; + Label11: TLabel; + ADefStr3: TEdit; + Label12: TLabel; + ADefStr4: TEdit; + Label13: TLabel; + Label14: TLabel; + ADefStr5: TEdit; + Label15: TLabel; + ADefStr6: TEdit; + Label16: TLabel; + ADefStr7: TEdit; + Label17: TLabel; + ADefStr8: TEdit; + Label18: TLabel; + ADefStr9: TEdit; + Label19: TLabel; + cxGrid5: TcxGrid; + TvSub: TcxGridDBTableView; + vSubColumn3: TcxGridDBColumn; + vSubColumn4: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + TvSubColumn1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Label20: TLabel; + Label21: TLabel; + QFDate: TDateTimePicker; + QFPerson: TEdit; + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + vSubColumn1: TcxGridDBColumn; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + vSubColumn5: TcxGridDBColumn; + vSubColumn6: TcxGridDBColumn; + vSubColumn7: TcxGridDBColumn; + BegRKDate: TDateTimePicker; + cxGridPopupMenu1: TcxGridPopupMenu; + vSubColumn8: TcxGridDBColumn; + vSubColumn9: TcxGridDBColumn; + Label6: TLabel; + ADefStr10: TRichEdit; + ADOQuery2: TADOQuery; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label22: TLabel; + Label24: TLabel; + procedure ADefStr3DblClick(Sender: TObject); + procedure ADefStr4DblClick(Sender: TObject); + procedure ADefStr5DblClick(Sender: TObject); + procedure ADefStr6DblClick(Sender: TObject); + procedure ADefStr9DblClick(Sender: TObject); + procedure ADefStr7DblClick(Sender: TObject); + procedure ADefStr8DblClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure Label8Click(Sender: TObject); + private + { Private declarations } + procedure SaveJiangYe(); + public + + { Public declarations } + FAMainId:string; + end; + +var + frmOrderAttachment: TfrmOrderAttachment; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmOrderAttachment.ADefStr3DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPBZ'; + flagname:='װ'; + if ShowModal=1 then + begin + Self.ADefStr3.Text:=Self.ADefStr3.Text+Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr4DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPMT'; + flagname:='ͷ'; + if ShowModal=1 then + begin + Self.ADefStr4.Text:=Self.ADefStr4.Text+Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr5DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPBM'; + flagname:=''; + if ShowModal=1 then + begin + Self.ADefStr5.Text:=Self.ADefStr5.Text+Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr6DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPFeel'; + flagname:='ָ'; + if ShowModal=1 then + begin + Self.ADefStr6.Text:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr9DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CPFX'; + flagname:=''; + if ShowModal=1 then + begin + Self.ADefStr9.Text:=Self.ADefStr9.Text+Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr7DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPXS'; + flagname:='ˮ'; + if ShowModal=1 then + begin + Self.ADefStr7.Text:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderAttachment.ADefStr8DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPSLD'; + flagname:='ɫζ'; + if ShowModal=1 then + begin + Self.ADefStr8.Text:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('޷IJƻ1',TvSub,'ָʾ'); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec P_WFBOrder_ListAtt :begdate,:endate,:MainId'); + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FAMainId); + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + Open; + end; + // SCreateCDS20(ADOQuery1,Order_Sub); + //SInitCDSData20(ADOQuery1,Order_Sub); + + SCSHDataWTag(ADOQuery1,Panel1); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Main_Attachment where MainId='''+Trim(FAMainId)+''''); + Open; + end; + if ADOQuery1.IsEmpty then + begin + Label7.Caption:='δ'; + Label7.Font.Color:=clRed; + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select Top 1* from WFBOrder_Main_Attachment '); + Open; + end; + if ADOQuery1.IsEmpty=False then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from WFBOrder_Main_Attachment order by FillTime desc '); + Open; + end; + with ADOQuery1 do + begin + ADefStr3.Text:=Trim(fieldbyname('ADefStr3').AsString); + ADefStr4.Text:=Trim(fieldbyname('ADefStr4').AsString); + ADefStr5.Text:=Trim(fieldbyname('ADefStr5').AsString); + ADefStr6.Text:=Trim(fieldbyname('ADefStr6').AsString); + ADefStr7.Text:=Trim(fieldbyname('ADefStr7').AsString); + ADefStr8.Text:=Trim(fieldbyname('ADefStr8').AsString); + ADefStr9.Text:=Trim(fieldbyname('ADefStr9').AsString); + + end; + end; + end else + begin + Label7.Caption:=''; + Label7.Font.Color:=clBlue; + if Trim(ADOQuery1.fieldbyname('ADefStr11').AsString)='clBlue' then + begin + ADefStr10.Font.Color:=clBlue; + end else + if Trim(ADOQuery1.fieldbyname('ADefStr11').AsString)='clRed' then + begin + ADefStr10.Font.Color:=clRed; + end else + if Trim(ADOQuery1.fieldbyname('ADefStr11').AsString)='clOlive' then + begin + ADefStr10.Font.Color:=clOlive; + end else + if Trim(ADOQuery1.fieldbyname('ADefStr11').AsString)='clFuchsia' then + begin + ADefStr10.Font.Color:=clFuchsia; + end else + begin + ADefStr10.Font.Color:=clBlack; + end; + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Main_Attachment where MainId='''+Trim(FAMainId)+''''); + Open; + end; + if ADOCmd.IsEmpty then + begin + QFPerson.Text:=Trim(DName); + QFDate.DateTime:=SGetServerDate(ADOQuery1); + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + SQL.Add('select A.*,Case when OrdUnit=''K'' then A.SOrdQty'); + SQL.Add(' else A.SOrdQty*A.SWFBKZ*1.00/1000 end as OrdQty,'); + sql.Add(' Case when B.OrderType=''Ʒ'' then A.SWFBFK2 else A.SWFBFK end as FSWFBFK, '); + sql.add('YLPBStr=dbo.F_Get_WFBOrder_SubStr(A.SubId,''YLPB'')'); + SQL.Add('from WFBOrder_Sub A'); + SQL.Add('inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FAMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Sub); + SInitCDSData20(ADOQuery1,CDS_Sub); +end; + +procedure TfrmOrderAttachment.TBSaveClick(Sender: TObject); +var + maxnno:String; +begin + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Main_Attachment where MainId='''+Trim(FAMainId)+''''); + Open; + end; + with ADOCmd do + begin + if ADOCmd.IsEmpty then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').value:=Trim(FAMainId); + FieldByName('ADefStr11').Value:=Trim(ADefStr10.Hint); + SSetsavedata(ADOCmd,'WFBOrder_Main_Attachment',Panel1,9); + Post; + end; + with CDS_Sub do + begin + First; + while not Eof do + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Sub where SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + with ADOCmd do + begin + Edit; + if Trim(CDS_Sub.fieldbyname('SOrderMQty').AsString)<>'' then + FieldByName('SOrderMQty').Value:=CDS_Sub.fieldbyname('SOrderMQty').AsString; + FieldByName('SNote').Value:=CDS_Sub.fieldbyname('SNote').AsString; + Post; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + SaveJiangYe(); + Application.MessageBox('ɹ','ʾ',0); + Label7.Caption:=''; + Label7.Font.Color:=clBlue; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +procedure TfrmOrderAttachment.SaveJiangYe(); +var + maxno,maxnosub:string; +begin + try + ADOCmd.Connection.BeginTrans; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.MainId,A.SWFBColor from WFBOrder_Sub A inner join WFBOrder_Main_Attachment B'); + sql.Add(' on A.MainId=B.MainId where A.MainId='''+Trim(FAMainId)+''''); + sql.Add(' group by A.MainId,A.SWFBColor'); + Open; + end; + with ADOQuery1 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_MainIdColor_JiangYe where MainId='''+Trim(FAMainId)+''''); + sql.Add(' and SWFBColor='''+Trim(ADOQuery1.fieldbyname('SWFBColor').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + if GetLSNo(ADOCmd,maxno,'MC','WFBYCL_MainIdColor_JiangYe',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFBYCL_MainIdColor_JiangYe where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Trim(FAMainId); + FieldByName('SWFBColor').Value:=Trim(ADOQuery1.fieldbyname('SWFBColor').AsString); + Post; + end; + end else + begin + maxno:=Trim(ADOTemp.fieldbyname('MCID').AsString); + end; + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('exec P_JiangLiaoListMainIdColor :MainId,:SWFBColor,:WSQl'); + Parameters.ParamByName('MainId').Value:=Trim(FAMainId); + Parameters.ParamByName('SWFBColor').Value:=Trim(ADOQuery1.fieldbyname('SWFBColor').AsString); + Parameters.ParamByName('WSQl').Value:=''; + Open; + end; + with ADOQuery2 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_JiangYe where MainId='''+Trim(FAMainId)+''''); + sql.Add(' and SWFBColor='''+Trim(ADOQuery1.fieldbyname('SWFBColor').AsString)+''''); + sql.Add(' and YCLCode='''+Trim(ADOQuery2.fieldbyname('YCLCode').AsString)+''''); + Open; + end; + if Trim(ADOTemp.fieldbyname('YJID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxnosub,'YJ','WFBYCL_JiangYe',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡϱʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxnosub:=Trim(ADOTemp.fieldbyname('YJID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_JiangYe where YJID='''+Trim(maxnosub)+''''); + open; + end; + with ADOCmd do + begin + if Trim(ADOTemp.fieldbyname('YJID').AsString)='' then + Append + else + Edit; + FieldByName('MCID').Value:=Trim(maxno); + FieldByName('YJID').Value:=Trim(maxnosub); + FieldByName('MainId').Value:=Trim(FAMainId); + FieldByName('SWFBColor').Value:=Trim(ADOQuery1.fieldbyname('SWFBColor').AsString); + FieldByName('YCLCode').Value:=Trim(ADOQuery2.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(ADOQuery2.fieldbyname('YCLName').AsString); + FieldByName('YGQty').Value:=Trim(ADOQuery2.fieldbyname('YGQty').AsString); + Post; + end; + Next; + end; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ϱʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('޷IJƻ1',TvSub,'ָʾ'); + Close; +end; + +procedure TfrmOrderAttachment.Label8Click(Sender: TObject); +begin + ADefStr10.Font.Color:=TLabel(Sender).Color; + ADefStr10.Hint:=TLabel(Sender).Hint; +end; + +end. diff --git a/贸易管理/U_OrderInPut.dfm b/贸易管理/U_OrderInPut.dfm new file mode 100644 index 0000000..070c7f9 --- /dev/null +++ b/贸易管理/U_OrderInPut.dfm @@ -0,0 +1,1665 @@ +object frmOrderInPut: TfrmOrderInPut + Left = 316 + Top = 213 + Width = 1382 + Height = 754 + Caption = #25351#31034#21333#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 = 1366 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1366 + Height = 444 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#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 = 382 + Top = 99 + 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 Label10: TLabel + Left = 209 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 567 + Top = 15 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 382 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 71 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 209 + Top = 71 + Width = 67 + Height = 12 + Caption = #20811' '#37325#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 = 382 + Top = 44 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#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 = 567 + Top = 44 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 747 + Top = 153 + Width = 119 + Height = 12 + Caption = #24037#33402#21450#20854#23427#35201#27714'>>>>' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 31 + Top = 209 + Width = 65 + Height = 12 + Caption = #23545#33394#20809#28304#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 = 209 + Top = 209 + Width = 67 + Height = 12 + Caption = #32553' '#29575#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 382 + Top = 209 + Width = 67 + Height = 12 + Caption = #25197' '#24230#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 = 567 + Top = 209 + Width = 61 + Height = 12 + Caption = 'PH '#20540#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 567 + Top = 99 + Width = 65 + Height = 12 + Caption = #21518#25972#29702#21378#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 = 209 + Top = 99 + Width = 66 + Height = 12 + Caption = #22383' '#24067' '#21378#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 31 + Top = 99 + Width = 65 + Height = 12 + Caption = #21407#26009#24037#21378#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 510 + Top = 480 + Width = 65 + Height = 12 + Caption = #25253#20851#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label19: TLabel + Left = 31 + Top = 290 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 209 + Top = 152 + Width = 67 + Height = 12 + Caption = #30701' '#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 382 + Top = 72 + Width = 67 + Height = 12 + Caption = #33337' '#26679#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 = 382 + Top = 264 + Width = 39 + Height = 12 + Caption = #23553#26465#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 382 + Top = 236 + Width = 65 + Height = 12 + Caption = #20854#20182#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 31 + Top = 420 + Width = 65 + Height = 12 + Caption = #29305#21035#25552#31034#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 31 + Top = 44 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 209 + Top = 44 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 209 + Top = 125 + Width = 65 + Height = 12 + Caption = #25968#37327#28322#30701#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 31 + Top = 181 + Width = 67 + Height = 12 + Caption = #24178' '#30952#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 209 + Top = 181 + Width = 67 + Height = 12 + Caption = #28287' '#30952#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 382 + Top = 181 + Width = 65 + Height = 12 + Caption = #27838#33394#29282#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 567 + Top = 181 + Width = 65 + Height = 12 + Caption = #27700#27927#29282#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 31 + Top = 461 + Width = 66 + Height = 12 + Caption = #25239' '#36215' '#29699#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label33: TLabel + Left = 31 + Top = 237 + Width = 91 + Height = 12 + Caption = #38750#27695#28418#33394#29282#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 382 + Top = 461 + Width = 66 + Height = 12 + Caption = #38459' '#29123' '#24615#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 346 + Top = 511 + Width = 67 + Height = 12 + Caption = #27454' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 873 + Top = 39 + Width = 13 + Height = 84 + Caption = #26631#13#10' '#13#10#31614#13#10#13#10#20869#13#10#13#10#23481 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label36DblClick + end + object Label37: TLabel + Left = 877 + Top = 178 + Width = 13 + Height = 84 + Caption = #21787#13#10#13#10#22836#13#10#13#10#20869#13#10#13#10#23481 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label37DblClick + end + object Label38: TLabel + Left = 225 + Top = 488 + Width = 67 + Height = 12 + Caption = #28907' '#37329#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label39: TLabel + Left = 31 + Top = 264 + Width = 65 + Height = 12 + Caption = #22383#24067#20132#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 209 + Top = 264 + Width = 65 + Height = 12 + Caption = #36827#20179#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 382 + Top = 151 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 356 + Width = 65 + Height = 12 + Caption = #29983#20135#25552#31034#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 31 + Top = 124 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 511 + Top = 508 + Width = 65 + Height = 12 + Caption = #20844#21496#21488#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label45: TLabel + Left = 209 + Top = 235 + Width = 65 + Height = 12 + Caption = #25104#20221#27604#20363#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 1083 + Top = 300 + Width = 65 + Height = 12 + Caption = #20462#25913#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label47: TLabel + Left = 382 + Top = 124 + Width = 67 + Height = 12 + Caption = #32568' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 31 + Top = 152 + Width = 67 + Height = 12 + Caption = #27491' '#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label49: TLabel + Left = 1051 + Top = 272 + Width = 65 + Height = 12 + Caption = #20462#25913#27425#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label50: TLabel + Left = 567 + Top = 128 + Width = 65 + Height = 12 + Caption = #32568#26679#20132#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label51: TLabel + Left = 567 + Top = 152 + Width = 65 + Height = 12 + Caption = #33337#26679#20132#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label52: TLabel + Left = 500 + Top = 264 + Width = 39 + Height = 12 + Caption = #28907#37329#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label53: TLabel + Left = 614 + Top = 264 + Width = 39 + Height = 12 + Caption = #24320#21098#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 12 + Width = 100 + Height = 18 + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 272 + Top = 12 + Width = 100 + Height = 18 + TabOrder = 1 + OnKeyPress = ConNoKeyPress + end + object RanFactory: TBtnEditC + Tag = 2 + Left = 450 + Top = 95 + Width = 98 + Height = 20 + Hint = 'Factory/'#26579#21378 + ReadOnly = True + TabOrder = 2 + OnBtnUpClick = YCLFactoryBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 629 + Top = 11 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 3 + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 450 + Top = 11 + Width = 98 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 4 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 97 + Top = 67 + Width = 100 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 272 + Top = 67 + Width = 100 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + TabOrder = 6 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 450 + Top = 40 + Width = 98 + Height = 20 + TabOrder = 7 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 629 + Top = 40 + Width = 100 + Height = 20 + Hint = 'MPRTSpec/'#35268#26684 + TabOrder = 8 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTDuiSeGY: TBtnEditC + Tag = 2 + Left = 97 + Top = 205 + Width = 100 + Height = 20 + Hint = 'MPRTDuiSeGY/'#23545#33394#20809#28304 + ReadOnly = True + TabOrder = 9 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSL: TBtnEditC + Tag = 2 + Left = 272 + Top = 205 + Width = 100 + Height = 20 + Hint = 'MPRTSL/'#32553#29575 + ReadOnly = True + TabOrder = 10 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTNiuDu: TBtnEditC + Tag = 2 + Left = 450 + Top = 205 + Width = 98 + Height = 20 + Hint = 'MPRTNiuDu/'#25197#24230 + ReadOnly = True + TabOrder = 11 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTPH: TBtnEditC + Tag = 2 + Left = 629 + Top = 205 + Width = 100 + Height = 20 + Hint = 'MPRTPH/PH'#20540 + ReadOnly = True + TabOrder = 12 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object HZLFactory: TBtnEditC + Tag = 2 + Left = 629 + Top = 95 + Width = 100 + Height = 20 + Hint = 'Factory/'#21518#25972#29702#21378 + ReadOnly = True + TabOrder = 13 + OnBtnUpClick = YCLFactoryBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PBFactory: TBtnEditC + Tag = 2 + Left = 271 + Top = 95 + Width = 100 + Height = 20 + Hint = 'Factory/'#22383#24067#21378 + ReadOnly = True + TabOrder = 14 + OnBtnUpClick = YCLFactoryBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YCLFactory: TBtnEditC + Tag = 2 + Left = 97 + Top = 95 + Width = 100 + Height = 20 + Hint = 'Factory/'#21407#26009#24037#21378 + ReadOnly = True + TabOrder = 15 + OnBtnUpClick = YCLFactoryBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTZHName: TEdit + Tag = 2 + Left = 578 + Top = 477 + Width = 277 + Height = 18 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 16 + Visible = False + end + object MPRTKaiJian: TBtnEditC + Tag = 2 + Left = 329 + Top = 148 + Width = 43 + Height = 20 + Hint = 'MPRTKaiJian/'#24320#21098 + TabOrder = 17 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTChuanY: TBtnEditC + Tag = 2 + Left = 450 + Top = 68 + Width = 280 + Height = 20 + Hint = 'MPRTChuanY/'#33337#26679 + TabOrder = 18 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTYaoFeng: TBtnEditC + Tag = 2 + Left = 414 + Top = 260 + Width = 83 + Height = 20 + Hint = 'MPRTYaoFeng/'#23553#26465#25346#38057 + TabOrder = 19 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTJiBenNote: TBtnEditC + Tag = 2 + Left = 450 + Top = 232 + Width = 277 + Height = 20 + Hint = 'MPRTJiBenNote/'#22522#26412#35201#27714 + ReadOnly = True + TabOrder = 20 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTTeBieNote: TBtnEditC + Tag = 2 + Left = 92 + Top = 412 + Width = 633 + Height = 20 + Hint = 'MPRTTeBieNote/'#21253#35013#29305#21035#25552#31034 + ReadOnly = True + TabOrder = 21 + OnBtnUpClick = MPRTSCTeBieNoteBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 40 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 22 + end + object MPRTCode: TBtnEditC + Tag = 2 + Left = 272 + Top = 40 + Width = 100 + Height = 20 + Hint = 'MPRTCode/'#20135#21697#32534#21495 + ReadOnly = True + TabOrder = 23 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTQtyNote: TBtnEditC + Tag = 2 + Left = 271 + Top = 121 + Width = 100 + Height = 20 + Hint = 'MPRTQtyNote/'#25968#37327#35828#26126 + ReadOnly = True + TabOrder = 24 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTColorLaoDu1: TBtnEditC + Tag = 2 + Left = 97 + Top = 177 + Width = 98 + Height = 20 + Hint = 'MPRTColorLaoDu1/'#24178#30952 + ReadOnly = True + TabOrder = 25 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTColorLaoDu2: TBtnEditC + Tag = 2 + Left = 272 + Top = 177 + Width = 100 + Height = 20 + Hint = 'MPRTColorLaoDu2/'#28287#30952 + ReadOnly = True + TabOrder = 26 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTColorLaoDu3: TBtnEditC + Tag = 2 + Left = 450 + Top = 177 + Width = 98 + Height = 20 + Hint = 'MPRTColorLaoDu3/'#27838#33394#29282#24230 + ReadOnly = True + TabOrder = 27 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTColorLaoDu4: TBtnEditC + Tag = 2 + Left = 629 + Top = 177 + Width = 100 + Height = 20 + Hint = 'MPRTColorLaoDu4/'#27700#27927#29282#24230 + ReadOnly = True + TabOrder = 28 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKQiQiu: TBtnEditC + Tag = 2 + Left = 97 + Top = 457 + Width = 98 + Height = 20 + Hint = 'MPRTKQiQiu/'#25239#36215#29699 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ReadOnly = True + TabOrder = 29 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTDingPoLv: TBtnEditC + Tag = 2 + Left = 112 + Top = 233 + Width = 85 + Height = 20 + Hint = 'MPRTDingPoLv/'#39030#30772#29575 + ReadOnly = True + TabOrder = 30 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTZuRanXing: TBtnEditC + Tag = 2 + Left = 450 + Top = 457 + Width = 98 + Height = 20 + Hint = 'MPRTZuRanXing/'#38459#29123#24615 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ReadOnly = True + TabOrder = 31 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKuanNO: TBtnEditC + Tag = 2 + Left = 414 + Top = 507 + Width = 98 + Height = 20 + Hint = 'MPRTKuanNO/'#27454#21495 + TabOrder = 32 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTTangJin: TBtnEditC + Tag = 2 + Left = 288 + Top = 484 + Width = 96 + Height = 20 + Hint = 'MPRTTangJin/'#28907#37329 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ReadOnly = True + TabOrder = 33 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDefDate1: TDateTimePicker + Tag = 2 + Left = 97 + Top = 260 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 34 + end + object OrdDefDate2: TDateTimePicker + Tag = 2 + Left = 272 + Top = 260 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 35 + end + object OrdPerson1: TBtnEditC + Tag = 2 + Left = 450 + Top = 147 + Width = 99 + Height = 20 + Hint = 'OrdPerson1/'#36319#21333#21592 + TabOrder = 36 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdPerson2: TBtnEditC + Tag = 2 + Left = 97 + Top = 120 + Width = 100 + Height = 20 + Hint = 'OrdPerson2/'#19994#21153#21592 + TabOrder = 37 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LBNameNote: TMemo + Tag = 2 + Left = 736 + Top = 11 + Width = 131 + Height = 134 + TabOrder = 38 + end + object MaiTouNote: TMemo + Tag = 2 + Left = 736 + Top = 169 + Width = 134 + Height = 112 + TabOrder = 39 + end + object SYRName: TBtnEditC + Tag = 2 + Left = 577 + Top = 504 + Width = 278 + Height = 20 + Hint = 'SYRName/'#20844#21496#21488#22836 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 40 + Visible = False + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTBZNote: TMemo + Tag = 2 + Left = 100 + Top = 288 + Width = 633 + Height = 57 + Hint = 'MPRTBZNote/'#21253#35013#35201#27714 + ScrollBars = ssVertical + TabOrder = 41 + OnDblClick = MPRTBZNoteDblClick + end + object MPRTSCTeBieNote: TMemo + Tag = 2 + Left = 96 + Top = 352 + Width = 633 + Height = 57 + Hint = 'MPRTSCTeBieNote/'#29983#20135#29305#21035#25552#31034 + ScrollBars = ssVertical + TabOrder = 42 + OnDblClick = MPRTSCTeBieNoteDblClick + end + object CPCFBi: TEdit + Tag = 2 + Left = 272 + Top = 232 + Width = 100 + Height = 18 + TabOrder = 43 + end + object orddefnote1: TMemo + Tag = 2 + Left = 1097 + Top = 108 + Width = 220 + Height = 105 + ScrollBars = ssVertical + TabOrder = 44 + Visible = False + end + object orddefstr1: TBtnEditC + Tag = 2 + Left = 450 + Top = 120 + Width = 99 + Height = 20 + Hint = 'orddefstr1/'#32568#26679 + ReadOnly = True + TabOrder = 45 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object orddefstr2: TEdit + Tag = 2 + Left = 272 + Top = 148 + Width = 57 + Height = 18 + TabOrder = 46 + end + object orddefstr4: TBtnEditC + Tag = 2 + Left = 153 + Top = 148 + Width = 43 + Height = 20 + Hint = 'ZMTYPE/'#27491#30721 + TabOrder = 47 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object orddefstr3: TEdit + Tag = 2 + Left = 97 + Top = 148 + Width = 56 + Height = 18 + TabOrder = 48 + end + object EditCnt: TcxCurrencyEdit + Tag = 2 + Left = 1088 + Top = 260 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '#' + Style.BorderStyle = ebsSingle + TabOrder = 49 + Visible = False + Width = 73 + end + object OrdDefDate3: TDateTimePicker + Tag = 2 + Left = 629 + Top = 124 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 50 + end + object OrdDefDate4: TDateTimePicker + Tag = 2 + Left = 629 + Top = 152 + Width = 100 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 51 + end + object Orddefnote2: TBtnEditC + Tag = 2 + Left = 532 + Top = 260 + Width = 81 + Height = 20 + Hint = 'TJIn/'#28907#37329 + TabOrder = 52 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Orddefnote3: TEdit + Tag = 2 + Left = 646 + Top = 261 + Width = 81 + Height = 18 + TabOrder = 53 + OnKeyPress = ConNoKeyPress + end + object BQMT: TcxButtonEdit + Left = 1072 + Top = 232 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + TabOrder = 54 + Visible = False + OnClick = BQMTClick + Width = 121 + end + object FileName: TcxButton + Left = 933 + Top = 412 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #21152#36733#22270#29255 + TabOrder = 55 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object GroupBox1: TGroupBox + Left = 736 + Top = 288 + Width = 193 + Height = 153 + Caption = #32553#30053#22270 + TabOrder = 56 + object Picture4: TcxDBImage + Left = 1 + Top = 13 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DataSource2 + Properties.GraphicClassName = 'TJPEGImage' + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 0 + Height = 139 + Width = 191 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 473 + Width = 1366 + Height = 26 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 499 + Width = 1366 + Height = 216 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column5: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTKuanNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 115 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1SOrddefstr2: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 87 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#36135#25968#37327#21333#20301 + DataBinding.FieldName = 'Sorddefstr9' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 161 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 992 + Top = 181 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1008 + Top = 141 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 984 + Top = 256 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1000 + Top = 117 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 283 + end + object DataSource2: TDataSource + DataSet = ADOQueryImage + Left = 960 + Top = 336 + end +end diff --git a/贸易管理/U_OrderInPut.pas b/贸易管理/U_OrderInPut.pas new file mode 100644 index 0000000..d82ea55 --- /dev/null +++ b/贸易管理/U_OrderInPut.pas @@ -0,0 +1,1422 @@ +unit U_OrderInPut; + +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, Menus, + cxLookAndFeelPainters, cxButtons, cxImage, cxDBEdit, cxLookAndFeels, + cxNavigator; + +type + TfrmOrderInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + OrderNo: TEdit; + Label7: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label10: TLabel; + ConNo: TEdit; + RanFactory: TBtnEditC; + v1XHNo: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1SOrddefstr2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + OrdDate: TDateTimePicker; + CustomerNoName: TBtnEditC; + MPRTMF: TBtnEditC; + MPRTKZ: TBtnEditC; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label6: TLabel; + MPRTSpec: TBtnEditC; + Label4: TLabel; + Label5: TLabel; + MPRTDuiSeGY: TBtnEditC; + Label11: TLabel; + MPRTSL: TBtnEditC; + Label9: TLabel; + MPRTNiuDu: TBtnEditC; + Label8: TLabel; + MPRTPH: TBtnEditC; + Label15: TLabel; + HZLFactory: TBtnEditC; + Label16: TLabel; + PBFactory: TBtnEditC; + Label17: TLabel; + YCLFactory: TBtnEditC; + Label18: TLabel; + MPRTZHName: TEdit; + Label19: TLabel; + Label20: TLabel; + MPRTKaiJian: TBtnEditC; + Label21: TLabel; + MPRTChuanY: TBtnEditC; + Label22: TLabel; + MPRTYaoFeng: TBtnEditC; + Label23: TLabel; + MPRTJiBenNote: TBtnEditC; + Label24: TLabel; + MPRTTeBieNote: TBtnEditC; + Label25: TLabel; + DLYDate: TDateTimePicker; + Label26: TLabel; + MPRTCode: TBtnEditC; + Label27: TLabel; + MPRTQtyNote: TBtnEditC; + Label28: TLabel; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + MPRTColorLaoDu1: TBtnEditC; + MPRTColorLaoDu2: TBtnEditC; + MPRTColorLaoDu3: TBtnEditC; + MPRTColorLaoDu4: TBtnEditC; + Label32: TLabel; + Label33: TLabel; + Label34: TLabel; + MPRTKQiQiu: TBtnEditC; + MPRTDingPoLv: TBtnEditC; + MPRTZuRanXing: TBtnEditC; + Label35: TLabel; + MPRTKuanNO: TBtnEditC; + Label36: TLabel; + Label37: TLabel; + Label38: TLabel; + MPRTTangJin: TBtnEditC; + Label39: TLabel; + OrdDefDate1: TDateTimePicker; + Label40: TLabel; + OrdDefDate2: TDateTimePicker; + Label41: TLabel; + OrdPerson1: TBtnEditC; + Label42: TLabel; + Label43: TLabel; + OrdPerson2: TBtnEditC; + LBNameNote: TMemo; + MaiTouNote: TMemo; + Label44: TLabel; + SYRName: TBtnEditC; + MPRTBZNote: TMemo; + MPRTSCTeBieNote: TMemo; + CPCFBi: TEdit; + Label45: TLabel; + v1Column1: TcxGridDBColumn; + Label46: TLabel; + orddefnote1: TMemo; + orddefstr1: TBtnEditC; + Label47: TLabel; + orddefstr2: TEdit; + orddefstr4: TBtnEditC; + orddefstr3: TEdit; + Label48: TLabel; + Label49: TLabel; + EditCnt: TcxCurrencyEdit; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label50: TLabel; + Label51: TLabel; + OrdDefDate3: TDateTimePicker; + OrdDefDate4: TDateTimePicker; + Orddefnote2: TBtnEditC; + Label52: TLabel; + Label53: TLabel; + Orddefnote3: TEdit; + BQMT: TcxButtonEdit; + FileName: TcxButton; + ADOQueryImage: TADOQuery; + GroupBox1: TGroupBox; + Picture4: TcxDBImage; + DataSource2: TDataSource; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure MPRTCodeNameBtnUpClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure Label36DblClick(Sender: TObject); + procedure Label37DblClick(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure MPRTBZNoteDblClick(Sender: TObject); + procedure MPRTSCTeBieNoteDblClick(Sender: TObject); + procedure BQMTClick(Sender: TObject); + procedure FileNameClick(Sender: TObject); +// procedure v1Column6PropertiesButtonClick(Sender: TObject; +// AButtonIndex: Integer); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure InitImage(); + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo:String; + FXS:Integer; + FCYID:string; + fFlileFlag:string; + { Public declarations } + end; + +var + frmOrderInPut: TfrmOrderInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment,U_FileUp,getpic; + +{$R *.dfm} + +procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼AA',Tv1,'ָʾ'); +end; + +procedure TfrmOrderInPut.InitData(); +begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + OrdDefDate1.DateTime:=OrdDate.DateTime; + OrdDefDate2.DateTime:=OrdDate.DateTime; + OrdDefDate3.DateTime:=OrdDate.DateTime; + OrdDefDate4.DateTime:=OrdDate.DateTime; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + OrdDefDate1.DateTime:=OrdDate.DateTime; + OrdDefDate2.DateTime:=OrdDate.DateTime; + OrdDefDate3.DateTime:=OrdDate.DateTime; + OrdDefDate4.DateTime:=OrdDate.DateTime; + end + else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + orddefnote1.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmOrderInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPut.FormShow(Sender: TObject); +begin + readCxGrid('ָʾ¼AA',Tv1,'ָʾ'); + {if PriceFlag=99 then + begin + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end;} + if PState=1 then + begin + Label46.Visible:=true; + orddefnote1.Visible:=true; + Label49.Visible:=true; + EditCnt.Visible:=true; + end; + InitData(); + InitImage(); +end; + +function TfrmOrderInPut.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,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 JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + //FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('LBNameNote').Value:=Trim(LBNameNote.Text); + FieldByName('MaiTouNote').Value:=MaiTouNote.Text; + FieldByName('editcnt').Value:=strtointdef(trim(editcnt.Text),0); + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0 + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0 + end; + FieldByName('Sorddefstr10').Value:=Order_Sub.FieldByName('Sorddefstr10').AsString; + FieldByName('OrderNo').Value:=Trim(orderNo.Text); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmOrderInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmOrderInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1','',[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end; + + + if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; + { if PState=1 then + begin + if trim(orddefnote1.Text)='' then + begin + Application.MessageBox('޸ıעϢΪ!','ʾ',0); + Exit; + end; + end; } + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + // MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject); +var + i:Integer; + a:Integer; +begin + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + a:=order_sub.fieldbyname('SOrddefstr1').Value; +// if TryStrToInt(a) then +// begin +// a:=a+1 +// end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + // FieldByName('SOrddefstr1').Value:=IntToStr(i); + { if i<9 then + FieldByName('SOrddefstr1').Value:='0'+Trim(IntToStr(i)) + else + FieldByName('SOrddefstr1').Value:=Trim(IntToStr(i)); } + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + FieldByName('PRTPrice').Value:=0; + //FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr4').Value:=null; + FieldByName('SOrddefstr2').Value:=null; + FieldByName('SOrddefstr10').Value:=null; +// FieldByName('SOrddefstr1').Value:=a; + + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPut.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + // condefstr10.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPut.MPRTCodeNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + //fnote:=True; + //V1Note.Caption:='Ʒ'; + if ShowModal=1 then + begin + MPRTCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //MPRTCode.Text:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + mvalues:string; +begin + mvalues:=tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName(mvalues).Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').AsString; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').AsString; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').AsString; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').AsString; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ConNoKeyPress(Sender: TObject; var Key: Char); +var + ConMainId:string; +begin + if Key=#13 then + begin + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_main where conNO='''+Trim(connO.Text)+''' and status=''1'' '); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('ͬûˣָʾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then Exit; + end else + if ADOTemp.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + end; + begin + ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString); + //OrdDefStr1.Text:=Trim(ADOTemp.fieldbyname('ConDefStr1').AsString); + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + MPRTZHName.Text:=Trim(ADOTemp.fieldbyname('CPZHName').AsString); + MPRTMF.Text:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + MPRTChuanY.Text:=Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString); + MPRTQtyNote.Text:=Trim(ADOTemp.fieldbyname('QtyNote').AsString); + CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + DLYDate.DateTime:=ADOTemp.fieldbyname('DLYDate').Value; + ConMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString); + //OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,ColorName=(select ZdyName from KH_Zdy B where B.Note=A.PRTColor and B.Type=''OrdColor'' ) '); + SQL.Add(' from JYOrderCon_Sub A where MainId='''+Trim(ConMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('SOrdDefStr4').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr4').AsString); + FieldByName('SOrdDefStr3').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr3').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit').AsString); + FieldByName('PRTHX').Value:=Trim(ADOTemp.fieldbyname('PRTHX').AsString); + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('SUBID').AsString); + + Post; + end; + Next; + end; + end; + end; + + end; +end; + +procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPut.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + //MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut.Label36DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='LbNameNote'; + flagname:='ǩ'; + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + //LBNameNote.Text:=''; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Self.LBNameNote.Text)='' then + begin + Self.LBNameNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end else + begin + Self.LBNameNote.Text:=Self.LBNameNote.Text+#13+#10+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPut.Label37DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='MaitouNote'; + flagname:='ͷ'; + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Self.MaitouNote.Text)='' then + begin + Self.MaitouNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end else + begin + Self.MaitouNote.Text:=Self.MaitouNote.Text+#13+#10+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPut.SYRNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='˾̧ͷ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=false; + TBDel.Visible:=false; + TBSave.Visible:=false; + end; + if ShowModal=1 then + begin + SYRName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTBZNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTBZNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTBZNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTSCTeBieNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=1; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTSCTeBieNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTSCTeBieNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut.BQMTClick(Sender: TObject); +begin + if trim(OrderNo.Text)='' then + begin + Application.MessageBox('ָʾŲΪգ','ʾ',0); + Exit; + end; + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(OrderNo.Text); + //Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(BQMT.Text); + //Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmFileUp.Free; + end; +// if trim(OrderNo.Text)='' then +// begin +// Application.MessageBox('ָʾŲΪգ','ʾ',0); +// Exit; +// end; +// FormGetPic:=TFormGetPic.create(self); +// with FormGetPic do +// begin +// fFlileFlag:=self.OrderNo.Text; +// //fkeyNo:=Order_Sub.fieldbyname('BQMT').asstring; +// fkeyNo:=BQMT.Text; +// pat1:='FileName'; +// pic1:='FilesOther'; +// FTFType:='BQMT'; +// if showmodal=1 then +// begin +//// Order_Sub.edit; +// BQMT.Text:=trim(fkeyNo); +// end; +// free; +// end; +end; + +//procedure TfrmOrderInPut.v1Column6PropertiesButtonClick(Sender: TObject; +// AButtonIndex: Integer); +//begin +// frmCPManage:=TfrmCPManage.Create(self); +// with frmCPManage do +// begin +// if showmodal=1 then +// begin +////// Order_Sub.Edit; +////// Order_Sub.fieldbyname('PRTCode').Value:=CDS_Main.fieldbyname('CYNo').asstring; +////// Order_Sub.fieldbyname('PRTCodeName').Value:=CDS_Main.fieldbyname('CYEName').asstring; +////// Order_Sub.fieldbyname('PRTspec').Value:=CDS_Main.fieldbyname('CYSpec').asstring; +////// Order_Sub.fieldbyname('PRTCF').Value:=CDS_Main.fieldbyname('CYECF').asstring; +////// Order_Sub.fieldbyname('PRTMF').Value:=CDS_Main.fieldbyname('CYMF').asstring; +////// Order_Sub.fieldbyname('PRTKZ').Value:=CDS_Main.fieldbyname('CYKZ').asstring; +////// Order_Sub.fieldbyname('SOrdDefStr8').Value:=CDS_Main.fieldbyname('defnote2').asstring; +////// Order_Sub.Post; +// end; +// free; +// end; +// tv1.Controller.EditingController.ShowEdit(); +//end; + +procedure TfrmOrderInPut.FileNameClick(Sender: TObject); +begin + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + + FormGetPic:=TFormGetPic.create(self); + with FormGetPic do + begin + fFlileFlag:=self.fFlileFlag; + fkeyNo:=trim(OrderNo.Text); + pat1:='FileName'; + pic1:='FilesOther'; + FTFType:='ZSD'; + If showmodal=1 then + begin + end; + free; + end; + Initimage(); +end; + +procedure TfrmOrderInPut.InitImage(); +begin + with ADOQueryImage do + begin + + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID='+quotedstr(Trim(OrderNo.Text))); + open; + end; +end; + +end. diff --git a/贸易管理/U_OrderInPutJZC.dfm b/贸易管理/U_OrderInPutJZC.dfm new file mode 100644 index 0000000..5d28697 --- /dev/null +++ b/贸易管理/U_OrderInPutJZC.dfm @@ -0,0 +1,727 @@ +object frmOrderInPutJZC: TfrmOrderInPutJZC + Left = 152 + Top = 74 + Width = 950 + Height = 656 + Caption = #25351#31034#21333#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 = 942 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 942 + Height = 300 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 26 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 694 + Top = 15 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 247 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 470 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#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 = 26 + Top = 44 + Width = 65 + Height = 12 + Caption = #20013#25991#21517#31216#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 = 247 + Top = 44 + Width = 67 + Height = 12 + Caption = #35268' '#26684#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 = 470 + Top = 44 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 694 + Top = 44 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 26 + Top = 69 + Width = 106 + Height = 12 + Caption = #24037#33402#35201#27714#35201#27714'>>>>' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 26 + Top = 92 + Width = 66 + Height = 12 + Caption = #33394' '#29282' '#24230#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 = 694 + Top = 92 + Width = 68 + Height = 12 + Caption = 'PH '#20540#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 470 + Top = 92 + Width = 67 + Height = 12 + Caption = #25197' '#24230#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 = 247 + Top = 92 + Width = 67 + Height = 12 + Caption = #32553' '#29575#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 = 26 + Top = 117 + Width = 110 + Height = 12 + Caption = #21378' '#21830'>>>>' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 12 + Width = 136 + Height = 18 + TabOrder = 0 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 762 + Top = 11 + Width = 136 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 317 + Top = 12 + Width = 136 + Height = 18 + TabOrder = 2 + OnKeyPress = ConNoKeyPress + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 538 + Top = 11 + Width = 136 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 3 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 97 + Top = 40 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 4 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 317 + Top = 40 + Width = 136 + Height = 20 + Hint = 'MPRTSpec/'#35268#26684 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 538 + Top = 40 + Width = 136 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + TabOrder = 6 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 762 + Top = 40 + Width = 136 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + TabOrder = 7 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BtnEditC1: TBtnEditC + Tag = 2 + Left = 97 + Top = 88 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 8 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BtnEditC2: TBtnEditC + Tag = 2 + Left = 317 + Top = 88 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 9 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BtnEditC3: TBtnEditC + Tag = 2 + Left = 538 + Top = 88 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 10 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BtnEditC4: TBtnEditC + Tag = 2 + Left = 762 + Top = 88 + Width = 136 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 11 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object cxGrid2: TcxGrid + Left = 26 + Top = 137 + Width = 207 + Height = 105 + TabOrder = 12 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object Tv2Column1: TcxGridDBColumn + Caption = #21407#26009#21378 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 203 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 247 + Top = 137 + Width = 207 + Height = 105 + TabOrder = 13 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #22383#24067#21378 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 203 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 470 + Top = 137 + Width = 207 + Height = 105 + TabOrder = 14 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26579#21378 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 203 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + object cxGrid5: TcxGrid + Left = 694 + Top = 137 + Width = 207 + Height = 105 + TabOrder = 15 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21152#24037#21378 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 203 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 329 + Width = 942 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 358 + Width = 942 + Height = 261 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 88 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 54 + end + object v1SOrddefstr2: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 68 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'SOrddefstr3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 86 + end + object v1Column1: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 134 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1008 + Top = 181 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1008 + Top = 141 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1000 + Top = 352 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1016 + Top = 125 + end +end diff --git a/贸易管理/U_OrderInPutJZC.pas b/贸易管理/U_OrderInPutJZC.pas new file mode 100644 index 0000000..e1755dd --- /dev/null +++ b/贸易管理/U_OrderInPutJZC.pas @@ -0,0 +1,1090 @@ +unit U_OrderInPutJZC; + +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; + +type + TfrmOrderInPutJZC = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrdDate: TDateTimePicker; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label10: TLabel; + ConNo: TEdit; + Label14: TLabel; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + v1SOrddefstr2: TcxGridDBColumn; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label6: TLabel; + MPRTSpec: TBtnEditC; + Label12: TLabel; + MPRTMF: TBtnEditC; + Label13: TLabel; + MPRTKZ: TBtnEditC; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + Label4: TLabel; + Label5: TLabel; + BtnEditC1: TBtnEditC; + Label7: TLabel; + BtnEditC2: TBtnEditC; + Label9: TLabel; + BtnEditC3: TBtnEditC; + Label11: TLabel; + BtnEditC4: TBtnEditC; + cxGrid2: TcxGrid; + cxGridLevel1: TcxGridLevel; + Tv2: TcxGridDBTableView; + Tv2Column1: TcxGridDBColumn; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Label8: TLabel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure JGFactoryNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr3BtnUpClick(Sender: TObject); + procedure MPRTCodeNameBtnUpClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure jKeyPress(Sender: TObject; var Key: Char); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutJZC: TfrmOrderInPutJZC; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmOrderInPutJZC.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); +end; + +procedure TfrmOrderInPutJZC.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub '); + if PState=1 then + begin + sql.Add('where MainId='''+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 * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=SGetServerDateTime(ADOTemp); + OrdPerson1.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmOrderInPutJZC.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutJZC.FormShow(Sender: TObject); +begin + readCxGrid('ָʾ¼',Tv1,'ָʾ'); + if PriceFlag=99 then + begin + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end; + InitData(); +end; + +function TfrmOrderInPutJZC.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,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 JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + FMainId:=Trim(maxno); + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0 + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0 + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + {if Trim(Order_Sub.FieldByName('PRTPrice').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add('where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and CRType=''ӦտǼ'' '); + SQL.Add(' and YFType=''Զ'' '); + Open; + end; + if ADOTemp.RecordCount=1 then + begin + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR set Price='+Order_Sub.FieldByName('PRTPrice').AsString); + sql.Add(',BZType='''+Trim(Order_Sub.FieldByName('PriceUnit').AsString)+''''); + SQL.Add(' where YFID='''+Trim(ADOTemp.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + SQL.Add(' where YFID='''+Trim(ADOTemp.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' ,KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+ADOTemp.fieldbyname('CRID').AsString); + ExecSQL; + end; + end; + + end; } + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutJZC.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutJZC.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutJZC.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutJZC.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SLbName',null,[])=True then + begin + Application.MessageBox('ǩΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmOrderInPutJZC.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + if i<9 then + FieldByName('SOrddefstr1').Value:='0'+Trim(IntToStr(i)) + else + FieldByName('SOrddefstr1').Value:=Trim(IntToStr(i)); + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + //FieldByName('PRTPrice').Value:=null; + // FieldByName('SOrddefstr1').Value:=null; + FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPutJZC.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutJZC.JGFactoryNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.CustomerNoNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutJZC.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with Order_Sub do + begin + Edit; + FieldByName('SLbName').Value:=labname; + FieldByName('SLbInt').Value:=LabInt; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmOrderInPutJZC.OrdDefStr3BtnUpClick(Sender: TObject); +begin +try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='maitou'; + flagname:='ͷ'; + if ShowModal=1 then + begin + OrdDefStr3.Text:=OrdDefStr3.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutJZC.MPRTCodeNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + MPRTCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + MPRTCodeName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.NoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutJZC.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.jKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYNo like '''+'%'+Trim(OrdDefStr1.Text)+'%'+''''); + Open; + end; + if ADOTemp.RecordCount=1 then + begin + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString); + MPRTCF.Text:=Trim(ADOTemp.fieldbyname('CYECF').AsString); + MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('CYSpec').AsString); + MPRTMF.Text:=Trim(ADOTemp.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('CYKZ').AsString); + end else + if ADOTemp.RecordCount>1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYNo='''+Trim(OrdDefStr1.Text)+''''); + Open; + end; + if ADOTemp.RecordCount=1 then + begin + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString); + MPRTCF.Text:=Trim(ADOTemp.fieldbyname('CYECF').AsString); + MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('CYSpec').AsString); + MPRTMF.Text:=Trim(ADOTemp.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('CYKZ').AsString); + end; + end; + + end; +end; + +procedure TfrmOrderInPutJZC.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutJZC.ConNoKeyPress(Sender: TObject; var Key: Char); +var + ConMainId:string; +begin + if Key=#13 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then Exit; + end else + if ADOTemp.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + end; + begin + ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString); + OrdDefStr1.Text:=Trim(ADOTemp.fieldbyname('ConDefStr1').AsString); + MPRTCF.Text:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + MPRTMF.Text:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + ConMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString); + OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,ColorName=(select ZdyName from KH_Zdy B where B.Note=A.PRTColor and B.Type=''OrdColor'' ) '); + SQL.Add(' from JYOrderCon_Sub A where MainId='''+Trim(ConMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('SOrdDefStr4').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr4').AsString); + FieldByName('SOrdDefStr3').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr3').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit').AsString); + FieldByName('PRTHX').Value:=Trim(ADOTemp.fieldbyname('PRTHX').AsString); + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + Post; + end; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CP_YDang where CYNO='''+Trim(OrdDefStr1.Text)+''''); + Open; + end; + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString); + {with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from KH_Zdy where Note='''+Trim(ConGS)+''' and type=''OrdDefStr2'' '); + Open; + end; + OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ZdyName').AsString); } + end; + + end; +end; + +procedure TfrmOrderInPutJZC.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +end. diff --git a/贸易管理/U_OrderInPutNew.dfm b/贸易管理/U_OrderInPutNew.dfm new file mode 100644 index 0000000..628c497 --- /dev/null +++ b/贸易管理/U_OrderInPutNew.dfm @@ -0,0 +1,2155 @@ +object frmOrderInPutNew: TfrmOrderInPutNew + Left = 58 + Top = 45 + Width = 1185 + Height = 670 + Caption = #25351#31034#21333#24405#20837 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1177 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1177 + Height = 295 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 15 + Width = 60 + Height = 12 + Caption = #32534' '#21495#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 = 955 + Top = 47 + Width = 67 + Height = 12 + Caption = #20195' '#21495#65306 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 927 + Top = 15 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#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 = 469 + Top = 49 + Width = 52 + Height = 12 + Caption = #29983#20135#32447#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 = 708 + Top = 47 + Width = 52 + Height = 12 + Caption = #32593#32467#26500#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 = 956 + Top = 148 + Width = 15 + Height = 98 + Caption = #27880#13#10#13#10#24847#13#10#13#10#20107#13#10#13#10#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 469 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 708 + Top = 15 + Width = 52 + Height = 12 + Caption = #21040#36798#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 972 + Top = 51 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label10: TLabel + Left = 1004 + Top = 51 + Width = 67 + Height = 12 + Caption = #33457' '#32441#65306 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label11: TLabel + Left = 1020 + Top = 48 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Enabled = False + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 982 + Top = 51 + Width = 53 + Height = 12 + Caption = #24133' '#23485#65306 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 1018 + Top = 47 + Width = 18 + Height = 15 + Caption = 'cm' + Enabled = False + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 24 + Top = 45 + Width = 65 + Height = 12 + Caption = #39044#20272#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 252 + Top = 49 + Width = 65 + Height = 12 + Caption = #35745#20215#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 23 + Top = 68 + Width = 1140 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -' + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 23 + Top = 116 + Width = 1146 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 25 + Top = 88 + Width = 34 + Height = 12 + Caption = 'ETA'#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 = 257 + Top = 90 + Width = 34 + Height = 12 + Caption = 'ETD'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 491 + Top = 89 + Width = 39 + Height = 12 + Caption = #35013#26588#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 711 + Top = 88 + Width = 53 + Height = 12 + Caption = #20837' '#24211#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 966 + Top = 89 + Width = 39 + Height = 12 + Caption = #29983#20135#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 221 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 165 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 238 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 455 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 400 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 472 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 936 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 881 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 950 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 23 + Top = 278 + Width = 1152 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 766 + Top = 140 + Width = 15 + Height = 98 + Caption = #25171#13#10#13#10#21253#13#10#13#10#35814#13#10#13#10#32454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 23 + Top = 140 + Width = 15 + Height = 98 + Caption = #35814#13#10#13#10#13#10#13#10#13#10#13#10#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 252 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 314 + Top = 13 + Width = 115 + Height = 18 + Enabled = False + TabOrder = 0 + end + object OrderDate: TDateTimePicker + Left = 993 + Top = 12 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 1 + end + object WFBCodeName: TcxButtonEdit + Left = 962 + Top = 43 + Enabled = False + ParentShowHint = False + Properties.BeepOnError = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBCodeNamePropertiesButtonClick + Properties.OnChange = WFBCodeNamePropertiesChange + ShowHint = False + TabOrder = 2 + Visible = False + OnKeyDown = WFBCodeNameKeyDown + Width = 111 + end + object SCXName: TcxButtonEdit + Left = 519 + Top = 45 + Hint = 'FactoryNo1' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = SCXNamePropertiesButtonClick + Properties.OnChange = SCXNamePropertiesChange + ShowHint = False + TabOrder = 3 + OnKeyDown = WFBCodeNameKeyDown + Width = 130 + end + object WJGName: TcxButtonEdit + Left = 757 + Top = 42 + Hint = 'FactoryNo2' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WJGNamePropertiesButtonClick + Properties.OnChange = WJGNamePropertiesChange + ShowHint = False + TabOrder = 4 + OnKeyDown = WFBCodeNameKeyDown + Width = 117 + end + object CustomNoName: TcxButtonEdit + Left = 519 + Top = 12 + Hint = 'CustomerNo' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = CustomNoNamePropertiesButtonClick + Properties.OnChange = CustomNoNamePropertiesChange + ShowHint = False + TabOrder = 5 + OnKeyDown = WFBCodeNameKeyDown + Width = 129 + end + object Note: TRichEdit + Left = 973 + Top = 126 + Width = 140 + Height = 152 + Enabled = False + TabOrder = 6 + end + object ArrivalPortName: TcxButtonEdit + Left = 757 + Top = 12 + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = ArrivalPortNamePropertiesButtonClick + Properties.OnChange = ArrivalPortNamePropertiesChange + ShowHint = False + TabOrder = 7 + OnKeyDown = WFBCodeNameKeyDown + Width = 117 + end + object WFBKZ: TEdit + Left = 962 + Top = 48 + Width = 101 + Height = 18 + Enabled = False + TabOrder = 8 + Visible = False + OnChange = OrdQtyChange + OnKeyPress = OrdQtyKeyPress + end + object WFBHW: TEdit + Left = 990 + Top = 48 + Width = 48 + Height = 18 + Enabled = False + TabOrder = 9 + Visible = False + end + object WFBFK: TEdit + Left = 967 + Top = 48 + Width = 92 + Height = 18 + Enabled = False + TabOrder = 10 + Visible = False + OnKeyPress = OrdQtyKeyPress + end + object OrdQty: TEdit + Left = 86 + Top = 42 + Width = 62 + Height = 18 + Enabled = False + ReadOnly = True + TabOrder = 11 + OnKeyPress = OrdQtyKeyPress + end + object OrdUnit: TComboBox + Left = 149 + Top = 42 + Width = 53 + Height = 20 + Style = csDropDownList + Ctl3D = False + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentCtl3D = False + ParentFont = False + TabOrder = 12 + OnChange = OrdQtyChange + Items.Strings = ( + #13199 + #13217) + end + object ETADate: TDateTimePicker + Left = 57 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 13 + OnChange = ETADateChange + end + object ETDDate: TDateTimePicker + Left = 291 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 14 + end + object ZGDate: TDateTimePicker + Left = 527 + Top = 85 + Width = 123 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 15 + end + object BegRKDate: TDateTimePicker + Left = 762 + Top = 85 + Width = 115 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 16 + OnChange = BegRKDateChange + end + object BegSCDate: TDateTimePicker + Left = 1000 + Top = 85 + Width = 113 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 17 + end + object Day1: TEdit + Left = 184 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 18 + OnChange = Day1Change + OnKeyPress = OrdQtyKeyPress + end + object Day2: TEdit + Left = 418 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 19 + OnChange = Day2Change + OnKeyPress = OrdQtyKeyPress + end + object Day3: TEdit + Left = 899 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 20 + OnChange = Day3Change + OnKeyPress = OrdQtyKeyPress + end + object cxGrid4: TcxGrid + Left = 784 + Top = 128 + Width = 169 + Height = 151 + PopupMenu = PopupMenu1 + TabOrder = 21 + object TVDB: TcxGridDBTableView + PopupMenu = PopupMenu1 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21253#25968#37327 + DataBinding.FieldName = 'BSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 48 + end + object VDBColumn1: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 49 + end + object VDBColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DBUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 55 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVDB + end + end + object cxGrid5: TcxGrid + Left = 40 + Top = 127 + Width = 722 + Height = 154 + PopupMenu = PopupMenu1 + TabOrder = 22 + object TvSub: TcxGridDBTableView + PopupMenu = PopupMenu2 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TvSubColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object vSubColumn3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 31 + end + object vSubColumn9: TcxGridDBColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 37 + end + object vSubColumn4: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = vSubColumn4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 82 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 48 + end + object vSubColumn2: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 51 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 64 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 52 + end + object TvSubColumn1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SOrdQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TvSubColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 61 + end + object vSubColumn5: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 64 + end + object vSubColumn6: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 75 + end + object vSubColumn7: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 73 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvSub + end + end + object PanZDY: TPanel + Left = 907 + Top = 120 + Width = 151 + Height = 153 + TabOrder = 23 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 142 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 129 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 40 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object OrderCode: TEdit + Left = 83 + Top = 13 + Width = 118 + Height = 18 + Enabled = False + TabOrder = 24 + end + object BZ: TcxButtonEdit + Left = 314 + Top = 45 + BeepOnEnter = False + Enabled = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = BZPropertiesButtonClick + Properties.OnChange = BZPropertiesChange + TabOrder = 25 + OnKeyDown = WFBCodeNameKeyDown + Width = 118 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 324 + Width = 1177 + Height = 309 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 809 + Top = 31 + Width = 366 + Height = 276 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceQ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v3Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20854#23427 + Styles.Header = DataLink_WFBProducttion.TextSHuangSe + Width = 400 + end> + object v3Column1: TcxGridDBBandedColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'YLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'YLUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 32 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column9: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + HeaderAlignmentHorz = taCenter + Width = 35 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 425 + Top = 31 + Width = 384 + Height = 276 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceF + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #36741#21161#21407#26009 + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 428 + end> + object v2Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #32791#29575#8240 + DataBinding.FieldName = 'YLSHQ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Column4: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 35 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v2Column5: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v2Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v2Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 32 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v2Column9: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 31 + Width = 425 + Height = 276 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceZ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20027#35201#21407#26009 + Styles.Header = DataLink_WFBProducttion.FontBlue + Width = 487 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 72 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #37197#27604'%' + DataBinding.FieldName = 'YLPB' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25439#32791'%' + DataBinding.FieldName = 'YLSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_WFBProducttion.FoneRed + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 35 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360#35831#36141#21333 + ImageIndex = 96 + OnClick = TBPrintClick + end + end + object Panel1: TPanel + Left = 1152 + Top = -16 + Width = 825 + Height = 297 + TabOrder = 4 + Visible = False + object cxGrid6: TcxGrid + Left = 11 + Top = 32 + Width = 299 + Height = 209 + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tvsel: TcxGridDBTableView + PopupMenu = PopupMenu3 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object vselColumn1: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 42 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 51 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 72 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 52 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tvsel + end + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 823 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #36873#21333 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 789 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button2: TButton + Left = 64 + Top = 251 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 168 + Top = 251 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object cxGrid7: TcxGrid + Left = 312 + Top = 32 + Width = 505 + Height = 257 + TabOrder = 4 + object TVKCSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'YCLCode' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object TVKCSelColumn1: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taRightJustify + Width = 39 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object VKCSelColumn2: TcxGridDBColumn + Caption = #39044#35745#29992#37327 + DataBinding.FieldName = 'YJYL' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object VKCSelColumn1: TcxGridDBColumn + Caption = #39044#35745#24211#23384 + DataBinding.FieldName = 'YJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TVKCSel + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 704 + Top = 309 + end + object DataSourceZ: TDataSource + DataSet = Order_SubZ + Left = 296 + Top = 440 + end + object Order_SubZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 760 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 784 + Top = 309 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 253 + object N1: TMenuItem + Caption = #22686#34892 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#34892 + OnClick = N2Click + end + end + object DataSource3: TDataSource + DataSet = CDS_DB + Left = 544 + Top = 200 + end + object CDS_DB: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 224 + end + object Order_SubF: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 496 + end + object DataSourceF: TDataSource + DataSet = Order_SubF + Left = 656 + Top = 496 + end + object Order_SubQ: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 440 + end + object DataSourceQ: TDataSource + DataSet = Order_SubQ + Left = 1096 + Top = 472 + end + object ADOQueryQG: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 309 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryQG + Left = 448 + Top = 320 + end + object RM2: 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 = 392 + Top = 312 + 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 = 456 + Top = 312 + end + object PopupMenu2: TPopupMenu + Left = 128 + Top = 237 + object MenuItem1: TMenuItem + Caption = #22686#34892 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #21024#34892 + OnClick = MenuItem2Click + end + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 112 + Top = 200 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 96 + Top = 232 + end + object DSSel: TDataSource + DataSet = CDS_Sel + Left = 440 + Top = 376 + end + object CDS_Sel: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 408 + end + object ADOCMD: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 688 + Top = 309 + end + object PopupMenu3: TPopupMenu + Left = 528 + Top = 445 + object MenuItem3: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem3Click + end + object MenuItem4: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem4Click + end + end + object CDS_KCSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 432 + end + object DataSource4: TDataSource + DataSet = CDS_KCSel + Left = 672 + Top = 432 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 160 + Top = 454 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 160 + Top = 494 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 160 + Top = 534 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 120 + Top = 502 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 120 + Top = 465 + end + object PopupMenu4: TPopupMenu + Left = 216 + Top = 477 + object MenuItem7: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem7Click + end + object MenuItem8: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem8Click + end + end +end diff --git a/贸易管理/U_OrderInPutNew.pas b/贸易管理/U_OrderInPutNew.pas new file mode 100644 index 0000000..078d860 --- /dev/null +++ b/贸易管理/U_OrderInPutNew.pas @@ -0,0 +1,2945 @@ +unit U_OrderInPutNew; + +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, cxGridBandedTableView, + cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset, cxCheckBox, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmOrderInPutNew = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrderDate: TDateTimePicker; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + ADOTemp: TADOQuery; + DataSourceZ: TDataSource; + Order_SubZ: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + WFBCodeName: TcxButtonEdit; + SCXName: TcxButtonEdit; + WJGName: TcxButtonEdit; + ADOQuery1: TADOQuery; + Label12: TLabel; + CustomNoName: TcxButtonEdit; + Note: TRichEdit; + Label13: TLabel; + ArrivalPortName: TcxButtonEdit; + Label9: TLabel; + WFBKZ: TEdit; + Label10: TLabel; + WFBHW: TEdit; + Label11: TLabel; + Label14: TLabel; + WFBFK: TEdit; + Label15: TLabel; + Label16: TLabel; + OrdQty: TEdit; + OrdUnit: TComboBox; + Label17: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + ETADate: TDateTimePicker; + Label22: TLabel; + ETDDate: TDateTimePicker; + Label23: TLabel; + ZGDate: TDateTimePicker; + Label24: TLabel; + BegRKDate: TDateTimePicker; + Label25: TLabel; + BegSCDate: TDateTimePicker; + Day1: TEdit; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Day2: TEdit; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Day3: TEdit; + Label18: TLabel; + Label32: TLabel; + Label33: TLabel; + Label4: TLabel; + Label7: TLabel; + cxGrid4: TcxGrid; + TVDB: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + VDBColumn1: TcxGridDBColumn; + VDBColumn2: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + DataSource3: TDataSource; + CDS_DB: TClientDataSet; + Order_SubF: TClientDataSet; + DataSourceF: TDataSource; + Order_SubQ: TClientDataSet; + DataSourceQ: TDataSource; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + v2Column4: TcxGridDBBandedColumn; + v2Column5: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TBPrint: TToolButton; + v1Column7: TcxGridDBBandedColumn; + v2Column6: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v2Column7: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v2Column8: TcxGridDBBandedColumn; + v3Column8: TcxGridDBBandedColumn; + ADOQueryQG: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport1: TRMXLSExport; + Label40: TLabel; + cxGrid5: TcxGrid; + TvSub: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + TvSubColumn1: TcxGridDBColumn; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + vSubColumn2: TcxGridDBColumn; + Label41: TLabel; + OrderCode: TEdit; + vSubColumn3: TcxGridDBColumn; + Panel1: TPanel; + cxGrid6: TcxGrid; + Tvsel: TcxGridDBTableView; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + vselColumn1: TcxGridDBColumn; + Panel10: TPanel; + Image2: TImage; + Button2: TButton; + Button3: TButton; + DSSel: TDataSource; + CDS_Sel: TClientDataSet; + ADOCMD: TADOQuery; + vSubColumn4: TcxGridDBColumn; + PopupMenu3: TPopupMenu; + MenuItem3: TMenuItem; + MenuItem4: TMenuItem; + vSubColumn5: TcxGridDBColumn; + vSubColumn6: TcxGridDBColumn; + vSubColumn7: TcxGridDBColumn; + BZ: TcxButtonEdit; + cxGrid7: TcxGrid; + TVKCSel: TcxGridDBTableView; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + TVKCSelColumn1: TcxGridDBColumn; + VKCSelColumn1: TcxGridDBColumn; + CDS_KCSel: TClientDataSet; + DataSource4: TDataSource; + VKCSelColumn2: TcxGridDBColumn; + vSubColumn9: TcxGridDBColumn; + v1Column10: TcxGridDBBandedColumn; + N3: TMenuItem; + N4: TMenuItem; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + v2Column9: TcxGridDBBandedColumn; + v3Column9: TcxGridDBBandedColumn; + PopupMenu4: TPopupMenu; + MenuItem7: TMenuItem; + MenuItem8: TMenuItem; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomNoNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesChange(Sender: TObject); + procedure SCXNamePropertiesChange(Sender: TObject); + procedure WJGNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Day1Change(Sender: TObject); + procedure OrdQtyKeyPress(Sender: TObject; var Key: Char); + procedure Day2Change(Sender: TObject); + procedure Day3Change(Sender: TObject); + procedure ETADateChange(Sender: TObject); + procedure BegRKDateChange(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure OrdQtyChange(Sender: TObject); + procedure v3Column4PropertiesEditValueChanged(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn2PropertiesEditValueChanged(Sender: TObject); + procedure TvSubColumn1PropertiesEditValueChanged(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure vSubColumn4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MenuItem3Click(Sender: TObject); + procedure MenuItem4Click(Sender: TObject); + procedure vSubColumn5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesChange(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNoClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure MenuItem7Click(Sender: TObject); + procedure MenuItem8Click(Sender: TObject); + private + MInt,ChkInt,CloInt:Integer; + + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure DelOrderSub(FOrder_Sub:TClientDataSet); + procedure SELYCL(SCDS_Sub:TClientDataSet); + procedure EditYCL(SCDS_Sub:TClientDataSet); + function SaveData10():Boolean; + procedure SaveYCL(SCDS_Sub:TClientDataSet); + procedure YLUpdate(); + procedure UpMainId(); + function SaveDataMain():Boolean; + + function SaveDataSub():Boolean; + function SaveDataDB():Boolean; + function SaveDataPB():Boolean; + procedure SELYCLKC(SCDS_Sub:TClientDataSet); + procedure OnlyUpYCLData(); + procedure YCLPBIDUPdate(SOrder_SubZ:TClientDataSet); + procedure SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean); + { Private declarations } + public + PState,BState,CopyInt:Integer; + FMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutNew: TfrmOrderInPutNew; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList; + +{$R *.dfm} + +procedure TfrmOrderInPutNew.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ',Tv2,'޷IJ'); + WriteCxBandedGrid('',Tv3,'޷IJ'); + WriteCxGrid('ӱ',TvSub,'޷IJ'); + WriteCxGrid('',TVDB,'޷IJ'); + {if PState<>3 then + begin + if Application.MessageBox('ǷҪݣ','ʾ',32+4)=IDYES then + begin + CloInt:=1; + TBSave.Click; + Exit; + end; + end; } + Close; + +end; + +procedure TfrmOrderInPutNew.InitData(); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + if PState>0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=''; + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + Open; + end; + // SCreateCDS20(ADOQuery1,Order_Sub); + //SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp))); + ETADate.DateTime:=OrderDate.DateTime; + ETDDate.DateTime:=OrderDate.DateTime; + ZGDate.DateTime:=OrderDate.DateTime; + BegRKDate.DateTime:=OrderDate.DateTime; + BegSCDate.DateTime:=OrderDate.DateTime; + ETADate.Checked:=False; + ETDDate.Checked:=False; + ZGDate.Checked:=False; + BegRKDate.Checked:=False; + BegSCDate.Checked:=False; + end; + if Trim(DParameters1)<>'' then + begin + {BegRKDate.Enabled:=False; + Day3.Enabled:=False; + BegSCDate.Enabled:=False; + //Note.Enabled:=False; + cxGrid4.Enabled:=False; + {MJKZX.Enabled:=False; + MJKZD.Enabled:=False; + XJKZX.Enabled:=False; + XJKZD.Enabled:=False;} + {SCXName.Enabled:=False; + WJGName.Enabled:=False; + ScrollBox2.Enabled:=False; } + end; + if PState=4 then + begin + BegRKDate.Enabled:=True; + Day3.Enabled:=True; + BegSCDate.Enabled:=True; + //Note.Enabled:=False; + cxGrid4.Enabled:=True; + {MJKZX.Enabled:=True; + MJKZD.Enabled:=True; + XJKZX.Enabled:=True; + XJKZD.Enabled:=True; } + SCXName.Enabled:=True; + WJGName.Enabled:=True; + ScrollBox2.Enabled:=True; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_DB); + SInitCDSData20(ADOQuery1,CDS_DB); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Sub); + SInitCDSData20(ADOQuery1,CDS_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType=''Ҫ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubZ); + SInitCDSData20(ADOQuery1,Order_SubZ); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubF); + SInitCDSData20(ADOQuery1,Order_SubF); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubQ); + SInitCDSData20(ADOQuery1,Order_SubQ); + PanZDY.Visible:=False; + if PState=4 then + begin + PState:=0; + FMainId:='999999'; + //OrderNo.Text:=''; + WFBCodeName.Text:=''; + WFBCodeName.Hint:=''; + PanZDY.Visible:=False; + with CDS_DB do + begin + First; + while not Eof do + begin + Edit; + FieldByName('DBID').Value:=''; + Post; + Next; + end; + end; + with Order_SubZ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v1Column1.Options.Focusing:=True; + with Order_SubF do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v2Column1.Options.Focusing:=True; + with Order_SubQ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v3Column1.Options.Focusing:=True; + end; +end; + +procedure TfrmOrderInPutNew.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmOrderInPutNew.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutNew.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutNew.WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmOrderInPutNew.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmOrderInPutNew.FormShow(Sender: TObject); +var + fsj:string; +begin + {if Trim(DParameters1)='' then + begin + TBSave.Visible:=False; + //TBChkOk.Visible:=True; + TBChkNo.Visible:=True; + end else + begin + TBSave.Visible:=True; + TBChkOk.Visible:=False; + TBChkNo.Visible:=False; + end; } + fsj:=FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp)); + if ( (Trim(FMainId)='') or (CopyInt=1)) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Count(*) As SL from WFBOrder_Main where OrderDate='''+Trim(fsj)+''''); + sql.Add(' and MainId not like ''%FZ'' '); + Open; + end; + if ADOTemp.IsEmpty then + begin + fsj:=fsj+'-1' + end else + fsj:=fsj+'-'+Trim(IntToStr(ADOTemp.fieldbyname('SL').AsInteger+1)); + OrderCode.Text:=Trim(fsj); + end; + InitData(); + ReadCxBandedGrid('',Tv1,'޷IJ'); + ReadCxBandedGrid('ϸ',Tv2,'޷IJ'); + ReadCxBandedGrid('',Tv3,'޷IJ'); + ReadCxGrid('ӱ',TvSub,'޷IJ'); + ReadCxGrid('',TVDB,'޷IJ'); +end; +function TfrmOrderInPutNew.SaveDataMain():Boolean; +var + maxno,FSubId:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,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 WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderType').Value:=''; + FieldByName('OrderNo').Value:='11'; + SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0); + if PState=2 then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp); + if ChkInt=1 then + FieldByName('ChkStatus').Value:='ͨ' + else if ChkInt=2 then + FieldByName('ChkStatus').Value:='˲ͨ'; + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + if Trim(FMainId)<>'' then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +function TfrmOrderInPutNew.SaveDataSub():Boolean; +var + maxno,FSubId:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + ///굥 + + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'','WFBOrder_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Sub '); + sql.Add(' where SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + FieldByName('SWFBCode').Value:=Trim(CDS_Sub.fieldbyname('SWFBCode').AsString); + SSetSaveDataCDSNew(ADOCmd,TvSub,CDS_Sub,'WFBOrder_Sub',0); + Post; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SubId').Value:=Trim(maxno); + //CDS_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ӱʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutNew.SaveDataDB():Boolean; +var + maxno,FSubId:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + ///ϸ + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'DB','WFB_DB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString); + end; + with CDS_DB do + begin + First; + while not Eof do + begin + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_DB '); + sql.Add(' where DBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('DBId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0); + Post; + end; + CDS_DB.Edit; + CDS_DB.FieldByName('DBId').Value:=Trim(maxno); + //CDS_DB.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutNew.SaveDataPB():Boolean; +var + maxno,FSubId:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + //Ҫԭ + + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + First; + while not Eof do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString); + FieldByName('PBType').Value:='Ҫ'; + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0); + Post; + end; + Order_SubZ.Edit; + Order_SubZ.FieldByName('PBId').Value:=Trim(maxno); + //Order_SubZ.Post; + Next; + end; + end; + end; + //渨ԭ + + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0); + Post; + end; + Order_SubF.Edit; + Order_SubF.FieldByName('PBId').Value:=Trim(maxno); + Order_SubF.Post; + Next; + end; + end; + end; + //ԭ + + if not Order_SubQ.IsEmpty then + begin + with Order_SubQ do + begin + First; + while not Eof do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0); + Post; + end; + Order_SubQ.Edit; + Order_SubQ.FieldByName('PBId').Value:=Trim(maxno); + Order_SubQ.Post; + Next; + end; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȱʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutNew.SaveData():Boolean; +var + maxno,FSubId,FFS:String; + wz:Integer; +begin + try + Result:=False; + SaveDataMain(); + SaveDataSub(); + SaveDataDB(); + SaveDataPB(); + wz:=Pos('F',FMainId); + FFS:=Copy(FMainId,wz,4); + if ((CopyInt=1) or (FFS='FZ')) then + begin + UpMainId(); + end; + CopyInt:=0; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutNew.SaveData10():Boolean; +var + maxno,FSubId:String; + +begin + try + Result:=False; + SaveDataMain(); + SaveDataDB(); + SaveDataSub(); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutNew.TBSaveClick(Sender: TObject); +begin + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(OrdUnit.Text)='' then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; } + if CDS_DB.Locate('BSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if CDS_DB.Locate('JSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SWFBCodeName',null,[]) then + begin + Application.MessageBox('ƷŲΪգ','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + YLUpdate(); + if SaveData()=True then + begin + if ChkInt>0 then + begin + Application.MessageBox('ɹ!','ʾ',0); + end else + Application.MessageBox('ɹ','ʾ',0); + if CloInt=1 then ModalResult:=1; + end; + +end; +procedure TfrmOrderInPutNew.SaveYCL(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; +begin + try + ADOCmd.Connection.BeginTrans; + with frmGetPGJBInList.ClientDataSet2 do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString); + FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString); + FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + Next; + end; + end; + Next; + end; + end; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +procedure TfrmOrderInPutNew.SELYCL(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + try ADOCmd.Connection.BeginTrans; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLName').AsString); + FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLSpec').AsString); + FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString); + FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString); + FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + end; + Next; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + Exit; + end; + //Self.SaveYCL(SCDS_Sub); + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; +procedure TfrmOrderInPutNew.SELYCLKC(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; + YLPB,YLSH:Double; +begin + + try ADOCmd.Connection.BeginTrans; + with CDS_KCSel do + begin + First; + while not Eof do + begin + if CDS_KCSel.FieldByName('SSel').AsBoolean=True then + begin + if MInt=1 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+''''); + SQL.Add('and YLPB>0 order by FillTime desc'); + Open; + end; + if Trim(ADOTemp.fieldbyname('YLPB').AsString)<>'' then + YLPB:=ADOTemp.fieldbyname('YLPB').Value + else + YLPB:=0; + if Trim(ADOTemp.fieldbyname('YLSH').AsString)<>'' then + YLSH:=ADOTemp.fieldbyname('YLSH').Value + else + YLSH:=0; + end else + begin + YLPB:=0; + YLSH:=0; + end; + end; + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString); + if MInt=1 then + begin + SCDS_Sub.FieldByName('YLPB').Value:=YLPB; + SCDS_Sub.FieldByName('YLSH').Value:=YLSH; + end; + Post; + end; + // + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString); + FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString); + FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString); + FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString); + FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + // + //ֱ + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + end; + Next; + end; + end; + //ֱ + if MInt=1 then + OnlyUpYCLData(); + end; + + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutNew.EditYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + //First; + // while not Eof do + //begin + with SCDS_Sub do + begin + Edit; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then + SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value- + ClientDataSet2.fieldbyname('YJKC').Value + else + SCDS_Sub.FieldByName('BZ').Value:=null; + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + //Post; + end; + // Next; + //end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; +procedure TfrmOrderInPutNew.ToolButton1Click(Sender: TObject); + +begin + if CDS_Sub.IsEmpty=True then + begin + Application.MessageBox('굥Ϊգ','ʾ',0); + Exit; + end; + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBCodeName.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; } + SaveData10(); + Panel1.Visible:=True; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + {if MInt=1 then + begin + SELYCL(Order_SubZ); + end else + if MInt=2 then + begin + SELYCL(Order_SubF); + end else + if MInt=3 then + begin + SELYCL(Order_SubQ); } + end; + SCreateCDS20(ADOQuery1,CDS_Sel); + SInitCDSData20(ADOQuery1,CDS_Sel); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_YCLKC_ListKCDD :KCType '); + if MInt=1 then + begin + Parameters.ParamByName('KCType').Value:='Ҫ'; + end else + if MInt=2 then + begin + Parameters.ParamByName('KCType').Value:=''; + end else + if MInt=3 then + begin + Parameters.ParamByName('KCType').Value:=''; + end; + open; + end; + SCreateCDS20(ADOQuery1,CDS_KCSel); + SInitCDSData20(ADOQuery1,CDS_KCSel); +end; + +procedure TfrmOrderInPutNew.ToolButton2Click(Sender: TObject); +begin + if MInt=1 then + begin + DelOrderSub(Order_SubZ); + end else + if MInt=2 then + begin + DelOrderSub(Order_SubF); + end else + if MInt=3 then + begin + DelOrderSub(Order_SubQ); + end; +end; +procedure TfrmOrderInPutNew.DelOrderSub(FOrder_Sub:TClientDataSet); +begin + if FOrder_Sub.IsEmpty then Exit; + if Trim(FOrder_Sub.fieldbyname('PBID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + end; + FOrder_Sub.Delete; +end; + +procedure TfrmOrderInPutNew.CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('CustomNoName'); + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.FXS:=99; + CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.CustomNoNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(CustomNoName,'CustomNoName'); +end; + +procedure TfrmOrderInPutNew.ArrivalPortNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('ArrivalPort'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('SCXName'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WJGName'); + flagname:='ṹ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.WFBCodeNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name)); +end; + +procedure TfrmOrderInPutNew.ArrivalPortNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(ArrivalPortName,'ArrivalPort'); +end; + +procedure TfrmOrderInPutNew.SCXNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(SCXName,Trim(SCXName.Name)); +end; + +procedure TfrmOrderInPutNew.WJGNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WJGName,Trim(WJGName.Name)); +end; + +procedure TfrmOrderInPutNew.N1Click(Sender: TObject); +begin + + with CDS_DB do + begin + Append; + FieldByName('DBUnit').Value:='/'; + Post; + end; +end; + +procedure TfrmOrderInPutNew.N2Click(Sender: TObject); +begin + if CDS_DB.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+''''); + ExecSQL; + end; + CDS_DB.Delete; +end; + +procedure TfrmOrderInPutNew.Day1Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day1.Text)='' then DayL:='0' + else DayL:=Trim(Day1.Text); + ETDDate.DateTime:=ETADate.Date-strtoint(DayL); +end; + +procedure TfrmOrderInPutNew.OrdQtyKeyPress(Sender: TObject; var Key: Char); +begin + if not (Key in['0'..'9','.',#8,#13]) then + begin + key:=#0; + end; +end; + +procedure TfrmOrderInPutNew.Day2Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day2.Text)='' then DayL:='0' + else DayL:=Trim(Day2.Text); + ZGDate.DateTime:=ETDDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutNew.Day3Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day3.Text)='' then DayL:='0' + else DayL:=Trim(Day3.Text); + BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutNew.ETADateChange(Sender: TObject); +begin + if Trim(Day1.Text)<>'' then + begin + ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text); + end; + if Trim(Day2.Text)<>'' then + begin + ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text); + end; +end; + +procedure TfrmOrderInPutNew.BegRKDateChange(Sender: TObject); +begin + if Trim(Day3.Text)<>'' then + begin + BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text); + end; +end; + +procedure TfrmOrderInPutNew.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=1; + Tv1.Bands[0].Caption:='Ҫԭϡ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlue; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutNew.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=2; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭϡ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutNew.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=3; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmOrderInPutNew.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty:Double; + FOrdQty,FKZ:String; +begin + if Trim(TcxTextEdit(Sender).EditingText)<>'' then + mvalue:=TcxTextEdit(Sender).EditingValue + else + mvalue:=0; + with Order_SubZ do + begin + Edit; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + //KO + YLUpdate(); +end; +procedure TfrmOrderInPutNew.OnlyUpYCLData(); +var + mvalue,YLSH,DHSL,YLQty:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)<>'' then + mvalue:=Order_SubZ.fieldbyname('YLPB').Value + else + mvalue:=0; //KO + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from WFBYCL_PBSub A '); + //SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*mvalue/100*(1+YLSH/100); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+DHSL*mvalue/100*(1+YLSH/100); + end; + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + end; +end; + +procedure TfrmOrderInPutNew.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB:Double; + FOrdQty,FKZ:String; +begin + if Trim(TcxTextEdit(Sender).EditingText)<>'' then + mvalue:=TcxTextEdit(Sender).EditingValue + else + mvalue:=0; + with Order_SubZ do + begin + Edit; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + //KO + YLUpdate(); +end; + +procedure TfrmOrderInPutNew.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSHQ,DHSL,YLQty,YLPB:Double; + FOrdQty,FKZ:String; +begin + if Trim(TcxTextEdit(Sender).EditingText)<>'' then + mvalue:=TcxTextEdit(Sender).EditingValue + else + mvalue:=0; + with Order_SubF do + begin + Edit; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + //KO + YLUpdate(); +end; + +procedure TfrmOrderInPutNew.OrdQtyChange(Sender: TObject); +begin + YLUpdate(); +end; +procedure TfrmOrderInPutNew.YLUpdate(); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + with Order_SubZ do + begin + if Order_SubZ.IsEmpty=False then + begin + First; + while not Eof do + begin + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+YLSH/100); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+DHSL*YLPB/100*(1+YLSH/100); + end; + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + end; + Next; + end; + end; + + end; + if Order_SubF.IsEmpty=False then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubF.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*(YLSHQ*1.00/1000); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + YLQty:=YLQty+DHSL*(YLSHQ*1.00/1000); + end; + Next; + end; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + end; + Next; + end; + end; + end; +end; +procedure TfrmOrderInPutNew.v3Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingValue; + with Order_SubQ do + begin + Edit; + FieldByName('YLQty').Value:=mvalue; + if mvalue-fieldbyname('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPutNew.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + with ADOQueryQG do + begin + Close; + sql.Clear; + sql.Add(' exec P_Print_SGD :OrderNo'); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + if ADOQueryQG.IsEmpty then Exit; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\빺.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['dyr']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\빺.rmf'),'ʾ',0); + end; +end; + +procedure TfrmOrderInPutNew.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubZ); +end; + +procedure TfrmOrderInPutNew.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubF); +end; + +procedure TfrmOrderInPutNew.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubQ); +end; + +procedure TfrmOrderInPutNew.MenuItem1Click(Sender: TObject); +var + i:Integer; +begin + CopyAddRow(TvSub,CDS_Sub); + i:=CDS_Sub.RecordCount; + with CDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + FieldByName('SWFBColor').Value:=''; + FieldByName('SWFBCode').Value:=''; + FieldByName('SWFBCodeName').Value:=''; + FieldByName('SOrdQty').Value:=0; + FieldByName('XHNO').Value:=IntToStr(i); + Post; + end; + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); +end; + +procedure TfrmOrderInPutNew.MenuItem2Click(Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SubID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+''' '); + sql.Add(' and not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID and A.MainId='''+Trim(FMainId)+''' )'); + open; + end; + with ADOTemp do + begin + ADOTemp.First; + while not ADOTemp.Eof do + begin + if Trim(ADOTemp.fieldbyname('PBID').AsString)<>'' then + begin + if Order_SubZ.IsEmpty=False then + begin + if Order_SubZ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubZ.Delete; + end; + if Order_SubF.IsEmpty=False then + begin + if Order_SubF.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubF.Delete; + end; + if Order_SubQ.IsEmpty=False then + begin + if Order_SubQ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubQ.Delete; + end; + end; + ADOTemp.Next; + end; + end; + with ADOCMD do + begin + Close; + SQL.Clear; + sql.Add(' delete WFBYCL_PB where not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID )'); + SQL.Add(' and MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + + end else + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + end; + CDS_Sub.Delete; + //YLUpdate(); + if CDS_Sub.isempty=False then + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); + YLUpdate(); +end; + +procedure TfrmOrderInPutNew.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.vSubColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBHX'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBHW').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.cxGridDBColumn2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + FKZ:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FKZ)='' then + FieldByName('SWFBKZ').Value:='0' + else + FieldByName('SWFBKZ').Value:=FKZ; + Post; + end; + YLUpdate(); +end; + +procedure TfrmOrderInPutNew.TvSubColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + FOrdQty:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FOrdQty)='' then + FieldByName('SOrdQty').Value:='0' + else + FieldByName('SOrdQty').Value:=FOrdQty; + Post; + end; + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); + YLUpdate(); +end; + +procedure TfrmOrderInPutNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel1).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmOrderInPutNew.Image2Click(Sender: TObject); +begin + Panel1.Visible:=False; +end; + +procedure TfrmOrderInPutNew.Button3Click(Sender: TObject); +begin + Panel1.Visible:=False; +end; + +procedure TfrmOrderInPutNew.Button2Click(Sender: TObject); +begin + if CDS_Sel.Locate('ssel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + if MInt=1 then + begin + SELYCLKC(Order_SubZ); + end else + if MInt=2 then + begin + SELYCLKC(Order_SubF); + end else + if MInt=3 then + begin + SELYCLKC(Order_SubQ); + end; + Panel1.Visible:=False; +end; + +procedure TfrmOrderInPutNew.FormClose(Sender: TObject; + var Action: TCloseAction); +var + maxno,FFS:string; + wz:Integer; +begin + WriteCxBandedGrid('',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ',Tv2,'޷IJ'); + WriteCxBandedGrid('',Tv3,'޷IJ'); + WriteCxGrid('ӱ',TvSub,'޷IJ'); + WriteCxGrid('',TVDB,'޷IJ'); + { if CopyInt=1 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; + wz:=Pos('F',FMainId); + FFS:=Copy(FMainId,wz,4); + if ((CopyInt=1) or (FFS='FZ')) then + begin + UpMainId(); + end;} +end; +procedure TfrmOrderInPutNew.UpMainId(); +var + maxno:string; +begin + try + ADOCmd.Connection.BeginTrans; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PBSub Set PSID='''+Trim(maxno)+''''); + SQL.Add(' where PSID='''+Trim(ADOTemp.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set PBID='''+Trim(maxno)+''''); + SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + sql.Add('UPdate WFBYCL_PBSub Set PBID='''+Trim(maxno)+''''); + SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'','WFBOrder_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set SubID='''+Trim(maxno)+''''); + SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+''''); + sql.Add('UPdate WFBYCL_PBSub Set SubID='''+Trim(maxno)+''''); + SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + if GetLSNo(ADOCmd,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('Update WFBOrder_Sub Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('Update WFB_DB Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('UPdate WFBYCL_PB Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('UPdate WFBYCL_PBSub Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + ExecSQL; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutNew.vSubColumn4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CDS_Sub.FieldByName('SWFBCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then Exit; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+''''); + sql.Add(' order by SFillTIme Desc'); + Open; + end; + with CDS_Sub do + begin + Edit; + FieldByName('SWFBColor').Value:=ADOTemp.fieldbyname('SWFBColor').Value; + FieldByName('SWFBHW').Value:=ADOTemp.fieldbyname('SWFBHW').Value; + FieldByName('SWFBKZ').Value:=ADOTemp.fieldbyname('SWFBKZ').Value; + FieldByName('SWFBFK').Value:=ADOTemp.fieldbyname('SWFBFK').Value; + FieldByName('SOrdPrice').Value:=ADOTemp.fieldbyname('SOrdPrice').Value; + FieldByName('WKMS').Value:=ADOTemp.fieldbyname('WKMS').Value; + FieldByName('KZSmal').Value:=ADOTemp.fieldbyname('KZSmal').Value; + FieldByName('KZBig').Value:=ADOTemp.fieldbyname('KZBig').Value; + //Post; + end; +end; + +procedure TfrmOrderInPutNew.MenuItem3Click(Sender: TObject); +begin + CDS_Sel.DisableControls; + with CDS_Sel do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + Next; + end; + end; + CDS_Sel.EnableControls; +end; + +procedure TfrmOrderInPutNew.MenuItem4Click(Sender: TObject); +begin + CDS_Sel.DisableControls; + with CDS_Sel do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + Next; + end; + end; + CDS_Sel.EnableControls; +end; + +procedure TfrmOrderInPutNew.vSubColumn5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WKMS'); + flagname:='Ŀ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('WKMS').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('JJDW'); + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.FXS:=99; + BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutNew.BZPropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(BZ,'JJDW'); +end; + +procedure TfrmOrderInPutNew.TBChkOkClick(Sender: TObject); +begin + ChkInt:=1; + TBSave.Click; +end; + +procedure TfrmOrderInPutNew.TBChkNoClick(Sender: TObject); +begin + ChkInt:=2; + TBSave.Click; +end; + +procedure TfrmOrderInPutNew.Button4Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then exit; + if( (Order_SubZ.IsEmpty) and (Order_SubF.IsEmpty) and (Order_SubQ.IsEmpty) )then Exit; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + SaveData10(); + if CDS_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('굥δѡݣܸ£','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('SSel',True,[])=False then + begin + if Order_SubF.Locate('SSel',True,[])=False then + if Order_SubZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ԭϱδѡݣܸ£','ʾ',0); + Exit; + end; + end; + try + ADOCMD.Connection.BeginTrans; + YCLPBIDUPdate(Order_SubZ); + YCLPBIDUPdate(Order_SubF); + YCLPBIDUPdate(Order_SubQ); + ADOCMD.Connection.CommitTrans; + YLUpdate(); + Application.MessageBox('³ɹ','ʾ',0); + Exit; + except + ADOCMD.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutNew.YCLPBIDUPdate(SOrder_SubZ:TClientDataSet); +var + maxno:String; +begin + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + with SOrder_SubZ do + begin + First; + while not Eof do + begin + if SOrder_SubZ.FieldByName('SSel').AsBoolean=True then + begin + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and PBID='''+Trim(SOrder_SubZ.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + if GetLSNo(ADOCMD,maxno,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCMD.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCMD do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + FieldByName('PBID').Value:=Trim(SOrder_SubZ.fieldbyname('PBID').AsString); + FieldByName('PSID').Value:=Trim(maxno); + Post; + end; + end; + Next; + end; + end; + end; + Next; + end; + end; +end; + +procedure TfrmOrderInPutNew.N3Click(Sender: TObject); +begin + SelAll(CDS_Sub,True); +end; +procedure TfrmOrderInPutNew.SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean); +begin + if SCDS_Sub.IsEmpty then exit; + with SCDS_Sub do + begin + First; + while not eof do + begin + Edit; + FieldByName('SSel').Value:=FSEL; + post; + Next; + end; + end; +end; + +procedure TfrmOrderInPutNew.N4Click(Sender: TObject); +begin + SelAll(CDS_Sub,False); +end; + +procedure TfrmOrderInPutNew.MenuItem7Click(Sender: TObject); +begin + if MInt=1 then + begin + SelAll(Order_SubZ,True); + end else + if MInt=2 then + begin + SelAll(Order_SubF,True); + end else + if MInt=3 then + begin + SelAll(Order_SubQ,True); + end; +end; + +procedure TfrmOrderInPutNew.MenuItem8Click(Sender: TObject); +begin + if MInt=1 then + begin + SelAll(Order_SubZ,False); + end else + if MInt=2 then + begin + SelAll(Order_SubF,False); + end else + if MInt=3 then + begin + SelAll(Order_SubQ,False); + end; +end; + +end. diff --git a/贸易管理/U_OrderInPutZP.dfm b/贸易管理/U_OrderInPutZP.dfm new file mode 100644 index 0000000..2fa390e --- /dev/null +++ b/贸易管理/U_OrderInPutZP.dfm @@ -0,0 +1,1788 @@ +object frmOrderInPutZP: TfrmOrderInPutZP + Left = 28 + Top = 34 + Width = 1192 + Height = 705 + Caption = #25351#31034#21333#24405#20837'('#21046#21697')' + 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 = 1184 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1184 + Height = 320 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 15 + Width = 65 + Height = 12 + Caption = #35746#21333#32534#21495#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 = 248 + Top = 15 + Width = 39 + Height = 12 + Caption = #20195#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 883 + Top = 15 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#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 = 919 + Top = 184 + Width = 52 + Height = 12 + Caption = #29983#20135#32447#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 = 919 + Top = 248 + Width = 52 + Height = 12 + Caption = #32593#32467#26500#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 = 24 + Top = 172 + Width = 15 + Height = 98 + Caption = #27880#13#10#13#10#24847#13#10#13#10#20107#13#10#13#10#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 467 + Top = 15 + Width = 39 + Height = 12 + Caption = #23458#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 677 + Top = 15 + Width = 52 + Height = 12 + Caption = #21040#36798#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 936 + Top = 83 + Width = 39 + Height = 12 + Caption = #33457#32441#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 461 + Top = 43 + Width = 53 + Height = 12 + Caption = #24133' '#23485#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 609 + Top = 39 + Width = 18 + Height = 15 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 24 + Top = 43 + Width = 65 + Height = 12 + Caption = #21512#35745#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 777 + Top = 81 + Width = 39 + Height = 12 + Caption = #21333#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 24 + Top = 100 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 23 + Top = 148 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 25 + Top = 120 + Width = 34 + Height = 12 + Caption = 'ETA'#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 = 257 + Top = 122 + Width = 34 + Height = 12 + Caption = 'ETD'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 491 + Top = 121 + Width = 39 + Height = 12 + Caption = #35013#26588#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 679 + Top = 120 + Width = 53 + Height = 12 + Caption = #20837' '#24211#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 934 + Top = 121 + Width = 39 + Height = 12 + Caption = #29983#20135#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 221 + Top = 120 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 165 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 238 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 455 + Top = 120 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 400 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 472 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 904 + Top = 120 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 849 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 918 + Top = 120 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 679 + Top = 185 + Width = 91 + Height = 12 + Caption = #27597#21367#20811#37325#33539#22260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 866 + Top = 184 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 810 + Top = 184 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 679 + Top = 249 + Width = 91 + Height = 12 + Caption = #23567#21367#20811#37325#33539#22260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 866 + Top = 248 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 810 + Top = 248 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 23 + Top = 281 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 431 + Top = 172 + Width = 15 + Height = 98 + Caption = #25171#13#10#13#10#21253#13#10#13#10#35814#13#10#13#10#32454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 24 + Top = 81 + Width = 65 + Height = 12 + Caption = #35746#36135#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 204 + Top = 77 + Width = 11 + Height = 20 + Caption = '*' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 332 + Top = 77 + Width = 11 + Height = 20 + Caption = '*' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 473 + Top = 81 + Width = 53 + Height = 12 + Caption = #24133' '#23485#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 560 + Top = 77 + Width = 11 + Height = 20 + Caption = '*' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 611 + Top = 79 + Width = 18 + Height = 15 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 642 + Top = 81 + Width = 39 + Height = 12 + Caption = #20811#37325#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 = 736 + Top = 78 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 23 + Top = 63 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object OrderNo: TEdit + Left = 86 + Top = 13 + Width = 115 + Height = 18 + TabOrder = 0 + end + object OrderDate: TDateTimePicker + Left = 947 + Top = 11 + Width = 125 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object WFBCodeName: TcxButtonEdit + Left = 292 + Top = 11 + ParentShowHint = False + Properties.BeepOnError = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBCodeNamePropertiesButtonClick + Properties.OnChange = WFBCodeNamePropertiesChange + ShowHint = False + TabOrder = 2 + OnKeyDown = WFBCodeNameKeyDown + Width = 132 + end + object SCXName: TcxButtonEdit + Left = 972 + Top = 180 + Hint = 'FactoryNo1' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = SCXNamePropertiesButtonClick + Properties.OnChange = SCXNamePropertiesChange + ShowHint = False + TabOrder = 3 + OnKeyDown = WFBCodeNameKeyDown + Width = 100 + end + object WJGName: TcxButtonEdit + Left = 972 + Top = 243 + Hint = 'FactoryNo2' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WJGNamePropertiesButtonClick + Properties.OnChange = WJGNamePropertiesChange + ShowHint = False + TabOrder = 4 + OnKeyDown = WFBCodeNameKeyDown + Width = 100 + end + object CustomNoName: TcxButtonEdit + Left = 505 + Top = 11 + Hint = 'CustomerNo' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = CustomNoNamePropertiesButtonClick + Properties.OnChange = CustomNoNamePropertiesChange + ShowHint = False + TabOrder = 5 + OnKeyDown = WFBCodeNameKeyDown + Width = 129 + end + object Note: TRichEdit + Left = 43 + Top = 168 + Width = 366 + Height = 113 + TabOrder = 6 + end + object ArrivalPortName: TcxButtonEdit + Left = 726 + Top = 11 + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = ArrivalPortNamePropertiesButtonClick + Properties.OnChange = ArrivalPortNamePropertiesChange + ShowHint = False + TabOrder = 7 + OnKeyDown = WFBCodeNameKeyDown + Width = 117 + end + object WFBHW: TEdit + Left = 972 + Top = 80 + Width = 98 + Height = 18 + TabOrder = 8 + end + object WFBFK: TEdit + Left = 510 + Top = 40 + Width = 92 + Height = 18 + TabOrder = 9 + Visible = False + OnKeyPress = OrdQtyKeyPress + end + object OrdQty: TEdit + Left = 86 + Top = 40 + Width = 62 + Height = 18 + Enabled = False + TabOrder = 10 + OnChange = OrdQtyChange + OnKeyPress = OrdQtyKeyPress + end + object OrdUnit: TComboBox + Left = 149 + Top = 40 + Width = 53 + Height = 20 + Style = csDropDownList + Ctl3D = False + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentCtl3D = False + ParentFont = False + TabOrder = 11 + OnChange = OrdQtyChange + Items.Strings = ( + #13199 + #13217) + end + object OrdPrice: TEdit + Left = 815 + Top = 78 + Width = 53 + Height = 18 + TabOrder = 12 + OnKeyPress = OrdQtyKeyPress + end + object ETADate: TDateTimePicker + Left = 57 + Top = 117 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 13 + OnChange = ETADateChange + end + object ETDDate: TDateTimePicker + Left = 291 + Top = 117 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 14 + end + object ZGDate: TDateTimePicker + Left = 527 + Top = 117 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 15 + end + object BegRKDate: TDateTimePicker + Left = 730 + Top = 117 + Width = 115 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 16 + OnChange = BegRKDateChange + end + object BegSCDate: TDateTimePicker + Left = 968 + Top = 117 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 17 + end + object Day1: TEdit + Left = 184 + Top = 119 + Width = 35 + Height = 18 + TabOrder = 18 + OnChange = Day1Change + OnKeyPress = OrdQtyKeyPress + end + object Day2: TEdit + Left = 418 + Top = 119 + Width = 35 + Height = 18 + TabOrder = 19 + OnChange = Day2Change + OnKeyPress = OrdQtyKeyPress + end + object Day3: TEdit + Left = 867 + Top = 119 + Width = 35 + Height = 18 + TabOrder = 20 + OnChange = Day3Change + OnKeyPress = OrdQtyKeyPress + end + object MJKZX: TEdit + Left = 769 + Top = 182 + Width = 39 + Height = 18 + TabOrder = 21 + OnKeyPress = OrdQtyKeyPress + end + object MJKZD: TEdit + Left = 825 + Top = 182 + Width = 39 + Height = 18 + TabOrder = 22 + OnKeyPress = OrdQtyKeyPress + end + object XJKZX: TEdit + Left = 769 + Top = 246 + Width = 39 + Height = 18 + TabOrder = 23 + OnKeyPress = OrdQtyKeyPress + end + object XJKZD: TEdit + Left = 825 + Top = 246 + Width = 39 + Height = 18 + TabOrder = 24 + OnKeyPress = OrdQtyKeyPress + end + object cxGrid4: TcxGrid + Left = 454 + Top = 168 + Width = 213 + Height = 113 + PopupMenu = PopupMenu1 + TabOrder = 25 + object TVDB: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21253#25968#37327 + DataBinding.FieldName = 'BSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.handBlack + Width = 61 + end + object VDBColumn1: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 65 + end + object VDBColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DBUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 78 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVDB + end + end + object WFBBZQty1: TEdit + Left = 86 + Top = 78 + Width = 62 + Height = 18 + TabOrder = 26 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object WFBBZUnit1: TcxButtonEdit + Left = 150 + Top = 77 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBBZUnit1PropertiesButtonClick + Properties.OnChange = WFBBZUnit1PropertiesChange + TabOrder = 27 + OnKeyDown = WFBCodeNameKeyDown + Width = 52 + end + object WFBBZQty2: TEdit + Left = 217 + Top = 78 + Width = 62 + Height = 18 + TabOrder = 28 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object WFBBZUnit2: TcxButtonEdit + Left = 281 + Top = 77 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBBZUnit2PropertiesButtonClick + Properties.OnChange = WFBBZUnit2PropertiesChange + TabOrder = 29 + OnKeyDown = WFBCodeNameKeyDown + Width = 52 + end + object WFBBZQty3: TEdit + Left = 345 + Top = 78 + Width = 62 + Height = 18 + TabOrder = 30 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object WFBBZUnit3: TcxButtonEdit + Left = 409 + Top = 77 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBBZUnit3PropertiesButtonClick + Properties.OnChange = WFBBZUnit3PropertiesChange + TabOrder = 31 + OnKeyDown = WFBCodeNameKeyDown + Width = 52 + end + object WFBFK2: TEdit + Left = 573 + Top = 78 + Width = 36 + Height = 18 + TabOrder = 32 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object WFBFK1: TEdit + Left = 525 + Top = 78 + Width = 36 + Height = 18 + TabOrder = 33 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object WFBKZ: TEdit + Left = 680 + Top = 78 + Width = 55 + Height = 18 + TabOrder = 34 + OnChange = WFBBZQty1Change + OnKeyPress = OrdQtyKeyPress + end + object BZ: TcxButtonEdit + Left = 869 + Top = 77 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = BZPropertiesButtonClick + Properties.OnChange = BZPropertiesChange + TabOrder = 35 + OnKeyDown = WFBCodeNameKeyDown + Width = 52 + end + object PanZDY: TPanel + Left = 707 + Top = 104 + Width = 151 + Height = 153 + TabOrder = 36 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 142 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.handBlack + Width = 129 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 40 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 349 + Width = 1184 + Height = 319 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 809 + Top = 31 + Width = 366 + Height = 286 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceQ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v3Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20854#23427 + Styles.Header = DataLink_WFBOrder.TextSHuangSe + Width = 400 + end> + object v3Column1: TcxGridDBBandedColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'YLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'YLUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 425 + Top = 31 + Width = 384 + Height = 286 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceF + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #36741#21161#21407#26009 + Styles.Header = DataLink_WFBOrder.FonePurple + Width = 428 + end> + object v2Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #32791#29575#8240 + DataBinding.FieldName = 'YLSHQ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column4: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Column5: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v2Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v2Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 31 + Width = 425 + Height = 286 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceZ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20027#35201#21407#26009 + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 487 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #37197#27604'%' + DataBinding.FieldName = 'YLPB' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25439#32791'%' + DataBinding.FieldName = 'YLSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_WFBOrder.FoneRed + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1182 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360#35831#36141#21333 + ImageIndex = 96 + OnClick = TBPrintClick + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 968 + Top = 325 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 744 + Top = 309 + end + object DataSourceZ: TDataSource + DataSet = Order_SubZ + Left = 296 + Top = 440 + end + object Order_SubZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 760 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 784 + Top = 309 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 229 + object N1: TMenuItem + Caption = #22686#34892 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#34892 + OnClick = N2Click + end + end + object DataSource3: TDataSource + DataSet = CDS_DB + Left = 352 + Top = 200 + end + object CDS_DB: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 240 + end + object Order_SubF: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 440 + end + object DataSourceF: TDataSource + DataSet = Order_SubF + Left = 488 + Top = 440 + end + object Order_SubQ: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 448 + end + object DataSourceQ: TDataSource + DataSet = Order_SubQ + Left = 832 + Top = 448 + end + object ADOQueryQG: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 224 + Top = 309 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryQG + Left = 288 + Top = 312 + end + object RM2: 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 = 320 + Top = 312 + 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 = 256 + Top = 312 + end +end diff --git a/贸易管理/U_OrderInPutZP.pas b/贸易管理/U_OrderInPutZP.pas new file mode 100644 index 0000000..1a467d6 --- /dev/null +++ b/贸易管理/U_OrderInPutZP.pas @@ -0,0 +1,1849 @@ +unit U_OrderInPutZP; + +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, cxGridBandedTableView, + cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset; + +type + TfrmOrderInPutZP = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrderDate: TDateTimePicker; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSourceZ: TDataSource; + Order_SubZ: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + WFBCodeName: TcxButtonEdit; + SCXName: TcxButtonEdit; + WJGName: TcxButtonEdit; + ADOQuery1: TADOQuery; + Label12: TLabel; + CustomNoName: TcxButtonEdit; + Note: TRichEdit; + Label13: TLabel; + ArrivalPortName: TcxButtonEdit; + Label10: TLabel; + WFBHW: TEdit; + Label14: TLabel; + WFBFK: TEdit; + Label15: TLabel; + Label16: TLabel; + OrdQty: TEdit; + OrdUnit: TComboBox; + Label17: TLabel; + OrdPrice: TEdit; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + ETADate: TDateTimePicker; + Label22: TLabel; + ETDDate: TDateTimePicker; + Label23: TLabel; + ZGDate: TDateTimePicker; + Label24: TLabel; + BegRKDate: TDateTimePicker; + Label25: TLabel; + BegSCDate: TDateTimePicker; + Day1: TEdit; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Day2: TEdit; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Day3: TEdit; + Label18: TLabel; + Label32: TLabel; + Label33: TLabel; + Label34: TLabel; + MJKZX: TEdit; + Label35: TLabel; + Label36: TLabel; + MJKZD: TEdit; + Label37: TLabel; + XJKZX: TEdit; + Label38: TLabel; + Label39: TLabel; + XJKZD: TEdit; + Label4: TLabel; + Label7: TLabel; + cxGrid4: TcxGrid; + TVDB: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + VDBColumn1: TcxGridDBColumn; + VDBColumn2: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + DataSource3: TDataSource; + CDS_DB: TClientDataSet; + Order_SubF: TClientDataSet; + DataSourceF: TDataSource; + Order_SubQ: TClientDataSet; + DataSourceQ: TDataSource; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + v2Column4: TcxGridDBBandedColumn; + v2Column5: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TBPrint: TToolButton; + v1Column7: TcxGridDBBandedColumn; + v2Column6: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v2Column7: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v2Column8: TcxGridDBBandedColumn; + v3Column8: TcxGridDBBandedColumn; + ADOQueryQG: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport1: TRMXLSExport; + Label40: TLabel; + WFBBZQty1: TEdit; + WFBBZUnit1: TcxButtonEdit; + Label41: TLabel; + WFBBZQty2: TEdit; + WFBBZUnit2: TcxButtonEdit; + Label42: TLabel; + WFBBZQty3: TEdit; + WFBBZUnit3: TcxButtonEdit; + Label43: TLabel; + Label44: TLabel; + WFBFK2: TEdit; + WFBFK1: TEdit; + Label45: TLabel; + Label9: TLabel; + Label11: TLabel; + WFBKZ: TEdit; + BZ: TcxButtonEdit; + Label46: TLabel; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomNoNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesChange(Sender: TObject); + procedure SCXNamePropertiesChange(Sender: TObject); + procedure WJGNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Day1Change(Sender: TObject); + procedure OrdQtyKeyPress(Sender: TObject; var Key: Char); + procedure Day2Change(Sender: TObject); + procedure Day3Change(Sender: TObject); + procedure ETADateChange(Sender: TObject); + procedure BegRKDateChange(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure OrdQtyChange(Sender: TObject); + procedure v3Column4PropertiesEditValueChanged(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit1PropertiesChange(Sender: TObject); + procedure WFBBZUnit2PropertiesChange(Sender: TObject); + procedure WFBBZUnit3PropertiesChange(Sender: TObject); + procedure BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesChange(Sender: TObject); + procedure WFBBZQty1Change(Sender: TObject); + private + MInt:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure DelOrderSub(FOrder_Sub:TClientDataSet); + procedure SELYCL(SCDS_Sub:TClientDataSet); + procedure EditYCL(SCDS_Sub:TClientDataSet); + { Private declarations } + public + PState,BState:Integer; + FMainId:String; + FXS:Integer; + OrderType:String; + { Public declarations } + end; + +var + frmOrderInPutZP: TfrmOrderInPutZP; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList; + +{$R *.dfm} + +procedure TfrmOrderInPutZP.TBCloseClick(Sender: TObject); +begin + if PState<>3 then + begin + if Application.MessageBox('ǷҪݣ','ʾ',32+4)=IDYES then + begin + TBSave.Click; + Exit; + end; + end; + Close; + WriteCxBandedGrid('',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ',Tv2,'޷IJ'); + WriteCxBandedGrid('',Tv3,'޷IJ'); + +end; + +procedure TfrmOrderInPutZP.InitData(); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + if PState>0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:='999999'; + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + Open; + end; + // SCreateCDS20(ADOQuery1,Order_Sub); + //SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp))); + ETADate.DateTime:=OrderDate.DateTime; + ETDDate.DateTime:=OrderDate.DateTime; + ZGDate.DateTime:=OrderDate.DateTime; + BegRKDate.DateTime:=OrderDate.DateTime; + BegSCDate.DateTime:=OrderDate.DateTime; + ETADate.Checked:=False; + ETDDate.Checked:=False; + ZGDate.Checked:=False; + BegRKDate.Checked:=False; + BegSCDate.Checked:=False; + end; + if Trim(DParameters1)<>'' then + begin + BegRKDate.Enabled:=False; + Day3.Enabled:=False; + BegSCDate.Enabled:=False; + //Note.Enabled:=False; + cxGrid4.Enabled:=False; + MJKZX.Enabled:=False; + MJKZD.Enabled:=False; + XJKZX.Enabled:=False; + XJKZD.Enabled:=False; + SCXName.Enabled:=False; + WJGName.Enabled:=False; + ScrollBox2.Enabled:=False; + end; + if PState=4 then + begin + BegRKDate.Enabled:=True; + Day3.Enabled:=True; + BegSCDate.Enabled:=True; + //Note.Enabled:=False; + cxGrid4.Enabled:=True; + MJKZX.Enabled:=True; + MJKZD.Enabled:=True; + XJKZX.Enabled:=True; + XJKZD.Enabled:=True; + SCXName.Enabled:=True; + WJGName.Enabled:=True; + ScrollBox2.Enabled:=True; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_DB); + SInitCDSData20(ADOQuery1,CDS_DB); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType=''Ҫ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubZ); + SInitCDSData20(ADOQuery1,Order_SubZ); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubF); + SInitCDSData20(ADOQuery1,Order_SubF); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubQ); + SInitCDSData20(ADOQuery1,Order_SubQ); + PanZDY.Visible:=False; + if PState=4 then + begin + PState:=0; + FMainId:='999999'; + //OrderNo.Text:=''; + WFBCodeName.Text:=''; + WFBCodeName.Hint:=''; + PanZDY.Visible:=False; + with CDS_DB do + begin + First; + while not Eof do + begin + Edit; + FieldByName('DBID').Value:=''; + Post; + Next; + end; + end; + with Order_SubZ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v1Column1.Options.Focusing:=True; + with Order_SubF do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v2Column1.Options.Focusing:=True; + with Order_SubQ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v3Column1.Options.Focusing:=True; + end; +end; + +procedure TfrmOrderInPutZP.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmOrderInPutZP.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZP.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZP.WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmOrderInPutZP.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmOrderInPutZP.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + Label12.Visible:=False; + CustomNoName.Visible:=False; + end else + begin + Label12.Visible:=True; + CustomNoName.Visible:=True; + end; } + InitData(); + ReadCxBandedGrid('',Tv1,'޷IJ'); + ReadCxBandedGrid('ϸ',Tv2,'޷IJ'); + ReadCxBandedGrid('',Tv3,'޷IJ'); +end; + +function TfrmOrderInPutZP.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='999999' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderType').Value:=Trim(OrderType); + SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0); + if PState=2 then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='999999' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + if PState=1 then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + end; + Post; + end; + FMainId:=Trim(maxno); + ///ϸ + with CDS_DB do + begin + First; + while not Eof do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'DB','WFB_DB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_DB '); + sql.Add(' where DBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('DBId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0); + Post; + end; + CDS_DB.Edit; + CDS_DB.FieldByName('DBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + //Ҫԭ + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + First; + while not Eof do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString); + FieldByName('PBType').Value:='Ҫ'; + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0); + Post; + end; + Order_SubZ.Edit; + Order_SubZ.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + //渨ԭ + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0); + Post; + end; + Order_SubF.Edit; + Order_SubF.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + //ԭ + if not Order_SubQ.IsEmpty then + begin + with Order_SubQ do + begin + First; + while not Eof do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0); + Post; + end; + Order_SubQ.Edit; + Order_SubQ.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + + ///ӱ + {with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'OS','Order_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Order_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Order_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; } + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderInPutZP.TBSaveClick(Sender: TObject); +begin + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; + {if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + Exit; + end; } + if CDS_DB.Locate('BSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if CDS_DB.Locate('JSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; +procedure TfrmOrderInPutZP.SELYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + Post; + end; + Next; + end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; + +procedure TfrmOrderInPutZP.EditYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + //First; + // while not Eof do + //begin + with SCDS_Sub do + begin + Edit; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then + SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value- + ClientDataSet2.fieldbyname('YJKC').Value + else + SCDS_Sub.FieldByName('BZ').Value:=null; + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + //Post; + end; + // Next; + //end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; +procedure TfrmOrderInPutZP.ToolButton1Click(Sender: TObject); +begin + if MInt=1 then + begin + SELYCL(Order_SubZ); + end else + if MInt=2 then + begin + SELYCL(Order_SubF); + end else + if MInt=3 then + begin + SELYCL(Order_SubQ); + end; +end; + +procedure TfrmOrderInPutZP.ToolButton2Click(Sender: TObject); +begin + if MInt=1 then + begin + DelOrderSub(Order_SubZ); + end else + if MInt=2 then + begin + DelOrderSub(Order_SubF); + end else + if MInt=3 then + begin + DelOrderSub(Order_SubQ); + end; +end; +procedure TfrmOrderInPutZP.DelOrderSub(FOrder_Sub:TClientDataSet); +begin + if FOrder_Sub.IsEmpty then Exit; + if Trim(FOrder_Sub.fieldbyname('PBID').AsString)<>'' then + begin + if Application.MessageBox('ڴɾѱݣ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + end; + FOrder_Sub.Delete; +end; + +procedure TfrmOrderInPutZP.CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('CustomNoName'); + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.FXS:=99; + CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.CustomNoNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(CustomNoName,'CustomNoName'); +end; + +procedure TfrmOrderInPutZP.ArrivalPortNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('ArrivalPort'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('SCXName'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WJGName'); + flagname:='ṹ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WFBCodeNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name)); +end; + +procedure TfrmOrderInPutZP.ArrivalPortNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(ArrivalPortName,'ArrivalPort'); +end; + +procedure TfrmOrderInPutZP.SCXNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(SCXName,Trim(SCXName.Name)); +end; + +procedure TfrmOrderInPutZP.WJGNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WJGName,Trim(WJGName.Name)); +end; + +procedure TfrmOrderInPutZP.N1Click(Sender: TObject); +begin + + with CDS_DB do + begin + Append; + FieldByName('DBUnit').Value:='/'; + Post; + end; +end; + +procedure TfrmOrderInPutZP.N2Click(Sender: TObject); +begin + if CDS_DB.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+''''); + ExecSQL; + end; + CDS_DB.Delete; +end; + +procedure TfrmOrderInPutZP.Day1Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day1.Text)='' then DayL:='0' + else DayL:=Trim(Day1.Text); + ETDDate.DateTime:=ETADate.Date-strtoint(DayL); +end; + +procedure TfrmOrderInPutZP.OrdQtyKeyPress(Sender: TObject; var Key: Char); +begin + if not (Key in['0'..'9','.',#8,#13]) then + begin + key:=#0; + end; +end; + +procedure TfrmOrderInPutZP.Day2Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day2.Text)='' then DayL:='0' + else DayL:=Trim(Day2.Text); + ZGDate.DateTime:=ETDDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZP.Day3Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day3.Text)='' then DayL:='0' + else DayL:=Trim(Day3.Text); + BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZP.ETADateChange(Sender: TObject); +begin + if Trim(Day1.Text)<>'' then + begin + ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text); + end; + if Trim(Day2.Text)<>'' then + begin + ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text); + end; +end; + +procedure TfrmOrderInPutZP.BegRKDateChange(Sender: TObject); +begin + if Trim(Day3.Text)<>'' then + begin + BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text); + end; +end; + +procedure TfrmOrderInPutZP.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=1; + Tv1.Bands[0].Caption:='Ҫԭϡ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlue; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZP.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=2; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭϡ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZP.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=3; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmOrderInPutZP.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL:Double; +begin + if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100); + if StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBfk.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end;} + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*mvalue/100*(1+YLSH/100); + if DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + + end; +end; + + +procedure TfrmOrderInPutZP.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLPB,DHSL:Double; +begin + if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100); + if StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + end else + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBfk.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end;} + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+mvalue/100); + if DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmOrderInPutZP.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,DHSL:Double; +begin + if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000); + if StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + end else + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*(mvalue/1000); + if DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmOrderInPutZP.OrdQtyChange(Sender: TObject); +var + YLPB,YLSH,DHSL:Double; +begin + if Trim(OrdQty.Text)='' then Exit; + if Trim(OrdUnit.Text)='K' then + DHSL:=StrToFloat(OrdQty.Text) + else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then Exit; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + end; + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + Order_SubZ.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLPB').AsString)='' then + YLPB:=0 + else + YLPB:=StrToFloat(fieldbyname('YLPB').AsString); + if Trim(fieldbyname('YLSH').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSH').AsString); + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100); + if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubZ.EnableControls; + First; + end; + end; + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + Order_SubF.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLSHQ').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString); + FieldByName('YLQty').Value:=DHSL*(YLSH/1000); + if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubF.EnableControls; + First; + end; + end; +end; +procedure TfrmOrderInPutZP.v3Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingValue; + with Order_SubQ do + begin + Edit; + FieldByName('YLQty').Value:=mvalue; + if mvalue-fieldbyname('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPutZP.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + with ADOQueryQG do + begin + Close; + sql.Clear; + sql.Add(' exec P_Print_SGD :OrderNo'); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + if ADOQueryQG.IsEmpty then Exit; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\빺.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['dyr']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\빺.rmf'),'ʾ',0); + end; +end; + +procedure TfrmOrderInPutZP.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubZ); +end; + +procedure TfrmOrderInPutZP.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubF); +end; + +procedure TfrmOrderInPutZP.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubQ); +end; + +procedure TfrmOrderInPutZP.WFBBZUnit1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='װ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit1.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WFBBZUnit2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitZ'); + flagname:='аװ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit2.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WFBBZUnit3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitX'); + flagname:='Сװ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit3.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.WFBBZUnit1PropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBBZUnit1,'WFBBZUnitD'); +end; + +procedure TfrmOrderInPutZP.WFBBZUnit2PropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBBZUnit2,'WFBBZUnitZ'); +end; + +procedure TfrmOrderInPutZP.WFBBZUnit3PropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBBZUnit3,'WFBBZUnitX'); +end; + +procedure TfrmOrderInPutZP.BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('BZ'); + flagname:='۵λ'; + if ShowModal=1 then + begin + Self.FXS:=99; + BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZP.BZPropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(BZ,'BZ'); +end; + +procedure TfrmOrderInPutZP.WFBBZQty1Change(Sender: TObject); +var + FQty1,FQty2,FQty3,FFK1,FFK2,FKZ1,YLPB,YLSH,DHSL:Double; +begin + if Trim(WFBBZQty1.Text)<>'' then + begin + FQty1:=StrToFloat(WFBBZQty1.Text); + end else + begin + FQty1:=1; + end; + if Trim(WFBBZQty2.Text)<>'' then + begin + FQty2:=StrToFloat(WFBBZQty2.Text); + end else + begin + FQty2:=1; + end; + if Trim(WFBBZQty3.Text)<>'' then + begin + FQty3:=StrToFloat(WFBBZQty3.Text); + end else + begin + FQty3:=1; + end; + if Trim(WFBFK1.Text)<>'' then + begin + FFK1:=StrToFloat(WFBFK1.Text); + end else + begin + FFK1:=0; + end; + if Trim(WFBFK2.Text)<>'' then + begin + FFK2:=StrToFloat(WFBFK2.Text); + end else + begin + FFK2:=0; + end; + if Trim(WFBKZ.Text)<>'' then + begin + FKZ1:=StrToFloat(WFBKZ.Text); + end else + begin + FKZ1:=0; + end; + if Trim(WFBKZ.Text)='' then + begin + OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000); + OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('O'); + end else + begin + OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000*FKZ1/1000); + OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('K'); + end; + if Trim(OrdQty.Text)='' then Exit; + if Trim(OrdUnit.Text)='K' then + DHSL:=StrToFloat(OrdQty.Text) + else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then Exit; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + end; + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + Order_SubZ.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLPB').AsString)='' then + YLPB:=0 + else + YLPB:=StrToFloat(fieldbyname('YLPB').AsString); + if Trim(fieldbyname('YLSH').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSH').AsString); + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100); + if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubZ.EnableControls; + First; + end; + end; + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + Order_SubF.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLSHQ').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString); + FieldByName('YLQty').Value:=DHSL*(YLSH/1000); + if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubF.EnableControls; + First; + end; + end; +end; + +end. diff --git a/贸易管理/U_OrderInPutZPLNew.dfm b/贸易管理/U_OrderInPutZPLNew.dfm new file mode 100644 index 0000000..3041725 --- /dev/null +++ b/贸易管理/U_OrderInPutZPLNew.dfm @@ -0,0 +1,2224 @@ +object frmOrderInPutZPLNew: TfrmOrderInPutZPLNew + Left = 55 + Top = 75 + Width = 1185 + Height = 678 + Caption = #25351#31034#21333#24405#20837'('#21046#21697')' + 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 Label17: TLabel + Left = 667 + Top = 47 + Width = 40 + Height = 12 + Caption = '>>'#25240#21472 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1177 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 339 + Width = 1177 + Height = 302 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 809 + Top = 31 + Width = 366 + Height = 269 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceQ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v3Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20854#23427 + Styles.Header = DataLink_WFBProducttion.TextSHuangSe + Width = 400 + end> + object v3Column1: TcxGridDBBandedColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'YLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'YLUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 36 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 31 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column9: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 425 + Top = 31 + Width = 384 + Height = 269 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceF + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #36741#21161#21407#26009 + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 428 + end> + object v2Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #32791#29575#8240 + DataBinding.FieldName = 'YLSHQ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Column4: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 36 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v2Column5: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v2Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v2Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 31 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v2Column9: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 31 + Width = 425 + Height = 269 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + PopupMenu = PopupMenu4 + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceZ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20027#35201#21407#26009 + Styles.Header = DataLink_WFBProducttion.FontBlue + Width = 487 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #37197#27604'%' + DataBinding.FieldName = 'YLPB' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25439#32791'%' + DataBinding.FieldName = 'YLSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_WFBProducttion.FoneRed + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360#35831#36141#21333 + ImageIndex = 96 + OnClick = TBPrintClick + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1177 + Height = 310 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 2 + object Label1: TLabel + Left = 197 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#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 = 533 + Top = 127 + Width = 53 + Height = 12 + Caption = #20195' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 538 + Top = 15 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#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 = 375 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 375 + Top = 46 + Width = 52 + Height = 12 + Caption = #21040#36798#28207#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 = 16 + Top = 45 + Width = 65 + Height = 12 + Caption = #39044#20272#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 14 + Top = 68 + Width = 1140 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 14 + Top = 116 + Width = 1146 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 25 + Top = 88 + Width = 34 + Height = 12 + Caption = 'ETA'#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 = 257 + Top = 90 + Width = 34 + Height = 12 + Caption = 'ETD'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 491 + Top = 89 + Width = 39 + Height = 12 + Caption = #35013#26588#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 733 + Top = 88 + Width = 53 + Height = 12 + Caption = #20837' '#24211#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 988 + Top = 89 + Width = 39 + Height = 12 + Caption = #29983#20135#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 221 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 165 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 238 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 455 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 400 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 472 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 958 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 903 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 972 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 14 + Top = 294 + Width = 1146 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 141 + Width = 15 + Height = 126 + Caption = #35814#13#10#13#10#13#10#13#10#13#10#13#10#13#10#13#10#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 971 + Top = 126 + Width = 60 + Height = 14 + Caption = #25171#21253#35814#32454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 197 + Top = 46 + Width = 65 + Height = 12 + Caption = #35745#20215#21333#20301#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 = 762 + Top = 14 + Width = 52 + Height = 12 + Caption = #29983#20135#32447#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 = 762 + Top = 46 + Width = 52 + Height = 12 + Caption = #32593#32467#26500#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 17 + Top = 15 + Width = 67 + Height = 12 + Caption = #32534' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 907 + Top = 5 + Width = 15 + Height = 56 + Caption = #27880#13#10#24847#13#10#20107#13#10#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 538 + Top = 47 + Width = 67 + Height = 12 + Caption = #25439' '#32791#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 = 602 + Top = 47 + Width = 26 + Height = 12 + Caption = #28857#26029 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 671 + Top = 47 + Width = 26 + Height = 12 + Caption = #25240#21472 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 741 + Top = 47 + Width = 7 + Height = 12 + Caption = '%' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 259 + Top = 13 + Width = 103 + Height = 18 + Enabled = False + TabOrder = 0 + end + object OrderDate: TDateTimePicker + Left = 604 + Top = 11 + Width = 144 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 1 + end + object WFBCodeName: TcxButtonEdit + Left = 581 + Top = 123 + ParentShowHint = False + Properties.BeepOnError = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBCodeNamePropertiesButtonClick + Properties.OnChange = WFBCodeNamePropertiesChange + ShowHint = False + TabOrder = 2 + Visible = False + OnKeyDown = WFBCodeNameKeyDown + Width = 97 + end + object CustomNoName: TcxButtonEdit + Left = 426 + Top = 11 + Hint = 'CustomerNo' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = CustomNoNamePropertiesButtonClick + Properties.OnChange = CustomNoNamePropertiesChange + ShowHint = False + TabOrder = 3 + OnKeyDown = WFBCodeNameKeyDown + Width = 100 + end + object ArrivalPortName: TcxButtonEdit + Left = 426 + Top = 43 + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = ArrivalPortNamePropertiesButtonClick + Properties.OnChange = ArrivalPortNamePropertiesChange + ShowHint = False + TabOrder = 4 + OnKeyDown = WFBCodeNameKeyDown + Width = 100 + end + object OrdQty: TEdit + Left = 79 + Top = 43 + Width = 49 + Height = 18 + Enabled = False + ReadOnly = True + TabOrder = 5 + OnChange = OrdQtyChange + OnKeyPress = OrdQtyKeyPress + end + object OrdUnit: TComboBox + Left = 129 + Top = 43 + Width = 51 + Height = 20 + Style = csDropDownList + Ctl3D = False + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentCtl3D = False + ParentFont = False + TabOrder = 6 + OnChange = OrdQtyChange + Items.Strings = ( + #13199 + #13217) + end + object ETADate: TDateTimePicker + Left = 57 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 7 + OnChange = ETADateChange + end + object ETDDate: TDateTimePicker + Left = 291 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 8 + end + object ZGDate: TDateTimePicker + Left = 527 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 9 + end + object BegRKDate: TDateTimePicker + Left = 784 + Top = 85 + Width = 115 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 10 + OnChange = BegRKDateChange + end + object BegSCDate: TDateTimePicker + Left = 1022 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 11 + end + object Day1: TEdit + Left = 184 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 12 + OnChange = Day1Change + OnKeyPress = OrdQtyKeyPress + end + object Day2: TEdit + Left = 418 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 13 + OnChange = Day2Change + OnKeyPress = OrdQtyKeyPress + end + object Day3: TEdit + Left = 921 + Top = 87 + Width = 35 + Height = 18 + Enabled = False + TabOrder = 14 + OnChange = Day3Change + OnKeyPress = OrdQtyKeyPress + end + object cxGrid5: TcxGrid + Left = 41 + Top = 126 + Width = 922 + Height = 172 + TabOrder = 15 + object TvSub: TcxGridDBTableView + PopupMenu = PopupMenu2 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TvSubColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object vSubColumn16: TcxGridDBColumn + Tag = 9 + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 38 + end + object vSubColumn3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 34 + end + object vSubColumn11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'SubType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #28857#26029 + #25240#21472) + Properties.OnEditValueChanged = vSubColumn11PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 41 + end + object vSubColumn12: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = vSubColumn12PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 69 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 48 + end + object vSubColumn2: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 41 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38271#24230'cm' + DataBinding.FieldName = 'SWFBFK1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 46 + end + object vSubColumn4: TcxGridDBColumn + Caption = #23485#24230'cm' + DataBinding.FieldName = 'SWFBFK2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = vSubColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 46 + end + object vSubColumn5: TcxGridDBColumn + Caption = #22823#25968#37327 + DataBinding.FieldName = 'SWFBBZQty1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = vSubColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 46 + end + object vSubColumn6: TcxGridDBColumn + Caption = #22823#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 45 + end + object vSubColumn7: TcxGridDBColumn + Caption = #20013#25968#37327 + DataBinding.FieldName = 'SWFBBZQty2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = vSubColumn7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 45 + end + object vSubColumn8: TcxGridDBColumn + Caption = #20013#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 45 + end + object vSubColumn9: TcxGridDBColumn + Caption = #23567#25968#37327 + DataBinding.FieldName = 'SWFBBZQty3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = vSubColumn9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 48 + end + object vSubColumn10: TcxGridDBColumn + Caption = #23567#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit3' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 44 + end + object TvSubColumn1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SOrdQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 48 + end + object vSubColumn13: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn13PropertiesButtonClick + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object vSubColumn15: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 77 + end + object vSubColumn14: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 69 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvSub + end + end + object cxGrid4: TcxGrid + Left = 968 + Top = 141 + Width = 160 + Height = 154 + Enabled = False + TabOrder = 16 + object TVDB: TcxGridDBTableView + PopupMenu = PopupMenu1 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21253#25968#37327 + DataBinding.FieldName = 'BSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 48 + end + object VDBColumn1: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 46 + end + object VDBColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DBUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 57 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVDB + end + end + object Note: TRichEdit + Left = 923 + Top = 2 + Width = 203 + Height = 63 + Enabled = False + TabOrder = 17 + end + object SCXName: TcxButtonEdit + Left = 810 + Top = 10 + Hint = 'FactoryNo1' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = SCXNamePropertiesButtonClick + Properties.OnChange = SCXNamePropertiesChange + ShowHint = False + TabOrder = 18 + OnKeyDown = WFBCodeNameKeyDown + Width = 88 + end + object WJGName: TcxButtonEdit + Left = 810 + Top = 43 + Hint = 'FactoryNo2' + BeepOnEnter = False + Enabled = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WJGNamePropertiesButtonClick + Properties.OnChange = WJGNamePropertiesChange + ShowHint = False + TabOrder = 19 + OnKeyDown = WFBCodeNameKeyDown + Width = 88 + end + object PanZDY: TPanel + Left = 974 + Top = 133 + Width = 151 + Height = 153 + TabOrder = 20 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 142 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 129 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 40 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object OrderCode: TEdit + Left = 79 + Top = 13 + Width = 103 + Height = 18 + Enabled = False + TabOrder = 21 + end + object BZ: TcxButtonEdit + Left = 259 + Top = 43 + BeepOnEnter = False + Enabled = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Properties.OnChange = cxButtonEdit1PropertiesChange + TabOrder = 22 + OnKeyDown = WFBCodeNameKeyDown + Width = 105 + end + object DD: TEdit + Left = 629 + Top = 44 + Width = 40 + Height = 18 + Enabled = False + TabOrder = 23 + OnChange = DDChange + OnKeyPress = OrdQtyKeyPress + end + object ZD: TEdit + Left = 699 + Top = 44 + Width = 40 + Height = 18 + Enabled = False + TabOrder = 24 + OnChange = ZDChange + OnKeyPress = OrdQtyKeyPress + end + end + object Panel1: TPanel + Left = 1160 + Top = 344 + Width = 825 + Height = 297 + TabOrder = 3 + Visible = False + object cxGrid6: TcxGrid + Left = 11 + Top = 32 + Width = 299 + Height = 209 + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tvsel: TcxGridDBTableView + PopupMenu = PopupMenu3 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object vselColumn1: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 42 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 51 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 72 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 52 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tvsel + end + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 823 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #36873#21333 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 789 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button2: TButton + Left = 64 + Top = 251 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 168 + Top = 251 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object cxGrid7: TcxGrid + Left = 312 + Top = 32 + Width = 505 + Height = 257 + TabOrder = 4 + object TVKCSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'DefStr2' + Column = v1ShortName + end + item + Format = 'RollUnit' + Column = v1UnitName + end + item + Format = 'YCLCode' + Column = v1P_ChnName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_WFBProducttion.Default + object TVKCSelColumn1: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taRightJustify + Width = 39 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1ShortName: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object VKCSelColumn2: TcxGridDBColumn + Caption = #39044#35745#29992#37327 + DataBinding.FieldName = 'YJYL' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object VKCSelColumn1: TcxGridDBColumn + Caption = #39044#35745#24211#23384 + DataBinding.FieldName = 'YJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object v1UnitName: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCUint' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TVKCSel + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 704 + Top = 309 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 744 + Top = 309 + end + object DataSourceZ: TDataSource + DataSet = Order_SubZ + Left = 296 + Top = 440 + end + object Order_SubZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 760 + end + object ADOZDY: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 784 + Top = 309 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 253 + object N1: TMenuItem + Caption = #22686#34892 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#34892 + OnClick = N2Click + end + end + object DataSource3: TDataSource + DataSet = CDS_DB + Left = 544 + Top = 200 + end + object CDS_DB: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 224 + end + object Order_SubF: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 488 + end + object DataSourceF: TDataSource + DataSet = Order_SubF + Left = 728 + Top = 512 + end + object Order_SubQ: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 448 + end + object DataSourceQ: TDataSource + DataSet = Order_SubQ + Left = 832 + Top = 448 + end + object ADOQueryQG: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 309 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryQG + Left = 448 + Top = 320 + end + object RM2: 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 = 392 + Top = 312 + 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 = 456 + Top = 312 + end + object PopupMenu2: TPopupMenu + Left = 128 + Top = 237 + object MenuItem1: TMenuItem + Caption = #22686#34892 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #21024#34892 + OnClick = MenuItem2Click + end + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 112 + Top = 200 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 96 + Top = 232 + end + object DSSel: TDataSource + DataSet = CDS_Sel + Left = 440 + Top = 376 + end + object CDS_Sel: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 408 + end + object PopupMenu3: TPopupMenu + Left = 432 + Top = 477 + object MenuItem3: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem3Click + end + object MenuItem4: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem4Click + end + end + object DataSource4: TDataSource + DataSet = CDS_KCSel + Left = 672 + Top = 432 + end + object CDS_KCSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 432 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 120 + Top = 465 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 160 + Top = 454 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 160 + Top = 494 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 160 + Top = 534 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 120 + Top = 502 + end + object PopupMenu4: TPopupMenu + Left = 96 + Top = 461 + object MenuItem7: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem7Click + end + object MenuItem8: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem8Click + end + end +end diff --git a/贸易管理/U_OrderInPutZPLNew.pas b/贸易管理/U_OrderInPutZPLNew.pas new file mode 100644 index 0000000..9e05447 --- /dev/null +++ b/贸易管理/U_OrderInPutZPLNew.pas @@ -0,0 +1,3706 @@ +unit U_OrderInPutZPLNew; + +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, cxGridBandedTableView, + cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset, cxCheckBox, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmOrderInPutZPLNew = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSourceZ: TDataSource; + Order_SubZ: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + DataSource3: TDataSource; + CDS_DB: TClientDataSet; + Order_SubF: TClientDataSet; + DataSourceF: TDataSource; + Order_SubQ: TClientDataSet; + DataSourceQ: TDataSource; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + v2Column4: TcxGridDBBandedColumn; + v2Column5: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TBPrint: TToolButton; + v1Column7: TcxGridDBBandedColumn; + v2Column6: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v2Column7: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v2Column8: TcxGridDBBandedColumn; + v3Column8: TcxGridDBBandedColumn; + ADOQueryQG: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport1: TRMXLSExport; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + DSSel: TDataSource; + CDS_Sel: TClientDataSet; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label12: TLabel; + Label13: TLabel; + Label16: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Label18: TLabel; + Label32: TLabel; + Label33: TLabel; + Label4: TLabel; + Label5: TLabel; + Label7: TLabel; + Label9: TLabel; + Label6: TLabel; + Label8: TLabel; + OrderNo: TEdit; + OrderDate: TDateTimePicker; + WFBCodeName: TcxButtonEdit; + CustomNoName: TcxButtonEdit; + ArrivalPortName: TcxButtonEdit; + OrdQty: TEdit; + OrdUnit: TComboBox; + ETADate: TDateTimePicker; + ETDDate: TDateTimePicker; + ZGDate: TDateTimePicker; + BegRKDate: TDateTimePicker; + BegSCDate: TDateTimePicker; + Day1: TEdit; + Day2: TEdit; + Day3: TEdit; + cxGrid5: TcxGrid; + TvSub: TcxGridDBTableView; + vSubColumn3: TcxGridDBColumn; + vSubColumn11: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + vSubColumn2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + vSubColumn4: TcxGridDBColumn; + vSubColumn5: TcxGridDBColumn; + vSubColumn6: TcxGridDBColumn; + vSubColumn7: TcxGridDBColumn; + vSubColumn8: TcxGridDBColumn; + vSubColumn9: TcxGridDBColumn; + vSubColumn10: TcxGridDBColumn; + TvSubColumn1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid4: TcxGrid; + TVDB: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + VDBColumn1: TcxGridDBColumn; + VDBColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Note: TRichEdit; + SCXName: TcxButtonEdit; + WJGName: TcxButtonEdit; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + Label14: TLabel; + OrderCode: TEdit; + vSubColumn12: TcxGridDBColumn; + PopupMenu3: TPopupMenu; + MenuItem3: TMenuItem; + MenuItem4: TMenuItem; + BZ: TcxButtonEdit; + Label35: TLabel; + vSubColumn13: TcxGridDBColumn; + vSubColumn14: TcxGridDBColumn; + vSubColumn15: TcxGridDBColumn; + Panel1: TPanel; + cxGrid6: TcxGrid; + Tvsel: TcxGridDBTableView; + vselColumn1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel10: TPanel; + Image2: TImage; + Button2: TButton; + Button3: TButton; + cxGrid7: TcxGrid; + TVKCSel: TcxGridDBTableView; + TVKCSelColumn1: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1ShortName: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + VKCSelColumn2: TcxGridDBColumn; + VKCSelColumn1: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource4: TDataSource; + CDS_KCSel: TClientDataSet; + v1Column10: TcxGridDBBandedColumn; + vSubColumn16: TcxGridDBColumn; + v2Column9: TcxGridDBBandedColumn; + v3Column9: TcxGridDBBandedColumn; + cxGridPopupMenu5: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + N3: TMenuItem; + N4: TMenuItem; + Label10: TLabel; + Label11: TLabel; + DD: TEdit; + Label15: TLabel; + ZD: TEdit; + Label17: TLabel; + Label34: TLabel; + PopupMenu4: TPopupMenu; + MenuItem7: TMenuItem; + MenuItem8: TMenuItem; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomNoNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesChange(Sender: TObject); + procedure SCXNamePropertiesChange(Sender: TObject); + procedure WJGNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Day1Change(Sender: TObject); + procedure OrdQtyKeyPress(Sender: TObject; var Key: Char); + procedure Day2Change(Sender: TObject); + procedure Day3Change(Sender: TObject); + procedure ETADateChange(Sender: TObject); + procedure BegRKDateChange(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure OrdQtyChange(Sender: TObject); + procedure v3Column4PropertiesEditValueChanged(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn2PropertiesEditValueChanged(Sender: TObject); + procedure TvSubColumn1PropertiesEditValueChanged(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure vSubColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesChange(Sender: TObject); + procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject); + procedure vSubColumn4PropertiesEditValueChanged(Sender: TObject); + procedure vSubColumn5PropertiesEditValueChanged(Sender: TObject); + procedure vSubColumn7PropertiesEditValueChanged(Sender: TObject); + procedure vSubColumn9PropertiesEditValueChanged(Sender: TObject); + procedure vSubColumn12PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MenuItem3Click(Sender: TObject); + procedure MenuItem4Click(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxButtonEdit1PropertiesChange(Sender: TObject); + procedure vSubColumn13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNoClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure DDChange(Sender: TObject); + procedure ZDChange(Sender: TObject); + procedure vSubColumn11PropertiesEditValueChanged(Sender: TObject); + procedure MenuItem7Click(Sender: TObject); + procedure MenuItem8Click(Sender: TObject); + private + MInt,ChkInt,CloInt:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure DelOrderSub(FOrder_Sub:TClientDataSet); + procedure SELYCL(SCDS_Sub:TClientDataSet); + procedure EditYCL(SCDS_Sub:TClientDataSet); + function SaveData10():Boolean; + procedure SaveYCL(SCDS_Sub:TClientDataSet); + procedure YLUpdate(); + procedure UpMainId(); + procedure YCLDataUPdate(); + procedure SELYCLKC(SCDS_Sub:TClientDataSet); + procedure OnlyUpYCLData(); + procedure YCLPBIDUPdate(SOrder_SubZ:TClientDataSet); + procedure SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean); + { Private declarations } + public + PState,BState,CopyInt:Integer; + FMainId,OrderType:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutZPLNew: TfrmOrderInPutZPLNew; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList; + +{$R *.dfm} + +procedure TfrmOrderInPutZPLNew.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('1',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ1',Tv2,'޷IJ'); + WriteCxBandedGrid('1',Tv3,'޷IJ'); + WriteCxGrid('ӱ1',TvSub,'޷IJ'); + WriteCxGrid('1',TVDB,'޷IJ'); + { if PState<>3 then + begin + if Application.MessageBox('ǷҪݣ','ʾ',32+4)=IDYES then + begin + CloInt:=1; + TBSave.Click; + Exit; + end; + end; } + Close; + + +end; +procedure TfrmOrderInPutZPLNew.SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean); +begin + if SCDS_Sub.IsEmpty then exit; + with SCDS_Sub do + begin + First; + while not eof do + begin + Edit; + FieldByName('SSel').Value:=FSEL; + post; + Next; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.InitData(); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + if PState>0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:='999999'; + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + Open; + end; + // SCreateCDS20(ADOQuery1,Order_Sub); + //SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp))); + ETADate.DateTime:=OrderDate.DateTime; + ETDDate.DateTime:=OrderDate.DateTime; + ZGDate.DateTime:=OrderDate.DateTime; + BegRKDate.DateTime:=OrderDate.DateTime; + BegSCDate.DateTime:=OrderDate.DateTime; + ETADate.Checked:=False; + ETDDate.Checked:=False; + ZGDate.Checked:=False; + BegRKDate.Checked:=False; + BegSCDate.Checked:=False; + //OrdUnit.Text:='K'; + OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('K'); + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Main where ordertype=''Ʒ'''); + Open; + end; + if ADOTemp.IsEmpty then Exit; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Main where ordertype=''Ʒ'''); + sql.Add(' order by FillTime Desc'); + Open; + end; + DD.Text:=ADOTemp.fieldbyname('DD').AsString; + ZD.Text:=ADOTemp.fieldbyname('ZD').AsString; + end; + {if Trim(DParameters1)<>'' then + begin + BegRKDate.Enabled:=False; + Day3.Enabled:=False; + BegSCDate.Enabled:=False; + //Note.Enabled:=False; + cxGrid4.Enabled:=False; + SCXName.Enabled:=False; + WJGName.Enabled:=False; + ScrollBox2.Enabled:=False; + end;} + if PState=4 then + begin + BegRKDate.Enabled:=True; + Day3.Enabled:=True; + BegSCDate.Enabled:=True; + //Note.Enabled:=False; + cxGrid4.Enabled:=True; + { MJKZX.Enabled:=True; + MJKZD.Enabled:=True; + XJKZX.Enabled:=True; + XJKZD.Enabled:=True;} + SCXName.Enabled:=True; + WJGName.Enabled:=True; + ScrollBox2.Enabled:=True; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_DB); + SInitCDSData20(ADOQuery1,CDS_DB); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Sub); + SInitCDSData20(ADOQuery1,CDS_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType=''Ҫ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubZ); + SInitCDSData20(ADOQuery1,Order_SubZ); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubF); + SInitCDSData20(ADOQuery1,Order_SubF); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubQ); + SInitCDSData20(ADOQuery1,Order_SubQ); + PanZDY.Visible:=False; + if PState=4 then + begin + PState:=0; + FMainId:=''; + //OrderNo.Text:=''; + WFBCodeName.Text:=''; + WFBCodeName.Hint:=''; + PanZDY.Visible:=False; + with CDS_DB do + begin + First; + while not Eof do + begin + Edit; + FieldByName('DBID').Value:=''; + Post; + Next; + end; + end; + with Order_SubZ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v1Column1.Options.Focusing:=True; + with Order_SubF do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v2Column1.Options.Focusing:=True; + with Order_SubQ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v3Column1.Options.Focusing:=True; + end; + +end; + +procedure TfrmOrderInPutZPLNew.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmOrderInPutZPLNew.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZPLNew.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZPLNew.WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmOrderInPutZPLNew.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmOrderInPutZPLNew.FormShow(Sender: TObject); +var + fsj:string; +begin + ReadCxBandedGrid('1',Tv1,'޷IJ'); + ReadCxBandedGrid('ϸ1',Tv2,'޷IJ'); + ReadCxBandedGrid('1',Tv3,'޷IJ'); + ReadCxGrid('ӱ1',TvSub,'޷IJ'); + ReadCxGrid('1',TVDB,'޷IJ'); + {if Trim(DParameters1)='' then + begin + TBSave.Visible:=False; + TBChkOk.Visible:=True; + TBChkNo.Visible:=True; + end else + begin + TBSave.Visible:=True; + TBChkOk.Visible:=False; + TBChkNo.Visible:=False; + end; } + fsj:=FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp)); + if ( (Trim(FMainId)='') or (CopyInt=1)) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Count(*) As SL from WFBOrder_Main where OrderDate='''+Trim(fsj)+''''); + sql.Add(' and MainId not like ''%FZ'' '); + Open; + end; + if ADOTemp.IsEmpty then + begin + fsj:=fsj+'-1' + end else + fsj:=fsj+'-'+Trim(IntToStr(ADOTemp.fieldbyname('SL').AsInteger+1)); + OrderCode.Text:=Trim(fsj); + end; + InitData(); + ReadCxBandedGrid('',Tv1,'޷IJ'); + ReadCxBandedGrid('ϸ',Tv2,'޷IJ'); + ReadCxBandedGrid('',Tv3,'޷IJ'); +end; + +function TfrmOrderInPutZPLNew.SaveData():Boolean; +var + maxno,FSubId:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderType').Value:='Ʒ'; + SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0); + if PState=2 then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp); + if ChkInt=1 then + FieldByName('ChkStatus').Value:='ͨ' + else if ChkInt=2 then + FieldByName('ChkStatus').Value:='˲ͨ'; + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + if PState=1 then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + end; + Post; + end; + FMainId:=Trim(maxno); + ///ϸ + with CDS_DB do + begin + First; + while not Eof do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'DB','WFB_DB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_DB '); + sql.Add(' where DBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('DBId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0); + Post; + end; + CDS_DB.Edit; + CDS_DB.FieldByName('DBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ///굥 + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Sub '); + sql.Add(' where SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TvSub,CDS_Sub,'WFBOrder_Sub',0); + Post; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SubId').Value:=Trim(maxno); + //CDS_Sub.Post; + Next; + end; + end; + CDS_Sub.EnableControls; + //Ҫԭ + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + First; + while not Eof do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString); + FieldByName('PBType').Value:='Ҫ'; + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0); + Post; + end; + Order_SubZ.Edit; + Order_SubZ.FieldByName('PBId').Value:=Trim(maxno); + //Order_SubZ.Post; + Next; + end; + end; + end; + //渨ԭ + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0); + Post; + end; + Order_SubF.Edit; + Order_SubF.FieldByName('PBId').Value:=Trim(maxno); + //Order_SubF.Post; + Next; + end; + end; + end; + //ԭ + if not Order_SubQ.IsEmpty then + begin + with Order_SubQ do + begin + First; + while not Eof do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0); + Post; + end; + Order_SubQ.Edit; + Order_SubQ.FieldByName('PBId').Value:=Trim(maxno); + //Order_SubQ.Post; + Next; + end; + end; + end; + + ///ӱ + {with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'OS','Order_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Order_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Order_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; } + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutZPLNew.SaveData10():Boolean; +var + maxno,FSubId:String; + +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderType').Value:='Ʒ'; + SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0); + if PState=2 then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + if PState=1 then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + end; + Post; + end; + FMainId:=Trim(maxno); + ///ϸ + with CDS_DB do + begin + First; + while not Eof do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'DB','WFB_DB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_DB '); + sql.Add(' where DBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('DBId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0); + Post; + end; + CDS_DB.Edit; + CDS_DB.FieldByName('DBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ///굥 + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Sub '); + sql.Add(' where SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TvSub,CDS_Sub,'WFBOrder_Sub',0); + Post; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('SubId').Value:=Trim(maxno); + //CDS_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutZPLNew.TBSaveClick(Sender: TObject); +var + FFS:string; + wz:Integer; +begin + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SWFBCodeName',null,[]) then + begin + Application.MessageBox('ƷŲΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBCodeName.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; } + {if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + Exit; + end; } + if CDS_DB.Locate('BSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if CDS_DB.Locate('JSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if SaveData() then + begin + wz:=Pos('F',FMainId); + FFS:=Copy(FMainId,wz,4); + if ((CopyInt=1) or (FFS='FZ')) then + begin + UpMainId(); + end; + CopyInt:=0; + if ChkInt>0 then + begin + Application.MessageBox('ɹ!','ʾ',0); + end else + Application.MessageBox('ɹ','ʾ',0); + if CloInt=1 then ModalResult:=1; + Exit; + end; +end; +procedure TfrmOrderInPutZPLNew.SaveYCL(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; +begin + try + ADOCmd.Connection.BeginTrans; + with frmGetPGJBInList.ClientDataSet2 do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString); + FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString); + FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + Next; + end; + end; + Next; + end; + end; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +procedure TfrmOrderInPutZPLNew.SELYCL(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + try ADOCmd.Connection.BeginTrans; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLName').AsString); + FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLSpec').AsString); + FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString); + FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString); + FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + end; + Next; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + Exit; + end; + //Self.SaveYCL(SCDS_Sub); + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.EditYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + //First; + // while not Eof do + //begin + with SCDS_Sub do + begin + Edit; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then + SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value- + ClientDataSet2.fieldbyname('YJKC').Value + else + SCDS_Sub.FieldByName('BZ').Value:=null; + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + //Post; + end; + // Next; + //end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; +procedure TfrmOrderInPutZPLNew.ToolButton1Click(Sender: TObject); + +begin + if CDS_Sub.IsEmpty=True then + begin + Application.MessageBox('굥Ϊգ','ʾ',0); + Exit; + end; + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBCodeName.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; } + SaveData10(); + Panel1.Visible:=True; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + {if MInt=1 then + begin + SELYCL(Order_SubZ); + end else + if MInt=2 then + begin + SELYCL(Order_SubF); + end else + if MInt=3 then + begin + SELYCL(Order_SubQ); } + end; + SCreateCDS20(ADOQuery1,CDS_Sel); + SInitCDSData20(ADOQuery1,CDS_Sel); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_YCLKC_ListKCDD :KCType '); + if MInt=1 then + begin + Parameters.ParamByName('KCType').Value:='Ҫ'; + end else + if MInt=2 then + begin + Parameters.ParamByName('KCType').Value:=''; + end else + if MInt=3 then + begin + Parameters.ParamByName('KCType').Value:=''; + end; + open; + end; + SCreateCDS20(ADOQuery1,CDS_KCSel); + SInitCDSData20(ADOQuery1,CDS_KCSel); +end; + +procedure TfrmOrderInPutZPLNew.ToolButton2Click(Sender: TObject); +begin + if MInt=1 then + begin + DelOrderSub(Order_SubZ); + end else + if MInt=2 then + begin + DelOrderSub(Order_SubF); + end else + if MInt=3 then + begin + DelOrderSub(Order_SubQ); + end; +end; +procedure TfrmOrderInPutZPLNew.DelOrderSub(FOrder_Sub:TClientDataSet); +begin + if FOrder_Sub.IsEmpty then Exit; + if Trim(FOrder_Sub.fieldbyname('PBID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + end; + FOrder_Sub.Delete; +end; + +procedure TfrmOrderInPutZPLNew.CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('CustomNoName'); + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.FXS:=99; + CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.CustomNoNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(CustomNoName,'CustomNoName'); +end; + +procedure TfrmOrderInPutZPLNew.ArrivalPortNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('ArrivalPort'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('SCXName'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WJGName'); + flagname:='ṹ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.WFBCodeNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name)); +end; + +procedure TfrmOrderInPutZPLNew.ArrivalPortNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(ArrivalPortName,'ArrivalPort'); +end; + +procedure TfrmOrderInPutZPLNew.SCXNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(SCXName,Trim(SCXName.Name)); +end; + +procedure TfrmOrderInPutZPLNew.WJGNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WJGName,Trim(WJGName.Name)); +end; + +procedure TfrmOrderInPutZPLNew.N1Click(Sender: TObject); +begin + + with CDS_DB do + begin + Append; + FieldByName('DBUnit').Value:='/'; + Post; + end; +end; + +procedure TfrmOrderInPutZPLNew.N2Click(Sender: TObject); +begin + if CDS_DB.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+''''); + ExecSQL; + end; + CDS_DB.Delete; +end; + +procedure TfrmOrderInPutZPLNew.Day1Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day1.Text)='' then DayL:='0' + else DayL:=Trim(Day1.Text); + ETDDate.DateTime:=ETADate.Date-strtoint(DayL); +end; + +procedure TfrmOrderInPutZPLNew.OrdQtyKeyPress(Sender: TObject; var Key: Char); +begin + if not (Key in['0'..'9','.',#8,#13]) then + begin + key:=#0; + end; +end; + +procedure TfrmOrderInPutZPLNew.Day2Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day2.Text)='' then DayL:='0' + else DayL:=Trim(Day2.Text); + ZGDate.DateTime:=ETDDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZPLNew.Day3Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day3.Text)='' then DayL:='0' + else DayL:=Trim(Day3.Text); + BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZPLNew.ETADateChange(Sender: TObject); +begin + if Trim(Day1.Text)<>'' then + begin + ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text); + end; + if Trim(Day2.Text)<>'' then + begin + ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text); + end; +end; + +procedure TfrmOrderInPutZPLNew.BegRKDateChange(Sender: TObject); +begin + if Trim(Day3.Text)<>'' then + begin + BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text); + end; +end; + +procedure TfrmOrderInPutZPLNew.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=1; + Tv1.Bands[0].Caption:='Ҫԭϡ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlue; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZPLNew.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=2; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭϡ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZPLNew.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=3; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmOrderInPutZPLNew.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from WFBYCL_PBSub A '); + //SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*mvalue/100*(1+YLSH/100); + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + end; +end; +procedure TfrmOrderInPutZPLNew.OnlyUpYCLData(); +var + mvalue,YLSH,DHSL,YLQty:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)<>'' then + mvalue:=Order_SubZ.fieldbyname('YLPB').Value + else + mvalue:=0; //KO + + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from WFBYCL_PBSub A '); + //SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*mvalue/100*(1+YLSH/100); + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + //FieldByName('YLPB').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+mvalue/100); + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSHQ,DHSL,YLQty,YLPB:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubF.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*(mvalue*1.00/1000); + Next; + end; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.OrdQtyChange(Sender: TObject); +begin + YLUpdate(); +end; +procedure TfrmOrderInPutZPLNew.YLUpdate(); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + YLQty:=0; + with Order_SubZ do + begin + if Order_SubZ.IsEmpty=False then + begin + First; + while not Eof do + begin + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+YLSH/100); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + YLQty:=YLQty+DHSL*YLPB/100*(1+YLSH/100); + end; + Next; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + end; + Next; + end; + end; + + end; + if Order_SubF.IsEmpty=False then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubF.fieldbyname('PBID').AsString)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*(YLSHQ*1.00/1000); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + YLQty:=YLQty+DHSL*(YLSHQ*1.00/1000); + end; + Next; + end; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + end; + Next; + end; + end; + end; +end; +procedure TfrmOrderInPutZPLNew.v3Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingValue; + with Order_SubQ do + begin + Edit; + FieldByName('YLQty').Value:=mvalue; + if mvalue-fieldbyname('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPutZPLNew.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + with ADOQueryQG do + begin + Close; + sql.Clear; + sql.Add(' exec P_Print_SGD :OrderNo'); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + if ADOQueryQG.IsEmpty then Exit; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\빺.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['dyr']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\빺.rmf'),'ʾ',0); + end; +end; + +procedure TfrmOrderInPutZPLNew.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubZ); +end; + +procedure TfrmOrderInPutZPLNew.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubF); +end; + +procedure TfrmOrderInPutZPLNew.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubQ); +end; + +procedure TfrmOrderInPutZPLNew.MenuItem1Click(Sender: TObject); +var + i:Integer; +begin + CopyAddRow(TvSub,CDS_Sub); + i:=CDS_Sub.RecordCount; + with CDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + FieldByName('SWFBColor').Value:=''; + FieldByName('SWFBCode').Value:=''; + FieldByName('SWFBCodeName').Value:=''; + FieldByName('SWFBBZQty1').Value:=0; + FieldByName('SOrdQty').Value:=0; + FieldByName('XHNO').Value:=IntToStr(i); + Post; + end; + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); +end; + +procedure TfrmOrderInPutZPLNew.MenuItem2Click(Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SubID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+''' '); + sql.Add(' and not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID and A.MainId='''+Trim(FMainId)+''' )'); + open; + end; + with ADOTemp do + begin + ADOTemp.First; + while not ADOTemp.Eof do + begin + if Trim(ADOTemp.fieldbyname('PBID').AsString)<>'' then + begin + if Order_SubZ.IsEmpty=False then + begin + if Order_SubZ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubZ.Delete; + end; + if Order_SubF.IsEmpty=False then + begin + if Order_SubF.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubF.Delete; + end; + if Order_SubQ.IsEmpty=False then + begin + if Order_SubQ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then + Order_SubQ.Delete; + end; + end; + ADOTemp.Next; + end; + end; + with ADOCMD do + begin + Close; + SQL.Clear; + sql.Add(' delete WFBYCL_PB where not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID )'); + SQL.Add(' and MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + + end else + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + end; + CDS_Sub.Delete; + //YLUpdate(); + if CDS_Sub.isempty=False then + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); + //if ((Order_SubZ.IsEmpty) and (Order_SubF.IsEmpty) and (Order_SubQ.IsEmpty)) then Exit; + YLUpdate(); +end; + +procedure TfrmOrderInPutZPLNew.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBHX'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBHW').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.cxGridDBColumn2PropertiesEditValueChanged( + Sender: TObject); +var + FOrdQty,FKZ:String; +begin + FKZ:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FKZ)='' then + FieldByName('SWFBKZ').Value:='0' + else + FieldByName('SWFBKZ').Value:=FKZ; + Post; + end; + YCLDataUPdate(); +end; +procedure TfrmOrderInPutZPLNew.YCLDataUPdate(); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ,FQty1,FQty2,FQty3,FFK1,FFK2,DDZDHL:Double; + FOrdQty,FKZ,ZPType:String; +begin + if Trim(CDS_Sub.FieldByName('SWFBFK1').AsString)='' then + FFK1:=0 + else + FFK1:=CDS_Sub.FieldByName('SWFBFK1').Value; + if Trim(CDS_Sub.FieldByName('SWFBFK2').AsString)='' then + FFK2:=0 + else + FFK2:=CDS_Sub.FieldByName('SWFBFK2').Value; + if Trim(CDS_Sub.FieldByName('SWFBBZQty1').AsString)='' then + FQty1:=1 + else + FQty1:=CDS_Sub.FieldByName('SWFBBZQty1').Value; + if Trim(CDS_Sub.FieldByName('SWFBBZQty2').AsString)='' then + FQty2:=1 + else + FQty2:=CDS_Sub.FieldByName('SWFBBZQty2').Value; + if Trim(CDS_Sub.FieldByName('SWFBBZQty3').AsString)='' then + FQty3:=1 + else + FQty3:=CDS_Sub.FieldByName('SWFBBZQty3').Value; + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + FKZ:='0' + else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + ZPType:=Trim(CDS_Sub.fieldbyname('SubType').AsString); + if Trim(ZPType)='' then + begin + if Trim(Self.DD.Text)<>'' then + begin + DDZDHL:=StrToFloat(DD.Text); + end else + DDZDHL:=0; + end else + if Trim(ZPType)='۵' then + begin + if Trim(Self.ZD.Text)<>'' then + begin + DDZDHL:=StrToFloat(ZD.Text); + end else + DDZDHL:=0; + + end else + DDZDHL:=0; + DDZDHL:=(100+DDZDHL)*1.00/100; + + with CDS_Sub do + begin + Edit; + FieldByName('SOrdQty').Value:=(FFK1*1.00/100)*(FFK2*1.00/100)*(FQty1*FQty2*FQty3)*Strtofloat(FKZ)/1000*DDZDHL; + Post; + end; + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select distinct(A.PBID) PBID from WFBYCL_PBSub A '); + SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.PBType=''Ҫ'''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBYCL_PBSub where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + Open; + end; + Order_SubZ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with ADOQuery1 do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOQuery1.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+YLSH/100); + Next; + end; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + YLQty:=0; + Next; + end; + end; + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select distinct(A.PBID) PBID from WFBYCL_PBSub A '); + SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.PBType='''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBYCL_PBSub where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + Open; + end; + Order_SubF.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]); + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + with ADOQuery1 do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOQuery1.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + YLQty:=YLQty+StrToFloat(FOrdQty)*(YLSHQ*1.00/1000); + Next; + end; + end; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + YLQty:=0; + Next; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.TvSubColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + FOrdQty:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FOrdQty)='' then + FieldByName('SOrdQty').Value:='0' + else + FieldByName('SOrdQty').Value:=FOrdQty; + Post; + end; + + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select distinct(A.PBID) PBID from WFBYCL_PBSub A '); + SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.PBType=''Ҫ'''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBYCL_PBSub where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + Open; + end; + Order_SubZ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]); + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with ADOQuery1 do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOQuery1.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+YLSH/100); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + YLQty:=YLQty+DHSL*YLPB/100*(1+YLSH/100); + end; + Next; + end; + end; + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + YLQty:=0; + Next; + end; + end; + YLQty:=0; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select distinct(A.PBID) PBID from WFBYCL_PBSub A '); + SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID '); + sql.Add(' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.PBType='''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBYCL_PBSub where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + Open; + end; + Order_SubF.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]); + if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then + begin + YLSHQ:=0; + end else + YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString); + with ADOQuery1 do + begin + First; + while not Eof do + begin + CDS_Sub.Locate('SubId',Trim(ADOQuery1.fieldbyname('SubId').AsString),[]); + if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then + FOrdQty:='0' + else + FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString); + if Trim(OrdUnit.Text)='K' then + begin + YLQty:=YLQty+StrToFloat(FOrdQty)*(YLSHQ*1.00/1000); + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then + begin + FKZ:='0'; + end else + FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString); + DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000; + YLQty:=YLQty+DHSL*(YLSHQ*1.00/1000); + end; + Next; + end; + end; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=YLQty; + if YLQty-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; + YLQty:=0; + Next; + end; + end; + //OrdQty:= + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); +end; + +procedure TfrmOrderInPutZPLNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel1).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmOrderInPutZPLNew.Image2Click(Sender: TObject); +begin + Panel1.Visible:=False; +end; + +procedure TfrmOrderInPutZPLNew.Button3Click(Sender: TObject); +begin + Panel1.Visible:=False; +end; + +procedure TfrmOrderInPutZPLNew.Button2Click(Sender: TObject); +begin + if CDS_Sel.Locate('ssel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + if MInt=1 then + begin + SELYCLKC(Order_SubZ); + + end else + if MInt=2 then + begin + SELYCLKC(Order_SubF); + end else + if MInt=3 then + begin + SELYCLKC(Order_SubQ); + end; + Panel1.Visible:=False; +end; +procedure TfrmOrderInPutZPLNew.SELYCLKC(SCDS_Sub:TClientDataSet); +var + maxno,maxnosub:string; + YLPB,YLSH:Double; +begin + + try ADOCmd.Connection.BeginTrans; + with CDS_KCSel do + begin + First; + while not Eof do + begin + if CDS_KCSel.FieldByName('SSel').AsBoolean=True then + begin + if MInt=1 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+''''); + SQL.Add(' and YLPB>0 order by FillTime desc'); + Open; + end; + if Trim(ADOTemp.fieldbyname('YLPB').AsString)<>'' then + YLPB:=ADOTemp.fieldbyname('YLPB').Value + else + YLPB:=0; + if Trim(ADOTemp.fieldbyname('YLSH').AsString)<>'' then + YLSH:=ADOTemp.fieldbyname('YLSH').Value + else + YLSH:=0; + end else + begin + YLPB:=0; + YLSH:=0; + end; + end; + + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString); + if MInt=1 then + begin + SCDS_Sub.FieldByName('YLPB').Value:=YLPB; + SCDS_Sub.FieldByName('YLSH').Value:=YLSH; + end; + Post; + end; + // + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PB where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + if MInt=1 then + begin + FieldByName('PBType').Value:='Ҫ'; + end else + if MInt=2 then + begin + FieldByName('PBType').Value:=''; + end else + if MInt=3 then + begin + FieldByName('PBType').Value:=''; + end; + FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString); + FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString); + FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString); + FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString); + FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString); + FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString); + FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString); + Post; + end; + with SCDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + Post; + end; + // + + //ӱ + with Self.CDS_Sel do + begin + First; + while not Eof do + begin + if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxnosub); + Post; + end; + end; + Next; + end; + end; + if MInt=1 then + OnlyUpYCLData(); + //ӱ + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutZPLNew.FormClose(Sender: TObject; + var Action: TCloseAction); +var + maxno,FFS:string; + wz:Integer; +begin + WriteCxBandedGrid('1',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ1',Tv2,'޷IJ'); + WriteCxBandedGrid('1',Tv3,'޷IJ'); + WriteCxGrid('ӱ1',TvSub,'޷IJ'); + WriteCxGrid('1',TVDB,'޷IJ'); + {if CopyInt=1 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(FMainId)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; + wz:=Pos('F',FMainId); + FFS:=Copy(FMainId,wz,4); + if ((CopyInt=1) or (FFS='FZ')) then + begin + UpMainId(); + end; } +end; +procedure TfrmOrderInPutZPLNew.UpMainId(); +var + maxno:string; +begin + try + ADOCmd.Connection.BeginTrans; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PBSub where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PBSub Set PSID='''+Trim(maxno)+''''); + SQL.Add(' where PSID='''+Trim(ADOTemp.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set PBID='''+Trim(maxno)+''''); + SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + sql.Add('UPdate WFBYCL_PBSub Set PBID='''+Trim(maxno)+''''); + SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'','WFBOrder_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set SubID='''+Trim(maxno)+''''); + SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+''''); + sql.Add('UPdate WFBYCL_PBSub Set SubID='''+Trim(maxno)+''''); + SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + if GetLSNo(ADOCmd,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('Update WFBOrder_Sub Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('Update WFB_DB Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('UPdate WFBYCL_PB Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + sql.Add('UPdate WFBYCL_PBSub Set MainID='''+Trim(maxno)+''''); + SQL.Add(' where MainID='''+Trim(FMainId)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutZPLNew.vSubColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='װ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit1').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitZ'); + flagname:='аװ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn10PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='Сװ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit3').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('BZ'); + flagname:='۵λ'; + if ShowModal=1 then + begin + Self.FXS:=99; + BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutZPLNew.BZPropertiesChange(Sender: TObject); +begin + { if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(BZ,'BZ'); } +end; + +procedure TfrmOrderInPutZPLNew.cxGridDBColumn4PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SWFBFK1').Value:='0' + else + FieldByName('SWFBFK1').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn4PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SWFBFK2').Value:='0' + else + FieldByName('SWFBFK2').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn5PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SWFBBZQty1').Value:='1' + else + FieldByName('SWFBBZQty1').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn7PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SWFBBZQty2').Value:='1' + else + FieldByName('SWFBBZQty2').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + + +procedure TfrmOrderInPutZPLNew.vSubColumn9PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SWFBBZQty3').Value:='1' + else + FieldByName('SWFBBZQty3').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + + +procedure TfrmOrderInPutZPLNew.vSubColumn12PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CDS_Sub.FieldByName('SWFBCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then Exit; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+''''); + sql.Add(' order by SFillTIme Desc'); + Open; + end; + with CDS_Sub do + begin + Edit; + FieldByName('SWFBColor').Value:=ADOTemp.fieldbyname('SWFBColor').Value; + FieldByName('SWFBHW').Value:=ADOTemp.fieldbyname('SWFBHW').Value; + FieldByName('SWFBKZ').Value:=ADOTemp.fieldbyname('SWFBKZ').Value; + FieldByName('SWFBFK1').Value:=ADOTemp.fieldbyname('SWFBFK1').Value; + FieldByName('SWFBFK2').Value:=ADOTemp.fieldbyname('SWFBFK2').Value; + FieldByName('SOrdPrice').Value:=ADOTemp.fieldbyname('SOrdPrice').Value; + FieldByName('SWFBBZUnit1').Value:=ADOTemp.fieldbyname('SWFBBZUnit1').Value; + FieldByName('SWFBBZQty2').Value:=ADOTemp.fieldbyname('SWFBBZQty2').Value; + FieldByName('SWFBBZUnit2').Value:=ADOTemp.fieldbyname('SWFBBZUnit2').Value; + FieldByName('SWFBBZQty3').Value:=ADOTemp.fieldbyname('SWFBBZQty3').Value; + FieldByName('SWFBBZUnit3').Value:=ADOTemp.fieldbyname('SWFBBZUnit3').Value; + FieldByName('WKMS').Value:=ADOTemp.fieldbyname('WKMS').Value; + FieldByName('KZSmal').Value:=ADOTemp.fieldbyname('KZSmal').Value; + FieldByName('KZBig').Value:=ADOTemp.fieldbyname('KZBig').Value; + //Post; + end; +end; + +procedure TfrmOrderInPutZPLNew.MenuItem3Click(Sender: TObject); +begin + CDS_Sel.DisableControls; + with CDS_Sel do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + Next; + end; + end; + CDS_Sel.EnableControls; +end; + +procedure TfrmOrderInPutZPLNew.MenuItem4Click(Sender: TObject); +begin + CDS_Sel.DisableControls; + with CDS_Sel do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + Next; + end; + end; + CDS_Sel.EnableControls; +end; + +procedure TfrmOrderInPutZPLNew.cxButtonEdit1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('JJDW'); + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.FXS:=99; + BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.cxButtonEdit1PropertiesChange( + Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(BZ,'JJDW'); +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn13PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WKMS'); + flagname:='Ŀ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('WKMS').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPLNew.TBChkOkClick(Sender: TObject); +begin + ChkInt:=1; + TBSave.Click; +end; + +procedure TfrmOrderInPutZPLNew.TBChkNoClick(Sender: TObject); +begin + ChkInt:=2; + TBSave.Click; +end; + +procedure TfrmOrderInPutZPLNew.Button4Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then exit; + if( (Order_SubZ.IsEmpty) and (Order_SubF.IsEmpty) and (Order_SubQ.IsEmpty) )then Exit; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + SaveData10(); + if CDS_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('굥δѡݣܸ£','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('SSel',True,[])=False then + begin + if Order_SubF.Locate('SSel',True,[])=False then + if Order_SubZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ԭϱδѡݣܸ£','ʾ',0); + Exit; + end; + end; + try + ADOCMD.Connection.BeginTrans; + YCLPBIDUPdate(Order_SubZ); + YCLPBIDUPdate(Order_SubF); + YCLPBIDUPdate(Order_SubQ); + YLUpdate(); + ADOCMD.Connection.CommitTrans; + Application.MessageBox('³ɹ','ʾ',0); + Exit; + except + ADOCMD.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmOrderInPutZPLNew.YCLPBIDUPdate(SOrder_SubZ:TClientDataSet); +var + maxno:String; +begin + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + with SOrder_SubZ do + begin + First; + while not Eof do + begin + if SOrder_SubZ.FieldByName('SSel').AsBoolean=True then + begin + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + sql.Add(' and PBID='''+Trim(SOrder_SubZ.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + if GetLSNo(ADOCMD,maxno,'PS','WFBYCL_PBSub',4,1)=False then + begin + ADOCMD.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOCMD do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where 1<>1'); + Open; + end; + with ADOCMD do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(CDS_Sub.fieldbyname('SubId').AsString); + FieldByName('PBID').Value:=Trim(SOrder_SubZ.fieldbyname('PBID').AsString); + FieldByName('PSID').Value:=Trim(maxno); + Post; + end; + end; + Next; + end; + end; + end; + Next; + end; + end; +end; + +procedure TfrmOrderInPutZPLNew.N3Click(Sender: TObject); +begin + SelAll(CDS_Sub,True); +end; + +procedure TfrmOrderInPutZPLNew.N4Click(Sender: TObject); +begin + SelAll(CDS_Sub,False); +end; + +procedure TfrmOrderInPutZPLNew.DDChange(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.ZDChange(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.vSubColumn11PropertiesEditValueChanged( + Sender: TObject); +var + FStr:String; +begin + FStr:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + if Trim(FStr)='' then + FieldByName('SubType').Value:='' + else + FieldByName('SubType').Value:=FStr; + Post; + end; + YCLDataUPdate(); +end; + +procedure TfrmOrderInPutZPLNew.MenuItem7Click(Sender: TObject); +begin + if MInt=1 then + begin + SelAll(Order_SubZ,True); + end else + if MInt=2 then + begin + SelAll(Order_SubF,True); + end else + if MInt=3 then + begin + SelAll(Order_SubQ,True); + end; +end; + +procedure TfrmOrderInPutZPLNew.MenuItem8Click(Sender: TObject); +begin + if MInt=1 then + begin + SelAll(Order_SubZ,False); + end else + if MInt=2 then + begin + SelAll(Order_SubF,False); + end else + if MInt=3 then + begin + SelAll(Order_SubQ,False); + end; +end; + +end. diff --git a/贸易管理/U_OrderInPutZPNew.dfm b/贸易管理/U_OrderInPutZPNew.dfm new file mode 100644 index 0000000..f4388b7 --- /dev/null +++ b/贸易管理/U_OrderInPutZPNew.dfm @@ -0,0 +1,1711 @@ +object frmOrderInPutZPNew: TfrmOrderInPutZPNew + Left = 81 + Top = 20 + Width = 1102 + Height = 705 + Caption = #25351#31034#21333#24405#20837'('#21046#21697')' + 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 = 1094 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1094 + Height = 318 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 15 + Width = 65 + Height = 12 + Caption = #35746#21333#32534#21495#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 = 204 + Top = 15 + Width = 53 + Height = 12 + Caption = #20195' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 727 + Top = 15 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#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 = 375 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 547 + Top = 15 + Width = 52 + Height = 12 + Caption = #21040#36798#28207#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 = 912 + Top = 15 + Width = 65 + Height = 12 + Caption = #21512#35745#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 24 + Top = 68 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 23 + Top = 116 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 25 + Top = 88 + Width = 34 + Height = 12 + Caption = 'ETA'#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 = 257 + Top = 90 + Width = 34 + Height = 12 + Caption = 'ETD'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 491 + Top = 89 + Width = 39 + Height = 12 + Caption = #35013#26588#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 684 + Top = 88 + Width = 53 + Height = 12 + Caption = #20837' '#24211#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 939 + Top = 89 + Width = 39 + Height = 12 + Caption = #29983#20135#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 221 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 165 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 238 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 455 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 400 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 472 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 909 + Top = 88 + Width = 13 + Height = 15 + Caption = #22825 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 854 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 923 + Top = 88 + Width = 14 + Height = 15 + Caption = '>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 23 + Top = 294 + Width = 1068 + Height = 12 + Caption = + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' + + '- - - - - - - - - - - - - - - - - - - - - - - - ' + Font.Charset = GB2312_CHARSET + Font.Color = clFuchsia + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 131 + Width = 30 + Height = 14 + Caption = #35814#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 738 + Top = 131 + Width = 60 + Height = 14 + Caption = #25171#21253#35814#32454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 911 + Top = 131 + Width = 60 + Height = 14 + Caption = #27880#24847#20107#39033 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #35745#20215#21333#20301#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 = 202 + Top = 46 + Width = 52 + Height = 12 + Caption = #29983#20135#32447#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 = 375 + Top = 46 + Width = 52 + Height = 12 + Caption = #32593#32467#26500#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 547 + Top = 46 + Width = 91 + Height = 12 + Caption = #27597#21367#20811#37325#33539#22260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 695 + Top = 45 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 974 + Top = 44 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 824 + Top = 46 + Width = 91 + Height = 12 + Caption = #23567#21367#20811#37325#33539#22260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 772 + Top = 43 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 1051 + Top = 43 + Width = 23 + Height = 15 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 86 + Top = 13 + Width = 103 + Height = 18 + TabOrder = 0 + end + object OrderDate: TDateTimePicker + Left = 791 + Top = 11 + Width = 103 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object WFBCodeName: TcxButtonEdit + Left = 252 + Top = 11 + ParentShowHint = False + Properties.BeepOnError = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WFBCodeNamePropertiesButtonClick + Properties.OnChange = WFBCodeNamePropertiesChange + ShowHint = False + TabOrder = 2 + OnKeyDown = WFBCodeNameKeyDown + Width = 97 + end + object CustomNoName: TcxButtonEdit + Left = 426 + Top = 11 + Hint = 'CustomerNo' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = CustomNoNamePropertiesButtonClick + Properties.OnChange = CustomNoNamePropertiesChange + ShowHint = False + TabOrder = 3 + OnKeyDown = WFBCodeNameKeyDown + Width = 100 + end + object ArrivalPortName: TcxButtonEdit + Left = 596 + Top = 11 + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = ArrivalPortNamePropertiesButtonClick + Properties.OnChange = ArrivalPortNamePropertiesChange + ShowHint = False + TabOrder = 4 + OnKeyDown = WFBCodeNameKeyDown + Width = 117 + end + object OrdQty: TEdit + Left = 975 + Top = 11 + Width = 49 + Height = 18 + Enabled = False + TabOrder = 5 + OnChange = OrdQtyChange + OnKeyPress = OrdQtyKeyPress + end + object OrdUnit: TComboBox + Left = 1025 + Top = 11 + Width = 51 + Height = 20 + Style = csDropDownList + Ctl3D = False + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentCtl3D = False + ParentFont = False + TabOrder = 6 + OnChange = OrdQtyChange + Items.Strings = ( + #13199 + #13217) + end + object ETADate: TDateTimePicker + Left = 57 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 7 + OnChange = ETADateChange + end + object ETDDate: TDateTimePicker + Left = 291 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 8 + end + object ZGDate: TDateTimePicker + Left = 527 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 9 + end + object BegRKDate: TDateTimePicker + Left = 735 + Top = 85 + Width = 115 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 10 + OnChange = BegRKDateChange + end + object BegSCDate: TDateTimePicker + Left = 972 + Top = 85 + Width = 104 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 11 + end + object Day1: TEdit + Left = 184 + Top = 87 + Width = 35 + Height = 18 + TabOrder = 12 + OnChange = Day1Change + OnKeyPress = OrdQtyKeyPress + end + object Day2: TEdit + Left = 418 + Top = 87 + Width = 35 + Height = 18 + TabOrder = 13 + OnChange = Day2Change + OnKeyPress = OrdQtyKeyPress + end + object Day3: TEdit + Left = 872 + Top = 87 + Width = 35 + Height = 18 + TabOrder = 14 + OnChange = Day3Change + OnKeyPress = OrdQtyKeyPress + end + object BZ: TcxButtonEdit + Left = 86 + Top = 43 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = BZPropertiesButtonClick + Properties.OnChange = BZPropertiesChange + TabOrder = 15 + OnKeyDown = WFBCodeNameKeyDown + Width = 101 + end + object cxGrid5: TcxGrid + Left = 21 + Top = 146 + Width = 710 + Height = 139 + TabOrder = 16 + object TvSub: TcxGridDBTableView + PopupMenu = PopupMenu2 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TvSubColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object vSubColumn3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 34 + end + object vSubColumn11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'SubType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #28857#27573 + #25240#21472) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 45 + end + object vSubColumn2: TcxGridDBColumn + Caption = #33457#32441 + DataBinding.FieldName = 'SWFBHW' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 41 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SWFBKZ' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 63 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38271#24230'cm' + DataBinding.FieldName = 'SWFBFK1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object vSubColumn4: TcxGridDBColumn + Caption = #23485#24230'cm' + DataBinding.FieldName = 'SWFBFK2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 46 + end + object vSubColumn1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'SOrdPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object vSubColumn5: TcxGridDBColumn + Caption = #22823#25968#37327 + DataBinding.FieldName = 'SWFBBZQty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 46 + end + object vSubColumn6: TcxGridDBColumn + Caption = #22823#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 48 + end + object vSubColumn7: TcxGridDBColumn + Caption = #20013#25968#37327 + DataBinding.FieldName = 'SWFBBZQty2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object vSubColumn8: TcxGridDBColumn + Caption = #20013#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object vSubColumn9: TcxGridDBColumn + Caption = #23567#25968#37327 + DataBinding.FieldName = 'SWFBBZQty3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object vSubColumn10: TcxGridDBColumn + Caption = #23567#21333#20301 + DataBinding.FieldName = 'SWFBBZUnit3' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = vSubColumn10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 53 + end + object TvSubColumn1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SOrdQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvSub + end + end + object cxGrid4: TcxGrid + Left = 736 + Top = 146 + Width = 169 + Height = 138 + TabOrder = 17 + object TVDB: TcxGridDBTableView + PopupMenu = PopupMenu1 + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21253#25968#37327 + DataBinding.FieldName = 'BSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.handBlack + Width = 48 + end + object VDBColumn1: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 49 + end + object VDBColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'DBUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 55 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVDB + end + end + object Note: TRichEdit + Left = 910 + Top = 146 + Width = 166 + Height = 139 + TabOrder = 18 + end + object SCXName: TcxButtonEdit + Left = 252 + Top = 43 + Hint = 'FactoryNo1' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = SCXNamePropertiesButtonClick + Properties.OnChange = SCXNamePropertiesChange + ShowHint = False + TabOrder = 19 + OnKeyDown = WFBCodeNameKeyDown + Width = 97 + end + object WJGName: TcxButtonEdit + Left = 426 + Top = 43 + Hint = 'FactoryNo2' + BeepOnEnter = False + ParentShowHint = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.MaxLength = 0 + Properties.OnButtonClick = WJGNamePropertiesButtonClick + Properties.OnChange = WJGNamePropertiesChange + ShowHint = False + TabOrder = 20 + OnKeyDown = WFBCodeNameKeyDown + Width = 98 + end + object MJKZX: TEdit + Left = 635 + Top = 43 + Width = 60 + Height = 18 + TabOrder = 21 + OnKeyPress = OrdQtyKeyPress + end + object MJKZD: TEdit + Left = 709 + Top = 43 + Width = 60 + Height = 18 + TabOrder = 22 + OnKeyPress = OrdQtyKeyPress + end + object XJKZD: TEdit + Left = 990 + Top = 43 + Width = 60 + Height = 18 + TabOrder = 23 + OnKeyPress = OrdQtyKeyPress + end + object XJKZX: TEdit + Left = 912 + Top = 43 + Width = 60 + Height = 18 + TabOrder = 24 + OnKeyPress = OrdQtyKeyPress + end + object PanZDY: TPanel + Left = 899 + Top = 157 + Width = 151 + Height = 153 + TabOrder = 25 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 142 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.handBlack + Width = 129 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 40 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 347 + Width = 1094 + Height = 321 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 809 + Top = 31 + Width = 366 + Height = 269 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceQ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v3Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20854#23427 + Styles.Header = DataLink_WFBOrder.TextSHuangSe + Width = 400 + end> + object v3Column1: TcxGridDBBandedColumn + Caption = #29289#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'YLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'YLUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 425 + Top = 31 + Width = 384 + Height = 269 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceF + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #36741#21161#21407#26009 + Styles.Header = DataLink_WFBOrder.FonePurple + Width = 428 + end> + object v2Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #32791#29575#8240 + DataBinding.FieldName = 'YLSHQ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column4: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Column5: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column6: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v2Column7: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v2Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 31 + Width = 425 + Height = 269 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSourceZ + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'YCLCode' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #20027#35201#21407#26009 + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 487 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #37197#27604'%' + DataBinding.FieldName = 'YLPB' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25439#32791'%' + DataBinding.FieldName = 'YLSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #29992#37327'KG' + DataBinding.FieldName = 'YLQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #24211#23384 + DataBinding.FieldName = 'YLKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'YCLSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #30003#36141#25968#37327 + DataBinding.FieldName = 'SGQty' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21069#21333#24211#23384 + DataBinding.FieldName = 'YCLYJKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #19981#36275 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_WFBOrder.FoneRed + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360#35831#36141#21333 + ImageIndex = 96 + OnClick = TBPrintClick + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 912 + Top = 357 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 832 + Top = 309 + end + object DataSourceZ: TDataSource + DataSet = Order_SubZ + Left = 296 + Top = 440 + end + object Order_SubZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 760 + Top = 8 + end + object ADOZDY: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 856 + Top = 301 + end + object Order_SubF: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 440 + end + object DataSourceF: TDataSource + DataSet = Order_SubF + Left = 488 + Top = 440 + end + object Order_SubQ: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 448 + end + object DataSourceQ: TDataSource + DataSet = Order_SubQ + Left = 832 + Top = 448 + end + object ADOQueryQG: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 224 + Top = 285 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryQG + Left = 288 + Top = 296 + end + object RM2: 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 = 328 + Top = 288 + 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 = 256 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 136 + Top = 232 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 72 + Top = 224 + end + object PopupMenu2: TPopupMenu + Left = 104 + Top = 229 + object MenuItem1: TMenuItem + Caption = #22686#34892 + OnClick = MenuItem1Click + end + object N3: TMenuItem + Caption = #21024#34892 + OnClick = N3Click + end + end + object CDS_DB: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 253 + object N1: TMenuItem + Caption = #22686#34892 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#34892 + OnClick = N2Click + end + end + object DataSource3: TDataSource + DataSet = CDS_DB + Left = 544 + Top = 200 + end +end diff --git a/贸易管理/U_OrderInPutZPNew.pas b/贸易管理/U_OrderInPutZPNew.pas new file mode 100644 index 0000000..4a52f13 --- /dev/null +++ b/贸易管理/U_OrderInPutZPNew.pas @@ -0,0 +1,1984 @@ +unit U_OrderInPutZPNew; + +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, cxGridBandedTableView, + cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset, cxDropDownEdit; + +type + TfrmOrderInPutZPNew = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrderDate: TDateTimePicker; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSourceZ: TDataSource; + Order_SubZ: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + WFBCodeName: TcxButtonEdit; + ADOQuery1: TADOQuery; + Label12: TLabel; + CustomNoName: TcxButtonEdit; + Label13: TLabel; + ArrivalPortName: TcxButtonEdit; + Label16: TLabel; + OrdQty: TEdit; + OrdUnit: TComboBox; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + ETADate: TDateTimePicker; + Label22: TLabel; + ETDDate: TDateTimePicker; + Label23: TLabel; + ZGDate: TDateTimePicker; + Label24: TLabel; + BegRKDate: TDateTimePicker; + Label25: TLabel; + BegSCDate: TDateTimePicker; + Day1: TEdit; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Day2: TEdit; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Day3: TEdit; + Label18: TLabel; + Label32: TLabel; + Label33: TLabel; + Label4: TLabel; + Order_SubF: TClientDataSet; + DataSourceF: TDataSource; + Order_SubQ: TClientDataSet; + DataSourceQ: TDataSource; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + v2Column4: TcxGridDBBandedColumn; + v2Column5: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TBPrint: TToolButton; + v1Column7: TcxGridDBBandedColumn; + v2Column6: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v2Column7: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v2Column8: TcxGridDBBandedColumn; + v3Column8: TcxGridDBBandedColumn; + ADOQueryQG: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport1: TRMXLSExport; + BZ: TcxButtonEdit; + Label5: TLabel; + cxGrid5: TcxGrid; + TvSub: TcxGridDBTableView; + vSubColumn3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + vSubColumn2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + TvSubColumn1: TcxGridDBColumn; + vSubColumn1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Label7: TLabel; + cxGrid4: TcxGrid; + TVDB: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + VDBColumn1: TcxGridDBColumn; + VDBColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Note: TRichEdit; + Label35: TLabel; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + CDS_DB: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + DataSource3: TDataSource; + vSubColumn4: TcxGridDBColumn; + vSubColumn5: TcxGridDBColumn; + vSubColumn6: TcxGridDBColumn; + vSubColumn7: TcxGridDBColumn; + vSubColumn8: TcxGridDBColumn; + vSubColumn9: TcxGridDBColumn; + vSubColumn10: TcxGridDBColumn; + Label9: TLabel; + Label6: TLabel; + SCXName: TcxButtonEdit; + Label8: TLabel; + WJGName: TcxButtonEdit; + Label34: TLabel; + MJKZX: TEdit; + MJKZD: TEdit; + Label36: TLabel; + XJKZD: TEdit; + Label39: TLabel; + XJKZX: TEdit; + Label37: TLabel; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + Label10: TLabel; + Label11: TLabel; + vSubColumn11: TcxGridDBColumn; + N3: TMenuItem; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomNoNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBCodeNamePropertiesChange(Sender: TObject); + procedure ArrivalPortNamePropertiesChange(Sender: TObject); + procedure SCXNamePropertiesChange(Sender: TObject); + procedure WJGNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Day1Change(Sender: TObject); + procedure OrdQtyKeyPress(Sender: TObject; var Key: Char); + procedure Day2Change(Sender: TObject); + procedure Day3Change(Sender: TObject); + procedure ETADateChange(Sender: TObject); + procedure BegRKDateChange(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure OrdQtyChange(Sender: TObject); + procedure v3Column4PropertiesEditValueChanged(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFBBZUnit3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure BZPropertiesChange(Sender: TObject); + procedure WFBBZQty1Change(Sender: TObject); + procedure vSubColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure MenuItem1Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure vSubColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + MInt:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure DelOrderSub(FOrder_Sub:TClientDataSet); + procedure SELYCL(SCDS_Sub:TClientDataSet); + procedure EditYCL(SCDS_Sub:TClientDataSet); + { Private declarations } + public + PState,BState:Integer; + FMainId:String; + FXS:Integer; + OrderType:String; + { Public declarations } + end; + +var + frmOrderInPutZPNew: TfrmOrderInPutZPNew; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList; + +{$R *.dfm} + +procedure TfrmOrderInPutZPNew.TBCloseClick(Sender: TObject); +begin + if PState<>3 then + begin + if Application.MessageBox('ǷҪݣ','ʾ',32+4)=IDYES then + begin + TBSave.Click; + Exit; + end; + end; + Close; + WriteCxBandedGrid('',Tv1,'޷IJ'); + WriteCxBandedGrid('ϸ',Tv2,'޷IJ'); + WriteCxBandedGrid('',Tv3,'޷IJ'); + +end; + +procedure TfrmOrderInPutZPNew.InitData(); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + if PState>0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + if PState=0 then + begin + ADOQuery1.Parameters.ParamByName('MainId').Value:='999999'; + ADOQuery1.Parameters.ParamByName('begdate').Value:=''; + ADOQuery1.Parameters.ParamByName('endate').Value:=''; + end; + Open; + end; + // SCreateCDS20(ADOQuery1,Order_Sub); + //SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp))); + ETADate.DateTime:=OrderDate.DateTime; + ETDDate.DateTime:=OrderDate.DateTime; + ZGDate.DateTime:=OrderDate.DateTime; + BegRKDate.DateTime:=OrderDate.DateTime; + BegSCDate.DateTime:=OrderDate.DateTime; + ETADate.Checked:=False; + ETDDate.Checked:=False; + ZGDate.Checked:=False; + BegRKDate.Checked:=False; + BegSCDate.Checked:=False; + end; + if Trim(DParameters1)<>'' then + begin + BegRKDate.Enabled:=False; + Day3.Enabled:=False; + BegSCDate.Enabled:=False; + //Note.Enabled:=False; + cxGrid4.Enabled:=False; + MJKZX.Enabled:=False; + MJKZD.Enabled:=False; + XJKZX.Enabled:=False; + XJKZD.Enabled:=False; + SCXName.Enabled:=False; + WJGName.Enabled:=False; + ScrollBox2.Enabled:=False; + end; + if PState=4 then + begin + BegRKDate.Enabled:=True; + Day3.Enabled:=True; + BegSCDate.Enabled:=True; + //Note.Enabled:=False; + cxGrid4.Enabled:=True; + MJKZX.Enabled:=True; + MJKZD.Enabled:=True; + XJKZX.Enabled:=True; + XJKZD.Enabled:=True; + SCXName.Enabled:=True; + WJGName.Enabled:=True; + ScrollBox2.Enabled:=True; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_DB); + SInitCDSData20(ADOQuery1,CDS_DB); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_Sub); + SInitCDSData20(ADOQuery1,CDS_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType=''Ҫ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubZ); + SInitCDSData20(ADOQuery1,Order_SubZ); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubF); + SInitCDSData20(ADOQuery1,Order_SubF); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PBType='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_SubQ); + SInitCDSData20(ADOQuery1,Order_SubQ); + PanZDY.Visible:=False; + if PState=4 then + begin + PState:=0; + FMainId:='999999'; + //OrderNo.Text:=''; + WFBCodeName.Text:=''; + WFBCodeName.Hint:=''; + PanZDY.Visible:=False; + with CDS_DB do + begin + First; + while not Eof do + begin + Edit; + FieldByName('DBID').Value:=''; + Post; + Next; + end; + end; + with Order_SubZ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v1Column1.Options.Focusing:=True; + with Order_SubF do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v2Column1.Options.Focusing:=True; + with Order_SubQ do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PBID').Value:=''; + FieldByName('YLKC').Value:=0; + FieldByName('YCLYJKC').Value:=0; + FieldByName('BZ').Value:=0; + FieldByName('SGQty').Value:=0; + Post; + Next; + end; + end; + v3Column1.Options.Focusing:=True; + end; +end; + +procedure TfrmOrderInPutZPNew.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmOrderInPutZPNew.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZPNew.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmOrderInPutZPNew.WFBCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; +end; + +procedure TfrmOrderInPutZPNew.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmOrderInPutZPNew.FormShow(Sender: TObject); +begin + InitData(); + ReadCxBandedGrid('',Tv1,'޷IJ'); + ReadCxBandedGrid('ϸ',Tv2,'޷IJ'); + ReadCxBandedGrid('',Tv3,'޷IJ'); +end; + +function TfrmOrderInPutZPNew.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFBOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='999999' then + begin + Append; + if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderType').Value:=Trim(OrderType); + SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0); + if PState=2 then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='999999' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + if PState=1 then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + end; + Post; + end; + FMainId:=Trim(maxno); + ///ϸ + with CDS_DB do + begin + First; + while not Eof do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'DB','WFB_DB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_DB '); + sql.Add(' where DBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('DBId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0); + Post; + end; + CDS_DB.Edit; + CDS_DB.FieldByName('DBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + //Ҫԭ + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + First; + while not Eof do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString); + FieldByName('PBType').Value:='Ҫ'; + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0); + Post; + end; + Order_SubZ.Edit; + Order_SubZ.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + //渨ԭ + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + First; + while not Eof do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0); + Post; + end; + Order_SubF.Edit; + Order_SubF.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + //ԭ + if not Order_SubQ.IsEmpty then + begin + with Order_SubQ do + begin + First; + while not Eof do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFBYCL_PB '); + sql.Add(' where PBId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PBId').Value:=Trim(maxno); + FieldByName('PBType').Value:=''; + FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString); + // SSetSaveDataCDSNew(); + SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0); + Post; + end; + Order_SubQ.Edit; + Order_SubQ.FieldByName('PBId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + + ///ӱ + {with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'OS','Order_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Order_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Order_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; } + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderInPutZPNew.TBSaveClick(Sender: TObject); +begin + OrderDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(WFBCodeName.Hint)='' then + begin + Application.MessageBox('δ壡','ʾ',0); + Exit; + end; + {if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + Exit; + end; } + if CDS_DB.Locate('BSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if CDS_DB.Locate('JSL',null,[]) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then + begin + Application.MessageBox('ָϣ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; +procedure TfrmOrderInPutZPNew.SELYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with SCDS_Sub do + begin + Append; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + Post; + end; + Next; + end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.EditYCL(SCDS_Sub:TClientDataSet); +begin + try + frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application); + with frmGetPGJBInList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + //First; + // while not Eof do + //begin + with SCDS_Sub do + begin + Edit; + SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString); + SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString); + SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString); + //SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString); + //SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString); + SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString); + //CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString); + SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString); + SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString); + SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString); + if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then + SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value- + ClientDataSet2.fieldbyname('YJKC').Value + else + SCDS_Sub.FieldByName('BZ').Value:=null; + //SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString); + //SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString); + //SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString); + //CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString); + //Post; + end; + // Next; + //end; + end; + end; + end; + finally + frmGetPGJBInList.Free; + end; +end; +procedure TfrmOrderInPutZPNew.ToolButton1Click(Sender: TObject); +begin + if MInt=1 then + begin + SELYCL(Order_SubZ); + end else + if MInt=2 then + begin + SELYCL(Order_SubF); + end else + if MInt=3 then + begin + SELYCL(Order_SubQ); + end; +end; + +procedure TfrmOrderInPutZPNew.ToolButton2Click(Sender: TObject); +begin + if MInt=1 then + begin + DelOrderSub(Order_SubZ); + end else + if MInt=2 then + begin + DelOrderSub(Order_SubF); + end else + if MInt=3 then + begin + DelOrderSub(Order_SubQ); + end; +end; +procedure TfrmOrderInPutZPNew.DelOrderSub(FOrder_Sub:TClientDataSet); +begin + if FOrder_Sub.IsEmpty then Exit; + if Trim(FOrder_Sub.fieldbyname('PBID').AsString)<>'' then + begin + if Application.MessageBox('ڴɾѱݣ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+''''); + ExecSQL; + end; + end; + FOrder_Sub.Delete; +end; + +procedure TfrmOrderInPutZPNew.CustomNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('CustomNoName'); + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.FXS:=99; + CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.CustomNoNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(CustomNoName,'CustomNoName'); +end; + +procedure TfrmOrderInPutZPNew.ArrivalPortNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('ArrivalPort'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.SCXNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('SCXName'); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.WJGNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WJGName'); + flagname:='ṹ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.WFBCodeNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(WFBCodeName.Name); + flagname:=''; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.WFBCodeNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name)); +end; + +procedure TfrmOrderInPutZPNew.ArrivalPortNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(ArrivalPortName,'ArrivalPort'); +end; + +procedure TfrmOrderInPutZPNew.SCXNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(SCXName,Trim(SCXName.Name)); +end; + +procedure TfrmOrderInPutZPNew.WJGNamePropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(WJGName,Trim(WJGName.Name)); +end; + +procedure TfrmOrderInPutZPNew.N1Click(Sender: TObject); +begin + with CDS_DB do + begin + Append; + FieldByName('DBUnit').Value:='/'; + Post; + end; +end; + +procedure TfrmOrderInPutZPNew.N2Click(Sender: TObject); +begin + if CDS_DB.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+''''); + ExecSQL; + end; + CDS_DB.Delete; +end; + +procedure TfrmOrderInPutZPNew.Day1Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day1.Text)='' then DayL:='0' + else DayL:=Trim(Day1.Text); + ETDDate.DateTime:=ETADate.Date-strtoint(DayL); +end; + +procedure TfrmOrderInPutZPNew.OrdQtyKeyPress(Sender: TObject; var Key: Char); +begin + if not (Key in['0'..'9','.',#8,#13]) then + begin + key:=#0; + end; +end; + +procedure TfrmOrderInPutZPNew.Day2Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day2.Text)='' then DayL:='0' + else DayL:=Trim(Day2.Text); + ZGDate.DateTime:=ETDDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZPNew.Day3Change(Sender: TObject); +var + DayL:string; +begin + if trim(Day3.Text)='' then DayL:='0' + else DayL:=Trim(Day3.Text); + BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL); +end; +procedure TfrmOrderInPutZPNew.ETADateChange(Sender: TObject); +begin + if Trim(Day1.Text)<>'' then + begin + ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text); + end; + if Trim(Day2.Text)<>'' then + begin + ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text); + end; +end; + +procedure TfrmOrderInPutZPNew.BegRKDateChange(Sender: TObject); +begin + if Trim(Day3.Text)<>'' then + begin + BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text); + end; +end; + +procedure TfrmOrderInPutZPNew.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=1; + Tv1.Bands[0].Caption:='Ҫԭϡ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlue; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZPNew.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=2; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭϡ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmOrderInPutZPNew.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + MInt:=3; + Tv1.Bands[0].Caption:='Ҫԭ'; + Tv2.Bands[0].Caption:='ԭ'; + Tv3.Bands[0].Caption:=''; + Tv1.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmOrderInPutZPNew.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLSH,DHSL:Double; +begin + {if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100); + if StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + end else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBfk.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end;} + {DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then + begin + YLSH:=0; + end else + YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*mvalue/100*(1+YLSH/100); + if DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLPB').Value:=mvalue; + Post; + end; + + end; } +end; + + +procedure TfrmOrderInPutZPNew.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,YLPB,DHSL:Double; +begin + {if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100); + if StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + end else + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + {if Trim(WFBfk.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end;} + {DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then + begin + YLPB:=0; + end else + YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString); + with Order_SubZ do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+mvalue/100); + if DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSH').Value:=mvalue; + Post; + end; + end; } +end; + +procedure TfrmOrderInPutZPNew.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,DHSL:Double; +begin + {if Trim(OrdQty.Text)='' then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingValue; //KO + if Trim(OrdUnit.Text)='K' then + begin + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000); + if StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + end else + begin + if Trim(WFBKZ.Text)='' then + begin + Application.MessageBox('زΪգ','ʾ',0); + Exit; + end; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + with Order_SubF do + begin + Edit; + FieldByName('YLQty').Value:=DHSL*(mvalue/1000); + if DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + FieldByName('YLSHQ').Value:=mvalue; + Post; + end; + end; } +end; + +procedure TfrmOrderInPutZPNew.OrdQtyChange(Sender: TObject); +var + YLPB,YLSH,DHSL:Double; +begin + {if Trim(OrdQty.Text)='' then Exit; + if Trim(OrdUnit.Text)='K' then + DHSL:=StrToFloat(OrdQty.Text) + else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then Exit; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + end; + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + Order_SubZ.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLPB').AsString)='' then + YLPB:=0 + else + YLPB:=StrToFloat(fieldbyname('YLPB').AsString); + if Trim(fieldbyname('YLSH').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSH').AsString); + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100); + if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubZ.EnableControls; + First; + end; + end; + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + Order_SubF.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLSHQ').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString); + FieldByName('YLQty').Value:=DHSL*(YLSH/1000); + if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubF.EnableControls; + First; + end; + end; } +end; +procedure TfrmOrderInPutZPNew.v3Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingValue; + with Order_SubQ do + begin + Edit; + FieldByName('YLQty').Value:=mvalue; + if mvalue-fieldbyname('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPutZPNew.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + with ADOQueryQG do + begin + Close; + sql.Clear; + sql.Add(' exec P_Print_SGD :OrderNo'); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + if ADOQueryQG.IsEmpty then Exit; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\빺.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['dyr']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\빺.rmf'),'ʾ',0); + end; +end; + +procedure TfrmOrderInPutZPNew.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubZ); +end; + +procedure TfrmOrderInPutZPNew.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubF); +end; + +procedure TfrmOrderInPutZPNew.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + EditYCL(Order_SubQ); +end; + +procedure TfrmOrderInPutZPNew.WFBBZUnit1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='װ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit1.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutZPNew.WFBBZUnit2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitZ'); + flagname:='аװ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit2.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutZPNew.WFBBZUnit3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitX'); + flagname:='Сװ'; + if ShowModal=1 then + begin + Self.FXS:=99; + WFBBZUnit3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + WFBBZUnit3.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end;} +end; + +procedure TfrmOrderInPutZPNew.BZPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('BZ'); + flagname:='۵λ'; + if ShowModal=1 then + begin + Self.FXS:=99; + BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.BZPropertiesChange(Sender: TObject); +begin + if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(BZ,'BZ'); +end; + +procedure TfrmOrderInPutZPNew.WFBBZQty1Change(Sender: TObject); +var + FQty1,FQty2,FQty3,FFK1,FFK2,FKZ1,YLPB,YLSH,DHSL:Double; +begin + {if Trim(WFBBZQty1.Text)<>'' then + begin + FQty1:=StrToFloat(WFBBZQty1.Text); + end else + begin + FQty1:=1; + end; + if Trim(WFBBZQty2.Text)<>'' then + begin + FQty2:=StrToFloat(WFBBZQty2.Text); + end else + begin + FQty2:=1; + end; + if Trim(WFBBZQty3.Text)<>'' then + begin + FQty3:=StrToFloat(WFBBZQty3.Text); + end else + begin + FQty3:=1; + end; + if Trim(WFBFK1.Text)<>'' then + begin + FFK1:=StrToFloat(WFBFK1.Text); + end else + begin + FFK1:=0; + end; + if Trim(WFBFK2.Text)<>'' then + begin + FFK2:=StrToFloat(WFBFK2.Text); + end else + begin + FFK2:=0; + end; + if Trim(WFBKZ.Text)<>'' then + begin + FKZ1:=StrToFloat(WFBKZ.Text); + end else + begin + FKZ1:=0; + end; + if Trim(WFBKZ.Text)='' then + begin + OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000); + OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('O'); + end else + begin + OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000*FKZ1/1000); + OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('K'); + end; + if Trim(OrdQty.Text)='' then Exit; + if Trim(OrdUnit.Text)='K' then + DHSL:=StrToFloat(OrdQty.Text) + else + if Trim(OrdUnit.Text)='O' then + begin + if Trim(WFBKZ.Text)='' then Exit; + DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000; + end; + if not Order_SubZ.IsEmpty then + begin + with Order_SubZ do + begin + Order_SubZ.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLPB').AsString)='' then + YLPB:=0 + else + YLPB:=StrToFloat(fieldbyname('YLPB').AsString); + if Trim(fieldbyname('YLSH').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSH').AsString); + FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100); + if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubZ.EnableControls; + First; + end; + end; + if not Order_SubF.IsEmpty then + begin + with Order_SubF do + begin + Order_SubF.DisableControls; + First; + while not Eof do + begin + Edit; + if Trim(fieldbyname('YLSHQ').AsString)='' then + YLSH:=0 + else + YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString); + FieldByName('YLQty').Value:=DHSL*(YLSH/1000); + if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then + FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value + else + FieldByName('BZ').Value:=null; + Post; + Next; + end; + Order_SubF.EnableControls; + First; + end; + end;} +end; + +procedure TfrmOrderInPutZPNew.vSubColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='װ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit1').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.vSubColumn8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitZ'); + flagname:='аװ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.vSubColumn10PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim('WFBBZUnitD'); + flagname:='Сװ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + CDS_Sub.FieldByName('SWFBBZUnit3').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.MenuItem1Click(Sender: TObject); +var + i:Integer; +begin + CopyAddRow(TvSub,CDS_Sub); + i:=CDS_Sub.RecordCount; + with CDS_Sub do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + FieldByName('SWFBColor').Value:=''; + FieldByName('XHNO').Value:=IntToStr(i); + Post; + end; + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); +end; + +procedure TfrmOrderInPutZPNew.N3Click(Sender: TObject); +var + mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double; + FOrdQty,FKZ:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SubID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + 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 WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Sub.Delete; + //YLUpdate(); + OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]); +end; + +procedure TfrmOrderInPutZPNew.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutZPNew.vSubColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBHX'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SWFBHW').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_OrderInPut_CY.dfm b/贸易管理/U_OrderInPut_CY.dfm new file mode 100644 index 0000000..7fcfac0 --- /dev/null +++ b/贸易管理/U_OrderInPut_CY.dfm @@ -0,0 +1,1004 @@ +object frmOrderInPut_CY: TfrmOrderInPut_CY + Left = 106 + Top = 12 + Width = 1217 + Height = 719 + Caption = #20986#36135#35745#21010 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1201 + Height = 37 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 429 + Width = 1201 + Height = 18 + Align = alTop + LookAndFeel.Kind = lfFlat + LookAndFeel.NativeStyle = False + Style = 9 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #20135#21697#20449#24687) + ClientRectBottom = 19 + ClientRectRight = 1201 + ClientRectTop = 19 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 476 + Width = 1201 + Height = 163 + Align = alTop + TabOrder = 2 + 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 + 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 + Column = v1Column7 + 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 + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column2: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + Width = 84 + end + object v1Column7: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneClMaroon + Styles.Footer = DataLink_TradeManage.FoneClMaroon + Styles.Header = DataLink_TradeManage.FoneClMaroon + Width = 60 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#36135#31665#25968 + DataBinding.FieldName = 'SordQty2' + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #31435#26041#25968 + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1SordQty4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 137 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 447 + Width = 1201 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + Visible = False + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 37 + Width = 1201 + Height = 18 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #20027#35201#20449#24687) + ClientRectBottom = 19 + ClientRectRight = 1201 + ClientRectTop = 19 + end + object Panel1: TPanel + Left = 0 + Top = 55 + Width = 1201 + Height = 374 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 65 + Height = 12 + Caption = #20986#36816#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 291 + Top = 16 + Width = 65 + Height = 12 + Caption = #30003#35831#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 31 + Top = 96 + Width = 65 + Height = 12 + Caption = #33337#36816#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 563 + Top = 43 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 563 + Top = 68 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 291 + Top = 71 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 31 + Top = 218 + Width = 65 + Height = 12 + Caption = #27880#24847#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 284 + Width = 65 + Height = 12 + Caption = #29983#20135#25552#31034#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 291 + Top = 43 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 563 + Top = 16 + Width = 66 + Height = 12 + Caption = #30003' '#35831' '#20154#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 = 31 + Top = 71 + Width = 34 + Height = 12 + Caption = 'PO#'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 809 + Top = 47 + Width = 13 + Height = 84 + Caption = #26631#13#10' '#13#10#31614#13#10#13#10#20869#13#10#13#10#23481 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 977 + Top = 47 + Width = 13 + Height = 84 + Caption = #21787#13#10#13#10#22836#13#10#13#10#20869#13#10#13#10#23481 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 291 + Top = 96 + Width = 65 + Height = 12 + Caption = #36135#20195#20844#21496#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 = 563 + Top = 96 + 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 Label8: TLabel + Left = 31 + Top = 144 + Width = 55 + Height = 12 + Caption = 'BIN NO'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 291 + Top = 172 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 170 + Width = 66 + Height = 12 + Caption = #25910' '#36135' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 31 + Top = 194 + Width = 66 + Height = 12 + Caption = #36890' '#30693' '#20154#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 = 291 + Top = 196 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#22320#22336#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 = 562 + Top = 121 + Width = 65 + Height = 12 + Caption = #20215#26684#26415#35821#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 291 + Top = 118 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#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 = 31 + Top = 122 + Width = 65 + Height = 12 + Caption = #20986#36816#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 291 + Top = 142 + Width = 65 + Height = 12 + Caption = #21457#31080#26684#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 563 + Top = 144 + Width = 65 + Height = 12 + Caption = #20986#20179#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 31 + Top = 348 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CYNO: TEdit + Tag = 2 + Left = 97 + Top = 12 + Width = 150 + Height = 20 + TabOrder = 0 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 39 + Width = 150 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object OrdDefDate1: TDateTimePicker + Tag = 2 + Left = 357 + Top = 12 + Width = 149 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 2 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 92 + Width = 150 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 3 + end + object OrdPerson2: TBtnEditC + Tag = 2 + Left = 629 + Top = 64 + Width = 150 + Height = 20 + Hint = 'OrdPerson2/'#19994#21153#21592 + TabOrder = 4 + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 357 + Top = 64 + Width = 150 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 5 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTBZNote: TMemo + Tag = 2 + Left = 97 + Top = 218 + Width = 681 + Height = 57 + Hint = 'MPRTBZNote/'#21253#35013#35201#27714 + ScrollBars = ssVertical + TabOrder = 6 + OnDblClick = MPRTBZNoteDblClick + end + object MPRTSCTeBieNote: TMemo + Tag = 2 + Left = 97 + Top = 283 + Width = 681 + Height = 57 + Hint = 'MPRTSCTeBieNote/'#29983#20135#29305#21035#25552#31034 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ScrollBars = ssVertical + TabOrder = 7 + Visible = False + OnDblClick = MPRTSCTeBieNoteDblClick + end + object conNO: TEdit + Tag = 2 + Left = 629 + Top = 39 + Width = 149 + Height = 20 + TabOrder = 8 + end + object KHConNO: TEdit + Tag = 2 + Left = 97 + Top = 64 + Width = 149 + Height = 20 + TabOrder = 9 + end + object orderNo: TBtnEditA + Tag = 2 + Left = 357 + Top = 39 + Width = 149 + Height = 20 + TabOrder = 10 + OnBtnClick = orderNoBtnClick + end + object OrdPerson1: TBtnEditC + Tag = 2 + Left = 629 + Top = 12 + Width = 150 + Height = 20 + Hint = 'OrdPerson2/'#19994#21153#21592 + TabOrder = 11 + OnBtnUpClick = OrdPerson1BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LBNameNote: TMemo + Tag = 2 + Left = 824 + Top = 19 + Width = 130 + Height = 150 + TabOrder = 12 + end + object MaiTouNote: TMemo + Tag = 2 + Left = 992 + Top = 19 + Width = 130 + Height = 150 + TabOrder = 13 + end + object orddefstr1: TEdit + Tag = 2 + Left = 357 + Top = 92 + Width = 149 + Height = 20 + TabOrder = 14 + end + object orddefstr2: TEdit + Tag = 2 + Left = 629 + Top = 92 + Width = 149 + Height = 20 + TabOrder = 15 + end + object orddefstr3: TEdit + Tag = 2 + Left = 97 + Top = 140 + Width = 149 + Height = 20 + TabOrder = 16 + end + object conDefstr1: TEdit + Tag = 2 + Left = 378 + Top = 165 + Width = 399 + Height = 20 + TabOrder = 17 + end + object conDefstr2: TEdit + Tag = 2 + Left = 378 + Top = 189 + Width = 399 + Height = 20 + TabOrder = 18 + end + object ConPerson1: TEdit + Tag = 2 + Left = 97 + Top = 166 + Width = 149 + Height = 20 + TabOrder = 19 + end + object ConPerson2: TEdit + Tag = 2 + Left = 97 + Top = 190 + Width = 149 + Height = 20 + TabOrder = 20 + end + object orddefstr5: TEdit + Tag = 2 + Left = 629 + Top = 116 + Width = 149 + Height = 20 + TabOrder = 21 + end + object orddefstr4: TEdit + Tag = 2 + Left = 357 + Top = 116 + Width = 149 + Height = 20 + TabOrder = 22 + end + object orddefstr6: TEdit + Tag = 2 + Left = 97 + Top = 116 + Width = 149 + Height = 20 + TabOrder = 23 + end + object orddefstr7: TEdit + Tag = 2 + Left = 357 + Top = 140 + Width = 149 + Height = 20 + TabOrder = 24 + end + object OrdDefDate2: TDateTimePicker + Tag = 2 + Left = 629 + Top = 140 + Width = 150 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 25 + end + object orddefstr10: TEdit + Tag = 2 + Left = 97 + Top = 344 + Width = 149 + Height = 20 + TabOrder = 26 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + Top = 265 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 940 + Top = 269 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 992 + Top = 340 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1048 + Top = 289 + end + object PopupMenu1: TPopupMenu + Left = 776 + Top = 336 + object N3: TMenuItem + Caption = #21024#34892 + OnClick = N3Click + end + end + object CDS_CG: TClientDataSet + Aggregates = <> + Params = <> + Left = 1044 + Top = 509 + end + object DataSource2: TDataSource + DataSet = CDS_CG + Left = 960 + Top = 505 + end + object PopupMenu2: TPopupMenu + Left = 740 + Top = 540 + object N9: TMenuItem + Caption = #22686#21152 + end + object N8: TMenuItem + Caption = '-' + end + object N4: TMenuItem + Caption = #22686#34892 + end + object N5: TMenuItem + Caption = #21024#34892 + end + object N6: TMenuItem + Caption = '-' + end + object N7: TMenuItem + Caption = #29983#25104#37319#36141#21333 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 820 + Top = 289 + end +end diff --git a/贸易管理/U_OrderInPut_CY.pas b/贸易管理/U_OrderInPut_CY.pas new file mode 100644 index 0000000..4e98bfa --- /dev/null +++ b/贸易管理/U_OrderInPut_CY.pas @@ -0,0 +1,1143 @@ +unit U_OrderInPut_CY; + +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, cxPC, Menus, + cxCheckBox, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmOrderInPut_CY = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabControl1: TcxTabControl; + v1Column1: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N3: TMenuItem; + CDS_CG: TClientDataSet; + DataSource2: TDataSource; + PopupMenu2: TPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + N8: TMenuItem; + N9: TMenuItem; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label39: TLabel; + Label25: TLabel; + Label10: TLabel; + Label43: TLabel; + Label14: TLabel; + Label19: TLabel; + Label42: TLabel; + Label2: TLabel; + Label4: TLabel; + CYNO: TEdit; + OrdDate: TDateTimePicker; + OrdDefDate1: TDateTimePicker; + DLYDate: TDateTimePicker; + OrdPerson2: TBtnEditC; + CustomerNoName: TBtnEditC; + MPRTBZNote: TMemo; + MPRTSCTeBieNote: TMemo; + conNO: TEdit; + KHConNO: TEdit; + orderNo: TBtnEditA; + Label5: TLabel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1SordQty4: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + OrdPerson1: TBtnEditC; + LBNameNote: TMemo; + Label36: TLabel; + MaiTouNote: TMemo; + Label37: TLabel; + Label6: TLabel; + Label7: TLabel; + orddefstr1: TEdit; + orddefstr2: TEdit; + orddefstr3: TEdit; + Label8: TLabel; + conDefstr1: TEdit; + Label13: TLabel; + Label9: TLabel; + Label35: TLabel; + Label11: TLabel; + conDefstr2: TEdit; + ConPerson1: TEdit; + ConPerson2: TEdit; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Label12: TLabel; + Label15: TLabel; + orddefstr5: TEdit; + orddefstr4: TEdit; + orddefstr6: TEdit; + Label16: TLabel; + orddefstr7: TEdit; + Label17: TLabel; + OrdDefDate2: TDateTimePicker; + Label18: TLabel; + orddefstr10: TEdit; + Label20: TLabel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure MPRTBZNoteDblClick(Sender: TObject); + procedure MPRTSCTeBieNoteDblClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure orderNoBtnClick(Sender: TObject); + procedure OrdPerson1BtnUpClick(Sender: TObject); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function YFData():Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPut_CY: TfrmOrderInPut_CY; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ProductOrderListSel, + U_ZdyAttachment; + +{$R *.dfm} + +function TfrmOrderInPut_CY.YFData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_CG.fieldbyname('custName').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + CRID:=ADOTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOCmd 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:=ADOCmd.fieldbyname('CRID').AsString; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CDS_CG.fieldbyname('custName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CDS_CG.fieldbyname('custName').AsString)+''''); + sql.Add(' and mainID='''+Trim(CDS_CG.fieldbyname('CRNO').AsString)+''''); + // sql.Add(' and subID='''+Trim(ADOQuerySub.fieldbyname('subID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + if GetLSNo(ADOCmd,YFID,'PF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOTemp.fieldbyname('YFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOCmd do + begin + if ADOTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(CDS_CG.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(CDS_CG.fieldbyname('custName').AsString); + FieldByName('CRTime').Value:=CDS_CG.fieldbyname('CRTime').AsDateTime; + FieldByName('Qty').Value:=CDS_CG.fieldbyname('Qty').AsFloat; + FieldByName('PS').Value:=0; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=CDS_CG.fieldbyname('Price').AsFloat; + FieldByName('money').Value:=CDS_CG.fieldbyname('money').AsFloat; + FieldByName('BBmoney').Value:=CDS_CG.fieldbyname('money').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('ComTaiTou').Value:=Trim(CDS_CG.fieldbyname('custName').AsString); + FieldByName('QtyUnit').Value:=Trim(CDS_CG.fieldbyname('QtyUnit').AsString); + FieldByName('YFName').Value:='ɹ'; + FieldByName('MainId').Value:=Trim(CDS_CG.fieldbyname('CRNO').AsString); + FieldByName('subId').Value:=Trim(CDS_CG.fieldbyname('CRID').AsString); + Post; + end; + + + with ADOCmd 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; + Result:=True; +end; + +procedure TfrmOrderInPut_CY.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼AA',Tv1,'ָʾ'); +end; + +procedure TfrmOrderInPut_CY.InitData(); +begin + + + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderCY_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCY_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + if PState=0 then + begin + + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + CYNO.Text:=''; + + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + + end; +end; + +procedure TfrmOrderInPut_CY.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPut_CY.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'ָʾ'); + + InitData(); +end; + +function TfrmOrderInPut_CY.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CY','JYOrderCY_Main',3,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 JYOrderCY_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrderCY_Main',Panel1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + FieldByName('status').Value:='0'; + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCY_Main where CYNO='''+Trim(CYNO.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('˵ظ!','ʾ',0); + Exit; + end; + FMainId:=Trim(maxno); + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'CS','JYOrderCY_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderCY_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderCY_Sub',0); + FieldByName('orderNO').Value:=Trim(orderNO.Text); + + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').AsFloat; + fieldbyname('PRTPrice').Value:=Order_Sub.fieldbyname('PRTPrice').AsFloat; + fieldbyname('PRTmoney').Value:=Order_Sub.fieldbyname('PRTmoney').AsFloat; + fieldbyname('SordQty1').Value:=Order_Sub.fieldbyname('SordQty1').AsFloat; + fieldbyname('SordQty2').Value:=Order_Sub.fieldbyname('SordQty2').AsFloat; + fieldbyname('SordQty3').Value:=Order_Sub.fieldbyname('SordQty3').AsFloat; + fieldbyname('SordQty4').Value:=Order_Sub.fieldbyname('SordQty4').AsFloat; + fieldbyname('SordQty5').Value:=Order_Sub.fieldbyname('SordQty5').AsFloat; + fieldbyname('SordQty6').Value:=Order_Sub.fieldbyname('SordQty6').AsFloat; + FieldByName('PriceUnit').Value:=Trim(Order_Sub.fieldbyname('PriceUnit').AsString); + FieldByName('Sorddefstr10').Value:=Trim(Order_Sub.fieldbyname('Sorddefstr10').AsString); + // FieldByName('PriceUnitRate').Value:=Order_Sub.fieldbyname('PriceUnitRate').AsFloat; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + + + +procedure TfrmOrderInPut_CY.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(orddefstr10.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PrtPrice',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PrtPrice',0,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Trim(orddefstr5.Text)='' then + begin + Application.MessageBox('۸ﲻΪ','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmOrderInPut_CY.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + // MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_CY.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + // FieldByName('SOrddefstr1').Value:=IntToStr(i); + { if i<9 then + FieldByName('SOrddefstr1').Value:='0'+Trim(IntToStr(i)) + else + FieldByName('SOrddefstr1').Value:=Trim(IntToStr(i)); } + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + //FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr4').Value:=null; + FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmOrderInPut_CY.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCY_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + +end; + +procedure TfrmOrderInPut_CY.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPut_CY.CustomerNoNameBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + orddefstr10.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmOrderInPut_CY.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPut_CY.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_CY.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_CY.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_CY.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut_CY.MPRTBZNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTBZNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTBZNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut_CY.MPRTSCTeBieNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTSCTeBieNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTSCTeBieNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut_CY.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.Date; + OrdDefDate1.DateTime:=OrdDate.Date; + OrdDefDate2.DateTime:=OrdDate.Date; +end; + +procedure TfrmOrderInPut_CY.N1Click(Sender: TObject); +begin + ToolButton1.Click; +end; + +procedure TfrmOrderInPut_CY.N3Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmOrderInPut_CY.conNoChange(Sender: TObject); + +var + ConMainId:string; +begin + + +end; + +procedure TfrmOrderInPut_CY.ToolButton4Click(Sender: TObject); +begin + CDS_CG.Append; + CDS_CG.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',date()); + CDS_CG.Post; +end; + +procedure TfrmOrderInPut_CY.ToolButton5Click(Sender: TObject); +begin + IF CDS_CG.IsEmpty then exit; + IF CDS_CG.FieldByName('defBit1').AsBoolean then + begin + if Application.MessageBox('˵ɲɹǷɾɹͲϢ','ʾ',32+4)<>IDYES then Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete BP_InOut_CF where CRNO='''+Trim(CDS_CG.fieldbyname('CRNO').AsString)+''''); + sql.Add('delete YF_Money_CR where mainID='''+Trim(CDS_CG.fieldbyname('CRNO').AsString)+''''); + ExecSQL; + end; + CDS_CG.Delete; +end; + +procedure TfrmOrderInPut_CY.ToolButton6Click(Sender: TObject); +var + strlist:Tstringlist; + i:integer; + maxno:string; +begin + // strlist:=Tstringlist.Create; + IF (CDS_CG.Locate('ssel',true,[]) and CDS_CG.Locate('defbit1',true,[])) then + begin + if Application.MessageBox('ѡϢвɹɣǷɣ','ʾ',32+4)<>IDYES then exit; + end; + + with CDS_CG do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('ssel').AsBoolean then + begin + if trim(fieldbyname('custName').AsString)='' then + begin + Application.MessageBox('ɲɹIJϢӦ̲Ϊգ','ʾϢ',MB_ICONERROR); + EnableControls; + Exit; + end; + // IF strlist.IndexOf(trim(fieldbyname('custName').AsString))<0 then + // strlist.Add(trim(fieldbyname('custName').AsString)); + end; + next; + end; + first; + EnableControls; + end; + ADOCmd.Connection.BeginTrans; + try + + with CDS_CG do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('ssel').AsBoolean then + begin + // maxNo:=trim(orderNo.Text)+'-'+CDS_CG.fieldbyname('ID').AsString; + // if trim(fieldbyname('custName').AsString)=trim(strlist.Strings[i]) then + // begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('update BP_InOut_CF SET defBit1=1'); + // sql.Add('inoutNO='+quotedstr(trim(orderNo.Text)+'-'+trim(maxno))); + sql.Add('where CRNO='+quotedstr(CDS_CG.fieldbyname('CRNO').AsString)); + execsql; + end; + + IF pos('',trim(CDS_CG.fieldbyname('custName').AsString))<1 then + begin + IF not YFData() then + begin + ADOCmd.Connection.RollbackTrans; + application.MessageBox('Ӧʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + end; + // end; + end; + next;; + end; + first; + EnableControls; + end; + + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('update BP_InOut_CF SET inoutNO=rtrim(B.orderNo)+''-''+cast(A.CRID as varchar) '); + sql.Add('from BP_InOut_CF A'); + sql.Add('inner join JYOrder_main B on B.mainID=A.mainID'); + sql.Add('where A.mainID='+quotedstr(CDS_CG.fieldbyname('mainID').AsString)); + execsql; + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('update BP_InOut_CF SET inoutNO=(select min(inoutNO) from BP_InOut_CF X where X.mainID=BP_InOut_CF.mainID and X.custName=BP_InOut_CF.custName)'); + sql.Add('where mainID='+quotedstr(CDS_CG.fieldbyname('mainID').AsString)); + execsql; + end; + { for i:=0 to strlist.Count-1 do + begin + if GetLSNo(ADOCmd,maxno,'',trim(orderNO.Text),2,0)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + + // i:=i+1; + end; } + ADOCmd.Connection.CommitTrans; + application.MessageBox('ɹɲɹ','ʾϢ'); + InitData(); + except + ADOCmd.Connection.RollbackTrans; + CDS_CG.EnableControls; + application.MessageBox('ɲɹʧܣ','ʾϢ',MB_ICONERROR); + end; +end; + +procedure TfrmOrderInPut_CY.orderNoBtnClick(Sender: TObject); +var + ConMainId:string; +begin + ConMainId:=''; + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + FFInt:=1; + if showmodal=1 then + begin + ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring); + end; + free; + end; + iF ConMainId='' then exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent from JYOrder_sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where B.mainID like '''+'%'+Trim(ConMainId)+'%'+''''); + Open; + end; + IF not ADOTemp.IsEmpty then + begin + ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString); + orderNo.Text:=Trim(ADOTemp.fieldbyname('orderNo').AsString); + CYNO.Text:='CY_'+Trim(ADOTemp.fieldbyname('ConNo').AsString); + CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + DLYDate.DateTime:=ADOTemp.fieldbyname('DLYDate').AsDateTime; + // ConMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + OrdPerson2.Text:=Trim(ADOTemp.fieldbyname('OrdPerson2').AsString); + KHCONNO.Text:=Trim(ADOTemp.fieldbyname('KHCONNO').AsString); + LBNameNote.Text:=Trim(ADOTemp.fieldbyname('LBNameNote').AsString); + MaiTouNote.Text:=Trim(ADOTemp.fieldbyname('MaiTouNote').AsString); + + ConPerson1.Text:=Trim(ADOTemp.fieldbyname('ConPerson2').AsString); + ConPerson2.Text:=Trim(ADOTemp.fieldbyname('ConPerson3').AsString); + + conDefstr1.Text:=Trim(ADOTemp.fieldbyname('conDefstr2').AsString); + conDefstr2.Text:=Trim(ADOTemp.fieldbyname('conDefstr6').AsString); + + orddefstr4.Text:=Trim(ADOTemp.fieldbyname('Payment').AsString); + orddefstr5.Text:=Trim(ADOTemp.fieldbyname('priceNote').AsString); + orddefstr6.Text:=Trim(ADOTemp.fieldbyname('ShippMent').AsString); + + orddefstr10.Text:=Trim(ADOTemp.fieldbyname('condefstr10').AsString); + end; + Order_Sub.EmptyDataSet; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOTemp.fieldbyname('MPRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit').AsString); +// FieldByName('PriceUnitRate').Value:=Trim(ADOTemp.fieldbyname('PriceUnitRate').AsString); + // FieldByName('PRTmoney').Value:=Trim(ADOTemp.fieldbyname('PRTmoney').AsString); + FieldByName('SordQty1').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; + + + +end; + +procedure TfrmOrderInPut_CY.OrdPerson1BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + end; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +end. diff --git a/贸易管理/U_OrderInPut_FB.dfm b/贸易管理/U_OrderInPut_FB.dfm new file mode 100644 index 0000000..b8465d3 --- /dev/null +++ b/贸易管理/U_OrderInPut_FB.dfm @@ -0,0 +1,1093 @@ +object frmOrderInPut_FB: TfrmOrderInPut_FB + Left = 172 + Top = 134 + Width = 1153 + Height = 603 + Caption = #21457#31080#32534#36753 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1137 + Height = 35 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 177 + Width = 1137 + Height = 18 + Align = alTop + LookAndFeel.Kind = lfFlat + LookAndFeel.NativeStyle = False + Style = 9 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #20135#21697#20449#24687) + ClientRectBottom = 19 + ClientRectRight = 1137 + ClientRectTop = 19 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 224 + Width = 1137 + Height = 273 + Align = alTop + TabOrder = 2 + 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 + 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 + Column = v1Column7 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Prtmoney + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column2: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + Width = 84 + end + object v1Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SordQty1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'priceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####;-0.####' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Prtmoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Prtmoney' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.00;-0.00' + Properties.OnEditValueChanged = v1PrtmoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 70 + end + object v1SOrdDefNote1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 137 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 195 + Width = 1137 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + Visible = False + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 35 + Width = 1137 + Height = 18 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #20027#35201#20449#24687) + ClientRectBottom = 19 + ClientRectRight = 1137 + ClientRectTop = 19 + end + object Panel1: TPanel + Left = 0 + Top = 53 + Width = 1137 + Height = 124 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #21457' '#31080' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 291 + Top = 19 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 299 + Top = 247 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label43: TLabel + Left = 291 + Top = 44 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 31 + Top = 39 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 31 + Top = 324 + Width = 65 + Height = 12 + Caption = #27880#24847#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 388 + Width = 65 + Height = 12 + Caption = #29983#20135#25552#31034#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 39 + Top = 247 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label5: TLabel + Left = 571 + Top = 251 + Width = 34 + Height = 12 + Caption = 'PO#'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label7: TLabel + Left = 559 + Top = 48 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 291 + Top = 278 + Width = 91 + Height = 12 + Caption = #25910#36135#20844#21496#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 276 + Width = 66 + Height = 12 + Caption = #25910' '#36135' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 31 + Top = 300 + Width = 66 + Height = 12 + Caption = #36890' '#30693' '#20154#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 = 291 + Top = 302 + Width = 91 + Height = 12 + Caption = #36890#30693#20844#21496#22320#22336#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 = 559 + Top = 73 + Width = 65 + Height = 12 + Caption = #20215#26684#26415#35821#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 291 + Top = 64 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#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 = 31 + Top = 62 + Width = 65 + Height = 12 + Caption = #20986#36816#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 31 + Top = 88 + Width = 65 + Height = 12 + Caption = #21457#31080#26684#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 575 + Top = 219 + Width = 65 + Height = 12 + Caption = #20986#36816#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 23 + Top = 240 + Width = 65 + Height = 12 + Caption = #38134#34892#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label6: TLabel + Left = 363 + Top = 188 + Width = 66 + Height = 12 + Caption = #24320' '#25143' '#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 287 + Top = 192 + Width = 65 + Height = 12 + Caption = #38134#34892#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 23 + Top = 215 + Width = 65 + Height = 12 + Caption = #38134#34892#20195#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 291 + Top = 88 + Width = 65 + Height = 12 + Caption = #21040#27454#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 283 + Top = 216 + Width = 66 + Height = 12 + Caption = #21551' '#29992' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 547 + Top = 200 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 862 + Top = 292 + Width = 13 + Height = 84 + Caption = #21787#13#10#13#10#22836#13#10#13#10#20869#13#10#13#10#23481 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 559 + Top = 20 + Width = 65 + Height = 12 + Caption = #21457#31080#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object invoiceNo: TEdit + Tag = 2 + Left = 97 + Top = 12 + Width = 150 + Height = 20 + TabOrder = 0 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 357 + Top = 15 + Width = 150 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object OrdPerson2: TBtnEditC + Tag = 2 + Left = 357 + Top = 40 + Width = 150 + Height = 20 + Hint = 'OrdPerson2/'#19994#21153#21592 + TabOrder = 2 + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 97 + Top = 36 + Width = 150 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 3 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTBZNote: TMemo + Tag = 2 + Left = 97 + Top = 324 + Width = 681 + Height = 57 + Hint = 'MPRTBZNote/'#21253#35013#35201#27714 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ScrollBars = ssVertical + TabOrder = 4 + OnDblClick = MPRTBZNoteDblClick + end + object MPRTSCTeBieNote: TMemo + Tag = 2 + Left = 93 + Top = 387 + Width = 681 + Height = 57 + Hint = 'MPRTSCTeBieNote/'#29983#20135#29305#21035#25552#31034 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ScrollBars = ssVertical + TabOrder = 5 + Visible = False + OnDblClick = MPRTSCTeBieNoteDblClick + end + object conNO: TEdit + Tag = 2 + Left = 365 + Top = 243 + Width = 149 + Height = 20 + TabOrder = 6 + Visible = False + end + object KHConNO: TEdit + Tag = 2 + Left = 637 + Top = 244 + Width = 149 + Height = 20 + TabOrder = 7 + Visible = False + end + object orderNo: TBtnEditA + Tag = 2 + Left = 105 + Top = 243 + Width = 149 + Height = 20 + TabOrder = 8 + Visible = False + OnBtnClick = orderNoBtnClick + end + object orddefstr10: TEdit + Tag = 2 + Left = 625 + Top = 44 + Width = 149 + Height = 20 + Enabled = False + TabOrder = 9 + end + object conDefstr1: TEdit + Tag = 2 + Left = 378 + Top = 271 + Width = 399 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 10 + end + object conDefstr2: TEdit + Tag = 2 + Left = 378 + Top = 295 + Width = 399 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 11 + end + object ConPerson1: TEdit + Tag = 2 + Left = 97 + Top = 272 + Width = 149 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 12 + end + object ConPerson2: TEdit + Tag = 2 + Left = 97 + Top = 296 + Width = 149 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 13 + end + object orddefstr5: TEdit + Tag = 2 + Left = 625 + Top = 68 + Width = 149 + Height = 20 + TabOrder = 14 + end + object orddefstr4: TEdit + Tag = 2 + Left = 357 + Top = 60 + Width = 149 + Height = 20 + TabOrder = 15 + end + object orddefstr6: TEdit + Tag = 2 + Left = 97 + Top = 60 + Width = 149 + Height = 20 + TabOrder = 16 + end + object orddefstr7: TEdit + Tag = 2 + Left = 97 + Top = 84 + Width = 149 + Height = 20 + TabOrder = 17 + end + object CYNO: TBtnEditA + Tag = 2 + Left = 633 + Top = 211 + Width = 149 + Height = 20 + TabOrder = 18 + Visible = False + OnBtnClick = CYNOBtnClick + end + object OrdDefStr9: TEdit + Tag = 2 + Left = 413 + Top = 184 + Width = 149 + Height = 20 + TabOrder = 19 + end + object OrdDefStr8: TBtnEditA + Tag = 2 + Left = 89 + Top = 236 + Width = 150 + Height = 20 + TabOrder = 20 + Visible = False + OnBtnClick = OrdDefStr8BtnClick + end + object OrdDefStr12: TEdit + Tag = 2 + Left = 785 + Top = 176 + Width = 421 + Height = 20 + TabOrder = 21 + Visible = False + end + object OrdDefStr11: TEdit + Tag = 2 + Left = 89 + Top = 211 + Width = 148 + Height = 20 + TabOrder = 22 + Visible = False + end + object MPRTTYpe: TEdit + Left = 1182 + Top = 149 + Width = 121 + Height = 20 + TabOrder = 23 + Visible = False + end + object OrdDefDate1: TDateTimePicker + Tag = 2 + Left = 357 + Top = 84 + Width = 150 + Height = 20 + BevelInner = bvNone + Date = 0.670856296288548100 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548100 + TabOrder = 24 + end + object OrdDefStr13: TEdit + Tag = 2 + Left = 361 + Top = 212 + Width = 149 + Height = 20 + TabOrder = 25 + end + object OrdDefStr14: TEdit + Tag = 2 + Left = 621 + Top = 188 + Width = 149 + Height = 20 + TabOrder = 26 + Visible = False + end + object orddefstr3: TMemo + Tag = 2 + Left = 885 + Top = 232 + Width = 152 + Height = 150 + TabOrder = 27 + end + object Orddefstr15: TComboBox + Tag = 2 + Left = 625 + Top = 16 + Width = 148 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 2 + TabOrder = 28 + Text = #22806#38144 + Items.Strings = ( + '' + #20869#38144 + #22806#38144) + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 903 + Top = 327 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 859 + Top = 330 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1016 + Top = 368 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 992 + Top = 340 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 941 + Top = 330 + end + object PopupMenu1: TPopupMenu + Left = 776 + Top = 336 + object N3: TMenuItem + Caption = #21024#34892 + OnClick = N3Click + end + end + object CDS_CG: TClientDataSet + Aggregates = <> + Params = <> + Left = 1044 + Top = 509 + end + object DataSource2: TDataSource + DataSet = CDS_CG + Left = 960 + Top = 505 + end + object PopupMenu2: TPopupMenu + Left = 740 + Top = 540 + object N9: TMenuItem + Caption = #22686#21152 + end + object N8: TMenuItem + Caption = '-' + end + object N4: TMenuItem + Caption = #22686#34892 + end + object N5: TMenuItem + Caption = #21024#34892 + end + object N6: TMenuItem + Caption = '-' + end + object N7: TMenuItem + Caption = #29983#25104#37319#36141#21333 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 820 + Top = 329 + end +end diff --git a/贸易管理/U_OrderInPut_FB.pas b/贸易管理/U_OrderInPut_FB.pas new file mode 100644 index 0000000..ca14940 --- /dev/null +++ b/贸易管理/U_OrderInPut_FB.pas @@ -0,0 +1,1444 @@ +unit U_OrderInPut_FB; + +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, cxPC, Menus, + cxCheckBox, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmOrderInPut_FB = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabControl1: TcxTabControl; + v1SOrdDefNote1: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N3: TMenuItem; + CDS_CG: TClientDataSet; + DataSource2: TDataSource; + PopupMenu2: TPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + N8: TMenuItem; + N9: TMenuItem; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label10: TLabel; + Label43: TLabel; + Label14: TLabel; + Label19: TLabel; + Label42: TLabel; + Label2: TLabel; + invoiceNo: TEdit; + OrdDate: TDateTimePicker; + OrdPerson2: TBtnEditC; + CustomerNoName: TBtnEditC; + MPRTBZNote: TMemo; + MPRTSCTeBieNote: TMemo; + conNO: TEdit; + KHConNO: TEdit; + orderNo: TBtnEditA; + Label5: TLabel; + v1Column3: TcxGridDBColumn; + Label7: TLabel; + orddefstr10: TEdit; + conDefstr1: TEdit; + Label13: TLabel; + Label9: TLabel; + Label35: TLabel; + Label11: TLabel; + conDefstr2: TEdit; + ConPerson1: TEdit; + ConPerson2: TEdit; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Label12: TLabel; + Label15: TLabel; + orddefstr5: TEdit; + orddefstr4: TEdit; + orddefstr6: TEdit; + Label16: TLabel; + orddefstr7: TEdit; + Label17: TLabel; + Label20: TLabel; + CYNO: TBtnEditA; + v1Prtmoney: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label4: TLabel; + Label6: TLabel; + OrdDefStr9: TEdit; + OrdDefStr8: TBtnEditA; + Label21: TLabel; + Label28: TLabel; + OrdDefStr12: TEdit; + OrdDefStr11: TEdit; + MPRTTYpe: TEdit; + Label8: TLabel; + OrdDefDate1: TDateTimePicker; + Label18: TLabel; + OrdDefStr13: TEdit; + Label22: TLabel; + OrdDefStr14: TEdit; + orddefstr3: TMemo; + Label37: TLabel; + Label23: TLabel; + Orddefstr15: TComboBox; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure MPRTBZNoteDblClick(Sender: TObject); + procedure MPRTSCTeBieNoteDblClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure orderNoBtnClick(Sender: TObject); + procedure OrdPerson1BtnUpClick(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1PrtmoneyPropertiesEditValueChanged(Sender: TObject); + procedure CYNOBtnClick(Sender: TObject); + procedure v1Column8PropertiesEditValueChanged(Sender: TObject); + procedure OrdDefStr8BtnClick(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function YSData():Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo,ftype:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPut_FB: TfrmOrderInPut_FB; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ProductOrderListSel,U_ProductOrderNewList_CY_SEL, + U_ZdyAttachment; + +{$R *.dfm} + +function TfrmOrderInPut_FB.YSData():Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='+quotedstr(Trim(CustomerNoName.Text))); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + CRID:=ADOTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOCmd 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:=ADOCmd.fieldbyname('CRID').AsString; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CustomerNoName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='+quotedstr(Trim(CustomerNoName.Text))); + sql.Add(' and mainID='''+Trim(Order_Sub.fieldbyname('mainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Sub.fieldbyname('subID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + if GetLSNo(ADOCmd,YFID,'YS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOTemp.fieldbyname('YFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOCmd do + begin + if ADOTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Sub.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(CustomerNoName.Text); + FieldByName('CRTime').Value:=OrdDate.Date; + FieldByName('Qty').Value:=Order_Sub.fieldbyname('SordQty1').AsFloat; + FieldByName('PS').Value:=Order_Sub.fieldbyname('SordQty2').AsFloat; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Sub.fieldbyname('prtPrice').AsFloat; + FieldByName('money').Value:=Order_Sub.fieldbyname('prtmoney').AsFloat; + FieldByName('BBmoney').Value:=Order_Sub.fieldbyname('prtmoney').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=Order_Sub.fieldbyname('priceUnit').AsString; + FieldByName('ComTaiTou').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Sub.fieldbyname('OrderUnit').AsString); + FieldByName('YFName').Value:='۽'; + FieldByName('MainId').Value:=Trim(Order_Sub.fieldbyname('MainId').AsString); + FieldByName('subId').Value:=Trim(Order_Sub.fieldbyname('subId').AsString); + FieldByName('orderNO').Value:=Trim(Order_Sub.fieldbyname('orderNO').AsString); + FieldByName('P_CodeName').Value:=Trim(Order_Sub.fieldbyname('prtCodeName').AsString); + FieldByName('P_Spec').Value:=Trim(Order_Sub.fieldbyname('prtspec').AsString); + FieldByName('status').Value:='0'; + Post; + end; + with ADOCmd 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; + Result:=True; +end; + +procedure TfrmOrderInPut_FB.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼AA',Tv1,'ָʾ'); +end; + +procedure TfrmOrderInPut_FB.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderFB_Sub where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderFB_Main A '); + SQL.ADD('where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + if PState=0 then + begin + // invoiceNO.Text:='Զ'; + end else + begin + Orddefstr15.Enabled:=false; + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + // invoiceNO.Text:='Զ'; + Orddefstr15.Enabled:=true; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmOrderInPut_FB.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPut_FB.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'ָʾ'); + InitData(); +end; + +function TfrmOrderInPut_FB.SaveData():Boolean; +var + maxno,finvoiceNO,fmxType:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','JYOrderFB_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + { with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_MaxInvoiceNo '); + sql.Add(' @MPRTType='''+trim(Ftype)+''' '); + open; + end; + IF trim(ADOTemp.FieldByName('maxStr').AsString)='XXX' then + begin + fmxType:=uppercase(formatdateTime('yy',DServerDate)); + IF trim(Orddefstr15.Text)='' then + fmxType:='Q'+fmxType; + if GetLSNo(ADOCmd,finvoiceNO,fmxType,'JYOrderCon_Main',3,0)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end + else + finvoiceNO:=trim(ADOTemp.FieldByName('maxStr').AsString); + + if trim(Orddefstr15.Text)='' then + finvoiceNO:=Trim(finvoiceNO)+trim(orddefstr10.Text) + else + finvoiceNO:='K'+Trim(finvoiceNO)+trim(orddefstr10.Text); + invoiceNO.Text:=uppercase(finvoiceNO); } + { IF trim(Orddefstr15.Text)='' then + fmxType:='Q'+trim(orddefstr10.Text)+uppercase(formatdateTime('yy',DServerDate)) + else + fmxType:='K'+trim(orddefstr10.Text)+uppercase(formatdateTime('yy',DServerDate)); + if GetLSNo(ADOCmd,finvoiceNO,fmxType,'JYOrderCon_Main',3,0)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + invoiceNO.Text:=uppercase(finvoiceNO); } + end + else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderFB_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrderFB_Main',Panel1,2); + FieldByName('OrdDefStr15').Value:=Trim(Orddefstr15.Text); + FieldByName('status').Value:='0'; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderFB_Main where INVoiceNO='''+Trim(INVoiceNO.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('˵ظ!','ʾ',0); + Exit; + end; + FMainId:=Trim(maxno); + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('delete from JYOrderFB_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add('delete from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + execsql; + end; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FS','JYOrderFB_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderFB_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderFB_Sub',0); + // FieldByName('orderNO').Value:=Trim(orderNO.Text); + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').AsFloat; + fieldbyname('PRTPrice').Value:=Order_Sub.fieldbyname('PRTPrice').AsFloat; + fieldbyname('PRTmoney').Value:=Order_Sub.fieldbyname('PRTmoney').AsFloat; + fieldbyname('SordQty1').Value:=Order_Sub.fieldbyname('SordQty1').AsFloat; + fieldbyname('SordQty2').Value:=Order_Sub.fieldbyname('SordQty2').AsFloat; + fieldbyname('SordQty3').Value:=Order_Sub.fieldbyname('SordQty3').AsFloat; + fieldbyname('SordQty4').Value:=Order_Sub.fieldbyname('SordQty4').AsFloat; + fieldbyname('SordQty5').Value:=Order_Sub.fieldbyname('SordQty5').AsFloat; + fieldbyname('SordQty6').Value:=Order_Sub.fieldbyname('SordQty6').AsFloat; + fieldbyname('SordQty7').Value:=Order_Sub.fieldbyname('SordQty7').AsFloat; + FieldByName('PriceUnit').Value:=Trim(Order_Sub.fieldbyname('PriceUnit').AsString); + FieldByName('Sorddefstr10').Value:=Trim(Order_Sub.fieldbyname('Sorddefstr10').AsString); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('mainID').Value:=Trim(FMainId); + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + IF not YSdata() then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + + + +procedure TfrmOrderInPut_FB.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if trim(orddefstr10.Text)='' then + begin + application.MessageBox('ͻƲΪ','ʾ',0); + exit; + end; + + if order_Sub.Locate('PrtCodeName',null,[])=True then + begin + application.MessageBox('ƷƲΪ','ʾ',0); + exit; + end; + if trim(Orddefstr15.Text)='' then + begin + application.MessageBox('ƱͲΪ','ʾ',0); + exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + ModalResult:=1; +end; + +procedure TfrmOrderInPut_FB.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.ToolButton1Click(Sender: TObject); +var + i:Integer; + priceUnit:string; +begin + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + // FFInt:=1; + if showmodal=1 then + begin + Order_Main.DisableControls; + Order_Main.First; + while not Order_Main.Eof do + begin + IF Order_Main.fieldbyname('ssel').AsBoolean then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.Add('from JYOrder_sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where A.subID like '''+'%'+Trim(Order_Main.fieldbyname('subID').AsString)+'%'+''''); + Open; + end; + with ADOTemp do + begin + First; + Order_Sub.Last; + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Order_Sub.RecNo; + FieldByName('OrderNO').Value:=Trim(ADOTemp.fieldbyname('OrderNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOTemp.fieldbyname('MPRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:='USD'; +// FieldByName('PriceUnitRate').Value:=Trim(ADOTemp.fieldbyname('PriceUnitRate').AsString); + // FieldByName('PRTmoney').Value:=Trim(ADOTemp.fieldbyname('PRTmoney').AsString); + // FieldByName('SordQty1').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('subID').AsString); + Post; + end; + end; + end; + Order_Main.Next; + end; + Order_Sub.EnableControls; + end; + Order_Main.EnableControls; + free; + end; + // + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut_FB.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + + +{ if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCY_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; } + Order_Sub.Delete; + +end; + +procedure TfrmOrderInPut_FB.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPut_FB.CustomerNoNameBtnUpClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='ͻ'; + if Trim(DParameters1)<>'Ȩ' then + MainType:=Trim(DName); + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end;} + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZDYCode').AsString); + orddefstr10.Text:=Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmOrderInPut_FB.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPut_FB.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut_FB.MPRTBZNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTBZNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTBZNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut_FB.MPRTSCTeBieNoteDblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; + i:integer; +begin + fsj:=Trim(TMemo(Sender).Hint); + FWZ:=Pos('/',fsj); + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + MPRTSCTeBieNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTSCTeBieNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut_FB.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + OrdDefDate1.DateTime:=SGetServerDateTime(ADOTemp); + // DlyDate.DateTime:=OrdDate.Date; + // OrdDefDate1.DateTime:=OrdDate.Date; + // OrdDefDate2.DateTime:=OrdDate.Date; + +end; + +procedure TfrmOrderInPut_FB.N1Click(Sender: TObject); +begin + ToolButton1.Click; +end; + +procedure TfrmOrderInPut_FB.N3Click(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmOrderInPut_FB.conNoChange(Sender: TObject); + +var + ConMainId:string; +begin + + +end; + +procedure TfrmOrderInPut_FB.ToolButton4Click(Sender: TObject); +begin + CDS_CG.Append; + CDS_CG.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',date()); + CDS_CG.Post; +end; + +procedure TfrmOrderInPut_FB.ToolButton5Click(Sender: TObject); +begin + IF CDS_CG.IsEmpty then exit; + IF CDS_CG.FieldByName('defBit1').AsBoolean then + begin + if Application.MessageBox('˵ɲɹǷɾɹͲϢ','ʾ',32+4)<>IDYES then Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete BP_InOut_CF where CRNO='''+Trim(CDS_CG.fieldbyname('CRNO').AsString)+''''); + sql.Add('delete YF_Money_CR where mainID='''+Trim(CDS_CG.fieldbyname('CRNO').AsString)+''''); + ExecSQL; + end; + CDS_CG.Delete; +end; + +procedure TfrmOrderInPut_FB.orderNoBtnClick(Sender: TObject); +var + ConMainId:string; +begin + ConMainId:=''; + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + FFInt:=1; + if showmodal=1 then + begin + ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring); + end; + free; + end; + iF ConMainId='' then exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.Add('from JYOrder_sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where B.mainID like '''+'%'+Trim(ConMainId)+'%'+''''); + Open; + end; + IF not ADOTemp.IsEmpty then + begin + ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString); + orderNo.Text:=Trim(ADOTemp.fieldbyname('orderNo').AsString); + // CYNO.Text:='CY_'+Trim(ADOTemp.fieldbyname('ConNo').AsString); + CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + // DLYDate.DateTime:=ADOTemp.fieldbyname('DLYDate').AsDateTime; + // ConMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + OrdPerson2.Text:=Trim(ADOTemp.fieldbyname('OrdPerson2').AsString); + KHCONNO.Text:=Trim(ADOTemp.fieldbyname('KHCONNO').AsString); + // LBNameNote.Text:=Trim(ADOTemp.fieldbyname('LBNameNote').AsString); + // MaiTouNote.Text:=Trim(ADOTemp.fieldbyname('MaiTouNote').AsString); + + ConPerson1.Text:=Trim(ADOTemp.fieldbyname('ConPerson2').AsString); + ConPerson2.Text:=Trim(ADOTemp.fieldbyname('ConPerson3').AsString); + + conDefstr1.Text:=Trim(ADOTemp.fieldbyname('conDefstr2').AsString); + conDefstr2.Text:=Trim(ADOTemp.fieldbyname('conDefstr6').AsString); + + orddefstr4.Text:=Trim(ADOTemp.fieldbyname('Payment').AsString); + orddefstr5.Text:=Trim(ADOTemp.fieldbyname('priceNote').AsString); + orddefstr6.Text:=Trim(ADOTemp.fieldbyname('ShippMent').AsString); + orddefstr10.Text:=Trim(ADOTemp.fieldbyname('condefstr10').AsString); + end; + Order_Sub.EmptyDataSet; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOTemp.fieldbyname('MPRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit1').AsString); +// FieldByName('PriceUnitRate').Value:=Trim(ADOTemp.fieldbyname('PriceUnitRate').AsString); + // FieldByName('PRTmoney').Value:=Trim(ADOTemp.fieldbyname('PRTmoney').AsString); + FieldByName('SordQty1').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; + + + +end; + +procedure TfrmOrderInPut_FB.OrdPerson1BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + end; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmOrderInPut_FB.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BZType'; + flagname:=''; + { if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end;} + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.v1Column7PropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + edit; + if Trim(TcxTextEdit(Sender).EditingText)='' then + begin + fieldbyname(Fieldname).Value:='0'; + end + else + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('PrtMoney').Value:=strtofloat(format('%.2f',[Fieldbyname('SordQty1').AsFloat*Fieldbyname('PrtPrice').AsFloat ])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut_FB.v1PrtmoneyPropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + edit; + if Trim(TcxTextEdit(Sender).EditingText)='' then + begin + fieldbyname(Fieldname).Value:='0'; + end + else + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + IF Fieldbyname('SordQty1').AsFloat>0 then + FieldByName('PrtPrice').Value:=(Fieldbyname('PrtMoney').AsFloat/Fieldbyname('SordQty1').AsFloat); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut_FB.CYNOBtnClick(Sender: TObject); +var + ConMainId:string; +begin + ConMainId:=''; + frmProductOrderNewList_CY_SEL:=TfrmProductOrderNewList_CY_SEL.create(self); + with frmProductOrderNewList_CY_SEL do + begin + FFInt:=1; + if showmodal=1 then + begin + ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring); + end; + free; + end; + iF ConMainId='' then exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('C.BankNo,C.BankName,C.BankSelfFastNo,C.BankAddress,C.MPRTTYpe,'); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid) '); + sql.Add('from JYOrderCY_sub A '); + sql.Add('inner join JYOrderCY_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where B.mainID like '''+'%'+Trim(ConMainId)+'%'+''''); + Open; + end; + IF not ADOTemp.IsEmpty then + begin + ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString); + orderNo.Text:=Trim(ADOTemp.fieldbyname('orderNo').AsString); + CYNO.Text:=Trim(ADOTemp.fieldbyname('CYNO').AsString); + CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + OrdPerson2.Text:=Trim(ADOTemp.fieldbyname('OrdPerson2').AsString); + KHCONNO.Text:=Trim(ADOTemp.fieldbyname('KHCONNO').AsString); + ConPerson1.Text:=Trim(ADOTemp.fieldbyname('ConPerson1').AsString); + ConPerson2.Text:=Trim(ADOTemp.fieldbyname('ConPerson2').AsString); + conDefstr1.Text:=Trim(ADOTemp.fieldbyname('conDefstr1').AsString); + conDefstr2.Text:=Trim(ADOTemp.fieldbyname('conDefstr2').AsString); + + orddefstr3.Text:=Trim(ADOTemp.fieldbyname('MaiTouNote').AsString); + orddefstr4.Text:=Trim(ADOTemp.fieldbyname('orddefstr4').AsString); + orddefstr5.Text:=Trim(ADOTemp.fieldbyname('orddefstr5').AsString); + + orddefstr6.Text:=Trim(ADOTemp.fieldbyname('orddefstr6').AsString); + OrdDefStr8.Text:=Trim(ADOTemp.Fieldbyname('BankNo').AsString); + OrdDefStr9.text:=Trim(ADOTemp.fieldbyname('BankName').AsString); + orddefstr10.Text:=Trim(ADOTemp.fieldbyname('condefstr10').AsString); + OrdDefStr11.Text:=Trim(ADOTemp.Fieldbyname('BankSelfFastNo').AsString); + OrdDefStr12.text:=Trim(ADOTemp.fieldbyname('BankAddress').AsString); + if Trim(ADOTemp.fieldbyname('MPRTTYpe').AsString)='' then + begin + MPRTTYpe.Text:=''; + end + else + MPRTTYpe.Text:=Trim(ADOTemp.fieldbyname('MPRTTYpe').AsString); + end; + Order_Sub.EmptyDataSet; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOTemp.fieldbyname('PRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOTemp.fieldbyname('PRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOTemp.fieldbyname('PRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(ADOTemp.fieldbyname('PRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(ADOTemp.fieldbyname('PRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit1').AsString); + FieldByName('SordQty1').Value:=Trim(ADOTemp.fieldbyname('SordQty1').AsString); + FieldByName('SordQty3').Value:=Trim(ADOTemp.fieldbyname('SordQty3').AsString); + FieldByName('SordQty4').Value:=Trim(ADOTemp.fieldbyname('SordQty4').AsString); + FieldByName('SordQty5').Value:=Trim(ADOTemp.fieldbyname('SordQty5').AsString); + FieldByName('PrtMoney').Value:=strtofloat(format('%.2f',[Fieldbyname('SordQty1').AsFloat*Fieldbyname('PrtPrice').AsFloat ])); + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; +end; + +procedure TfrmOrderInPut_FB.v1Column8PropertiesEditValueChanged( + Sender: TObject); +var + Fieldname:string; +begin + Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + begin + with Order_Sub do + begin + edit; + if Trim(TcxTextEdit(Sender).EditingText)='' then + begin + fieldbyname(Fieldname).Value:='0'; + end + else + fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('PrtMoney').Value:=(Fieldbyname('SordQty1').AsFloat)*(Fieldbyname('PrtPrice').AsFloat); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmOrderInPut_FB.OrdDefStr8BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BankNo'; + flagname:='˺'; + if ShowModal=1 then + begin + OrdDefStr8.text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrderCon_Main where BankNo='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' and MPRTTYpe='''+Trim(MPRTTYpe.Text)+''''); + sql.Add(' order by FillTime desc '); + Open; + Self.OrdDefStr9.Text:=Trim(ADOTemp.fieldbyname('BankName').AsString); + Self.OrdDefStr12.Text:=Trim(ADOTemp.fieldbyname('BankAddress').AsString); + Self.OrdDefStr11.Text:=Trim(ADOTemp.fieldbyname('BankSelfFastNo').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut_FB.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + FFInt:=1; + if showmodal=1 then + begin + with Order_Sub do + begin + edit; + FieldByName('XHNO').Value:=Trim(Order_Main.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(Order_Main.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(Order_Main.fieldbyname('MPRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(Order_Main.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(Order_Main.fieldbyname('MPRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(Order_Main.fieldbyname('MPRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(Order_Main.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(Order_Main.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(Order_Main.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(Order_Main.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(Order_Main.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(Order_Main.fieldbyname('PriceUnit1').AsString); +// FieldByName('PriceUnitRate').Value:=Trim(ADOTemp.fieldbyname('PriceUnitRate').AsString); + // FieldByName('PRTmoney').Value:=Trim(ADOTemp.fieldbyname('PRTmoney').AsString); + FieldByName('SordQty1').Value:=Trim(Order_Main.fieldbyname('PRTOrderQty').AsString); + + FieldByName('Sorddefstr10').Value:=Trim(Order_Main.fieldbyname('subID').AsString); + Post; + end; + end; + free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut_FB.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + FFInt:=1; + if showmodal=1 then + begin + Order_Main.First; + while not Order_Main.Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.Add('from JYOrder_sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where A.subID like '''+'%'+Trim(Order_Main.fieldbyname('subID').AsString)+'%'+''''); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString); + FieldByName('OrderNO').Value:=Trim(ADOTemp.fieldbyname('OrderNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOTemp.fieldbyname('MPRTspec').AsString); + FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTMF').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('PRTKZ').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('Sorddefstr1').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr1').AsString); + FieldByName('Sorddefstr2').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr2').AsString); + FieldByName('Sorddefstr4').Value:=Trim(ADOTemp.fieldbyname('Sorddefstr4').AsString); + FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString); + // FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit1').AsString); +// FieldByName('PriceUnitRate').Value:=Trim(ADOTemp.fieldbyname('PriceUnitRate').AsString); + // FieldByName('PRTmoney').Value:=Trim(ADOTemp.fieldbyname('PRTmoney').AsString); + // FieldByName('SordQty1').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString); + + FieldByName('Sorddefstr10').Value:=Trim(ADOTemp.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; + Order_Main.Next; + end; + end; + free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/贸易管理/U_OrderInPut_HYWT.dfm b/贸易管理/U_OrderInPut_HYWT.dfm new file mode 100644 index 0000000..77a0af7 --- /dev/null +++ b/贸易管理/U_OrderInPut_HYWT.dfm @@ -0,0 +1,533 @@ +object frmorderInput_HYWT: TfrmorderInput_HYWT + Left = 230 + Top = 78 + Width = 1154 + Height = 539 + Caption = #36135#36816#22996#25176 + 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 ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1146 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tsel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = TselClick + end + object TChk: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TChkClick + end + object TNOChk: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TNOChkClick + end + object TBPrint: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 121 + Width = 1146 + Height = 348 + Align = alTop + TabOrder = 1 + object TV1: TcxGridDBTableView + OnDblClick = TV1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V1WTNo: TcxGridDBColumn + Caption = #22996#25176#21333#21495 + DataBinding.FieldName = 'WTNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1Conno: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'Conno' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1CustomerNoName: TcxGridDBColumn + Caption = #32463#33829#21333#20301 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1shiptime: TcxGridDBColumn + Caption = #35013#36816#26399#38480 + DataBinding.FieldName = 'shiptime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1orddefstr1: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'orddefstr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1khconNo: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'khconNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1BLNO: TcxGridDBColumn + Caption = 'B/L NO' + DataBinding.FieldName = 'BLNO' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1vessel: TcxGridDBColumn + Caption = #33337#21517 + DataBinding.FieldName = 'vessel' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1voy: TcxGridDBColumn + Caption = #33322#27425 + DataBinding.FieldName = 'voy' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1ConPerson1: TcxGridDBColumn + Caption = #25910#36135#20154 + DataBinding.FieldName = 'ConPerson1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1XYNO: TcxGridDBColumn + Caption = #20449#29992#35777#21495 + DataBinding.FieldName = 'XYNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1EXPORT: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'EXPORT' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1TDNUM: TcxGridDBColumn + Caption = #25552#21333#20221#25968 + DataBinding.FieldName = 'TDNUM' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1payaddress: TcxGridDBColumn + Caption = #36816#36153#20184#33267 + DataBinding.FieldName = 'payaddress' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1POD: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'POD' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1DLYDate: TcxGridDBColumn + Caption = #35013#31665#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1DLYaddress: TcxGridDBColumn + Caption = #35013#31665#22320#22336 + DataBinding.FieldName = 'DLYaddress' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1BJNO: TcxGridDBColumn + Caption = #26631#35760#21495#30721 + DataBinding.FieldName = 'BJNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1BGTYPE: TcxGridDBColumn + Caption = #21253#35013#24335#26679 + DataBinding.FieldName = 'BGTYPE' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1PRTspec: TcxGridDBColumn + Caption = #36135#21517#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1SordQty1: TcxGridDBColumn + Caption = #25104#20132#26465#20214 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1PRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1PRTCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1SordQty3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object V1PrtPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 100 + Width = 1146 + Height = 21 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #23436#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 1146 + ClientRectTop = 19 + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1146 + Height = 68 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label1: TLabel + Left = 32 + 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 Label2: TLabel + Left = 269 + Top = 15 + Width = 52 + Height = 12 + Caption = #22996#25176#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 = 269 + Top = 39 + Width = 52 + Height = 12 + Caption = #32463#33829#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 491 + Top = 15 + Width = 53 + 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 Label5: TLabel + Left = 511 + Top = 39 + Width = 28 + 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 begdate: TDateTimePicker + Left = 89 + Top = 11 + Width = 110 + Height = 20 + Date = 41962.538274189800000000 + Time = 41962.538274189800000000 + TabOrder = 0 + end + object enddate: TDateTimePicker + Left = 89 + Top = 35 + Width = 110 + Height = 20 + Date = 41962.538391562500000000 + Time = 41962.538391562500000000 + TabOrder = 1 + end + object WTNo: TEdit + Left = 325 + Top = 11 + Width = 115 + Height = 20 + TabOrder = 2 + OnChange = WTNoChange + end + object CustomerNoName: TEdit + Left = 325 + Top = 35 + Width = 115 + Height = 20 + TabOrder = 3 + OnChange = WTNoChange + end + object conNo: TEdit + Left = 548 + Top = 11 + Width = 115 + Height = 20 + TabOrder = 4 + OnChange = WTNoChange + end + object KHConNo: TEdit + Left = 548 + Top = 35 + Width = 115 + Height = 20 + TabOrder = 5 + OnChange = WTNoChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 580 + Top = 224 + end + object order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 328 + Top = 224 + end + object ADOQueryTMP: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 372 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 412 + Top = 224 + end + object DataSource1: TDataSource + DataSet = order_Main + Left = 452 + Top = 224 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = order_Main + Left = 540 + Top = 224 + end + object RMPrint: 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 = 496 + Top = 224 + ReportData = {} + end +end diff --git a/贸易管理/U_OrderInPut_HYWT.pas b/贸易管理/U_OrderInPut_HYWT.pas new file mode 100644 index 0000000..510ae70 --- /dev/null +++ b/贸易管理/U_OrderInPut_HYWT.pas @@ -0,0 +1,363 @@ +unit U_OrderInPut_HYWT; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, + ExtCtrls, StdCtrls, ADODB, DBClient, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, cxCalendar; + +type + TfrmorderInput_HYWT = class(TForm) + ToolBar2: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + Tsel: TToolButton; + TChk: TToolButton; + TNOChk: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1WTNo: TcxGridDBColumn; + V1Conno: TcxGridDBColumn; + V1CustomerNoName: TcxGridDBColumn; + V1shiptime: TcxGridDBColumn; + V1orddefstr1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Panel1: TPanel; + Label1: TLabel; + begdate: TDateTimePicker; + enddate: TDateTimePicker; + Label2: TLabel; + Label3: TLabel; + WTNo: TEdit; + CustomerNoName: TEdit; + Label4: TLabel; + conNo: TEdit; + Label5: TLabel; + KHConNo: TEdit; + order_Main: TClientDataSet; + ADOQueryTMP: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + RMDBMain: TRMDBDataSet; + RMPrint: TRMGridReport; + V1khconNo: TcxGridDBColumn; + V1BLNO: TcxGridDBColumn; + V1vessel: TcxGridDBColumn; + V1voy: TcxGridDBColumn; + V1ConPerson1: TcxGridDBColumn; + V1XYNO: TcxGridDBColumn; + V1EXPORT: TcxGridDBColumn; + V1TDNUM: TcxGridDBColumn; + V1payaddress: TcxGridDBColumn; + V1POD: TcxGridDBColumn; + V1DLYDate: TcxGridDBColumn; + V1DLYaddress: TcxGridDBColumn; + V1BJNO: TcxGridDBColumn; + V1BGTYPE: TcxGridDBColumn; + V1PRTspec: TcxGridDBColumn; + V1SordQty1: TcxGridDBColumn; + V1PRTCodeName: TcxGridDBColumn; + V1PRTCode: TcxGridDBColumn; + V1SordQty3: TcxGridDBColumn; + V1OrderUnit: TcxGridDBColumn; + V1PrtPrice: TcxGridDBColumn; + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TV1DblClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TselClick(Sender: TObject); + procedure TChkClick(Sender: TObject); + procedure TNOChkClick(Sender: TObject); + procedure WTNoChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure initGrid(); + procedure SetStatus(); + { Private declarations } + public + { Public declarations } + end; + +var + frmorderInput_HYWT: TfrmorderInput_HYWT; + +implementation + +uses U_Fun,U_datalink, U_orderInPut_HYWT_Sub; + +{$R *.dfm} + +procedure TfrmorderInput_HYWT.initGrid(); +begin + with ADOQueryTMP do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.* from JYOrderWT_Main A '); + SQL.Add('inner join JYOrderWT_Sub B on B.Mainid=A.Mainid '); + SQL.Add('where A.filltime>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + SQL.Add('and A.filltime<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + if cxTabControl1.TabIndex=0 then + sql.Add('and status='''''); + if cxTabControl1.TabIndex=1 then + sql.Add('and status=''1'''); + Open; + end; + SCreateCDS20(ADOQueryTMP,Order_Main); + SInitCDSData20(ADOQueryTMP,Order_Main); +end; + +procedure TfrmorderInput_HYWT.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + end; + 2:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + end; + end; + end; +end; + +procedure TfrmorderInput_HYWT.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmorderInput_HYWT.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alclient; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmorderInput_HYWT.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmorderInput_HYWT.FormDestroy(Sender: TObject); +begin + frmorderInput_HYWT:=nil; +end; + +procedure TfrmorderInput_HYWT.FormShow(Sender: TObject); +begin + SetStatus(); + ReadCxGrid(self.Caption+tv1.Name,Tv1); + BegDate.DateTime:=SGetServerDate10(ADOQueryTmp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTmp); + InitGrid(); +end; + +procedure TfrmorderInput_HYWT.TBCloseClick(Sender: TObject); +begin + close; + WriteCxGrid(self.Caption+tv1.Name,Tv1); +end; + +procedure TfrmorderInput_HYWT.TV1DblClick(Sender: TObject); +begin + Tsel.Click; +end; + +procedure TfrmorderInput_HYWT.TBFindClick(Sender: TObject); +begin + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,0)); + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TfrmorderInput_HYWT.TBPrintClick(Sender: TObject); +var + FPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + FPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ί.rmf'; + with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.* from JYOrderWT_Main A '); + SQL.Add('inner join JYOrderWT_Sub B on B.Mainid=A.Mainid '); + SQL.Add('where A.Mainid='''+trim(order_Main.fieldbyname('Mainid').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTmp,order_Main); + SInitCDSData20(ADOQueryTmp,order_Main); + if FileExists(fPrintFile) then + begin + RMPrint.LoadFromFile(fPrintFile); + RMPrint.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ί.rmf'),'ʾ'); + end; + InitGrid(); +end; + +procedure TfrmorderInput_HYWT.TBAddClick(Sender: TObject); +begin + try + FrmOrderInPut_HYWT_Sub:=TFrmOrderInPut_HYWT_Sub.create(self); + with FrmOrderInPut_HYWT_Sub do + begin + FMainId:=''; + if showmodal=1 then + begin + InitGrid(); + end; + end; + finally + FrmOrderInPut_HYWT_Sub.Free; + end; +end; + +procedure TfrmorderInput_HYWT.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + FrmOrderInPut_HYWT_Sub:=TFrmOrderInPut_HYWT_Sub.create(self); + with FrmOrderInPut_HYWT_Sub do + begin + FMainid:=trim(self.order_Main.fieldbyname('Mainid').AsString); + if showmodal=1 then + begin + initGrid(); + end; + end; + finally + FrmOrderInPut_HYWT_Sub.Free; + end; +end; + +procedure TfrmorderInput_HYWT.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',1)=2 then Exit; + with ADOQuerycmd do + begin + close; + sql.Clear; + sql.Add('delete from JYOrderWT_Main where Mainid='''+trim(order_Main.fieldbyname('Mainid').AsString)+''''); + execsql; + end; + initGrid(); +end; + +procedure TfrmorderInput_HYWT.TselClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + FrmOrderInPut_HYWT_Sub:=TFrmOrderInPut_HYWT_Sub.create(self); + with FrmOrderInPut_HYWT_Sub do + begin + FMainid:=trim(self.order_Main.fieldbyname('Mainid').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if showmodal=1 then + begin + initGrid(); + end; + end; + finally + FrmOrderInPut_HYWT_Sub.Free; + end; +end; + +procedure TfrmorderInput_HYWT.TChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryTMP do + begin + close; + sql.Clear; + sql.Add('update JYOrderWT_Main set status=''1'',chktime=getdate(),chker='+quotedstr(trim(Dname))); + sql.Add(' where Mainid='''+trim(Order_Main.fieldbyname('Mainid').asstring)+''''); + execsql; + end; + application.MessageBox('˳ɹ','ʾ'); + initGrid(); + except + application.messagebox('ʧ','ʾ'); + end; +end; + +procedure TfrmorderInput_HYWT.TNOChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + with ADOQueryTMP do + begin + close; + SQL.Clear; + sql.Add('update JYOrderWT_Main set chker=null,chktime=Null,status='''' '); + sql.Add('where Mainid='+quotedstr(trim(order_Main.fieldbyname('Mainid').asstring))); + ExecSQL; + end; + Application.MessageBox('ɹ','ʾ'); + initGrid(); + except; + Application.MessageBox('ʧ','ʾ'); + end; +end; + +procedure TfrmorderInput_HYWT.WTNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmorderInput_HYWT.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +end. diff --git a/贸易管理/U_OrderJD.dfm b/贸易管理/U_OrderJD.dfm new file mode 100644 index 0000000..db1be01 --- /dev/null +++ b/贸易管理/U_OrderJD.dfm @@ -0,0 +1,636 @@ +object frmOrderJD: TfrmOrderJD + Left = 136 + Top = 9 + Width = 1188 + Height = 677 + Caption = #36827#24230#26597#35810 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1172 + Height = 57 + Align = alTop + TabOrder = 0 + object Label1: TLabel + Left = 40 + Top = 20 + Width = 48 + Height = 12 + Caption = #25351#31034#21333#21495 + end + object orderNo: TEdit + Left = 88 + Top = 16 + Width = 157 + Height = 20 + TabOrder = 0 + OnKeyPress = orderNoKeyPress + end + end + object GroupBox1: TGroupBox + Left = 0 + Top = 57 + Width = 1172 + Height = 152 + Align = alTop + Caption = #25351#31034#21333#35814#32454#20449#24687 + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 1168 + Height = 136 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Order + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTOrderQty + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 112 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 94 + end + object v1Column11: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHconNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 92 + 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_TradeManage.Default + Width = 84 + 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_TradeManage.Default + Width = 81 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 94 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 86 + end + object v1MPrtSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPrtSpec' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PrtkuanNO' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1SordQtY1: TcxGridDBColumn + Caption = #39068#33394#33521#25991 + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v1ordderNote1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'orderUnit' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel2: TPanel + Left = 0 + Top = 209 + Width = 1172 + Height = 212 + Align = alTop + BevelOuter = bvNone + Caption = 'Panel2' + TabOrder = 2 + object GroupBox2: TGroupBox + Left = 0 + Top = 0 + Width = 594 + Height = 212 + Align = alClient + Caption = #37319#36141#21040#36135#20449#24687 + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 2 + Top = 14 + Width = 590 + Height = 196 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_CG + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = 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 = V2Column3 + end + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + Column = V2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object V2Column1: TcxGridDBColumn + Caption = #37319#36141#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Width = 116 + end + object V2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object V2Column3: TcxGridDBColumn + Caption = #37319#36141#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column4: TcxGridDBColumn + Caption = #37319#36141#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column5: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'DHPS' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column6: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'DHQty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object GroupBox3: TGroupBox + Left = 594 + Top = 0 + Width = 578 + Height = 212 + Align = alRight + Caption = #21040#36135#26126#32454#20449#24687 + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 14 + Width = 574 + Height = 196 + Align = alClient + TabOrder = 0 + object TV3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_DH + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = 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 = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21040#36135#26102#38388 + DataBinding.FieldName = 'comedate' + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'RKPlace' + HeaderAlignmentHorz = taCenter + Width = 136 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'MXQty' + HeaderAlignmentHorz = taCenter + Width = 107 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + end + object GroupBox4: TGroupBox + Left = 0 + Top = 421 + Width = 1172 + Height = 196 + Align = alTop + Caption = #25237#22383#22238#20179#35814#32454#20449#24687 + TabOrder = 3 + object cxGrid4: TcxGrid + Left = 2 + Top = 14 + Width = 1168 + Height = 180 + Align = alClient + TabOrder = 0 + object TV4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_TP + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = TV4Column1 + end + item + Kind = skSum + Column = TV4Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Width = 131 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TPQty' + HeaderAlignmentHorz = taCenter + Width = 133 + end + object TV4Column1: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HCps' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object TV4Column2: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Width = 92 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV4 + end + end + end + object CDS_Order: TClientDataSet + Aggregates = <> + Params = <> + Left = 564 + Top = 126 + end + object DS_Order: TDataSource + DataSet = CDS_Order + Left = 644 + Top = 126 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 396 + Top = 110 + end + object CDS_CG: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 277 + end + object DS_CG: TDataSource + DataSet = CDS_CG + Left = 272 + Top = 285 + end + object DS_DH: TDataSource + DataSet = CDS_DH + Left = 863 + Top = 273 + end + object CDS_DH: TClientDataSet + Aggregates = <> + Params = <> + Left = 927 + Top = 293 + end + object CDS_TP: TClientDataSet + Aggregates = <> + Params = <> + Left = 364 + Top = 489 + end + object DS_TP: TDataSource + DataSet = CDS_TP + Left = 260 + Top = 465 + end +end diff --git a/贸易管理/U_OrderJD.pas b/贸易管理/U_OrderJD.pas new file mode 100644 index 0000000..b4d21e1 --- /dev/null +++ b/贸易管理/U_OrderJD.pas @@ -0,0 +1,172 @@ +unit U_OrderJD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxCheckBox, cxCalendar, + ADODB, DBClient; + +type + TfrmOrderJD = class(TForm) + Panel1: TPanel; + Label1: TLabel; + orderNo: TEdit; + GroupBox1: TGroupBox; + Panel2: TPanel; + GroupBox2: TGroupBox; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPrtSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1SordQtY1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + CDS_Order: TClientDataSet; + DS_Order: TDataSource; + ADOQueryMain: TADOQuery; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + TV4Column1: TcxGridDBColumn; + TV4Column2: TcxGridDBColumn; + CDS_CG: TClientDataSet; + DS_CG: TDataSource; + DS_DH: TDataSource; + CDS_DH: TClientDataSet; + CDS_TP: TClientDataSet; + DS_TP: TDataSource; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + private + Procedure InitOrder(); + { Private declarations } + public + { Public declarations } + end; + +var + frmOrderJD: TfrmOrderJD; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; +{$R *.dfm} +Procedure TfrmOrderJD.InitOrder(); +begin + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('EXEC P_View_Order_JD10'); + sql.Add('@keyNo='+quotedstr(trim(orderNo.Text))); + sql.Add(',@flag='+quotedstr(trim('0'))); + open; + end; + + SCreateCDS20(adoqueryMain,CDS_Order); + SInitCDSData20(adoqueryMain,CDS_Order); + + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('EXEC P_View_Order_JD10'); + sql.Add('@keyNo='+quotedstr(trim(orderNo.Text))); + sql.Add(',@flag='+quotedstr(trim('1'))); + open; + end; + + SCreateCDS20(adoqueryMain,CDS_CG); + SInitCDSData20(adoqueryMain,CDS_CG); + + + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('EXEC P_View_Order_JD10'); + sql.Add('@keyNo='+quotedstr(trim(orderNo.Text))); + sql.Add(',@flag='+quotedstr(trim('2'))); + open; + end; + + SCreateCDS20(adoqueryMain,CDS_DH); + SInitCDSData20(adoqueryMain,CDS_DH); + + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('EXEC P_View_Order_JD10'); + sql.Add('@keyNo='+quotedstr(trim(orderNo.Text))); + sql.Add(',@flag='+quotedstr(trim('3'))); + open; + end; + + SCreateCDS20(adoqueryMain,CDS_TP); + SInitCDSData20(adoqueryMain,CDS_TP); + +end; +procedure TfrmOrderJD.FormDestroy(Sender: TObject); +begin + frmOrderJD:=nil; +end; + +procedure TfrmOrderJD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cafree; +end; + +procedure TfrmOrderJD.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + IF trim(orderNo.Text)='' then exit; + InitOrder(); + end; +end; + +procedure TfrmOrderJD.FormShow(Sender: TObject); +begin + InitOrder(); +end; + +end. diff --git a/贸易管理/U_OrderJDList.dfm b/贸易管理/U_OrderJDList.dfm new file mode 100644 index 0000000..c6aecbd --- /dev/null +++ b/贸易管理/U_OrderJDList.dfm @@ -0,0 +1,562 @@ +object frmOrderJDList: TfrmOrderJDList + Left = -40 + Top = 37 + Width = 1292 + Height = 705 + Caption = #35746#21333#36827#24230#26597#35810 + 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 = 1284 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + Caption = #26597#30475 + ImageIndex = 49 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 122 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1284 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #19979#21333#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 BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 152 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1284 + Height = 582 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 88 + end + object v1Column8: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Column1: TcxGridDBColumn + Caption = #32553#29575 + DataBinding.FieldName = 'MPRTSL' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #35746#21333#22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #21488#22836 + DataBinding.FieldName = 'Taitou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #35746#21333#39068#33394 + DataBinding.FieldName = 'OrdColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #35746#22383#25968#37327 + DataBinding.FieldName = 'ClothHTQty' + OnCustomDrawCell = v1Column3CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#22383#21333#20301 + DataBinding.FieldName = 'ClothHTUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#22383#25968#37327 + DataBinding.FieldName = 'ClothDHQty' + OnCustomDrawCell = v1Column6CustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'ClothTPQty' + OnCustomDrawCell = v1Column11CustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 56 + end + object v1Column12: TcxGridDBColumn + Caption = #25237#22383#21333#20301 + DataBinding.FieldName = 'ClothTPUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column13: TcxGridDBColumn + Caption = #25237#22383#39068#33394 + DataBinding.FieldName = 'ClothTPColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'ClothHCQty' + OnCustomDrawCell = v1Column14CustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #22238#20179#39068#33394 + DataBinding.FieldName = 'HCColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column16: TcxGridDBColumn + Caption = #22238#20179#21333#20301 + DataBinding.FieldName = 'ClothHCUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column17: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'ClothRKQty' + OnCustomDrawCell = v1Column17CustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #20837#24211#39068#33394 + DataBinding.FieldName = 'RKColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1Column19: TcxGridDBColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'ClothRKUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column20: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ClothCKQty' + OnCustomDrawCell = v1Column20CustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column21: TcxGridDBColumn + Caption = #20986#24211#39068#33394 + DataBinding.FieldName = 'CKColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1Column22: TcxGridDBColumn + Caption = #24211#23384#27491#21697#25968 + DataBinding.FieldName = 'KCZPQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 71 + end + object v1Column23: TcxGridDBColumn + Caption = #24211#23384#27425#21697#25968 + DataBinding.FieldName = 'KCCPQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 70 + end + object v1Column24: TcxGridDBColumn + Caption = #24211#23384#30041#26679#25968 + DataBinding.FieldName = 'KCLYQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 180 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label11: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + 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 = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 672 + Top = 344 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 784 + Top = 240 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 168 + end +end diff --git a/贸易管理/U_OrderJDList.pas b/贸易管理/U_OrderJDList.pas new file mode 100644 index 0000000..ce52e34 --- /dev/null +++ b/贸易管理/U_OrderJDList.pas @@ -0,0 +1,446 @@ +unit U_OrderJDList; + +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, MovePanel; + +type + TfrmOrderJDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: 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; + OrderNo: TEdit; + Order_Main: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + ToolButton1: TToolButton; + 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 OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + 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 Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column6CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column11CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column14CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column20CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + FLeft,FTop:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmOrderJDList: TfrmOrderJDList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp, + U_OrderInPut; + +{$R *.dfm} + +procedure TfrmOrderJDList.FormDestroy(Sender: TObject); +begin + frmOrderJDList:=nil; +end; + +procedure TfrmOrderJDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderJDList.FormCreate(Sender: TObject); +begin + + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmOrderJDList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ȳѯ',Tv1,'ָʾ'); +end; + +procedure TfrmOrderJDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_View_OrderJD :begdate,:enddate,:Filler,:WSql'); + if Trim(DParameters1)<>'Ȩ' then + Parameters.ParamByName('Filler').Value:=Trim(DName) + else + Parameters.ParamByName('Filler').Value:=''; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1)); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderJDList.InitForm(); +begin + ReadCxGrid('Ȳѯ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-15; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmOrderJDList.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 TfrmOrderJDList.DelData():Boolean; +begin + +end; + +procedure TfrmOrderJDList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ŵϢ',cxGrid1); +end; + +procedure TfrmOrderJDList.TBRafreshClick(Sender: TObject); +begin + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmOrderJDList.OrderNoChange(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 TfrmOrderJDList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmOrderJDList.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmOrderJDList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_View_OrderJD :begdate,:enddate,:Filler,:WSql'); + if Trim(DParameters1)<>'Ȩ' then + Parameters.ParamByName('Filler').Value:=Trim(DName) + else + Parameters.ParamByName('Filler').Value:=''; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('WSql').Value:=' and A.OrderNo like'''+'%'+Trim(OrderNo.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible:=False; + end; +end; + +procedure TfrmOrderJDList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmOrderJDList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmOrderJDList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmOrderJDList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmOrderJDList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + PriceFlag:=99; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmOrderJDList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmOrderJDList.v1Column3CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothHTQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +procedure TfrmOrderJDList.v1Column6CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothDHQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +procedure TfrmOrderJDList.v1Column11CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothTPQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +procedure TfrmOrderJDList.v1Column14CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothHCQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +procedure TfrmOrderJDList.v1Column17CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothRKQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +procedure TfrmOrderJDList.v1Column20CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id:Integer; +begin + Id:=TV1.GetColumnByFieldName('ClothCKQty').Index;//;-TV1.GroupedItemCount; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id]>0 then + begin + ACanvas.Brush.Color:=clRed; + end; +end; + +end. diff --git a/贸易管理/U_OrderSel.dfm b/贸易管理/U_OrderSel.dfm new file mode 100644 index 0000000..eb5f74d --- /dev/null +++ b/贸易管理/U_OrderSel.dfm @@ -0,0 +1,360 @@ +object frmOrderSel: TfrmOrderSel + Left = 44 + Top = 126 + Width = 1171 + Height = 587 + Caption = #35746#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1155 + Height = 460 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTMF + end + item + Kind = skSum + Column = v1PRTKZ + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v2Column3: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 86 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v2Column7: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column8: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1PRTMF: TcxGridDBColumn + Caption = #27491#21697#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 75 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #27491#21697#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 76 + end + object v2Column1: TcxGridDBColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle2 + Width = 73 + end + object v2Column4: TcxGridDBColumn + Caption = #27425#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle2 + Width = 68 + end + object v2Column5: TcxGridDBColumn + Caption = #22810#25340#21305#25968 + DataBinding.FieldName = 'LYPS' + Visible = False + HeaderAlignmentHorz = taRightJustify + Hidden = True + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 76 + end + object v2Column6: TcxGridDBColumn + Caption = #22810#25340#25968#37327 + DataBinding.FieldName = 'LYQty' + Visible = False + HeaderAlignmentHorz = taRightJustify + Hidden = True + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1155 + Height = 89 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label2: TLabel + Left = 35 + Top = 19 + Width = 48 + Height = 16 + Caption = #35746#21333#21495 + end + object Label3: TLabel + Left = 268 + Top = 19 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 467 + Top = 19 + Width = 64 + Height = 16 + Caption = #23458' '#25143 + end + object OrderNoM: TEdit + Tag = 2 + Left = 83 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 0 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 301 + Top = 16 + Width = 111 + Height = 24 + TabOrder = 1 + OnChange = OrderNoMChange + end + object Button1: TButton + Left = 687 + Top = 16 + Width = 75 + Height = 25 + Caption = #21047#26032 + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 687 + Top = 48 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 3 + OnClick = Button2Click + end + object Button3: TButton + Left = 783 + Top = 48 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 4 + OnClick = Button3Click + end + object CustomerNoName: TEdit + Tag = 2 + Left = 533 + Top = 15 + Width = 119 + Height = 24 + TabOrder = 5 + OnChange = OrderNoMChange + end + end + object CDS_OrderSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 208 + end + object DataSource1: TDataSource + DataSet = CDS_OrderSel + Left = 680 + Top = 224 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 848 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 208 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 272 + end + object PopupMenu1: TPopupMenu + Left = 424 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + end +end diff --git a/贸易管理/U_OrderSel.pas b/贸易管理/U_OrderSel.pas new file mode 100644 index 0000000..c303265 --- /dev/null +++ b/贸易管理/U_OrderSel.pas @@ -0,0 +1,214 @@ +unit U_OrderSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ADODB, DBClient, ComCtrls, + ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, Menus; + +type + TfrmOrderSel = class(TForm) + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label2: TLabel; + OrderNoM: TEdit; + Label3: TLabel; + PRTColor: TEdit; + CDS_OrderSel: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGridPopupMenu1: TcxGridPopupMenu; + v2Column2: TcxGridDBColumn; + Label8: TLabel; + CustomerNoName: TEdit; + v2Column3: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v2Column1: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmOrderSel: TfrmOrderSel; + +implementation +uses + U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmOrderSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSel.Button2Click(Sender: TObject); +var + KHName:String; +begin + if CDS_OrderSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + CDS_OrderSel.DisableControls; + KHName:=''; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(KHName)='' then + begin + KHName:=Trim(fieldbyname('CustomerNo').AsString); + end else + begin + if Trim(fieldbyname('CustomerNo').AsString)<>KHName then + begin + CDS_OrderSel.EnableControls; + Application.MessageBox('ѡͬͻ','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + ModalResult:=1; +end; + +procedure TfrmOrderSel.FormDestroy(Sender: TObject); +begin + frmOrderSel:=nil; +end; + +procedure TfrmOrderSel.Button3Click(Sender: TObject); +begin + ModalResult:=-1; + WriteCxGrid('ѡ11',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmOrderSel.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ11',Tv2,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmOrderSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add('select A.OrderNo OrderNoM,A.OrderNo,A.CustomerNoName,A.CustomerNo,A.MPRTCodeName,A.MPRTMF,A.MPRTKZ,A.MainId'); + sql.Add(',B.SubId,B.PRTColor,B.OrderUnit,B.PRTOrderQty,B.PRTHX,B.SOrddefstr1'); + sql.Add(',ZPPS=(select Count(KC.MJID) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType=''Ʒ'') '); + sql.Add(',ZPQty=(select sum(KCQty) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType=''Ʒ'') '); + sql.Add(',CPPS=(select Count(KC.MJID) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType=''Ʒ'') '); + sql.Add(',CPQty=(select sum(KCQty) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType=''Ʒ'') '); + { sql.Add(',LYPS=(select Count(*) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType='''') '); + sql.Add(',LYQty=(select sum(KCQty) from CK_BanCP_CR CR Inner join CK_BanCP_KC KC on CR.CRID=KC.CRID '); + sql.Add(' where CR.SubId=B.SubId and CR.CRType='''' and (KC.KCQty>0 or KCKGQty>0) and CPType='''') '); } + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where exists(select AA.CRID from CK_BanCP_CR AA inner join CK_BanCP_KC BB on AA.CRID=BB.CRID '); + sql.Add(' where AA.MainId=A.MainId and AA.SubId=B.SubId and AA.CRType='''' and (BB.KCQty>0 or BB.KCKGQty>0))'); + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSel.Button1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmOrderSel.OrderNoMChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); +end; + +procedure TfrmOrderSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmOrderSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_OrderSel,True); +end; + +procedure TfrmOrderSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_OrderSel,False); +end; + +end. diff --git a/贸易管理/U_OrderSelRK.dfm b/贸易管理/U_OrderSelRK.dfm new file mode 100644 index 0000000..ba7a8e7 --- /dev/null +++ b/贸易管理/U_OrderSelRK.dfm @@ -0,0 +1,360 @@ +object frmOrderSelRK: TfrmOrderSelRK + Left = 49 + Top = 173 + Width = 1219 + Height = 592 + Caption = #35746#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 16 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1203 + Height = 89 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 35 + Top = 19 + Width = 48 + Height = 16 + Caption = #35746#21333#21495 + end + object Label3: TLabel + Left = 256 + Top = 19 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 459 + Top = 19 + Width = 64 + Height = 16 + Caption = #23458' '#25143 + end + object OrderNo: TEdit + Tag = 2 + Left = 83 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 0 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 293 + Top = 16 + Width = 111 + Height = 24 + TabOrder = 1 + OnChange = OrderNoChange + end + object Button1: TButton + Left = 687 + Top = 16 + Width = 75 + Height = 25 + Caption = #21047#26032 + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 687 + Top = 48 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 3 + OnClick = Button2Click + end + object Button3: TButton + Left = 783 + Top = 48 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 4 + OnClick = Button3Click + end + object CustomerNoName: TEdit + Tag = 2 + Left = 525 + Top = 15 + Width = 119 + Height = 24 + TabOrder = 5 + OnChange = OrderNoChange + end + object CheckBox1: TCheckBox + Left = 24 + Top = 60 + Width = 49 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = CheckBox1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1203 + Height = 465 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTMF + end + item + Kind = skSum + Column = v1PRTKZ + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = DataLink_TradeManage.Default + object v2Column3: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 86 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 60 + end + object v2Column7: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + Width = 75 + end + object v2Column8: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1PRTMF: TcxGridDBColumn + Caption = #27491#21697#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 75 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #27491#21697#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 75 + end + object v2Column1: TcxGridDBColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle2 + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #27425#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle2 + Width = 75 + end + object v2Column5: TcxGridDBColumn + Caption = #22810#25340#21305#25968 + DataBinding.FieldName = 'LYPS' + Visible = False + HeaderAlignmentHorz = taRightJustify + Hidden = True + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 75 + end + object v2Column6: TcxGridDBColumn + Caption = #22810#25340#25968#37327 + DataBinding.FieldName = 'LYQty' + Visible = False + HeaderAlignmentHorz = taRightJustify + Hidden = True + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object CDS_OrderSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 208 + end + object DataSource1: TDataSource + DataSet = CDS_OrderSel + Left = 680 + Top = 224 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 848 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 208 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 272 + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + end +end diff --git a/贸易管理/U_OrderSelRK.pas b/贸易管理/U_OrderSelRK.pas new file mode 100644 index 0000000..a3840f5 --- /dev/null +++ b/贸易管理/U_OrderSelRK.pas @@ -0,0 +1,220 @@ +unit U_OrderSelRK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ADODB, DBClient, ComCtrls, + ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox; + +type + TfrmOrderSelRK = class(TForm) + Panel1: TPanel; + Label2: TLabel; + OrderNo: TEdit; + Label3: TLabel; + PRTColor: TEdit; + CDS_OrderSel: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGridPopupMenu1: TcxGridPopupMenu; + Label8: TLabel; + CustomerNoName: TEdit; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column3: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + CheckBox1: TCheckBox; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmOrderSelRK: TfrmOrderSelRK; + +implementation +uses + U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmOrderSelRK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSelRK.Button2Click(Sender: TObject); +var + KHName:String; +begin + if CDS_OrderSel.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + CDS_OrderSel.DisableControls; + KHName:=''; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(KHName)='' then + begin + KHName:=Trim(fieldbyname('CustomerNo').AsString); + end else + begin + if Trim(fieldbyname('CustomerNo').AsString)<>KHName then + begin + Application.MessageBox('ѡͬͻ','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + ModalResult:=1; +end; + +procedure TfrmOrderSelRK.FormDestroy(Sender: TObject); +begin + frmOrderSelRK:=nil; +end; + +procedure TfrmOrderSelRK.Button3Click(Sender: TObject); +begin + ModalResult:=-1; + WriteCxGrid('ѡ1',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmOrderSelRK.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ1',Tv2,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmOrderSelRK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.OrderNo,A.CustomerNoName,A.CustomerNo,A.MPRTBZNote,A.MPRTCodeName,A.MainId,B.SubId,B.PRTColor,B.OrderUnit,B.PRTOrderQty'); + sql.Add(',A.MPRTMF,A.MPRTKZ,B.PRTHX,B.SOrddefstr1'); + sql.Add(',ZPPS=(select Count(MJID) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType=''Ʒ'') '); + sql.Add(',ZPQty=(select sum(MJLen) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType=''Ʒ'') '); + sql.Add(',CPPS=(select Count(MJID) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType=''Ʒ'') '); + sql.Add(',CPQty=(select sum(MJLen) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType=''Ʒ'') '); + { sql.Add(',LYPS=(select Count(*) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType='''') '); + sql.Add(',LYQty=(select sum(MJLen) from WFB_MJJY WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')=''δ'' and WY.MJType='''') '); } + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where exists(select AA.MJID from WFB_MJJY AA '); + sql.Add(' where AA.MainId=A.MainId and AA.SubId=B.SubId and isnull(AA.MJStr2,'''')=''δ'' )'); + + + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSelRK.Button1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmOrderSelRK.OrderNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); +end; + +procedure TfrmOrderSelRK.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmOrderSelRK.CheckBox1Click(Sender: TObject); +begin + with CDS_OrderSel do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + first; + EnableControls; + end; +end; + +end. diff --git a/贸易管理/U_OrderStatus.dfm b/贸易管理/U_OrderStatus.dfm new file mode 100644 index 0000000..ea0d630 --- /dev/null +++ b/贸易管理/U_OrderStatus.dfm @@ -0,0 +1,593 @@ +object frmOrderStatus: TfrmOrderStatus + Left = 41 + Top = 136 + Width = 1154 + Height = 577 + Caption = #35746#21333#29366#24577 + 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 = 1146 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBTP: TToolButton + Left = 189 + Top = 0 + Caption = #26356#26032 + ImageIndex = 106 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 Label2: TLabel + Left = 161 + Top = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#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 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = WFBCodeNameChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = WFBCodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 16 + Top = 96 + Width = 1121 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + Styles.Header = DataLink_WFBOrder.FonePurple + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 74 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 52 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 67 + end + object v1Column26: TcxGridDBColumn + Tag = 2 + Caption = #24050#23436#25104 + DataBinding.FieldName = 'OSFlag10' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 48 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24050#30830#35748 + DataBinding.FieldName = 'OSFlag2' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 47 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #29983#20135#26085#26399 + DataBinding.FieldName = 'OSDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 64 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #24050#20837#24211 + DataBinding.FieldName = 'OSFlag3' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 54 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #24050#21457#36816 + DataBinding.FieldName = 'OSFlag4' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 56 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #38470#36816 + DataBinding.FieldName = 'OSFlag5' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 38 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #31354#36816 + DataBinding.FieldName = 'OSFlag6' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 33 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #28023#36816 + DataBinding.FieldName = 'OSFlag7' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 36 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = '40HQ' + DataBinding.FieldName = 'OSQty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 34 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = '40GP' + DataBinding.FieldName = 'OSQty2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 36 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = '20GP' + DataBinding.FieldName = 'OSQty3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 36 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = 'LCL' + DataBinding.FieldName = 'OSQty4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 29 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'OSStr1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 58 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #35746#33329#26085#26399 + DataBinding.FieldName = 'OSDate2' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 62 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #35746#33329#32534#21495 + DataBinding.FieldName = 'OSStr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 60 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'OSDate3' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 60 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = 'ETD' + DataBinding.FieldName = 'OSDate6' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 59 + end + object v1Column21: TcxGridDBColumn + Tag = 2 + Caption = 'ETA' + DataBinding.FieldName = 'OSDate7' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 60 + end + object v1Column22: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'OSDate4' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 59 + end + object v1Column23: TcxGridDBColumn + Tag = 2 + Caption = #24050#20184#27454 + DataBinding.FieldName = 'OSFlag8' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 50 + end + object v1Column27: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#22791#27880 + DataBinding.FieldName = 'OSNote1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 70 + end + object v1Column24: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'OSDate5' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 58 + end + object v1Column25: TcxGridDBColumn + Tag = 2 + Caption = #24050#25910#27454 + DataBinding.FieldName = 'OSFlag9' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 46 + end + object v1Column28: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#22791#27880 + DataBinding.FieldName = 'OSNote2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.FontBlue + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 576 + Top = 176 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end +end diff --git a/贸易管理/U_OrderStatus.pas b/贸易管理/U_OrderStatus.pas new file mode 100644 index 0000000..d831446 --- /dev/null +++ b/贸易管理/U_OrderStatus.pas @@ -0,0 +1,306 @@ +unit U_OrderStatus; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit, cxCheckBox; + +type + TfrmOrderStatus = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + WFBCodeName: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column3: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure WFBCodeNameChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + public + { Public declarations } + end; + +var + frmOrderStatus: TfrmOrderStatus; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderStatus.FormDestroy(Sender: TObject); +begin + frmOrderStatus:=nil; +end; + +procedure TfrmOrderStatus.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderStatus.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmOrderStatus.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select Customnoname=C.ZDYName,A.MainID As FMainId ,'); + sql.Add(' case when A.Chker<>'''' then cast(1 as bit) else cast(0 as bit) end as OSFlag2,'); + sql.Add(' case when B.OSDate1 is null then BegSCDate else B.OSDate1 end as OSDate1,'); + sql.Add(' case when B.OSDate3 is null then ZGDate else B.OSDate3 end as OSDate3,'); + sql.Add(' case when B.OSDate6 is null then ETDDate else B.OSDate6 end as OSDate6,'); + sql.Add(' case when B.OSDate7 is null then ETADate else B.OSDate7 end as OSDate7,A.*,B.* '); + SQL.Add('from WFBOrder_Main A left join WFBOrder_Status B on A.MainId=B.MainId'); + sql.Add('left join KH_ZDY C on A.Customno=C.ZDYNO and C.Type=''CustomNoName'' '); + sql.Add('where A.OrderDate>=:begdate and A.OrderDate<:EndDate'); + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderStatus.FormShow(Sender: TObject); +begin + ReadCxGrid('״̬бF',Tv1,'޷IJ'); + InitGrid(); + if Trim(DParameters1)='鿴' then + begin + TBTP.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + end; +end; + +procedure TfrmOrderStatus.WFBCodeNameChange(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 TfrmOrderStatus.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('״̬бF',Tv1,'޷IJ'); +end; + +procedure TfrmOrderStatus.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmOrderStatus.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo:String; +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + // with Order_Main do + //begin + //First; + // while not Eof do + //begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Trim(Order_Main.fieldbyname('OSId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'OS','WFBOrder_Status',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('OSId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Status where OSId='''+Trim(Order_Main.fieldbyname('OSId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('OSId').AsString)='' then + Append + else + Edit; + FieldByName('OSId').Value:=Trim(maxno); + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('FMainId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_To',2); + if Trim(Order_Main.fieldbyname('OSID').AsString)<>'' then + begin + FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Editer').Value:=Trim(DName); + end else + begin + FieldByName('Filltime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + end; + Post; + end; + //Next; + //end; + with Order_Main do + begin + Edit; + FieldByName('OSId').Value:=Trim(maxno); + Post; + end; + //end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('³ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmOrderStatus.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_KC where KCId='''+Trim(Order_Main.fieldbyname('KCId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderStatus.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('״̬б',cxGrid1); +end; + +procedure TfrmOrderStatus.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='hdmc'; + flagname:=''; + if ShowModal=1 then + begin + Order_Main.Edit; + Order_Main.FieldByName('OSStr1').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_OrderSubFH.dfm b/贸易管理/U_OrderSubFH.dfm new file mode 100644 index 0000000..97fb6a1 --- /dev/null +++ b/贸易管理/U_OrderSubFH.dfm @@ -0,0 +1,496 @@ +object frmOrderSubFH: TfrmOrderSubFH + Left = 40 + Top = 97 + Width = 1154 + Height = 577 + Caption = #25104#21697#21457#36135 + 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 = 1146 + 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_OrderManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21457#36135 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 106 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 107 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 51 + OnClick = ToolButton3Click + end + object TBTP: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #30830#23450#21457#36135 + ImageIndex = 52 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21457#36135#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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = PRTCodeNameMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = PRTCodeNameMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 80 + Width = 1009 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomNo' + Column = v1Column5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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_OrderManage.cxBlue + Styles.IncSearch = DataLink_OrderManage.cxBlue + Styles.Selection = DataLink_OrderManage.cxBlue + object v1Column13: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.Default + Width = 43 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeNameM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #25104#21697#25968#37327 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 64 + end + object v1Column11: TcxGridDBColumn + Caption = #25104#21697#21333#20301 + DataBinding.FieldName = 'PRTUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'CQty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#21697#24211#23384 + DataBinding.FieldName = 'CPKC' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 62 + end + object v1Column15: TcxGridDBColumn + Caption = #25104#21697#24211#23384#21305#25968 + DataBinding.FieldName = 'CPKCP' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_OrderManage.Default + Width = 86 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHAddress' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143 + DataBinding.FieldName = 'CustomNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 62 + end + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#21333#20215 + DataBinding.FieldName = 'FHPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 64 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'JJUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 61 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 58 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 63 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_OrderManage.FontBlue + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 584 + Top = 120 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_OrderManage.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_OrderManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end +end diff --git a/贸易管理/U_OrderSubFH.pas b/贸易管理/U_OrderSubFH.pas new file mode 100644 index 0000000..68f1f21 --- /dev/null +++ b/贸易管理/U_OrderSubFH.pas @@ -0,0 +1,516 @@ +unit U_OrderSubFH; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit, cxCheckBox; + +type + TfrmOrderSubFH = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + PRTCodeNameM: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure PRTCodeNameMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBTPClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + procedure OneKeyPostHD(Tv1:TcxGridDBTableView;CDS_Sub:TClientDataSet); + public + { Public declarations } + end; + +var + frmOrderSubFH: TfrmOrderSubFH; + +implementation +uses + U_DataLink,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderSubFH.FormDestroy(Sender: TObject); +begin + frmOrderSubFH:=nil; +end; + +procedure TfrmOrderSubFH.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubFH.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; +procedure TfrmOrderSubFH.InitGrid(); +var + fsj:String; +begin + try + //ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_FHQryList :WSQl'); + fsj:=' and OT.FHDate>='+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))) + +' and OT.FHDate<'+QuotedStr(Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))); + Parameters.ParamByName('WSQl').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + //ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSubFH.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmOrderSubFH.PRTCodeNameMChange(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 TfrmOrderSubFH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'ָʾ'); +end; + +procedure TfrmOrderSubFH.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmOrderSubFH.TBAddClick(Sender: TObject); +begin + try + frmProductOrderList:=TfrmProductOrderList.Create(Application); + with frmProductOrderList do + begin + FFInt:=1; + frmProductOrderList.TBAdd.Visible:=False; + frmProductOrderList.TBEdit.Visible:=False; + frmProductOrderList.TBDel.Visible:=False; + frmProductOrderList.TBExport.Visible:=False; + frmProductOrderList.TBPrint.Visible:=False; + frmProductOrderList.TBTP.Visible:=False; + frmProductOrderList.cxGrid2.Visible:=False; + frmProductOrderList.ToolButton1.Visible:=True; + frmProductOrderList.ToolButton2.Visible:=True; + frmProductOrderList.ToolButton3.Visible:=True; + frmProductOrderList.ToolButton4.Visible:=False; + frmProductOrderList.ToolButton5.Visible:=False; + frmProductOrderList.CheckBox1.Visible:=False; + frmProductOrderList.CheckBox2.Visible:=True; + if ShowModal=1 then + begin + with frmProductOrderList.Order_Main do + begin + frmProductOrderList.Order_Main.First; + while not Eof do + begin + if frmProductOrderList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Main do + begin + Append; + Self.Order_Main.FieldByName('SubId').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString); + Self.Order_Main.FieldByName('OrderNoM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderNo').AsString); + Self.Order_Main.FieldByName('PRTCodeNameM').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTCodeName').AsString); + Self.Order_Main.FieldByName('PRTSpec').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTSpec').AsString); + Self.Order_Main.FieldByName('PRTMF').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTMF').AsString); + Self.Order_Main.FieldByName('PRTKZ').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTKZ').AsString); + Self.Order_Main.FieldByName('PRTColor').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTColor').AsString); + if Trim(frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsString)<>'' then + Self.Order_Main.FieldByName('PRTOrderQty').Value:=frmProductOrderList.Order_Main.fieldbyname('PRTOrderQty').AsFloat; + Self.Order_Main.FieldByName('OrderUnit').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('OrderUnit').AsString); + Self.Order_Main.FieldByName('SSel').Value:=1; + if Trim(frmProductOrderList.Order_Main.fieldbyname('PRTQty').AsString)<>'' then + Self.Order_Main.FieldByName('PRTQty').Value:=frmProductOrderList.Order_Main.fieldbyname('PRTQty').AsFloat; + if Trim(frmProductOrderList.Order_Main.fieldbyname('Qty1').AsString)<>'' then + Self.Order_Main.FieldByName('CQty1').Value:=frmProductOrderList.Order_Main.fieldbyname('Qty1').AsFloat; + if Trim(frmProductOrderList.Order_Main.fieldbyname('CPKC').AsString)<>'' then + Self.Order_Main.FieldByName('CPKC').Value:=frmProductOrderList.Order_Main.fieldbyname('CPKC').AsFloat; + if Trim(frmProductOrderList.Order_Main.fieldbyname('CPKCP').AsString)<>'' then + Self.Order_Main.FieldByName('CPKCP').Value:=frmProductOrderList.Order_Main.fieldbyname('CPKCP').AsFloat; + Self.Order_Main.FieldByName('PRTUnit').Value:=Trim(frmProductOrderList.Order_Main.fieldbyname('PRTUnit').AsString); + end; + end; + frmProductOrderList.Order_Main.Next; + end; + end; + end; + end; + finally + frmProductOrderList.Free; + end; +end; + +procedure TfrmOrderSubFH.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomNoName'; + flagname:='ͻ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('CustomNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubFH.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=false then + begin + Application.MessageBox('δѡ¼','ʾ',0); + Exit; + end; + if (Order_Main.Locate('SSel',True,[])) and (Order_Main.Locate('FHDate',null,[])) then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if (Order_Main.Locate('SSel',True,[])) and (Order_Main.Locate('CustomNoName',null,[])) then + begin + Application.MessageBox('ͻΪգ','ʾ',0); + Exit; + end; + if (Order_Main.Locate('SSel',True,[])) and (Order_Main.Locate('FHPrice',null,[])) then + begin + Application.MessageBox('۲Ϊգ','ʾ',0); + Exit; + end; + if (Order_Main.Locate('SSel',True,[])) and (Order_Main.Locate('JJUnit',null,[])) then + begin + Application.MessageBox('Ƽ۵λΪգ','ʾ',0); + Exit; + end; + if (Order_Main.Locate('SSel',True,[])) and (Order_Main.Locate('FHQty',null,[])) then + begin + Application.MessageBox('Ϊգ','ʾ',0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Order_Main.fieldbyname('ToId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'To','Order_Sub_To',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Order_Sub_To where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('ToId').AsString)='' then + Append + else + Edit; + FieldByName('ToId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_To',3); + Post; + end; + with Order_Main do + begin + Edit; + FieldByName('ToId').Value:=Trim(maxno); + Post; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmOrderSubFH.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from Order_Sub_ToSK where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿտɾ¼','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; +end; + +function TfrmOrderSubFH.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_To where ToId='''+Trim(Order_Main.fieldbyname('ToId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderSubFH.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmOrderSubFH.v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Main.Edit; + Self.Order_Main.FieldByName('JJUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + //Self.Order_Main.FieldByName('CustomNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubFH.ToolButton1Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=1; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmOrderSubFH.ToolButton2Click(Sender: TObject); +begin + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=0; + Post; + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmOrderSubFH.OneKeyPostHD(Tv1:TcxGridDBTableView;CDS_Sub:TClientDataSet); +var + FValue,FFValue,FColumn,FFColumn:String; +begin + FColumn:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FFColumn:=Tv1.Controller.FocusedColumn.Summary.GroupFormat; + FValue:=Trim(CDS_Sub.fieldbyname(FColumn).AsString); + if Trim(FFColumn)<>'' then + begin + FFValue:=Trim(CDS_Sub.fieldbyname(FFColumn).AsString); + end; + with CDS_Sub do + begin + DisableControls; + First; + while not Eof do + begin + Edit; + if CDS_Sub.FieldByName('Ssel').AsBoolean=True then + begin + if FValue='' then + begin + CDS_Sub.FieldByName(FColumn).Value:=null; + end else + begin + CDS_Sub.FieldByName(FColumn).Value:=FValue; + end; + if Trim(FFColumn)<>'' then + begin + if FFValue='' then + begin + CDS_Sub.FieldByName(FFColumn).Value:=null; + end else + begin + CDS_Sub.FieldByName(FFColumn).Value:=FFValue; + end; + end; + Post; + end; + Next; + end; + EnableControls; + end; +end; + +procedure TfrmOrderSubFH.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + OneKeyPostHD(Tv1,Order_Main); +end; + +end. diff --git a/贸易管理/U_OrderSubKC.dfm b/贸易管理/U_OrderSubKC.dfm new file mode 100644 index 0000000..71ce9b1 --- /dev/null +++ b/贸易管理/U_OrderSubKC.dfm @@ -0,0 +1,377 @@ +object frmOrderSubKC: TfrmOrderSubKC + Left = 69 + Top = 113 + Width = 1154 + Height = 577 + Caption = #25104#21697#24211#23384 + 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 = 1146 + Height = 33 + ButtonHeight = 18 + ButtonWidth = 36 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 40 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + end + object TBExport: TToolButton + Left = 80 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 120 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + end + object TBTP: TToolButton + Left = 160 + Top = 0 + Caption = #26356#26032 + ImageIndex = 106 + OnClick = TBTPClick + end + object TBClose: TToolButton + Left = 196 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1146 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + 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 Label2: TLabel + Left = 161 + Top = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = PRTCodeNameMChange + end + object PRTCodeNameM: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = PRTCodeNameMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 80 + Width = 1009 + Height = 369 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomNo' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + 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 + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeNameM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + end + object v1PRTSpec: TcxGridDBColumn + Caption = #21697#21517'/'#35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 41 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 33 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 39 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#21697#25968 + DataBinding.FieldName = 'PRTQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v1Column11: TcxGridDBColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQtyM' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHQty1M' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'FHPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCQty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#22320#28857 + DataBinding.FieldName = 'KCPlace' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#21407#22240 + DataBinding.FieldName = 'KCReason' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#22791#27880 + DataBinding.FieldName = 'KCNote' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 584 + Top = 120 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end + object ADOQueryTemp: TADOQuery + LockType = ltReadOnly + Parameters = <> + Left = 736 + Top = 40 + end +end diff --git a/贸易管理/U_OrderSubKC.pas b/贸易管理/U_OrderSubKC.pas new file mode 100644 index 0000000..32b0f3b --- /dev/null +++ b/贸易管理/U_OrderSubKC.pas @@ -0,0 +1,245 @@ +unit U_OrderSubKC; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCalendar, cxButtonEdit; + +type + TfrmOrderSubKC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoM: TEdit; + PRTCodeNameM: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure PRTCodeNameMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function DelData():Boolean; + public + { Public declarations } + end; + +var + frmOrderSubKC: TfrmOrderSubKC; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmOrderSubKC.FormDestroy(Sender: TObject); +begin + frmOrderSubKC:=nil; +end; + +procedure TfrmOrderSubKC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubKC.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmOrderSubKC.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_PRTKCQryList :Begdate,:EndDate '); + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSubKC.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒб',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmOrderSubKC.PRTCodeNameMChange(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 TfrmOrderSubKC.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒб',Tv1,'ָʾ'); +end; + +procedure TfrmOrderSubKC.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmOrderSubKC.TBTPClick(Sender: TObject); + var + FQty,FQty1,MaxNo:String; +begin + if Order_Main.IsEmpty then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + // with Order_Main do + //begin + //First; + // while not Eof do + //begin + {if Trim(Order_Main.fieldbyname('FHQty').AsString)='' then + FQty:='0.0' + else + FQty:=Trim(Order_Main.fieldbyname('FHQty').AsString); + if Trim(Order_Main.fieldbyname('Qty1').AsString)='' then + FQty1:='0.0' + else + FQty1:=Trim(Order_Main.fieldbyname('Qty1').AsString); } + if Trim(Order_Main.fieldbyname('KCId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KC','Order_Sub_To',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('KCId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Order_Sub_KC where KCId='''+Trim(Order_Main.fieldbyname('KCId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('KCId').AsString)='' then + Append + else + Edit; + FieldByName('KCId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + SSetSaveDataCDSNew(ADOQueryCmd,Tv1,Order_Main,'Order_Sub_To',3); + Post; + end; + //Next; + //end; + with Order_Main do + begin + Edit; + FieldByName('KCId').Value:=Trim(maxno); + Post; + end; + //end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('³ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmOrderSubKC.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Order_Sub_KC where KCId='''+Trim(Order_Main.fieldbyname('KCId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmOrderSubKC.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒб',cxGrid1); +end; + +end. diff --git a/贸易管理/U_ProductOrderAnPai.dfm b/贸易管理/U_ProductOrderAnPai.dfm new file mode 100644 index 0000000..3fd8052 --- /dev/null +++ b/贸易管理/U_ProductOrderAnPai.dfm @@ -0,0 +1,956 @@ +object frmProductOrderAnPai: TfrmProductOrderAnPai + Left = 101 + Top = 49 + Width = 1203 + Height = 721 + Caption = #26816#39564#25351#31034#21333 + 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 = 1187 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = ToolButton10Click + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 49 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object ToolButton9: TToolButton + Left = 276 + Top = 0 + Caption = #26816#21069#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = ToolButton9Click + end + object TBPrint: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #25171#21360 + DropdownMenu = PopupMenu1 + ImageIndex = 12 + Style = tbsDropDown + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 439 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 341 + Width = 1187 + Height = 342 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 81 + Width = 1183 + Height = 259 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = V2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column1 + end + item + Kind = skSum + Column = V2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object V2Column10: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 39 + end + object V2Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 119 + end + object V2Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'AOrddefstr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = V2Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object V2Column11: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'AOrddefstr6' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = V2Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column7: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'AOrdQty2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object V2Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'AOrdQty1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 69 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr2' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 59 + end + object V2Column13: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'ZSXS' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object V2Column5: TcxGridDBColumn + Caption = #26816#39564#38271#24230#21333#20301 + DataBinding.FieldName = 'AOrddefstr3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #30917 + '' + '') + HeaderAlignmentHorz = taCenter + Width = 86 + end + object V2Column9: TcxGridDBColumn + Caption = #22238#20179#31867#22411 + DataBinding.FieldName = 'APType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 61 + end + object V2Column12: TcxGridDBColumn + Caption = #22238#20462#25968#25454 + DataBinding.FieldName = 'AOrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 65 + end + object V2Column14: TcxGridDBColumn + Caption = #26816#39564#38376#24133'(cm)' + DataBinding.FieldName = 'JYMF' + Width = 87 + end + object V2Column15: TcxGridDBColumn + Caption = #26816#39564#20811#37325'(g/'#13217')' + DataBinding.FieldName = 'JYKZ' + Width = 97 + end + object V2Column6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'AOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 85 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1183 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 99 + OnClick = ToolButton8Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 129 + OnClick = ToolButton7Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 111 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 96 + OnClick = ToolButton6Click + end + object ToolButton11: TToolButton + Left = 378 + Top = 0 + Caption = #28155#21152#32568#26631#31614 + ImageIndex = 97 + OnClick = ToolButton11Click + end + object LBGANG: TComboBox + Left = 473 + Top = 5 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + end + end + object Panel3: TPanel + Left = 2 + Top = 34 + Width = 1183 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 24 + Top = 16 + Width = 48 + Height = 12 + Caption = #22238#20179#26102#38388 + end + object Label2: TLabel + Left = 189 + Top = 16 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + Visible = False + end + object Label4: TLabel + Left = 503 + Top = 16 + Width = 48 + Height = 12 + Caption = #25968#37327#21333#20301 + Visible = False + end + object Label5: TLabel + Left = 634 + Top = 16 + Width = 72 + Height = 12 + Caption = #26816#39564#25968#37327#21333#20301 + Visible = False + end + object Label7: TLabel + Left = 349 + Top = 16 + Width = 36 + Height = 12 + Caption = #22383#24067#21378 + Visible = False + end + object DateTimePicker1: TDateTimePicker + Left = 74 + Top = 12 + Width = 103 + Height = 20 + Date = 41281.501696319440000000 + Format = 'yyyy-MM-dd' + Time = 41281.501696319440000000 + TabOrder = 0 + end + object BtnEditA1: TBtnEditA + Left = 226 + Top = 12 + Width = 101 + Height = 20 + Enabled = False + TabOrder = 1 + Visible = False + OnBtnClick = BtnEditA1BtnClick + end + object ComboBox1: TComboBox + Left = 556 + Top = 12 + Width = 60 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Visible = False + Items.Strings = ( + 'M' + 'Kg') + end + object BtnEditA2: TBtnEditA + Left = 709 + Top = 12 + Width = 53 + Height = 20 + TabOrder = 3 + Visible = False + OnBtnClick = BtnEditA2BtnClick + end + object BtnEditA4: TBtnEditA + Left = 386 + Top = 12 + Width = 101 + Height = 20 + Enabled = False + TabOrder = 4 + Visible = False + OnBtnClick = BtnEditA4BtnClick + end + end + object MovePanel2: TMovePanel + Left = 450 + Top = 116 + Width = 252 + Height = 40 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 82 + Width = 1187 + Height = 259 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 68 + 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_TradeManage.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'TPPS' + Width = 61 + end + object v1Column7: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TPQty' + Width = 62 + end + object v1Column11: TcxGridDBColumn + Caption = #25237#22383#21333#20301 + DataBinding.FieldName = 'TPUnit' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column10: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Width = 54 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column2: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20462#21305#25968 + DataBinding.FieldName = 'HXPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #22238#20462#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'prtkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1187 + Height = 50 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label3: TLabel + Left = 19 + Top = 17 + 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 OrderNoM: TEdit + Tag = 2 + Left = 60 + Top = 9 + Width = 189 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = OrderNoMChange + end + end + object cxGrid4: TcxGrid + Left = 52 + Top = 113 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.FoneRed + object v4Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 179 + end + object v4Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 138 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = Tv4 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 656 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 784 + Top = 192 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 144 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 496 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 448 + 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 = 816 + Top = 192 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 208 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 976 + Top = 392 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 384 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 752 + Top = 192 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQueryHC: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 192 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 512 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 256 + end +end diff --git a/贸易管理/U_ProductOrderAnPai.pas b/贸易管理/U_ProductOrderAnPai.pas new file mode 100644 index 0000000..e294dae --- /dev/null +++ b/贸易管理/U_ProductOrderAnPai.pas @@ -0,0 +1,2355 @@ +unit U_ProductOrderAnPai; + +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, BtnEdit, cxTextEdit, cxButtonEdit, cxDropDownEdit, MovePanel,StrUtils, + cxCurrencyEdit; + +type + TfrmProductOrderAnPai = class(TForm) + ToolBar1: TToolBar; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + DataSource2: TDataSource; + CDS_Sub: TClientDataSet; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + ADOQueryPrint: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + Panel1: TPanel; + Label3: TLabel; + OrderNoM: TEdit; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + v4Column1: TcxGridDBColumn; + v4Column2: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + V2Column5: TcxGridDBColumn; + V2Column7: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + ToolButton4: TToolButton; + ADOQueryHC: TADOQuery; + Panel3: TPanel; + DateTimePicker1: TDateTimePicker; + BtnEditA1: TBtnEditA; + ComboBox1: TComboBox; + BtnEditA2: TBtnEditA; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label5: TLabel; + V2Column10: TcxGridDBColumn; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + V2Column11: TcxGridDBColumn; + BtnEditA4: TBtnEditA; + Label7: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ToolButton9: TToolButton; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton10: TToolButton; + V2Column12: TcxGridDBColumn; + MovePanel2: TMovePanel; + V2Column14: TcxGridDBColumn; + V2Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + V2Column13: TcxGridDBColumn; + ADOQuery1: TADOQuery; + ToolButton11: TToolButton; + LBGANG: TComboBox; + v1Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure AOrdDefNote12DblClick(Sender: TObject); + procedure AOrdDefNote7BtnDnClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure V2Column1PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure V2Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure BtnEditA2BtnClick(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure BtnEditA4BtnClick(Sender: TObject); + procedure V2Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure V2Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton11Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + function SaveData():Boolean; + procedure UpdateHC(FFirstNo:String); + function YFData():Boolean; + function DELYFData():Boolean; + procedure GetGangLb(); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderAnPai: TfrmProductOrderAnPai; + newh:hwnd; +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_ZDYHelp,U_iniParam, U_ZDYHelpSel,U_BefChkHX; + +{$R *.dfm} +procedure TfrmProductOrderAnPai.GetGangLb(); +begin + LBGANG.Items.Clear; + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''LBGANGFLAG'' '); + open; + If not isEmpty then + begin + while not eof do + begin + LBGANG.Items.Add(trim(fieldbyname('zdyName').AsString)); + next; + end; + LBGANG.ItemIndex:=0; + end; + end; + ADOQueryTemp.EnableControls; +end; +procedure TfrmProductOrderAnPai.FormDestroy(Sender: TObject); +begin + frmProductOrderAnPai:=nil; +end; + +procedure TfrmProductOrderAnPai.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderAnPai.FormCreate(Sender: TObject); +begin + + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderAnPai.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾϢ',Tv1,'زֹ'); + WriteCxGrid('زϢJZC1',Tv2,'زֹ'); +end; + +procedure TfrmProductOrderAnPai.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderAnPai.InitGridFH(); +begin +end; + +procedure TfrmProductOrderAnPai.InitForm(); +var + i:Integer; +begin + DateTimePicker1.DateTime:=SGetServerDateTime(ADOQueryTemp); + ReadCxGrid('ָʾϢ',Tv1,'زֹ'); + ReadCxGrid('زϢJZC1',Tv2,'زֹ'); +end; + +function TfrmProductOrderAnPai.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderAnPai.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ɹб'); +end; + +procedure TfrmProductOrderAnPai.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹ.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,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderAnPai.FormShow(Sender: TObject); +begin + InitForm(); + GetGangLb(); +end; + +procedure TfrmProductOrderAnPai.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderAnPai.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderAnPai.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderAnPai.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderAnPai.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 TfrmProductOrderAnPai.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderAnPai.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton2Click(Sender: TObject); +var + FLBName:String; +begin + {if CDS_Sub.IsEmpty=False then + begin + FLBName:=Trim(CDS_Sub.fieldbyname('LBName').AsString); + end; } + if Order_Main.IsEmpty then exit; + if CDS_Sub.IsEmpty then + begin + with CDS_Sub do + begin + Append; + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('ADefDate1').Value:=DateTimePicker1.Date; + FieldByName('AOrddefstr4').Value:=Trim(BtnEditA1.Text); + FieldByName('AOrddefstr5').Value:=Trim(BtnEditA1.TxtCode); + FieldByName('AOrddefstr2').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString); + IF Trim(BtnEditA2.Text)<>'' then + FieldByName('AOrddefstr3').Value:=Trim(BtnEditA2.Text) + else + FieldByName('AOrddefstr3').Value:=trim(Order_Main.FieldByName('Sorddefstr9').AsString); + FieldByName('AOrddefstr6').Value:=Trim(BtnEditA4.Text); + Post; + end; + end else + begin + ToolBar1.SetFocus; + //CopyAddRowCDS(CDS_Sub); + CopyAddRow(TV2,CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('APID').Value:=null; + FieldByName('GangNo').Value:=null; + FieldByName('AOrddefstr1').Value:=null; + FieldByName('AOrdQty2').Value:=null; + FieldByName('AOrdQty1').Value:=null; + FieldByName('GangNo').Value:=null; + //Post; + end; + end; + + +end; + +procedure TfrmProductOrderAnPai.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('APID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from WFB_MJJY where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub_AnPai where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty '); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + if DELYFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + end; + with CDS_Sub do + begin + Delete; + end; + if CDS_Sub.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=0 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=0,HCQty=0,HCMQty=0 where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryHC do + begin + Close; + sql.Clear; + sql.Add('select distinct(AOrddefstr5) AOrddefstr5 from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryHC.IsEmpty then + UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString)) + else + begin + with ADOQueryHC do + begin + First; + while not Eof do + begin + UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString)); + Next; + end; + end; + end; } + +end; + +function TfrmProductOrderAnPai.SaveData():Boolean; +var + maxno,CRID,OrdMainId,YFID,YFIDMaxNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Sub_AnPai',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('APId').AsString); + end; + IF CDS_Sub.FieldByName('ZSXS').AsFloat>10.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ϵܴ10','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('ApId').Value:=Trim(maxno); + FieldByName('ADefDate1').Value:=CDS_Sub.fieldbyname('ADefDate1').Value; + FieldByName('AOrddefstr4').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString); + FieldByName('AOrddefstr5').Value:=Trim(Order_Main.fieldbyname('FirstNo').AsString); + FieldByName('GangNo').Value:=CDS_Sub.fieldbyname('GangNo').Value; + FieldByName('AOrddefstr1').Value:=CDS_Sub.fieldbyname('AOrddefstr1').Value; + FieldByName('AOrddefstr2').Value:=CDS_Sub.fieldbyname('AOrddefstr2').Value; + FieldByName('LBName').Value:=CDS_Sub.fieldbyname('LBName').Value; + if Trim(CDS_Sub.fieldbyname('ZSXS').AsString)<>'' then + FieldByName('ZSXS').Value:=CDS_Sub.fieldbyname('ZSXS').Value + else + FieldByName('ZSXS').Value:=0; + {if Trim(CDS_Sub.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('JGPrice').Value:=CDS_Sub.fieldbyname('JGPrice').Value + else + FieldByName('JGPrice').Value:=0; } + FieldByName('AOrdQty2').Value:=CDS_Sub.fieldbyname('AOrdQty2').Value; + FieldByName('AOrdQty1').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + FieldByName('AOrddefstr3').Value:=CDS_Sub.fieldbyname('AOrddefstr3').Value; + FieldByName('AOrdDefNote1').Value:=CDS_Sub.fieldbyname('AOrdDefNote1').Value; + FieldByName('LLID').Value:=Order_Main.fieldbyname('LLID').Value; + FieldByName('AOrddefstr6').Value:=CDS_Sub.fieldbyname('AOrddefstr6').Value; + FieldByName('AOrdDefNote1').Value:=CDS_Sub.fieldbyname('AOrdDefNote1').Value; + FieldByName('APType').Value:=CDS_Sub.fieldbyname('APType').Value; + if Trim(CDS_Sub.fieldbyname('JYMF').AsString)<>'' then + FieldByName('JYMF').Value:=CDS_Sub.fieldbyname('JYMF').Value; + if Trim(CDS_Sub.fieldbyname('JYKZ').AsString)<>'' then + FieldByName('JYKZ').Value:=CDS_Sub.fieldbyname('JYKZ').Value; + if CDS_Sub.fieldbyname('AOrdFlag1').AsBoolean=True then + FieldByName('AOrdFlag1').Value:=1 + else + FieldByName('AOrdFlag1').Value:=0; + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from Contract_Cloth_LL where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString) then + begin + FieldByName('HCYZQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + end else + begin + if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='M' then + begin + FieldByName('HCYZQty').Value:=(CDS_Sub.fieldbyname('AOrdQty1').Value*1.00/ADOQueryTemp.fieldbyname('TPMQty').Value) + *ADOQueryTemp.fieldbyname('TPQty').Value ; + end; + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=1 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('APId').Value:=Trim(maxno); + CDS_Sub.FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate WFB_MJJY Set MJTypeOther='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where APId='''+Trim(maxno)+''''); + sql.Add(' UPdate CK_BanCP_KC Set KCQtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')'); + sql.Add(' UPdate CK_BanCP_CR Set QtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')'); + ExecSQL; + end; } + //OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty=False then + begin + CRID:=ADOQuery1.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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + if CDS_Sub.FieldByName('AOrdFlag1').AsBoolean<>True then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + sql.Add(' and YFName=''Ⱦ'' ') + else + sql.Add(' and YFName=''ӹ'' '); + + Open; + end; + YFID:=Trim(ADOQuery1.fieldbyname('YFID').AsString); + // if Trim(YFID)='' then + if Trim(YFID)='' then + begin + if GetLSNo(ADOQueryCmd,YFIDMaxNo,'RJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡȾӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFIDMaxNo:=YFID; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(YFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('YFID').Value:=Trim(YFIDMaxNo); + FieldByName('YFTypeId').Value:=Trim(CDS_Sub.fieldbyname('APId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('ADefDate1').Value; + if Trim(CDS_Sub.fieldbyname('AOrdQty1').AsString)<>'' then + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value + else + FieldByName('Qty').Value:=0; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(Order_Main.fieldbyname('OrdDefStr2').AsString); + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + FieldByName('YFName').Value:='Ⱦ' + else + FieldByName('YFName').Value:='ӹ'; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Post; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFIDMaxNo)+''''); + 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; + {if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('²Ӧʧ!','ʾ',0); + Exit; + end;} + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if (Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)=Trim(Order_Main.fieldbyname('TPUnit').AsString)) then + sql.Add('Update Contract_Cloth_LL Set HCQty=(select isnull(Sum(AOrdQty1),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID) ') + else + sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty '); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderAnPai.AOrdDefNote12DblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.AOrdDefNote7BtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmProductOrderAnPai.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderAnPai.ToolButton5Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton6Click(Sender: TObject); +var + fPrintFile,JYNote:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('δѡҪӡ!','ʾ',0); + Exit; + end; + IF Trim(LBGANG.Text)='' then + begin + Application.MessageBox('ѡҪӡĸױǩ','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + if Trim(CDS_Sub.fieldbyname('APID').AsString) ='' then + begin + CDS_Sub.EnableControls; + Application.MessageBox('δ治ܴӡ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + CDS_Sub.EnableControls; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBGANG.Text)+'.rmf' ; + 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; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNoM=B.OrderNo,B.OrderNo,B.conNO,B.CustomerNoName,B.OrdPerson1,B.MPRTCodeName,B.MPrtkuanNO,C.prtkuanNo,C.PRTColor,C.PRTHX,B.MPRTBZNote,B.MPRTKaiJian, '); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO), '); + sql.Add('B.MPRTYaoFeng,B.MPRTTangJin,B.MPRTJiBenNote,B.MPRTTeBieNote,C.SOrddefstr1,C.SOrddefstr4'); + sql.Add(' from JYOrder_Sub_AnPai A inner join JYOrder_Main B on A.MainId=B.MainId'); + sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId where A.APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('APID').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; + JYNote:='װҪ:'+Trim(ADOQueryPrint.fieldbyname('MPRTBZNote').AsString)+#13 + +'͹ҹ:'+Trim(ADOQueryPrint.fieldbyname('MPRTYaoFeng').AsString)+#13 + +'̽:'+Trim(ADOQueryPrint.fieldbyname('MPRTTangJin').AsString)+#13 + +'Ҫ:'+Trim(ADOQueryPrint.fieldbyname('MPRTJiBenNote').AsString)+#13 + +'رʾ:'+Trim(ADOQueryPrint.fieldbyname('MPRTTeBieNote').AsString); + RMVariables['JYNote']:=Trim(JYNote); + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + + + +end; + +procedure TfrmProductOrderAnPai.OrderNoMChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNoM.Text); + if Length(Trim(mvalue))<3 then + begin + cxGrid4.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_OrderNo); + SInitCDSData20(ADOQueryTemp,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True; +end; + +procedure TfrmProductOrderAnPai.Tv4DblClick(Sender: TObject); +begin + cxGrid4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add(' select isnull(PBFactory10,PBFactory20) PBFactory,AA.* from('); + sql.Add('select A.*,B.PRTColor,B.SubId,B.PRTOrderQty,B.OrderUnit,B.PrtkuanNO,B.SLbName,C.FirstName,C.FirstNo,B.SOrddefstr1,B.SOrddefstr4,B.SOrddefstr9, '); + sql.Add('C.TPPS,C.TPQty,C.LLID,C.HCPS,C.HCQty,C.HXUnit,C.DHIDHelp,C.DHID,C.TPUnit,'); + sql.Add('HXPS=(select Sum(HXPS) from Contract_Cloth_BefChkHX HX where HX.LLID=C.LLID),'); + sql.Add('HXQty=(select Sum(HXQty) from Contract_Cloth_BefChkHX HX where HX.LLID=C.LLID),'); + sql.Add('PBFactory10=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId'); + sql.Add(' where BB.DHID=C.DHID)'); + sql.Add(',PBFactory20=(select Top 1 FirstName from ContractSX_Cloth_DH SD where SD.DHID=C.SXDHID)'); + sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId'); + sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + // sql.Add(' and C.JXJGFlag=0'); +// sql.Add(' and exists(select * from Contract_Cloth_LLMX LM where LM.OrdSubId=B.SubId and LM.OrdSubId=C.OrdSubId )'); + sql.Add(' and exists( select * from Contract_Cloth_LLMX LLM where LLM.DHID=isnull(C.DHIdHelp,C.DHID)) )AA'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,Order_Main); + SInitCDSData20(ADOQueryTemp,Order_Main); +end; + +procedure TfrmProductOrderAnPai.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGrid(); + BtnEditA1.TxtCode:=Trim(Order_Main.fieldbyname('FirstNo').AsString); + BtnEditA1.Text:=Trim(Order_Main.fieldbyname('FirstName').AsString); + BtnEditA4.Text:=Trim(Order_Main.fieldbyname('PBFactory').AsString); +end; + +procedure TfrmProductOrderAnPai.V2Column1PropertiesEditValueChanged( + Sender: TObject); +//var + //mvalue,FFieldName,mvalue10,mvalue20:String; + //FHCPS,FHCQty,FHCMQty:Double; +begin + {if Trim(CDS_Sub.fieldbyname('AOrddefstr4').AsString)='' then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + with Self.ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if Self.ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + if FFieldName='AOrdQty1' then + begin + if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + end; + if Trim(mvalue)='' then + begin + if FFieldName='ZSXS' then + mvalue:='1' + else + if FFieldName='AOrddefstr2' then + mvalue:='' + else + mvalue:='0'; + end; + + with CDS_Sub do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + if Trim(FFieldName)='AOrddefstr2' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + if Trim(FFieldName)='AOrdQty2' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + Open; + end; + FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value; + if FHCPS>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCPS>0) do + begin + if FHCPS>=FieldByName('TPPS').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=FHCPS-FieldByName('TPPS').Value; + end else + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=0; + end; + Next; + end; + end; + end; + end; + if Trim(FFieldName)='AOrdQty1' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + Open; + end; + FHCQty:=ADOQueryTemp.FieldByName('HCQty').Value; + if FHCQty>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCQty>0) do + begin + if FHCQty>=FieldByName('BCPQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCQty:=FHCQty-FieldByName('BCPQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCQty:=0; + end; + Next; + end; + end; + end; + end;} +end; +procedure TfrmProductOrderAnPai.UpdateHC(FFirstNo:String); +var + FHCPS,FHCYZQty,FHCMQty:Double; +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+''''); + Open; + end; + FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value; + if FHCPS=0 then + begin + + end; + if FHCPS>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(FFirstNo)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCPS>0) do + begin + if FHCPS>=FieldByName('TPPS').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=FHCPS-FieldByName('TPPS').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=0; + end; + Next; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(HCYZQty),0) HCYZQty,isnull(Sum(HCMQty),0) HCMQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+''''); + Open; + end; + FHCYZQty:=ADOQueryTemp.FieldByName('HCYZQty').Value; + FHCMQty:=ADOQueryTemp.FieldByName('HCMQty').Value; + if FHCYZQty>=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(FFirstNo)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCYZQty>0) do + begin + if FHCYZQty>=FieldByName('BCPQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCYZQty:=FHCYZQty-FieldByName('BCPQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCYZQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCYZQty:=0; + end; + Next; + end; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCMQty>0) do + begin + if FHCMQty>=FieldByName('BCPMQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCMQty=BCPMQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCMQty:=FHCMQty-FieldByName('BCPMQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCMQty='+FloatToStr(FHCMQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCMQty:=0; + end; + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderAnPai.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +//var + //mvalue,FFieldName:String; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Sub do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; } +end; + + +procedure TfrmProductOrderAnPai.V2Column4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrddefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrddefstr2='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + sql.Add(' UPdate WFB_MJJY Set MJStr1='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.V2Column5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrddefstr3').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.V2Column6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:string; +begin + mvalue:=Trim(CDS_Sub.FieldByName('AOrdDefNote1').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JYYQ'; + flagname:='Ҫ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrdDefNote1').Value:=mvalue+frmZDYHelpSel.ReturnStr; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrdDefNote1='''+Trim(mvalue+frmZDYHelpSel.ReturnStr)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; } + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmProductOrderAnPai.V2Column8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('AOrddefstr4').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('AOrddefstr5').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrddefstr5='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' ,AOrddefstr4='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + //frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton4Click(Sender: TObject); +var + FDW:String; + I:integer; +begin + IF CDS_Sub.IsEmpty then exit; + if CDS_Sub.Locate('ADefDate1',null,[])=True then + begin + Application.MessageBox('زʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr4',null,[])=True then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr4','',[])=True then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('GangNo',null,[])=True then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr2',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr2','',[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr3',null,[])=True then + begin + Application.MessageBox('鳤ȵλΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr3','',[])=True then + begin + Application.MessageBox('鳤ȵλΪ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('AOrddefstr2','Kg',[])=True then + begin + if Trim(CDS_Sub.FieldByName('ZSXS').AsString)='' then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + end;} + if CDS_Sub.Locate('AOrdQty2',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrdQty1',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('LBName','',[])=True then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('LBName','',[])=True then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end;} + { if CDS_Sub.Locate('AOrdQty1','',[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end;} + FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString); + if CDS_Sub.Locate('AOrddefstr2',FDW,[])=False then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('AOrddefstr3',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr3','',[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString); + if CDS_Sub.Locate('AOrddefstr3',FDW,[])=False then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; } + + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)='M' then + begin + if CDS_Sub.Locate('AOrddefstr2','Kg',[]) then + begin + Application.MessageBox('λΪM,زλΪKg!','ʾ',0); + Exit; + end; + end; } + + i:=0; + with CDS_Sub do + begin + DisableControls; + First; + while not eof do + begin + IF trim(Order_Main.FieldByName('TPUnit').AsString)<>trim(CDS_Sub.FieldByName('AOrddefstr2').AsString) then + begin + I:=i+1; + end; + next; + end; + First; + EnableControls; + end; + IF i=0 then + begin + IF tv2.DataController.Summary.FooterSummaryValues[0]>order_main.FieldByName('TPQty').AsFloat*1.05 then + begin + Application.MessageBox('زܴͶ5%!','ʾ',0); + Exit; + end; + end; + OrderNoM.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + if SaveData() then + begin + MovePanel2.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + MovePanel2.Visible:=False; +end; + +procedure TfrmProductOrderAnPai.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + + end else + begin + BtnEditA1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + BtnEditA1.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + end; + finally + //frmZDYHelp.Free; + end; +end; +function TfrmProductOrderAnPai.YFData():Boolean; +var + CRID,OrdMainId,YFID,Price,LLID:String; +begin + Result:=False; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end;} + OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + if CDS_Sub.FieldByName('AOrdFlag1').AsBoolean=False then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + sql.Add(' and YFName=''Ⱦ'' ') + else + sql.Add(' and YFName=''ӹ'' '); + + Open; + end; + + if ADOQuery1.RecordCount<1 then + begin + + if GetLSNo(ADOQueryCmd,YFID,'RJ','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(CDS_Sub.fieldbyname('APId').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('ADefDate1').Value; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + FieldByName('YFType').Value:='Զ'; + {if Trim(CDS_Sub.fieldbyname('JGPrice').AsString)<>'' then + FieldByName('Price').Value:=CDS_Sub.fieldbyname('JGPrice').Value + else + FieldByName('Price').Value:=0;} + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(Order_Main.fieldbyname('OrdDefStr2').AsString); + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + FieldByName('YFName').Value:='Ⱦ' + else + FieldByName('YFName').Value:='ӹ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end else + begin + YFID:=Trim(ADOQuery1.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set '); + sql.Add('Qty='+CDS_Sub.fieldbyname('AOrdQty1').AsString); + SQL.Add(',CRTime='''+Trim(CDS_Sub.fieldbyname('ADefDate1').AsString)+''''); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; +function TfrmProductOrderAnPai.DELYFData():Boolean; +var + CRID,OrdMainId,YFID,Price,LLID:String; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Case when HXQty>0 then HCQty-HXQty else HCQty end as HCQty'); + SQL.Add(',Case when HXPS>0 then HCPS-HXPS else HCPS end as HCPS'); + SQL.Add(' from Contract_Cloth_LL where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + Open; + end; + 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; + Result:=True; +end; + +procedure TfrmProductOrderAnPai.BtnEditA2BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + BtnEditA2.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton8Click(Sender: TObject); +begin + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; +end; + +procedure TfrmProductOrderAnPai.ToolButton7Click(Sender: TObject); +begin + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; +end; + +procedure TfrmProductOrderAnPai.BtnEditA4BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + if ShowModal=1 then + begin + BtnEditA4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.V2Column11PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + if ShowModal=1 then + begin + begin + with CDS_Sub do + begin + Edit; + FieldByName('AOrddefstr6').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + + end; + end; + finally + //frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton9Click(Sender: TObject); +begin + try + frmBefChkHX:=TfrmBefChkHX.Create(Application); + with frmBefChkHX do + begin + orderno.Caption:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + PRTColor.Caption:=Trim(Self.Order_Main.fieldbyname('PRTColor').AsString); + FirstName.Caption:=Trim(Self.Order_Main.fieldbyname('FirstName').AsString); + PBFactory.Caption:=Trim(Self.Order_Main.fieldbyname('PBFactory').AsString); + FLLID:=Trim(Self.Order_Main.fieldbyname('LLID').AsString); + HXUnit:=Trim(Self.Order_Main.fieldbyname('TPUnit').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_BefChkHX where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + if ShowModal=1 then + begin + + end; + end; + finally + frmBefChkHX.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton10Click(Sender: TObject); +begin + if Order_Main.IsEmpty=False then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,C.FirstName,C.FirstNo,C.TPPS,C.TPQty,C.LLID,C.HXPS,C.HXQty,C.HXUnit,C.HCPS,C.HCQty,C.TPUnit,B.SOrddefstr1,B.SOrddefstr4 '); + sql.Add(',HXPS=(select Sum(HXPS) from Contract_Cloth_BefChkHX HX where HX.LLID=C.LLID),'); + sql.Add('HXQty=(select Sum(HXQty) from Contract_Cloth_BefChkHX HX where HX.LLID=C.LLID),'); + sql.Add('PBFactory=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId'); + sql.Add(' where BB.DHID=C.DHID)'); + //sql.Add(',HCQty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + //sql.Add(',HCPS=(select sum(AOrdQty2) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + //sql.Add(',HCUnit=(select Top 1 AOrddefstr2 from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId'); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and C.JXJGFlag=0'); + Open; + end; + SCreateCDS20(ADOQueryTemp,Order_Main); + SInitCDSData20(ADOQueryTemp,Order_Main); + end; +end; + +procedure TfrmProductOrderAnPai.V2Column13PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with CDS_Sub do + begin + Edit; + FieldByName('LbName').Value:=labname; + //Post; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmProductOrderAnPai.V2Column9PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='APType'; + flagname:='ز'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('APType').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.ToolButton11Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LBGANGFLAG'; + flagname:='ױǩ'; + if ShowModal=1 then + begin + end; + GetGangLb(); + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ProductOrderAnPaiGQX.dfm b/贸易管理/U_ProductOrderAnPaiGQX.dfm new file mode 100644 index 0000000..27fc1c6 --- /dev/null +++ b/贸易管理/U_ProductOrderAnPaiGQX.dfm @@ -0,0 +1,970 @@ +object frmProductOrderAnPaiGQX: TfrmProductOrderAnPaiGQX + Left = 86 + Top = 8 + Width = 1024 + Height = 721 + Caption = #26816#39564#25351#31034#21333 + 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 = 1008 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = ToolButton10Click + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 49 + Visible = False + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object ToolButton9: TToolButton + Left = 276 + Top = 0 + Caption = #26816#21069#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = ToolButton9Click + end + object TBPrint: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #25171#21360 + DropdownMenu = PopupMenu1 + ImageIndex = 12 + Style = tbsDropDown + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 439 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 341 + Width = 1008 + Height = 342 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 81 + Width = 1004 + Height = 259 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = V2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column1 + end + item + Kind = skSum + Column = V2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object V2Column10: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 39 + end + object V2Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 119 + end + object V2Column8: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'AOrddefstr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = V2Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object V2Column11: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'AOrddefstr6' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr2' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 59 + end + object V2Column9: TcxGridDBColumn + Caption = #25240#31639#25104#31859#31995#25968 + DataBinding.FieldName = 'ZSXS' + Width = 85 + end + object V2Column7: TcxGridDBColumn + Caption = #21305#25968#37327 + DataBinding.FieldName = 'AOrdQty2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object V2Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'AOrdQty1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 69 + end + object V2Column5: TcxGridDBColumn + Caption = #26816#39564#25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr3' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = V2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 83 + end + object V2Column6: TcxGridDBColumn + Caption = #26816#39564#35201#27714 + DataBinding.FieldName = 'AOrdDefNote1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column6PropertiesButtonClick + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 101 + end + object V2Column12: TcxGridDBColumn + Caption = #22238#20462#25968#25454 + DataBinding.FieldName = 'AOrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1004 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 99 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 129 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 111 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 96 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton11: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #19968#38190#20445#23384 + ImageIndex = 97 + OnClick = ToolButton11Click + end + end + object Panel3: TPanel + Left = 2 + Top = 34 + Width = 1004 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + Visible = False + object Label1: TLabel + Left = 24 + Top = 16 + Width = 48 + Height = 12 + Caption = #22238#20179#26102#38388 + end + object Label2: TLabel + Left = 189 + Top = 16 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label4: TLabel + Left = 503 + Top = 16 + Width = 48 + Height = 12 + Caption = #25968#37327#21333#20301 + end + object Label5: TLabel + Left = 634 + Top = 16 + Width = 72 + Height = 12 + Caption = #26816#39564#25968#37327#21333#20301 + end + object Label6: TLabel + Left = 782 + Top = 16 + Width = 48 + Height = 12 + Caption = #26816#39564#35201#27714 + end + object Label7: TLabel + Left = 349 + Top = 16 + Width = 36 + Height = 12 + Caption = #22383#24067#21378 + end + object DateTimePicker1: TDateTimePicker + Left = 74 + Top = 12 + Width = 103 + Height = 20 + Date = 41281.501696319440000000 + Format = 'yyyy-MM-dd' + Time = 41281.501696319440000000 + TabOrder = 0 + end + object BtnEditA1: TBtnEditA + Left = 226 + Top = 12 + Width = 101 + Height = 20 + Enabled = False + TabOrder = 1 + OnBtnClick = BtnEditA1BtnClick + end + object ComboBox1: TComboBox + Left = 556 + Top = 12 + Width = 60 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + 'M' + 'Kg') + end + object BtnEditA2: TBtnEditA + Left = 709 + Top = 12 + Width = 53 + Height = 20 + TabOrder = 3 + OnBtnClick = BtnEditA2BtnClick + end + object BtnEditA3: TBtnEditA + Left = 833 + Top = 12 + Width = 114 + Height = 20 + TabOrder = 4 + OnBtnClick = BtnEditA3BtnClick + end + object BtnEditA4: TBtnEditA + Left = 386 + Top = 12 + Width = 101 + Height = 20 + Enabled = False + TabOrder = 5 + OnBtnClick = BtnEditA4BtnClick + end + end + object MovePanel2: TMovePanel + Left = 342 + Top = 128 + Width = 252 + Height = 40 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 82 + Width = 1008 + Height = 259 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 68 + 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_TradeManage.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'TPPS' + Width = 61 + end + object v1Column7: TcxGridDBColumn + Caption = #25237#22383#31859#25968#37327 + DataBinding.FieldName = 'TPMQty' + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Width = 54 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 92 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column2: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column3: TcxGridDBColumn + Caption = #22238#20179#21333#20301 + DataBinding.FieldName = 'HCUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20462#21305#25968 + DataBinding.FieldName = 'HXPS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #22238#20462#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #22238#20462#21333#20301 + DataBinding.FieldName = 'HXUnit' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26631#31614 + DataBinding.FieldName = 'SLbName' + HeaderAlignmentHorz = taCenter + Width = 85 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1008 + Height = 50 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label3: TLabel + Left = 19 + Top = 17 + 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 OrderNoM: TEdit + Tag = 2 + Left = 60 + Top = 9 + Width = 189 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = OrderNoMChange + end + end + object cxGrid4: TcxGrid + Left = 60 + Top = 72 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.FoneRed + object v4Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 179 + end + object v4Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 138 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = Tv4 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 656 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 784 + Top = 192 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 144 + 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 496 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 448 + 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 = 816 + Top = 192 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 208 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 944 + Top = 384 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 384 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 752 + Top = 192 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQueryHC: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 192 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 512 + end +end diff --git a/贸易管理/U_ProductOrderAnPaiGQX.pas b/贸易管理/U_ProductOrderAnPaiGQX.pas new file mode 100644 index 0000000..67a6f41 --- /dev/null +++ b/贸易管理/U_ProductOrderAnPaiGQX.pas @@ -0,0 +1,2138 @@ +unit U_ProductOrderAnPaiGQX; + +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, BtnEdit, cxTextEdit, cxButtonEdit, cxDropDownEdit, MovePanel; + +type + TfrmProductOrderAnPaiGQX = class(TForm) + ToolBar1: TToolBar; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + DataSource2: TDataSource; + CDS_Sub: TClientDataSet; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + ADOQueryPrint: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + Panel1: TPanel; + Label3: TLabel; + OrderNoM: TEdit; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + v4Column1: TcxGridDBColumn; + v4Column2: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + V2Column7: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + ToolButton4: TToolButton; + ADOQueryHC: TADOQuery; + Panel3: TPanel; + DateTimePicker1: TDateTimePicker; + BtnEditA1: TBtnEditA; + ComboBox1: TComboBox; + BtnEditA2: TBtnEditA; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label5: TLabel; + BtnEditA3: TBtnEditA; + Label6: TLabel; + V2Column10: TcxGridDBColumn; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + V2Column11: TcxGridDBColumn; + BtnEditA4: TBtnEditA; + Label7: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ToolButton9: TToolButton; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + ToolButton10: TToolButton; + V2Column12: TcxGridDBColumn; + MovePanel2: TMovePanel; + ToolButton11: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure AOrdDefNote12DblClick(Sender: TObject); + procedure AOrdDefNote7BtnDnClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure V2Column1PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure V2Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V2Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure BtnEditA2BtnClick(Sender: TObject); + procedure BtnEditA3BtnClick(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure BtnEditA4BtnClick(Sender: TObject); + procedure V2Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + function SaveData():Boolean; + procedure UpdateHC(FFirstNo:String); + function YFData():Boolean; + function DELYFData():Boolean; + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderAnPaiGQX: TfrmProductOrderAnPaiGQX; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_ZDYHelp,U_iniParam, U_ZDYHelpSel,U_BefChkHX; + +{$R *.dfm} + +procedure TfrmProductOrderAnPaiGQX.FormDestroy(Sender: TObject); +begin + frmProductOrderAnPaiGQX:=nil; +end; + +procedure TfrmProductOrderAnPaiGQX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderAnPaiGQX.FormCreate(Sender: TObject); +begin + + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderAnPaiGQX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾϢ',Tv1,'زֹ'); + WriteCxGrid('زϢ',Tv2,'زֹ'); +end; + +procedure TfrmProductOrderAnPaiGQX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderAnPaiGQX.InitGridFH(); +begin +end; + +procedure TfrmProductOrderAnPaiGQX.InitForm(); +var + i:Integer; +begin + DateTimePicker1.DateTime:=SGetServerDateTime(ADOQueryTemp); + ReadCxGrid('ָʾϢ',Tv1,'زֹ'); + ReadCxGrid('زϢ',Tv2,'زֹ'); +end; + +function TfrmProductOrderAnPaiGQX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣','ʾ',0); + Result:=False; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ɹб'); +end; + +procedure TfrmProductOrderAnPaiGQX.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹ.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,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderAnPaiGQX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderAnPaiGQX.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderAnPaiGQX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderAnPaiGQX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderAnPaiGQX.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderAnPaiGQX.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 TfrmProductOrderAnPaiGQX.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton2Click(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('ADefDate1').Value:=DateTimePicker1.Date; + FieldByName('AOrddefstr4').Value:=Trim(BtnEditA1.Text); + FieldByName('AOrddefstr5').Value:=Trim(BtnEditA1.TxtCode); + FieldByName('AOrddefstr2').Value:=Trim(ComboBox1.Text); + FieldByName('AOrddefstr3').Value:=Trim(BtnEditA2.Text); + FieldByName('AOrdDefNote1').Value:=Trim(BtnEditA3.Text); + FieldByName('AOrddefstr6').Value:=Trim(BtnEditA4.Text); + Post; + end; + +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('APID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from WFB_MJJY where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub_AnPai where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty '); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + if DELYFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + end; + with CDS_Sub do + begin + Delete; + end; + if CDS_Sub.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=0 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + {with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=0,HCQty=0,HCMQty=0 where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryHC do + begin + Close; + sql.Clear; + sql.Add('select distinct(AOrddefstr5) AOrddefstr5 from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryHC.IsEmpty then + UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString)) + else + begin + with ADOQueryHC do + begin + First; + while not Eof do + begin + UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString)); + Next; + end; + end; + end; } + +end; + +function TfrmProductOrderAnPaiGQX.SaveData():Boolean; +var + maxno:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Sub_AnPai',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('APId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('ApId').Value:=Trim(maxno); + FieldByName('ADefDate1').Value:=CDS_Sub.fieldbyname('ADefDate1').Value; + FieldByName('AOrddefstr4').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString); + FieldByName('AOrddefstr5').Value:=Trim(Order_Main.fieldbyname('FirstNo').AsString); + FieldByName('GangNo').Value:=CDS_Sub.fieldbyname('GangNo').Value; + FieldByName('AOrddefstr1').Value:=CDS_Sub.fieldbyname('AOrddefstr1').Value; + FieldByName('AOrddefstr2').Value:=CDS_Sub.fieldbyname('AOrddefstr2').Value; + if Trim(CDS_Sub.fieldbyname('ZSXS').AsString)<>'' then + FieldByName('ZSXS').Value:=CDS_Sub.fieldbyname('ZSXS').Value + else + FieldByName('ZSXS').Value:=1; + FieldByName('AOrdQty2').Value:=CDS_Sub.fieldbyname('AOrdQty2').Value; + FieldByName('AOrdQty1').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + FieldByName('AOrddefstr3').Value:=CDS_Sub.fieldbyname('AOrddefstr3').Value; + FieldByName('AOrdDefNote1').Value:=CDS_Sub.fieldbyname('AOrdDefNote1').Value; + FieldByName('LLID').Value:=Order_Main.fieldbyname('LLID').Value; + FieldByName('AOrddefstr6').Value:=CDS_Sub.fieldbyname('AOrddefstr6').Value; + if CDS_Sub.fieldbyname('AOrdFlag1').AsBoolean=True then + FieldByName('AOrdFlag1').Value:=1 + else + FieldByName('AOrdFlag1').Value:=0; + + //RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_Sub,'JYOrder_Sub_AnPai',0); + {if Trim(CDS_Sub.fieldbyname('APID').AsString)<>'' then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end else + begin + + end; } + if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from Contract_Cloth_LL where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString) then + begin + FieldByName('HCYZQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + end else + begin + if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='M' then + begin + FieldByName('HCYZQty').Value:=(CDS_Sub.fieldbyname('AOrdQty1').Value*1.00/ADOQueryTemp.fieldbyname('TPMQty').Value) + *ADOQueryTemp.fieldbyname('TPQty').Value ; + end; + end; + if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='M' then + begin + FieldByName('HCMQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + end else + begin + FieldByName('HCMQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value*CDS_Sub.fieldbyname('ZSXS').Value; + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=1 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + CDS_Sub.Edit; + CDS_Sub.FieldByName('APId').Value:=Trim(maxno); + CDS_Sub.FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + + //Order_Sub.Post; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate WFB_MJJY Set MJTypeOther='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where APId='''+Trim(maxno)+''''); + sql.Add(' UPdate CK_BanCP_KC Set KCQtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')'); + sql.Add(' UPdate CK_BanCP_CR Set QtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+''''); + SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')'); + ExecSQL; + end; + } + if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('²Ӧʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; + { with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=0,HCQty=0,HCMQty=0 where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryHC do + begin + Close; + sql.Clear; + sql.Add('select distinct(AOrddefstr5) AOrddefstr5 from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + with ADOQueryHC do + begin + First; + while not Eof do + begin + UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString)); + Next; + end; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )'); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if (Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)=Trim(Order_Main.fieldbyname('TPUnit').AsString)) then + sql.Add('Update Contract_Cloth_LL Set HCQty=(select isnull(Sum(AOrdQty1),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID) ') + else + sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty '); + sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + {if YFData()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('²Ӧʧ!','ʾ',0); + Exit; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderAnPaiGQX.AOrdDefNote12DblClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.AOrdDefNote7BtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmProductOrderAnPaiGQX.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton5Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('δѡҪӡ!','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + if Trim(CDS_Sub.fieldbyname('APID').AsString) ='' then + begin + CDS_Sub.EnableControls; + Application.MessageBox('δ治ܴӡ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + CDS_Sub.EnableControls; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + 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; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if CDS_Sub.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNoM=B.OrderNo ,B.MPRTCodeName,C.PRTColor from JYOrder_Sub_AnPai A '); + sql.Add('inner join JYOrder_Main B on A.MainId=B.MainId'); + sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId where A.APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + + + +end; + +procedure TfrmProductOrderAnPaiGQX.OrderNoMChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNoM.Text); + if Length(Trim(mvalue))<4 then + begin + cxGrid4.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_OrderNo); + SInitCDSData20(ADOQueryTemp,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True; +end; + +procedure TfrmProductOrderAnPaiGQX.Tv4DblClick(Sender: TObject); +begin + cxGrid4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,C.FirstName,C.FirstNo,C.TPPS,C.TPMQty,C.LLID,C.HXPS,C.HXQty,C.HXUnit,C.DHIDHelp,C.DHID,C.TPUnit '); + sql.Add(',PBFactory=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId'); + sql.Add(' where BB.DHID=C.DHID)'); + sql.Add(',HCUnit=(select Top 1 AOrddefstr2 from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId'); + sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and C.JXJGFlag=0'); + sql.Add(' and exists(select * from Contract_Cloth_LLMX LM where LM.OrdSubId=B.SubId and LM.OrdSubId=C.OrdSubId )'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,Order_Main); + SInitCDSData20(ADOQueryTemp,Order_Main); +end; + +procedure TfrmProductOrderAnPaiGQX.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGrid(); + BtnEditA1.TxtCode:=Trim(Order_Main.fieldbyname('FirstNo').AsString); + BtnEditA1.Text:=Trim(Order_Main.fieldbyname('FirstName').AsString); + BtnEditA4.Text:=Trim(Order_Main.fieldbyname('PBFactory').AsString); +end; + +procedure TfrmProductOrderAnPaiGQX.V2Column1PropertiesEditValueChanged( + Sender: TObject); +//var + //mvalue,FFieldName,mvalue10,mvalue20:String; + //FHCPS,FHCQty,FHCMQty:Double; +begin + {if Trim(CDS_Sub.fieldbyname('AOrddefstr4').AsString)='' then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + with Self.ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if Self.ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + if FFieldName='AOrdQty1' then + begin + if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + end; + if Trim(mvalue)='' then + begin + if FFieldName='ZSXS' then + mvalue:='1' + else + if FFieldName='AOrddefstr2' then + mvalue:='' + else + mvalue:='0'; + end; + + with CDS_Sub do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + if Trim(FFieldName)='AOrddefstr2' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'='+Trim(mvalue)); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + if Trim(FFieldName)='AOrdQty2' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + Open; + end; + FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value; + if FHCPS>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCPS>0) do + begin + if FHCPS>=FieldByName('TPPS').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=FHCPS-FieldByName('TPPS').Value; + end else + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=0; + end; + Next; + end; + end; + end; + end; + if Trim(FFieldName)='AOrdQty1' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + Open; + end; + FHCQty:=ADOQueryTemp.FieldByName('HCQty').Value; + if FHCQty>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCQty>0) do + begin + if FHCQty>=FieldByName('BCPQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCQty:=FHCQty-FieldByName('BCPQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCQty:=0; + end; + Next; + end; + end; + end; + end;} +end; +procedure TfrmProductOrderAnPaiGQX.UpdateHC(FFirstNo:String); +var + FHCPS,FHCYZQty,FHCMQty:Double; +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(AOrdQty2),0) HCPS from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+''''); + Open; + end; + FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value; + if FHCPS=0 then + begin + + end; + if FHCPS>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(FFirstNo)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCPS>0) do + begin + if FHCPS>=FieldByName('TPPS').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=FHCPS-FieldByName('TPPS').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCPS:=0; + end; + Next; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(Sum(HCYZQty),0) HCYZQty,isnull(Sum(HCMQty),0) HCMQty from JYOrder_Sub_AnPai '); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+''''); + Open; + end; + FHCYZQty:=ADOQueryTemp.FieldByName('HCYZQty').Value; + FHCMQty:=ADOQueryTemp.FieldByName('HCMQty').Value; + if FHCYZQty>=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FirstNo='''+Trim(FFirstNo)+''''); + SQL.Add(' order by LLIdx'); + Open; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCYZQty>0) do + begin + if FHCYZQty>=FieldByName('BCPQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCYZQty:=FHCYZQty-FieldByName('BCPQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCYZQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCYZQty:=0; + end; + Next; + end; + end; + with ADOQueryTemp do + begin + First; + while (not eof) and (FHCMQty>0) do + begin + if FHCMQty>=FieldByName('BCPMQty').Value then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCMQty=BCPMQty '); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCMQty:=FHCMQty-FieldByName('BCPMQty').Value; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Cloth_LL Set HCMQty='+FloatToStr(FHCMQty)); + sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+''''); + ExecSQL; + end; + FHCMQty:=0; + end; + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +//var + //mvalue,FFieldName:String; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Sub do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; } +end; + + +procedure TfrmProductOrderAnPaiGQX.V2Column4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrddefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrddefstr2='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + { sql.Add(' UPdate WFB_MJJY Set MJStr1='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); } + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.V2Column5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrddefstr3').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.V2Column6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:string; +begin + mvalue:=Trim(CDS_Sub.FieldByName('AOrdDefNote1').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JYYQ'; + flagname:='Ҫ'; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('AOrdDefNote1').Value:=mvalue+frmZDYHelpSel.ReturnStr; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrdDefNote1='''+Trim(mvalue+frmZDYHelpSel.ReturnStr)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; } + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.V2Column8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + //flag:='RKPlace'; + flag:='FactoryNo1Name'; + flagname:='Ⱦ'; + MainType:='Ⱦ'; + if ShowModal=1 then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('AOrddefstr4').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('AOrddefstr5').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Sub_AnPai '); + sql.Add(' Set AOrddefstr5='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' ,AOrddefstr4='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + //frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton4Click(Sender: TObject); +var + FDW:String; +begin + if CDS_Sub.Locate('ADefDate1',null,[])=True then + begin + Application.MessageBox('زʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr4',null,[])=True then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr4','',[])=True then + begin + Application.MessageBox('ȾΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('GangNo',null,[])=True then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr2',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr2','',[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr2','Kg',[])=True then + begin + if Trim(CDS_Sub.FieldByName('ZSXS').AsString)='' then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + end; + if CDS_Sub.Locate('AOrdQty2',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrdQty1',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + { if CDS_Sub.Locate('AOrdQty1','',[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end;} + FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString); + if CDS_Sub.Locate('AOrddefstr2',FDW,[])=False then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr3',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('AOrddefstr3','',[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString); + if CDS_Sub.Locate('AOrddefstr3',FDW,[])=False then + begin + Application.MessageBox('λһ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)='M' then + begin + if CDS_Sub.Locate('AOrddefstr2','Kg',[]) then + begin + Application.MessageBox('λΪM,زλΪKg!','ʾ',0); + Exit; + end; + end; + OrderNoM.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + if SaveData() then + begin + MovePanel2.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + MovePanel2.Visible:=False; +end; + +procedure TfrmProductOrderAnPaiGQX.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:='Ⱦ'; + MainType:='Ⱦ'; + if ShowModal=1 then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL A '); + sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + sql.Add(' and A.OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ȾûӦ!','ʾ',0); + + end else + begin + BtnEditA1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + BtnEditA1.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + + end; + end; + finally + //frmZDYHelp.Free; + end; +end; +function TfrmProductOrderAnPaiGQX.YFData():Boolean; +var + CRID,OrdMainId,YFID,Price,LLID:String; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + sql.Add('select Top 1 * from Contract_Cloth_LLMX where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+'''') + else + sql.Add('select Top 1 * from Contract_Cloth_LLMX where DHID='''+Trim(Order_Main.fieldbyname('DHIDHelp').AsString)+'''') ; + Open; + end; + Price:=ADOQueryTemp.fieldbyname('JGPrice').AsString; + if Trim(Price)='' then Price:='0'; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main.fieldbyname('LLid').AsString)+''''); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + sql.Add(' and YFName=''Ⱦ'' ') + else + sql.Add(' and YFName=''ӹ'' '); + Open; + end;} + if CDS_Sub.FieldByName('AOrdFlag1').AsBoolean=False then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+''''); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + sql.Add(' and YFName=''Ⱦ'' ') + else + sql.Add(' and YFName=''ӹ'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + + if GetLSNo(ADOQueryCmd,YFID,'RJ','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(CDS_Sub.fieldbyname('APId').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_Main.fieldbyname('FirstName').AsString); + FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('ADefDate1').Value; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Price; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(Order_Main.fieldbyname('OrdDefStr2').AsString); + FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString); + if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + FieldByName('YFName').Value:='Ⱦ' + else + FieldByName('YFName').Value:='ӹ'; + FieldByName('MainId').Value:=Trim(OrdMainId); + Post; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set Price='+Price); + sql.Add(',Qty='+CDS_Sub.fieldbyname('AOrdQty1').AsString); + SQL.Add(',CRTime='''+Trim(CDS_Sub.fieldbyname('ADefDate1').AsString)+''''); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + end; + + + //if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Case when HXQty>0 then HCQty-HXQty else HCQty end as HCQty'); + SQL.Add(',Case when HXPS>0 then HCPS-HXPS else HCPS end as HCPS'); + SQL.Add(' from Contract_Cloth_LL where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + Open; + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty='+ADOQueryTemp.fieldbyname('HCQty').AsString); + sql.Add(',PS='+ADOQueryTemp.fieldbyname('HCPS').AsString); + sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('LLid').AsString)+''''); + ExecSQL; + end; } + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + 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; + Result:=True; +end; +function TfrmProductOrderAnPaiGQX.DELYFData():Boolean; +var + CRID,OrdMainId,YFID,Price,LLID:String; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').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_Main.fieldbyname('FirstName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Case when HXQty>0 then HCQty-HXQty else HCQty end as HCQty'); + SQL.Add(',Case when HXPS>0 then HCPS-HXPS else HCPS end as HCPS'); + SQL.Add(' from Contract_Cloth_LL where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + Open; + end; + 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; + Result:=True; +end; + +procedure TfrmProductOrderAnPaiGQX.BtnEditA2BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + BtnEditA2.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.BtnEditA3BtnClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JYYQ'; + flagname:='Ҫ'; + if ShowModal=1 then + begin + BtnEditA3.Text:=Trim(BtnEditA3.Text)+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton8Click(Sender: TObject); +begin + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton7Click(Sender: TObject); +begin + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; +end; + +procedure TfrmProductOrderAnPaiGQX.BtnEditA4BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + BtnEditA4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.V2Column11PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + begin + with CDS_Sub do + begin + Edit; + FieldByName('AOrddefstr6').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + + end; + end; + finally + //frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton9Click(Sender: TObject); +begin + try + frmBefChkHX:=TfrmBefChkHX.Create(Application); + with frmBefChkHX do + begin + orderno.Caption:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + PRTColor.Caption:=Trim(Self.Order_Main.fieldbyname('PRTColor').AsString); + FirstName.Caption:=Trim(Self.Order_Main.fieldbyname('FirstName').AsString); + PBFactory.Caption:=Trim(Self.Order_Main.fieldbyname('PBFactory').AsString); + FLLID:=Trim(Self.Order_Main.fieldbyname('LLID').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_BefChkHX where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + if ShowModal=1 then + begin + + end; + end; + finally + frmBefChkHX.Free; + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton10Click(Sender: TObject); +begin + if Order_Main.IsEmpty=False then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,C.FirstName,C.FirstNo,C.TPPS,C.TPMQty,C.LLID,C.HXPS,C.HXQty,C.HXUnit '); + sql.Add(',PBFactory=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId'); + sql.Add(' where BB.DHID=C.DHID)'); + sql.Add(',HCQty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + sql.Add(',HCPS=(select sum(AOrdQty2) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + sql.Add(',HCUnit=(select Top 1 AOrddefstr2 from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)'); + sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId'); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and C.JXJGFlag=0'); + Open; + end; + SCreateCDS20(ADOQueryTemp,Order_Main); + SInitCDSData20(ADOQueryTemp,Order_Main); + end; +end; + +procedure TfrmProductOrderAnPaiGQX.ToolButton11Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + with CDS_Sub do + begin + First; + while not Eof do + begin + if YFData()=False then + begin + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('²Ӧʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + MovePanel2.Visible:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/贸易管理/U_ProductOrderLBNameSet.dfm b/贸易管理/U_ProductOrderLBNameSet.dfm new file mode 100644 index 0000000..5f0c295 --- /dev/null +++ b/贸易管理/U_ProductOrderLBNameSet.dfm @@ -0,0 +1,763 @@ +object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet + Left = 188 + Top = 135 + Width = 1235 + Height = 669 + Caption = #26631#31614#35774#32622 + 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 = 1219 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21367#26631#31614#35774#32622 + ImageIndex = 60 + OnClick = ToolButton2Click + end + object ToolButton6: TToolButton + Left = 351 + Top = 0 + AutoSize = True + Caption = #21367#26631#31614#39044#35272 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton6Click + end + object ToolButton4: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21253#26631#31614#35774#32622 + ImageIndex = 60 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 99 + Top = 30 + AutoSize = True + Caption = #21253#26631#31614#39044#35272 + ImageIndex = 12 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 198 + Top = 30 + AutoSize = True + Caption = #30382#37325#35774#32622'(Kg)' + ImageIndex = 29 + OnClick = ToolButton3Click + end + object ToolButton5: TToolButton + Left = 309 + Top = 30 + AutoSize = True + Caption = #31995#25968#35774#32622 + ImageIndex = 29 + OnClick = ToolButton5Click + end + object PiZhong: TEdit + Left = 396 + Top = 30 + Width = 121 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object TBClose: TToolButton + Left = 517 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1219 + Height = 66 + 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 = #35746#21333#21495 + 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 = 476 + 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 = #21512#21516#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 = 476 + 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 = 621 + Top = 39 + 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 = 621 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 21 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 21 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 529 + Top = 11 + Width = 76 + Height = 21 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 21 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 530 + Top = 35 + Width = 76 + Height = 21 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 21 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 650 + Top = 35 + Width = 56 + Height = 21 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 21 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 128 + Width = 1219 + Height = 502 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column7: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #21367#26631#31614#21517#31216 + DataBinding.FieldName = 'LBName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column3: TcxGridDBColumn + Caption = #21253#26631#31614#21517#31216 + DataBinding.FieldName = 'NLBName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 125 + end + object v1Column2: TcxGridDBColumn + Caption = #30382#37325'(Kg)' + DataBinding.FieldName = 'PiZhong' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object vXSDian: TcxGridDBColumn + Caption = #38271#24230#23567#25968#20301 + DataBinding.FieldName = 'XSDian' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = vXSDianPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'Xs' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #25442#31639#31995#25968#31867#22411 + DataBinding.FieldName = 'xsType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + '' + '' + #38271#24230#25442#31639#20928#37325 + #20928#37325#25442#31639#38271#24230) + Properties.ReadOnly = False + Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 84 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 410 + Top = 137 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679 + #21697#36136#26679 + #33457#22411#26679) + TabOrder = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end +end diff --git a/贸易管理/U_ProductOrderLBNameSet.pas b/贸易管理/U_ProductOrderLBNameSet.pas new file mode 100644 index 0000000..a63730c --- /dev/null +++ b/贸易管理/U_ProductOrderLBNameSet.pas @@ -0,0 +1,1059 @@ +unit U_ProductOrderLBNameSet; + +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,StrUtils, + Menus, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +type + TfrmProductOrderLBNameSet = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + PiZhong: TEdit; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + ToolButton5: TToolButton; + v1Column6: TcxGridDBColumn; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + v1Column7: TcxGridDBColumn; + vXSDian: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure vXSDianPropertiesEditValueChanged(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderLBNameSet: TfrmProductOrderLBNameSet; + newh:hwnd; +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderLBNameSet.FormDestroy(Sender: TObject); +begin + frmProductOrderLBNameSet:=nil; +end; + +procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderLBNameSet.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderLBNameSet.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ǩ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderLBNameSet.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + { if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; } + Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderLBNameSet.InitForm(); +begin + ReadCxGrid('ǩ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmProductOrderLBNameSet.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 TfrmProductOrderLBNameSet.TBPrintClick(Sender: TObject); +begin + Panel4.Visible:=True; +end; + +procedure TfrmProductOrderLBNameSet.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderLBNameSet.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 TfrmProductOrderLBNameSet.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderLBNameSet.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderLBNameSet.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderLBNameSet.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderLBNameSet.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderLBNameSet.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderLBNameSet.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if RadioGroup1.ItemIndex=0 then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + SQL.Add(', Case when B.OrderUnit=''M'' then Cast (dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as varchar(20))+''Kg'' '); + SQL.Add(' when B.OrderUnit=''Y'' then Cast (dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as varchar(20))+''Kg'' '); + sql.Add(' else '''' end as PRTOrderKgQtyStr '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + + end else + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); + Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + begin + if Trim(LBName)='ɫ' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PRTOrderKgQty),0) PRTOrderKgHZQty from('); + sql.Add('select '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,2))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,2)) '); + sql.Add(' else 0 end as PRTOrderKgQty'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + Open; + end; + OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if OrderKg>0 then + RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + else + RMVariables['OrderKg']:=''; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderLBNameSet.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; +begin + IF Order_Main.IsEmpty then exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + + fFileName:=''; + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + end; + finally + end; + + fFileName:=Copy(fFileName,1,Length(fFileName)-4); + + IF trim(fFileName)='' then exit; + with order_Main do + begin + first; + While not Eof do + begin + If FieldByName('Ssel').AsBoolean=true then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_main Set LBName='''+Trim(fFileName)+''''); + sql.Add(' where mainid='''+Trim(Order_Main.fieldbyname('mainid').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('LbName').Value:=trim(fFileName); + end; + next; + end; + end; + + + + with Order_Main do + begin + DisableControls; + first; + while not Eof do + begin + edit; + fieldbyname('Ssel').AsBoolean:=False; + post; + next; + end; + first; + EnableControls; + end; +end; +//type +// TMyFunc = function(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;stdcall; +//var +// Tf: TMyFunc; +// Tp: TFarProc; +// Th:Thandle; +// LabInt,labname:String; +//begin +// //if PPInt=2 then Exit; +// Ddatabase:=StringOfChar(' ', 32); +// Th := LoadLibrary('LabelSet.dll'); +// if Th > 0 then +// begin +// try +// Tp := GetProcAddress(Th, 'GetDllForm'); +// if Tp <> nil then +// begin +// Tf := TMyFunc(Tp); +// newh:=Tf(Application,0,2,0,0, +// PChar(DCode), +// PChar(DName), +// PChar(Ddatabase), +// PChar('ǩģ'), +// PChar(''), +// PChar(''), +// '','','','','','','','',PChar(DConString) +// ); +// if Trim(PChar(Ddatabase))<>'' then +// begin +// Ddatabase:=Trim(PChar(Ddatabase)); +// LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; +// labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update JYOrder_Main Set LBName='''+Trim(labname)+''''); +// sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); +// ExecSQL; +// end; +// with Order_Main do +// begin +// Edit; +// FieldByName('LbName').Value:=labname; +// Post; +// end; +// end; +// end +// else +// begin +// ShowMessage('ӡִд'); +// end; +// finally +// // FreeLibrary(); +// end; +// end +// else +// begin +// ShowMessage('Ҳ'+Trim('LabelSet.dll')); +// end; +// tv1.Controller.EditingController.ShowEdit(); +//end; + +procedure TfrmProductOrderLBNameSet.ToolButton3Click(Sender: TObject); +var + FPiZhong:string; + FReal:Double; +begin + if Trim(PiZhong.Text)='' then + begin + Application.MessageBox('ƤزΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(PiZhong.Text,FReal)=False then + begin + Application.MessageBox('ƤطǷ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set PiZhong='+(PiZhong.Text)); + sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('PiZhong').Value:=PiZhong.Text; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; +begin + IF Order_Main.IsEmpty then exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + + fFileName:=''; + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + end; + finally + end; + + fFileName:=Copy(fFileName,1,Length(fFileName)-4); + + IF trim(fFileName)='' then exit; + with order_Main do + begin + first; + While not Eof do + begin + If FieldByName('Ssel').AsBoolean=true then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_main Set NLBName='''+Trim(fFileName)+''''); + sql.Add(' where mainid='''+Trim(Order_Main.fieldbyname('mainid').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('NLBName').Value:=trim(fFileName); + end; + next; + end; + end; + + + + with Order_Main do + begin + DisableControls; + first; + while not Eof do + begin + edit; + fieldbyname('Ssel').AsBoolean:=False; + post; + next; + end; + first; + EnableControls; + end; +end; +//type +// TMyFunc = function(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;stdcall; +//var +// Tf: TMyFunc; +// Tp: TFarProc; +// Th:Thandle; +// LabInt,labname:String; +//begin +// //if PPInt=2 then Exit; +// Ddatabase:=StringOfChar(' ', 32); +// Th := LoadLibrary('LabelSet.dll'); +// if Th > 0 then +// begin +// try +// Tp := GetProcAddress(Th, 'GetDllForm'); +// if Tp <> nil then +// begin +// Tf := TMyFunc(Tp); +// newh:=Tf(Application,0,2,0,0, +// PChar(DCode), +// PChar(DName), +// PChar(Ddatabase), +// PChar('ǩģ'), +// PChar(''), +// PChar(''), +// '','','','','','','','',PChar(DConString) +// ); +// if Trim(PChar(Ddatabase))<>'' then +// begin +// Ddatabase:=Trim(PChar(Ddatabase)); +// LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; +// labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update JYOrder_Main Set NLBName='''+Trim(labname)+''''); +// sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); +// ExecSQL; +// end; +// with Order_Main do +// begin +// Edit; +// FieldByName('NLbName').Value:=labname; +// Post; +// end; +// end; +// end +// else +// begin +// ShowMessage('ӡִд'); +// end; +// finally +// // FreeLibrary(); +// end; +// end +// else +// begin +// ShowMessage('Ҳ'+Trim('LabelSet.dll')); +// end; +// tv1.Controller.EditingController.ShowEdit(); +//end; + + +procedure TfrmProductOrderLBNameSet.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalues:string; +begin + mvalues:=TCXTextEdit(Sender).Text; + + with Order_Main do + begin + edit; + fieldbyname('NLBName').Value:=mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); + IF trim(mvalues)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set NLBName='''' '); + sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + end +end; + +procedure TfrmProductOrderLBNameSet.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalues:string; +begin + mvalues:=TCXTextEdit(Sender).Text; + + with Order_Main do + begin + edit; + fieldbyname('NLBName').Value:=mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); + IF trim(mvalues)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set LBName='''' '); + sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + end +end; +procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject); +var + FReal:Double; +begin + if Trim(PiZhong.Text)='' then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(PiZhong.Text,FReal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set XS='+(PiZhong.Text)); + sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('XS').Value:=PiZhong.Text; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderLBNameSet.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalues:string; +begin + mvalues:=TCXTextEdit(Sender).Text; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set XSType='''+trim(mvalues)+''' '); + sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + edit; + fieldbyname('XSType').Value:=mvalues; + post; + end; + + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderLBNameSet.ToolButton6Click(Sender: TObject); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + IF Order_Main.IsEmpty then exit; + IF trim(Order_Main.fieldbyname('LbName').AsString)='' then exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Cs_Roll '); + sql.Add('@mainID='''+trim(Order_Main.fieldbyname('MainId').AsString)+''' '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Main.fieldbyname('LbName').AsString+'.rmf'); + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾϢ',0); + end; + + +end; + +procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + IF Order_Main.IsEmpty then exit; + IF trim(Order_Main.fieldbyname('NLBName').AsString)='' then exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Cs_Bao '); + sql.Add('@mainID='''+trim(Order_Main.fieldbyname('MainId').AsString)+''' '); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Main.fieldbyname('NLBName').AsString)+'.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾϢ',0); + end; + +end; + +procedure TfrmProductOrderLBNameSet.vXSDianPropertiesEditValueChanged( + Sender: TObject); +var + mvalues:string; +begin + mvalues:=TCXTextEdit(Sender).Text; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set XSDian='''+trim(mvalues)+''' '); + sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + edit; + fieldbyname('XSDian').Value:=mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/贸易管理/U_ProductOrderLBNameSetFZ.dfm b/贸易管理/U_ProductOrderLBNameSetFZ.dfm new file mode 100644 index 0000000..6110159 --- /dev/null +++ b/贸易管理/U_ProductOrderLBNameSetFZ.dfm @@ -0,0 +1,669 @@ +object frmProductOrderLBNameSetFZ: TfrmProductOrderLBNameSetFZ + Left = 215 + Top = 114 + Width = 1094 + Height = 600 + Caption = #26631#31614#35774#32622 + 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 = 1129 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25187#20998#35774#32622 + ImageIndex = 29 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #26631#31614#35774#32622 + ImageIndex = 60 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #21103#26631#31614#35774#32622 + ImageIndex = 60 + Visible = False + OnClick = ToolButton4Click + end + object PiZhong: TEdit + Left = 525 + Top = 0 + Width = 121 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object TBClose: TToolButton + Left = 646 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1129 + Height = 67 + 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 = #35746#21333#21495 + 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 = 476 + 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 = #21512#21516#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 = 476 + 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 = 621 + Top = 39 + 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 = 621 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 529 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 530 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 650 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 40 + Top = 108 + Width = 1089 + Height = 369 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #26816#39564#25187#20998#26631#20934 + DataBinding.FieldName = 'KouFenQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 121 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 410 + Top = 137 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679 + #21697#36136#26679 + #33457#22411#26679) + TabOrder = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/贸易管理/U_ProductOrderLBNameSetFZ.pas b/贸易管理/U_ProductOrderLBNameSetFZ.pas new file mode 100644 index 0000000..bfa3f1d --- /dev/null +++ b/贸易管理/U_ProductOrderLBNameSetFZ.pas @@ -0,0 +1,679 @@ +unit U_ProductOrderLBNameSetFZ; + +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,StrUtils, + Menus, cxTextEdit; + +type + TfrmProductOrderLBNameSetFZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + PiZhong: TEdit; + ToolButton4: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderLBNameSetFZ: TfrmProductOrderLBNameSetFZ; + newh:hwnd; +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderLBNameSetFZ.FormDestroy(Sender: TObject); +begin + frmProductOrderLBNameSetFZ:=nil; +end; + +procedure TfrmProductOrderLBNameSetFZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderLBNameSetFZ.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderLBNameSetFZ.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderLBNameSetFZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderLBNameSetFZ.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmProductOrderLBNameSetFZ.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 TfrmProductOrderLBNameSetFZ.TBPrintClick(Sender: TObject); +begin + Panel4.Visible:=True; +end; + +procedure TfrmProductOrderLBNameSetFZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderLBNameSetFZ.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 TfrmProductOrderLBNameSetFZ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderLBNameSetFZ.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderLBNameSetFZ.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderLBNameSetFZ.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderLBNameSetFZ.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderLBNameSetFZ.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderLBNameSetFZ.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderLBNameSetFZ.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderLBNameSetFZ.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderLBNameSetFZ.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderLBNameSetFZ.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if RadioGroup1.ItemIndex=0 then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + SQL.Add(', Case when B.OrderUnit=''M'' then Cast (dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as varchar(20))+''Kg'' '); + SQL.Add(' when B.OrderUnit=''Y'' then Cast (dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as varchar(20))+''Kg'' '); + sql.Add(' else '''' end as PRTOrderKgQtyStr '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + + end else + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); + Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + begin + if Trim(LBName)='ɫ' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PRTOrderKgQty),0) PRTOrderKgHZQty from('); + sql.Add('select '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,2))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,2)) '); + sql.Add(' else 0 end as PRTOrderKgQty'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + Open; + end; + OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if OrderKg>0 then + RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + else + RMVariables['OrderKg']:=''; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderLBNameSetFZ.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderLBNameSetFZ.ToolButton2Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set LBName='''+Trim(labname)+''''); + sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('LbName').Value:=labname; + Post; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderLBNameSetFZ.ToolButton3Click(Sender: TObject); +var + FPiZhong:string; + FReal:Double; +begin + if Trim(PiZhong.Text)='' then + begin + Application.MessageBox('۷ֲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(PiZhong.Text,FReal)=False then + begin + Application.MessageBox('۷ַǷ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set KouFenQty='+Trim(PiZhong.Text)); + sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('KouFenQty').Value:=PiZhong.Text; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderLBNameSetFZ.ToolButton4Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set NLBName='''+Trim(labname)+''''); + sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('NLbName').Value:=labname; + Post; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + tv1.Controller.EditingController.ShowEdit(); +end; + + +procedure TfrmProductOrderLBNameSetFZ.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalues:string; +begin + mvalues:=TCXTextEdit(Sender).Text; + + with Order_Main do + begin + edit; + fieldbyname('NLBName').Value:=mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); + IF trim(mvalues)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set NLBName='''' '); + sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + end +end; + +end. diff --git a/贸易管理/U_ProductOrderList.dfm b/贸易管理/U_ProductOrderList.dfm new file mode 100644 index 0000000..86b5f3f --- /dev/null +++ b/贸易管理/U_ProductOrderList.dfm @@ -0,0 +1,745 @@ +object frmProductOrderList: TfrmProductOrderList + Left = 134 + Top = 115 + Width = 1094 + Height = 600 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1249 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 563 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 626 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1249 + Height = 67 + 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 = #35746#21333#21495 + 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 = 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 Label2: TLabel + Left = 318 + Top = 39 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 441 + Top = 15 + Width = 53 + 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 Label6: TLabel + Left = 588 + Top = 39 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 741 + Top = 39 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 588 + Top = 15 + Width = 52 + Height = 12 + Caption = #20013#25991#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 = #21512#21516#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 = 741 + Top = 15 + Width = 26 + 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 = 441 + Top = 39 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 861 + Top = 39 + 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 = 861 + Top = 15 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = OrderNoMChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 347 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = OrderNoMChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = OrderNoMChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 495 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = OrderNoMChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 641 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 770 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 641 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + OnChange = OrderNoMChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 770 + Top = 11 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 10 + OnChange = OrderNoMChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 35 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 11 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 890 + Top = 35 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 12 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 890 + Top = 11 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 13 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 112 + Width = 1249 + Height = 369 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 54 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 92 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #26631#31614 + DataBinding.FieldName = 'SLbName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/贸易管理/U_ProductOrderList.pas b/贸易管理/U_ProductOrderList.pas new file mode 100644 index 0000000..872724e --- /dev/null +++ b/贸易管理/U_ProductOrderList.pas @@ -0,0 +1,657 @@ +unit U_ProductOrderList; + +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; + +type + TfrmProductOrderList = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label6: TLabel; + MPRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderList: TfrmProductOrderList; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderList.FormDestroy(Sender: TObject); +begin + frmProductOrderList:=nil; +end; + +procedure TfrmProductOrderList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderList.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,A.OrderNo OrderNoM from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + SQL.Add('where OrdDate>=:begdate and OrdDate<:enddate'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderList.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + ReadCxGrid('ָʾб',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end else + begin + v1Column4.Visible:=False; + v1PRTPrice.Visible:=True; + v1PRTPrice.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').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 + Order_Main.Delete; + end; +end; + +function TfrmProductOrderList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,PRTColorEng=(select Note from KH_Zdy CC where ZdyName=B.PRTColor and CC.Type=''OrdColor'' ) '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + i:=ADOQueryPrint.RecordCount; + ADOQueryPrint.First; + if i<19 then + begin + for j:=1 to 19-i do + begin + with CDS_Print do + begin + Append; + Post; + end; + end; + end; + with CDS_Print do + begin + Append; + FieldByName('Note').Value:=Trim(Order_Main.fieldbyname('Note').AsString); + FieldByName('OrdDefStr3').Value:=Trim(Order_Main.fieldbyname('OrdDefStr3').AsString); + FieldByName('SOrddefstr10').Value:=Trim(Order_Main.fieldbyname('OrderUnit').AsString); + FieldByName('SLbName').Value:=Trim(Order_Main.fieldbyname('SLbName').AsString); + FieldByName('OrdPerson1').Value:=Trim(Order_Main.fieldbyname('OrdPerson1').AsString); + Post; + end; + 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\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderList.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 TfrmProductOrderList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/贸易管理/U_ProductOrderListNew.dfm b/贸易管理/U_ProductOrderListNew.dfm new file mode 100644 index 0000000..2e3a39d --- /dev/null +++ b/贸易管理/U_ProductOrderListNew.dfm @@ -0,0 +1,1344 @@ +object frmProductOrderListNew: TfrmProductOrderListNew + Left = -1 + Top = 50 + Width = 1277 + Height = 684 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1269 + Height = 62 + 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_WFBOrder.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + Caption = #29983#20135#35745#21010#21333 + ImageIndex = 58 + OnClick = ToolButton2Click + end + object TBChk: TToolButton + Left = 347 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 132 + OnClick = TBChkClick + end + object TBCChk: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 105 + Wrap = True + OnClick = TBCChkClick + end + object TBCopy: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 113 + OnClick = TBCopyClick + end + object TBCK: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 57 + OnClick = TBCKClick + end + object TBDel: TToolButton + Left = 126 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 189 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBBQPrint: TToolButton + Left = 252 + Top = 30 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 96 + OnClick = TBBQPrintClick + end + object TBPrint: TToolButton + Left = 339 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 402 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1269 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#21333#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 = 15 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#32534#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 = 430 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 566 + 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 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 = 179 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 336 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 459 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 595 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBOrder.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBOrder.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 104 + Width = 1269 + Height = 263 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + OnMouseDown = TV2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + Styles.Header = DataLink_WFBOrder.Default + Bands = < + item + Caption = #21367#26448 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object V2Column15: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'SOrdPrice' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object V2Column16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object V2Column17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column21: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column23: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 82 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object V2Column26: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 375 + Width = 1269 + Height = 272 + Align = alBottom + TabOrder = 4 + object cxGridDBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBOrder.SHuangSe + Styles.IncSearch = DataLink_WFBOrder.SHuangSe + Styles.Selection = DataLink_WFBOrder.SHuangSe + Styles.Header = DataLink_WFBOrder.Default + Bands = < + item + Caption = #21046#21697 + Styles.Header = cxStyle1 + Width = 1374 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn15: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'SOrdPrice' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column3: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 488 + Top = 153 + Width = 201 + Height = 195 + TabOrder = 5 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 367 + Width = 1269 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + Parameters = <> + Left = 832 + Top = 144 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 808 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBOrder.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 864 + Top = 144 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/贸易管理/U_ProductOrderListNew.pas b/贸易管理/U_ProductOrderListNew.pas new file mode 100644 index 0000000..bc89eee --- /dev/null +++ b/贸易管理/U_ProductOrderListNew.pas @@ -0,0 +1,1041 @@ +unit U_ProductOrderListNew; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNew = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + TBCK: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + TBChk: TToolButton; + TBCChk: TToolButton; + v1Column6: TcxGridDBColumn; + TBBQPrint: TToolButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + TBCopy: TToolButton; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column9: TcxGridDBBandedColumn; + V2Column10: TcxGridDBBandedColumn; + V2Column11: TcxGridDBBandedColumn; + V2Column12: TcxGridDBBandedColumn; + V2Column13: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column15: TcxGridDBBandedColumn; + V2Column16: TcxGridDBBandedColumn; + V2Column17: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + cxGridDBTableView1: TcxGridDBTableView; + Tv3: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + cxGridDBBandedColumn15: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridDBBandedColumn18: TcxGridDBBandedColumn; + cxGridDBBandedColumn19: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column21: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column23: TcxGridDBBandedColumn; + cxSplitter1: TcxSplitter; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column3: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + ToolButton2: TToolButton; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + V2Column26: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + 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 TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure TBCKClick(Sender: TObject); + procedure TBChkClick(Sender: TObject); + procedure TBCChkClick(Sender: TObject); + procedure TBCopyClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNew: TfrmProductOrderListNew; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNew.FormDestroy(Sender: TObject); +begin + frmProductOrderListNew:=nil; +end; + +procedure TfrmProductOrderListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNew.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + if DParameters1='' then + begin + TBChk.Visible:=True; + TBCChk.Visible:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBCopy.Visible:=False; + end else + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + TBAdd.Visible:=True; + TBEdit.Visible:=True; + TBCopy.Visible:=True; + end; +end; + +procedure TfrmProductOrderListNew.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾб',Tv2,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбDD',Tv3,'ָʾ'); +end; + +procedure TfrmProductOrderListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('MainId').Value:=''; + Open; + end; + SDofilter(ADOQueryMain,'OrderType='''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + SDofilter(ADOQueryMain,'OrderType=''Ʒ'''); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNew.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNew.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2013-06-19') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + ReadCxBandedGrid('޷IJָʾб',Tv2,'ָʾ'); + ReadCxBandedGrid('޷IJָʾбDD',Tv3,'ָʾ'); + if FFInt>0 then + begin + v1Column3.Hidden:=False; + v1Column3.Visible:=True; + end else + begin + v1Column3.Hidden:=True; + v1Column3.Visible:=False; + end; + if Trim(DParameters1)='1' then + begin + v1CustomerNoName.Visible:=False; + v1CustomerNoName.Hidden:=True; + end else + begin + v1CustomerNoName.Visible:=True; + v1CustomerNoName.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + {if Trim(DParameters1)='1' then + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + end;} +end; + +procedure TfrmProductOrderListNew.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNew.TBEditClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; +end; + +procedure TfrmProductOrderListNew.TBDelClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(Order_Main) then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(CDS_ZP) then + begin + //TBRafresh.Click; + //TBFind.Click; + CDS_ZP.Delete; + end; + end; + + +end; + +function TfrmProductOrderListNew.DelData(Order_Main10:TClientDataSet):Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListNew.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + ShowMessage(DCode); + +end; + +procedure TfrmProductOrderListNew.TBExportClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб()',cxGrid2); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + TcxGridToExcel('ָʾб(Ʒ)',cxGrid3); + end; + + +end; + +procedure TfrmProductOrderListNew.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderListNew.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListNew.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNew.OrderNoChange(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNew.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNew.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if FFInt=1 then + //ModalResult:=1; + TBCK.Click; +end; + +procedure TfrmProductOrderListNew.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + RMDB_Main.DataSet:=Order_Main; + end; + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + RMDB_Main.DataSet:=CDS_ZP; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderListNew.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + fsj:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + fsj:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + end else + begin + Application.MessageBox('δѡж!','ʾ',0); + Exit; + end; + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(fsj); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductOrderListNew.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNew.ToolButton4Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɲ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderListNew.ToolButton5Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderListNew.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNew.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNew.TBCKClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=3; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=3; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.TBChkClick(Sender: TObject); +begin + + if PPInt=1 then + begin + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=2; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.TBCChkClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(' ,Chker='''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(', Chker='''' where MainId='''+Trim(CDS_ZP.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with CDS_ZP do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end ; + +end; +procedure TfrmProductOrderListNew.CopyOrderData(Order_MainFF:TClientDataSet); +var + FFMainId:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //sql.Add('exec P_Copy_WFBOrder :MainId,:Filler'); + sql.Add('exec P_Copy_WFBOrder_NoQty :MainId,:Filler'); + Parameters.ParamByName('MainId').Value:=Trim(Order_MainFF.fieldbyname('MainId').AsString); + Parameters.ParamByName('Filler').Value:=Trim(DName); + ExecSQL; + end; + FFMainId:=Trim(Order_MainFF.fieldbyname('MainId').AsString)+'FZ'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update WFBYCL_PB Set CRID=(select isnull(Max(A.CRID),(select Max(AA.CRID) from CK_YCL_Sub AA '); + SQL.Add(' where AA.YCLCode=WFBYCL_PB.YCLCode) ) '); + sql.Add(' from CK_YCL_Sub A '); + sql.Add(' inner join CK_YCL_KC B on B.CRID=A.CRID '); + sql.Add(' where A.YCLCode=WFBYCL_PB.YCLCode and B.KCQty>0 )'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YLKC=(select KCQty from CK_YCL_KC A where A.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YCLYJKC=(select YJKC=AA.KCQty-isnull((select sum(isnull(YLQty,0)) from WFBYCL_PB WP where WP.CRID=AA.CRID '); + sql.Add(' and not exists(select * from CK_YCL_Sub CS '); + sql.Add(' inner join WFBOrder_Main WM on CS.OrderNo=WM.OrderNO'); + sql.Add(' where WM.MainId=WP.MainId and CS.CRID=WP.CRID ) ),0)'); + sql.Add(' FROM CK_YCL_KC AA where AA.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmProductOrderListNew.TBCopyClick(Sender: TObject); +var + FFMainId:string; +begin + + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + CopyOrderData(Self.Order_Main); + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString)+'FZ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + CopyOrderData(Self.CDS_ZP); + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString)+'FZ'; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNew.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.Button1Click(Sender: TObject); +begin + if RadioGroup1.ItemIndex=0 then + begin + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + begin + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=0; + FMainId:=''; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNew.TV2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(DParameters1)='' then + begin + TBChk.Click; + end else + begin + TBEdit.Click; + end; +end; + +procedure TfrmProductOrderListNew.TV2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=1; + Tv2.Bands[0].Caption:='ġ'; + Tv3.Bands[0].Caption:='Ʒ'; + + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmProductOrderListNew.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=2; + Tv2.Bands[0].Caption:=''; + Tv3.Bands[0].Caption:='Ʒ'; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +end. diff --git a/贸易管理/U_ProductOrderListNewCK.dfm b/贸易管理/U_ProductOrderListNewCK.dfm new file mode 100644 index 0000000..0c73794 --- /dev/null +++ b/贸易管理/U_ProductOrderListNewCK.dfm @@ -0,0 +1,1300 @@ +object frmProductOrderListNewCK: TfrmProductOrderListNewCK + Left = -60 + Top = 45 + Width = 1277 + Height = 684 + Caption = #29983#20135#25351#31034#21333#26597#30475 + 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 = 1269 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBCK: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 57 + OnClick = TBCKClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1269 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#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 = 189 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 324 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 460 + 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 Label2: TLabel + Left = 189 + Top = 39 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 324 + Top = 39 + 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 Label7: TLabel + Left = 460 + Top = 39 + 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 Label9: TLabel + Left = 596 + Top = 15 + Width = 26 + Height = 12 + Caption = #33457#22411 + 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 = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 230 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 353 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 230 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object SWFBFK: TEdit + Tag = 2 + Left = 353 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object SWFBKZ: TEdit + Tag = 2 + Left = 489 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 625 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 1269 + Height = 254 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + OnMouseDown = TV2MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #21367#26448 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object V2Column16: TcxGridDBBandedColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object V2Column17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column23: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 82 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object V2Column26: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 375 + Width = 1269 + Height = 272 + Align = alBottom + TabOrder = 4 + object cxGridDBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV2CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #21046#21697 + Styles.Header = cxStyle1 + Width = 1374 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v3Column4: TcxGridDBBandedColumn + Caption = #32534#21495 + DataBinding.FieldName = 'OrderCode' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v3Column5: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v3Column6: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v3Column7: TcxGridDBBandedColumn + Caption = #24050#29983#25104#35745#21010#21333 + DataBinding.FieldName = 'JHDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 544 + Top = 153 + Width = 201 + Height = 195 + TabOrder = 5 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 367 + Width = 1269 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid3 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 832 + Top = 144 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 808 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 864 + Top = 144 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 792 + Top = 104 + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/贸易管理/U_ProductOrderListNewCK.pas b/贸易管理/U_ProductOrderListNewCK.pas new file mode 100644 index 0000000..a814bdf --- /dev/null +++ b/贸易管理/U_ProductOrderListNewCK.pas @@ -0,0 +1,1012 @@ +unit U_ProductOrderListNewCK; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNewCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + TBCK: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column9: TcxGridDBBandedColumn; + V2Column10: TcxGridDBBandedColumn; + V2Column11: TcxGridDBBandedColumn; + V2Column12: TcxGridDBBandedColumn; + V2Column13: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column16: TcxGridDBBandedColumn; + V2Column17: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + cxGridDBTableView1: TcxGridDBTableView; + Tv3: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridDBBandedColumn18: TcxGridDBBandedColumn; + cxGridDBBandedColumn19: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column23: TcxGridDBBandedColumn; + cxSplitter1: TcxSplitter; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + v3Column4: TcxGridDBBandedColumn; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + v3Column5: TcxGridDBBandedColumn; + v3Column6: TcxGridDBBandedColumn; + V2Column26: TcxGridDBBandedColumn; + v3Column7: TcxGridDBBandedColumn; + Label2: TLabel; + Label6: TLabel; + Label7: TLabel; + SWFBColor: TEdit; + SWFBFK: TEdit; + SWFBKZ: TEdit; + Label9: TLabel; + SWFBHW: 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 TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure TBCKClick(Sender: TObject); + procedure TBChkClick(Sender: TObject); + procedure TBCChkClick(Sender: TObject); + procedure TBCopyClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure TV2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNewCK: TfrmProductOrderListNewCK; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNewCK.FormDestroy(Sender: TObject); +begin + frmProductOrderListNewCK:=nil; +end; + +procedure TfrmProductOrderListNewCK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNewCK.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmProductOrderListNewCK.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбck',Tv2,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбDDck',Tv3,'ָʾ'); +end; + +procedure TfrmProductOrderListNewCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('MainId').Value:=''; + Open; + end; + SDofilter(ADOQueryMain,'OrderType='''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + SDofilter(ADOQueryMain,'OrderType=''Ʒ'''); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNewCK.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNewCK.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2013-06-19') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + ReadCxBandedGrid('޷IJָʾбck',Tv2,'ָʾ'); + ReadCxBandedGrid('޷IJָʾбDDck',Tv3,'ָʾ'); + if FFInt>0 then + begin + v1Column3.Hidden:=False; + v1Column3.Visible:=True; + end else + begin + v1Column3.Hidden:=True; + v1Column3.Visible:=False; + end; + if Trim(DParameters1)='1' then + begin + v1CustomerNoName.Visible:=False; + v1CustomerNoName.Hidden:=True; + end else + begin + v1CustomerNoName.Visible:=True; + v1CustomerNoName.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + {if Trim(DParameters1)='1' then + begin + TBChk.Visible:=False; + TBCChk.Visible:=False; + end;} +end; + +procedure TfrmProductOrderListNewCK.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNewCK.TBEditClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˶ͨ޸ģ','ʾ',0); + Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; +end; + +procedure TfrmProductOrderListNewCK.TBDelClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(Order_Main) then + begin + //TBRafresh.Click; + //TBFind.Click; + Order_Main.Delete; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('Chker').AsString)<>'' then + begin + Application.MessageBox('Ѿ˲ɾ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData(CDS_ZP) then + begin + //TBRafresh.Click; + //TBFind.Click; + CDS_ZP.Delete; + end; + end; + + +end; + +function TfrmProductOrderListNewCK.DelData(Order_Main10:TClientDataSet):Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Main where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBOrder_Sub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFB_DB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PB where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderListNewCK.TBViewClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + ShowMessage(DCode); + +end; + +procedure TfrmProductOrderListNewCK.TBExportClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб()',cxGrid2); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + TcxGridToExcel('ָʾб(Ʒ)',cxGrid3); + end; + + +end; + +procedure TfrmProductOrderListNewCK.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); + //SelPrintData(TV4,ADOQueryMain,'ͬѯ'); +end; + +procedure TfrmProductOrderListNewCK.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNewCK.OrderNoChange(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))<>'' then + begin + fsj:='OrderType='''' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'' and '+Trim(SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end else + begin + fsj:='OrderType='''''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + fsj:='OrderType=''Ʒ'''; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_ZP); + SInitCDSData20(ADOQueryMain,CDS_ZP); + end; +end; + +procedure TfrmProductOrderListNewCK.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNewCK.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if FFInt=1 then + //ModalResult:=1; + TBCK.Click; +end; + +procedure TfrmProductOrderListNewCK.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + RMDB_Main.DataSet:=Order_Main; + end; + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + RMDB_Main.DataSet:=CDS_ZP; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderListNewCK.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + fsj:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + fsj:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + end else + begin + Application.MessageBox('δѡж!','ʾ',0); + Exit; + end; + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(fsj); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductOrderListNewCK.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNewCK.ToolButton4Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɲ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.ToolButton5Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Order_Main Set Status='''' '); + sql.Add('where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderListNewCK.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCK.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNewCK.TBCKClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=3; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=3; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + cxGrid4.Enabled:=False; + //ScrollBox1.Enabled:=False; + //ScrollBox2.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.TBChkClick(Sender: TObject); +begin + + if PPInt=1 then + begin + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + //OrderType:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Trim(CDS_ZP.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + if Application.MessageBox('˶ͨǷٴˣ','ʾ',32+4)<>IDYES then Exit; + end; + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=2; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString); + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.TBCChkClick(Sender: TObject); +begin + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(' ,Chker='''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Main Set ChkStatus='''' '); + sql.Add(', Chker='''' where MainId='''+Trim(CDS_ZP.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with CDS_ZP do + begin + Edit; + FieldByName('Chker').Value:=''; + FieldByName('ChkStatus').Value:=''; + Post; + end; + end ; + +end; +procedure TfrmProductOrderListNewCK.CopyOrderData(Order_MainFF:TClientDataSet); +var + FFMainId:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //sql.Add('exec P_Copy_WFBOrder :MainId,:Filler'); + sql.Add('exec P_Copy_WFBOrder_NoQty :MainId,:Filler'); + Parameters.ParamByName('MainId').Value:=Trim(Order_MainFF.fieldbyname('MainId').AsString); + Parameters.ParamByName('Filler').Value:=Trim(DName); + ExecSQL; + end; + FFMainId:=Trim(Order_MainFF.fieldbyname('MainId').AsString)+'FZ'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update WFBYCL_PB Set CRID=(select isnull(Max(A.CRID),(select Max(AA.CRID) from CK_YCL_Sub AA '); + SQL.Add(' where AA.YCLCode=WFBYCL_PB.YCLCode) ) '); + sql.Add(' from CK_YCL_Sub A '); + sql.Add(' inner join CK_YCL_KC B on B.CRID=A.CRID '); + sql.Add(' where A.YCLCode=WFBYCL_PB.YCLCode and B.KCQty>0 )'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YLKC=(select KCQty from CK_YCL_KC A where A.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBYCL_PB Set YCLYJKC=(select YJKC=AA.KCQty-isnull((select sum(isnull(YLQty,0)) from WFBYCL_PB WP where WP.CRID=AA.CRID '); + sql.Add(' and not exists(select * from CK_YCL_Sub CS '); + sql.Add(' inner join WFBOrder_Main WM on CS.OrderNo=WM.OrderNO'); + sql.Add(' where WM.MainId=WP.MainId and CS.CRID=WP.CRID ) ),0)'); + sql.Add(' FROM CK_YCL_KC AA where AA.CRID=WFBYCL_PB.CRID)'); + sql.Add(' where MainId='''+Trim(FFMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmProductOrderListNewCK.TBCopyClick(Sender: TObject); +var + FFMainId:string; +begin + + if PPInt=1 then + begin + if Order_Main.IsEmpty then Exit; + CopyOrderData(Self.Order_Main); + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString)+'FZ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + if PPInt=2 then + begin + if CDS_ZP.IsEmpty then Exit; + CopyOrderData(Self.CDS_ZP); + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=1; + CopyInt:=1; + FMainId:=Trim(Self.CDS_ZP.fieldbyname('MainId').AsString)+'FZ'; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + +end; + +procedure TfrmProductOrderListNewCK.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNewCK.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.Button1Click(Sender: TObject); +begin + if RadioGroup1.ItemIndex=0 then + begin + try + frmOrderInPutNew:=TfrmOrderInPutNew.Create(Application); + with frmOrderInPutNew do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.Order_Main.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutNew.Free; + end; + end else + begin + try + frmOrderInPutZPLNew:=TfrmOrderInPutZPLNew.Create(Application); + with frmOrderInPutZPLNew do + begin + PState:=0; + FMainId:=''; + OrderType:='Ʒ'; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_ZP.Locate('MainId',Trim(FMainId),[]); + end; + end; + finally + frmOrderInPutZPLNew.Free; + end; + end; + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCK.TV2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBCK.Click; +end; + +procedure TfrmProductOrderListNewCK.TV2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=1; + Tv2.Bands[0].Caption:='ġ'; + Tv3.Bands[0].Caption:='Ʒ'; + + Tv3.Bands[0].Styles.Header.TextColor:=clBlack; + Tv2.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmProductOrderListNewCK.Tv3MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + PPInt:=2; + Tv2.Bands[0].Caption:=''; + Tv3.Bands[0].Caption:='Ʒ'; + Tv2.Bands[0].Styles.Header.TextColor:=clBlack; + Tv3.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +end. diff --git a/贸易管理/U_ProductOrderListNewCKMX.dfm b/贸易管理/U_ProductOrderListNewCKMX.dfm new file mode 100644 index 0000000..3666195 --- /dev/null +++ b/贸易管理/U_ProductOrderListNewCKMX.dfm @@ -0,0 +1,938 @@ +object frmProductOrderListNewCKMX: TfrmProductOrderListNewCKMX + Left = 25 + Top = 49 + Width = 1277 + Height = 684 + Caption = #29983#20135#25351#31034#21333#26126#32454 + 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 = 1269 + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23548#20986 + ImageIndex = 102 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1269 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #19979#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 = 189 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 324 + Top = 15 + Width = 26 + Height = 12 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 460 + 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 Label2: TLabel + Left = 189 + Top = 39 + Width = 40 + Height = 12 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 324 + Top = 39 + 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 Label7: TLabel + Left = 460 + Top = 39 + 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 Label9: TLabel + Left = 596 + Top = 15 + Width = 26 + Height = 12 + Caption = #33457#22411 + 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 = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 230 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 353 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object CustomNoName: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 230 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object SWFBFK10: TEdit + Tag = 2 + Left = 353 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object SWFBKZ10: TEdit + Tag = 2 + Left = 489 + Top = 35 + Width = 83 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 625 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 1024 + Top = 104 + Width = 169 + Height = 121 + TabOrder = 2 + Visible = False + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WFBProducttion.Default + Width = 39 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 72 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'WFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'WFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'WFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1OrderDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = 'ETA' + DataBinding.FieldName = 'ETADate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 63 + end + object v1FactoryNo2Name: TcxGridDBColumn + Caption = #35013#26588#26085#26399 + DataBinding.FieldName = 'ZGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = 'ETD' + DataBinding.FieldName = 'ETDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 60 + end + object v1FactoryNo3Name: TcxGridDBColumn + Caption = #24320#22987#20837#24211#26085#26399 + DataBinding.FieldName = 'BegRKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 94 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #24320#22987#29983#20135#26085#26399 + DataBinding.FieldName = 'BegSCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 90 + end + object v1Note: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 67 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'OrdPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#32447 + DataBinding.FieldName = 'SCXName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 62 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_WFBProducttion.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1269 + Height = 550 + Align = alClient + TabOrder = 3 + object cxGrid2DBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + object TV2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.Default + Bands = < + item + Caption = #35746#21333#26126#32454 + Styles.Header = cxStyle2 + Width = 1374 + end> + object V2Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V2Column2: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'Customnoname' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V2Column3: TcxGridDBBandedColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V2Column4: TcxGridDBBandedColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK10' + HeaderAlignmentHorz = taCenter + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V2Column5: TcxGridDBBandedColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ10' + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V2Column6: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'SOrdQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V2Column7: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrdUnit' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V2Column8: TcxGridDBBandedColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrderDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V2Column14: TcxGridDBBandedColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V2Column18: TcxGridDBBandedColumn + Caption = #32593#32467#26500 + DataBinding.FieldName = 'WJGName' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V2Column19: TcxGridDBBandedColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V2Column20: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V2Column22: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V2Column24: TcxGridDBBandedColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V2Column25: TcxGridDBBandedColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V2Column9: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ProductSpec' + HeaderAlignmentHorz = taCenter + Width = 105 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object Panel3: TPanel + Left = 544 + Top = 185 + Width = 201 + Height = 195 + TabOrder = 4 + Visible = False + object Label8: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Button1: TButton + Left = 24 + Top = 159 + Width = 65 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Button2: TButton + Left = 120 + Top = 159 + Width = 49 + Height = 25 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #35746#21333#31867#22411 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 173 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RadioGroup1: TRadioGroup + Left = 48 + Top = 24 + Width = 97 + Height = 127 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + #21367#26448 + #21046#21697) + ParentFont = False + TabOrder = 3 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 336 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 864 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 392 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 176 + 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 = 840 + Top = 256 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 208 + 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 = 384 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 792 + Top = 288 + end + object RM2: 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 = 288 + Top = 208 + ReportData = {} + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 344 + Top = 408 + end + object DataSource2: TDataSource + DataSet = CDS_ZP + Left = 504 + Top = 440 + end + object CDS_ZP: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 448 + end + object cxStyleRepository2: TcxStyleRepository + Left = 288 + object cxStyle2: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 888 + Top = 232 + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #40657#20307 + Font.Style = [fsBold] + end + end +end diff --git a/贸易管理/U_ProductOrderListNewCKMX.pas b/贸易管理/U_ProductOrderListNewCKMX.pas new file mode 100644 index 0000000..56e1a0c --- /dev/null +++ b/贸易管理/U_ProductOrderListNewCKMX.pas @@ -0,0 +1,314 @@ +unit U_ProductOrderListNewCKMX; + +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, + cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmProductOrderListNewCKMX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Label5: TLabel; + WFBCodeName: TEdit; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1OrderDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1FactoryNo2Name: TcxGridDBColumn; + v1FactoryNo3Name: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomNoName: TEdit; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid2DBTableView1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBBandedTableView; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + V2Column1: TcxGridDBBandedColumn; + V2Column2: TcxGridDBBandedColumn; + V2Column3: TcxGridDBBandedColumn; + V2Column4: TcxGridDBBandedColumn; + V2Column5: TcxGridDBBandedColumn; + V2Column6: TcxGridDBBandedColumn; + V2Column7: TcxGridDBBandedColumn; + V2Column8: TcxGridDBBandedColumn; + V2Column14: TcxGridDBBandedColumn; + V2Column18: TcxGridDBBandedColumn; + V2Column19: TcxGridDBBandedColumn; + Panel3: TPanel; + Label8: TLabel; + Button1: TButton; + Button2: TButton; + Panel10: TPanel; + Image2: TImage; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_ZP: TClientDataSet; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + V2Column20: TcxGridDBBandedColumn; + V2Column22: TcxGridDBBandedColumn; + V2Column24: TcxGridDBBandedColumn; + V2Column25: TcxGridDBBandedColumn; + Label2: TLabel; + Label6: TLabel; + Label7: TLabel; + SWFBColor: TEdit; + SWFBFK10: TEdit; + SWFBKZ10: TEdit; + Label9: TLabel; + SWFBHW: TEdit; + ToolButton1: TToolButton; + V2Column9: TcxGridDBBandedColumn; + 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 TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBBQPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + PPInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(Order_Main10:TClientDataSet):Boolean; + procedure InitGridFH(); + procedure CopyOrderData(Order_MainFF:TClientDataSet); + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; + +var + frmProductOrderListNewCKMX: TfrmProductOrderListNewCKMX; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_OrderInPutZP,U_OrderInPutNew,U_OrderInPutZPNew + ,U_OrderInPutZPLNew,U_OrderAttachment; + +{$R *.dfm} + +procedure TfrmProductOrderListNewCKMX.FormDestroy(Sender: TObject); +begin + frmProductOrderListNewCKMX:=nil; +end; + +procedure TfrmProductOrderListNewCKMX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListNewCKMX.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmProductOrderListNewCKMX.TBCloseClick(Sender: TObject); +begin + Close; + //WriteCxGrid('޷IJָʾб',Tv1,'ָʾ'); + WriteCxBandedGrid('޷IJָʾбMX',Tv2,'ָʾ'); +end; + +procedure TfrmProductOrderListNewCKMX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_Select_OrderMainSub :WSql'); + Parameters.ParamByName('WSql').Value:=' and A.OrderDate>='''+formatdatetime('yyyy-MM-dd',BegDate.DateTime)+'''' + +' and A.OrderDate<'''+formatdatetime('yyyy-MM-dd',EndDate.DateTime+1)+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderListNewCKMX.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderListNewCKMX.InitForm(); +begin + ReadCxBandedGrid('޷IJָʾбMX',Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + +end; + +procedure TfrmProductOrderListNewCKMX.TBFindClick(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmProductOrderListNewCKMX.DelData(Order_Main10:TClientDataSet):Boolean; +begin + +end; + +procedure TfrmProductOrderListNewCKMX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCKMX.TBAddClick(Sender: TObject); +begin + Panel3.Visible:=True; +end; + +procedure TfrmProductOrderListNewCKMX.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderListNewCKMX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListNewCKMX.TBBQPrintClick(Sender: TObject); +var + fPrintFile:String; +begin +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton2Click(Sender: TObject); + var + fsj:string; +begin +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderListNewCKMX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListNewCKMX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListNewCKMX.CopyOrderData(Order_MainFF:TClientDataSet); +begin +end; +procedure TfrmProductOrderListNewCKMX.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel3).perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmProductOrderListNewCKMX.Image2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCKMX.Button2Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmProductOrderListNewCKMX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + SelExportDataBand(Tv2,ADOQueryMain,'ָʾ'); +end; + +end. diff --git a/贸易管理/U_ProductOrderListSel.dfm b/贸易管理/U_ProductOrderListSel.dfm new file mode 100644 index 0000000..6aebdbf --- /dev/null +++ b/贸易管理/U_ProductOrderListSel.dfm @@ -0,0 +1,351 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + Left = 210 + Top = 75 + Width = 1094 + Height = 600 + Caption = #29983#20135#25351#31034#21333#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 = 1078 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 35 + 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 OrderNoM: TEdit + Tag = 2 + Left = 76 + Top = 18 + Width = 149 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoMKeyPress + end + end + object cxGrid1: TcxGrid + Left = 4 + Top = 100 + Width = 1065 + Height = 369 + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + 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 + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1KHConNO: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + 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_TradeManage.Default + Width = 64 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/贸易管理/U_ProductOrderListSel.pas b/贸易管理/U_ProductOrderListSel.pas new file mode 100644 index 0000000..5fba01d --- /dev/null +++ b/贸易管理/U_ProductOrderListSel.pas @@ -0,0 +1,181 @@ +unit U_ProductOrderListSel; + +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; + +type + TfrmProductOrderListSel = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1KHConNO: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + 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 OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1DblClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderListSel: TfrmProductOrderListSel; + +implementation +uses + U_DataLink,U_OrderInPut,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; +end; + +procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListSel.InitGrid(); +begin + if Length(Trim(OrderNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.*,A.*,A.OrderNo orderNoM,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.add('from JYOrder_sub A'); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + SQL.Add('where B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderListSel.InitForm(); +begin + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmProductOrderListSel.FormShow(Sender: TObject); +begin + InitForm(); + if FFInt=1 then + begin + v1Column4.Visible:=False; + v1Column4.Hidden:=True; + end; +end; + +procedure TfrmProductOrderListSel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmProductOrderListSel.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmProductOrderListSel.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +end. diff --git a/贸易管理/U_ProductOrderNewList.dfm b/贸易管理/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..6e5d4e5 --- /dev/null +++ b/贸易管理/U_ProductOrderNewList.dfm @@ -0,0 +1,956 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 243 + Top = 71 + Width = 1382 + Height = 754 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton4: TToolButton + Left = 630 + Top = 0 + AutoSize = True + Caption = #35746#21333#38468#20214 + ImageIndex = 57 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 717 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton5: TToolButton + Left = 780 + Top = 0 + AutoSize = True + Caption = #28155#21152#22270#29255 + ImageIndex = 109 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 867 + Top = 0 + AutoSize = True + Caption = #25171#21360#24037#20316#25351#31034#21333 + ImageIndex = 12 + Visible = False + OnClick = ToolButton6Click + end + object ComboBox1: TComboBox + Left = 990 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 65 + 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 = #25351#31034#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 = 476 + 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 = #21512#21516#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 = 476 + 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 Label13: TLabel + Left = 637 + 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 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 = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 530 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 530 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 654 + Top = 99 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object KHConNo: TEdit + Tag = 2 + Left = 666 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1366 + Height = 344 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 89 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column6: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 411 + Top = 136 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 479 + Width = 1366 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 487 + Width = 1366 + Height = 228 + Align = alBottom + Caption = 'Panel2' + TabOrder = 5 + object GroupBox1: TGroupBox + Left = 1041 + Top = 1 + Width = 324 + Height = 226 + Align = alRight + Caption = #32553#30053#22270 + TabOrder = 0 + object Pic_Image1: TcxDBImage + Left = 2 + Top = 14 + Hint = 'FileName' + Align = alClient + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DSImage + Properties.GraphicClassName = 'TJPEGImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 0 + OnDblClick = Pic_Image1DblClick + Height = 210 + Width = 320 + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1040 + Height = 226 + Align = alClient + TabOrder = 1 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object V2Column1: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'prtkuanNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1PRTColor: 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_TradeManage.handBlack + Width = 103 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + Width = 115 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1SOrddefstr2: TcxGridDBColumn + Caption = #30830#35748#33394#21345 + DataBinding.FieldName = 'SOrddefstr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 87 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 77 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 161 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 828 + Top = 416 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 280 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 628 + Top = 466 + end + object adoqueryPicture: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 479 + Top = 256 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 864 + Top = 273 + end + object DSImage: TDataSource + DataSet = ADOQueryImage + Left = 824 + Top = 289 + end +end diff --git a/贸易管理/U_ProductOrderNewList.pas b/贸易管理/U_ProductOrderNewList.pas new file mode 100644 index 0000000..b9928aa --- /dev/null +++ b/贸易管理/U_ProductOrderNewList.pas @@ -0,0 +1,1097 @@ +unit U_ProductOrderNewList; + +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, cxButtonEdit, cxContainer, cxImage, cxDBEdit,StrUtils, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,jpeg,U_SLT, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmProductOrderNewList = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + KHConNo: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column5: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + CDS_Main: TClientDataSet; + IdFTP1: TIdFTP; + cxSplitter1: TcxSplitter; + adoqueryPicture: TADOQuery; + Panel2: TPanel; + GroupBox1: TGroupBox; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + V2Column1: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Pic_Image1: TcxDBImage; + ADOQueryImage: TADOQuery; + DSImage: TDataSource; + ToolButton6: TToolButton; + v1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Pic_Image1DblClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); +// procedure Tv1CellClick(Sender: TcxCustomGridTableView; +// ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; +// AShift: TShiftState; var AHandled: Boolean); +// procedure Picture4DblClick(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure InitSub(); + procedure LookImage(FileName:string); + procedure InitImage(); +// procedure InitImage(); + { Private declarations } + public + FFInt,FCloth:Integer; + fkhType:string; + fFlileFlag:string; + fflag:integer; + RKFlag,FCYID:String; + fmanage:string; + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_FjList_RZ, U_FjList10,U_FileUp; + +{$R *.dfm} +procedure TfrmProductOrderNewList.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub '); + sql.Add('where mainID ='+quotedstr(Order_Main.fieldbyname('mainid').AsString)); + open; + end; +end; + +procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList:=nil; +end; + +procedure TfrmProductOrderNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбFF',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end + else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderNewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList.InitForm(); +begin + ReadCxGrid('ָʾбFF',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-15; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + IF trim(DdataBase)='ѯ' then + begin + TBadd.Visible:=false; + tbedit.Visible:=false; + ToolButton2.Visible:=false; + tbdel.Visible:=false; + end; + InitGrid(); +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Cloth_LL A where exists (select * from JYOrder_Sub B where B.SubId=A.OrdSubId '); + SQL.Add(' and B.MainId='''+Trim(Order_Main.fieldbyname('MainId').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 YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').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 Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').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 JYOrder_Sub_AnPai where 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 + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').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('OrderNO').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + {if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\װָʾ.rmf'),'ʾ',0); + end; } +// Panel4.Visible:=True; + Button1.Click; +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + FCYID:=''; + fkhType:=self.fkhType; + fFlileFlag:=self.fFlileFlag; + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.FormShow(Sender: TObject); +begin + fFlileFlag:=UserDataFlag+'ZSD'; + InitForm(); + InitImage(); +end; + +procedure TfrmProductOrderNewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + TBPrint.Click; +end; + +procedure TfrmProductOrderNewList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList.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 TfrmProductOrderNewList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName,SYRName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + { LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if Trim(Order_Main.fieldbyname('SYRName').AsString)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 B.ZdyName SYRName from JYOrderCon_Main A'); + sql.Add(' left join KH_Zdy B on A.SYRName=B.Note'); + sql.Add(' where A.ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + SYRName:=Trim(ADOQueryTemp.fieldbyname('SYRName').AsString); + end else + begin + SYRName:=Trim(Order_Main.fieldbyname('SYRName').AsString); + end; + } + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec F_Get_Print_Order '); + sql.add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + + + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RMVariables['SYRName']:=Trim(SYRName); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); + InitImage(); +end; + +procedure TfrmProductOrderNewList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmFjList10:=TfrmFjList10.Create(Application); + with frmFjList10 do + begin + // PState:=1; + if Trim(DParameters1)<>'Ȩ' then cxButton1.Visible:=false; + fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fType:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmFjList10.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton5Click(Sender: TObject); +begin +// try +// frmFileUp:=TfrmFileUp.Create(Application); +// with frmFileUp do +// begin +// Label1.Caption:='ָʾ'; +// Code.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); +// CYID:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// Self.InitGrid(); +//// Self.Order_Main.Locate('CYID',CYID,[]); +// end; +// end; +// finally +// frmFileUp.Free; +// end; +end; + +//procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject); +//var +// sFieldName:string; +// fileName:string; +// // ff: TADOBlobStream; +// // FJStream : TMemoryStream; +//begin +// IF Picture4.Picture.Height=0 then exit; +// sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\ͼƬ鿴'; +// +// if not DirectoryExists(pchar(sFieldName)) then +// CreateDirectory(pchar(sFieldName),nil); +// fileName:=ADOQuerySub.fieldbyname('hxFile').AsString; +// sFieldName:=sFieldName+'\'+trim(fileName); +// +// try +// IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); +// IdFTP1.Username := 'three'; +// IdFTP1.Password := '641010'; +// IdFTP1.Connect(); +// except +// ; +// end; +// +// if IdFTP1.Connected then +// begin +// +// application.ProcessMessages; +// try +// IdFTP1.Get(fFlileFlag+'\'+ Trim(fileName), sFieldName,true, false); +// except +// Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); +// IdFTP1.Quit; +// Exit; +// end; +// end +// else +// begin +// Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); +// IdFTP1.Quit; +// Exit; +// end; +// if IdFTP1.Connected then IdFTP1.Quit; +// ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); +// +//end; + + +procedure TfrmProductOrderNewList.Pic_Image1DblClick(Sender: TObject); +begin + IF TcxDBImage(Sender).Picture.Height=0 then exit; + + LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmProductOrderNewList.LookImage(FileName:string); +var + sFieldName:string; + // ff: TADOBlobStream; + // FJStream : TMemoryStream; +begin + + sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + // Panel2.Caption:='ݣԵ...'; + // Panel2.Visible:=true; + // application.ProcessMessages; + try + IdFTP1.Get(fFlileFlag+'\'+ Trim(fileName), sFieldName,true, false); + except + // Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + // Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; +// Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); +end; + +procedure TfrmProductOrderNewList.InitImage(); +begin + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID='+quotedstr(Order_Main.fieldbyname('OrderNO').AsString)); + open; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName,SYRName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec F_Get_Print_Order '); + sql.add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + + + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RMVariables['SYRName']:=Trim(SYRName); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/贸易管理/U_ProductOrderNewListSubZD.dfm b/贸易管理/U_ProductOrderNewListSubZD.dfm new file mode 100644 index 0000000..831a683 --- /dev/null +++ b/贸易管理/U_ProductOrderNewListSubZD.dfm @@ -0,0 +1,677 @@ +object frmProductOrderNewListSubZD: TfrmProductOrderNewListSubZD + Left = 113 + Top = 117 + Width = 1094 + Height = 600 + Caption = #36716#21333#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 = 1113 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 374 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1113 + Height = 67 + 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 = #35746#21333#21495 + 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 = 476 + 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 = #21512#21516#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 = 476 + 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 = 621 + Top = 39 + 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 = 621 + Top = 15 + 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 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 529 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 530 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 650 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 24 + Top = 112 + Width = 1089 + Height = 369 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column6: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + 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_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 410 + Top = 137 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679 + #21697#36136#26679 + #33457#22411#26679) + TabOrder = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/贸易管理/U_ProductOrderNewListSubZD.pas b/贸易管理/U_ProductOrderNewListSubZD.pas new file mode 100644 index 0000000..b2fbf0c --- /dev/null +++ b/贸易管理/U_ProductOrderNewListSubZD.pas @@ -0,0 +1,681 @@ +unit U_ProductOrderNewListSubZD; + +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; + +type + TfrmProductOrderNewListSubZD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewListSubZD: TfrmProductOrderNewListSubZD; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderNewListSubZD.FormDestroy(Sender: TObject); +begin + frmProductOrderNewListSubZD:=nil; +end; + +procedure TfrmProductOrderNewListSubZD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewListSubZD.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewListSubZD.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбFF',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewListSubZD.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderNewListSubZD.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewListSubZD.InitForm(); +begin + ReadCxGrid('ָʾбFF',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderNewListSubZD.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 TfrmProductOrderNewListSubZD.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewListSubZD.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + Panel4.Visible:=True; +end; + +procedure TfrmProductOrderNewListSubZD.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewListSubZD.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 TfrmProductOrderNewListSubZD.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewListSubZD.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewListSubZD.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewListSubZD.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewListSubZD.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewListSubZD.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewListSubZD.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewListSubZD.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 TfrmProductOrderNewListSubZD.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewListSubZD.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewListSubZD.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewListSubZD.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewListSubZD.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewListSubZD.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewListSubZD.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if RadioGroup1.ItemIndex=0 then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + SQL.Add(', Case when B.OrderUnit=''M'' then Cast(Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + SQL.Add(' when B.OrderUnit=''Y'' then Cast (Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + sql.Add(' else '''' end as PRTOrderKgQtyStr '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + + end else + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); + Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + begin + if Trim(LBName)='ɫ' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PRTOrderKgQty),0) PRTOrderKgHZQty from('); + sql.Add('select '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,0)) '); + sql.Add(' else 0 end as PRTOrderKgQty'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + Open; + end; + OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if OrderKg>0 then + RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + else + RMVariables['OrderKg']:=''; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewListSubZD.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +end. diff --git a/贸易管理/U_ProductOrderNewList_CY.dfm b/贸易管理/U_ProductOrderNewList_CY.dfm new file mode 100644 index 0000000..b3afa81 --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_CY.dfm @@ -0,0 +1,981 @@ +object frmProductOrderNewList_CY: TfrmProductOrderNewList_CY + Left = 208 + Top = 82 + Width = 1087 + Height = 604 + Caption = #20986#36816#35745#21010 + 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 = 1071 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TChk: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TChkClick + end + object TNOChk: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + OnClick = TNOChkClick + end + object TBExport: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 717 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 780 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 843 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1071 + Height = 37 + 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 = 287 + Top = 15 + Width = 52 + Height = 12 + Caption = #20986#36816#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 470 + 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 = 536 + Top = 67 + 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 = 683 + 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 Label10: TLabel + Left = 536 + Top = 91 + 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 = 378 + Top = 91 + 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 = 681 + Top = 91 + 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 = 681 + Top = 67 + 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 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 = 168 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 344 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 589 + Top = 63 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 732 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 590 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 431 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 710 + Top = 87 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 710 + Top = 63 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 91 + Width = 1071 + Height = 304 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + 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.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #20986#36816#21333#21495 + DataBinding.FieldName = 'CYNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 103 + end + object v1Column15: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'orddefstr10' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'OrdDefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column14: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdPerson2: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #33337#36816#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 89 + end + object v1Column7: TcxGridDBColumn + Caption = #20986#20179#26085#26399 + DataBinding.FieldName = 'OrdDefDate2' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#24635#25968#37327 + DataBinding.FieldName = 'ZSordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'MPRTBZNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column1: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 482 + Top = 145 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 395 + Width = 1071 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 69 + Width = 1071 + Height = 22 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1071 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 403 + Width = 1071 + Height = 163 + Align = alBottom + TabOrder = 6 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + NavigatorButtons.ConfirmDelete = False + 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 + 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 + Column = cxGridDBColumn3 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + Width = 84 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneClMaroon + Styles.Footer = DataLink_TradeManage.FoneClMaroon + Styles.Header = DataLink_TradeManage.FoneClMaroon + Width = 60 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#36135#31665#25968 + DataBinding.FieldName = 'SordQty2' + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #31435#26041#25968 + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 137 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 580 + Top = 236 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 488 + Top = 440 + end + object PMFJ: TPopupMenu + Left = 716 + Top = 272 + object NFJ: TMenuItem + Caption = #38468#20214 + end + end + object RMDB_SK: TRMDBDataSet + Visible = True + DataSet = CDS_SK + Left = 264 + Top = 244 + end + object CDS_SK: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 300 + end +end diff --git a/贸易管理/U_ProductOrderNewList_CY.pas b/贸易管理/U_ProductOrderNewList_CY.pas new file mode 100644 index 0000000..3f463be --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_CY.pas @@ -0,0 +1,846 @@ +unit U_ProductOrderNewList_CY; + +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, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmProductOrderNewList_CY = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column8: TcxGridDBColumn; + PMFJ: TPopupMenu; + NFJ: TMenuItem; + v1OrdPerson2: TcxGridDBColumn; + Label2: TLabel; + v1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + TChk: TToolButton; + TNOChk: TToolButton; + RMDB_SK: TRMDBDataSet; + CDS_SK: TClientDataSet; + v1Column10: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v1Column14: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2DblClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure TChkClick(Sender: TObject); + procedure TNOChkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + + procedure InitSub(); + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewList_CY: TfrmProductOrderNewList_CY; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_OrderInPut_CY; + +{$R *.dfm} +procedure TfrmProductOrderNewList_CY.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + end; + 2:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + end; + end; + end; +end; +procedure TfrmProductOrderNewList_CY.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderCY_sub '); + sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + open; + end; +end; + +procedure TfrmProductOrderNewList_CY.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_CY:=nil; +end; + +procedure TfrmProductOrderNewList_CY.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList_CY.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + cxTabControl1.TabIndex:=0; + SetStatus(); +end; + +procedure TfrmProductOrderNewList_CY.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); +end; + +procedure TfrmProductOrderNewList_CY.InitGrid(); +var + fwsql:string; +begin + fwsql:=''; + IF cxTabControl1.TabIndex<2 then + begin + fwsql:=fwsql+' and isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + end; + if Trim(DParameters1)<>'Ȩ' then + begin + fwsql:=fwsql+' and Filler='''+Trim(DName)+''''; + end; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_CY :begdate,:enddate,:WSql') ; + + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Parameters.ParamByName('WSql').Value:=fwsql; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderNewList_CY.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + readCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderNewList_CY.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 TfrmProductOrderNewList_CY.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + { if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList_CY.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCY_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrderCY_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JY_CY_money where MainId='''+Trim(Order_Main.fieldbyname('MainId').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('OrderNO').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,self.Caption); +end; + +procedure TfrmProductOrderNewList_CY.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\֪ͨ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,b.* '); + // sql.Add(',ShippMent=(select Top 1 shippMent from JYOrdercon_main X where X.conNO=A.conNO) '); + //sql.Add(',Payment=(select Top 1 shippMent from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add(',SYRName1=(select Top 1 SYRName from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add(',ToPlace=(select Top 1 ToPlace from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add('from JYOrderCY_Main A inner join JYOrderCY_Sub B on A.MainId=B.MainId '); + sql.Add('and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\֪ͨ.rmf'),'ʾ',0); + end; + + // Button1.Click; +end; + +procedure TfrmProductOrderNewList_CY.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList_CY.TBAddClick(Sender: TObject); +begin + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY.OrderNoChange(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 TfrmProductOrderNewList_CY.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList_CY.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList_CY.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_CY.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_CY.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList_CY.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList_CY.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 TfrmProductOrderNewList_CY.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList_CY.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList_CY.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList_CY.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName,SYRName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if Trim(Order_Main.fieldbyname('SYRName').AsString)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 B.ZdyName SYRName from JYOrderCon_Main A'); + sql.Add(' left join KH_Zdy B on A.SYRName=B.Note'); + sql.Add(' where A.ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + SYRName:=Trim(ADOQueryTemp.fieldbyname('SYRName').AsString); + end else + begin + SYRName:=Trim(Order_Main.fieldbyname('SYRName').AsString); + end; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec F_Get_Print_Order '); + sql.add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + + + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RMVariables['SYRName']:=Trim(SYRName); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList_CY.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmProductOrderNewList_CY.Tv2DblClick( + Sender: TObject); +var + fNO:string; +begin + IF ADOQuerySub.IsEmpty then exit; + ToolButton2.Click; + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select ATID from KH_Zdy_Attachment A'); + sql.Add('where zdyCode='+quotedstr(trim(ADOQuerySub.fieldbyname('prtCode').AsString))); + sql.Add('and Type='+quotedstr(trim('CP'))); + open; + if not IsEmpty then + begin + fNO:=trim(fieldbyname('ATID').AsString); + end; + end; + + try + frmZdyAttInputCP10:=TfrmZdyAttInputCP10.Create(Application); + with frmZdyAttInputCP10 do + begin + FATID:=Trim(fNO); + frmZdyAttInputCP10.Tsave.Enabled:=false; + if ShowModal=1 then + begin + // TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP10.Free; + end; + } +end; + +procedure TfrmProductOrderNewList_CY.Tv1DblClick(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmProductOrderNewList_CY.TChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderCY_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY.TNOChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderCY_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; + +end; + +end. diff --git a/贸易管理/U_ProductOrderNewList_CY_Sel.dfm b/贸易管理/U_ProductOrderNewList_CY_Sel.dfm new file mode 100644 index 0000000..35beb6e --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_CY_Sel.dfm @@ -0,0 +1,987 @@ +object frmProductOrderNewList_CY_Sel: TfrmProductOrderNewList_CY_Sel + Left = 147 + Top = 28 + Width = 1131 + Height = 604 + Caption = #20986#36816#35745#21010#36873#25321 + 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 = 1123 + Height = 62 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Wrap = True + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object TChk: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + Visible = False + OnClick = TChkClick + end + object TNOChk: TToolButton + Left = 126 + Top = 30 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Visible = False + OnClick = TNOChkClick + end + object TBExport: TToolButton + Left = 213 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 276 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 339 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 402 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1123 + Height = 37 + 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 = 287 + Top = 15 + Width = 52 + Height = 12 + Caption = #20986#36816#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 470 + 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 = 536 + Top = 67 + 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 = 683 + 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 Label10: TLabel + Left = 536 + Top = 91 + 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 = 378 + Top = 91 + 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 = 681 + Top = 91 + 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 = 681 + Top = 67 + 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 BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#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' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 344 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 589 + Top = 63 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 732 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 590 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 431 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 710 + Top = 87 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 710 + Top = 63 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 121 + Width = 1123 + Height = 278 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + 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.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #20986#36816#21333#21495 + DataBinding.FieldName = 'CYNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 103 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'OrdDefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column14: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdPerson2: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #33337#36816#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 89 + end + object v1Column7: TcxGridDBColumn + Caption = #20986#20179#26085#26399 + DataBinding.FieldName = 'OrdDefDate2' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#24635#25968#37327 + DataBinding.FieldName = 'ZSordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'MPRTBZNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column1: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 482 + Top = 145 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 399 + Width = 1123 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1123 + Height = 22 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Style = 9 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1123 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 407 + Width = 1123 + Height = 163 + Align = alBottom + TabOrder = 6 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + 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 + Column = cxGridDBColumn3 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 35 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + Width = 84 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneClMaroon + Styles.Footer = DataLink_TradeManage.FoneClMaroon + Styles.Header = DataLink_TradeManage.FoneClMaroon + Width = 60 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#36135#31665#25968 + DataBinding.FieldName = 'SordQty2' + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #31435#26041#25968 + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 137 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 580 + Top = 236 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 488 + Top = 440 + end + object PMFJ: TPopupMenu + Left = 716 + Top = 272 + object NFJ: TMenuItem + Caption = #38468#20214 + end + end + object RMDB_SK: TRMDBDataSet + Visible = True + DataSet = CDS_SK + Left = 264 + Top = 244 + end + object CDS_SK: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 300 + end +end diff --git a/贸易管理/U_ProductOrderNewList_CY_Sel.pas b/贸易管理/U_ProductOrderNewList_CY_Sel.pas new file mode 100644 index 0000000..4e4cebd --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_CY_Sel.pas @@ -0,0 +1,846 @@ +unit U_ProductOrderNewList_CY_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, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmProductOrderNewList_CY_Sel = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column8: TcxGridDBColumn; + PMFJ: TPopupMenu; + NFJ: TMenuItem; + v1OrdPerson2: TcxGridDBColumn; + Label2: TLabel; + v1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + TChk: TToolButton; + TNOChk: TToolButton; + RMDB_SK: TRMDBDataSet; + CDS_SK: TClientDataSet; + v1Column10: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v1Column14: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2DblClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure TChkClick(Sender: TObject); + procedure TNOChkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + + procedure InitSub(); + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewList_CY_Sel: TfrmProductOrderNewList_CY_Sel; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_OrderInPut_CY; + +{$R *.dfm} +procedure TfrmProductOrderNewList_CY_Sel.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + tbedit.Visible:=false; + tbdel.Visible:=false; + if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + end; + 2:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + end; + end; + end; +end; +procedure TfrmProductOrderNewList_CY_Sel.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderCY_sub '); + sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + open; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_CY_Sel:=nil; +end; + +procedure TfrmProductOrderNewList_CY_Sel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList_CY_Sel.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + cxTabControl1.TabIndex:=1; + /// SetStatus(); +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); +end; + +procedure TfrmProductOrderNewList_CY_Sel.InitGrid(); +var + fwsql:string; +begin + fwsql:=''; + IF cxTabControl1.TabIndex<2 then + begin + fwsql:=fwsql+' and isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + end; + if Trim(DParameters1)<>'Ȩ' then + begin + // fwsql:=fwsql+' and Filler='''+Trim(DName)+''''; + end; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_CY :begdate,:enddate,:WSql') ; + + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Parameters.ParamByName('WSql').Value:=fwsql; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderNewList_CY_Sel.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + readCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderNewList_CY_Sel.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 TfrmProductOrderNewList_CY_Sel.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + { if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList_CY_Sel.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCY_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrderCY_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JY_CY_money where MainId='''+Trim(Order_Main.fieldbyname('MainId').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('OrderNO').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,self.Caption); +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\֪ͨ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,b.* '); + // sql.Add(',ShippMent=(select Top 1 shippMent from JYOrdercon_main X where X.conNO=A.conNO) '); + //sql.Add(',Payment=(select Top 1 shippMent from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add(',SYRName1=(select Top 1 SYRName from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add(',ToPlace=(select Top 1 ToPlace from JYOrdercon_main X where X.conNO=A.conNO) '); + sql.Add('from JYOrderCY_Main A inner join JYOrderCY_Sub B on A.MainId=B.MainId '); + sql.Add('and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\֪ͨ.rmf'),'ʾ',0); + end; + + // Button1.Click; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBAddClick(Sender: TObject); +begin + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.OrderNoChange(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 TfrmProductOrderNewList_CY_Sel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList_CY_Sel.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList_CY_Sel.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_CY_Sel.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_CY_Sel.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList_CY_Sel.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList_CY_Sel.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 TfrmProductOrderNewList_CY_Sel.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList_CY_Sel.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_CY:=TfrmOrderInPut_CY.Create(Application); + with frmOrderInPut_CY do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_CY.Free; + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList_CY_Sel.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList_CY_Sel.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName,SYRName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if Trim(Order_Main.fieldbyname('SYRName').AsString)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 B.ZdyName SYRName from JYOrderCon_Main A'); + sql.Add(' left join KH_Zdy B on A.SYRName=B.Note'); + sql.Add(' where A.ConNo='''+Trim(Order_Main.fieldbyname('ConNo').AsString)+''''); + Open; + end; + SYRName:=Trim(ADOQueryTemp.fieldbyname('SYRName').AsString); + end else + begin + SYRName:=Trim(Order_Main.fieldbyname('SYRName').AsString); + end; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec F_Get_Print_Order '); + sql.add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + + + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RMVariables['SYRName']:=Trim(SYRName); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList_CY_Sel.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmProductOrderNewList_CY_Sel.Tv2DblClick( + Sender: TObject); +var + fNO:string; +begin + IF ADOQuerySub.IsEmpty then exit; + ToolButton2.Click; + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select ATID from KH_Zdy_Attachment A'); + sql.Add('where zdyCode='+quotedstr(trim(ADOQuerySub.fieldbyname('prtCode').AsString))); + sql.Add('and Type='+quotedstr(trim('CP'))); + open; + if not IsEmpty then + begin + fNO:=trim(fieldbyname('ATID').AsString); + end; + end; + + try + frmZdyAttInputCP10:=TfrmZdyAttInputCP10.Create(Application); + with frmZdyAttInputCP10 do + begin + FATID:=Trim(fNO); + frmZdyAttInputCP10.Tsave.Enabled:=false; + if ShowModal=1 then + begin + // TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP10.Free; + end; + } +end; + +procedure TfrmProductOrderNewList_CY_Sel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderCY_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.TNOChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderCY_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('conNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_CY_Sel.cxTabControl1Change(Sender: TObject); +begin +// SetStatus(); + TBRafresh.Click; + +end; + +end. diff --git a/贸易管理/U_ProductOrderNewList_FB.dfm b/贸易管理/U_ProductOrderNewList_FB.dfm new file mode 100644 index 0000000..6ec469d --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_FB.dfm @@ -0,0 +1,1032 @@ +object frmProductOrderNewList_FB: TfrmProductOrderNewList_FB + Left = 192 + Top = 115 + Width = 1087 + Height = 604 + Caption = #21457#31080#20449#24687 + 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 = 1071 + Height = 62 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #20316#24223 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBNodel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144#20316#24223 + ImageIndex = 129 + Visible = False + OnClick = TBNodelClick + end + object ToolButton2: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Wrap = True + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TChk: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + Visible = False + OnClick = TChkClick + end + object TNOChk: TToolButton + Left = 126 + Top = 30 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 86 + Visible = False + OnClick = TNOChkClick + end + object TBExport: TToolButton + Left = 213 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 276 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 339 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 402 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1071 + Height = 63 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + 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 = 202 + Top = 15 + Width = 53 + Height = 12 + Caption = #21457' '#31080' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 202 + Top = 39 + 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 = 536 + Top = 67 + 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 = 392 + Top = 15 + Width = 53 + 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 Label10: TLabel + Left = 536 + Top = 91 + 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 = 378 + Top = 91 + 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 = 681 + Top = 91 + 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 = 681 + Top = 67 + 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 = 392 + Top = 39 + Width = 53 + 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 BegDate: TDateTimePicker + Left = 85 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 85 + Top = 35 + Width = 85 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object invoiceNo: TEdit + Tag = 2 + Left = 259 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = invoiceNoChange + end + object orddefstr10: TEdit + Tag = 2 + Left = 259 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = invoiceNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 589 + Top = 63 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = invoiceNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 450 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = invoiceNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 590 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = invoiceNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 431 + Top = 87 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = invoiceNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 710 + Top = 87 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = invoiceNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 710 + Top = 63 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 9 + OnChange = invoiceNoChange + end + object OrdPerson2: TEdit + Tag = 2 + Left = 450 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = invoiceNoChange + end + object RadioGroup2: TRadioGroup + Left = 640 + Top = 8 + Width = 213 + Height = 49 + Caption = #21457#31080#31867#22411 + Columns = 3 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 2 + Items.Strings = ( + #20869#38144 + #22806#38144 + #20840#37096) + ParentFont = False + TabOrder = 11 + OnClick = RadioGroup2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 145 + Width = 1071 + Height = 249 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + OnCustomDrawCell = Tv1CustomDrawCell + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1invoceNO: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'invoiceNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #21457#31080#31867#22411 + DataBinding.FieldName = 'Orddefstr15' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'orddefstr10' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 120 + end + object v1OrdPerson2: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column9: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ZSordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'prtmoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 93 + end + object v1OrdDefDate1: TcxGridDBColumn + Caption = #21040#27454#26085#26399 + DataBinding.FieldName = 'OrdDefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column1: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 747 + Top = 142 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 184 + Width = 75 + Height = 21 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #35013#31665#21333 + #21512#21516#21457#31080) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 394 + Width = 1071 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 125 + Width = 1071 + Height = 20 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #27491#24120 + #24050#20316#24223 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectRight = 0 + ClientRectTop = 0 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 402 + Width = 1071 + Height = 163 + Align = alBottom + TabOrder = 6 + object Tv2: TcxGridDBTableView + PopupMenu = PopupMenu1 + 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 + 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 + Column = cxGridDBColumn3 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2prtmoney + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 49 + end + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PrtCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + Width = 98 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v2SordQty7: TcxGridDBColumn + Caption = #21253#25968 + DataBinding.FieldName = 'SordQty7' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PrtPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2prtmoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'prtmoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 80 + end + object v2SordQty4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SordQty4' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v2SordQty5: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'SordQty5' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v2SordQty3: TcxGridDBColumn + Caption = #31435#26041#25968 + DataBinding.FieldName = 'SordQty3' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 137 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 638 + Top = 277 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 303 + Top = 289 + 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 = 580 + Top = 236 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 337 + Top = 288 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 556 + Top = 416 + end + object DataSource2: TDataSource + DataSet = ADOQuerySub + Left = 488 + Top = 440 + end + object PMFJ: TPopupMenu + Left = 716 + Top = 272 + object NFJ: TMenuItem + Caption = #38468#20214 + end + end + object RMDB_SK: TRMDBDataSet + Visible = True + DataSet = CDS_SK + Left = 170 + Top = 274 + end + object CDS_SK: TClientDataSet + Aggregates = <> + Params = <> + Left = 201 + Top = 275 + end + object CDS_Print1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 289 + end + object RMDBMainZX: TRMDBDataSet + Visible = True + DataSet = CDS_Print1 + Left = 407 + Top = 290 + end +end diff --git a/贸易管理/U_ProductOrderNewList_FB.pas b/贸易管理/U_ProductOrderNewList_FB.pas new file mode 100644 index 0000000..7e1c223 --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_FB.pas @@ -0,0 +1,1023 @@ +unit U_ProductOrderNewList_FB; + +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, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + +type + TfrmProductOrderNewList_FB = 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; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + invoiceNo: TEdit; + TBExport: TToolButton; + v1OrdDate: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + orddefstr10: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label11: TLabel; + MPRTCode: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + PMFJ: TPopupMenu; + NFJ: TMenuItem; + v1OrdPerson2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + TChk: TToolButton; + TNOChk: TToolButton; + RMDB_SK: TRMDBDataSet; + CDS_SK: TClientDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v1invoceNO: TcxGridDBColumn; + v2prtmoney: TcxGridDBColumn; + v2SordQty4: TcxGridDBColumn; + v2SordQty5: TcxGridDBColumn; + v2SordQty3: TcxGridDBColumn; + v1OrdDefDate1: TcxGridDBColumn; + Label2: TLabel; + OrdPerson2: TEdit; + RadioGroup2: TRadioGroup; + v2SordQty7: TcxGridDBColumn; + CDS_Print1: TClientDataSet; + RMDBMainZX: TRMDBDataSet; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + TBNodel: TToolButton; + v2Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure invoiceNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2DblClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure TChkClick(Sender: TObject); + procedure TNOChkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure RadioGroup2Click(Sender: TObject); + procedure TBNodelClick(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + + procedure InitSub(); + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + ftype: string; + + { Public declarations } + end; + +var + frmProductOrderNewList_FB: TfrmProductOrderNewList_FB; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_OrderInPut_CY, U_OrderInPut_FB; + +{$R *.dfm} +procedure TfrmProductOrderNewList_FB.SetStatus(); +begin + tchk.Visible:=false; + tnochk.Visible:=false; + TBDel.Visible:=false; + TBNodel.Visible:=false; + TBEdit.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + TBDel.Visible:=true; + TBEdit.Visible:=true; + end; + 1:begin + TBNodel.Visible:=true; + end; + 2:begin + end; + end; +{ if Trim(DParameters1)<>'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + end; + 2:begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + tchk.Visible:=true; + tbedit.Visible:=true; + tbdel.Visible:=true; + end; + 1:begin + tnochk.Visible:=true; + end; + 2:begin + end; + end; + end; } +end; + +procedure TfrmProductOrderNewList_FB.InitSub(); +begin + ADOQuerySub.Close; + IF Order_Main.IsEmpty then exit; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderFB_sub '); + sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + open; + end; +end; + +procedure TfrmProductOrderNewList_FB.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_FB:=nil; +end; + +procedure TfrmProductOrderNewList_FB.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList_FB.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); + cxTabControl1.TabIndex:=0; + SetStatus(); +end; + +procedure TfrmProductOrderNewList_FB.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); +end; + +procedure TfrmProductOrderNewList_FB.InitGrid(); +var + fwsql:string; +begin + fwsql:=''; + IF cxTabControl1.TabIndex<2 then + begin + fwsql:=fwsql+' and isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + end; + if Trim(DParameters1)<>'Ȩ' then + begin + // fwsql:=fwsql+' and Filler='''+Trim(DName)+''''; + end; + if Trim(DParameters1)='ҵԱ' then + begin + fwsql:=fwsql+' and OrdPerson2='''+Trim(DName)+''''; + end; + try + // ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_FB :begdate,:enddate,:WSql'); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Parameters.ParamByName('WSql').Value:=fwsql; + // ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + // ADOQueryMain.EnableControls; + end; + TBFind.Click; +end; + + +procedure TfrmProductOrderNewList_FB.InitForm(); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + readCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if Trim(ftype)='' then + begin + TBAdd.Visible:=false; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; +{ if Trim(ftype)<>'' then + begin + RadioGroup2.ItemIndex:=RadioGroup2.Items.IndexOf(Trim(Ftype)); + if RadioGroup2.ItemIndex>=0 then + begin + RadioGroup2.Enabled:=false; + end + else + RadioGroup2.ItemIndex:=2; + end; } + InitGrid(); +end; + +procedure TfrmProductOrderNewList_FB.TBFindClick(Sender: TObject); +var strwhere: string; +begin + if ADOQueryMain.Active=False then Exit; + strwhere:=SGetFilters(Panel1,1,2); + if strwhere='' then + begin + IF RadioGroup2.ItemIndex<2 then + strwhere:=strwhere+' OrdDefStr15='''+trim(RadioGroup2.Items.Strings[RadioGroup2.itemindex])+''''; + end + else + begin + IF RadioGroup2.ItemIndex<2 then + strwhere:=strwhere+' and OrdDefStr15='''+trim(RadioGroup2.Items.Strings[RadioGroup2.itemindex])+''''; + end; + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmProductOrderNewList_FB.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + { if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + frmOrderInPut_FB:=TfrmOrderInPut_FB.Create(Application); + with frmOrderInPut_FB do + begin + PState:=1; + ftype:=Self.ftype; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmOrderInPut_FB.Free; + end; +end; + +procedure TfrmProductOrderNewList_FB.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList_FB.DelData():Boolean; +var + CRID:string; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + open; + IF not isempty then + begin + CRID:=fieldbyname('CRID').AsString; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrderFB_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + // sql.Add('delete JYOrderFB_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + // sql.Add('delete JYOrderFB_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' '); + sql.Add('delete YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').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('invoiceNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + 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; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_FB.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,self.Caption); +end; + +procedure TfrmProductOrderNewList_FB.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + {with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,E.MPRTType,E.BankSelfFastNo,E.BankAddress,'); + SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrderFB_Sub B where B.MainId=A.MainId),'); + SQL.Add('ZSordQty1=(select Sum(SordQty1) from JYOrderFB_Sub B where B.MainId=A.MainId group by B.MainId) '); + sql.Add('from JYOrderFB_Main A inner join JYOrderFB_Sub B on A.MainId=B.MainId '); + sql.Add('left join JYOrderCY_sub C on C.Subid=B.Sorddefstr10 '); + sql.Add('left join JYOrderCY_Main D on D.mainID=C.mainID '); + sql.Add('left join JYOrderCon_Main E on E.conNO=D.conNO '); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(ADOQueryPrint.FieldByName('MPRTType').AsString)='' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬƱ1.rmf'; + end + else + fPrintFile:= ExtractFilePath(Application.ExeName)+'Report\ͬƱ2.rmf'; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ͬƱ.rmf'),'ʾ',0); + end;} + //Panel4.Visible:=True; + button1.Click; +end; + +procedure TfrmProductOrderNewList_FB.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + + end + else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderFB_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList_FB.TBAddClick(Sender: TObject); +begin + try + frmOrderInPut_FB:=TfrmOrderInPut_FB.Create(Application); + with frmOrderInPut_FB do + begin + PState:=0; + FMainId:=''; + ftype:=Self.ftype; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmOrderInPut_FB.Free; + end; +end; + +procedure TfrmProductOrderNewList_FB.invoiceNoChange(Sender: TObject); +begin + TBFind.Click +end; + +procedure TfrmProductOrderNewList_FB.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList_FB.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList_FB.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_FB.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_FB.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList_FB.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList_FB.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 TfrmProductOrderNewList_FB.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList_FB.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_FB:=TfrmOrderInPut_FB.Create(Application); + with frmOrderInPut_FB do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + Panel1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_FB.Free; + end; +end; + +procedure TfrmProductOrderNewList_FB.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut_FB:=TfrmOrderInPut_FB.Create(Application); + with frmOrderInPut_FB do + begin + PState:=1; + CopyInt:=99; + + ftype:=Self.ftype; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut_FB.Free; + end; +end; + +procedure TfrmProductOrderNewList_FB.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList_FB.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList_FB.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName,SYRName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + {LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if LBName='װ䵥' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װ䵥.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select AA.OrdDefStr14,AA.OrdDefStr13,AA.CustomerNoName,AA.InvoiceNo,AA.ConNo,AA.Orddate,AA.OrdDefStr4,AA.orddefstr3,AA.OrdDefStr15,AA.PRTColor,AA.SordQty7,'); + SQL.Add('AA.PrtCodeName,AA.PRTspec,AA.KHConNO,AA.Mainid,AA.OrderUnit,Sum(AA.SordQty1) SL,SUM(AA.Sordqty4) MZ,SUM(AA.SordQty5) JZ,SUM(AA.SordQty3) LFS from ( '); + SQL.Add('select A.OrdDefStr14,A.CustomerNoName,A.OrdDefStr13,A.InvoiceNo,A.ConNo,A.Orddate,A.OrdDefStr4,A.orddefstr3,A.OrdDefStr15,'); + SQL.Add('B.PrtCodeName,B.PRTspec,A.KHConNO,A.Mainid,B.SordQty1,B.Sordqty4,B.SordQty5,B.SordQty3,B.PRTColor,B.SordQty7,'); + SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrderFB_Sub B where B.MainId=A.MainId) '); + SQL.Add('from JYOrderFB_Main A inner join JYOrderFB_Sub B on A.MainId=B.MainId where B.PRTColor<>'''') AA '); + sql.Add('where AA.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + + sql.Add('group by AA.OrdDefStr14,AA.OrdDefStr13,AA.CustomerNoName,AA.InvoiceNo,AA.ConNo,AA.Orddate,AA.OrdDefStr4,AA.orddefstr3,AA.OrdDefStr15,AA.PRTColor,AA.SordQty7,'); + sql.Add('AA.PrtCodeName,AA.PRTspec,AA.KHConNO,AA.Mainid,AA.OrderUnit '); + sql.add('order by AA.PrtCodeName,AA.PRTspec,AA.PRTColor,AA.KHConNO'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + end + else + begin + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,D.MaiTouNote,E.MPRTType,E.BankSelfFastNo,E.BankAddress,'); + SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrderFB_Sub B where B.MainId=A.MainId),'); + SQL.Add('ZSordQty1=(select Sum(SordQty1) from JYOrderFB_Sub B where B.MainId=A.MainId group by B.MainId) '); + sql.Add('from JYOrderFB_Main A inner join JYOrderFB_Sub B on A.MainId=B.MainId '); + sql.Add('left join JYOrderCY_sub C on C.Subid=B.Sorddefstr10 '); + sql.Add('left join JYOrderCY_Main D on D.mainID=C.mainID '); + sql.Add('left join JYOrderCon_Main E on E.conNO=D.conNO '); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(CDS_Print.fieldbyname('OrdDefStr15').AsString)='' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬƱ1.rmf'; + end + else + fPrintFile:= ExtractFilePath(Application.ExeName)+'Report\ͬƱ2.rmf'; + end;} + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.OrdDefStr14,AA.OrdDefStr13,AA.CustomerNoName,AA.InvoiceNo,AA.ConNo,AA.Orddate,AA.OrdDefStr4,AA.orddefstr3,AA.OrdDefStr15,AA.PRTColor,AA.SordQty7,'); + SQL.Add('AA.PrtCodeName,AA.PRTspec,AA.KHConNO,AA.Mainid,AA.OrderUnit,Sum(AA.SordQty1) SL,SUM(AA.Sordqty4) MZ,SUM(AA.SordQty5) JZ,SUM(AA.SordQty3) LFS from ( '); + SQL.Add('select A.OrdDefStr14,A.CustomerNoName,A.OrdDefStr13,A.InvoiceNo,A.ConNo,A.Orddate,A.OrdDefStr4,A.orddefstr3,A.OrdDefStr15,'); + SQL.Add('B.PrtCodeName,B.PRTspec,A.KHConNO,A.Mainid,B.SordQty1,B.Sordqty4,B.SordQty5,B.SordQty3,B.PRTColor,B.SordQty7,'); + SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrderFB_Sub B where B.MainId=A.MainId) '); + SQL.Add('from JYOrderFB_Main A inner join JYOrderFB_Sub B on A.MainId=B.MainId where B.PRTColor<>'''') AA '); + sql.Add('where AA.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('group by AA.OrdDefStr14,AA.OrdDefStr13,AA.CustomerNoName,AA.InvoiceNo,AA.ConNo,AA.Orddate,AA.OrdDefStr4,AA.orddefstr3,AA.OrdDefStr15,AA.PRTColor,AA.SordQty7,'); + sql.Add('AA.PrtCodeName,AA.PRTspec,AA.KHConNO,AA.Mainid,AA.OrderUnit '); + sql.add('order by AA.PrtCodeName,AA.PRTspec,AA.PRTColor,AA.KHConNO'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Print1); + SInitCDSData20(ADOQueryTemp,CDS_Print1); + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,D.MaiTouNote,E.MPRTType,E.BankSelfFastNo,E.BankAddress,'); + SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrderFB_Sub B where B.MainId=A.MainId),'); + SQL.Add('ZSordQty1=(select Sum(SordQty1) from JYOrderFB_Sub B where B.MainId=A.MainId group by B.MainId) '); + sql.Add('from JYOrderFB_Main A inner join JYOrderFB_Sub B on A.MainId=B.MainId '); + sql.Add('left join JYOrderCY_sub C on C.Subid=B.Sorddefstr10 '); + sql.Add('left join JYOrderCY_Main D on D.mainID=C.mainID '); + sql.Add('left join JYOrderCon_Main E on E.conNO=D.conNO '); + sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.add('order by B.PrtCodeName,B.PRTspec,B.PRTColor,A.KHConNO'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(CDS_Print.fieldbyname('OrdDefStr15').AsString)='' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬƱ1.rmf'; + end + else + fPrintFile:= ExtractFilePath(Application.ExeName)+'Report\ͬƱ2.rmf'; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ͬƱ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_FB.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList_FB.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmProductOrderNewList_FB.Tv2DblClick( + Sender: TObject); +var + fNO:string; +begin + IF ADOQuerySub.IsEmpty then exit; + ToolButton2.Click; + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select ATID from KH_Zdy_Attachment A'); + sql.Add('where zdyCode='+quotedstr(trim(ADOQuerySub.fieldbyname('prtCode').AsString))); + sql.Add('and Type='+quotedstr(trim('CP'))); + open; + if not IsEmpty then + begin + fNO:=trim(fieldbyname('ATID').AsString); + end; + end; + + try + frmZdyAttInputCP10:=TfrmZdyAttInputCP10.Create(Application); + with frmZdyAttInputCP10 do + begin + FATID:=Trim(fNO); + frmZdyAttInputCP10.Tsave.Enabled:=false; + if ShowModal=1 then + begin + // TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP10.Free; + end; + } +end; + +procedure TfrmProductOrderNewList_FB.Tv1DblClick(Sender: TObject); +begin +// ToolButton1.Click; +end; + +procedure TfrmProductOrderNewList_FB.TChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderFB_Main SET status=''1'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('invoiceNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_FB.TNOChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrderCY_Main SET status=''0'' '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').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('invoiceNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_FB.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_FB.RadioGroup2Click(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderNewList_FB.TBNodelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + { if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + frmOrderInPut_FB:=TfrmOrderInPut_FB.Create(Application); + with frmOrderInPut_FB do + begin + PState:=1; + ftype:=Self.ftype; + TBSave.Caption:=''; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + InitGrid(); + end; + + end; + finally + frmOrderInPut_FB.TBSave.Caption:=''; + frmOrderInPut_FB.Free; + end; +end; + +procedure TfrmProductOrderNewList_FB.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('prtmoney').Index]<0 then + begin + // ACanvas.Brush.Color:=Clgreen; + ACanvas.Brush.Color:=clLime; + end; +end; + +end. diff --git a/贸易管理/U_ProductOrderNewList_JD.dfm b/贸易管理/U_ProductOrderNewList_JD.dfm new file mode 100644 index 0000000..91e53de --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_JD.dfm @@ -0,0 +1,1066 @@ +object frmProductOrderNewList_JD: TfrmProductOrderNewList_JD + Left = 30 + Top = 99 + Width = 1160 + Height = 611 + 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 + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1144 + AutoSize = True + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object tchk: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #19994#21153#23457#26680 + ImageIndex = 41 + Visible = False + OnClick = tchkClick + end + object tNochk: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 86 + Visible = False + OnClick = tNochkClick + end + object TBEdit: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 58 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 702 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 765 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 828 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1144 + Height = 65 + 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 = 178 + Top = 15 + 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 Label4: TLabel + Left = 330 + Top = 15 + Width = 40 + 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 Label2: TLabel + Left = 322 + Top = 107 + Width = 26 + Height = 12 + Caption = #26579#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 329 + Top = 39 + 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 = 474 + Top = 15 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 178 + Top = 39 + Width = 53 + Height = 12 + Caption = #21512' '#21516' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 441 + Top = 99 + Width = 52 + Height = 12 + Caption = #20844#21496#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 = 576 + Top = 84 + Width = 52 + Height = 12 + Caption = #37197#36135#29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 474 + Top = 139 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label24: TLabel + Left = 714 + Top = 89 + Width = 52 + Height = 12 + Caption = #35746#21333#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 655 + Top = 123 + 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 + Visible = 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 = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 231 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 375 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson2: TEdit + Tag = 2 + Left = 375 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 507 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 231 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 8 + OnChange = OrderNoChange + end + object ISPH: TComboBox + Tag = 2 + Left = 628 + Top = 80 + Width = 77 + Height = 20 + Style = csDropDownList + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 9 + OnChange = OrderNoChange + Items.Strings = ( + '' + #26410#37197#36135 + #24050#37197#36135) + end + object PrtColor: TEdit + Tag = 2 + Left = 603 + Top = 131 + Width = 76 + Height = 20 + TabOrder = 10 + Visible = False + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 769 + Top = 85 + Width = 76 + Height = 20 + Style = csDropDownList + Ctl3D = False + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 11 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object khConNo: TEdit + Tag = 2 + Left = 712 + Top = 119 + Width = 76 + Height = 20 + TabOrder = 12 + Visible = False + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 119 + Width = 1144 + Height = 354 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column24 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1RK_Qty + end + item + Kind = skSum + Column = v1Column26 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + 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_TradeManage.Default + Width = 68 + 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_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 94 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPrtSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPrtSpec' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object v1ordderNote1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'orderUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'TP_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TP_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #25237#22383#21333#20301 + DataBinding.FieldName = 'TP_unit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HC_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HC_Qty' + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #30333#22383#25439#32791 + DataBinding.FieldName = 'TP_SH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #30333#22383#27604#29575 + DataBinding.FieldName = 'TP_SL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '#.##%' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JY_RollNUm' + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'JY_Qty' + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #26816#39564#25439#32791 + DataBinding.FieldName = 'JY_SH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #26816#39564#27604#29575 + DataBinding.FieldName = 'JY_SL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '#.##%' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'TR_RollNum' + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'TR_Qty' + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #35843#20986#21305#25968 + DataBinding.FieldName = 'TC_RollNum' + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #35843#20986#25968#37327 + DataBinding.FieldName = 'TC_Qty' + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RK_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 60 + end + object v1RK_Qty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CK_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column24: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CK_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 59 + end + object v1Column25: TcxGridDBColumn + Caption = #20986#24211#21333#20301 + DataBinding.FieldName = 'CK_Unit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KC_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclOlive + Styles.Footer = cxStyle_fontclOlive + Styles.Header = cxStyle_fontclOlive + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KC_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclOlive + Styles.Footer = cxStyle_fontclOlive + Styles.Header = cxStyle_fontclOlive + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 97 + Width = 1144 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #19994#21153#36755#20837 + #19994#21153#24050#23457#26680 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1144 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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, 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 = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = Order_Main + 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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object cxStyleRepository1: TcxStyleRepository + Left = 157 + Top = 206 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clInactiveCaption + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = 4707838 + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end +end diff --git a/贸易管理/U_ProductOrderNewList_JD.pas b/贸易管理/U_ProductOrderNewList_JD.pas new file mode 100644 index 0000000..48918d3 --- /dev/null +++ b/贸易管理/U_ProductOrderNewList_JD.pas @@ -0,0 +1,801 @@ +unit U_ProductOrderNewList_JD; + +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, cxCurrencyEdit, Mask, DBCtrls, cxContainer, cxTextEdit, + cxDBEdit; + +type + TfrmProductOrderNewList_JD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson2: TEdit; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + tNochk: TToolButton; + v1ordderNote1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + Label6: TLabel; + ISPH: TComboBox; + PrtColor: TEdit; + Label7: TLabel; + orderType: TComboBox; + Label24: TLabel; + v1MPrtSpec: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + khConNo: TEdit; + Label10: TLabel; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1RK_Qty: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure tNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton4Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + fDParameters1:string; + { Public declarations } + end; + +var + frmProductOrderNewList_JD: TfrmProductOrderNewList_JD; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_OrderJD; + +{$R *.dfm} +procedure TfrmProductOrderNewList_JD.SetStatus(); +begin +{ Tchk.Visible:=false; + tNochk.Visible:=false; + TBEdit.Enabled:=false; + TBDel.Enabled:=false; + if Trim(fDParameters1)='Ȩ' then + begin + + case cxTabControl1.TabIndex of + 0:begin + Tchk.Visible:=true; + tNochk.Visible:=false; + TBEdit.Enabled:=true; + TBDel.Enabled:=true; + end; + 1:begin + Tchk.Visible:=false; + tNochk.Visible:=true; + end; + 2:begin + Tchk.Visible:=false; + tNochk.Visible:=false; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + + TBEdit.Enabled:=true; + TBDel.Enabled:=true; + end; + 1:begin + + end; + 2:begin + + end; + end; + end; } +end; + +procedure TfrmProductOrderNewList_JD.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_JD:=nil; +end; + +procedure TfrmProductOrderNewList_JD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList_JD.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList_JD.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name+'2',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList_JD.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_order_Jd :begdate,:enddate,:WSql') ; + parameters.ParamByName('WSql').Value:=strwhere; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmProductOrderNewList_JD.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList_JD.InitForm(); +begin + readCxGrid(self.Caption+tv1.Name+'2',Tv1,'ָʾ'); + if FCloth=1 then + begin + v1Column4.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-15; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + + // InitGrid(); +end; + +procedure TfrmProductOrderNewList_JD.TBFindClick(Sender: TObject); +var + strwhere :string; +begin + if ADOQueryMain.Active=False then Exit; + strwhere:=SGetFilters(Panel1,1,2); + + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmProductOrderNewList_JD.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; +{ if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; } + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_JD.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; +{ if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Cloth_LL A where exists (select * from JYOrder_Sub B where B.SubId=A.OrdSubId '); + SQL.Add(' and B.MainId='''+Trim(Order_Main.fieldbyname('MainId').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 YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').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 Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').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 JYOrder_Sub_AnPai where 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; + end; +end; + +function TfrmProductOrderNewList_JD.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_JD.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewList_JD.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾȱ.rmf' ; + + if FileExists(fPrintFile) then + begin + RMVariables['begdate']:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + RMVariables['dtxz']:=formatdateTime('yyyy-MM-dd',Now); + RMVariables['zdr']:=Trim(dName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmProductOrderNewList_JD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_JD.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; + + +end; + +procedure TfrmProductOrderNewList_JD.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderNewList_JD.FormShow(Sender: TObject); +begin + SetStatus(); + InitForm(); +end; + +procedure TfrmProductOrderNewList_JD.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList_JD.CheckBox1Click(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderNewList_JD.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_JD.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList_JD.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 TfrmProductOrderNewList_JD.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList_JD.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Enabled:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_JD.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_JD.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList_JD.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_main '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + open; + edit; + fieldbyname('status').Value:='1'; + post; + end; + application.MessageBox('ҵ˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ҵʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_JD.tNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and isnull(substatus,'''')>''0'' '); + open; + if not ADOQueryCmd.IsEmpty then + begin + application.MessageBox('˵Ѿ ܳˣ','ʾϢ',0); + exit; + end; + end; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_main '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + open; + edit; + fieldbyname('status').Value:='0'; + post; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('˳ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_JD.cxTabControl1Change(Sender: TObject); +begin + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrderNewList_JD.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_order_Jd :begdate,:enddate,:WSql') ; + parameters.ParamByName('WSql').Value:=' and A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + parameters.ParamByName('begdate').Value:='2013-12-01'; + parameters.ParamByName('enddate').Value:=SGetServerDate10(ADOQueryCmd); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList_JD.v1Column3CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + iF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('RK_KGQty').Index]> + AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('HC_Qty').Index]*1.05 then + begin + ACanvas.Brush.Color:=Clred; + end; +end; + +procedure TfrmProductOrderNewList_JD.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderJD:=TfrmOrderJD.Create(Application); + with frmOrderJD do + begin + + OrderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderJD.Free; + end; +end; + +end. diff --git a/贸易管理/U_ProductOrderSel.dfm b/贸易管理/U_ProductOrderSel.dfm new file mode 100644 index 0000000..fd704ee --- /dev/null +++ b/贸易管理/U_ProductOrderSel.dfm @@ -0,0 +1,350 @@ +object frmProductOrderSel: TfrmProductOrderSel + Left = 134 + Top = 115 + Width = 1094 + Height = 600 + Caption = #29983#20135#25351#31034#21333#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 = 1249 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBPrint: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1249 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 27 + Top = 23 + 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 OrderNoM: TEdit + Tag = 2 + Left = 68 + Top = 19 + Width = 141 + Height = 20 + TabOrder = 0 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 112 + Width = 1249 + Height = 369 + TabOrder = 2 + 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 = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 54 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 92 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.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 = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/贸易管理/U_ProductOrderSel.pas b/贸易管理/U_ProductOrderSel.pas new file mode 100644 index 0000000..7f01c69 --- /dev/null +++ b/贸易管理/U_ProductOrderSel.pas @@ -0,0 +1,494 @@ +unit U_ProductOrderSel; + +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; + +type + TfrmProductOrderSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1Column8: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderSel: TfrmProductOrderSel; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmProductOrderSel.FormDestroy(Sender: TObject); +begin + frmProductOrderSel:=nil; +end; + +procedure TfrmProductOrderSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderSel.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderSel.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid('ָʾб',Tv1,'ָʾ') + else + WriteCxGrid('ָʾбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,A.OrderNo OrderNoM from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + SQL.Add('where OrdDate>=:begdate and OrdDate<:enddate'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderSel.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderSel.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + if FCloth<>1 then + ReadCxGrid('ָʾб',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡ',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end else + begin + v1Column4.Visible:=False; + v1PRTPrice.Visible:=True; + v1PRTPrice.Hidden:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderSel.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 TfrmProductOrderSel.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderSel.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,PRTColorEng=(select Note from KH_Zdy CC where ZdyName=B.PRTColor and CC.Type=''OrdColor'' ) '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + i:=ADOQueryPrint.RecordCount; + ADOQueryPrint.First; + if i<19 then + begin + for j:=1 to 19-i do + begin + with CDS_Print do + begin + Append; + Post; + end; + end; + end; + with CDS_Print do + begin + Append; + FieldByName('Note').Value:=Trim(Order_Main.fieldbyname('Note').AsString); + FieldByName('OrdDefStr3').Value:=Trim(Order_Main.fieldbyname('OrdDefStr3').AsString); + FieldByName('SOrddefstr10').Value:=Trim(Order_Main.fieldbyname('OrderUnit').AsString); + FieldByName('SLbName').Value:=Trim(Order_Main.fieldbyname('SLbName').AsString); + FieldByName('OrdPerson1').Value:=Trim(Order_Main.fieldbyname('OrdPerson1').AsString); + Post; + end; + 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\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderSel.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderSel.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 TfrmProductOrderSel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderSel.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderSel.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderSel.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderSel.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderSel.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderSel.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderSel.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 TfrmProductOrderSel.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.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\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderSel.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/贸易管理/U_ProductOrder_CX.dfm b/贸易管理/U_ProductOrder_CX.dfm new file mode 100644 index 0000000..f798a36 --- /dev/null +++ b/贸易管理/U_ProductOrder_CX.dfm @@ -0,0 +1,517 @@ +object FrmProductOrder_CX: TFrmProductOrder_CX + Left = 132 + Top = 110 + Width = 1161 + Height = 577 + 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 = 1145 + 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_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBRafresh: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1145 + Height = 63 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 26 + Top = 14 + Width = 52 + Height = 12 + Caption = #31614#35746#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 = 194 + Top = 14 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#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 = 371 + Top = 14 + 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 Label4: TLabel + Left = 546 + Top = 14 + Width = 26 + 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 Label6: TLabel + Left = 546 + Top = 37 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 371 + Top = 37 + Width = 53 + 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 Label7: TLabel + Left = 194 + Top = 37 + 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 Label8: TLabel + Left = 697 + Top = 37 + 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 Label9: TLabel + Left = 697 + Top = 14 + 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 BegDate: TDateTimePicker + Left = 81 + Top = 10 + Width = 85 + Height = 20 + Date = 42136.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 42136.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 81 + Top = 33 + Width = 85 + Height = 20 + Date = 42136.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 42136.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 248 + Top = 10 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 427 + Top = 10 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 579 + Top = 10 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 579 + Top = 33 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object Filler: TEdit + Tag = 2 + Left = 427 + Top = 33 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + object orderNO: TEdit + Tag = 2 + Left = 248 + Top = 33 + Width = 81 + Height = 20 + TabOrder = 7 + OnKeyPress = orderNOKeyPress + end + object MPRTKZ: TEdit + Tag = 2 + Left = 728 + Top = 33 + Width = 83 + Height = 20 + TabOrder = 8 + OnChange = ConNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 728 + Top = 10 + Width = 83 + Height = 20 + TabOrder = 9 + OnChange = ConNoChange + end + object CheckBox1: TCheckBox + Left = 849 + Top = 36 + Width = 97 + Height = 17 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = CheckBox1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 95 + Width = 1145 + Height = 411 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 35 + end + object v1OrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 89 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1SYRName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1PRTHX: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1MPRTBZNote: TcxGridDBColumn + Caption = #21253#35013#35201#27714 + DataBinding.FieldName = 'MPRTBZNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 307 + Top = 187 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 362 + Top = 187 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 411 + Top = 186 + end + object ADOQueryCMD: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 452 + Top = 186 + end +end diff --git a/贸易管理/U_ProductOrder_CX.pas b/贸易管理/U_ProductOrder_CX.pas new file mode 100644 index 0000000..edddbec --- /dev/null +++ b/贸易管理/U_ProductOrder_CX.pas @@ -0,0 +1,212 @@ +unit U_ProductOrder_CX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, ADODB, DBClient; + +type + TFrmProductOrder_CX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + ToolButton1: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label5: TLabel; + Label4: TLabel; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ConNo: TEdit; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + PRTColor: TEdit; + Label2: TLabel; + Filler: TEdit; + Label7: TLabel; + orderNO: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + v1PRTHX: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Ssel: TcxGridDBColumn; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryTmp: TADOQuery; + v1SYRName: TcxGridDBColumn; + v1MPRTBZNote: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + ADOQueryCMD: TADOQuery; + CheckBox1: TCheckBox; + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure orderNOKeyPress(Sender: TObject; var Key: Char); + private + procedure initGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + FrmProductOrder_CX: TFrmProductOrder_CX; + +implementation + +uses U_DataLink,U_ZDYHelp,U_Fun; +{$R *.dfm} +procedure TFrmProductOrder_CX.initGrid(); +begin + with ADOQueryTmp do + begin + close; + sql.clear; + sql.Add('select A.*,B.*,C.SYRName from JYOrder_Main A '); + SQL.Add('inner join JYOrder_Sub B on B.Mainid=A.Mainid '); + sql.add('left join JYOrderCon_Main C on C.Mainid=A.Mainid '); + sql.add('where A.OrdDate>='''+trim(formatdatetime('yyyy-MM-dd',begdate.datetime))+''''); + sql.add('and A.OrdDate<'''+trim(formatdatetime('yyyy-MM-dd',enddate.datetime+1))+''''); + open; + end; + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TFrmProductOrder_CX.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TFrmProductOrder_CX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TFrmProductOrder_CX.TBFindClick(Sender: TObject); +begin + if ADOQueryTmp.Active=False then Exit; + SDofilter(ADOQueryTmp,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); +end; + +procedure TFrmProductOrder_CX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); +end; + +procedure TFrmProductOrder_CX.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TFrmProductOrder_CX.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryCMD)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryCMD); + initGrid(); +end; + +procedure TFrmProductOrder_CX.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TFrmProductOrder_CX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TFrmProductOrder_CX.FormDestroy(Sender: TObject); +begin + FrmProductOrder_CX:=nil; +end; + +procedure TFrmProductOrder_CX.CheckBox1Click(Sender: TObject); +begin + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + Order_Main.FieldByName('Ssel').AsBoolean:=CheckBox1.Checked; + post; + next; + end; + EnableControls; + end; +end; + +procedure TFrmProductOrder_CX.ConNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TFrmProductOrder_CX.orderNOKeyPress(Sender: TObject; + var Key: Char); +begin + IF key=#13 then + begin + IF length(orderNO.Text)<4 then exit; + with ADOQueryTmp do + begin + close; + sql.clear; + sql.Add('select A.*,B.*,C.SYRName from JYOrder_Main A '); + SQL.Add('inner join JYOrder_Sub B on B.Mainid=A.Mainid '); + sql.add('left join JYOrderCon_Main C on C.Mainid=A.Mainid '); + sql.add('where A.orderNo like '+quotedstr('%'+trim(orderNo.Text)+'%')); + open; + end; + SCreateCDS20(ADOQueryTmp,Order_Main); + SInitCDSData20(ADOQueryTmp,Order_Main); + end; +end; + +end. diff --git a/贸易管理/U_ProductionAnPai.dfm b/贸易管理/U_ProductionAnPai.dfm new file mode 100644 index 0000000..650d559 --- /dev/null +++ b/贸易管理/U_ProductionAnPai.dfm @@ -0,0 +1,656 @@ +object frmProductionAnPai: TfrmProductionAnPai + Left = 53 + Top = 12 + Width = 1155 + Height = 669 + Caption = #29983#20135#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 14 + object cxGrid1: TcxGrid + Left = 0 + Top = 203 + Width = 1147 + Height = 329 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle1 + Styles.IncSearch = cxStyle1 + Styles.Selection = cxStyle1 + object v1Column16: TcxGridDBColumn + Caption = #23433#25490#26085#26399 + DataBinding.FieldName = 'AnPaiDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v1Column4: TcxGridDBColumn + Caption = #29983#20135#24207#21495 + DataBinding.FieldName = 'SCOrder' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column13: TcxGridDBColumn + Caption = #23433#25490#31859#25968 + DataBinding.FieldName = 'OrderQtyM' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column19: TcxGridDBColumn + Caption = #23450#21367#38271'M' + DataBinding.FieldName = 'BigLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #23450#21367#25968 + DataBinding.FieldName = 'BigCount' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1Column20: TcxGridDBColumn + Caption = #29983#20135#38376#24133'cm' + DataBinding.FieldName = 'BigMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + Width = 86 + end + object v1Column21: TcxGridDBColumn + Caption = #23567#21367#20998#20999#20010#25968 + DataBinding.FieldName = 'SmalCount' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + Width = 96 + end + object v1Column22: TcxGridDBColumn + Caption = #23567#21367#20998#20999#24133#23485 + DataBinding.FieldName = 'SmalMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 239 + end + object v1Column23: TcxGridDBColumn + Caption = #23567#21367#20801#35768#20559#24046 + DataBinding.FieldName = 'SmalPC' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column23PropertiesEditValueChanged + Width = 98 + end + object v1Column24: TcxGridDBColumn + Caption = #20998#20999#35828#26126 + DataBinding.FieldName = 'SmalNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1Column24PropertiesButtonClick + Properties.OnEditValueChanged = v1Column24PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 129 + end + object v1Column25: TcxGridDBColumn + Caption = #25171#21253#35201#27714 + DataBinding.FieldName = 'DBNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column25PropertiesButtonClick + Properties.OnEditValueChanged = v1Column25PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 203 + end + object v1Column11: TcxGridDBColumn + Caption = #29983#20135#31859#25968 + DataBinding.FieldName = 'SCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #26410#29983#20135#31859#25968 + DataBinding.FieldName = 'WSCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 102 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 135 + end + object v1Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ProductType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'ProductQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'ProductUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ProductSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'SCStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'SWFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 83 + end + object v1Column26: TcxGridDBColumn + Caption = #23380#30446 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 103 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'AnPaiChker' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'AnPaiChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + object v1Column3: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1147 + Height = 82 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 324 + Top = 21 + Width = 56 + Height = 14 + Caption = #35746#21333#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 29 + Top = 32 + Width = 8 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 901 + Top = 16 + Width = 7 + Height = 14 + end + object Label2: TLabel + Left = 47 + Top = 21 + Width = 56 + Height = 14 + Caption = #23433#25490#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 197 + Top = 21 + Width = 21 + Height = 14 + Caption = '---' + end + object orderno: TEdit + Tag = 2 + Left = 381 + Top = 17 + Width = 129 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnChange = ordernoChange + end + object Button1: TButton + Left = 49 + Top = 48 + Width = 44 + Height = 25 + Caption = #21047#26032 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 417 + Top = 48 + Width = 38 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 273 + Top = 48 + Width = 43 + Height = 25 + Caption = #23548#20986 + TabOrder = 3 + OnClick = Button3Click + end + object BegDate: TDateTimePicker + Left = 104 + Top = 17 + Width = 93 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object EndDate: TDateTimePicker + Left = 215 + Top = 17 + Width = 94 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object Button4: TButton + Left = 112 + Top = 48 + Width = 65 + Height = 25 + Caption = #23457#26680#36890#36807 + TabOrder = 6 + OnClick = Button4Click + end + object Button5: TButton + Left = 190 + Top = 48 + Width = 75 + Height = 25 + Caption = #23457#26680#19981#36890#36807 + TabOrder = 7 + OnClick = Button5Click + end + object Button7: TButton + Left = 329 + Top = 48 + Width = 75 + Height = 25 + Caption = #27974#26009#37197#21046 + TabOrder = 8 + Visible = False + OnClick = Button7Click + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 82 + Width = 1147 + Height = 18 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#23436#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 19 + ClientRectRight = 1147 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 0 + Top = 100 + Width = 1147 + Height = 103 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label4: TLabel + Left = 32 + Top = 24 + Width = 70 + Height = 14 + Caption = #23567#21367#24133#23485'cm' + end + object SmalMF1: TEdit + Tag = 2 + Left = 104 + Top = 21 + Width = 97 + Height = 22 + TabOrder = 0 + Visible = False + end + object SmalMF2: TEdit + Tag = 2 + Left = 224 + Top = 21 + Width = 89 + Height = 22 + TabOrder = 1 + Visible = False + end + object SmalMF3: TEdit + Tag = 2 + Left = 344 + Top = 21 + Width = 81 + Height = 22 + TabOrder = 2 + Visible = False + end + object SmalMF4: TEdit + Tag = 2 + Left = 456 + Top = 21 + Width = 97 + Height = 22 + TabOrder = 3 + Visible = False + end + object SmalMF5: TEdit + Tag = 2 + Left = 584 + Top = 21 + Width = 89 + Height = 22 + TabOrder = 4 + Visible = False + end + object SmalMF6: TEdit + Tag = 2 + Left = 704 + Top = 21 + Width = 105 + Height = 22 + TabOrder = 5 + Visible = False + end + object SmalMF7: TEdit + Tag = 2 + Left = 104 + Top = 45 + Width = 97 + Height = 22 + TabOrder = 6 + Visible = False + end + object SmalMF8: TEdit + Tag = 2 + Left = 224 + Top = 45 + Width = 89 + Height = 22 + TabOrder = 7 + Visible = False + end + object SmalMF9: TEdit + Tag = 2 + Left = 344 + Top = 45 + Width = 81 + Height = 22 + TabOrder = 8 + Visible = False + end + object SmalMF10: TEdit + Tag = 2 + Left = 456 + Top = 45 + Width = 97 + Height = 22 + TabOrder = 9 + Visible = False + end + object SmalMF11: TEdit + Tag = 2 + Left = 584 + Top = 45 + Width = 89 + Height = 22 + TabOrder = 10 + Visible = False + end + object SmalMF12: TEdit + Tag = 2 + Left = 704 + Top = 45 + Width = 105 + Height = 22 + TabOrder = 11 + Visible = False + end + object Button6: TButton + Left = 104 + Top = 72 + Width = 97 + Height = 25 + Caption = #30830#23450 + TabOrder = 12 + Visible = False + OnClick = Button6Click + end + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 576 + Top = 256 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 256 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 256 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 696 + Top = 264 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 480 + Top = 280 + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlack + end + end +end diff --git a/贸易管理/U_ProductionAnPai.pas b/贸易管理/U_ProductionAnPai.pas new file mode 100644 index 0000000..5a07e48 --- /dev/null +++ b/贸易管理/U_ProductionAnPai.pas @@ -0,0 +1,666 @@ +unit U_ProductionAnPai; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, cxTextEdit, cxPC, + cxCalendar, ComCtrls, cxButtonEdit, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmProductionAnPai = class(TForm) + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + Label15: TLabel; + Label16: TLabel; + orderno: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Button1: TButton; + Button2: TButton; + Button3: TButton; + v1Column15: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column16: TcxGridDBColumn; + Label2: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Button4: TButton; + Button5: TButton; + v1Column17: TcxGridDBColumn; + Panel2: TPanel; + SmalMF1: TEdit; + SmalMF2: TEdit; + SmalMF3: TEdit; + SmalMF4: TEdit; + SmalMF5: TEdit; + SmalMF6: TEdit; + Label4: TLabel; + SmalMF7: TEdit; + SmalMF8: TEdit; + SmalMF9: TEdit; + SmalMF10: TEdit; + SmalMF11: TEdit; + SmalMF12: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Button6: TButton; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Button7: TButton; + v1Column26: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ordernoChange(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure v1Column19PropertiesEditValueChanged(Sender: TObject); + procedure v1Column23PropertiesEditValueChanged(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column24PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column24PropertiesEditValueChanged(Sender: TObject); + procedure v1Column25PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column25PropertiesEditValueChanged(Sender: TObject); + procedure Button7Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + public + { Public declarations } + end; + +var + frmProductionAnPai: TfrmProductionAnPai; + +implementation +uses + U_DataLink,U_Fun,U_OrderAttachment,U_ZDYHelpSel,U_JiangLiaoSet; + +{$R *.dfm} + +procedure TfrmProductionAnPai.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + orderno.SetFocus; + Action:=caFree; +end; + +procedure TfrmProductionAnPai.FormDestroy(Sender: TObject); +begin + frmProductionAnPai:=nil; +end; + +procedure TfrmProductionAnPai.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + if Trim(DParameters1)='' then + begin + Button5.Visible:=True; + Button4.Visible:=True; + end else + begin + Button5.Visible:=False; + Button4.Visible:=False; + end; +end; +procedure TfrmProductionAnPai.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_ProductAnPai :begdate,:enddate,:pstate,:Wsql'); + if cxTabControl1.TabIndex=0 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('pstate').Value:=1; + end else + if cxTabControl1.TabIndex=1 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('pstate').Value:=2; + end else + if cxTabControl1.TabIndex=2 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date) ; + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Parameters.ParamByName('pstate').Value:=3; + end; + Parameters.ParamByName('Wsql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductionAnPai.Button1Click(Sender: TObject); +begin + orderno.SetFocus; + InitGrid(); +end; + +procedure TfrmProductionAnPai.FormShow(Sender: TObject); +begin + ReadCxGrid('10',Tv1,'޷IJ'); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + if cxTabControl1.TabIndex=1 then + begin + Tv1.OptionsSelection.CellSelect:=False; + end else + Tv1.OptionsSelection.CellSelect:=True; + if Trim(DParameters1)='' then + begin + Tv1.OptionsSelection.CellSelect:=False; + end; + InitGrid(); +end; + +procedure TfrmProductionAnPai.ordernoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmProductionAnPai.v1Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Main do + begin + Edit; + FieldByName('SCOrder').Value:=Trim(mvalue); + FieldByName('AnPaiDate').Value:=Now; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set SCOrder='''+Trim(mvalue)+''''); + SQL.Add(',AnPaiDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPai.Button2Click(Sender: TObject); +begin + orderno.SetFocus; + WriteCxGrid('10',Tv1,'޷IJ'); + Close; +end; + +procedure TfrmProductionAnPai.Button3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('',cxGrid1); +end; + +procedure TfrmProductionAnPai.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + if cxTabControl1.TabIndex=0 then + begin + Tv1.OptionsSelection.CellSelect:=True; + end else + Tv1.OptionsSelection.CellSelect:=False; + if Trim(DParameters1)='' then + begin + Tv1.OptionsSelection.CellSelect:=False; + end; + VisbleControl(Panel2,False,Panel2.ControlCount); +end; + +procedure TfrmProductionAnPai.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('AnPaiPerson').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set AnPaiChker='''+Trim(DName)+''''); + sql.Add(',AnPaiChkStatus=''ͨ'''); + sql.add(',AnPaiChkDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPai.Button5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('AnPaiPerson').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set AnPaiChker='''+Trim(DName)+''''); + sql.Add(',AnPaiChkStatus=''˲ͨ'','); + sql.add('AnPaiChkDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPai.Tv1DblClick(Sender: TObject); +begin + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(Self.CDS_Main.fieldbyname('MainId').AsString); + Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductionAnPai.v1Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; + i:Integer; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + FFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Main do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',AnPaiPerson='''+Trim(DName)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + if Trim(FFieldName)='SmalCount' then + begin + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel2,True,strtoint(mvalue)+1); + end; + if strtoint(mvalue)+1>0 then + begin + Button6.Visible:=True; + end; +end; + +procedure TfrmProductionAnPai.v1Column23PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_Main do + begin + Edit; + FieldByName('SmalPC').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set SmalPC='''+Trim(mvalue)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; +end; +procedure TfrmProductionAnPai.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; + +procedure TfrmProductionAnPai.Button6Click(Sender: TObject); +var + i,j:Integer; + FFname,FFnameValue,FSubId:string; +begin + //FSubId:=Trim(CDS_Main.fieldbyname('SubId').AsString); + try + j:=0; + ADOQueryCmd.Connection.BeginTrans; + with Panel2 do + begin + for i:=0 to Panel2.ControlCount-1 do + begin + if Controls[i] is TLabel then Continue; + if Controls[i] is TButton then Continue; + if Controls[i].Visible=True then + begin + FFname:=Trim(Controls[i].Name); + if Trim(TEdit(Controls[i]).Text)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + j:=9; + Break; + end; + if StrToFloat((TEdit(Controls[i]).Text))=0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + j:=10; + Break; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set '+FFname+'='+Trim(TEdit(Controls[i]).Text)); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + end; + if j=0 then + ADOQueryCmd.Connection.CommitTrans + else + if j=9 then + begin + //ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('СΪգ','ʾ',0); + Exit; + end else + if j=10 then + begin + //ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('СΪ㣡','ʾ',0); + Exit; + end; + end; + //InitGrid(); + // CDS_Main.Locate('SubId',Trim(FSubId),[]); + with Panel2 do + begin + j:=0; + for i:=0 to Panel2.ControlCount-1 do + begin + if Controls[i] is TLabel then Continue; + if Controls[i] is TButton then Continue; + if TEdit(Controls[i]).Visible=True then + begin + if j=0 then + FSubId:=Trim(TEdit(Controls[i]).Text) + else + FSubId:=FSubId+','+Trim(TEdit(Controls[i]).Text); + j:=j+1; + end; + end; + end; + with CDS_Main do + begin + Edit; + FieldByName('SmalMF').Value:=Trim(FSubId); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷ쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPai.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel2,True,CDS_Main.fieldbyname('SmalCount').Value+1); + SCSHDataCDS(CDS_Main,Panel2,2); + if Trim(CDS_Main.FieldByName('SmalCount').AsString)='' then Exit; + if CDS_Main.fieldbyname('SmalCount').Value>0 then + begin + if cxTabControl1.TabIndex=0 then + Button6.Visible:=True + else + Button6.Visible:=False; + end; + +end; + +procedure TfrmProductionAnPai.v1Column24PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:String; +begin + mvalue:=Trim(CDS_Main.fieldbyname('SmalNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='SmalNote'; + flagname:='˵'; + if ShowModal=1 then + begin + with Self.CDS_Main do + begin + Edit; + FieldByName('SmalNote').Value:=mvalue+Trim(ReturnStr); + //post; + end; + mvalue:=mvalue+ReturnStr; + with Self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate WFBOrder_Sub Set SmalNote='''+Trim(mvalue)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + end; +end; + +procedure TfrmProductionAnPai.v1Column24PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_Main do + begin + Edit; + FieldByName('SmalNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set SmalNote='''+Trim(mvalue)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPai.v1Column25PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:String; +begin + mvalue:=Trim(CDS_Main.fieldbyname('DBNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DBNote'; + flagname:='Ҫ'; + if ShowModal=1 then + begin + with Self.CDS_Main do + begin + Edit; + FieldByName('DBNote').Value:=mvalue+Trim(ReturnStr); + //post; + end; + mvalue:=mvalue+ReturnStr; + with Self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate WFBOrder_Sub Set DBNote='''+Trim(mvalue)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + end; +end; + +procedure TfrmProductionAnPai.v1Column25PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_Main do + begin + Edit; + FieldByName('DBNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set DBNote='''+Trim(mvalue)+''''); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPai.Button7Click(Sender: TObject); +begin + try + frmJiangLiaoSet:=TfrmJiangLiaoSet.Create(Application); + with frmJiangLiaoSet do + begin + if ShowModal=1 then + begin + + end; + end; + finally + end; +end; + +end. diff --git a/贸易管理/U_ProductionAnPaiNew.dfm b/贸易管理/U_ProductionAnPaiNew.dfm new file mode 100644 index 0000000..b4e75d7 --- /dev/null +++ b/贸易管理/U_ProductionAnPaiNew.dfm @@ -0,0 +1,934 @@ +object frmProductionAnPaiNew: TfrmProductionAnPaiNew + Left = 97 + Top = 39 + Width = 1155 + Height = 671 + Caption = #29983#20135#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 14 + object cxGrid1: TcxGrid + Left = 0 + Top = 203 + Width = 1147 + Height = 246 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle1 + Styles.IncSearch = cxStyle1 + Styles.Selection = cxStyle1 + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 135 + end + object v1Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ProductType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + end + object v1Column10: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'ProductQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'ProductUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ProductSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 75 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'FSWFBFK' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 83 + end + object v1Column26: TcxGridDBColumn + Caption = #23380#30446 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21367#22343#37325#19978#38480 + DataBinding.FieldName = 'KZBig' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + object v1Column3: TcxGridDBColumn + Caption = #21367#22343#37325#19979#38480 + DataBinding.FieldName = 'KZSmal' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'AnPaiChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'AnPaiChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1147 + Height = 82 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 324 + Top = 21 + Width = 56 + Height = 14 + Caption = #35746#21333#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 29 + Top = 32 + Width = 8 + Height = 16 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 901 + Top = 16 + Width = 7 + Height = 14 + end + object Label2: TLabel + Left = 47 + Top = 21 + Width = 56 + Height = 14 + Caption = #23433#25490#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 197 + Top = 21 + Width = 21 + Height = 14 + Caption = '---' + end + object Label5: TLabel + Left = 468 + Top = 21 + Width = 28 + Height = 14 + Caption = #20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 585 + Top = 21 + Width = 28 + Height = 14 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 708 + Top = 21 + Width = 28 + Height = 14 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object orderno: TEdit + Tag = 2 + Left = 381 + Top = 17 + Width = 76 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnChange = ordernoChange + end + object Button1: TButton + Left = 49 + Top = 48 + Width = 44 + Height = 25 + Caption = #21047#26032 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 643 + Top = 48 + Width = 38 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 275 + Top = 48 + Width = 43 + Height = 25 + Caption = #23548#20986 + TabOrder = 3 + OnClick = Button3Click + end + object BegDate: TDateTimePicker + Left = 104 + Top = 17 + Width = 93 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object EndDate: TDateTimePicker + Left = 215 + Top = 17 + Width = 94 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object Button4: TButton + Left = 107 + Top = 48 + Width = 65 + Height = 25 + Caption = #23457#26680#36890#36807 + TabOrder = 6 + OnClick = Button4Click + end + object Button5: TButton + Left = 186 + Top = 48 + Width = 75 + Height = 25 + Caption = #23457#26680#19981#36890#36807 + TabOrder = 7 + OnClick = Button5Click + end + object Button7: TButton + Left = 689 + Top = 48 + Width = 75 + Height = 25 + Caption = #27974#26009#37197#21046 + TabOrder = 8 + Visible = False + OnClick = Button7Click + end + object Button8: TButton + Left = 413 + Top = 48 + Width = 66 + Height = 25 + Caption = #29983#20135#25764#38144 + TabOrder = 9 + OnClick = Button8Click + end + object Button9: TButton + Left = 333 + Top = 48 + Width = 66 + Height = 25 + Caption = #29983#20135#19979#36798 + TabOrder = 10 + OnClick = Button9Click + end + object Button10: TButton + Left = 493 + Top = 48 + Width = 48 + Height = 25 + Caption = #23436#25104 + TabOrder = 11 + OnClick = Button10Click + end + object Button11: TButton + Left = 552 + Top = 48 + Width = 73 + Height = 25 + Caption = #23436#25104#25764#38144 + TabOrder = 12 + OnClick = Button11Click + end + object SWFBCodeName: TEdit + Tag = 2 + Left = 497 + Top = 17 + Width = 76 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 13 + OnChange = ordernoChange + end + object FSWFBFK10: TEdit + Tag = 2 + Left = 618 + Top = 17 + Width = 76 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnChange = ordernoChange + end + object SWFBKZ10: TEdit + Tag = 2 + Left = 738 + Top = 17 + Width = 76 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 15 + OnChange = ordernoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 82 + Width = 1147 + Height = 18 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#23436#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 19 + ClientRectRight = 1147 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 0 + Top = 100 + Width = 1147 + Height = 103 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label4: TLabel + Left = 32 + Top = 24 + Width = 70 + Height = 14 + Caption = #23567#21367#24133#23485'cm' + end + object SmalMF1: TEdit + Tag = 2 + Left = 104 + Top = 21 + Width = 97 + Height = 22 + TabOrder = 0 + Visible = False + end + object SmalMF2: TEdit + Tag = 2 + Left = 224 + Top = 21 + Width = 89 + Height = 22 + TabOrder = 1 + Visible = False + end + object SmalMF3: TEdit + Tag = 2 + Left = 344 + Top = 21 + Width = 81 + Height = 22 + TabOrder = 2 + Visible = False + end + object SmalMF4: TEdit + Tag = 2 + Left = 456 + Top = 21 + Width = 97 + Height = 22 + TabOrder = 3 + Visible = False + end + object SmalMF5: TEdit + Tag = 2 + Left = 584 + Top = 21 + Width = 89 + Height = 22 + TabOrder = 4 + Visible = False + end + object SmalMF6: TEdit + Tag = 2 + Left = 704 + Top = 21 + Width = 105 + Height = 22 + TabOrder = 5 + Visible = False + end + object SmalMF7: TEdit + Tag = 2 + Left = 104 + Top = 45 + Width = 97 + Height = 22 + TabOrder = 6 + Visible = False + end + object SmalMF8: TEdit + Tag = 2 + Left = 224 + Top = 45 + Width = 89 + Height = 22 + TabOrder = 7 + Visible = False + end + object SmalMF9: TEdit + Tag = 2 + Left = 344 + Top = 45 + Width = 81 + Height = 22 + TabOrder = 8 + Visible = False + end + object SmalMF10: TEdit + Tag = 2 + Left = 456 + Top = 45 + Width = 97 + Height = 22 + TabOrder = 9 + Visible = False + end + object SmalMF11: TEdit + Tag = 2 + Left = 584 + Top = 45 + Width = 89 + Height = 22 + TabOrder = 10 + Visible = False + end + object SmalMF12: TEdit + Tag = 2 + Left = 704 + Top = 45 + Width = 105 + Height = 22 + TabOrder = 11 + Visible = False + end + object Button6: TButton + Left = 104 + Top = 72 + Width = 97 + Height = 25 + Caption = #30830#23450 + TabOrder = 12 + Visible = False + OnClick = Button6Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 464 + Width = 1147 + Height = 170 + Align = alBottom + PopupMenu = PopupMenu1 + TabOrder = 4 + object Tv2: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DSSCAnPai + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle1 + Styles.IncSearch = cxStyle1 + Styles.Selection = cxStyle1 + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object v2Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v2Column3: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23433#25490#26085#26399 + DataBinding.FieldName = 'AnPaiDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #29983#20135#24207#21495 + DataBinding.FieldName = 'SCOrder' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23433#25490#31859#25968 + DataBinding.FieldName = 'OrderQtyM' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23450#21367#38271'M' + DataBinding.FieldName = 'BigLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #23450#21367#25968 + DataBinding.FieldName = 'BigCount' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #38376#24133#19978#38480'cm' + DataBinding.FieldName = 'BigMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + Width = 95 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133#19979#38480'cm' + DataBinding.FieldName = 'BigMFSmal' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + Width = 85 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #23567#21367#20998#20999#20010#25968 + DataBinding.FieldName = 'SmalCount' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged + Width = 94 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #23567#21367#20998#20999#24133#23485 + DataBinding.FieldName = 'SmalMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 228 + end + object v2Column5: TcxGridDBColumn + Caption = #37325#37327#35828#26126 + DataBinding.FieldName = 'WeigthNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v2Column6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'APNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 117 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #23567#21367#20801#35768#20559#24046 + DataBinding.FieldName = 'SmalPC' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column23PropertiesEditValueChanged + Width = 98 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20998#20999#35828#26126 + DataBinding.FieldName = 'SmalNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1Column24PropertiesButtonClick + Properties.OnEditValueChanged = v1Column24PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 129 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #25171#21253#35201#27714 + DataBinding.FieldName = 'DBNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column25PropertiesButtonClick + Properties.OnEditValueChanged = v1Column25PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 203 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #29983#20135#31859#25968 + DataBinding.FieldName = 'SCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26410#29983#20135#31859#25968 + DataBinding.FieldName = 'WSCMQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 102 + end + object v2Column8: TcxGridDBColumn + Caption = #23436#25104#26085#26399 + DataBinding.FieldName = 'WCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'SCStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + end + object v2Column7: TcxGridDBColumn + Caption = #29983#20135#19979#36798 + DataBinding.FieldName = 'SCXDFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 496 + Top = 240 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 536 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + Top = 248 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 608 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 640 + Top = 256 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 240 + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlack + end + end + object DSSCAnPai: TDataSource + DataSet = CDS_SCAnPai + Left = 608 + Top = 496 + end + object CDS_SCAnPai: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 528 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 528 + Top = 496 + end + object PopupMenu1: TPopupMenu + Left = 400 + Top = 528 + object N1: TMenuItem + Caption = #22686#34892 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#34892 + OnClick = N2Click + end + end + object ADOQuerySub: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 560 + Top = 536 + end +end diff --git a/贸易管理/U_ProductionAnPaiNew.pas b/贸易管理/U_ProductionAnPaiNew.pas new file mode 100644 index 0000000..a979f69 --- /dev/null +++ b/贸易管理/U_ProductionAnPaiNew.pas @@ -0,0 +1,1006 @@ +unit U_ProductionAnPaiNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, cxTextEdit, cxPC, + cxCalendar, ComCtrls, cxButtonEdit, cxGridCustomPopupMenu, + cxGridPopupMenu, Menus, cxCheckBox; + +type + TfrmProductionAnPaiNew = class(TForm) + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + Label15: TLabel; + Label16: TLabel; + orderno: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + v1Column14: TcxGridDBColumn; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxTabControl1: TcxTabControl; + Label2: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Button4: TButton; + Button5: TButton; + Panel2: TPanel; + SmalMF1: TEdit; + SmalMF2: TEdit; + SmalMF3: TEdit; + SmalMF4: TEdit; + SmalMF5: TEdit; + SmalMF6: TEdit; + Label4: TLabel; + SmalMF7: TEdit; + SmalMF8: TEdit; + SmalMF9: TEdit; + SmalMF10: TEdit; + SmalMF11: TEdit; + SmalMF12: TEdit; + Button6: TButton; + cxGridPopupMenu1: TcxGridPopupMenu; + Button7: TButton; + v1Column26: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DSSCAnPai: TDataSource; + CDS_SCAnPai: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + ADOQuerySub: TADOQuery; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Button8: TButton; + Button9: TButton; + Button10: TButton; + Button11: TButton; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + Label5: TLabel; + SWFBCodeName: TEdit; + Label6: TLabel; + FSWFBFK10: TEdit; + Label7: TLabel; + SWFBKZ10: TEdit; + v2Column9: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ordernoChange(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure v1Column19PropertiesEditValueChanged(Sender: TObject); + procedure v1Column23PropertiesEditValueChanged(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v1Column24PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column24PropertiesEditValueChanged(Sender: TObject); + procedure v1Column25PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column25PropertiesEditValueChanged(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure N1Click(Sender: TObject); + // procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Tv2CellClick(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 v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure v2Column8PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + procedure InitGridAnPai(); + public + { Public declarations } + end; + +var + frmProductionAnPaiNew: TfrmProductionAnPaiNew; + +implementation +uses + U_DataLink,U_Fun,U_OrderAttachment,U_ZDYHelpSel,U_JiangLiaoSet; + +{$R *.dfm} + +procedure TfrmProductionAnPaiNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + orderno.SetFocus; + Action:=caFree; +end; + +procedure TfrmProductionAnPaiNew.FormDestroy(Sender: TObject); +begin + frmProductionAnPaiNew:=nil; +end; + +procedure TfrmProductionAnPaiNew.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; + if Trim(DParameters1)='' then + begin + Button5.Visible:=True; + Button4.Visible:=True; + end else + begin + Button5.Visible:=False; + Button4.Visible:=False; + end; +end; +procedure TfrmProductionAnPaiNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_ProductAnPai :begdate,:enddate,:pstate,:Wsql'); + if cxTabControl1.TabIndex=0 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('pstate').Value:=1; + end else + if cxTabControl1.TabIndex=1 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('pstate').Value:=2; + end else + if cxTabControl1.TabIndex=2 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date) ; + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); + Parameters.ParamByName('pstate').Value:=3; + end; + Parameters.ParamByName('Wsql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductionAnPaiNew.InitGridAnPai(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,B.SWFBCodeName,B.SWFBColor,B.SWFBHW,B.SWFBKZ '); + sql.Add(',SCMQty=(select isnull(sum(MJLen),0) from WFB_MJJY AA where AA.APID=A.APID)'); + sql.Add(',Case when A.OrderQtyM-(select isnull(sum(MJLen),0) from WFB_MJJY AA where AA.APID=A.APID)>0 then'); + SQL.Add(' A.OrderQtyM-(select isnull(sum(MJLen),0) from WFB_MJJY AA where AA.APID=A.APID) else 0 end as WSCMQty'); + SQL.Add('from WFBOrder_Sub_AnPai A inner join WFBOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' inner join WFBOrder_Main C on A.MainId=C.MainId'); + sql.Add(' where A.SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and Isnull(A.SCStatus,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and Isnull(A.SCStatus,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuerySub,CDS_SCAnPai); + SInitCDSData20(ADOQuerySub,CDS_SCAnPai); + finally + ADOQuerySub.EnableControls; + end; +end; + +procedure TfrmProductionAnPaiNew.Button1Click(Sender: TObject); +begin + orderno.SetFocus; + InitGrid(); + InitGridAnPai(); +end; + +procedure TfrmProductionAnPaiNew.FormShow(Sender: TObject); +begin + ReadCxGrid('FD1',Tv1,'޷IJ'); + ReadCxGrid('FD2',Tv2,'޷IJ'); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + if cxTabControl1.TabIndex=1 then + begin + Tv2.OptionsSelection.CellSelect:=False; + end else + Tv2.OptionsSelection.CellSelect:=True; + if Trim(DParameters1)='' then + begin + Tv2.OptionsSelection.CellSelect:=False; + end; + InitGrid(); + InitGridAnPai(); +end; + +procedure TfrmProductionAnPaiNew.ordernoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmProductionAnPaiNew.v1Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SCOrder').Value:=Trim(mvalue); + FieldByName('AnPaiDate').Value:=Now; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set SCOrder='''+Trim(mvalue)+''''); + SQL.Add(',AnPaiDate=getdate()'); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPaiNew.Button2Click(Sender: TObject); +begin + orderno.SetFocus; + WriteCxGrid('FD1',Tv1,'޷IJ'); + WriteCxGrid('FD2',Tv2,'޷IJ'); + Close; +end; + +procedure TfrmProductionAnPaiNew.Button3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('',cxGrid1); +end; + +procedure TfrmProductionAnPaiNew.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + InitGridAnPai(); + if cxTabControl1.TabIndex=0 then + begin + Tv2.OptionsSelection.CellSelect:=True; + end else + Tv2.OptionsSelection.CellSelect:=False; + if Trim(DParameters1)='' then + begin + Tv2.OptionsSelection.CellSelect:=False; + end; + VisbleControl(Panel2,False,Panel2.ControlCount); +end; + +procedure TfrmProductionAnPaiNew.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_SCAnPai.IsEmpty then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('AnPaiPerson').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set AnPaiChker='''+Trim(DName)+''''); + sql.Add(',AnPaiChkStatus=''ͨ'''); + sql.add(',AnPaiChkDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + InitGridAnPai(); + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPaiNew.Button5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Trim(DName)=Trim(CDS_Main.fieldbyname('AnPaiPerson').AsString) then + begin + Application.MessageBox('Լݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub Set AnPaiChker='''+Trim(DName)+''''); + sql.Add(',AnPaiChkStatus=''˲ͨ'','); + sql.add('AnPaiChkDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + InitGridAnPai(); + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPaiNew.Tv1DblClick(Sender: TObject); +begin + try + frmOrderAttachment:=TfrmOrderAttachment.Create(Application); + with frmOrderAttachment do + begin + FAMainId:=Trim(Self.CDS_Main.fieldbyname('MainId').AsString); + Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderAttachment.Free; + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; + i:Integer; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_SCAnPai do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set '+FFieldName+'='+Trim(mvalue)); + SQL.Add(',AnPaiPerson='''+Trim(DName)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + if Trim(FFieldName)='SmalCount' then + begin + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel2,True,strtoint(mvalue)+1); + end; + if strtoint(mvalue)+1>0 then + begin + Button6.Visible:=True; + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column23PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SmalPC').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set SmalPC='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; +end; +procedure TfrmProductionAnPaiNew.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; + +procedure TfrmProductionAnPaiNew.Button6Click(Sender: TObject); +var + i,j:Integer; + FFname,FFnameValue,FSubId:string; +begin + //FSubId:=Trim(CDS_Main.fieldbyname('SubId').AsString); + try + j:=0; + ADOQueryCmd.Connection.BeginTrans; + with Panel2 do + begin + for i:=0 to Panel2.ControlCount-1 do + begin + if Controls[i] is TLabel then Continue; + if Controls[i] is TButton then Continue; + if Controls[i].Visible=True then + begin + FFname:=Trim(Controls[i].Name); + if Trim(TEdit(Controls[i]).Text)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + j:=9; + Break; + end; + if StrToFloat((TEdit(Controls[i]).Text))=0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + j:=10; + Break; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_AnPai Set '+FFname+'='+Trim(TEdit(Controls[i]).Text)); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + with CDS_SCAnPai do + begin + Edit; + FieldByName(Controls[i].Name).Value:=Trim(TEdit(Controls[i]).Text); + Post; + end; + end; + end; + if j=0 then + ADOQueryCmd.Connection.CommitTrans + else + if j=9 then + begin + //ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('СΪգ','ʾ',0); + Exit; + end else + if j=10 then + begin + //ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('СΪ㣡','ʾ',0); + Exit; + end; + end; + //InitGrid(); + // CDS_Main.Locate('SubId',Trim(FSubId),[]); + with Panel2 do + begin + j:=0; + for i:=0 to Panel2.ControlCount-1 do + begin + if Controls[i] is TLabel then Continue; + if Controls[i] is TButton then Continue; + if TEdit(Controls[i]).Visible=True then + begin + if j=0 then + FSubId:=Trim(TEdit(Controls[i]).Text) + else + FSubId:=FSubId+','+Trim(TEdit(Controls[i]).Text); + j:=j+1; + end; + end; + end; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SmalMF').Value:=Trim(FSubId); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_Anpai Set SmalMF='''+Trim(FSubId)+'''') ; + sql.Add(' where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷ쳣','ʾ',0); + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column24PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:String; +begin + mvalue:=Trim(CDS_Main.fieldbyname('SmalNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='SmalNote'; + flagname:='˵'; + if ShowModal=1 then + begin + with Self.CDS_SCAnPai do + begin + Edit; + FieldByName('SmalNote').Value:=mvalue+Trim(ReturnStr); + //post; + end; + mvalue:=mvalue+ReturnStr; + with Self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set SmalNote='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column24PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SmalNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set SmalNote='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column25PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + mvalue:String; +begin + mvalue:=Trim(CDS_Main.fieldbyname('DBNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DBNote'; + flagname:='Ҫ'; + if ShowModal=1 then + begin + with Self.CDS_SCAnPai do + begin + Edit; + FieldByName('DBNote').Value:=mvalue+Trim(ReturnStr); + //post; + end; + mvalue:=mvalue+ReturnStr; + with Self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set DBNote='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + end; +end; + +procedure TfrmProductionAnPaiNew.v1Column25PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_SCAnPai do + begin + Edit; + FieldByName('DBNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set DBNote='''+Trim(mvalue)+''''); + SQL.Add(' where ApId='''+Trim(CDS_SCAnPai.fieldbyname('ApId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPaiNew.Button7Click(Sender: TObject); +begin + try + frmJiangLiaoSet:=TfrmJiangLiaoSet.Create(Application); + with frmJiangLiaoSet do + begin + if ShowModal=1 then + begin + + end; + end; + finally + end; +end; + +procedure TfrmProductionAnPaiNew.N1Click(Sender: TObject); +var + maxno:String; +begin + if cxTabControl1.TabIndex>0 then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'AP','WFBOrder_Sub_AnPai',3,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFBOrder_Sub_AnPai where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('APID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('AnPaiPerson').Value:=Trim(DName); + FieldByName('SmalCount').Value:=0; + FieldByName('AnPaiDate').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub Set AnPaiPerson='''+Trim(DName)+''''); + sql.Add(',AnPaiDate=getdate()'); + SQL.Add(' where SubId='''+Trim(CDS_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with CDS_Main do + begin + Edit; + FieldByName('AnPaiPerson').Value:=Trim(DName); + Post; + end; + with CDS_SCAnPai do + begin + Append; + FieldByName('APID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('SubId').AsString); + FieldByName('AnPaiDate').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('SmalCount').Value:=0; + FieldByName('OrderNo').Value:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + FieldByName('SWFBColor').Value:=Trim(CDS_Main.fieldbyname('SWFBColor').AsString); + FieldByName('SWFBKZ').Value:=Trim(CDS_Main.fieldbyname('SWFBKZ').AsString); + FieldByName('SWFBHW').Value:=Trim(CDS_Main.fieldbyname('SWFBHW').AsString); + FieldByName('SmalMF1').Value:=0; + FieldByName('SmalMF2').Value:=0; + FieldByName('SmalMF3').Value:=0; + FieldByName('SmalMF4').Value:=0; + FieldByName('SmalMF5').Value:=0; + FieldByName('SmalMF6').Value:=0; + FieldByName('SmalMF7').Value:=0; + FieldByName('SmalMF8').Value:=0; + FieldByName('SmalMF9').Value:=0; + FieldByName('SmalMF10').Value:=0; + FieldByName('SmalMF11').Value:=0; + FieldByName('SmalMF12').Value:=0; + + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + Exit; + end; +end; + +procedure TfrmProductionAnPaiNew.N2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>0 then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFBOrder_Sub_AnPai where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + CDS_SCAnPai.Delete; +end; + +procedure TfrmProductionAnPaiNew.Tv2CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel2,True,CDS_SCAnPai.fieldbyname('SmalCount').Value+1); + + if Trim(CDS_SCAnPai.FieldByName('SmalCount').AsString)='' then Exit; + if CDS_SCAnPai.fieldbyname('SmalCount').Value>0 then + begin + SCSHDataCDS(CDS_SCAnPai,Panel2,2); + if cxTabControl1.TabIndex=0 then + Button6.Visible:=True + else + Button6.Visible:=False; + end; +end; + +procedure TfrmProductionAnPaiNew.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + InitGridAnPai(); +end; + +procedure TfrmProductionAnPaiNew.v2Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_SCAnPai do + begin + Edit; + FieldByName('WeigthNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set WeigthNote='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPaiNew.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:=''; + with CDS_SCAnPai do + begin + Edit; + FieldByName('APNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set APNote='''+Trim(mvalue)+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductionAnPaiNew.Button10Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִɲ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_AnPai Set SCStatus='''',WCDate=getdate() where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + CDS_SCAnPai.Delete; +end; + +procedure TfrmProductionAnPaiNew.Button11Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_AnPai Set SCStatus='''' where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + CDS_SCAnPai.Delete; +end; + +procedure TfrmProductionAnPaiNew.Button9Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִ´','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_AnPai Set SCXDFlag=1 where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SCXDFlag').Value:=True; + Post; + end; +end; + +procedure TfrmProductionAnPaiNew.Button8Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFBOrder_Sub_AnPai Set SCXDFlag=0 where APID='''+Trim(CDS_SCAnPai.fieldbyname('APID').AsString)+''''); + ExecSQL; + end; + with CDS_SCAnPai do + begin + Edit; + FieldByName('SCXDFlag').Value:=false; + Post; + end; +end; + +procedure TfrmProductionAnPaiNew.v2Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:TDateTime; +begin + mvalue:=TcxDateEdit(Sender).EditingValue; + if Trim(DateTimeToStr(mvalue))='' then + begin + mvalue:=null; + end; + with CDS_SCAnPai do + begin + Edit; + FieldByName('WCDate').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFBOrder_Sub_AnPai Set WCDate='''+Trim(FormatDateTime('yyyy-MM-dd HH:mm:ss',mvalue))+''''); + SQL.Add(' where APId='''+Trim(CDS_SCAnPai.fieldbyname('APId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/贸易管理/U_SCGYSet.dfm b/贸易管理/U_SCGYSet.dfm new file mode 100644 index 0000000..1c29d81 --- /dev/null +++ b/贸易管理/U_SCGYSet.dfm @@ -0,0 +1,1297 @@ +object frmSCGYSet: TfrmSCGYSet + Left = 58 + Top = 31 + Width = 1137 + Height = 706 + Caption = #29983#20135#24037#33402#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 14 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1129 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object TBSave: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 13 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 104 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 109 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 375 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1129 + Height = 76 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 16 + Top = 15 + Width = 60 + Height = 14 + Caption = #31614#21457#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 203 + Top = 15 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 203 + Top = 39 + Width = 46 + Height = 14 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 382 + Top = 15 + Width = 30 + Height = 14 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 523 + Top = 15 + Width = 30 + Height = 14 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 523 + Top = 39 + Width = 30 + Height = 14 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 382 + Top = 39 + Width = 30 + Height = 14 + Caption = #37197#27604 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 643 + Top = 15 + Width = 60 + Height = 14 + Caption = #20135#21697#20195#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 643 + Top = 39 + Width = 60 + Height = 14 + Caption = #32593#23380#30446#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 98 + Height = 22 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 75 + Top = 35 + Width = 99 + Height = 22 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 247 + Top = 11 + Width = 103 + Height = 22 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomnoName: TEdit + Tag = 2 + Left = 247 + Top = 35 + Width = 104 + Height = 22 + TabOrder = 3 + OnChange = OrderNoChange + end + object SWFBHW: TEdit + Tag = 2 + Left = 414 + Top = 11 + Width = 71 + Height = 22 + TabOrder = 4 + OnChange = OrderNoChange + end + object SWFBKZ: TEdit + Tag = 2 + Left = 554 + Top = 11 + Width = 63 + Height = 22 + TabOrder = 5 + OnChange = OrderNoChange + end + object SWFBColor: TEdit + Tag = 2 + Left = 554 + Top = 35 + Width = 63 + Height = 22 + TabOrder = 6 + OnChange = OrderNoChange + end + object YLPB: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 71 + Height = 22 + TabOrder = 7 + OnChange = OrderNoChange + end + object SWFBCodeName: TEdit + Tag = 2 + Left = 706 + Top = 11 + Width = 87 + Height = 22 + TabOrder = 8 + OnChange = OrderNoChange + end + object WKMS: TEdit + Tag = 2 + Left = 706 + Top = 35 + Width = 87 + Height = 22 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1129 + Height = 24 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#29983#25104 + #24050#29983#25104 + #23457#26680#36890#36807) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1129 + ClientRectTop = 21 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 129 + Width = 1129 + Height = 146 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + object v1Column12: TcxGridDBColumn + Caption = #24037#33402#21333#21495'('#35746#21333#21495')' + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object v1Column11: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'SYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column14: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'CustomnoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 95 + end + object v1Column9: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v1Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 109 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 91 + end + object v1Column10: TcxGridDBColumn + Caption = #20027#35201#21407#26009#37197#27604 + DataBinding.FieldName = 'YLPB' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v1Column1: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + end + object cxGrid1Level4: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 275 + Width = 1129 + Height = 168 + Align = alTop + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 0 + Top = 17 + Width = 249 + Height = 147 + Align = alLeft + TabOrder = 0 + object TvKB: TcxGridDBBandedTableView + OnMouseDown = TvKBMouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSKB + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = #24320#21253#26426 + Styles.Header = DataLink_WFBProducttion.handBlack + Width = 240 + end> + object cxGridDBBandedColumn4: TcxGridDBBandedColumn + Caption = #24320#21253#26426 + DataBinding.FieldName = 'KBMac' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBBandedColumn4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'YCLName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBBandedColumn5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #25968#37327'(g)' + DataBinding.FieldName = 'KBQty' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvKB + end + end + object cxGrid3: TcxGrid + Left = 249 + Top = 17 + Width = 536 + Height = 147 + Align = alLeft + TabOrder = 1 + object TVPW: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = #38138#32593#26426 + Styles.Header = DataLink_WFBProducttion.Default + Width = 529 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #24038#24133#23485 + DataBinding.FieldName = 'SYDefStr1' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #21491#24133#23485 + DataBinding.FieldName = 'SYDefStr2' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #23618#25968 + DataBinding.FieldName = 'SYDefStr3' + HeaderAlignmentHorz = taCenter + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object VPWColumn1: TcxGridDBBandedColumn + Caption = #20132#21449#23485 + DataBinding.FieldName = 'SYDefStr4' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object VPWColumn2: TcxGridDBBandedColumn + Caption = 'in%' + DataBinding.FieldName = 'SYDefStr5' + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object VPWColumn3: TcxGridDBBandedColumn + Caption = 'Profiling' + DataBinding.FieldName = 'SYDefStr6' + HeaderAlignmentHorz = taCenter + Width = 307 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TVPW + end + end + object cxGrid2: TcxGrid + Left = 785 + Top = 17 + Width = 340 + Height = 147 + Align = alClient + TabOrder = 2 + object TvJS: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = #21367#32469 + Styles.Header = DataLink_WFBProducttion.Default + Width = 305 + end> + object v2Column1: TcxGridDBBandedColumn + Caption = #25104#21367#36895#24230 + DataBinding.FieldName = 'SYDefStr7' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #24133#23485 + DataBinding.FieldName = 'SYDefStr8' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Caption = #25163#24863 + DataBinding.FieldName = 'SYDefStr9' + HeaderAlignmentHorz = taCenter + Width = 98 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJSColumn1: TcxGridDBBandedColumn + Caption = #21560#27700#24615 + DataBinding.FieldName = 'SYDefStr10' + Width = 92 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TvJS + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1125 + Height = 17 + ButtonHeight = 18 + ButtonWidth = 36 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + Caption = #22686#34892 + ImageIndex = 9 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 36 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 14 + OnClick = ToolButton4Click + end + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 600 + Width = 1129 + Height = 69 + Align = alBottom + TabOrder = 5 + object TvSYH: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #27700#21050#12289#21360#33457#12289#28888#24178 + Styles.Header = DataLink_WFBProducttion.Default + Width = 1119 + end> + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #25277#21560'HZ' + DataBinding.FieldName = 'SYDefStr11' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = '1#'#25302#32593 + DataBinding.FieldName = 'SYDefStr12' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #22278#40723 + DataBinding.FieldName = 'SYDefStr13' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = '2#'#25302#32593 + DataBinding.FieldName = 'SYDefStr14' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = '1#'#36711#36710 + DataBinding.FieldName = 'SYDefStr15' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object vQSJColumn1: TcxGridDBBandedColumn + Caption = '2#'#36711#36710 + DataBinding.FieldName = 'SYDefStr16' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object vQSJColumn2: TcxGridDBBandedColumn + Caption = #21360#33457 + DataBinding.FieldName = 'SYDefStr17' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object vQSJColumn3: TcxGridDBBandedColumn + Caption = #28888#24178'1#' + DataBinding.FieldName = 'SYDefStr18' + HeaderAlignmentHorz = taCenter + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object vQSJColumn4: TcxGridDBBandedColumn + Caption = #28888#24178'2#' + DataBinding.FieldName = 'SYDefStr19' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object vQSJColumn5: TcxGridDBBandedColumn + Caption = #28888#24178'3#' + DataBinding.FieldName = 'SYDefStr20' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object vQSJColumn6: TcxGridDBBandedColumn + Caption = '4#'#28888#24178 + DataBinding.FieldName = 'SYDefStr21' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object vQSJColumn7: TcxGridDBBandedColumn + Caption = '5#'#28888#24178 + DataBinding.FieldName = 'SYDefStr22' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object vQSJColumn8: TcxGridDBBandedColumn + Caption = '1#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr23' + HeaderAlignmentHorz = taCenter + Width = 79 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object vQSJColumn9: TcxGridDBBandedColumn + Caption = '2#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr24' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object vQSJColumn10: TcxGridDBBandedColumn + Caption = '3#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr25' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object vQSJColumn11: TcxGridDBBandedColumn + Caption = '4#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr26' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object vQSJColumn12: TcxGridDBBandedColumn + Caption = '5#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr27' + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object vQSJColumn13: TcxGridDBBandedColumn + Caption = '6#'#27700#21050#21387#21147 + DataBinding.FieldName = 'SYDefStr28' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvSYH + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 443 + Width = 1129 + Height = 90 + Align = alClient + TabOrder = 6 + object TvSLJ: TcxGridDBBandedTableView + OnMouseDown = TvSLJMouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_SLJ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #26803#29702#26426 + Styles.Header = DataLink_WFBProducttion.FonePurple + Width = 1119 + end> + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #19978#26825#31665#21387#21147 + DataBinding.FieldName = 'SLDefStr2' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Caption = #19979#26825#31665#21387#21147 + DataBinding.FieldName = 'SLDefStr3' + HeaderAlignmentHorz = taCenter + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn15: TcxGridDBBandedColumn + Caption = #29983#20135#29575'%' + DataBinding.FieldName = 'SLDefStr4' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Caption = #21890#20837 + DataBinding.FieldName = 'SLDefStr5' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Caption = #38177#26519#36895#24230 + DataBinding.FieldName = 'SLDefStr6' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn18: TcxGridDBBandedColumn + Caption = #24037#20316#36746#36895#24230 + DataBinding.FieldName = 'SLDefStr7' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn19: TcxGridDBBandedColumn + Caption = #19978#36947#22827 + DataBinding.FieldName = 'SLDefStr8' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn20: TcxGridDBBandedColumn + Caption = #19978#26434#20081 + DataBinding.FieldName = 'SLDefStr9' + HeaderAlignmentHorz = taCenter + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn21: TcxGridDBBandedColumn + Caption = #19978#21093#21462 + DataBinding.FieldName = 'SLDefStr10' + HeaderAlignmentHorz = taCenter + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn22: TcxGridDBBandedColumn + Caption = #19978#36755#32593#24088 + DataBinding.FieldName = 'SLDefStr11' + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn23: TcxGridDBBandedColumn + Caption = #19979#36947#22827 + DataBinding.FieldName = 'SLDefStr12' + HeaderAlignmentHorz = taCenter + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn24: TcxGridDBBandedColumn + Caption = #19979#26434#20081 + DataBinding.FieldName = 'SLDefStr13' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn25: TcxGridDBBandedColumn + Caption = #19979#21093#21462 + DataBinding.FieldName = 'SLDefStr14' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn26: TcxGridDBBandedColumn + Caption = #19979#23680#32593#24088 + DataBinding.FieldName = 'SLDefStr15' + HeaderAlignmentHorz = taCenter + Width = 111 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn27: TcxGridDBBandedColumn + Caption = #26803#29702#26426 + DataBinding.FieldName = 'SLMac' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBBandedColumn27PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 104 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vSLJColumn1: TcxGridDBBandedColumn + Caption = #38271#24088#31995#25968 + DataBinding.FieldName = 'SLDefStr1' + HeaderAlignmentHorz = taCenter + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + end + object cxGridLevel5: TcxGridLevel + GridView = TvSLJ + end + end + object cxGrid7: TcxGrid + Left = 0 + Top = 533 + Width = 1129 + Height = 67 + Align = alBottom + TabOrder = 7 + object TvQSJ: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Caption = #29301#20280#26426 + Styles.Header = DataLink_WFBProducttion.Default + Width = 1119 + end> + object cxGridDBBandedColumn28: TcxGridDBBandedColumn + Tag = 1 + Caption = #24635#20493#29575 + DataBinding.FieldName = 'ZBL' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 113 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn29: TcxGridDBBandedColumn + Caption = #31995#25968'1(%)' + DataBinding.FieldName = 'SYDefFlt1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 129 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn30: TcxGridDBBandedColumn + Caption = #31995#25968'2(%)' + DataBinding.FieldName = 'SYDefFlt2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 109 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn31: TcxGridDBBandedColumn + Caption = #31995#25968'3(%)' + DataBinding.FieldName = 'SYDefFlt3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 118 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn32: TcxGridDBBandedColumn + Caption = #31995#25968'4(%)' + DataBinding.FieldName = 'SYDefFlt4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 117 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn33: TcxGridDBBandedColumn + Caption = #31995#25968'5(%)' + DataBinding.FieldName = 'SYDefFlt5' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 133 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn34: TcxGridDBBandedColumn + Caption = #31995#25968'6(%)' + DataBinding.FieldName = 'SYDefFlt6' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 121 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn35: TcxGridDBBandedColumn + Caption = #31995#25968'7(%)' + DataBinding.FieldName = 'SYDefFlt7' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBBandedColumn29PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 126 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn36: TcxGridDBBandedColumn + Caption = #31995#25968'8(%)' + DataBinding.FieldName = 'SYDefFlt8' + HeaderAlignmentHorz = taCenter + Width = 153 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TvQSJ + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 256 + Top = 160 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 328 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 288 + Top = 160 + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1080 + Top = 117 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 1048 + Top = 125 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 984 + Top = 141 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 816 + Top = 328 + end + object DSKB: TDataSource + DataSet = CDS_KB + Left = 160 + Top = 328 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 168 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 440 + Top = 328 + end + object CDS_SLJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 456 + end + object DS_SLJ: TDataSource + DataSet = CDS_SLJ + Left = 624 + Top = 456 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 48 + Top = 360 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 648 + Top = 632 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 584 + Top = 480 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 408 + Top = 560 + end + object DSSub: TDataSource + DataSet = CDS_Sub + Left = 480 + Top = 160 + end + object CDS_KB: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 328 + end +end diff --git a/贸易管理/U_SCGYSet.pas b/贸易管理/U_SCGYSet.pas new file mode 100644 index 0000000..6467404 --- /dev/null +++ b/贸易管理/U_SCGYSet.pas @@ -0,0 +1,1014 @@ +unit U_SCGYSet; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGrid, cxPC, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, cxCheckBox, Menus, cxGridBandedTableView, + cxGridDBBandedTableView, cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmSCGYSet = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level4: TcxGridLevel; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + DataSource1: TDataSource; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQueryMain: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DSKB: TDataSource; + CDS_Sub: TClientDataSet; + ToolButton1: TToolButton; + v1Column2: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + ScrollBox1: TScrollBox; + cxGrid4: TcxGrid; + TvKB: TcxGridDBBandedTableView; + cxGridDBBandedColumn4: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid3: TcxGrid; + TVPW: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + TvJS: TcxGridDBBandedTableView; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + VPWColumn1: TcxGridDBBandedColumn; + VPWColumn2: TcxGridDBBandedColumn; + VPWColumn3: TcxGridDBBandedColumn; + vJSColumn1: TcxGridDBBandedColumn; + cxGrid5: TcxGrid; + TvSYH: TcxGridDBBandedTableView; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + vQSJColumn1: TcxGridDBBandedColumn; + vQSJColumn2: TcxGridDBBandedColumn; + vQSJColumn3: TcxGridDBBandedColumn; + vQSJColumn4: TcxGridDBBandedColumn; + vQSJColumn5: TcxGridDBBandedColumn; + vQSJColumn6: TcxGridDBBandedColumn; + vQSJColumn7: TcxGridDBBandedColumn; + vQSJColumn8: TcxGridDBBandedColumn; + vQSJColumn9: TcxGridDBBandedColumn; + vQSJColumn10: TcxGridDBBandedColumn; + vQSJColumn11: TcxGridDBBandedColumn; + vQSJColumn12: TcxGridDBBandedColumn; + vQSJColumn13: TcxGridDBBandedColumn; + cxGrid6: TcxGrid; + TvSLJ: TcxGridDBBandedTableView; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + cxGridDBBandedColumn15: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridDBBandedColumn18: TcxGridDBBandedColumn; + cxGridDBBandedColumn19: TcxGridDBBandedColumn; + cxGridDBBandedColumn20: TcxGridDBBandedColumn; + cxGridDBBandedColumn21: TcxGridDBBandedColumn; + cxGridDBBandedColumn22: TcxGridDBBandedColumn; + cxGridDBBandedColumn23: TcxGridDBBandedColumn; + cxGridDBBandedColumn24: TcxGridDBBandedColumn; + cxGridDBBandedColumn25: TcxGridDBBandedColumn; + cxGridDBBandedColumn26: TcxGridDBBandedColumn; + cxGridDBBandedColumn27: TcxGridDBBandedColumn; + cxGridLevel5: TcxGridLevel; + cxGridPopupMenu3: TcxGridPopupMenu; + CDS_SLJ: TClientDataSet; + DS_SLJ: TDataSource; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + cxGridPopupMenu6: TcxGridPopupMenu; + vSLJColumn1: TcxGridDBBandedColumn; + v1Column3: TcxGridDBColumn; + cxGrid7: TcxGrid; + TvQSJ: TcxGridDBBandedTableView; + cxGridDBBandedColumn28: TcxGridDBBandedColumn; + cxGridDBBandedColumn29: TcxGridDBBandedColumn; + cxGridDBBandedColumn30: TcxGridDBBandedColumn; + cxGridDBBandedColumn31: TcxGridDBBandedColumn; + cxGridDBBandedColumn32: TcxGridDBBandedColumn; + cxGridDBBandedColumn33: TcxGridDBBandedColumn; + cxGridDBBandedColumn34: TcxGridDBBandedColumn; + cxGridDBBandedColumn35: TcxGridDBBandedColumn; + cxGridDBBandedColumn36: TcxGridDBBandedColumn; + cxGridLevel6: TcxGridLevel; + cxGridPopupMenu7: TcxGridPopupMenu; + DSSub: TDataSource; + CDS_KB: TClientDataSet; + Label4: TLabel; + CustomnoName: TEdit; + Label5: TLabel; + SWFBHW: TEdit; + Label6: TLabel; + SWFBKZ: TEdit; + Label7: TLabel; + SWFBColor: TEdit; + Label8: TLabel; + YLPB: TEdit; + Label2: TLabel; + SWFBCodeName: TEdit; + Label9: TLabel; + WKMS: TEdit; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MenuItem3Click(Sender: TObject); + procedure MenuItem4Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxGridDBBandedColumn4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBBandedColumn5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBBandedColumn27PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TvKBMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure TvSLJMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure cxGridDBBandedColumn29PropertiesEditValueChanged( + Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + FInt:Integer; + procedure InitGrid(); + procedure InitGridSub(); + procedure InitGridKB(); + procedure InitGridSLJ(); + function SaveKB():Boolean; + function SaveSub():Boolean; + function SaveSLJ():Boolean; + procedure KBSLJData(); + procedure UpdateZBS(Sender: TObject); + public + { Public declarations } + end; + +var + frmSCGYSet: TfrmSCGYSet; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmSCGYSet.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSCGYSet.FormDestroy(Sender: TObject); +begin + frmSCGYSet:=nil; +end; + +procedure TfrmSCGYSet.InitGrid(); +begin + BegDate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('exec P_SCGY_List :begdate,:enddate,:PState'); + if cxTabControl1.TabIndex=0 then + begin + Parameters.ParamByName('begdate').Value:='2012-01-01'; + Parameters.ParamByName('enddate').Value:='2050-10-10'; + Parameters.ParamByName('PState').Value:=1; + end else + if cxTabControl1.TabIndex=1 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1); + Parameters.ParamByName('PState').Value:=2; + end else + if cxTabControl1.TabIndex=2 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1); + Parameters.ParamByName('PState').Value:=3; + end; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSCGYSet.ToolButton1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSCGYSet.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOTemp); + BegDate.DateTime:=EndDate.DateTime-30; + ReadCxGrid('յ',Tv1,'޷IJ'); + InitGrid(); + KBSLJData(); + if Trim(DParameters1)='' then + begin + TBSave.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + end else + begin + ToolButton5.Visible:=False; + ToolButton6.Visible:=False; + + end; +end; + +procedure TfrmSCGYSet.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + if Trim(DParameters1)<>'' then + begin + if cxTabControl1.TabIndex=2 then + Tv1.OptionsSelection.CellSelect:=False + else + Tv1.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmSCGYSet.OrderNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmSCGYSet.MenuItem3Click(Sender: TObject); +begin + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmSCGYSet.MenuItem4Click(Sender: TObject); +begin + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmSCGYSet.TBSaveClick(Sender: TObject); +begin + BegDate.SetFocus; + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex=2 then Exit; + if Trim(CDS_Main.FieldByName('SYDate').AsString)='' then + begin + Application.MessageBox('ڲΪգ','ʾ',0); + Exit; + end; + if (SaveSub() and SaveKB() and SaveSLJ() ) then + begin + if cxTabControl1.TabIndex=0 then + CDS_Main.Delete; + KBSLJData(); + Application.MessageBox('ɹ','ʾ',0); + end else + begin + end; + +end; +function TfrmSCGYSet.SaveSub():Boolean; +var + maxno:string; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + with CDS_Sub do + begin + //First; + //while not Eof do + //begin + if Trim(CDS_Sub.fieldbyname('SYID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'SY','WFB_SCGY',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_Sub.fieldbyname('SYID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_SCGY where SYID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_Sub.fieldbyname('SYID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('SYID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FieldByName('SWFBHW').Value:=Trim(CDS_Main.fieldbyname('SWFBHW').AsString); + FieldByName('WKMS').Value:=Trim(CDS_Main.fieldbyname('WKMS').AsString); + if Trim(CDS_Main.fieldbyname('SYDate').AsString)<>'' then + FieldByName('SYDate').Value:=Trim(CDS_Main.fieldbyname('SYDate').AsString); + SSetSaveDataCDSBandNew(ADOCmd,TVPW,CDS_Sub,'WFB_SCGY',0); + SSetSaveDataCDSBandNew(ADOCmd,TVJS,CDS_Sub,'WFB_SCGY',0); + SSetSaveDataCDSBandNew(ADOCmd,TVQSJ,CDS_Sub,'WFB_SCGY',0); + SSetSaveDataCDSBandNew(ADOCmd,TVSYH,CDS_Sub,'WFB_SCGY',0); + Post; + end; + with CDS_Main do + begin + Edit; + FieldByName('SYID').Value:=Trim(maxno); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('SYID').Value:=Trim(maxno); + Post; + end; + //Next; + //end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + //Application.MessageBox('ɹ','ʾ',0); + //Exit; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; +end; +function TfrmSCGYSet.SaveKB():Boolean; +var + maxno:string; +begin + BegDate.SetFocus; + Result:=False; + try + ADOCmd.Connection.BeginTrans; + with CDS_KB do + begin + First; + while not Eof do + begin + if Trim(CDS_KB.fieldbyname('KBID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'KB','WFB_SCGY_KB',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_KB.fieldbyname('KBID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_SCGY_KB where KBID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_KB.fieldbyname('KBID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('SYID').Value:=Trim(CDS_Main.fieldbyname('SYID').AsString); + FieldByName('KBID').Value:=Trim(maxno); + FieldByName('YCLCode').Value:=Trim(CDS_KB.fieldbyname('YCLCode').AsString); + SSetSaveDataCDSBandNew(ADOCmd,TvKB,CDS_KB,'WFB_SCGY_KB',0); + Post; + end; + with CDS_KB do + begin + Edit; + FieldByName('KBID').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + ///Application.MessageBox('ɹ','ʾ',0); + //Exit; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; +end; +function TfrmSCGYSet.SaveSLJ():Boolean; +var + maxno:string; +begin + BegDate.SetFocus; + try + Result:=False; + ADOCmd.Connection.BeginTrans; + with CDS_SLJ do + begin + First; + while not Eof do + begin + if Trim(CDS_SLJ.fieldbyname('SLID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'SL','WFB_SCGY_ShuLi',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_SLJ.fieldbyname('SLID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_SCGY_ShuLi where SLID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_SLJ.fieldbyname('SLID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('SYID').Value:=Trim(CDS_Main.fieldbyname('SYID').AsString); + FieldByName('SLID').Value:=Trim(maxno); + SSetSaveDataCDSBandNew(ADOCmd,TvSLJ,CDS_SLJ,'WFB_SCGY_ShuLi',0); + Post; + end; + with CDS_SLJ do + begin + Edit; + FieldByName('SLID').Value:=Trim(maxno); + Post; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + ///Application.MessageBox('ɹ','ʾ',0); + //Exit; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmSCGYSet.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('յ',Tv1,'޷IJ'); +end; + +procedure TfrmSCGYSet.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('յ',cxGrid1); +end; + +procedure TfrmSCGYSet.InitGridSub(); +begin + try + ADOTemp.DisableControls; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZBL=SYDefFlt1/100*SYDefFlt2/100*SYDefFlt3/100*SYDefFlt4/100*SYDefFlt5/100*SYDefFlt6/100*SYDefFlt7/100'); + SQL.Add(' from WFB_SCGY A where SYID='''+Trim(CDS_Main.fieldbyname('SYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOTemp,CDS_Sub); + SInitCDSData20(ADOTemp,CDS_Sub); + finally + ADOTemp.EnableControls; + end; +end; +procedure TfrmSCGYSet.InitGridKB(); +begin + try + ADOTemp.DisableControls; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_SCGY_KB where SYID='''+Trim(CDS_Main.fieldbyname('SYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOTemp,CDS_KB); + SInitCDSData20(ADOTemp,CDS_KB); + finally + ADOTemp.EnableControls; + end; +end; +procedure TfrmSCGYSet.InitGridSLJ(); +begin + try + ADOTemp.DisableControls; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_SCGY_Shuli where SYID='''+Trim(CDS_Main.fieldbyname('SYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOTemp,CDS_SLJ); + SInitCDSData20(ADOTemp,CDS_SLJ); + finally + ADOTemp.EnableControls; + end; +end; +procedure TfrmSCGYSet.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + KBSLJData(); +end; +procedure TfrmSCGYSet.KBSLJData(); +begin + InitGridSub(); + InitGridKB(); + InitGridSLJ(); + if Trim(CDS_Sub.fieldbyname('SYID').AsString)='' then + begin + with CDS_Sub do + begin + Append; + Post; + end; + end; + if Trim(CDS_KB.fieldbyname('KBID').AsString)='' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''KBMac'' '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''KBMac'' order by ZdyNo '); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with CDS_KB do + begin + Append; + FieldByName('KBMac').Value:=Trim(ADOTemp.fieldbyname('ZdyName').AsString); + Post; + end; + Next; + end; + end; + end else + begin + with CDS_KB do + begin + Append; + Post; + end; + end; + end; + if Trim(CDS_SLJ.fieldbyname('SLID').AsString)='' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''SLMac'' '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where Type=''SLMac'' order by ZdyNo '); + Open; + end; + if Trim(CDS_Main.fieldbyname('WJGName').AsString)='+ֱ' then + begin + with ADOTemp do + begin + First; + while not Eof do + begin + with CDS_SLJ do + begin + Append; + FieldByName('SLMac').Value:=Trim(ADOTemp.fieldbyname('ZdyName').AsString); + Post; + end; + Next; + end; + end; + end else + begin + with ADOTemp do + begin + First; + with CDS_SLJ do + begin + Append; + FieldByName('SLMac').Value:=Trim(ADOTemp.fieldbyname('ZdyName').AsString); + Post; + end; + end; + end; + end else + begin + with CDS_SLJ do + begin + Append; + Post; + end; + end; + end; +end; +procedure TfrmSCGYSet.ToolButton3Click(Sender: TObject); +begin + + if FInt=1 then + begin + with CDS_KB do + begin + Append; + Post; + end; + end else + if FInt=2 then + begin + with CDS_SLJ do + begin + Append; + Post; + end; + end; + +end; + +procedure TfrmSCGYSet.ToolButton4Click(Sender: TObject); +begin + if FInt=1 then + begin + if Trim(CDS_KB.fieldbyname('KBID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.add('delete WFB_SCGY_KB where KBID='''+Trim(CDS_KB.fieldbyname('KBID').AsString)+''''); + ExecSQL; + end; + end; + CDS_KB.Delete; + end else + if FInt=2 then + begin + if Trim(CDS_SLJ.fieldbyname('SLID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.add('delete WFB_SCGY_Shuli where SLID='''+Trim(CDS_SLJ.fieldbyname('SLID').AsString)+''''); + ExecSQL; + end; + end; + CDS_SLJ.Delete; + end; + +end; + +procedure TfrmSCGYSet.cxGridDBBandedColumn4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KBMac'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_KB.Edit; + Self.CDS_KB.FieldByName('KBMac').Value:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSCGYSet.cxGridDBBandedColumn5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YCL'; + flagname:='ԭ'; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + TBSave.Visible:=False; + if ShowModal=1 then + begin + Self.CDS_KB.Edit; + Self.CDS_KB.FieldByName('YCLName').Value:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + Self.CDS_KB.FieldByName('YCLCode').Value:=Trim(ClientDataSet1.fieldbyname('zdyNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSCGYSet.cxGridDBBandedColumn27PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SLMac'; + flagname:=''; + if ShowModal=1 then + begin + Self.CDS_SLJ.Edit; + Self.CDS_SLJ.FieldByName('SLMac').Value:=Trim(ClientDataSet1.fieldbyname('zdyname').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSCGYSet.TvKBMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; + TvKB.Bands[0].Caption:=''; + TvSLJ.Bands[0].Caption:=''; + TvKB.Bands[0].Styles.Header.TextColor:=clBlue; + TvSLJ.Bands[0].Styles.Header.TextColor:=clBlack; +end; + +procedure TfrmSCGYSet.TvSLJMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; + TvKB.Bands[0].Caption:=''; + TvSLJ.Bands[0].Caption:=''; + TvKB.Bands[0].Styles.Header.TextColor:=clBlack; + TvSLJ.Bands[0].Styles.Header.TextColor:=clBlue; +end; + +procedure TfrmSCGYSet.cxGridDBBandedColumn29PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + UpdateZBS(Sender); +end; + +procedure TfrmSCGYSet.UpdateZBS(Sender: TObject); +var + mvalue,FieldStr:String; + i:Integer; + XS,LXS:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FieldStr:=TvQSJ.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(mvalue)='' then + mvalue:='0'; + with CDS_Sub do + begin + Edit; + FieldByName(FieldStr).Value:=StrToFloat(mvalue); + Post; + end; + XS:=1.00; + for i:=1 to 7 do + begin + FieldStr:=Trim('SYDefFlt'+Trim(Inttostr(i))); + if Trim(CDS_Sub.FieldByName(FieldStr).AsString)='' then + begin + LXS:=0; + end else + begin + LXS:=CDS_Sub.FieldByName(FieldStr).Value; + end; + XS:=XS*LXS*1.00/100; + end; + with CDS_Sub do + begin + Edit; + FieldByName('ZBL').Value:=XS; + Post; + end; +end; + +procedure TfrmSCGYSet.ToolButton5Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex=1 then + begin + if Trim(CDS_Main.FieldByName('Filler').AsString)=Trim(DName) then + begin + Application.MessageBox('ԼĶ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('Update WFB_SCGY Set Chker='''+Trim(DName)+''''); + sql.Add(',ChkDate=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where SYID='''+Trim(CDS_Main.fieldbyname('SYID').AsString)+''''); + ExecSQL; + end; + with CDS_Main do + begin + edit; + FieldByName('ChkStatus').Value:='ͨ'; + FieldByName('Chker').Value:=Trim(DName); + Post; + end; + + end; +end; + +procedure TfrmSCGYSet.ToolButton6Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex>0 then + begin + if cxTabControl1.TabIndex=2 then + begin + if Trim(CDS_Main.FieldByName('Chker').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲͨĶ','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('Update WFB_SCGY Set Chker='''+Trim(DName)+''''); + sql.Add(',ChkDate=getdate(),ChkStatus=''˲ͨ'' '); + sql.Add(' where SYID='''+Trim(CDS_Main.fieldbyname('SYID').AsString)+''''); + ExecSQL; + end; + with CDS_Main do + begin + edit; + FieldByName('ChkStatus').Value:='˲ͨ'; + FieldByName('Chker').Value:=Trim(DName); + Post; + end; + end; +end; + +end. diff --git a/贸易管理/U_SLT.dfm b/贸易管理/U_SLT.dfm new file mode 100644 index 0000000..b4a485e --- /dev/null +++ b/贸易管理/U_SLT.dfm @@ -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 diff --git a/贸易管理/U_SLT.pas b/贸易管理/U_SLT.pas new file mode 100644 index 0000000..7c5056e --- /dev/null +++ b/贸易管理/U_SLT.pas @@ -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. diff --git a/贸易管理/U_SMLB.dfm b/贸易管理/U_SMLB.dfm new file mode 100644 index 0000000..7420aad --- /dev/null +++ b/贸易管理/U_SMLB.dfm @@ -0,0 +1,1423 @@ +object frmSMLB: TfrmSMLB + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #25171#21253#31383#21475 + 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 = 1497 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1497 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 420 + Top = 56 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 44 + Top = 56 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 234 + Top = 56 + Width = 24 + Height = 12 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label1: TLabel + Left = 32 + Top = 14 + Width = 100 + Height = 24 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 1172 + Top = 69 + Width = 50 + Height = 24 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 147 + Top = 82 + Width = 50 + Height = 24 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 373 + Top = 90 + Width = 75 + Height = 24 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 1039 + Top = 58 + Width = 80 + Height = 22 + Caption = #25171#21360#20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 560 + Top = 12 + Width = 26 + Height = 12 + Caption = #20221#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 796 + Top = 56 + Width = 26 + Height = 12 + Caption = #20221#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PHYG: TBtnEditA + Left = 96 + Top = 52 + Width = 100 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 0 + Visible = False + end + object defstr2: TComboBox + Left = 472 + Top = 52 + Width = 101 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Visible = False + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 262 + Top = 52 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 3 + Visible = False + Width = 100 + end + object SmNO: TEdit + Left = 136 + Top = 10 + Width = 165 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 1228 + Top = 81 + Width = 89 + Height = 33 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 4 + Visible = False + OnBtnClick = kcKwBtnClick + end + object baoNo: TEdit + Left = 219 + Top = 78 + Width = 40 + Height = 32 + Hint = 'baoNo' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 5 + OnClick = baoNoClick + OnExit = baoNoExit + OnKeyPress = baoNoKeyPress + end + object BaoID: TEdit + Left = 278 + Top = 78 + Width = 170 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 6 + OnClick = baoNoClick + end + object FileName: TcxButton + Left = 1176 + Top = 72 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25171#21360#21253#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 1220 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object ComboBox1: TComboBox + Left = 1124 + Top = 56 + Width = 49 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 9 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object cxButton3: TcxButton + Left = 928 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #21024#38500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 716 + Top = 56 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton4: TcxButton + Left = 884 + Top = 56 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25764#38144#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = cxButton4Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton5: TcxButton + Left = 836 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + OnClick = cxButton5Click + LookAndFeel.Kind = lfOffice11 + end + object CheckBox1: TCheckBox + Left = 468 + Top = 8 + Width = 81 + Height = 17 + Caption = #21367#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + end + object CheckBox2: TCheckBox + Left = 648 + Top = 56 + Width = 77 + Height = 17 + Caption = #21103#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 15 + end + object ComboBox2: TComboBox + Left = 588 + Top = 8 + Width = 60 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 1 + TabOrder = 16 + Text = '2' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object ComboBox3: TComboBox + Left = 588 + Top = 52 + Width = 60 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 17 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel2: TPanel + Left = 364 + Top = 205 + Width = 1133 + Height = 560 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1131 + Height = 266 + Align = alTop + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = TV2CustomDrawCell + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = V2Column2 + end + item + Kind = skSum + Column = V2Column3 + end + 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 + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 154 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object V2Column5: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Width = 105 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 267 + Width = 1131 + Height = 292 + Align = alClient + TabOrder = 1 + object TV4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSSEL + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + 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 + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 53 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object V4Column1: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V4Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV4 + end + end + end + object Panel3: TPanel + Left = 1332 + Top = -81 + Width = 201 + Height = 210 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 211 + Width = 140 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 4 + Top = 143 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 74 + Top = 143 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 144 + Top = 143 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 73 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 74 + Top = 73 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 144 + Top = 73 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 74 + Top = 2 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 144 + Top = 2 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 144 + Top = 213 + Width = 70 + Height = 68 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 214 + Top = 2 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 214 + Top = 73 + Width = 70 + Height = 208 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 81 + Width = 389 + Height = 684 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel4' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 2 + Top = 57 + Width = 385 + Height = 625 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSTm + 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 = 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Header = DataLink_TradeManage.Default + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Width = 80 + end + object v3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v3Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 385 + Height = 55 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object Label6: TLabel + Left = 32 + Top = 21 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA1: TBtnEditA + Left = 80 + Top = 17 + Width = 153 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + end + end + object MovePanel1: TMovePanel + Left = 414 + Top = 116 + Width = 801 + Height = 353 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 184 + Top = 160 + Width = 198 + Height = 64 + Caption = 'Label2' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Left = 177 + Top = 43 + Width = 412 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 296 + Top = 272 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 552 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 500 + Top = 232 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 836 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 388 + Top = 324 + end + object cxStyleRepository1: TcxStyleRepository + Left = 241 + Top = 142 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 252 + Top = 428 + end + object DataSource1: TDataSource + DataSet = ADOQuery1 + Left = 312 + Top = 464 + end + object ADOQueryTm: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 152 + Top = 192 + end + object DSTm: TDataSource + DataSet = CDSTM + Left = 88 + Top = 216 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 576 + Top = 256 + 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 = 424 + Top = 256 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 232 + end + object CDSTM: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 221 + end + object CDSSEL: TClientDataSet + Aggregates = <> + Params = <> + Left = 957 + Top = 497 + end + object DSSEL: TDataSource + DataSet = CDSSEL + Left = 849 + Top = 501 + end +end diff --git a/贸易管理/U_SMLB.pas b/贸易管理/U_SMLB.pas new file mode 100644 index 0000000..4c3f709 --- /dev/null +++ b/贸易管理/U_SMLB.pas @@ -0,0 +1,1025 @@ +unit U_SMLB; + +interface + +uses + Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, + cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, + MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox; + +type + TfrmSMLB = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSMJID: TClientDataSet; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + V2Column1: TcxGridDBColumn; + kcKw: TBtnEditA; + Label5: TLabel; + MovePanel1: TMovePanel; + Edit2: TEdit; + Button4: TButton; + Label2: TLabel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + baoNo: TEdit; + BaoID: TEdit; + Label3: TLabel; + Label4: TLabel; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + FileName: TcxButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxButton1: TcxButton; + ComboBox1: TComboBox; + Label34: TLabel; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + Panel4: TPanel; + ADOQueryPrint: TADOQuery; + Label6: TLabel; + BtnEditA1: TBtnEditA; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + CDSTM: TClientDataSet; + Panel5: TPanel; + cxButton3: TcxButton; + cxButton2: TcxButton; + CDSSEL: TClientDataSet; + cxGrid1: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DSSEL: TDataSource; + cxButton4: TcxButton; + V2Column5: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V4Column1: TcxGridDBColumn; + V4Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxButton5: TcxButton; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + Label7: TLabel; + Label8: TLabel; + ComboBox2: TComboBox; + ComboBox3: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + + procedure FormCreate(Sender: TObject); + procedure SmNOKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure kcKwBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure baoNoKeyPress(Sender: TObject; var Key: Char); + procedure baoNoClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure baoNoExit(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure cxButton3Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + procedure cxButton5Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSMLB: TfrmSMLB; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelRK; +{$R *.dfm} +Procedure TfrmSMLB.QueryTm(); +var + FBaoID:string; +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + // sql.Add('and A.mjstr2=''δ'' and isnull(A.BaoID,'''')='''' '); + sql.Add(' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + open; + end; + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); + + { IF not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; } +end; + +Procedure TfrmSMLB.QueryRk(); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),'); + sql.Add('JY_Qty=(select sum(MJLen) from WFB_MJJY X where X.APID=A.APID), '); + sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType='''') '); + sql.Add('from JYOrder_sub_anPai A '); + SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + sql.Add(')'); + open; + end; +end; + +function TfrmSMLB.SaveRK():Boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; + MhcTime:TdateTime; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + {with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + mhcTime:=SGetServerDateTime(ADOQueryTmp); + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=0; + FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + //FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + //FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmSMLB.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryMain,CDSSEL); + SInitCDSData20(ADOQueryMain,CDSSEL); +end; + +procedure TfrmSMLB.InitMJID(); +begin + MovePanel1.Visible:=false; + + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + if not IsEmpty then + begin + {IF trim(Fieldbyname('MJstr2').AsString)='' then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:=''; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin} + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɨɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value:=trim(ADOQueryMain.Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value:=trim(ADOQueryMain.Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + // CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + // CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + // end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end; + end; + IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɨɹ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + CDSMJID.delete; + end; + If CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + // application.MessageBox('AAAA','AAAAAAAA',0); + CDSTM.Delete; + tv2.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + end; + +end; + +procedure TfrmSMLB.FormDestroy(Sender: TObject); +begin + frmSMLB:=nil; +end; + +procedure TfrmSMLB.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); + writeCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmSMLB.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmSMLB.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; + //readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + readCxGrid(self.Caption+Tv3.Name,Tv3,'Ʒֿ'); + readCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); +end; + +procedure TfrmSMLB.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + + { if trim(BaoNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻Ϊ','ʾ'); + exit; + end; } + if trim(smno.Text)='' then exit; + IF CDSMJID.Locate('MJID',trim(smno.Text),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ظɨ裡'; + smno.Text:=''; + smno.SetFocus; + exit; + end; + If not CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNO as orderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + IF isempty then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ŵ'; + end + else + begin + If not CDSTM.Locate('orderNoM',trim(fieldbyname('OrderNoM').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ڵǰ'; + end + else + begin + IF Fieldbyname('MJstr2').AsString<>'δ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=fieldbyname('Mjstr2').AsString; + end + else + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ѵ'; + end; + end; + end; + end; + smno.Text:=''; + smno.SetFocus; + exit; + end + else + begin + initMJID(); + end; + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmSMLB.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); +end; + +procedure TfrmSMLB.TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin + i:=tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]<>'ɹ') then + ACanvas.Brush.Color:=clred; +end; + +procedure TfrmSMLB.kcKwBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKWFlag'; + flagname:='λϢ'; + V1Name.Caption:='λ'; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSMLB.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +procedure TfrmSMLB.baoNoKeyPress(Sender: TObject; var Key: Char); +var FBaoID: string; +begin + +end; + +procedure TfrmSMLB.baoNoClick(Sender: TObject); +var + i:Integer; +begin +// Panel3.Visible:=True; + { with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmSMLB.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmSMLB.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; +procedure TfrmSMLB.SpeedButton49Click(Sender: TObject); +var + FBaoID:string; +begin + IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + Panel3.Visible:=False; +end; + +procedure TfrmSMLB.FileNameClick(Sender: TObject); +var fPrintFile: string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + FBaoID:string; + i:Integer; +begin + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; + cxButton2.Click; +{ if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; } + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add('where A.BaoID='''+Trim(BaoID.Text)+''''); + SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.OrdPerson1'); + Open; + end; + + if ADOQueryPrint.RecordCount>1 then + begin + Application.MessageBox('´!','ʾ',0); + Exit; + end; + if ADOQueryPrint.RecordCount<1 then + begin + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡','ʾ',0); + Exit; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=trim(BaoID.Text); + 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; + + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + //RM2.ShowReport; + RM2.printReport; + baoNo.Text:=inttostr(strtointdef(trim(baoNo.Text),0)+1); + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + CDSsel.Last; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + CDSsel.Append; + for i:=0 to FieldCount-1 do + begin + CDSsel.fields[i].value:=Fields[i].Value ; + end; + CDSsel.Post; + next; + end; + EnableControls; + end; + CDSMJID.EmptyDataSet; + end else + begin + // Order_Main.EnableControls; + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Exit; + end; +end; + +procedure TfrmSMLB.cxButton1Click(Sender: TObject); +begin + TBClose.Click; +end; + +procedure TfrmSMLB.baoNoExit(Sender: TObject); +var + FBaoID:string; +begin + IF baoNo.Text<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end + else + BaoID.Text:=''; +end; + +procedure TfrmSMLB.BtnEditA1BtnClick(Sender: TObject); +begin + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + end; + end; + QueryTm(); +end; + +procedure TfrmSMLB.cxButton3Click(Sender: TObject); +var + i:integer; +begin + IF CDSMJID.IsEmpty then exit; + IF CDSMJID.fieldByName('Sflag').AsString='2' then + begin + application.MessageBox('Ѵɾ','ʾϢ',0); + exit; + end + else + begin + with CDSMJID do + begin + CDSTM.Last; + + CDSTM.Append; + for i:=0 to FieldCount-1 do + begin + CDSTM.fields[i].value:=Fields[i].Value ; + end; + CDSTM.Post; + end; + CDSMJID.Delete; + end; +end; + +procedure TfrmSMLB.cxButton2Click(Sender: TObject); +begin + IF CDSMJID.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldByName('Sflag').AsString :='2'; + fieldbyname('BaoNo').Value:=trim(BaoNo.Text); + fieldbyname('BaoID').Value:=trim(BaoID.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + // application.MessageBox('޸ijɹ','ʾϢ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('޸ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmSMLB.cxButton4Click(Sender: TObject); +begin + if CDSSEL.IsEmpty then Exit; + if CDSSEL.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + CDSSEL.DisableControls; + // ADOQueryCmd.Connection.BeginTrans; + with CDSSEL do + begin + First; + while FieldByName('SSel').AsBoolean do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); + sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + delete; + end; + end; + // ADOQueryCmd.Connection.CommitTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳɹ','ʾϢ'); + QueryTm(); + exit; + except + // ADOQueryCmd.Connection.RollbackTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmSMLB.cxButton5Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + i:integer; +begin + IF (not CheckBox1.Checked) and (not CheckBox2.Checked)then + begin + application.MessageBox('ûѡҪӡıǩ','ʾ',0); + exit; + end; + CDSMJID.DisableControls; + with CDSMJID do + begin + First; + while not Eof do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName,B.NlbName '); + sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + 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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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 + CDSMJID.EnableControls; + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + IF CheckBox1.Checked then + begin + fPrintFile:=''; + if Trim(ADOQueryPrint.fieldbyname('LbName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LbName').AsString)+'.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + Rm2.DefaultCopies:=strtointdef(trim(ComboBox2.Text),1); + // RM2.ShowReport; + RM2.PrintReport; + end + else + begin + CDSMJID.EnableControls; + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + Exit; + end; + end; + IF CheckBox2.Checked then + begin + fPrintFile:=''; + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + Rm2.DefaultCopies:=strtointdef(trim(ComboBox3.Text),1); + //RM2.ShowReport; + RM2.PrintReport; + end + else + begin + CDSMJID.EnableControls; + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + Exit; + end; + end; + + CDSsel.Last; + CDSsel.Append; + for i:=0 to CDSMJID.FieldCount-1 do + begin + CDSsel.fields[i].value:=CDSMJID.Fields[i].Value ; + end; + CDSsel.Post; + CDSMJID.Next; + end; + end; + CDSMJID.EnableControls; + CDSMJID.EmptyDataSet; +end; + +end. diff --git a/贸易管理/U_SetBanZu.dfm b/贸易管理/U_SetBanZu.dfm new file mode 100644 index 0000000..195ed6b --- /dev/null +++ b/贸易管理/U_SetBanZu.dfm @@ -0,0 +1,221 @@ +object frmSetBanZu: TfrmSetBanZu + Left = 101 + Top = 118 + Width = 892 + Height = 616 + Caption = #29677#32452#35774#32622 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 497 + Height = 579 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_RCInspection.FonePurple + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.FullFocusRect = True + Properties.GlyphCount = 10 + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column1: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 139 + end + object v1Column2: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'UserName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 136 + end + object v1Column3: TcxGridDBColumn + Caption = #29677#32452 + DataBinding.FieldName = 'BanZu' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 135 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Button3: TButton + Left = 511 + Top = 53 + Width = 78 + Height = 40 + Caption = #29677#32452#23450#20041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button3Click + end + object Button4: TButton + Left = 592 + Top = 53 + Width = 78 + Height = 40 + Caption = #29677#32452#35774#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Button5: TButton + Left = 673 + Top = 53 + Width = 78 + Height = 40 + Caption = #28165#31354#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnClick = Button5Click + end + object Button6: TButton + Left = 754 + Top = 53 + Width = 78 + Height = 40 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnClick = Button6Click + end + object Button1: TButton + Left = 689 + Top = 128 + Width = 70 + Height = 39 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = Button1Click + end + object Button2: TButton + Left = 762 + Top = 128 + Width = 70 + Height = 39 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = Button2Click + end + object BanZu: TComboBox + Left = 511 + Top = 127 + Width = 177 + Height = 41 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ItemHeight = 33 + ParentFont = False + TabOrder = 7 + Visible = False + end + object cxStyleRepository1: TcxStyleRepository + Left = 832 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 368 + Top = 216 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 296 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 368 + Top = 296 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 368 + Top = 256 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 264 + Top = 312 + end +end diff --git a/贸易管理/U_SetBanZu.pas b/贸易管理/U_SetBanZu.pas new file mode 100644 index 0000000..1c97fd4 --- /dev/null +++ b/贸易管理/U_SetBanZu.pas @@ -0,0 +1,265 @@ +unit U_SetBanZu; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, ComCtrls, ToolWin, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, + ExtCtrls, DBClient; + +type + TfrmSetBanZu = class(TForm) + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + CDS_Main: TClientDataSet; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Button6: TButton; + Button1: TButton; + Button2: TButton; + BanZu: TComboBox; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmSetBanZu: TfrmSetBanZu; + +implementation +Uses +U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmSetBanZu.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmSetBanZu.FormDestroy(Sender: TObject); +begin + frmSetBanZu:=nil; +end; + +procedure TfrmSetBanZu.FormShow(Sender: TObject); +begin + + //DataLink_WFBProducttion.ADOLink.Connected:=True; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select * from SY_User where UserId not in(''ADMIN'',''CS01'')'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmSetBanZu.ToolButton2Click(Sender: TObject); +var + fsj,FUserId:String; +begin + {FUserId:=Trim(CDS_Main.fieldbyname('UserId').AsString); + if CDS_Main.Locate('SSel',True,[])=False then + begin + CDS_Main.Locate('UserId',Trim(FUserId),[]); + Application.MessageBox('ûѡԱ','ʾ',0); + exit; + end; + CDS_Main.Locate('UserId',Trim(FUserId),[]); + Panel1.Visible:=True; + fsj:='select Name=ZdyName from KH_Zdy where Type=''WFBBZ'' '; + + SInitComBoxBySql(ADOQueryTemp,BanZu,False,fsj); } + +end; + +procedure TfrmSetBanZu.Button2Click(Sender: TObject); +begin + BanZu.Visible:=False; + Button1.Visible:=False; + Button2.Visible:=False; +end; + +procedure TfrmSetBanZu.ToolButton12Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmSetBanZu.Button1Click(Sender: TObject); +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡԱ','ʾ',0); + exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate SY_User Set BanZu='''+Trim(BanZu.Text)+''''); + sql.Add(' where UserId='''+Trim(CDS_Main.fieldbyname('UserId').AsString)+''''); + ExecSQL; + end; + CDS_Main.Edit; + FieldByName('BanZu').Value:=Trim(BanZu.Text); + //CDS_Main.Post; + end; + Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + BanZu.Visible:=False; + Button1.Visible:=False; + Button2.Visible:=False; + Application.MessageBox('óɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + + Application.MessageBox('쳣','ʾ',0); + end; + +end; + +procedure TfrmSetBanZu.ToolButton6Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(CDS_Main.fieldbyname('UserId').AsString); + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + CDS_Main.Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('UserId',fsj,[]); +end; + +procedure TfrmSetBanZu.Button3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBBZ'; + flagname:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSetBanZu.Button4Click(Sender: TObject); +var + fsj,FUserId:String; +begin + FUserId:=Trim(CDS_Main.fieldbyname('UserId').AsString); + if CDS_Main.Locate('SSel',True,[])=False then + begin + CDS_Main.Locate('UserId',Trim(FUserId),[]); + Application.MessageBox('ûѡԱ','ʾ',0); + exit; + end; + CDS_Main.Locate('UserId',Trim(FUserId),[]); + BanZu.Visible:=True; + Button1.Visible:=True; + Button2.Visible:=True; + fsj:='select Name=ZdyName from KH_Zdy where Type=''WFBBZ'' '; + + SInitComBoxBySql(ADOQueryTemp,BanZu,False,fsj); + +end; + +procedure TfrmSetBanZu.Button5Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(CDS_Main.fieldbyname('UserId').AsString); + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + CDS_Main.Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('UserId',fsj,[]); +end; + +procedure TfrmSetBanZu.Button6Click(Sender: TObject); +begin + Close; +end; + +end. diff --git a/贸易管理/U_StopWorkInPut.dfm b/贸易管理/U_StopWorkInPut.dfm new file mode 100644 index 0000000..3bb2703 --- /dev/null +++ b/贸易管理/U_StopWorkInPut.dfm @@ -0,0 +1,282 @@ +object frmStopWorkInPut: TfrmStopWorkInPut + Left = 67 + Top = 90 + Width = 1169 + Height = 598 + Caption = #20572#26426#35760#24405#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -27 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 27 + object Panel1: TPanel + Left = 777 + Top = 0 + Width = 384 + Height = 561 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object Label5: TLabel + Left = 299 + Top = 39 + Width = 37 + Height = 140 + Caption = #20572#13#10#26426#13#10#21407#13#10#22240 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object SWReason: TComboBox + Tag = 1 + Left = 16 + Top = 3 + Width = 257 + Height = 24 + AutoCloseUp = True + Style = csDropDownList + DropDownCount = 45 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + object Button1: TButton + Left = 51 + Top = 70 + Width = 90 + Height = 50 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 163 + Top = 70 + Width = 90 + Height = 50 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button2Click + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 633 + Height = 561 + Align = alLeft + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + object v1Column1: TcxGridDBColumn + Caption = #29677#32452 + DataBinding.FieldName = 'SWPersonBZ' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v1Column2: TcxGridDBColumn + Caption = #20572#26426#26102#38388 + DataBinding.FieldName = 'SWBegtime' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle4 + Width = 151 + end + object v1Column3: TcxGridDBColumn + Caption = #24320#26426#26102#38388 + DataBinding.FieldName = 'SWEndtime' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle3 + Width = 122 + end + object v1Column4: TcxGridDBColumn + Caption = #20572#26426#21407#22240 + DataBinding.FieldName = 'SWReason' + HeaderAlignmentHorz = taCenter + Width = 245 + end + object v1Column5: TcxGridDBColumn + Caption = #25805#20316#20154 + DataBinding.FieldName = 'SWPerson' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv1 + end + end + object Button3: TButton + Left = 667 + Top = 473 + Width = 153 + Height = 65 + Caption = #21407#22240#23450#20041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = Button3Click + end + object Button4: TButton + Left = 667 + Top = 96 + Width = 153 + Height = 65 + Caption = #20572#26426 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 667 + Top = 210 + Width = 153 + Height = 65 + Caption = #24320#26426 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 667 + Top = 325 + Width = 153 + Height = 65 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 424 + Top = 192 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 520 + Top = 168 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 248 + end + object ADOTemp: TADOQuery + Connection = DataLink_RCInspection.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 173 + end + object ADOCmd: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 496 + Top = 125 + end + object ADOQuery1: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 496 + Top = 141 + end + object cxStyleRepository1: TcxStyleRepository + Left = 472 + Top = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + end + object cxStyle3: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clGreen + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle4: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_RCInspection.ADOLink + Parameters = <> + Left = 488 + Top = 221 + end +end diff --git a/贸易管理/U_StopWorkInPut.pas b/贸易管理/U_StopWorkInPut.pas new file mode 100644 index 0000000..68d12f7 --- /dev/null +++ b/贸易管理/U_StopWorkInPut.pas @@ -0,0 +1,498 @@ +unit U_StopWorkInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxTimeEdit, + cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridBandedTableView, + cxGridDBBandedTableView, cxDropDownEdit; + +type + TfrmStopWorkInPut = class(TForm) + Panel1: TPanel; + Label5: TLabel; + cxGrid5: TcxGrid; + cxGridLevel4: TcxGridLevel; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle3: TcxStyle; + cxStyle4: TcxStyle; + SWReason: TComboBox; + ADOQueryMain: TADOQuery; + Button1: TButton; + Button2: TButton; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Button6: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBDelClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + private + { Private declarations } + procedure ComboxData(v1Column310:TcxGridDBBandedColumn;ii:Integer); + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmStopWorkInPut: TfrmStopWorkInPut; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmStopWorkInPut.FormDestroy(Sender: TObject); +begin + frmStopWorkInPut:=nil; +end; + +procedure TfrmStopWorkInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmStopWorkInPut.FormShow(Sender: TObject); + +begin + ReadCxGrid('ͣ¼',Tv1,'޷IJ'); + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + InitGrid(); + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; +procedure TfrmStopWorkInPut.InitGrid(); +var + sql:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select Top 20* from WFB_StopWorkList '); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' where SWType='''+Trim(SCXFlag)+''''); + end; + sql.Add('Order by SWBegTime desc'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmStopWorkInPut.ComboxData(v1Column310:TcxGridDBBandedColumn;ii:Integer); +var + i:Integer; + j:string; +begin + (v1Column310.Properties as TcxComboBoxProperties).Items.Clear; + for i:=0 to ii do + begin + if i<10 then + j:='0'+trim(IntToStr(i)) + else + j:=Trim(IntToStr(i)); + (v1Column310.Properties as TcxComboBoxProperties).Items.Add(Trim(j)); + end; +end; + +procedure TfrmStopWorkInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SWReason'; + flagname:='ͣԭ'; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('SWReason').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmStopWorkInPut.TBDelClick(Sender: TObject); +begin + if Trim(CDS_Main.fieldbyname('SWID').AsString)<>'' then + begin + if Trim(DCode)<>'ADMIN' then + begin + if Trim(DName)<>Trim(CDS_Main.fieldbyname('SWPerson').AsString) then + begin + Application.MessageBox('ɾ˼¼','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ¼','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_StopWorkList where SWID='''+Trim(CDS_Main.fieldbyname('SWID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmStopWorkInPut.ToolButton5Click(Sender: TObject); +var + sql:String; +begin + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_StopWorkList where SWEndtime is null'); + Open; + end; + if ADOCmd.IsEmpty=False then + begin + Application.MessageBox('ϴͣδп','ʾ',0); + Exit; + end; + Panel1.Visible:=True; + sql:='select distinct(ZdyName) Name from KH_Zdy where Type=''SWReason'' '; + SInitComBoxBySql(ADOTemp,SWReason,False,sql); + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmStopWorkInPut.Button1Click(Sender: TObject); +var + maxno,FBZ:String; +begin + if Trim(SWReason.Text)='' then + begin + Application.MessageBox('ͣԭΪգ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִͣ','ʾ',32+4)<>IDYES then Exit; + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FBZ:=Trim(ADOTemp.fieldbyname('BanZu').AsString); + try + ADOCmd.Connection.BeginTrans; + if GetLSNo(ADOCmd,maxno,'SW','WFB_StopWorkList',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͣʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_StopWorkList where 1<>1 '); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('SWID').Value:=Trim(maxno); + FieldByName('SWBegtime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('SWReason').Value:=Trim(SWReason.Text); + FieldByName('SWPerson').Value:=Trim(DName); + FieldByName('SWPersonBZ').Value:=Trim(FBZ); + FieldByName('SWType').Value:=Trim(SCXFlag); + Post; + end; + with CDS_Main do + begin + Append; + FieldByName('SWID').Value:=Trim(maxno); + FieldByName('SWBegtime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('SWReason').Value:=Trim(SWReason.Text); + FieldByName('SWPerson').Value:=Trim(DName); + FieldByName('SWPersonBZ').Value:=Trim(FBZ); + Post; + end; + ADOCmd.Connection.CommitTrans; + Panel1.Visible:=False; + //Application.MessageBox('ͣɹ','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + DataLink_WFBProducttion.ADOLink.Connected:=False; + Application.MessageBox('ͣ쳣','ʾ',0); + Exit; + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmStopWorkInPut.ToolButton12Click(Sender: TObject); +begin + Close; + WriteCxGrid('ͣ¼',Tv1,'޷IJ'); +end; + +procedure TfrmStopWorkInPut.Button2Click(Sender: TObject); +begin + Panel1.Visible:=False; +end; + +procedure TfrmStopWorkInPut.ToolButton7Click(Sender: TObject); +var + FBZ,MaxNo:String; +begin + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FBZ:=Trim(ADOTemp.fieldbyname('BanZu').AsString); + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_StopWorkList where SWEndtime is null'); + Open; + end; + if ADOTemp.IsEmpty=True then + begin + Application.MessageBox('δǼͣ¼','ʾ',0); + exit; + end; + if Application.MessageBox('ȷҪִп','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + SQL.Clear; + SQL.Add('select Top 1* from WFB_StopWorkList where SWEndtime is null order by SWBegtime desc'); + Open; + end; + MaxNo:=Trim(ADOTemp.fieldbyname('SWID').AsString); + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_StopWorkList where SWID='''+Trim(ADOTemp.fieldbyname('SWID').AsString)+''''); + Open; + end; + + with ADOCmd do + begin + Edit; + FieldByName('SWEPerson').Value:=Trim(DName); + FieldByName('SWPersonBZ').Value:=Trim(FBZ); + FieldByName('SWEndtime').Value:=SGetServerDateTime(ADOTemp); + Post; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + CDS_Main.Locate('SWID',Trim(MaxNo),[]); + with CDS_Main do + begin + Edit; + FieldByName('SWEndtime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('SWEPerson').Value:=Trim(DName); + //FieldByName('SWEPersonBZ').Value:=Trim(FBZ); + Post; + end; + except + ADOCmd.Connection.RollbackTrans; + DataLink_WFBProducttion.ADOLink.Connected:=False; + Application.MessageBox('쳣','ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmStopWorkInPut.Button3Click(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SWReason'; + flagname:='ͣԭ'; + if ShowModal=1 then + begin + end; + end; + finally + frmZDYHelp.Free; + end;} +end; + +procedure TfrmStopWorkInPut.Button4Click(Sender: TObject); +var + sql:String; +begin + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_StopWorkList '); + sql.Add('where SWEndtime is null'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' and SWType='''+Trim(SCXFlag)+''''); + end; + + Open; + end; + if ADOCmd.IsEmpty=False then + begin + Application.MessageBox('ϴͣδп','ʾ',0); + Exit; + end; + Panel1.Visible:=True; + sql:='select ZdyName Name from KH_Zdy where Type=''SWReason'' order by orderno '; + SInitComBoxBySql(ADOTemp,SWReason,False,sql); + SWReason.SetFocus; + SWReason.DroppedDown:=True; + //SWReason. + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmStopWorkInPut.Button5Click(Sender: TObject); +var + FBZ,MaxNo:String; +begin + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FBZ:=Trim(ADOTemp.fieldbyname('BanZu').AsString); + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_StopWorkList'); + sql.Add(' where SWEndtime is null'); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' and SWType='''+Trim(SCXFlag)+''''); + end; + Open; + end; + if ADOTemp.IsEmpty=True then + begin + Application.MessageBox('δǼͣ¼','ʾ',0); + exit; + end; + if Application.MessageBox('ȷҪִп','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + SQL.Clear; + SQL.Add('select Top 1* from WFB_StopWorkList where SWEndtime is null '); + if Trim(SCXFlag)<>'' then + begin + sql.Add(' and SWType='''+Trim(SCXFlag)+''''); + end; + sql.Add(' order by SWBegtime desc'); + Open; + end; + MaxNo:=Trim(ADOTemp.fieldbyname('SWID').AsString); + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_StopWorkList where SWID='''+Trim(ADOTemp.fieldbyname('SWID').AsString)+''''); + Open; + end; + + with ADOCmd do + begin + Edit; + FieldByName('SWEPerson').Value:=Trim(DName); + FieldByName('SWPersonBZ').Value:=Trim(FBZ); + FieldByName('SWEndtime').Value:=SGetServerDateTime(ADOTemp); + Post; + end; + ADOCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + CDS_Main.Locate('SWID',Trim(MaxNo),[]); + with CDS_Main do + begin + Edit; + FieldByName('SWEndtime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('SWEPerson').Value:=Trim(DName); + //FieldByName('SWEPersonBZ').Value:=Trim(FBZ); + Post; + end; + except + ADOCmd.Connection.RollbackTrans; + DataLink_WFBProducttion.ADOLink.Connected:=False; + Application.MessageBox('쳣','ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmStopWorkInPut.Button6Click(Sender: TObject); +begin + Close; + WriteCxGrid('ͣ¼',Tv1,'޷IJ'); +end; + +end. diff --git a/贸易管理/U_StopWorkList.dfm b/贸易管理/U_StopWorkList.dfm new file mode 100644 index 0000000..5f5b802 --- /dev/null +++ b/贸易管理/U_StopWorkList.dfm @@ -0,0 +1,439 @@ +object frmStopWorkList: TfrmStopWorkList + Left = 90 + Top = 121 + Width = 1069 + Height = 598 + Caption = #20572#26426#35760#24405#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 = 1061 + AutoSize = True + 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_WFBProducttion.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + Visible = False + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 315 + Top = 0 + Caption = #20572#26426#21407#22240 + ImageIndex = 56 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1061 + Height = 76 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 25 + Width = 24 + Height = 12 + Caption = #26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 450 + Top = 25 + Width = 36 + Height = 12 + Caption = #25805#20316#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 240 + Top = 49 + Width = 48 + Height = 12 + Caption = #20572#26426#21407#22240 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 240 + Top = 25 + Width = 48 + Height = 12 + Caption = #29677' '#32452 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 50 + Top = 21 + Width = 168 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 50 + Top = 45 + Width = 169 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object SWPersonBZ: TComboBox + Tag = 1 + Left = 291 + Top = 21 + Width = 97 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentFont = False + TabOrder = 2 + OnChange = SWPersonBZChange + end + object SWPerson: TComboBox + Tag = 1 + Left = 491 + Top = 21 + Width = 97 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentFont = False + TabOrder = 3 + OnChange = SWPersonBZChange + end + object SWReason: TComboBox + Tag = 1 + Left = 291 + Top = 45 + Width = 297 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ParentFont = False + TabOrder = 4 + OnChange = SWPersonBZChange + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 104 + Width = 1017 + Height = 393 + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_WFBProducttion.SHuangSe + Styles.IncSearch = DataLink_WFBProducttion.SHuangSe + Styles.Selection = DataLink_WFBProducttion.SHuangSe + Styles.Header = DataLink_WFBProducttion.handBlack + Styles.BandHeader = DataLink_WFBProducttion.FoneRed + Bands = < + item + Width = 314 + end + item + Caption = #24320#22987#26102#38388 + Styles.Header = cxStyle3 + Width = 157 + end + item + Caption = #32467#26463#26102#38388 + Styles.Header = cxStyle4 + Width = 168 + end + item + Width = 363 + end> + object v1Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'SWDate10' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 216 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #29677#32452 + DataBinding.FieldName = 'SWPersonBZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 98 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Tag = 2 + DataBinding.FieldName = 'SWBegTime' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Moving = False + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + IsCaptionAssigned = True + end + object v1Column5: TcxGridDBBandedColumn + Tag = 2 + DataBinding.FieldName = 'SWEndTime' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Moving = False + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + IsCaptionAssigned = True + end + object v1Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #20572#26426#21407#22240 + DataBinding.FieldName = 'SWReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 242 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #25805#20316#20154 + DataBinding.FieldName = 'SWPerson' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 121 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 552 + Top = 224 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 432 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 248 + end + object ADOTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 584 + Top = 221 + end + object ADOCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 608 + Top = 221 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 640 + Top = 221 + end + object cxStyleRepository1: TcxStyleRepository + Left = 920 + Top = 64 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -27 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + end + object cxStyle3: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clGreen + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle4: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 640 + Top = 293 + end +end diff --git a/贸易管理/U_StopWorkList.pas b/贸易管理/U_StopWorkList.pas new file mode 100644 index 0000000..84e0209 --- /dev/null +++ b/贸易管理/U_StopWorkList.pas @@ -0,0 +1,291 @@ +unit U_StopWorkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxTimeEdit, + cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, ADODB, DBClient, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridBandedTableView, + cxGridDBBandedTableView, cxDropDownEdit; + +type + TfrmStopWorkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid5: TcxGrid; + cxGridLevel4: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label4: TLabel; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column7: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle3: TcxStyle; + cxStyle4: TcxStyle; + SWPersonBZ: TComboBox; + SWPerson: TComboBox; + SWReason: TComboBox; + ADOQueryMain: TADOQuery; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure SWPersonBZChange(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + { Private declarations } + procedure ComboxData(v1Column310:TcxGridDBBandedColumn;ii:Integer); + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmStopWorkList: TfrmStopWorkList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmStopWorkList.FormDestroy(Sender: TObject); +begin + frmStopWorkList:=nil; +end; + +procedure TfrmStopWorkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmStopWorkList.FormCreate(Sender: TObject); +begin + cxGrid5.Align:=alClient; + +end; + +procedure TfrmStopWorkList.FormShow(Sender: TObject); + +begin + EndDate.DateTime:=SGetServerDate(ADOQuery1); + BegDate.DateTime:=EndDate.DateTime-7; + ReadCxBandedGrid('ͣ¼',Tv1,'޷IJ'); + InitGrid(); + +end; +procedure TfrmStopWorkList.InitGrid(); +var + sql:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select SWDate10=(Convert(varchar(10),A.SWBegTime,120)), A.* from WFB_StopWorkList A where SWBegTime>=:begdate and SWBegTime<:enddate'); + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + sql:='select distinct(SWPersonBZ) Name from WFB_StopWorkList where SWBegTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +'and SWBegTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + SInitComBoxBySql(ADOTemp,SWPersonBZ,False,sql); + sql:='select distinct(SWPerson) Name from WFB_StopWorkList where SWBegTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +'and SWBegTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + SInitComBoxBySql(ADOTemp,SWPerson,False,sql); + sql:='select distinct(SWReason) Name from WFB_StopWorkList where SWBegTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +'and SWBegTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + SInitComBoxBySql(ADOTemp,SWReason,False,sql); +end; +procedure TfrmStopWorkList.ComboxData(v1Column310:TcxGridDBBandedColumn;ii:Integer); +var + i:Integer; + j:string; +begin + (v1Column310.Properties as TcxComboBoxProperties).Items.Clear; + for i:=0 to ii do + begin + if i<10 then + j:='0'+trim(IntToStr(i)) + else + j:=Trim(IntToStr(i)); + (v1Column310.Properties as TcxComboBoxProperties).Items.Add(Trim(j)); + end; +end; + +procedure TfrmStopWorkList.ToolButton1Click(Sender: TObject); +begin + with CDS_Main do + begin + Append; + FieldByName('SWDate').Value:=SGetServerDate(ADOTemp); + FieldByName('SWPerson').Value:=Trim(DName); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + FieldByName('SWPersonBZ').Value:=Trim(ADOQuery1.fieldbyname('UDept').AsString); + Post; + end; +end; + +procedure TfrmStopWorkList.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SWReason'; + flagname:='ͣԭ'; + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + Self.CDS_Main.FieldByName('SWReason').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmStopWorkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxBandedGrid('ͣ¼',Tv1,'޷IJ'); +end; + +procedure TfrmStopWorkList.ToolButton2Click(Sender: TObject); +var + maxno:string; +begin + BegDate.SetFocus; + if CDS_Main.IsEmpty then Exit; + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_StopWorkList Set SWReason='''+Trim(CDS_Main.fieldbyname('SWReason').AsString)+''''); + sql.Add(' where SWID='''+Trim(CDS_Main.fieldbyname('SWID').AsString)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmStopWorkList.TBDelClick(Sender: TObject); +begin + if Trim(CDS_Main.fieldbyname('SWID').AsString)<>'' then + begin + if Trim(DCode)<>'ADMIN' then + begin + if Trim(DName)<>Trim(CDS_Main.fieldbyname('SWPerson').AsString) then + begin + Application.MessageBox('ɾ˼¼','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ¼','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_StopWorkList where SWID='''+Trim(CDS_Main.fieldbyname('SWID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmStopWorkList.SWPersonBZChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmStopWorkList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmStopWorkList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('ͣ¼',cxGrid5); +end; + +procedure TfrmStopWorkList.ToolButton4Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SWReason'; + flagname:='ͣԭ'; + if ShowModal=1 then + begin + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ZJManage.dfm b/贸易管理/U_ZJManage.dfm new file mode 100644 index 0000000..8923582 --- /dev/null +++ b/贸易管理/U_ZJManage.dfm @@ -0,0 +1,2093 @@ +object frmZJManage: TfrmZJManage + Left = 5 + Top = 33 + Width = 1238 + Height = 760 + Caption = 'frmZJManage' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 22 + Top = 25 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 22 + Top = 93 + Width = 62 + Height = 29 + Caption = #24133#23485 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 22 + Top = 157 + Width = 62 + Height = 29 + Caption = #38271#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 22 + Top = 222 + Width = 62 + Height = 29 + Caption = #37325#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 362 + Width = 62 + Height = 29 + Caption = #30133#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 22 + Top = 281 + Width = 62 + Height = 29 + Caption = #36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 88 + Top = 21 + Width = 297 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Text = 'Edit1' + end + object ScrollBox1: TScrollBox + Left = 88 + Top = 339 + Width = 501 + Height = 342 + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 3 + Width = 80 + Height = 80 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton14: TSpeedButton + Left = 85 + Top = 3 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton15: TSpeedButton + Left = 167 + Top = 3 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton16: TSpeedButton + Left = 249 + Top = 3 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton17: TSpeedButton + Left = 331 + Top = 3 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton18: TSpeedButton + Left = 413 + Top = 3 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton19: TSpeedButton + Left = 3 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton20: TSpeedButton + Left = 85 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton21: TSpeedButton + Left = 167 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton22: TSpeedButton + Left = 249 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton23: TSpeedButton + Left = 331 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton24: TSpeedButton + Left = 413 + Top = 85 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton25: TSpeedButton + Left = 3 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton26: TSpeedButton + Left = 85 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton27: TSpeedButton + Left = 167 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton28: TSpeedButton + Left = 249 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton29: TSpeedButton + Left = 331 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton30: TSpeedButton + Left = 413 + Top = 168 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton31: TSpeedButton + Left = 3 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton32: TSpeedButton + Left = 85 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton33: TSpeedButton + Left = 167 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton34: TSpeedButton + Left = 249 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton35: TSpeedButton + Left = 331 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object SpeedButton36: TSpeedButton + Left = 413 + Top = 251 + Width = 80 + Height = 80 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + end + object Button1: TButton + Left = 424 + Top = 16 + Width = 145 + Height = 57 + Caption = #30133#28857#23450#20041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object Button2: TButton + Left = 584 + Top = 16 + Width = 145 + Height = 57 + Caption = #20998#20999#35774#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button2Click + end + object Button3: TButton + Left = 744 + Top = 16 + Width = 145 + Height = 57 + Caption = #25171' '#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object MovePanel1: TMovePanel + Left = 546 + Top = 382 + Width = 439 + Height = 299 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 50 + Top = 47 + Width = 120 + Height = 29 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 237 + Top = 116 + Width = 30 + Height = 29 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 353 + Top = 55 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 353 + Top = 167 + Width = 16 + Height = 29 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 51 + Top = 116 + Width = 112 + Height = 29 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit50: TEdit + Left = 171 + Top = 47 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Button4: TButton + Left = 73 + Top = 223 + Width = 75 + Height = 49 + Caption = #30830#23450 + TabOrder = 1 + end + object Button5: TButton + Left = 299 + Top = 223 + Width = 75 + Height = 49 + Caption = #21462#28040 + TabOrder = 2 + end + object Edit51: TEdit + Left = 171 + Top = 157 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object cxGrid2: TcxGrid + Left = 552 + Top = 334 + Width = 337 + Height = 337 + TabOrder = 6 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 83 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 61 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 64 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 984 + Top = 344 + Width = 201 + Height = 333 + TabOrder = 7 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24050#32463#30331#35760#30340#23567#21367 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 186 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 589 + Top = 337 + Width = 625 + Height = 172 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 8 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 88 + Top = 3 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 172 + Top = 3 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 256 + Top = 3 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 340 + Top = 3 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 4 + Top = 87 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 88 + Top = 87 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 172 + Top = 87 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 256 + Top = 87 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 340 + Top = 87 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 424 + Top = 87 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 424 + Top = 3 + Width = 80 + Height = 80 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 517 + Top = 37 + Width = 91 + Height = 82 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Button6: TButton + Left = 904 + Top = 16 + Width = 145 + Height = 57 + Caption = #37325#26032#25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + end + object Panel6: TPanel + Left = 88 + Top = 78 + Width = 1122 + Height = 258 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 10 + object Panel1: TPanel + Left = 8 + Top = 7 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Edit2: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + end + object Edit3: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + end + object Edit4: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + end + object Edit5: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + end + object Edit6: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + end + object Edit7: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + end + object Edit8: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object Edit9: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + end + object Edit10: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + end + object Edit11: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object Edit12: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object Edit13: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + end + object Panel2: TPanel + Left = 8 + Top = 71 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Edit14: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + end + object Edit15: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object Edit16: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + object Edit17: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object Edit18: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Edit19: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + end + object Edit20: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + end + object Edit21: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + end + object Edit22: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + end + object Edit23: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + end + object Edit24: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + end + object Edit25: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + end + end + object Panel3: TPanel + Left = 8 + Top = 132 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Edit26: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + end + object Edit27: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object Edit28: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + object Edit29: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object Edit30: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Edit31: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + end + object Edit32: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + end + object Edit33: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + end + object Edit34: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + end + object Edit35: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + end + object Edit36: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + end + object Edit37: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + end + end + object Panel4: TPanel + Left = 8 + Top = 197 + Width = 1105 + Height = 53 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Edit38: TEdit + Tag = 1 + Left = 27 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnClick = Edit38Click + end + object Edit39: TEdit + Tag = 2 + Left = 119 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + OnClick = Edit38Click + end + object Edit40: TEdit + Tag = 3 + Left = 211 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + OnClick = Edit38Click + end + object Edit41: TEdit + Tag = 4 + Left = 303 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + OnClick = Edit38Click + end + object Edit42: TEdit + Tag = 5 + Left = 395 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + OnClick = Edit38Click + end + object Edit43: TEdit + Tag = 6 + Left = 487 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit38Click + end + object Edit44: TEdit + Tag = 7 + Left = 578 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + OnClick = Edit38Click + end + object Edit45: TEdit + Tag = 8 + Left = 670 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + OnClick = Edit38Click + end + object Edit46: TEdit + Tag = 9 + Left = 762 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + OnClick = Edit38Click + end + object Edit47: TEdit + Tag = 10 + Left = 854 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + OnClick = Edit38Click + end + object Edit48: TEdit + Tag = 11 + Left = 946 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + OnClick = Edit38Click + end + object Edit49: TEdit + Tag = 12 + Left = 1038 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + OnClick = Edit38Click + end + end + end + object Panel7: TPanel + Left = 83 + Top = 79 + Width = 1115 + Height = 242 + TabOrder = 11 + Visible = False + object Label7: TLabel + Left = 22 + Top = 35 + Width = 62 + Height = 29 + Caption = #23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 502 + Top = 37 + Width = 124 + Height = 29 + Caption = #20998#20999#20010#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 1113 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #36873#21333 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Button7: TButton + Left = 160 + Top = 166 + Width = 81 + Height = 67 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button7Click + end + object Button8: TButton + Left = 880 + Top = 169 + Width = 73 + Height = 65 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button8Click + end + object Panel8: TPanel + Left = 8 + Top = 87 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Edit52: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit64Click + end + object Edit53: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit64Click + end + object Edit54: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = Edit64Click + end + object Edit55: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = Edit64Click + end + object Edit56: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = Edit64Click + end + object Edit57: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = Edit64Click + end + object Edit58: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = Edit64Click + end + object Edit59: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = Edit64Click + end + object Edit60: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = Edit64Click + end + object Edit61: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = Edit64Click + end + object Edit62: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = Edit64Click + end + object Edit63: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = Edit64Click + end + end + object Edit64: TEdit + Tag = 1 + Left = 97 + Top = 32 + Width = 240 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 4 + OnClick = Edit64Click + end + object Button9: TButton + Left = 344 + Top = 30 + Width = 89 + Height = 43 + Caption = #23494#30721#30830#35748 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button9Click + end + object ComboBox1: TComboBox + Left = 632 + Top = 34 + Width = 145 + Height = 41 + Style = csDropDownList + DropDownCount = 15 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ItemHeight = 33 + ParentFont = False + TabOrder = 6 + OnChange = ComboBox1Change + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10' + '11' + '12') + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 960 + Top = 16 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 1008 + Top = 56 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 886 + Top = 119 + end +end diff --git a/贸易管理/U_ZJManage.pas b/贸易管理/U_ZJManage.pas new file mode 100644 index 0000000..775c616 --- /dev/null +++ b/贸易管理/U_ZJManage.pas @@ -0,0 +1,391 @@ +unit U_ZJManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Buttons, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, ADODB; + +type + TfrmZJManage = class(TForm) + Edit1: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + Button1: TButton; + Button2: TButton; + Button3: TButton; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Edit50: TEdit; + Button4: TButton; + Button5: TButton; + Edit51: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel5: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + Button6: TButton; + Panel6: TPanel; + Panel1: TPanel; + Edit2: TEdit; + Edit3: TEdit; + Edit4: TEdit; + Edit5: TEdit; + Edit6: TEdit; + Edit7: TEdit; + Edit8: TEdit; + Edit9: TEdit; + Edit10: TEdit; + Edit11: TEdit; + Edit12: TEdit; + Edit13: TEdit; + Panel2: TPanel; + Edit14: TEdit; + Edit15: TEdit; + Edit16: TEdit; + Edit17: TEdit; + Edit18: TEdit; + Edit19: TEdit; + Edit20: TEdit; + Edit21: TEdit; + Edit22: TEdit; + Edit23: TEdit; + Edit24: TEdit; + Edit25: TEdit; + Panel3: TPanel; + Edit26: TEdit; + Edit27: TEdit; + Edit28: TEdit; + Edit29: TEdit; + Edit30: TEdit; + Edit31: TEdit; + Edit32: TEdit; + Edit33: TEdit; + Edit34: TEdit; + Edit35: TEdit; + Edit36: TEdit; + Edit37: TEdit; + Panel4: TPanel; + Edit38: TEdit; + Edit39: TEdit; + Edit40: TEdit; + Edit41: TEdit; + Edit42: TEdit; + Edit43: TEdit; + Edit44: TEdit; + Edit45: TEdit; + Edit46: TEdit; + Edit47: TEdit; + Edit48: TEdit; + Edit49: TEdit; + Panel7: TPanel; + Panel10: TPanel; + Button7: TButton; + Button8: TButton; + Panel8: TPanel; + Edit52: TEdit; + Edit53: TEdit; + Edit54: TEdit; + Edit55: TEdit; + Edit56: TEdit; + Edit57: TEdit; + Edit58: TEdit; + Edit59: TEdit; + Edit60: TEdit; + Edit61: TEdit; + Edit62: TEdit; + Edit63: TEdit; + Edit64: TEdit; + Label7: TLabel; + Button9: TButton; + Label8: TLabel; + ComboBox1: TComboBox; + ADOQueryTemp: TADOQuery; + procedure Edit38Click(Sender: TObject); + procedure Edit64Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure ComboBox1Change(Sender: TObject); + procedure Button7Click(Sender: TObject); + private + { Private declarations } + procedure ClearSpenndHit(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + function ChkEditNULL(panel55:TWinControl):Boolean; + public + { Public declarations } + end; + +var + frmZJManage: TfrmZJManage; + +implementation +uses +U_DataLink,U_Fun,U_ZDYHelp,U_iniParam,AES,ElAES; + +{$R *.dfm} + +procedure TfrmZJManage.Edit38Click(Sender: TObject); +begin + if Trim(TcxTextEdit(Sender).Text)='' then + begin + TcxTextEdit(Sender).Text:=''; + end else + begin + TcxTextEdit(Sender).Text:=''; + end; +end; + +procedure TfrmZJManage.Edit64Click(Sender: TObject); +var + i:Integer; +begin + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; +procedure TfrmZJManage.ClearSpenndHit(); +var + i:Integer; +begin + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=''; + end; + end; + end; +end; +procedure TfrmZJManage.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; + +procedure TfrmZJManage.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManage.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManage.Button2Click(Sender: TObject); +begin + Panel7.Visible:=True; +end; + +procedure TfrmZJManage.Button8Click(Sender: TObject); +begin + Panel7.Visible:=False; + Edit64.Text:=''; + ComboBox1.ItemIndex:=-1; + ComboBox1.Enabled:=False; + VisbleControl(Panel8,False,Panel8.ControlCount); +end; + +procedure TfrmZJManage.Button9Click(Sender: TObject); +var + mm,mm2:string; +begin + with ADOQueryTemp do + begin + sql.Clear; + sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(DCode)+''''); + Open; + mm:=Trim(Fields[2].AsString); + if Trim(mm)<>'' then + mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128)) + else + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + close; + end; + + if (mm2=trim(Edit64.text)) then + begin + ComboBox1.Enabled:=True; + ComboBox1.SetFocus; + ComboBox1.DroppedDown:=True; + ClearSpenndHit(); + end + else + Application.MessageBox('', 'Ϣʾ', MB_OK or MB_ICONinformation); +end; + +procedure TfrmZJManage.SpeedButton49Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +procedure TfrmZJManage.ComboBox1Change(Sender: TObject); +var + i,FCont:Integer; +begin + if Trim(ComboBox1.Text)='' then + begin + VisbleControl(Panel8,False,Panel8.ControlCount); + end else + begin + VisbleControl(Panel8,False,Panel8.ControlCount); + FCont:=StrToInt(ComboBox1.Text); + VisbleControl(Panel8,True,FCont); + end; + +end; + +procedure TfrmZJManage.Button7Click(Sender: TObject); +begin + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('иδѡ','ʾ',0); + Exit; + end; + if ChkEditNULL(Panel8)=False then + begin + Application.MessageBox('ݲȫд','ʾ',0); + Exit; + end; + Panel7.Visible:=False; + VisbleControl(Panel1,False,Panel1.ControlCount); + VisbleControl(Panel1,True,StrToInt(ComboBox1.Text)); + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel2,True,StrToInt(ComboBox1.Text)); + VisbleControl(Panel3,False,Panel3.ControlCount); + VisbleControl(Panel3,True,StrToInt(ComboBox1.Text)); + VisbleControl(Panel4,False,Panel4.ControlCount); + VisbleControl(Panel4,True,StrToInt(ComboBox1.Text)); + ComboBox1.ItemIndex:=-1; + VisbleControl(Panel8,False,Panel8.ControlCount); + Edit64.Text:=''; + +end; + +function TfrmZJManage.ChkEditNULL(panel55:TWinControl):Boolean; +var + i:Integer; +begin + Result:=False; + with panel55 do + begin + for i:=0 to panel55.ControlCount-1 do + begin + if Controls[i].Visible=True then + begin + if Trim(TEdit(Controls[i]).Text)='' then + begin + Result:=False; + Break; + end else + begin + Result:=True; + end; + end; + + end; + end; + +end; + +end. diff --git a/贸易管理/U_ZJManageNew.dfm b/贸易管理/U_ZJManageNew.dfm new file mode 100644 index 0000000..3e1aa71 --- /dev/null +++ b/贸易管理/U_ZJManageNew.dfm @@ -0,0 +1,2690 @@ +object frmZJManageNew: TfrmZJManageNew + Left = -2 + Top = 20 + Width = 1292 + Height = 734 + Caption = 'frmZJManageNew' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 22 + Top = 13 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 22 + Top = 159 + Width = 62 + Height = 58 + Caption = #24133#23485#13#10' cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 22 + Top = 227 + Width = 62 + Height = 58 + Caption = #38271#24230#13#10' M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 22 + Top = 379 + Width = 62 + Height = 58 + Caption = #37325#37327#13#10' Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 518 + Width = 62 + Height = 29 + Caption = #30133#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 22 + Top = 450 + Width = 62 + Height = 29 + Caption = #36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 992 + Top = 56 + Width = 23 + Height = 84 + Caption = #20998#13#10#20999#13#10#35828#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 22 + Top = 334 + Width = 62 + Height = 29 + Caption = #25509#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 22 + Top = 291 + Width = 62 + Height = 29 + Caption = #36192#36865 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 994 + Top = 16 + Width = 100 + Height = 24 + Caption = #27597#21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MJID: TEdit + Left = 88 + Top = 9 + Width = 297 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object ScrollBox1: TScrollBox + Left = 88 + Top = 517 + Width = 501 + Height = 151 + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 3 + Width = 60 + Height = 60 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 64 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 125 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 186 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 247 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 308 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 369 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 430 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 3 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 64 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 125 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 186 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 247 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 308 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 369 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 430 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Button1: TButton + Left = 390 + Top = 7 + Width = 145 + Height = 42 + Caption = #21516#21333#21512#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button1Click + end + object Button3: TButton + Left = 544 + Top = 9 + Width = 144 + Height = 40 + Caption = #25171' '#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object cxGrid2: TcxGrid + Left = 584 + Top = 514 + Width = 398 + Height = 156 + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + object v2Column3: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Width = 56 + end + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 79 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 61 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = cxStyle2 + Width = 92 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Styles.Content = cxStyle2 + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 984 + Top = 516 + Width = 225 + Height = 155 + TabOrder = 5 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object v3Column1: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Styles.Content = cxStyle2 + Width = 56 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23567#21367#26465#30721 + DataBinding.FieldName = 'XJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 158 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Button6: TButton + Left = 700 + Top = 10 + Width = 145 + Height = 39 + Caption = #37325#26032#25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button6Click + end + object Panel6: TPanel + Left = 88 + Top = 154 + Width = 1122 + Height = 344 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 7 + object Panel1: TPanel + Left = 8 + Top = 7 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object SmalMF1: TEdit + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + end + object SmalMF2: TEdit + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + end + object SmalMF3: TEdit + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + end + object SmalMF4: TEdit + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + end + object SmalMF5: TEdit + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + end + object SmalMF6: TEdit + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + end + object SmalMF7: TEdit + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object SmalMF8: TEdit + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + end + object SmalMF9: TEdit + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + end + object SmalMF10: TEdit + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object SmalMF11: TEdit + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object SmalMF12: TEdit + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + end + object Panel2: TPanel + Left = 8 + Top = 66 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object XJLen1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJLen2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJLen3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJLen4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJLen5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJLen6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJLen7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJLen8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJLen9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJLen10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJLen11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJLen12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel3: TPanel + Left = 8 + Top = 228 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object XJMaoZ1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel4: TPanel + Left = 8 + Top = 283 + Width = 1105 + Height = 53 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Sel1: TEdit + Tag = 1 + Left = 27 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnClick = Sel1Click + end + object Sel2: TEdit + Tag = 2 + Left = 119 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + OnClick = Sel1Click + end + object Sel3: TEdit + Tag = 3 + Left = 211 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + OnClick = Sel1Click + end + object Sel4: TEdit + Tag = 4 + Left = 303 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + OnClick = Sel1Click + end + object Sel5: TEdit + Tag = 5 + Left = 395 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + OnClick = Sel1Click + end + object Sel6: TEdit + Tag = 6 + Left = 487 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Sel1Click + end + object Sel7: TEdit + Tag = 7 + Left = 578 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + OnClick = Sel1Click + end + object Sel8: TEdit + Tag = 8 + Left = 670 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + OnClick = Sel1Click + end + object Sel9: TEdit + Tag = 9 + Left = 762 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + OnClick = Sel1Click + end + object Sel10: TEdit + Tag = 10 + Left = 854 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + OnClick = Sel1Click + end + object Sel11: TEdit + Tag = 11 + Left = 946 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + OnClick = Sel1Click + end + object Sel12: TEdit + Tag = 12 + Left = 1038 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + OnClick = Sel1Click + end + end + object Panel7: TPanel + Left = 8 + Top = 124 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object XJFree1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJFree2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJFree3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJFree4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJFree5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJFree6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJFree7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJFree8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJFree9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJFree10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJFree11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJFree12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel8: TPanel + Left = 8 + Top = 172 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object XjJt1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XjJt2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XjJt3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XjJt4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XjJt5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XjJt6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XjJt7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XjJt8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XjJt9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XjJt10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XjJt11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XjJt12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + end + object Panel5: TPanel + Left = 578 + Top = 493 + Width = 625 + Height = 172 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 8 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 88 + Top = 3 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 172 + Top = 3 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 256 + Top = 3 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 340 + Top = 3 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 4 + Top = 87 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 88 + Top = 87 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 172 + Top = 87 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 256 + Top = 87 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 340 + Top = 87 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 424 + Top = 87 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 424 + Top = 3 + Width = 80 + Height = 80 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 517 + Top = 37 + Width = 91 + Height = 82 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object cxGrid4: TcxGrid + Left = 88 + Top = 51 + Width = 898 + Height = 55 + TabOrder = 9 + object TvSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle3 + object vSelColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 149 + end + object vSelColumn4: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 89 + end + object vSelColumn6: TcxGridDBColumn + Caption = #22823#21367#38376#24133'CM' + DataBinding.FieldName = 'MJFK' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 94 + end + object vSelColumn5: TcxGridDBColumn + Caption = #22823#21367#38271'M' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 68 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #22823#21367#37325'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle1 + Width = 81 + end + object vSelColumn2: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MJSJKZ' + Styles.Content = cxStyle3 + Width = 41 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 43 + end + object vSelColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Styles.Content = cxStyle3 + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 58 + end + object vSelColumn3: TcxGridDBColumn + Caption = #20998#20999#20010#25968 + DataBinding.FieldName = 'SmalCount' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 79 + end + object vSelColumn8: TcxGridDBColumn + Caption = #20801#35768#20559#24046 + DataBinding.FieldName = 'SmalPC' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 78 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvSel + end + end + object Button2: TButton + Left = 860 + Top = 10 + Width = 101 + Height = 39 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = Button2Click + end + object MJCDHZ: TRichEdit + Left = 88 + Top = 108 + Width = 899 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 11 + end + object SmalNote: TRichEdit + Left = 1016 + Top = 50 + Width = 193 + Height = 98 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 12 + end + object MovePanel2: TMovePanel + Left = 56 + Top = 37 + Width = 1137 + Height = 505 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 13 + Visible = False + object Label8: TLabel + Left = 421 + Top = 24 + Width = 262 + Height = 35 + Caption = #21516' '#21333' '#21512' '#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 22 + Top = 85 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid1: TcxGrid + Left = 8 + Top = 144 + Width = 1121 + Height = 249 + TabOrder = 0 + object TvHJ: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TvHJCellDblClick + DataController.DataSource = DSHJ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = vHJColumn1 + end + item + Kind = skSum + Column = vHJColumn2 + end + item + Format = #21367#20010#25968#65306'#' + Kind = skCount + Column = cxGridDBColumn3 + end + item + Kind = skAverage + Column = vHJColumn11 + end + item + Kind = skAverage + Column = vHJColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle1 + object cxGridDBColumn3: TcxGridDBColumn + Caption = #22823#21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 179 + end + object vHJColumn1: TcxGridDBColumn + Caption = #37325#37327'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn2: TcxGridDBColumn + Caption = #38271#24230'm' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object vHJColumn3: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'MJFk' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn11: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'MJSJKZ' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object vHJColumn4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object vHJColumn9: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object vHJColumn10: TcxGridDBColumn + Caption = #21407#26009#37197#27604 + DataBinding.FieldName = 'YLPB' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object vHJColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object vHJColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object vHJColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object vHJColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvHJ + end + end + object HJMJID: TEdit + Left = 88 + Top = 81 + Width = 297 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = HJMJIDKeyPress + end + object Button7: TButton + Left = 140 + Top = 431 + Width = 145 + Height = 42 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button7Click + end + object Button8: TButton + Left = 852 + Top = 431 + Width = 145 + Height = 42 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button8Click + end + end + object MovePanel1: TMovePanel + Left = 88 + Top = 487 + Width = 344 + Height = 202 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 14 + Visible = False + object Label17: TLabel + Left = 30 + Top = 24 + Width = 84 + Height = 20 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 185 + Top = 69 + Width = 21 + Height = 20 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 301 + Top = 24 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 301 + Top = 104 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 69 + Width = 77 + Height = 20 + Caption = 'Label21' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object CDBeg: TEdit + Tag = 9999 + Left = 119 + Top = 16 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = XJLen1Click + end + object Button4: TButton + Left = 31 + Top = 147 + Width = 66 + Height = 38 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + object Button5: TButton + Left = 246 + Top = 147 + Width = 66 + Height = 38 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button5Click + end + object CDEnd: TEdit + Tag = 9999 + Left = 119 + Top = 94 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = XJLen1Click + end + end + object MovePanel3: TMovePanel + Left = 568 + Top = 104 + Width = 321 + Height = 177 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 15 + Visible = False + object Label13: TLabel + Left = 88 + Top = 16 + Width = 132 + Height = 33 + Caption = #36755#20837#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Button9: TButton + Left = 32 + Top = 112 + Width = 75 + Height = 49 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button9Click + end + object Button10: TButton + Left = 200 + Top = 112 + Width = 75 + Height = 49 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button10Click + end + object Password: TEdit + Tag = 99999 + Left = 32 + Top = 56 + Width = 241 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 2 + OnClick = XJLen1Click + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 936 + Top = 65532 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 1232 + Top = 124 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 598 + Top = 75 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 686 + Top = 74 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 638 + Top = 74 + end + object DataSource1: TDataSource + DataSet = Cds_Main + Left = 744 + Top = 76 + end + object Cds_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 76 + end + object DataSource3: TDataSource + DataSet = CDS_XJID + Left = 1000 + Top = 670 + end + object CDS_XJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 670 + end + object DataSource2: TDataSource + DataSet = CDS_XJCD + Left = 752 + Top = 670 + end + object CDS_XJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 792 + Top = 670 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 136 + Top = 120 + 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 = 104 + Top = 120 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 168 + Top = 120 + end + object DSHJ: TDataSource + DataSet = CDS_HJ + Left = 352 + Top = 550 + end + object CDS_HJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 550 + end +end diff --git a/贸易管理/U_ZJManageNew.pas b/贸易管理/U_ZJManageNew.pas new file mode 100644 index 0000000..01bca90 --- /dev/null +++ b/贸易管理/U_ZJManageNew.pas @@ -0,0 +1,1525 @@ +unit U_ZJManageNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Buttons, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, ADODB, + DBClient, ComCtrls, RM_Common, RM_Class, RM_GridReport, RM_System, + RM_Dataset; + +type + TfrmZJManageNew = class(TForm) + MJID: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + Button1: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Button6: TButton; + Panel6: TPanel; + Panel1: TPanel; + SmalMF1: TEdit; + SmalMF2: TEdit; + SmalMF3: TEdit; + SmalMF4: TEdit; + SmalMF5: TEdit; + SmalMF6: TEdit; + SmalMF7: TEdit; + SmalMF8: TEdit; + SmalMF9: TEdit; + SmalMF10: TEdit; + SmalMF11: TEdit; + SmalMF12: TEdit; + Panel2: TPanel; + XJLen1: TEdit; + XJLen2: TEdit; + XJLen3: TEdit; + XJLen4: TEdit; + XJLen5: TEdit; + XJLen6: TEdit; + XJLen7: TEdit; + XJLen8: TEdit; + XJLen9: TEdit; + XJLen10: TEdit; + XJLen11: TEdit; + XJLen12: TEdit; + Panel3: TPanel; + XJMaoZ1: TEdit; + XJMaoZ2: TEdit; + XJMaoZ3: TEdit; + XJMaoZ4: TEdit; + XJMaoZ5: TEdit; + XJMaoZ6: TEdit; + XJMaoZ7: TEdit; + XJMaoZ8: TEdit; + XJMaoZ9: TEdit; + XJMaoZ10: TEdit; + XJMaoZ11: TEdit; + XJMaoZ12: TEdit; + Panel4: TPanel; + Sel1: TEdit; + Sel2: TEdit; + Sel3: TEdit; + Sel4: TEdit; + Sel5: TEdit; + Sel6: TEdit; + Sel7: TEdit; + Sel8: TEdit; + Sel9: TEdit; + Sel10: TEdit; + Sel11: TEdit; + Sel12: TEdit; + ADOQueryTemp: TADOQuery; + Panel5: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + cxGrid4: TcxGrid; + TvSel: TcxGridDBTableView; + vSelColumn1: TcxGridDBColumn; + vSelColumn4: TcxGridDBColumn; + vSelColumn6: TcxGridDBColumn; + vSelColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + vSelColumn7: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + vSelColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + vSelColumn3: TcxGridDBColumn; + vSelColumn8: TcxGridDBColumn; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Cds_Main: TClientDataSet; + Button2: TButton; + MJCDHZ: TRichEdit; + DataSource3: TDataSource; + CDS_XJID: TClientDataSet; + DataSource2: TDataSource; + CDS_XJCD: TClientDataSet; + v2Column3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + SmalNote: TRichEdit; + Label7: TLabel; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ADOQueryPrint: TADOQuery; + MovePanel2: TMovePanel; + Label8: TLabel; + cxGrid1: TcxGrid; + TvHJ: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + DSHJ: TDataSource; + CDS_HJ: TClientDataSet; + vHJColumn1: TcxGridDBColumn; + vHJColumn2: TcxGridDBColumn; + vHJColumn3: TcxGridDBColumn; + Label9: TLabel; + HJMJID: TEdit; + Button7: TButton; + Button8: TButton; + vHJColumn4: TcxGridDBColumn; + vHJColumn5: TcxGridDBColumn; + vHJColumn6: TcxGridDBColumn; + vHJColumn7: TcxGridDBColumn; + vHJColumn8: TcxGridDBColumn; + vHJColumn9: TcxGridDBColumn; + vHJColumn10: TcxGridDBColumn; + vHJColumn11: TcxGridDBColumn; + Panel7: TPanel; + XJFree1: TEdit; + XJFree2: TEdit; + XJFree3: TEdit; + XJFree4: TEdit; + XJFree5: TEdit; + XJFree6: TEdit; + XJFree7: TEdit; + XJFree8: TEdit; + XJFree9: TEdit; + XJFree10: TEdit; + XJFree11: TEdit; + XJFree12: TEdit; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + CDBeg: TEdit; + Button4: TButton; + Button5: TButton; + CDEnd: TEdit; + Panel8: TPanel; + XjJt1: TEdit; + XjJt2: TEdit; + XjJt3: TEdit; + XjJt4: TEdit; + XjJt5: TEdit; + XjJt6: TEdit; + XjJt7: TEdit; + XjJt8: TEdit; + XjJt9: TEdit; + XjJt10: TEdit; + XjJt11: TEdit; + XjJt12: TEdit; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + MovePanel3: TMovePanel; + Button9: TButton; + Button10: TButton; + Password: TEdit; + Label13: TLabel; + procedure Sel1Click(Sender: TObject); + procedure Edit64Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure XJLen1Click(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button2Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure HJMJIDKeyPress(Sender: TObject; var Key: Char); + procedure TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button9Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure PasswordClick(Sender: TObject); + private + { Private declarations } + FCDName:string; + procedure ClearSpenndHit(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + function ChkEditNULL(panel55:TWinControl):Boolean; + procedure InitJP(); + procedure InitGridCD(); + procedure InitGridCDID(); + procedure ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); + procedure PrintData(FXJID:string;CDFlag:String); + public + { Public declarations } + end; + +var + frmZJManageNew: TfrmZJManageNew; + +implementation +uses +U_DataLink,U_Fun,U_ZDYHelp,U_iniParam,AES,ElAES,U_LabelPrint; + +{$R *.dfm} + +procedure TfrmZJManageNew.Sel1Click(Sender: TObject); +begin + if Trim(TcxTextEdit(Sender).Text)='' then + begin + TcxTextEdit(Sender).Text:=''; + end else + begin + TcxTextEdit(Sender).Text:=''; + end; +end; + +procedure TfrmZJManageNew.Edit64Click(Sender: TObject); +var + i:Integer; +begin + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; +procedure TfrmZJManageNew.ClearSpenndHit(); +var + i:Integer; +begin + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=''; + end; + end; + end; +end; +procedure TfrmZJManageNew.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; +procedure TfrmZJManageNew.ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + TEdit(Controls[i]).Text:=ConValue; + end; + end; +end; + +procedure TfrmZJManageNew.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNew.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNew.SpeedButton49Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +function TfrmZJManageNew.ChkEditNULL(panel55:TWinControl):Boolean; +var + i:Integer; +begin + Result:=False; + with panel55 do + begin + for i:=0 to panel55.ControlCount-1 do + begin + if Controls[i].Visible=True then + begin + if Trim(TEdit(Controls[i]).Text)='' then + begin + Result:=False; + Break; + end else + begin + Result:=True; + end; + end; + + end; + end; + +end; + +procedure TfrmZJManageNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZJManageNew.FormDestroy(Sender: TObject); +begin + frmZJManageNew:=nil; +end; + +procedure TfrmZJManageNew.XJLen1Click(Sender: TObject); +var + i:Integer; +begin + if CDS_XJID.IsEmpty=False then + begin + if CDS_XJID.Locate('XJInt',TEdit(Sender).tag,[])=True then + begin + TEdit(Sender).Text:=Trim(CDS_XJID.fieldbyname(Copy(Trim(TEdit(Sender).Name),1,Length(Trim(TEdit(Sender).Name))-1)).AsString); + Panel5.Visible:=False; + Exit; + end; + end; + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; + // Panel5.Left:=Edit14.Left; + //Panel5.top:=Edit14.top+Edit14.Height; +end; + +procedure TfrmZJManageNew.MJIDKeyPress(Sender: TObject; var Key: Char); +var + FCount,i:Integer; + FXJXH:String; +begin + if Key=#13 then + begin + MJID.SelectAll; + ClearControl(Panel1,'',Panel1.ControlCount); + ClearControl(Panel2,'',Panel2.ControlCount); + ClearControl(Panel3,'',Panel3.ControlCount); + Label12.Visible:=True; + Label12.Caption:=Trim(MJID.Text); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.add('select MJCDHZ=dbo.F_Get_WFBOrder_SubStr(A.MJID,''MJCDHZ''), '); + SQL.Add('A.*,B.*,C.OrderNo from WFB_MJJY A inner join WFBOrder_Sub B on A.SubId=B.SubId'); + sql.Add('inner join WFBOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.MJID='''+Trim(MJID.Text)+''''); + sql.Add(' and A.Valie=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Cds_Main); + SInitCDSData20(ADOQueryMain,Cds_Main); + if Cds_Main.IsEmpty then + begin + MJCDHZ.Text:=''; + InitGridCDID(); + InitGridCD(); + Label12.Visible:=False; + MJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + MJCDHZ.Visible:=True; + MJCDHZ.Text:=Trim(Cds_Main.fieldbyname('MJCDHZ').AsString); + SmalNote.Text:=Trim(Cds_Main.fieldbyname('SmalNote').AsString); + if Cds_Main.FieldByName('SmalCount').Value<1 then + begin + Application.MessageBox('иС1','ʾ',0); + Exit; + end else + begin + FCount:=Cds_Main.FieldByName('SmalCount').Value; + VisbleControl(Panel1,False,Panel1.ControlCount); + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel3,False,Panel3.ControlCount); + VisbleControl(Panel4,False,Panel4.ControlCount); + VisbleControl(Panel1,True,FCount); + VisbleControl(Panel2,True,FCount); + VisbleControl(Panel3,True,FCount); + VisbleControl(Panel4,True,FCount); + VisbleControl(Panel7,True,FCount); + VisbleControl(Panel8,True,FCount); + SCSHDataCDS(Cds_Main,Panel1,0); + end; + InitGridCDID(); + InitGridCD(); + finally + ADOQueryMain.EnableControls; + end; + MJID.Text:=''; + {if CDS_XJID.IsEmpty=False then + begin + with CDS_XJID do + begin + First; + while not Eof do + begin + + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); + Next; + end; + end; + end; } + end; +end; + +procedure TfrmZJManageNew.Button2Click(Sender: TObject); +begin + WriteCxGrid('ʾϢ',TvSel,'޷IJ'); + Close; +end; + +procedure TfrmZJManageNew.FormShow(Sender: TObject); +begin + ReadCxGrid('ʾϢ',TvSel,'޷IJ'); + InitJP(); +end; + +procedure TfrmZJManageNew.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCDZJ'' order by ZDYNO '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ûжСõ㣡','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>17 then + begin + i:=29; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmZJManageNew.Button4Click(Sender: TObject); +var + i:Integer; +begin + if Trim(CDBeg.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + with CDS_XJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(CDBeg.Text); + FieldByName('CDEnd').Value:=Trim(CDEnd.Text); + if Trim(CDEnd.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDEnd.Text)-StrToFloat(CDBeg.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + FieldByName('XJInt').Value:=i+1; + Post; + end; + end; + end; + end; + CDBeg.Text:=''; + CDEnd.Text:=''; + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNew.SpeedButton13Click(Sender: TObject); +var + i,j:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + j:=9; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + CDBeg.SetFocus; + + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim('CDBeg'); + end; + end; + end; +end; +procedure TfrmZJManageNew.InitGridCD(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + if Trim(CDS_XJID.fieldbyname('XJID').AsString)<>'' then + begin + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID'); + sql.Add(' where B.MJID='''+Trim(MJID.Text)+''''); + end + else + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJCD); + SInitCDSData20(ADOQueryMain,CDS_XJCD); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmZJManageNew.InitGridCDID(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(MJID.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJID); + SInitCDSData20(ADOQueryMain,CDS_XJID); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZJManageNew.Button5Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNew.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(CDS_XJCD.fieldbyname('XJID').AsString)<>'' then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_XJCD.Delete; +end; + +procedure TfrmZJManageNew.Button3Click(Sender: TObject); +var + i,j,FXJInt,CRID:Integer; + FXJSJKZ:Double; + maxno,maxnocd,MaxCkNo,MaxCkSubNo,XJBanZu,FFXJLen,FFXJMaoZ,FFXJFk,FFXJFree,FFXJJt:String; +begin + if Cds_Main.IsEmpty then Exit; + with Panel2 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + with Panel3 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + if Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ȲΪգ','ʾ',0); + Exit; + end else + begin + FFXJLen:=Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJMaoZ:=Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJFk:=Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJFree:='0'; + end else + begin + FFXJFree:=Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJJt:='0'; + end else + begin + FFXJJt:=Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text); + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵ룬볢´ӡ','',0); + Exit; + end; + FXJSJKZ:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )<-0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )>0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + //////////////////////////////////////////////////////////////С + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + XJBanZu:=Trim(ADOQueryTemp.fieldbyname('BanZu').AsString); + if GetLSNo(ADOQueryCmd,maxno,Trim(XJFlag),'WFB_XJJY',4,1)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡС쳣','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from WFB_XJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJID').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + FieldByName('XJBanZu').Value:=Trim(XJBanZu); + FieldByName('JTTYpe').Value:=Trim(XJFlag); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('XJSJKZ').Value:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + //FieldByName('') + Post; + end; + with CDS_XJID do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + Post; + end; + //////////////////////////////////////////////////////////////С + //////////////////////////////////////////////////////////////Сõ + with CDS_XJCD do + begin + First; + while not Eof do + begin + if CDS_XJCD.FieldByName('XJInt').Value=FXJInt then + begin + if GetLSNo(ADOQueryCmd,maxnocd,'XC','WFB_XJJY_CD',5,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСõʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_XJJY_CD where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XCID').Value:=Trim(maxnocd); + FieldByName('CDName').Value:=CDS_XJCD.fieldbyname('CDName').Value; + FieldByName('CDBeg').Value:=CDS_XJCD.fieldbyname('CDBeg').Value; + FieldByName('CDEnd').Value:=CDS_XJCD.fieldbyname('CDEnd').Value; + FieldByName('CDQty').Value:=CDS_XJCD.fieldbyname('CDQty').Value; + Post; + end; + end; + Next; + end; + end; + //////////////////////////////////////////////////////////////Сõ + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryTemp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Cds_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Cds_Main.fieldbyname('SubId').AsString); + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJId').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('MQty').Value:=StrToFloat(FFXJLen); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('KCKGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('KCMQty').Value:=StrToFloat(FFXJLen); + Post; + end; + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + ADOQueryCmd.Connection.CommitTrans; + PrintData(Trim(maxno),''); + //Application.MessageBox('ɹ','ʾ',0); + //MJID.SelectAll; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +procedure TfrmZJManageNew.PrintData(FXJID:string;CDFlag:String); +var + fPrintFile,LabInt,LabName:String; +begin + if Trim(FXJID)='' then exit; + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + if Trim(CDFlag)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_XJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where XJID='''+Trim(FXJID)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select C.LbXInt,C.LbXName from WFB_XJJY A'); + sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID'); + sql.Add(' inner join WFBOrder_Main C on B.MainId=C.MainId'); + sql.Add(' where A.XJID='''+Trim(FXJID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + LabInt:=ADOQueryTemp.fieldbyname('LbXInt').AsString; + LabName:=ADOQueryTemp.fieldbyname('LbXName').AsString; + end ; + if Trim(LabName)='' then + begin + Application.MessageBox('Сǩδã','ʾ',0); + Exit; + end; + { try + frmLabelPrint:=TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + fLabelId:=LabInt; + FFCDFlag:=Trim(CDFlag); + fKeyNo:=Trim(FXJID); + fIsPreviewPrint:=True; + frmLabelPrint.Button1.Click; + // if ShowModal=1 then + //begin + + // end; + end; + finally + frmLabelPrint.Free; + end; } + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(AA.XJID) XJID,RTrim(Cast(AA.XJSJKZ as varchar(20))) XJSJKZ,RTrim(cast(Cast(AA.XJFK*10 as int) as varchar(20))) XJFK,RTrim(B.OrderNo)+'''+Trim(CDFlag)+''' OrderNo'); + sql.Add(',Rtrim(C.SWFBColor) SWFBColor, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + SQL.Add(',EngColor=(select Top 1 note from KH_Zdy where ZdyName=C.SWFBColor)'); + sql.Add(',Rtrim(Cast(AA.XJlen as varchar(20))) XJlen,Rtrim(Cast(AA.XJMaoZ as varchar(20))) XJMaoZ'); + sql.Add(',Rtrim(Cast(AA.XJFree as varchar(20))) XJFree,Rtrim(Cast( Cast(AA.XJlen*AA.XJFK/100 as int) as varchar(20))) XJPFM'); + sql.Add(',Rtrim(Cast(Cast(C.SWFBKZ as int) as varchar(20))) SWFBKZ'); + sql.Add(',Rtrim(Cast(Cast(AA.XJJt as int) as varchar(20))) XJJt'); + sql.Add(',RTrim(B.LbEngName) LbEngName'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_XJJY AA '); + sql.add(' inner join WFB_MJJY A on AA.MJID=A.MJID') ; + sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where AA.XJID='''+Trim(FXJID)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + Rm2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmZJManageNew.Button6Click(Sender: TObject); +var + i,j,FXJInt:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + MovePanel3.Visible:=True; + // PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + //MJID.SelectAll; +end; + +procedure TfrmZJManageNew.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FXJXH:String; +begin + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); +end; + +procedure TfrmZJManageNew.Button1Click(Sender: TObject); +begin + MovePanel2.Visible:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId,C.SWFBKZ '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB'')'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HJ); + SInitCDSData20(ADOQueryTemp,CDS_HJ); +end; + +procedure TfrmZJManageNew.Button8Click(Sender: TObject); +begin + MovePanel2.Visible:=False; +end; + +procedure TfrmZJManageNew.Button7Click(Sender: TObject); +var + maxno,fPrintFile,maxnosub:String; + i:Double; +begin + if Application.MessageBox('ȷҪϾ𣿺Ͼݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'','WFB_MJJY',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_HJ.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_HJ.fieldbyname('SubId').AsString); + FieldByName('MJId').Value:=Trim(maxno); + FieldByName('MJMaoZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[1]; + FieldByName('MJLen').Value:=TvHJ.DataController.Summary.FooterSummaryValues[2]; + FieldByName('MJFK').Value:=TvHJ.DataController.Summary.FooterSummaryValues[5]; + FieldByName('MJSJKZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[4]; + FieldByName('MJType').Value:='Ͼ'; + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + i:=0; + with CDS_HJ do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set HJMJID='''+Trim(maxno)+''''); + SQL.Add(',MJType=''Ͼ'',Valie=''N'' '); + SQL.Add(' where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOQueryCmd,maxnosub,'','WFB_MJJY_CD',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where 1<>1'); + open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MCID').Value:=Trim(maxnosub); + FieldByName('CDBeg').Value:=ADOQueryTemp.fieldbyname('CDBeg').Value+i; + FieldByName('CDEnd').Value:=ADOQueryTemp.fieldbyname('CDEnd').Value+i; + FieldByName('CDQty').Value:=ADOQueryTemp.fieldbyname('CDQty').Value; + FieldByName('CDName').Value:=ADOQueryTemp.fieldbyname('CDName').Value; + Post; + end; + Next; + end; + end; + i:=i+CDS_HJ.FieldByName('MJLen').Value; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select RTrim(A.MJID) MJID,RTrim(Cast(A.MJSJKZ As varchar(20))) MJSJKZ,RTrim(Cast(A.MJFK as varchar(20))) MJFK,RTrim(B.OrderNo) OrderNo,'); + sql.Add(' RTrim(Cast(A.MJMaoZ As varchar(20))) MJMaoZ,RTrim(Cast(A.MJLen As varchar(20))) MJLen,'); + sql.Add(' Rtrim(C.SWFBColor) SWFBColor,Rtrim(Cast(C.SWFBKZ as varchar(20))) SWFBKZ, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(maxno)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + Application.MessageBox('Ͼɹ','ʾ',0); + MovePanel2.Visible:=False; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ͼ쳣','ʾ',0); + end; + +end; + +procedure TfrmZJManageNew.HJMJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_MJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_XJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + HJMJID.Text:=''; + Application.MessageBox('˴ѷУ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB''),C.SWFBKZ'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and A.valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if CDS_HJ.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + HJMJID.Text:=''; + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + if CDS_HJ.IsEmpty=False then + begin + if CDS_HJ.Locate('SubId',Trim(ADOQueryTemp.fieldbyname('SubId').AsString),[])=False then + begin + HJMJID.Text:=''; + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + {if CDS_HJ.Locate('YLPB',Trim(ADOQueryTemp.fieldbyname('YLPB').AsString),[])=False then + begin + Application.MessageBox('ԭȲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBCode',Trim(ADOQueryTemp.fieldbyname('SWFBCode').AsString),[])=False then + begin + Application.MessageBox('ƷŲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBColor',Trim(ADOQueryTemp.fieldbyname('SWFBColor').AsString),[])=False then + begin + Application.MessageBox('ɫͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBHW',Trim(ADOQueryTemp.fieldbyname('SWFBHW').AsString),[])=False then + begin + Application.MessageBox('ͲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('WKMS',Trim(ADOQueryTemp.fieldbyname('WKMS').AsString),[])=False then + begin + Application.MessageBox('ĿͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('XJFK',Trim(ADOQueryTemp.fieldbyname('XJFK').AsString),[])=False then + begin + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBKZ',Trim(ADOQueryTemp.fieldbyname('SWFBKZ').AsString),[])=False then + begin + Application.MessageBox('زͬܺϾ','ʾ',0); + Exit; + end; } + end; + with CDS_HJ do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('SubId').Value:=ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('YLPB').Value:=ADOQueryTemp.fieldbyname('YLPB').Value; + FieldByName('SWFBCode').Value:=ADOQueryTemp.fieldbyname('SWFBCode').Value; + FieldByName('SWFBCodeName').Value:=ADOQueryTemp.fieldbyname('SWFBCodeName').Value; + FieldByName('SWFBColor').Value:=ADOQueryTemp.fieldbyname('SWFBColor').Value; + FieldByName('WKMS').Value:=ADOQueryTemp.fieldbyname('WKMS').Value; + FieldByName('SWFBHW').Value:=ADOQueryTemp.fieldbyname('SWFBHW').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + FieldByName('SWFBKZ').Value:=ADOQueryTemp.fieldbyname('SWFBKZ').Value; + FieldByName('MJMaoZ').Value:=ADOQueryTemp.fieldbyname('MJMaoZ').Value; + FieldByName('MJLen').Value:=ADOQueryTemp.fieldbyname('MJLen').Value; + FieldByName('MJFK').Value:=ADOQueryTemp.fieldbyname('MJFK').Value; + FieldByName('MJSJKZ').Value:=ADOQueryTemp.fieldbyname('MJSJKZ').Value; + Post; + end; + end else + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + HJMJID.Text:=''; + end; + +end; + +procedure TfrmZJManageNew.TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_HJ.Delete; +end; + +procedure TfrmZJManageNew.Button9Click(Sender: TObject); +var + i,j,FXJInt:Integer; + mm,mm2:String; +begin + with ADOQueryTemp do + begin + sql.Clear; + sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(DCode)+''''); + Open; + mm:=Trim(Fields[2].AsString); + if Trim(mm)<>'' then + mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128)) + else + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + close; + end; + + if ( mm2=trim(Password.text) ) then + begin + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + MovePanel3.Visible:=False; + end else + Application.MessageBox('', 'Ϣʾ', MB_OK or MB_ICONinformation); + + //MJID.SelectAll; +end; + +procedure TfrmZJManageNew.Button10Click(Sender: TObject); +begin + MovePanel3.Visible:=False; +end; + +procedure TfrmZJManageNew.PasswordClick(Sender: TObject); +begin + Panel5.Visible:=True; +end; + +end. diff --git a/贸易管理/U_ZJManageNewFD.dfm b/贸易管理/U_ZJManageNewFD.dfm new file mode 100644 index 0000000..0b45c5a --- /dev/null +++ b/贸易管理/U_ZJManageNewFD.dfm @@ -0,0 +1,2690 @@ +object frmZJManageNewFD: TfrmZJManageNewFD + Left = -2 + Top = 20 + Width = 1292 + Height = 734 + Caption = #23567#21367#20998#20999 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 22 + Top = 13 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 22 + Top = 159 + Width = 62 + Height = 58 + Caption = #24133#23485#13#10' cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 22 + Top = 227 + Width = 62 + Height = 58 + Caption = #38271#24230#13#10' M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 22 + Top = 379 + Width = 62 + Height = 58 + Caption = #37325#37327#13#10' Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 518 + Width = 62 + Height = 29 + Caption = #30133#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 22 + Top = 450 + Width = 62 + Height = 29 + Caption = #36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 992 + Top = 56 + Width = 23 + Height = 84 + Caption = #20998#13#10#20999#13#10#35828#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 22 + Top = 334 + Width = 62 + Height = 29 + Caption = #25509#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 22 + Top = 291 + Width = 62 + Height = 29 + Caption = #36192#36865 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 994 + Top = 16 + Width = 100 + Height = 24 + Caption = #27597#21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MJID: TEdit + Left = 88 + Top = 9 + Width = 297 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object ScrollBox1: TScrollBox + Left = 88 + Top = 517 + Width = 501 + Height = 151 + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 3 + Width = 60 + Height = 60 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 64 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 125 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 186 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 247 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 308 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 369 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 430 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 3 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 64 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 125 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 186 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 247 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 308 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 369 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 430 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Button1: TButton + Left = 390 + Top = 7 + Width = 145 + Height = 42 + Caption = #21516#21333#21512#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button1Click + end + object Button3: TButton + Left = 544 + Top = 9 + Width = 144 + Height = 40 + Caption = #25171' '#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object cxGrid2: TcxGrid + Left = 584 + Top = 514 + Width = 398 + Height = 156 + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + object v2Column3: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Width = 56 + end + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 79 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 61 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = cxStyle2 + Width = 92 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Styles.Content = cxStyle2 + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 984 + Top = 516 + Width = 225 + Height = 155 + TabOrder = 5 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object v3Column1: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Styles.Content = cxStyle2 + Width = 56 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23567#21367#26465#30721 + DataBinding.FieldName = 'XJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 158 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Button6: TButton + Left = 700 + Top = 10 + Width = 145 + Height = 39 + Caption = #37325#26032#25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button6Click + end + object Panel6: TPanel + Left = 88 + Top = 154 + Width = 1122 + Height = 344 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 7 + object Panel1: TPanel + Left = 8 + Top = 7 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object SmalMF1: TEdit + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + end + object SmalMF2: TEdit + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + end + object SmalMF3: TEdit + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + end + object SmalMF4: TEdit + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + end + object SmalMF5: TEdit + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + end + object SmalMF6: TEdit + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + end + object SmalMF7: TEdit + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object SmalMF8: TEdit + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + end + object SmalMF9: TEdit + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + end + object SmalMF10: TEdit + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object SmalMF11: TEdit + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object SmalMF12: TEdit + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + end + object Panel2: TPanel + Left = 8 + Top = 66 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object XJLen1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJLen2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJLen3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJLen4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJLen5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJLen6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJLen7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJLen8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJLen9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJLen10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJLen11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJLen12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel3: TPanel + Left = 8 + Top = 228 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object XJMaoZ1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel4: TPanel + Left = 8 + Top = 283 + Width = 1105 + Height = 53 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Sel1: TEdit + Tag = 1 + Left = 27 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnClick = Sel1Click + end + object Sel2: TEdit + Tag = 2 + Left = 119 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + OnClick = Sel1Click + end + object Sel3: TEdit + Tag = 3 + Left = 211 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + OnClick = Sel1Click + end + object Sel4: TEdit + Tag = 4 + Left = 303 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + OnClick = Sel1Click + end + object Sel5: TEdit + Tag = 5 + Left = 395 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + OnClick = Sel1Click + end + object Sel6: TEdit + Tag = 6 + Left = 487 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Sel1Click + end + object Sel7: TEdit + Tag = 7 + Left = 578 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + OnClick = Sel1Click + end + object Sel8: TEdit + Tag = 8 + Left = 670 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + OnClick = Sel1Click + end + object Sel9: TEdit + Tag = 9 + Left = 762 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + OnClick = Sel1Click + end + object Sel10: TEdit + Tag = 10 + Left = 854 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + OnClick = Sel1Click + end + object Sel11: TEdit + Tag = 11 + Left = 946 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + OnClick = Sel1Click + end + object Sel12: TEdit + Tag = 12 + Left = 1038 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + OnClick = Sel1Click + end + end + object Panel7: TPanel + Left = 8 + Top = 124 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object XJFree1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJFree2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJFree3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJFree4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJFree5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJFree6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJFree7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJFree8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJFree9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJFree10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJFree11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJFree12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel8: TPanel + Left = 8 + Top = 172 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object XjJt1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XjJt2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XjJt3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XjJt4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XjJt5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XjJt6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XjJt7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XjJt8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XjJt9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XjJt10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XjJt11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XjJt12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + end + object Panel5: TPanel + Left = 578 + Top = 493 + Width = 625 + Height = 172 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 8 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 88 + Top = 3 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 172 + Top = 3 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 256 + Top = 3 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 340 + Top = 3 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 4 + Top = 87 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 88 + Top = 87 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 172 + Top = 87 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 256 + Top = 87 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 340 + Top = 87 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 424 + Top = 87 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 424 + Top = 3 + Width = 80 + Height = 80 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 517 + Top = 37 + Width = 91 + Height = 82 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object cxGrid4: TcxGrid + Left = 88 + Top = 51 + Width = 898 + Height = 55 + TabOrder = 9 + object TvSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle3 + object vSelColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 149 + end + object vSelColumn4: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 89 + end + object vSelColumn6: TcxGridDBColumn + Caption = #22823#21367#38376#24133'CM' + DataBinding.FieldName = 'MJFK' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 94 + end + object vSelColumn5: TcxGridDBColumn + Caption = #22823#21367#38271'M' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 68 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #22823#21367#37325'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle1 + Width = 81 + end + object vSelColumn2: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MJSJKZ' + Styles.Content = cxStyle3 + Width = 41 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 43 + end + object vSelColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Styles.Content = cxStyle3 + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 58 + end + object vSelColumn3: TcxGridDBColumn + Caption = #20998#20999#20010#25968 + DataBinding.FieldName = 'SmalCount' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 79 + end + object vSelColumn8: TcxGridDBColumn + Caption = #20801#35768#20559#24046 + DataBinding.FieldName = 'SmalPC' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 78 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvSel + end + end + object Button2: TButton + Left = 860 + Top = 10 + Width = 101 + Height = 39 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = Button2Click + end + object MJCDHZ: TRichEdit + Left = 88 + Top = 108 + Width = 899 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 11 + end + object SmalNote: TRichEdit + Left = 1016 + Top = 50 + Width = 193 + Height = 98 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 12 + end + object MovePanel2: TMovePanel + Left = 80 + Top = 53 + Width = 1137 + Height = 505 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 13 + Visible = False + object Label8: TLabel + Left = 421 + Top = 24 + Width = 262 + Height = 35 + Caption = #21516' '#21333' '#21512' '#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 22 + Top = 85 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid1: TcxGrid + Left = 8 + Top = 144 + Width = 1121 + Height = 249 + TabOrder = 0 + object TvHJ: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TvHJCellDblClick + DataController.DataSource = DSHJ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = vHJColumn1 + end + item + Kind = skSum + Column = vHJColumn2 + end + item + Format = #21367#20010#25968#65306'#' + Kind = skCount + Column = cxGridDBColumn3 + end + item + Kind = skAverage + Column = vHJColumn11 + end + item + Kind = skAverage + Column = vHJColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle1 + object cxGridDBColumn3: TcxGridDBColumn + Caption = #22823#21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 179 + end + object vHJColumn1: TcxGridDBColumn + Caption = #37325#37327'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn2: TcxGridDBColumn + Caption = #38271#24230'm' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object vHJColumn3: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'MJFk' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn11: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'MJSJKZ' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object vHJColumn4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object vHJColumn9: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object vHJColumn10: TcxGridDBColumn + Caption = #21407#26009#37197#27604 + DataBinding.FieldName = 'YLPB' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object vHJColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object vHJColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object vHJColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object vHJColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvHJ + end + end + object HJMJID: TEdit + Left = 88 + Top = 81 + Width = 297 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = HJMJIDKeyPress + end + object Button7: TButton + Left = 140 + Top = 431 + Width = 145 + Height = 42 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button7Click + end + object Button8: TButton + Left = 852 + Top = 431 + Width = 145 + Height = 42 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button8Click + end + end + object MovePanel1: TMovePanel + Left = 88 + Top = 487 + Width = 344 + Height = 202 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 14 + Visible = False + object Label17: TLabel + Left = 30 + Top = 24 + Width = 84 + Height = 20 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 185 + Top = 69 + Width = 21 + Height = 20 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 301 + Top = 24 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 301 + Top = 104 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 69 + Width = 77 + Height = 20 + Caption = 'Label21' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object CDBeg: TEdit + Tag = 9999 + Left = 119 + Top = 16 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = XJLen1Click + end + object Button4: TButton + Left = 31 + Top = 147 + Width = 66 + Height = 38 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + object Button5: TButton + Left = 246 + Top = 147 + Width = 66 + Height = 38 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button5Click + end + object CDEnd: TEdit + Tag = 9999 + Left = 119 + Top = 94 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = XJLen1Click + end + end + object MovePanel3: TMovePanel + Left = 568 + Top = 104 + Width = 321 + Height = 177 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 15 + Visible = False + object Label13: TLabel + Left = 88 + Top = 16 + Width = 132 + Height = 33 + Caption = #36755#20837#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Button9: TButton + Left = 32 + Top = 112 + Width = 75 + Height = 49 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button9Click + end + object Button10: TButton + Left = 200 + Top = 112 + Width = 75 + Height = 49 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button10Click + end + object Password: TEdit + Tag = 99999 + Left = 32 + Top = 56 + Width = 241 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 2 + OnClick = XJLen1Click + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 936 + Top = 65532 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 1232 + Top = 124 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 598 + Top = 75 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 686 + Top = 74 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 638 + Top = 74 + end + object DataSource1: TDataSource + DataSet = Cds_Main + Left = 744 + Top = 76 + end + object Cds_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 76 + end + object DataSource3: TDataSource + DataSet = CDS_XJID + Left = 1000 + Top = 670 + end + object CDS_XJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 670 + end + object DataSource2: TDataSource + DataSet = CDS_XJCD + Left = 752 + Top = 670 + end + object CDS_XJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 792 + Top = 670 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 136 + Top = 120 + 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 = 104 + Top = 120 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 168 + Top = 120 + end + object DSHJ: TDataSource + DataSet = CDS_HJ + Left = 352 + Top = 550 + end + object CDS_HJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 550 + end +end diff --git a/贸易管理/U_ZJManageNewFD.pas b/贸易管理/U_ZJManageNewFD.pas new file mode 100644 index 0000000..f336ab3 --- /dev/null +++ b/贸易管理/U_ZJManageNewFD.pas @@ -0,0 +1,1530 @@ +unit U_ZJManageNewFD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Buttons, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, ADODB, + DBClient, ComCtrls, RM_Common, RM_Class, RM_GridReport, RM_System, + RM_Dataset; + +type + TfrmZJManageNewFD = class(TForm) + MJID: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + Button1: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Button6: TButton; + Panel6: TPanel; + Panel1: TPanel; + SmalMF1: TEdit; + SmalMF2: TEdit; + SmalMF3: TEdit; + SmalMF4: TEdit; + SmalMF5: TEdit; + SmalMF6: TEdit; + SmalMF7: TEdit; + SmalMF8: TEdit; + SmalMF9: TEdit; + SmalMF10: TEdit; + SmalMF11: TEdit; + SmalMF12: TEdit; + Panel2: TPanel; + XJLen1: TEdit; + XJLen2: TEdit; + XJLen3: TEdit; + XJLen4: TEdit; + XJLen5: TEdit; + XJLen6: TEdit; + XJLen7: TEdit; + XJLen8: TEdit; + XJLen9: TEdit; + XJLen10: TEdit; + XJLen11: TEdit; + XJLen12: TEdit; + Panel3: TPanel; + XJMaoZ1: TEdit; + XJMaoZ2: TEdit; + XJMaoZ3: TEdit; + XJMaoZ4: TEdit; + XJMaoZ5: TEdit; + XJMaoZ6: TEdit; + XJMaoZ7: TEdit; + XJMaoZ8: TEdit; + XJMaoZ9: TEdit; + XJMaoZ10: TEdit; + XJMaoZ11: TEdit; + XJMaoZ12: TEdit; + Panel4: TPanel; + Sel1: TEdit; + Sel2: TEdit; + Sel3: TEdit; + Sel4: TEdit; + Sel5: TEdit; + Sel6: TEdit; + Sel7: TEdit; + Sel8: TEdit; + Sel9: TEdit; + Sel10: TEdit; + Sel11: TEdit; + Sel12: TEdit; + ADOQueryTemp: TADOQuery; + Panel5: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + cxGrid4: TcxGrid; + TvSel: TcxGridDBTableView; + vSelColumn1: TcxGridDBColumn; + vSelColumn4: TcxGridDBColumn; + vSelColumn6: TcxGridDBColumn; + vSelColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + vSelColumn7: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + vSelColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + vSelColumn3: TcxGridDBColumn; + vSelColumn8: TcxGridDBColumn; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Cds_Main: TClientDataSet; + Button2: TButton; + MJCDHZ: TRichEdit; + DataSource3: TDataSource; + CDS_XJID: TClientDataSet; + DataSource2: TDataSource; + CDS_XJCD: TClientDataSet; + v2Column3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + SmalNote: TRichEdit; + Label7: TLabel; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ADOQueryPrint: TADOQuery; + MovePanel2: TMovePanel; + Label8: TLabel; + cxGrid1: TcxGrid; + TvHJ: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + DSHJ: TDataSource; + CDS_HJ: TClientDataSet; + vHJColumn1: TcxGridDBColumn; + vHJColumn2: TcxGridDBColumn; + vHJColumn3: TcxGridDBColumn; + Label9: TLabel; + HJMJID: TEdit; + Button7: TButton; + Button8: TButton; + vHJColumn4: TcxGridDBColumn; + vHJColumn5: TcxGridDBColumn; + vHJColumn6: TcxGridDBColumn; + vHJColumn7: TcxGridDBColumn; + vHJColumn8: TcxGridDBColumn; + vHJColumn9: TcxGridDBColumn; + vHJColumn10: TcxGridDBColumn; + vHJColumn11: TcxGridDBColumn; + Panel7: TPanel; + XJFree1: TEdit; + XJFree2: TEdit; + XJFree3: TEdit; + XJFree4: TEdit; + XJFree5: TEdit; + XJFree6: TEdit; + XJFree7: TEdit; + XJFree8: TEdit; + XJFree9: TEdit; + XJFree10: TEdit; + XJFree11: TEdit; + XJFree12: TEdit; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + CDBeg: TEdit; + Button4: TButton; + Button5: TButton; + CDEnd: TEdit; + Panel8: TPanel; + XjJt1: TEdit; + XjJt2: TEdit; + XjJt3: TEdit; + XjJt4: TEdit; + XjJt5: TEdit; + XjJt6: TEdit; + XjJt7: TEdit; + XjJt8: TEdit; + XjJt9: TEdit; + XjJt10: TEdit; + XjJt11: TEdit; + XjJt12: TEdit; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + MovePanel3: TMovePanel; + Button9: TButton; + Button10: TButton; + Password: TEdit; + Label13: TLabel; + procedure Sel1Click(Sender: TObject); + procedure Edit64Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure XJLen1Click(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button2Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure HJMJIDKeyPress(Sender: TObject; var Key: Char); + procedure TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button9Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure PasswordClick(Sender: TObject); + private + { Private declarations } + FCDName:string; + procedure ClearSpenndHit(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + function ChkEditNULL(panel55:TWinControl):Boolean; + procedure InitJP(); + procedure InitGridCD(); + procedure InitGridCDID(); + procedure ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); + procedure PrintData(FXJID:string;CDFlag:String); + public + { Public declarations } + end; + +var + frmZJManageNewFD: TfrmZJManageNewFD; + +implementation +uses +U_DataLink,U_Fun,U_ZDYHelp,U_iniParam,AES,ElAES,U_LabelPrint; + +{$R *.dfm} + +procedure TfrmZJManageNewFD.Sel1Click(Sender: TObject); +begin + if Trim(TcxTextEdit(Sender).Text)='' then + begin + TcxTextEdit(Sender).Text:=''; + end else + begin + TcxTextEdit(Sender).Text:=''; + end; +end; + +procedure TfrmZJManageNewFD.Edit64Click(Sender: TObject); +var + i:Integer; +begin + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; +procedure TfrmZJManageNewFD.ClearSpenndHit(); +var + i:Integer; +begin + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=''; + end; + end; + end; +end; +procedure TfrmZJManageNewFD.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; +procedure TfrmZJManageNewFD.ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + TEdit(Controls[i]).Text:=ConValue; + end; + end; +end; + +procedure TfrmZJManageNewFD.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNewFD.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNewFD.SpeedButton49Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +function TfrmZJManageNewFD.ChkEditNULL(panel55:TWinControl):Boolean; +var + i:Integer; +begin + Result:=False; + with panel55 do + begin + for i:=0 to panel55.ControlCount-1 do + begin + if Controls[i].Visible=True then + begin + if Trim(TEdit(Controls[i]).Text)='' then + begin + Result:=False; + Break; + end else + begin + Result:=True; + end; + end; + + end; + end; + +end; + +procedure TfrmZJManageNewFD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZJManageNewFD.FormDestroy(Sender: TObject); +begin + frmZJManageNewFD:=nil; +end; + +procedure TfrmZJManageNewFD.XJLen1Click(Sender: TObject); +var + i:Integer; +begin + if CDS_XJID.IsEmpty=False then + begin + if CDS_XJID.Locate('XJInt',TEdit(Sender).tag,[])=True then + begin + TEdit(Sender).Text:=Trim(CDS_XJID.fieldbyname(Copy(Trim(TEdit(Sender).Name),1,Length(Trim(TEdit(Sender).Name))-1)).AsString); + Panel5.Visible:=False; + Exit; + end; + end; + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; + // Panel5.Left:=Edit14.Left; + //Panel5.top:=Edit14.top+Edit14.Height; +end; + +procedure TfrmZJManageNewFD.MJIDKeyPress(Sender: TObject; var Key: Char); +var + FCount,i:Integer; + FXJXH:String; +begin + if Key=#13 then + begin + MJID.SelectAll; + ClearControl(Panel1,'',Panel1.ControlCount); + ClearControl(Panel2,'',Panel2.ControlCount); + ClearControl(Panel3,'',Panel3.ControlCount); + Label12.Visible:=True; + Label12.Caption:=Trim(MJID.Text); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.add('select MJCDHZ=dbo.F_Get_WFBOrder_SubStr(A.MJID,''MJCDHZ''), D.*,'); + SQL.Add('A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.WKMS,B.SWFBCode,B.SWFBCodeName '); + sql.add('from WFB_MJJY A inner join WFBOrder_Sub_AnPai D on A.APId=D.APId'); + sql.Add('inner join WFBOrder_Sub B on A.SubId=B.SubId'); + sql.Add('inner join WFBOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.MJID='''+Trim(MJID.Text)+''''); + sql.Add(' and A.Valie=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Cds_Main); + SInitCDSData20(ADOQueryMain,Cds_Main); + if Cds_Main.IsEmpty then + begin + MJCDHZ.Text:=''; + InitGridCDID(); + InitGridCD(); + Label12.Visible:=False; + MJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + MJCDHZ.Visible:=True; + MJCDHZ.Text:=Trim(Cds_Main.fieldbyname('MJCDHZ').AsString); + SmalNote.Text:=Trim(Cds_Main.fieldbyname('SmalNote').AsString); + if Cds_Main.FieldByName('SmalCount').Value<1 then + begin + Application.MessageBox('иС1','ʾ',0); + Exit; + end else + begin + FCount:=Cds_Main.FieldByName('SmalCount').Value; + VisbleControl(Panel1,False,Panel1.ControlCount); + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel3,False,Panel3.ControlCount); + VisbleControl(Panel4,False,Panel4.ControlCount); + VisbleControl(Panel1,True,FCount); + VisbleControl(Panel2,True,FCount); + VisbleControl(Panel3,True,FCount); + VisbleControl(Panel4,True,FCount); + VisbleControl(Panel7,True,FCount); + VisbleControl(Panel8,True,FCount); + SCSHDataCDS(Cds_Main,Panel1,0); + end; + InitGridCDID(); + InitGridCD(); + finally + ADOQueryMain.EnableControls; + end; + MJID.Text:=''; + {if CDS_XJID.IsEmpty=False then + begin + with CDS_XJID do + begin + First; + while not Eof do + begin + + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); + Next; + end; + end; + end; } + end; +end; + +procedure TfrmZJManageNewFD.Button2Click(Sender: TObject); +begin + WriteCxGrid('ʾϢ',TvSel,'޷IJ'); + Close; +end; + +procedure TfrmZJManageNewFD.FormShow(Sender: TObject); +begin + ReadCxGrid('ʾϢ',TvSel,'޷IJ'); + InitJP(); +end; + +procedure TfrmZJManageNewFD.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCDZJ'' order by ZDYNO '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ûжСõ㣡','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>17 then + begin + i:=29; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmZJManageNewFD.Button4Click(Sender: TObject); +var + i:Integer; +begin + if Trim(CDBeg.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + with CDS_XJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(CDBeg.Text); + FieldByName('CDEnd').Value:=Trim(CDEnd.Text); + if Trim(CDEnd.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDEnd.Text)-StrToFloat(CDBeg.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + FieldByName('XJInt').Value:=i+1; + Post; + end; + end; + end; + end; + CDBeg.Text:=''; + CDEnd.Text:=''; + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNewFD.SpeedButton13Click(Sender: TObject); +var + i,j:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + j:=9; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + CDBeg.SetFocus; + + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim('CDBeg'); + end; + end; + end; +end; +procedure TfrmZJManageNewFD.InitGridCD(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + if Trim(CDS_XJID.fieldbyname('XJID').AsString)<>'' then + begin + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID'); + sql.Add(' where B.MJID='''+Trim(MJID.Text)+''''); + end + else + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJCD); + SInitCDSData20(ADOQueryMain,CDS_XJCD); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmZJManageNewFD.InitGridCDID(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(MJID.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJID); + SInitCDSData20(ADOQueryMain,CDS_XJID); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZJManageNewFD.Button5Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNewFD.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(CDS_XJCD.fieldbyname('XJID').AsString)<>'' then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_XJCD.Delete; +end; + +procedure TfrmZJManageNewFD.Button3Click(Sender: TObject); +var + i,j,FXJInt,CRID:Integer; + FXJSJKZ:Double; + maxno,maxnocd,MaxCkNo,MaxCkSubNo,XJBanZu,FFXJLen,FFXJMaoZ,FFXJFk,FFXJFree,FFXJJt:String; +begin + if Cds_Main.IsEmpty then Exit; + with Panel2 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + with Panel3 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + if Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ȲΪգ','ʾ',0); + Exit; + end else + begin + FFXJLen:=Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJMaoZ:=Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJFk:=Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJFree:='0'; + end else + begin + FFXJFree:=Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJJt:='0'; + end else + begin + FFXJJt:=Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text); + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵ룬볢´ӡ','',0); + Exit; + end; + FXJSJKZ:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )<-0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )>0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + //////////////////////////////////////////////////////////////С + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + XJBanZu:=Trim(ADOQueryTemp.fieldbyname('BanZu').AsString); + if GetLSNo(ADOQueryCmd,maxno,Trim(XJFlag),'WFB_XJJY',4,1)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡС쳣','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from WFB_XJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJID').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + FieldByName('XJBanZu').Value:=Trim(XJBanZu); + FieldByName('JTTYpe').Value:=Trim(XJFlag); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('XJSJKZ').Value:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + //FieldByName('') + Post; + end; + with CDS_XJID do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + Post; + end; + //////////////////////////////////////////////////////////////С + //////////////////////////////////////////////////////////////Сõ + with CDS_XJCD do + begin + First; + while not Eof do + begin + if CDS_XJCD.FieldByName('XJInt').Value=FXJInt then + begin + if GetLSNo(ADOQueryCmd,maxnocd,'XC','WFB_XJJY_CD',5,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСõʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_XJJY_CD where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XCID').Value:=Trim(maxnocd); + FieldByName('CDName').Value:=CDS_XJCD.fieldbyname('CDName').Value; + FieldByName('CDBeg').Value:=CDS_XJCD.fieldbyname('CDBeg').Value; + FieldByName('CDEnd').Value:=CDS_XJCD.fieldbyname('CDEnd').Value; + FieldByName('CDQty').Value:=CDS_XJCD.fieldbyname('CDQty').Value; + Post; + end; + end; + Next; + end; + end; + //////////////////////////////////////////////////////////////Сõ + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryTemp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Cds_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Cds_Main.fieldbyname('SubId').AsString); + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJId').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('MQty').Value:=StrToFloat(FFXJLen); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('KCKGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('KCMQty').Value:=StrToFloat(FFXJLen); + Post; + end; + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + ADOQueryCmd.Connection.CommitTrans; + PrintData(Trim(maxno),''); + //Application.MessageBox('ɹ','ʾ',0); + //MJID.SelectAll; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +procedure TfrmZJManageNewFD.PrintData(FXJID:string;CDFlag:String); +var + fPrintFile,LabInt,LabName:String; +begin + if Trim(FXJID)='' then exit; + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + if Trim(CDFlag)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_XJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where XJID='''+Trim(FXJID)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select C.LbXInt,C.LbXName from WFB_XJJY A'); + sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID'); + sql.Add(' inner join WFBOrder_Main C on B.MainId=C.MainId'); + sql.Add(' where A.XJID='''+Trim(FXJID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + LabInt:=ADOQueryTemp.fieldbyname('LbXInt').AsString; + LabName:=ADOQueryTemp.fieldbyname('LbXName').AsString; + end ; + if Trim(LabName)='' then + begin + Application.MessageBox('Сǩδã','ʾ',0); + Exit; + end; + { try + frmLabelPrint:=TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + fLabelId:=LabInt; + FFCDFlag:=Trim(CDFlag); + fKeyNo:=Trim(FXJID); + fIsPreviewPrint:=True; + frmLabelPrint.Button1.Click; + // if ShowModal=1 then + //begin + + // end; + end; + finally + frmLabelPrint.Free; + end; } + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(AA.XJID) XJID,RTrim(Cast(AA.XJSJKZ as varchar(20))) XJSJKZ,RTrim(cast(Cast(AA.XJFK*10 as int) as varchar(20))) XJFK,RTrim(B.OrderNo)+'''+Trim(CDFlag)+''' OrderNo'); + sql.Add(',Rtrim(C.SWFBColor) SWFBColor, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + SQL.Add(',EngColor=(select Top 1 note from KH_Zdy where ZdyName=C.SWFBColor)'); + sql.Add(',Rtrim(Cast(AA.XJlen as varchar(20))) XJlen,Rtrim(Cast(AA.XJMaoZ as varchar(20))) XJMaoZ'); + sql.Add(',Rtrim(Cast(AA.XJFree as varchar(20))) XJFree,Rtrim(Cast( Cast(AA.XJlen*AA.XJFK/100 as int) as varchar(20))) XJPFM'); + sql.Add(',Rtrim(Cast(Cast(C.SWFBKZ as int) as varchar(20))) SWFBKZ'); + sql.Add(',Rtrim(Cast(Cast(AA.XJJt as int) as varchar(20))) XJJt'); + sql.Add(',RTrim(B.LbEngName) LbEngName'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_XJJY AA '); + sql.add(' inner join WFB_MJJY A on AA.MJID=A.MJID') ; + sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where AA.XJID='''+Trim(FXJID)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + Rm2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmZJManageNewFD.Button6Click(Sender: TObject); +var + i,j,FXJInt:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + MovePanel3.Visible:=True; + // PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + //MJID.SelectAll; +end; + +procedure TfrmZJManageNewFD.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FXJXH:String; +begin + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); +end; + +procedure TfrmZJManageNewFD.Button1Click(Sender: TObject); +begin + MovePanel2.Visible:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId,C.SWFBKZ '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB'')'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HJ); + SInitCDSData20(ADOQueryTemp,CDS_HJ); +end; + +procedure TfrmZJManageNewFD.Button8Click(Sender: TObject); +begin + MovePanel2.Visible:=False; +end; + +procedure TfrmZJManageNewFD.Button7Click(Sender: TObject); +var + maxno,fPrintFile,maxnosub:String; + i:Double; +begin + if Application.MessageBox('ȷҪϾ𣿺Ͼݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'','WFB_MJJY',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_HJ.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_HJ.fieldbyname('SubId').AsString); + FieldByName('APId').Value:=Trim(CDS_HJ.fieldbyname('APId').AsString); + FieldByName('MJId').Value:=Trim(maxno); + FieldByName('MJMaoZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[1]; + FieldByName('MJLen').Value:=TvHJ.DataController.Summary.FooterSummaryValues[2]; + FieldByName('MJFK').Value:=TvHJ.DataController.Summary.FooterSummaryValues[5]; + FieldByName('MJSJKZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[4]; + FieldByName('MJType').Value:='Ͼ'; + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + + Post; + end; + i:=0; + with CDS_HJ do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set HJMJID='''+Trim(maxno)+''''); + SQL.Add(',MJType=''Ͼ'',Valie=''N'' '); + SQL.Add(' where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOQueryCmd,maxnosub,'','WFB_MJJY_CD',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where 1<>1'); + open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MCID').Value:=Trim(maxnosub); + FieldByName('CDBeg').Value:=ADOQueryTemp.fieldbyname('CDBeg').Value+i; + FieldByName('CDEnd').Value:=ADOQueryTemp.fieldbyname('CDEnd').Value+i; + FieldByName('CDQty').Value:=ADOQueryTemp.fieldbyname('CDQty').Value; + FieldByName('CDName').Value:=ADOQueryTemp.fieldbyname('CDName').Value; + Post; + end; + Next; + end; + end; + i:=i+CDS_HJ.FieldByName('MJLen').Value; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select RTrim(A.MJID) MJID,RTrim(Cast(A.MJSJKZ As varchar(20))) MJSJKZ,RTrim(Cast(A.MJFK as varchar(20))) MJFK,RTrim(B.OrderNo) OrderNo,'); + sql.Add(' RTrim(Cast(A.MJMaoZ As varchar(20))) MJMaoZ,RTrim(Cast(A.MJLen As varchar(20))) MJLen,'); + sql.Add(' Rtrim(C.SWFBColor) SWFBColor,Rtrim(Cast(C.SWFBKZ as varchar(20))) SWFBKZ, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(maxno)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + Application.MessageBox('Ͼɹ','ʾ',0); + MovePanel2.Visible:=False; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ͼ쳣','ʾ',0); + end; + +end; + +procedure TfrmZJManageNewFD.HJMJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_MJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_XJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + HJMJID.Text:=''; + Application.MessageBox('˴ѷУ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB''),C.SWFBKZ'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and A.valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if CDS_HJ.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + HJMJID.Text:=''; + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + if CDS_HJ.IsEmpty=False then + begin + if CDS_HJ.Locate('SubId',Trim(ADOQueryTemp.fieldbyname('SubId').AsString),[])=False then + begin + HJMJID.Text:=''; + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + {if CDS_HJ.Locate('YLPB',Trim(ADOQueryTemp.fieldbyname('YLPB').AsString),[])=False then + begin + Application.MessageBox('ԭȲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBCode',Trim(ADOQueryTemp.fieldbyname('SWFBCode').AsString),[])=False then + begin + Application.MessageBox('ƷŲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBColor',Trim(ADOQueryTemp.fieldbyname('SWFBColor').AsString),[])=False then + begin + Application.MessageBox('ɫͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBHW',Trim(ADOQueryTemp.fieldbyname('SWFBHW').AsString),[])=False then + begin + Application.MessageBox('ͲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('WKMS',Trim(ADOQueryTemp.fieldbyname('WKMS').AsString),[])=False then + begin + Application.MessageBox('ĿͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('XJFK',Trim(ADOQueryTemp.fieldbyname('XJFK').AsString),[])=False then + begin + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBKZ',Trim(ADOQueryTemp.fieldbyname('SWFBKZ').AsString),[])=False then + begin + Application.MessageBox('زͬܺϾ','ʾ',0); + Exit; + end; } + end; + with CDS_HJ do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('SubId').Value:=ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('MainId').Value:=ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('YLPB').Value:=ADOQueryTemp.fieldbyname('YLPB').Value; + FieldByName('SWFBCode').Value:=ADOQueryTemp.fieldbyname('SWFBCode').Value; + FieldByName('SWFBCodeName').Value:=ADOQueryTemp.fieldbyname('SWFBCodeName').Value; + FieldByName('SWFBColor').Value:=ADOQueryTemp.fieldbyname('SWFBColor').Value; + FieldByName('WKMS').Value:=ADOQueryTemp.fieldbyname('WKMS').Value; + FieldByName('SWFBHW').Value:=ADOQueryTemp.fieldbyname('SWFBHW').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + FieldByName('SWFBKZ').Value:=ADOQueryTemp.fieldbyname('SWFBKZ').Value; + FieldByName('MJMaoZ').Value:=ADOQueryTemp.fieldbyname('MJMaoZ').Value; + FieldByName('MJLen').Value:=ADOQueryTemp.fieldbyname('MJLen').Value; + FieldByName('MJFK').Value:=ADOQueryTemp.fieldbyname('MJFK').Value; + FieldByName('MJSJKZ').Value:=ADOQueryTemp.fieldbyname('MJSJKZ').Value; + Post; + end; + end else + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + HJMJID.Text:=''; + end; + +end; + +procedure TfrmZJManageNewFD.TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_HJ.Delete; +end; + +procedure TfrmZJManageNewFD.Button9Click(Sender: TObject); +var + i,j,FXJInt:Integer; + mm,mm2:String; +begin + with ADOQueryTemp do + begin + sql.Clear; + sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(DCode)+''''); + Open; + mm:=Trim(Fields[2].AsString); + if Trim(mm)<>'' then + mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128)) + else + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + close; + end; + + if ( mm2=trim(Password.text) ) then + begin + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + MovePanel3.Visible:=False; + end else + Application.MessageBox('', 'Ϣʾ', MB_OK or MB_ICONinformation); + + //MJID.SelectAll; +end; + +procedure TfrmZJManageNewFD.Button10Click(Sender: TObject); +begin + MovePanel3.Visible:=False; +end; + +procedure TfrmZJManageNewFD.PasswordClick(Sender: TObject); +begin + Panel5.Visible:=True; +end; + +end. diff --git a/贸易管理/U_ZJManageNewFDMORE.dfm b/贸易管理/U_ZJManageNewFDMORE.dfm new file mode 100644 index 0000000..28ee41b --- /dev/null +++ b/贸易管理/U_ZJManageNewFDMORE.dfm @@ -0,0 +1,2804 @@ +object frmZJManageNewFDMORE: TfrmZJManageNewFDMORE + Left = -78 + Top = 21 + Width = 1292 + Height = 734 + Caption = #23567#21367#20998#20999 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 22 + Top = 13 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 22 + Top = 159 + Width = 62 + Height = 58 + Caption = #24133#23485#13#10' cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 22 + Top = 227 + Width = 62 + Height = 58 + Caption = #38271#24230#13#10' M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 22 + Top = 379 + Width = 62 + Height = 58 + Caption = #37325#37327#13#10' Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 22 + Top = 518 + Width = 62 + Height = 29 + Caption = #30133#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 22 + Top = 450 + Width = 62 + Height = 29 + Caption = #36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 992 + Top = 56 + Width = 23 + Height = 84 + Caption = #20998#13#10#20999#13#10#35828#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 22 + Top = 334 + Width = 62 + Height = 29 + Caption = #25509#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 22 + Top = 291 + Width = 62 + Height = 29 + Caption = #36192#36865 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 994 + Top = 16 + Width = 100 + Height = 24 + Caption = #27597#21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 30 + Top = 54 + Width = 42 + Height = 40 + Caption = #38271#24230#13#10#25130#26029 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object MJID: TEdit + Left = 88 + Top = 9 + Width = 233 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = XJLen1Click + OnKeyPress = MJIDKeyPress + end + object ScrollBox1: TScrollBox + Left = 88 + Top = 517 + Width = 501 + Height = 151 + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 3 + Top = 3 + Width = 60 + Height = 60 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 64 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 125 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 186 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 247 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 308 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 369 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 430 + Top = 3 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 3 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 64 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 125 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 186 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 247 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 308 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 369 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 430 + Top = 69 + Width = 60 + Height = 60 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Button1: TButton + Left = 418 + Top = 7 + Width = 145 + Height = 42 + Caption = #21516#21333#21512#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button1Click + end + object Button3: TButton + Left = 571 + Top = 9 + Width = 144 + Height = 40 + Caption = #25171' '#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object cxGrid2: TcxGrid + Left = 584 + Top = 514 + Width = 361 + Height = 156 + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + object v2Column3: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Width = 56 + end + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#31181#31867 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 79 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 61 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = cxStyle2 + Width = 92 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Styles.Content = cxStyle2 + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 944 + Top = 514 + Width = 265 + Height = 155 + TabOrder = 5 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle1 + object v3Column1: TcxGridDBColumn + Caption = #21367#24207#21495 + DataBinding.FieldName = 'XJInt' + Styles.Content = cxStyle2 + Width = 56 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23567#21367#26465#30721 + DataBinding.FieldName = 'XJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 188 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Button6: TButton + Left = 723 + Top = 10 + Width = 145 + Height = 39 + Caption = #37325#26032#25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button6Click + end + object Panel6: TPanel + Left = 88 + Top = 154 + Width = 1122 + Height = 344 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 7 + object Panel1: TPanel + Left = 8 + Top = 7 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object SmalMF1: TEdit + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + end + object SmalMF2: TEdit + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + end + object SmalMF3: TEdit + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + end + object SmalMF4: TEdit + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + end + object SmalMF5: TEdit + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + end + object SmalMF6: TEdit + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + end + object SmalMF7: TEdit + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object SmalMF8: TEdit + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + end + object SmalMF9: TEdit + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + end + object SmalMF10: TEdit + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object SmalMF11: TEdit + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object SmalMF12: TEdit + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + end + object Panel2: TPanel + Left = 8 + Top = 66 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object XJLen1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJLen2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJLen3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJLen4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJLen5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJLen6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJLen7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJLen8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJLen9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJLen10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJLen11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJLen12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel3: TPanel + Left = 8 + Top = 228 + Width = 1105 + Height = 54 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object XJMaoZ1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJMaoZ12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel4: TPanel + Left = 8 + Top = 283 + Width = 1105 + Height = 53 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Sel1: TEdit + Tag = 1 + Left = 27 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnClick = Sel1Click + end + object Sel2: TEdit + Tag = 2 + Left = 119 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Visible = False + OnClick = Sel1Click + end + object Sel3: TEdit + Tag = 3 + Left = 211 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Visible = False + OnClick = Sel1Click + end + object Sel4: TEdit + Tag = 4 + Left = 303 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Visible = False + OnClick = Sel1Click + end + object Sel5: TEdit + Tag = 5 + Left = 395 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Visible = False + OnClick = Sel1Click + end + object Sel6: TEdit + Tag = 6 + Left = 487 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Sel1Click + end + object Sel7: TEdit + Tag = 7 + Left = 578 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + OnClick = Sel1Click + end + object Sel8: TEdit + Tag = 8 + Left = 670 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + Visible = False + OnClick = Sel1Click + end + object Sel9: TEdit + Tag = 9 + Left = 762 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + Visible = False + OnClick = Sel1Click + end + object Sel10: TEdit + Tag = 10 + Left = 854 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + OnClick = Sel1Click + end + object Sel11: TEdit + Tag = 11 + Left = 946 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + OnClick = Sel1Click + end + object Sel12: TEdit + Tag = 12 + Left = 1038 + Top = 5 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + OnClick = Sel1Click + end + end + object Panel7: TPanel + Left = 8 + Top = 124 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object XJFree1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XJFree2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XJFree3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XJFree4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XJFree5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XJFree6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XJFree7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XJFree8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XJFree9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XJFree10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XJFree11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XJFree12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + object Panel8: TPanel + Left = 8 + Top = 172 + Width = 1105 + Height = 52 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object XjJt1: TEdit + Tag = 1 + Left = 9 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = XJLen1Click + end + object XjJt2: TEdit + Tag = 2 + Left = 100 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = XJLen1Click + end + object XjJt3: TEdit + Tag = 3 + Left = 191 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = XJLen1Click + end + object XjJt4: TEdit + Tag = 4 + Left = 282 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + OnClick = XJLen1Click + end + object XjJt5: TEdit + Tag = 5 + Left = 373 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnClick = XJLen1Click + end + object XjJt6: TEdit + Tag = 6 + Left = 464 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + OnClick = XJLen1Click + end + object XjJt7: TEdit + Tag = 7 + Left = 555 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + OnClick = XJLen1Click + end + object XjJt8: TEdit + Tag = 8 + Left = 646 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + Visible = False + OnClick = XJLen1Click + end + object XjJt9: TEdit + Tag = 9 + Left = 737 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + Visible = False + OnClick = XJLen1Click + end + object XjJt10: TEdit + Tag = 10 + Left = 828 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + Visible = False + OnClick = XJLen1Click + end + object XjJt11: TEdit + Tag = 11 + Left = 919 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + Visible = False + OnClick = XJLen1Click + end + object XjJt12: TEdit + Tag = 12 + Left = 1010 + Top = 8 + Width = 85 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + Visible = False + OnClick = XJLen1Click + end + end + end + object cxGrid4: TcxGrid + Left = 88 + Top = 51 + Width = 898 + Height = 55 + TabOrder = 8 + object TvSel: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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 + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = cxStyle3 + object vSelColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 149 + end + object vSelColumn4: TcxGridDBColumn + Caption = #20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 89 + end + object vSelColumn6: TcxGridDBColumn + Caption = #22823#21367#38376#24133'CM' + DataBinding.FieldName = 'MJFK' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 94 + end + object vSelColumn5: TcxGridDBColumn + Caption = #22823#21367#38271'M' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 68 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #22823#21367#37325'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle1 + Width = 81 + end + object vSelColumn2: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MJSJKZ' + Styles.Content = cxStyle3 + Width = 41 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 43 + end + object vSelColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + Styles.Content = cxStyle3 + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle3 + Width = 58 + end + object vSelColumn3: TcxGridDBColumn + Caption = #20998#20999#20010#25968 + DataBinding.FieldName = 'SmalCount' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 79 + end + object vSelColumn8: TcxGridDBColumn + Caption = #20801#35768#20559#24046 + DataBinding.FieldName = 'SmalPC' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle3 + Width = 78 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvSel + end + end + object Button2: TButton + Left = 876 + Top = 10 + Width = 82 + Height = 39 + Caption = #36864#20986 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Button2Click + end + object MJCDHZ: TRichEdit + Left = 88 + Top = 108 + Width = 899 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 10 + end + object SmalNote: TRichEdit + Left = 1016 + Top = 50 + Width = 193 + Height = 98 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Lines.Strings = ( + '') + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 11 + end + object MovePanel2: TMovePanel + Left = 96 + Top = 53 + Width = 1137 + Height = 505 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 12 + Visible = False + object Label8: TLabel + Left = 421 + Top = 24 + Width = 262 + Height = 35 + Caption = #21516' '#21333' '#21512' '#21367 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 22 + Top = 85 + Width = 66 + Height = 33 + Caption = #25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid1: TcxGrid + Left = 8 + Top = 144 + Width = 1121 + Height = 249 + TabOrder = 0 + object TvHJ: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TvHJCellDblClick + DataController.DataSource = DSHJ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = vHJColumn1 + end + item + Kind = skSum + Column = vHJColumn2 + end + item + Format = #21367#20010#25968#65306'#' + Kind = skCount + Column = cxGridDBColumn3 + end + item + Kind = skAverage + Column = vHJColumn11 + end + item + Kind = skAverage + Column = vHJColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle1 + object cxGridDBColumn3: TcxGridDBColumn + Caption = #22823#21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 179 + end + object vHJColumn1: TcxGridDBColumn + Caption = #37325#37327'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn2: TcxGridDBColumn + Caption = #38271#24230'm' + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object vHJColumn3: TcxGridDBColumn + Caption = #24133#23485'cm' + DataBinding.FieldName = 'MJFk' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object vHJColumn11: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'MJSJKZ' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object vHJColumn4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object vHJColumn9: TcxGridDBColumn + Caption = #20135#21697#20195#21495 + DataBinding.FieldName = 'SWFBCodeName' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object vHJColumn10: TcxGridDBColumn + Caption = #21407#26009#37197#27604 + DataBinding.FieldName = 'YLPB' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object vHJColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SWFBColor' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object vHJColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SWFBHW' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object vHJColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SWFBKZ' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object vHJColumn7: TcxGridDBColumn + Caption = #32593#23380#30446#25968 + DataBinding.FieldName = 'WKMS' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvHJ + end + end + object HJMJID: TEdit + Left = 88 + Top = 81 + Width = 244 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = XJLen1Click + OnKeyPress = HJMJIDKeyPress + end + object Button7: TButton + Left = 45 + Top = 431 + Width = 69 + Height = 42 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button7Click + end + object Button8: TButton + Left = 1017 + Top = 431 + Width = 75 + Height = 42 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button8Click + end + object Button12: TButton + Left = 334 + Top = 81 + Width = 78 + Height = 41 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button12Click + end + end + object MovePanel1: TMovePanel + Left = 88 + Top = 487 + Width = 344 + Height = 202 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 13 + Visible = False + object Label17: TLabel + Left = 30 + Top = 24 + Width = 84 + Height = 20 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 185 + Top = 69 + Width = 21 + Height = 20 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 301 + Top = 24 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 301 + Top = 104 + Width = 11 + Height = 20 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 69 + Width = 77 + Height = 20 + Caption = 'Label21' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object CDBeg: TEdit + Tag = 9999 + Left = 119 + Top = 16 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = XJLen1Click + end + object Button4: TButton + Left = 31 + Top = 147 + Width = 66 + Height = 38 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + object Button5: TButton + Left = 246 + Top = 147 + Width = 66 + Height = 38 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button5Click + end + object CDEnd: TEdit + Tag = 9999 + Left = 119 + Top = 94 + Width = 174 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = XJLen1Click + end + end + object MovePanel3: TMovePanel + Left = 568 + Top = 104 + Width = 321 + Height = 177 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 14 + Visible = False + object Label13: TLabel + Left = 88 + Top = 16 + Width = 132 + Height = 33 + Caption = #36755#20837#23494#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + end + object Button9: TButton + Left = 32 + Top = 112 + Width = 75 + Height = 49 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button9Click + end + object Button10: TButton + Left = 200 + Top = 112 + Width = 75 + Height = 49 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button10Click + end + object Password: TEdit + Tag = 99999 + Left = 32 + Top = 56 + Width = 241 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + PasswordChar = '*' + TabOrder = 2 + OnClick = XJLen1Click + end + end + object LenCut: TEdit + Tag = 1 + Left = 31 + Top = 99 + Width = 43 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 15 + OnClick = LenCutClick + end + object Button11: TButton + Left = 326 + Top = 8 + Width = 78 + Height = 41 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Button11Click + end + object Panel5: TPanel + Left = 586 + Top = 501 + Width = 625 + Height = 172 + BevelInner = bvRaised + BevelOuter = bvLowered + ParentColor = True + TabOrder = 17 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 88 + Top = 3 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 172 + Top = 3 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 256 + Top = 3 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 340 + Top = 3 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 4 + Top = 87 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 88 + Top = 87 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 172 + Top = 87 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 256 + Top = 87 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 340 + Top = 87 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 424 + Top = 87 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 424 + Top = 3 + Width = 80 + Height = 80 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -53 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 517 + Top = 88 + Width = 84 + Height = 77 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + object SpeedButton29: TSpeedButton + Tag = 9 + Left = 517 + Top = 6 + Width = 84 + Height = 77 + Caption = #20840#28165 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton29Click + end + end + object KWName: TEdit + Left = 0 + Top = 595 + Width = 88 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 18 + Visible = False + end + object KWSel: TButton + Left = 0 + Top = 565 + Width = 87 + Height = 31 + Caption = #25176#30424#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 19 + Visible = False + OnClick = KWSelClick + end + object ZdyFlag: TEdit + Left = 8 + Top = 632 + Width = 57 + Height = 21 + TabOrder = 20 + Visible = False + end + object cxStyleRepository5: TcxStyleRepository + Left = 954 + Top = 65532 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 1232 + Top = 124 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 598 + Top = 75 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 686 + Top = 74 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + Parameters = <> + Left = 638 + Top = 74 + end + object DataSource1: TDataSource + DataSet = Cds_Main + Left = 744 + Top = 76 + end + object Cds_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 800 + Top = 76 + end + object DataSource3: TDataSource + DataSet = CDS_XJID + Left = 1000 + Top = 670 + end + object CDS_XJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 670 + end + object DataSource2: TDataSource + DataSet = CDS_XJCD + Left = 752 + Top = 670 + end + object CDS_XJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 792 + Top = 670 + end + object cxStyleRepository2: TcxStyleRepository + object cxStyle3: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 136 + Top = 120 + 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 = 104 + Top = 120 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WFBProducttion.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 168 + Top = 120 + end + object DSHJ: TDataSource + DataSet = CDS_HJ + Left = 352 + Top = 550 + end + object CDS_HJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 550 + end +end diff --git a/贸易管理/U_ZJManageNewFDMORE.pas b/贸易管理/U_ZJManageNewFDMORE.pas new file mode 100644 index 0000000..a9d624a --- /dev/null +++ b/贸易管理/U_ZJManageNewFDMORE.pas @@ -0,0 +1,2026 @@ +unit U_ZJManageNewFDMORE; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, Buttons, ExtCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, ADODB, + DBClient, ComCtrls, RM_Common, RM_Class, RM_GridReport, RM_System, + RM_Dataset; + +type + TfrmZJManageNewFDMORE = class(TForm) + MJID: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + Button1: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Button6: TButton; + Panel6: TPanel; + Panel1: TPanel; + SmalMF1: TEdit; + SmalMF2: TEdit; + SmalMF3: TEdit; + SmalMF4: TEdit; + SmalMF5: TEdit; + SmalMF6: TEdit; + SmalMF7: TEdit; + SmalMF8: TEdit; + SmalMF9: TEdit; + SmalMF10: TEdit; + SmalMF11: TEdit; + SmalMF12: TEdit; + Panel2: TPanel; + XJLen1: TEdit; + XJLen2: TEdit; + XJLen3: TEdit; + XJLen4: TEdit; + XJLen5: TEdit; + XJLen6: TEdit; + XJLen7: TEdit; + XJLen8: TEdit; + XJLen9: TEdit; + XJLen10: TEdit; + XJLen11: TEdit; + XJLen12: TEdit; + Panel3: TPanel; + XJMaoZ1: TEdit; + XJMaoZ2: TEdit; + XJMaoZ3: TEdit; + XJMaoZ4: TEdit; + XJMaoZ5: TEdit; + XJMaoZ6: TEdit; + XJMaoZ7: TEdit; + XJMaoZ8: TEdit; + XJMaoZ9: TEdit; + XJMaoZ10: TEdit; + XJMaoZ11: TEdit; + XJMaoZ12: TEdit; + Panel4: TPanel; + Sel1: TEdit; + Sel2: TEdit; + Sel3: TEdit; + Sel4: TEdit; + Sel5: TEdit; + Sel6: TEdit; + Sel7: TEdit; + Sel8: TEdit; + Sel9: TEdit; + Sel10: TEdit; + Sel11: TEdit; + Sel12: TEdit; + ADOQueryTemp: TADOQuery; + cxGrid4: TcxGrid; + TvSel: TcxGridDBTableView; + vSelColumn1: TcxGridDBColumn; + vSelColumn4: TcxGridDBColumn; + vSelColumn6: TcxGridDBColumn; + vSelColumn5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + vSelColumn7: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + vSelColumn2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + vSelColumn3: TcxGridDBColumn; + vSelColumn8: TcxGridDBColumn; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Cds_Main: TClientDataSet; + Button2: TButton; + MJCDHZ: TRichEdit; + DataSource3: TDataSource; + CDS_XJID: TClientDataSet; + DataSource2: TDataSource; + CDS_XJCD: TClientDataSet; + v2Column3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + SmalNote: TRichEdit; + Label7: TLabel; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + ADOQueryPrint: TADOQuery; + MovePanel2: TMovePanel; + Label8: TLabel; + cxGrid1: TcxGrid; + TvHJ: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + DSHJ: TDataSource; + CDS_HJ: TClientDataSet; + vHJColumn1: TcxGridDBColumn; + vHJColumn2: TcxGridDBColumn; + vHJColumn3: TcxGridDBColumn; + Label9: TLabel; + HJMJID: TEdit; + Button7: TButton; + Button8: TButton; + vHJColumn4: TcxGridDBColumn; + vHJColumn5: TcxGridDBColumn; + vHJColumn6: TcxGridDBColumn; + vHJColumn7: TcxGridDBColumn; + vHJColumn8: TcxGridDBColumn; + vHJColumn9: TcxGridDBColumn; + vHJColumn10: TcxGridDBColumn; + vHJColumn11: TcxGridDBColumn; + Panel7: TPanel; + XJFree1: TEdit; + XJFree2: TEdit; + XJFree3: TEdit; + XJFree4: TEdit; + XJFree5: TEdit; + XJFree6: TEdit; + XJFree7: TEdit; + XJFree8: TEdit; + XJFree9: TEdit; + XJFree10: TEdit; + XJFree11: TEdit; + XJFree12: TEdit; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + CDBeg: TEdit; + Button4: TButton; + Button5: TButton; + CDEnd: TEdit; + Panel8: TPanel; + XjJt1: TEdit; + XjJt2: TEdit; + XjJt3: TEdit; + XjJt4: TEdit; + XjJt5: TEdit; + XjJt6: TEdit; + XjJt7: TEdit; + XjJt8: TEdit; + XjJt9: TEdit; + XjJt10: TEdit; + XjJt11: TEdit; + XjJt12: TEdit; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + MovePanel3: TMovePanel; + Button9: TButton; + Button10: TButton; + Password: TEdit; + Label13: TLabel; + Label14: TLabel; + LenCut: TEdit; + Button11: TButton; + Button12: TButton; + Panel5: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + SpeedButton29: TSpeedButton; + KWName: TEdit; + KWSel: TButton; + ZdyFlag: TEdit; + procedure Sel1Click(Sender: TObject); + procedure Edit64Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure XJLen1Click(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button2Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure HJMJIDKeyPress(Sender: TObject; var Key: Char); + procedure TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button9Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure PasswordClick(Sender: TObject); + procedure LenCutClick(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure SpeedButton29Click(Sender: TObject); + procedure KWSelClick(Sender: TObject); + private + { Private declarations } + FCDName,FPanname,PrintFlag:string; + procedure ClearSpenndHit(); + procedure VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); + function ChkEditNULL(panel55:TWinControl):Boolean; + procedure InitJP(); + procedure InitGridCD(); + procedure InitGridCDID(); + procedure ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); + procedure PrintData(FXJID:string;CDFlag:String); + public + { Public declarations } + end; + +var + frmZJManageNewFDMORE: TfrmZJManageNewFDMORE; + +implementation +uses +U_DataLink,U_Fun,U_ZDYHelp,U_iniParam,AES,ElAES,U_LabelPrint; + +{$R *.dfm} + +procedure TfrmZJManageNewFDMORE.Sel1Click(Sender: TObject); +begin + if Trim(TcxTextEdit(Sender).Text)='' then + begin + TcxTextEdit(Sender).Text:=''; + end else + begin + TcxTextEdit(Sender).Text:=''; + end; +end; + +procedure TfrmZJManageNewFDMORE.Edit64Click(Sender: TObject); +var + i:Integer; +begin + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; +procedure TfrmZJManageNewFDMORE.ClearSpenndHit(); +var + i:Integer; +begin + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=''; + end; + end; + end; +end; +procedure TfrmZJManageNewFDMORE.VisbleControl(Panel55:TWinControl;XS:Boolean;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + Controls[i].Visible:=XS; + end; + end; +end; +procedure TfrmZJManageNewFDMORE.ClearControl(Panel55:TWinControl;ConValue:String;SXCount:Integer); +var + i:Integer; +begin + with Panel55 do + begin + for i:=0 to SXCount-1 do + begin + TEdit(Controls[i]).Text:=ConValue; + end; + end; +end; + +procedure TfrmZJManageNewFDMORE.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNewFDMORE.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmZJManageNewFDMORE.SpeedButton49Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +function TfrmZJManageNewFDMORE.ChkEditNULL(panel55:TWinControl):Boolean; +var + i:Integer; +begin + Result:=False; + with panel55 do + begin + for i:=0 to panel55.ControlCount-1 do + begin + if Controls[i].Visible=True then + begin + if Trim(TEdit(Controls[i]).Text)='' then + begin + Result:=False; + Break; + end else + begin + Result:=True; + end; + end; + + end; + end; + +end; + +procedure TfrmZJManageNewFDMORE.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZJManageNewFDMORE.FormDestroy(Sender: TObject); +begin + frmZJManageNewFDMORE:=nil; +end; + +procedure TfrmZJManageNewFDMORE.XJLen1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(LenCut.Text)='' then + begin + if CDS_XJID.IsEmpty=False then + begin + if CDS_XJID.Locate('XJInt',TEdit(Sender).tag,[])=True then + begin + TEdit(Sender).Text:=Trim(CDS_XJID.fieldbyname(Copy(Trim(TEdit(Sender).Name),1,Length(Trim(TEdit(Sender).Name))-1)).AsString); + Panel5.Visible:=False; + Exit; + end; + end; + end; + FPanname:=Trim(Copy(Trim(TEdit(Sender).Name),1,Length(Trim(TEdit(Sender).Name))-1)); + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; + // Panel5.Left:=Edit14.Left; + //Panel5.top:=Edit14.top+Edit14.Height; +end; + +procedure TfrmZJManageNewFDMORE.MJIDKeyPress(Sender: TObject; var Key: Char); +var + FCount,i:Integer; + FXJXH:String; +begin + if Key=#13 then + begin + KWName.Text:=''; + KWName.Hint:=''; + ZdyFlag.Text:=''; + MJID.SelectAll; + ClearControl(Panel1,'',Panel1.ControlCount); + ClearControl(Panel2,'',Panel2.ControlCount); + ClearControl(Panel3,'',Panel3.ControlCount); + Label12.Visible:=True; + Label12.Caption:=Trim(MJID.Text); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.add('select MJCDHZ=dbo.F_Get_WFBOrder_SubStr(A.MJID,''MJCDHZ''), D.*,'); + SQL.Add('A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.WKMS,B.SWFBCode,B.SWFBCodeName,B.SubType'); + sql.add('from WFB_MJJY A inner join WFBOrder_Sub_AnPai D on A.APId=D.APId'); + sql.Add('inner join WFBOrder_Sub B on A.SubId=B.SubId'); + sql.Add('inner join WFBOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.MJID='''+Trim(MJID.Text)+''''); + sql.Add(' and A.Valie=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Cds_Main); + SInitCDSData20(ADOQueryMain,Cds_Main); + if Cds_Main.IsEmpty then + begin + MJCDHZ.Text:=''; + InitGridCDID(); + InitGridCD(); + Label12.Visible:=False; + MJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + MJCDHZ.Visible:=True; + MJCDHZ.Text:=Trim(Cds_Main.fieldbyname('MJCDHZ').AsString); + SmalNote.Text:=Trim(Cds_Main.fieldbyname('SmalNote').AsString); + if Cds_Main.FieldByName('SmalCount').Value<1 then + begin + Application.MessageBox('иС1','ʾ',0); + Exit; + end else + begin + FCount:=Cds_Main.FieldByName('SmalCount').Value; + VisbleControl(Panel1,False,Panel1.ControlCount); + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel3,False,Panel3.ControlCount); + VisbleControl(Panel4,False,Panel4.ControlCount); + VisbleControl(Panel1,True,FCount); + VisbleControl(Panel2,True,FCount); + VisbleControl(Panel3,True,FCount); + VisbleControl(Panel4,True,FCount); + VisbleControl(Panel7,True,FCount); + VisbleControl(Panel8,True,FCount); + SCSHDataCDS(Cds_Main,Panel1,0); + end; + InitGridCDID(); + InitGridCD(); + if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + begin + KWSel.Visible:=True; + KWName.Visible:=True; + end else + begin + KWSel.Visible:=False; + KWName.Visible:=False; + end; + finally + ADOQueryMain.EnableControls; + end; + MJID.Text:=''; + with Panel3 do + begin + for i:=0 to Panel3.ControlCount-1 do + begin + TEdit(Controls[i]).Hint:=''; + end; + end; + {if CDS_XJID.IsEmpty=False then + begin + with CDS_XJID do + begin + First; + while not Eof do + begin + + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); + Next; + end; + end; + end; } + end; +end; + +procedure TfrmZJManageNewFDMORE.Button2Click(Sender: TObject); +begin + WriteCxGrid('ʾϢ',TvSel,'޷IJ'); + Close; +end; + +procedure TfrmZJManageNewFDMORE.FormShow(Sender: TObject); +begin + ReadCxGrid('ʾϢ',TvSel,'޷IJ'); + InitJP(); +end; + +procedure TfrmZJManageNewFDMORE.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCDZJ'' order by ZDYNO '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ûжСõ㣡','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>17 then + begin + i:=29; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmZJManageNewFDMORE.Button4Click(Sender: TObject); +var + i:Integer; +begin + if Trim(CDBeg.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + with CDS_XJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(CDBeg.Text); + FieldByName('CDEnd').Value:=Trim(CDEnd.Text); + if Trim(CDEnd.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDEnd.Text)-StrToFloat(CDBeg.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + FieldByName('XJInt').Value:=i+1; + Post; + end; + end; + end; + end; + CDBeg.Text:=''; + CDEnd.Text:=''; + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNewFDMORE.SpeedButton13Click(Sender: TObject); +var + i,j:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + j:=9; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + CDBeg.SetFocus; + + Panel5.Visible:=True; + with Panel5 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim('CDBeg'); + end; + end; + end; +end; +procedure TfrmZJManageNewFDMORE.InitGridCD(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + if Trim(CDS_XJID.fieldbyname('XJID').AsString)<>'' then + begin + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID'); + sql.Add(' where B.MJID='''+Trim(MJID.Text)+''''); + end + else + sql.Add('select A.*,B.XJInt from WFB_XJJY_CD A inner join WFB_XJJY B on A.XJID=B.XJID where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJCD); + SInitCDSData20(ADOQueryMain,CDS_XJCD); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmZJManageNewFDMORE.InitGridCDID(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(MJID.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_XJID); + SInitCDSData20(ADOQueryMain,CDS_XJID); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZJManageNewFDMORE.Button5Click(Sender: TObject); +begin + MovePanel1.Visible:=False; +end; + +procedure TfrmZJManageNewFDMORE.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(CDS_XJCD.fieldbyname('XJID').AsString)<>'' then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_XJCD.Delete; +end; + +procedure TfrmZJManageNewFDMORE.Button3Click(Sender: TObject); +var + i,j,FXJInt,CRID:Integer; + FXJSJKZ:Double; + maxno,maxnocd,MaxCkNo,MaxCkSubNo,XJBanZu,FFXJLen,FFXJMaoZ,FFXJFk,FFXJFree,FFXJJt:String; +begin + if Cds_Main.IsEmpty then Exit; + with Panel2 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + with Panel3 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if TEdit(Controls[i]).Text='' then + begin + Application.MessageBox('δȫ¼룬ܴӡ','ʾ',0); + Exit; + end; + end; + end; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + if Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ȲΪգ','ʾ',0); + Exit; + end else + begin + FFXJLen:=Trim(TEdit(FindComponent('XJLen'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJMaoZ:=Trim(TEdit(FindComponent('XJMaoZ'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + Application.MessageBox('ëزΪգ','ʾ',0); + Exit; + end else + begin + FFXJFk:=Trim(TEdit(FindComponent('SmalMF'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJFree:='0'; + end else + begin + FFXJFree:=Trim(TEdit(FindComponent('XJFree'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text)='' then + begin + FFXJJt:='0'; + end else + begin + FFXJJt:=Trim(TEdit(FindComponent('XJJt'+Trim(IntToStr(FXJInt)))).Text); + end; + if Trim(LenCut.Text)='' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵ룬볢´ӡ','',0); + Exit; + end; + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Sum(XJLen),0) XJLen from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if( (ADOQueryTemp.FieldByName('XJLen').Value+StrToFloat(FFXJLen)-CDS_Main.FieldByName('MJLen').Value)/(CDS_Main.FieldByName('MJLen').Value) )>0.05 then + begin + Application.MessageBox('Сܳȴĸȣ˶!','ʾ',0); + Exit; + end; + end; + FXJSJKZ:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )<-0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + if( (FXJSJKZ-Cds_Main.FieldByName('MJSJKZ').Value)/Cds_Main.FieldByName('MJSJKZ').Value )>0.3 then + begin + Application.MessageBox('ݣ','ʾ',0); + Exit; + end; + if KWName.Visible=True then + begin + if Trim(KWName.Text)='' then + begin + Application.MessageBox('̲Ϊ!','ʾ',0); + exit; + end; + end; + if Trim(LenCut.Text)<>'' then + begin + if TEdit(FindComponent('XJMaoZ'+Trim(inttostr(FXJInt)))).Hint='2' then + begin + Application.MessageBox('δȫݣܴӡ!','ʾ',0); + Exit; + end; + end; + try + ADOQueryCmd.Connection.BeginTrans; + //////////////////////////////////////////////////////////////С + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + XJBanZu:=Trim(ADOQueryTemp.fieldbyname('BanZu').AsString); + if GetLSNo(ADOQueryCmd,maxno,Trim(XJFlag),'WFB_XJJY',4,1)=false then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡС쳣','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from WFB_XJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJID').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + FieldByName('XJBanZu').Value:=Trim(XJBanZu); + FieldByName('JTTYpe').Value:=Trim(XJFlag); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('XJSJKZ').Value:=StrToFloat(FFXJMaoZ)/(StrToFloat(FFXJLen)*StrToFloat(FFXJFk)/100)*1000; + //FieldByName('') + Post; + end; + with CDS_XJID do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XJInt').Value:=FXJInt; + FieldByName('XJLen').Value:=StrToFloat(FFXJLen); + FieldByName('XJMaoZ').Value:=StrToFloat(FFXJMaoZ); + FieldByName('XJFK').Value:=StrToFloat(FFXJFk); + FieldByName('XJFree').Value:=StrToFloat(FFXJFree); + FieldByName('XJJt').Value:=StrToFloat(FFXJJt); + Post; + end; + //////////////////////////////////////////////////////////////С + //////////////////////////////////////////////////////////////Сõ + with CDS_XJCD do + begin + First; + while not Eof do + begin + if CDS_XJCD.FieldByName('XJInt').Value=FXJInt then + begin + if GetLSNo(ADOQueryCmd,maxnocd,'XC','WFB_XJJY_CD',5,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСõʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_XJJY_CD where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('XCID').Value:=Trim(maxnocd); + FieldByName('CDName').Value:=CDS_XJCD.fieldbyname('CDName').Value; + FieldByName('CDBeg').Value:=CDS_XJCD.fieldbyname('CDBeg').Value; + FieldByName('CDEnd').Value:=CDS_XJCD.fieldbyname('CDEnd').Value; + FieldByName('CDQty').Value:=CDS_XJCD.fieldbyname('CDQty').Value; + Post; + end; + end; + Next; + end; + end; + //////////////////////////////////////////////////////////////Сõ + //////////////////////////////////////////////////////////////浽ֿ//////////////////////////////////////////////// + if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_DJCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_DJCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryTemp,MaxCkNo,Trim(ZdyFlag.Text),'CK_DJCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ룡','ʾ',0); + Exit; + end; + if GetLSNo(ADOQueryTemp,MaxCkSubNo,'CR','CK_DJCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_DJCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('OwnerMainId').Value:=Trim(Cds_Main.fieldbyname('MainId').AsString); + FieldByName('OwnerSubId').Value:=Trim(Cds_Main.fieldbyname('SubId').AsString); + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJId').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('DJID').Value:=Trim(MaxCkNo); + FieldByName('CDID').Value:=Trim(MaxCkSubNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('MQty').Value:=StrToFloat(FFXJLen); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('KWCode').Value:=Trim(KWName.Hint); + FieldByName('KWName').Value:=Trim(KWName.Text); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_DJCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('DJID').Value:=Trim(MaxCkNo); + FieldByName('CDID').Value:=Trim(MaxCkSubNo); + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJId').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('KCKGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('KCMQty').Value:=StrToFloat(FFXJLen); + FieldByName('OwnerMainId').Value:=Trim(Cds_Main.fieldbyname('MainId').AsString); + FieldByName('OwnerSubId').Value:=Trim(Cds_Main.fieldbyname('SubId').AsString); + FieldByName('KWCode').Value:=Trim(KWName.Hint); + FieldByName('KWName').Value:=Trim(KWName.Text); + Post; + end; + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + end else + begin + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOQueryTemp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Cds_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Cds_Main.fieldbyname('SubId').AsString); + FieldByName('MJID').Value:=Trim(Cds_Main.fieldbyname('MJId').AsString); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('MQty').Value:=StrToFloat(FFXJLen); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('XJID').Value:=Trim(maxno); + FieldByName('KCKGQty').Value:=StrToFloat(FFXJMaoZ); + FieldByName('KCMQty').Value:=StrToFloat(FFXJLen); + Post; + end; + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + end; + + ADOQueryCmd.Connection.CommitTrans; + if Trim(LenCut.Text)<>'' then + TEdit(FindComponent('XJMaoZ'+Trim(inttostr(FXJInt)))).Hint:='2'; + + PrintData(Trim(maxno),''); + + {if Trim(LenCut.Text)<>'' then + begin + TEdit(FindComponent('XJMaoZ'+Trim(inttostr(FXJInt)))).Text:=''; + end;} + //Application.MessageBox('ɹ','ʾ',0); + //MJID.SelectAll; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + +end; +procedure TfrmZJManageNewFDMORE.PrintData(FXJID:string;CDFlag:String); +var + fPrintFile,LabInt,LabName:String; +begin + if Trim(FXJID)='' then exit; + DataLink_WFBProducttion.ADOLink.Connected:=False; + DataLink_WFBProducttion.ADOLink.Connected:=True; + if Trim(CDFlag)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_XJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where XJID='''+Trim(FXJID)+''''); + ExecSQL; + end; + end; + { with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select C.LbXInt,C.LbXName from WFB_XJJY A'); + sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID'); + sql.Add(' inner join WFBOrder_Main C on B.MainId=C.MainId'); + sql.Add(' where A.XJID='''+Trim(FXJID)+''''); + Open; + end; } + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select C.SLbXInt,C.SLbXName from WFB_XJJY A'); + sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID'); + sql.Add(' inner join WFBOrder_Sub C on B.SubId=C.SubId'); + sql.Add(' where A.XJID='''+Trim(FXJID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + LabInt:=ADOQueryTemp.fieldbyname('SLbXInt').AsString; + LabName:=ADOQueryTemp.fieldbyname('SLbXName').AsString; + end ; + if Trim(LabName)='' then + begin + if Trim(Cds_Main.fieldbyname('SubType').AsString)<>'' then + begin + Application.MessageBox('Сǩδã','ʾ',0); + Exit; + end else + begin + Exit; + end; + + end; + { try + frmLabelPrint:=TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + fLabelId:=LabInt; + FFCDFlag:=Trim(CDFlag); + fKeyNo:=Trim(FXJID); + fIsPreviewPrint:=True; + frmLabelPrint.Button1.Click; + // if ShowModal=1 then + //begin + + // end; + end; + finally + frmLabelPrint.Free; + end; } + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select RTrim(AA.XJID) XJID,RTrim(Cast(AA.XJSJKZ as varchar(20))) XJSJKZ,RTrim(cast(Cast(AA.XJFK*10 as int) as varchar(20))) XJFK,RTrim(B.OrderNo)+'''+Trim(CDFlag)+''' OrderNo'); + sql.Add(',Rtrim(C.SWFBColor) SWFBColor, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + SQL.Add(',EngColor=(select Top 1 note from KH_Zdy where ZdyName=C.SWFBColor)'); + sql.Add(',Rtrim(Cast(AA.XJlen as varchar(20))) XJlen,Rtrim(Cast(AA.XJMaoZ as varchar(20))) XJMaoZ'); + sql.Add(',Rtrim(Cast(AA.XJFree as varchar(20))) XJFree,Rtrim(Cast( Cast(AA.XJlen*AA.XJFK/100 as int) as varchar(20))) XJPFM'); + sql.Add(',Rtrim(Cast(Cast(C.SWFBKZ as int) as varchar(20))) SWFBKZ'); + sql.Add(',Rtrim(Cast(Cast(AA.XJJt as int) as varchar(20))) XJJt'); + sql.Add(',RTrim(B.LbEngName) LbEngName'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_XJJY AA '); + sql.add(' inner join WFB_MJJY A on AA.MJID=A.MJID') ; + sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where AA.XJID='''+Trim(FXJID)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + Rm2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'ʾ',0); + end; + DataLink_WFBProducttion.ADOLink.Connected:=False; +end; + +procedure TfrmZJManageNewFDMORE.Button6Click(Sender: TObject); +var + i,j,FXJInt:Integer; +begin + if Cds_Main.IsEmpty then Exit; + j:=0; + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + if j=0 then + begin + Application.MessageBox('ûѡС','ʾ',0); + Exit; + end else + if j>9 then + begin + Application.MessageBox('ѡС','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + MovePanel3.Visible:=True; + // PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + //MJID.SelectAll; +end; + +procedure TfrmZJManageNewFDMORE.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FXJXH:String; +begin + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); + if Trim(LenCut.Text)<>'' then + begin + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Hint:='2'; + end; +end; + +procedure TfrmZJManageNewFDMORE.Button1Click(Sender: TObject); +begin + MovePanel2.Visible:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId,C.SWFBKZ '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB'')'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HJ); + SInitCDSData20(ADOQueryTemp,CDS_HJ); +end; + +procedure TfrmZJManageNewFDMORE.Button8Click(Sender: TObject); +begin + MovePanel2.Visible:=False; +end; + +procedure TfrmZJManageNewFDMORE.Button7Click(Sender: TObject); +var + maxno,fPrintFile,maxnosub:String; + i:Double; +begin + if CDS_HJ.IsEmpty then Exit; + if Application.MessageBox('ȷҪϾ𣿺Ͼݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'','WFB_MJJY',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(CDS_HJ.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_HJ.fieldbyname('SubId').AsString); + FieldByName('APId').Value:=Trim(CDS_HJ.fieldbyname('APId').AsString); + FieldByName('MJId').Value:=Trim(maxno); + FieldByName('MJMaoZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[1]; + FieldByName('MJLen').Value:=TvHJ.DataController.Summary.FooterSummaryValues[2]; + FieldByName('MJFK').Value:=TvHJ.DataController.Summary.FooterSummaryValues[5]; + FieldByName('MJSJKZ').Value:=TvHJ.DataController.Summary.FooterSummaryValues[4]; + FieldByName('MJType').Value:='Ͼ'; + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Filler').Value:=Trim(DName); + + Post; + end; + i:=0; + with CDS_HJ do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set HJMJID='''+Trim(maxno)+''''); + SQL.Add(',MJType=''Ͼ'',Valie=''N'' '); + SQL.Add(' where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_HJ.fieldbyname('MJID').AsString)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + if GetLSNo(ADOQueryCmd,maxnosub,'','WFB_MJJY_CD',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡСʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD where 1<>1'); + open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MCID').Value:=Trim(maxnosub); + FieldByName('CDBeg').Value:=ADOQueryTemp.fieldbyname('CDBeg').Value+i; + FieldByName('CDEnd').Value:=ADOQueryTemp.fieldbyname('CDEnd').Value+i; + FieldByName('CDQty').Value:=ADOQueryTemp.fieldbyname('CDQty').Value; + FieldByName('CDName').Value:=ADOQueryTemp.fieldbyname('CDName').Value; + Post; + end; + Next; + end; + end; + i:=i+CDS_HJ.FieldByName('MJLen').Value; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select RTrim(A.MJID) MJID,RTrim(Cast(A.MJSJKZ As varchar(20))) MJSJKZ,RTrim(Cast(A.MJFK as varchar(20))) MJFK,RTrim(B.OrderNo) OrderNo,'); + sql.Add(' RTrim(Cast(A.MJMaoZ As varchar(20))) MJMaoZ,RTrim(Cast(A.MJLen As varchar(20))) MJLen,'); + sql.Add(' Rtrim(C.SWFBColor) SWFBColor,Rtrim(Cast(C.SWFBKZ as varchar(20))) SWFBKZ, YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPBSZ'')'); + sql.Add(',RTrim(C.SWFBCodeName) SWFBCodeName from WFB_MJJY A inner join WFBOrder_Main B on A.MainId=B.MainId'); + sql.Add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' where A.MJID='''+Trim(maxno)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ĸǩ.rmf'),'ʾ',0); + end; + Application.MessageBox('Ͼɹ','ʾ',0); + MovePanel2.Visible:=False; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ͼ쳣','ʾ',0); + end; + +end; + +procedure TfrmZJManageNewFDMORE.HJMJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_MJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_XJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + HJMJID.Text:=''; + Application.MessageBox('˴ѷУ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB''),C.SWFBKZ'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and A.valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if CDS_HJ.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + HJMJID.Text:=''; + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + if CDS_HJ.IsEmpty=False then + begin + if CDS_HJ.Locate('SubId',Trim(ADOQueryTemp.fieldbyname('SubId').AsString),[])=False then + begin + HJMJID.Text:=''; + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + {if CDS_HJ.Locate('YLPB',Trim(ADOQueryTemp.fieldbyname('YLPB').AsString),[])=False then + begin + Application.MessageBox('ԭȲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBCode',Trim(ADOQueryTemp.fieldbyname('SWFBCode').AsString),[])=False then + begin + Application.MessageBox('ƷŲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBColor',Trim(ADOQueryTemp.fieldbyname('SWFBColor').AsString),[])=False then + begin + Application.MessageBox('ɫͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBHW',Trim(ADOQueryTemp.fieldbyname('SWFBHW').AsString),[])=False then + begin + Application.MessageBox('ͲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('WKMS',Trim(ADOQueryTemp.fieldbyname('WKMS').AsString),[])=False then + begin + Application.MessageBox('ĿͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('XJFK',Trim(ADOQueryTemp.fieldbyname('XJFK').AsString),[])=False then + begin + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBKZ',Trim(ADOQueryTemp.fieldbyname('SWFBKZ').AsString),[])=False then + begin + Application.MessageBox('زͬܺϾ','ʾ',0); + Exit; + end; } + end; + with CDS_HJ do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('SubId').Value:=ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('MainId').Value:=ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('YLPB').Value:=ADOQueryTemp.fieldbyname('YLPB').Value; + FieldByName('SWFBCode').Value:=ADOQueryTemp.fieldbyname('SWFBCode').Value; + FieldByName('SWFBCodeName').Value:=ADOQueryTemp.fieldbyname('SWFBCodeName').Value; + FieldByName('SWFBColor').Value:=ADOQueryTemp.fieldbyname('SWFBColor').Value; + FieldByName('WKMS').Value:=ADOQueryTemp.fieldbyname('WKMS').Value; + FieldByName('SWFBHW').Value:=ADOQueryTemp.fieldbyname('SWFBHW').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + FieldByName('SWFBKZ').Value:=ADOQueryTemp.fieldbyname('SWFBKZ').Value; + FieldByName('MJMaoZ').Value:=ADOQueryTemp.fieldbyname('MJMaoZ').Value; + FieldByName('MJLen').Value:=ADOQueryTemp.fieldbyname('MJLen').Value; + FieldByName('MJFK').Value:=ADOQueryTemp.fieldbyname('MJFK').Value; + FieldByName('MJSJKZ').Value:=ADOQueryTemp.fieldbyname('MJSJKZ').Value; + Post; + end; + end else + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + HJMJID.Text:=''; + end; + +end; + +procedure TfrmZJManageNewFDMORE.TvHJCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_HJ.Delete; +end; + +procedure TfrmZJManageNewFDMORE.Button9Click(Sender: TObject); +var + i,j,FXJInt:Integer; + mm,mm2:String; +begin + with ADOQueryTemp do + begin + sql.Clear; + sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(DCode)+''''); + Open; + mm:=Trim(Fields[2].AsString); + if Trim(mm)<>'' then + mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128)) + else + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + close; + end; + + if ( mm2=trim(Password.text) ) then + begin + with Panel4 do + begin + for i:=0 to Cds_Main.fieldbyname('SmalCount').AsInteger-1 do + begin + if Controls[i].Visible=True then + begin + if TEdit(Controls[i]).Text='' then + begin + if j=0 then + begin + j:=9; + FXJInt:=i+1; + end + else + j:=j+1; + end; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_XJJY where MJID='''+Trim(Cds_Main.fieldbyname('MJId').AsString)+''''); + SQL.Add(' and XJInt='+Inttostr(FXJInt)); + Open; + end; + if ADOQueryTemp.IsEmpty=True then + begin + Application.MessageBox('δ룬´ӡ','ʾ',0); + Exit; + end; + if ADOQueryTemp.RecordCount>1 then + begin + PrintData(Trim(CDS_XJID.fieldbyname('XJID').AsString),'ش') + end else + PrintData(Trim(ADOQueryTemp.fieldbyname('XJID').AsString),'ش'); + MovePanel3.Visible:=False; + end else + Application.MessageBox('', 'Ϣʾ', MB_OK or MB_ICONinformation); + + //MJID.SelectAll; +end; + +procedure TfrmZJManageNewFDMORE.Button10Click(Sender: TObject); +begin + MovePanel3.Visible:=False; +end; + +procedure TfrmZJManageNewFDMORE.PasswordClick(Sender: TObject); +begin + Panel5.Visible:=True; +end; + +procedure TfrmZJManageNewFDMORE.LenCutClick(Sender: TObject); +begin + if Trim(TcxTextEdit(Sender).Text)='' then + begin + TcxTextEdit(Sender).Text:=''; + end else + begin + TcxTextEdit(Sender).Text:=''; + end; +end; + +procedure TfrmZJManageNewFDMORE.Button11Click(Sender: TObject); +var + FCount,i:Integer; + FXJXH:String; +begin + //if Key=#13 then + begin + MJID.SelectAll; + ClearControl(Panel1,'',Panel1.ControlCount); + ClearControl(Panel2,'',Panel2.ControlCount); + ClearControl(Panel3,'',Panel3.ControlCount); + Label12.Visible:=True; + Label12.Caption:=Trim(MJID.Text); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.add('select MJCDHZ=dbo.F_Get_WFBOrder_SubStr(A.MJID,''MJCDHZ''), D.*,'); + SQL.Add('A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.WKMS,B.SWFBCode,B.SWFBCodeName '); + sql.add('from WFB_MJJY A inner join WFBOrder_Sub_AnPai D on A.APId=D.APId'); + sql.Add('inner join WFBOrder_Sub B on A.SubId=B.SubId'); + sql.Add('inner join WFBOrder_Main C on A.MainId=C.MainId'); + sql.Add('where A.MJID='''+Trim(MJID.Text)+''''); + sql.Add(' and A.Valie=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Cds_Main); + SInitCDSData20(ADOQueryMain,Cds_Main); + if Cds_Main.IsEmpty then + begin + MJCDHZ.Text:=''; + InitGridCDID(); + InitGridCD(); + Label12.Visible:=False; + MJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + MJCDHZ.Visible:=True; + MJCDHZ.Text:=Trim(Cds_Main.fieldbyname('MJCDHZ').AsString); + SmalNote.Text:=Trim(Cds_Main.fieldbyname('SmalNote').AsString); + if Cds_Main.FieldByName('SmalCount').Value<1 then + begin + Application.MessageBox('иС1','ʾ',0); + Exit; + end else + begin + FCount:=Cds_Main.FieldByName('SmalCount').Value; + VisbleControl(Panel1,False,Panel1.ControlCount); + VisbleControl(Panel2,False,Panel2.ControlCount); + VisbleControl(Panel3,False,Panel3.ControlCount); + VisbleControl(Panel4,False,Panel4.ControlCount); + VisbleControl(Panel1,True,FCount); + VisbleControl(Panel2,True,FCount); + VisbleControl(Panel3,True,FCount); + VisbleControl(Panel4,True,FCount); + VisbleControl(Panel7,True,FCount); + VisbleControl(Panel8,True,FCount); + SCSHDataCDS(Cds_Main,Panel1,0); + end; + InitGridCDID(); + InitGridCD(); + finally + ADOQueryMain.EnableControls; + end; + MJID.Text:=''; + {if CDS_XJID.IsEmpty=False then + begin + with CDS_XJID do + begin + First; + while not Eof do + begin + + FXJXH:=Trim(CDS_XJID.fieldbyname('XJInt').AsString); + (FindComponent('XJLen'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJLen').AsString); + (FindComponent('XJMaoZ'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJMaoZ').AsString); + (FindComponent('XJFree'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJFree').AsString); + (FindComponent('XJJt'+FXJXH) as TEdit).Text:=Trim(CDS_XJID.fieldbyname('XJJt').AsString); + Next; + end; + end; + end; } + end; +end; + +procedure TfrmZJManageNewFDMORE.Button12Click(Sender: TObject); +begin + //if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_MJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + sql.add('from WFB_XJJY A '); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + HJMJID.Text:=''; + Application.MessageBox('˴ѷУ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,C.SWFBCode,C.SWFBCodeName,C.SWFBColor,C.WKMS,C.SWFBHW,C.SubId,C.MainId '); + sql.Add(',YLPB=dbo.F_Get_WFBOrder_SubStr(C.SubId,''YLPB''),C.SWFBKZ'); + sql.add('from WFB_MJJY A '); + Sql.add(' inner join WFBOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join WFBOrder_Sub C on A.SubId=C.SubId'); + sql.add('where A.MJID='''+Trim(HJMJID.Text)+''''); + sql.Add(' and A.valie=''Y'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if CDS_HJ.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then + begin + HJMJID.Text:=''; + Application.MessageBox('Ѿɨٴɨ裡','ʾ',0); + Exit; + end; + if CDS_HJ.IsEmpty=False then + begin + if CDS_HJ.Locate('SubId',Trim(ADOQueryTemp.fieldbyname('SubId').AsString),[])=False then + begin + HJMJID.Text:=''; + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + {if CDS_HJ.Locate('YLPB',Trim(ADOQueryTemp.fieldbyname('YLPB').AsString),[])=False then + begin + Application.MessageBox('ԭȲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBCode',Trim(ADOQueryTemp.fieldbyname('SWFBCode').AsString),[])=False then + begin + Application.MessageBox('ƷŲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBColor',Trim(ADOQueryTemp.fieldbyname('SWFBColor').AsString),[])=False then + begin + Application.MessageBox('ɫͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBHW',Trim(ADOQueryTemp.fieldbyname('SWFBHW').AsString),[])=False then + begin + Application.MessageBox('ͲͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('WKMS',Trim(ADOQueryTemp.fieldbyname('WKMS').AsString),[])=False then + begin + Application.MessageBox('ĿͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('XJFK',Trim(ADOQueryTemp.fieldbyname('XJFK').AsString),[])=False then + begin + Application.MessageBox('ͬܺϾ','ʾ',0); + Exit; + end; + if CDS_HJ.Locate('SWFBKZ',Trim(ADOQueryTemp.fieldbyname('SWFBKZ').AsString),[])=False then + begin + Application.MessageBox('زͬܺϾ','ʾ',0); + Exit; + end; } + end; + with CDS_HJ do + begin + Append; + FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value; + FieldByName('SubId').Value:=ADOQueryTemp.fieldbyname('SubId').Value; + FieldByName('APId').Value:=ADOQueryTemp.fieldbyname('APId').Value; + FieldByName('MainId').Value:=ADOQueryTemp.fieldbyname('MainId').Value; + FieldByName('YLPB').Value:=ADOQueryTemp.fieldbyname('YLPB').Value; + FieldByName('SWFBCode').Value:=ADOQueryTemp.fieldbyname('SWFBCode').Value; + FieldByName('SWFBCodeName').Value:=ADOQueryTemp.fieldbyname('SWFBCodeName').Value; + FieldByName('SWFBColor').Value:=ADOQueryTemp.fieldbyname('SWFBColor').Value; + FieldByName('WKMS').Value:=ADOQueryTemp.fieldbyname('WKMS').Value; + FieldByName('SWFBHW').Value:=ADOQueryTemp.fieldbyname('SWFBHW').Value; + FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value; + FieldByName('SWFBKZ').Value:=ADOQueryTemp.fieldbyname('SWFBKZ').Value; + FieldByName('MJMaoZ').Value:=ADOQueryTemp.fieldbyname('MJMaoZ').Value; + FieldByName('MJLen').Value:=ADOQueryTemp.fieldbyname('MJLen').Value; + FieldByName('MJFK').Value:=ADOQueryTemp.fieldbyname('MJFK').Value; + FieldByName('MJSJKZ').Value:=ADOQueryTemp.fieldbyname('MJSJKZ').Value; + Post; + end; + end else + begin + HJMJID.Text:=''; + Application.MessageBox('','ʾ',0); + Exit; + end; + HJMJID.Text:=''; + end; +end; + +procedure TfrmZJManageNewFDMORE.SpeedButton29Click(Sender: TObject); +var + i:Integer; +begin + if Trim(FPanname)='XJLen' then + begin + { with Panel2 do + begin + for i:=0 to Panel2.ControlCount-1 do + begin + TEdit(Controls[i]).Text:=''; + end; + end; } + + end else + if Trim(FPanname)='XJFree' then + begin + with Panel7 do + begin + for i:=0 to Panel7.ControlCount-1 do + begin + TEdit(Controls[i]).Text:=''; + end; + end; + + end else + if Trim(FPanname)='XjJt' then + begin + with Panel8 do + begin + for i:=0 to Panel8.ControlCount-1 do + begin + TEdit(Controls[i]).Text:=''; + end; + end; + + end else + if Trim(FPanname)='XJMaoZ' then + begin + with Panel3 do + begin + for i:=0 to Panel3.ControlCount-1 do + begin + TEdit(Controls[i]).Text:=''; + TEdit(Controls[i]).Hint:=''; + end; + end; + + end; +end; + +procedure TfrmZJManageNewFDMORE.KWSelClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KW'; + flagname:='λ'; + fnote:=True; + fZdyFlag:=True; + V1Note.Caption:=''; + V1ZdyFlag.Caption:='λ־'; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + + if ShowModal=1 then + begin + KWName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + KWName.Hint:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + ZdyFlag.Text:=Trim(ClientDataSet1.fieldbyname('ZdyFlag').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/贸易管理/U_ZdyAttachGYS.dfm b/贸易管理/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..0a7d7dc --- /dev/null +++ b/贸易管理/U_ZdyAttachGYS.dfm @@ -0,0 +1,336 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 192 + Top = 103 + Width = 1038 + Height = 618 + Caption = #20379#24212#21830#36164#26009#31649#29702 + 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 = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TradeManage.ThreeImgList + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label2: TLabel + Left = 395 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 267 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 424 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #21152#24037#21378) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column10: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'zdyNameTj' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + 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 = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.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 diff --git a/贸易管理/U_ZdyAttachGYS.pas b/贸易管理/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..7e6ff05 --- /dev/null +++ b/贸易管理/U_ZdyAttachGYS.pas @@ -0,0 +1,214 @@ +unit U_ZdyAttachGYS; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachGYS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYS:=nil; +end; + +procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2); + Close; +end; +procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete;} +end; + +procedure TfrmZdyAttachGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2); + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/贸易管理/U_ZdyAttachment.dfm b/贸易管理/U_ZdyAttachment.dfm new file mode 100644 index 0000000..b9bb6d8 --- /dev/null +++ b/贸易管理/U_ZdyAttachment.dfm @@ -0,0 +1,362 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 140 + Top = 88 + Width = 1118 + Height = 652 + Caption = #23458#25143#36164#26009#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1102 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TradeManage.ThreeImgList + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1102 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 190 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label2: TLabel + Left = 350 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object ZdyName: TEdit + Tag = 2 + Left = 238 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TEdit + Tag = 2 + Left = 388 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1102 + Height = 544 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + 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 + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + end + object v2Column15: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'zdyNameZ' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v2Column11: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2DEFStr7: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + 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 = 165 + end + object v2Column12: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column13: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column14: TcxGridDBColumn + Caption = #27424#27454#39069#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.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 + 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 diff --git a/贸易管理/U_ZdyAttachment.pas b/贸易管理/U_ZdyAttachment.pas new file mode 100644 index 0000000..c4e0812 --- /dev/null +++ b/贸易管理/U_ZdyAttachment.pas @@ -0,0 +1,207 @@ +unit U_ZdyAttachment; + +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, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachment.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); +begin + frmZdyAttachment:=nil; +end; + +procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachment.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; } +end; + +procedure TfrmZdyAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachment.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInput.Free; + end; } +end; + +procedure TfrmZdyAttachment.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/贸易管理/U_iniParam.pas b/贸易管理/U_iniParam.pas new file mode 100644 index 0000000..6586ee2 --- /dev/null +++ b/贸易管理/U_iniParam.pas @@ -0,0 +1,74 @@ + +unit U_iniParam; + +interface +uses + IniFiles,SysUtils; +var + Filename:string; //ļ + iParam2:integer; + bParam1:Boolean; + bParam2:Boolean; + SCXFlag:String; // ݴ˱־ȡǰ׺ ܰĸ 1,2 + SCXCount:String; //̨ + PortNoStr:string;//˿ں + DllName:string;//˿Dllļ + ISJCX:string; + JCYPORT:string; + JCYDLL:string; + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + programIni:=Tinifile.create(FileName); + SCXFlag:=programIni.ReadString('','̨־','1'); + SCXCount:=programIni.ReadString('','̨','1'); + PortNoStr:=programIni.ReadString('','˿ں','com1'); + DllName:=programIni.ReadString('','˿Dllļ','JZCRS323C.DLL'); + ISJCX:= programIni.ReadString('','Ƿ','0'); + // JCYPORT:=programIni.ReadString('','˿ں','com1'); + JCYDLL:=programIni.ReadString('','Dllļ','JCYData.DLL'); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + JCYDLL:='JCYData.DLL'; + programIni:=Tinifile.create(FileName); + programIni.WriteString('','̨־',SCXFlag); + programIni.WriteString('','̨',SCXCount); + programIni.WriteString('','˿ں',PortNoStr); + programIni.WriteString('','˿Dllļ',DllName); + programIni.WriteString('','Ƿ',ISJCX); + // programIni.WriteString('','˿ں',JCYPORT); + programIni.WriteString('','Dllļ',JCYDLL); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; + +end. diff --git a/贸易管理/U_orderInPut_HYWT_Sub.dfm b/贸易管理/U_orderInPut_HYWT_Sub.dfm new file mode 100644 index 0000000..c5b51a0 --- /dev/null +++ b/贸易管理/U_orderInPut_HYWT_Sub.dfm @@ -0,0 +1,906 @@ +object FrmOrderInPut_HYWT_Sub: TFrmOrderInPut_HYWT_Sub + Left = 187 + Top = 101 + Width = 1145 + Height = 640 + Caption = #36135#36816#22996#25176#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1137 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1137 + Height = 271 + Align = alTop + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 20 + Width = 65 + Height = 12 + Caption = #22996#25176#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 441 + Top = 45 + Width = 65 + Height = 12 + Caption = #32463#33829#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 32 + Top = 45 + Width = 66 + Height = 12 + Caption = #21457' '#36135' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 32 + Top = 70 + Width = 66 + Height = 12 + Caption = #25910' '#36135' '#20154#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 = 32 + Top = 96 + Width = 66 + Height = 12 + Caption = #36890' '#30693' '#20154#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 = 646 + Top = 20 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 240 + Top = 45 + Width = 62 + Height = 12 + Caption = 'PO# '#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 = 238 + Top = 70 + Width = 65 + Height = 12 + Caption = #20449#29992#35777#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 238 + Top = 96 + Width = 65 + Height = 12 + Caption = #25552#21333#20221#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 441 + Top = 96 + Width = 67 + Height = 12 + Caption = #27491' '#26412#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 = 645 + Top = 96 + Width = 67 + Height = 12 + Caption = #38468' '#26412#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 = 32 + Top = 123 + Width = 65 + Height = 12 + Caption = #36816#36153#20184#33267#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 645 + Top = 45 + Width = 67 + Height = 12 + Caption = #33337' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 238 + Top = 177 + Width = 65 + Height = 12 + Caption = #35013#36816#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 441 + Top = 123 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#28207#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 = 647 + Top = 123 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 645 + Top = 70 + Width = 67 + Height = 12 + Caption = #33322' '#27425#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 443 + Top = 70 + Width = 62 + Height = 12 + Caption = 'B/L No '#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 239 + Top = 150 + Width = 65 + Height = 12 + Caption = #26377#25928#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 32 + Top = 177 + Width = 91 + Height = 12 + Caption = #36135#29289#22791#22949#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 32 + Top = 150 + Width = 65 + Height = 12 + Caption = #35013#31665#26085#26399#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 = 441 + Top = 150 + Width = 65 + Height = 12 + Caption = #35013#31665#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 441 + Top = 177 + Width = 65 + Height = 12 + Caption = #25910#36135#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 32 + Top = 200 + Width = 65 + Height = 12 + Caption = #27880#24847#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 441 + Top = 20 + Width = 65 + Height = 12 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 237 + Top = 20 + Width = 65 + Height = 12 + Caption = #20986#36816#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object goodsdate: TDateTimePicker + Tag = 2 + Left = 121 + Top = 173 + Width = 96 + Height = 20 + Date = 41962.666178923610000000 + Time = 41962.666178923610000000 + TabOrder = 16 + end + object WTNo: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 121 + Height = 20 + TabOrder = 0 + end + object conNo: TEdit + Tag = 2 + Left = 712 + Top = 16 + Width = 120 + Height = 20 + TabOrder = 1 + end + object original: TEdit + Tag = 2 + Left = 506 + Top = 92 + Width = 121 + Height = 20 + TabOrder = 2 + end + object Attached: TEdit + Tag = 2 + Left = 714 + Top = 92 + Width = 120 + Height = 20 + TabOrder = 3 + end + object TDNum: TEdit + Tag = 2 + Left = 303 + Top = 92 + Width = 121 + Height = 20 + TabOrder = 4 + end + object Payaddress: TBtnEditA + Tag = 2 + Left = 97 + Top = 119 + Width = 327 + Height = 20 + TabOrder = 5 + OnBtnClick = PayaddressBtnClick + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 506 + Top = 41 + Width = 122 + Height = 20 + TabOrder = 6 + OnBtnClick = CustomerNoNameBtnClick + end + object Export: TBtnEditA + Tag = 2 + Left = 713 + Top = 119 + Width = 121 + Height = 20 + TabOrder = 7 + OnBtnClick = ExportBtnClick + end + object POD: TBtnEditA + Tag = 2 + Left = 506 + Top = 119 + Width = 123 + Height = 20 + TabOrder = 8 + OnBtnClick = PODBtnClick + end + object shiptime: TDateTimePicker + Tag = 2 + Left = 304 + Top = 173 + Width = 121 + Height = 20 + Date = 41962.666178923610000000 + Time = 41962.666178923610000000 + TabOrder = 9 + end + object voy: TBtnEditA + Tag = 2 + Left = 713 + Top = 66 + Width = 121 + Height = 20 + TabOrder = 10 + OnBtnClick = voyBtnClick + end + object vessel: TBtnEditA + Tag = 2 + Left = 713 + Top = 41 + Width = 121 + Height = 20 + TabOrder = 11 + OnBtnClick = vesselBtnClick + end + object BLNo: TEdit + Tag = 2 + Left = 506 + Top = 66 + Width = 121 + Height = 20 + TabOrder = 12 + end + object Validtime: TDateTimePicker + Tag = 2 + Left = 305 + Top = 146 + Width = 121 + Height = 20 + Date = 41962.666178923610000000 + Time = 41962.666178923610000000 + TabOrder = 13 + end + object ifFP: TCheckBox + Left = 848 + Top = 16 + Width = 97 + Height = 17 + Caption = #26159#21542#20998#25209 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + end + object ifZY: TCheckBox + Left = 848 + Top = 42 + Width = 97 + Height = 17 + Caption = #26159#21542#36716#36816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 15 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 146 + Width = 121 + Height = 20 + Date = 41962.666178923610000000 + Time = 41962.666178923610000000 + TabOrder = 17 + end + object conDefstr1: TBtnEditA + Tag = 2 + Left = 508 + Top = 173 + Width = 326 + Height = 20 + TabOrder = 18 + OnBtnClick = conDefstr1BtnClick + end + object XYNO: TEdit + Tag = 2 + Left = 303 + Top = 66 + Width = 121 + Height = 20 + TabOrder = 19 + end + object DLYaddress: TBtnEditA + Tag = 2 + Left = 508 + Top = 146 + Width = 326 + Height = 20 + TabOrder = 20 + OnBtnClick = DLYaddressBtnClick + end + object MPRTBZNote: TMemo + Tag = 2 + Left = 97 + Top = 200 + Width = 737 + Height = 60 + ScrollBars = ssVertical + TabOrder = 21 + OnDblClick = MPRTBZNoteDblClick + end + object orddefstr1: TEdit + Tag = 2 + Left = 97 + Top = 41 + Width = 121 + Height = 20 + TabOrder = 22 + end + object ConPerson2: TEdit + Tag = 2 + Left = 97 + Top = 92 + Width = 121 + Height = 20 + TabOrder = 23 + end + object ConPerson1: TEdit + Tag = 2 + Left = 97 + Top = 66 + Width = 121 + Height = 20 + TabOrder = 24 + end + object orderNo: TBtnEditA + Tag = 2 + Left = 506 + Top = 16 + Width = 122 + Height = 20 + TabOrder = 25 + OnBtnClick = orderNoBtnClick + end + object KHConNo: TEdit + Tag = 2 + Left = 303 + Top = 41 + Width = 120 + Height = 20 + TabOrder = 26 + end + object CYNO: TBtnEditA + Left = 303 + Top = 16 + Width = 122 + Height = 20 + TabOrder = 27 + OnBtnClick = CYNOBtnClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 333 + Width = 1137 + Height = 252 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V1SordQty3 + end + item + Kind = skSum + Column = V1SordQty1 + end + item + Kind = skSum + Column = V1SordQty4 + end + item + Kind = skSum + Column = V1SordQty2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V1XHNO: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object V1PRTCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object V1PRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object V1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object V1PRTspec: TcxGridDBColumn + Caption = #20135#21697#35268#26684 + DataBinding.FieldName = 'PRTspec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1SordQty3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 68 + end + object V1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object V1PRTprice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTprice' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V1BJNO: TcxGridDBColumn + Caption = #26631#35760#21495#30721 + DataBinding.FieldName = 'BJNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1SordQty1: TcxGridDBColumn + Caption = #20214#25968 + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1BGType: TcxGridDBColumn + Caption = #21253#35013#24335#26679 + DataBinding.FieldName = 'BGType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V1BGTypePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1GoodsNo: TcxGridDBColumn + Caption = #36135#21495 + DataBinding.FieldName = 'GoodsNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1SordQty2: TcxGridDBColumn + Caption = #23610#30721 + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V1SordQty4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V1SOrdDefNote3: TcxGridDBColumn + Caption = #25104#20132#26465#20214 + DataBinding.FieldName = 'SOrdDefNote3' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V1SordQty1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object V1SOrdDefNote1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 302 + Width = 1137 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object Tadd: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TaddClick + end + object TDEL: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = TDELClick + end + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 348 + Top = 364 + end + object order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 388 + Top = 364 + end + object DataSource1: TDataSource + DataSet = order_Sub + Left = 424 + Top = 364 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 464 + Top = 364 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 508 + Top = 364 + end +end diff --git a/贸易管理/U_orderInPut_HYWT_Sub.pas b/贸易管理/U_orderInPut_HYWT_Sub.pas new file mode 100644 index 0000000..4906f25 --- /dev/null +++ b/贸易管理/U_orderInPut_HYWT_Sub.pas @@ -0,0 +1,714 @@ +unit U_orderInPut_HYWT_Sub; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ToolWin, ComCtrls, ExtCtrls, StdCtrls, BtnEdit, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + DBClient, ADODB, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TFrmOrderInPut_HYWT_Sub = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + conNo: TEdit; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + original: TEdit; + Label11: TLabel; + Attached: TEdit; + Label12: TLabel; + TDNum: TEdit; + Payaddress: TBtnEditA; + CustomerNoName: TBtnEditA; + Export: TBtnEditA; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + POD: TBtnEditA; + shiptime: TDateTimePicker; + Label17: TLabel; + voy: TBtnEditA; + vessel: TBtnEditA; + Label18: TLabel; + BLNo: TEdit; + Label19: TLabel; + Validtime: TDateTimePicker; + ifFP: TCheckBox; + ifZY: TCheckBox; + Label20: TLabel; + goodsdate: TDateTimePicker; + Label21: TLabel; + DLYDate: TDateTimePicker; + Label22: TLabel; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + V1BJNO: TcxGridDBColumn; + V1SordQty1: TcxGridDBColumn; + V1BGType: TcxGridDBColumn; + V1PRTspec: TcxGridDBColumn; + V1GoodsNo: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + Tadd: TToolButton; + TDEL: TToolButton; + WTNo: TEdit; + Label23: TLabel; + conDefstr1: TBtnEditA; + V1SordQty2: TcxGridDBColumn; + V1SordQty4: TcxGridDBColumn; + V1SOrdDefNote3: TcxGridDBColumn; + V1SOrdDefNote1: TcxGridDBColumn; + ADOQueryTmp: TADOQuery; + order_Sub: TClientDataSet; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + XYNO: TEdit; + DLYaddress: TBtnEditA; + Label24: TLabel; + MPRTBZNote: TMemo; + orddefstr1: TEdit; + ConPerson2: TEdit; + ConPerson1: TEdit; + Label25: TLabel; + orderNo: TBtnEditA; + KHConNo: TEdit; + V1PRTCode: TcxGridDBColumn; + V1PRTCodeName: TcxGridDBColumn; + V1PRTColor: TcxGridDBColumn; + V1OrderUnit: TcxGridDBColumn; + V1SordQty3: TcxGridDBColumn; + V1XHNO: TcxGridDBColumn; + V1PRTprice: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Label26: TLabel; + CYNO: TBtnEditA; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TaddClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure V1BGTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure V1SordQty1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PayaddressBtnClick(Sender: TObject); + procedure vesselBtnClick(Sender: TObject); + procedure DLYaddressBtnClick(Sender: TObject); + procedure conDefstr1BtnClick(Sender: TObject); + procedure voyBtnClick(Sender: TObject); + procedure ExportBtnClick(Sender: TObject); + procedure PODBtnClick(Sender: TObject); + procedure MPRTBZNoteDblClick(Sender: TObject); + procedure TDELClick(Sender: TObject); + procedure CYNOBtnClick(Sender: TObject); + procedure orderNoBtnClick(Sender: TObject); + private + procedure initdata(); + procedure savedata(); + { Private declarations } + public + FMainId: string; + { Public declarations } + end; + +var + FrmOrderInPut_HYWT_Sub: TFrmOrderInPut_HYWT_Sub; + +implementation + +Uses U_DataLink,U_Fun, U_ZDYHelp, U_ZDYHelpSel, U_ProductOrderListSel, + U_ProductOrderNewList_CY_Sel; + +{$R *.dfm} + +procedure TFrmOrderInPut_HYWT_Sub.savedata(); +var FSubid: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FMainId)='' then + begin + if GetLSNo(ADOQueryCmd,FMainid,'HY','JYOrderWT_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderWT_Main where MainId='''+Trim(FMainId)+''''); + Open; + if IsEmpty then + begin + Append; + FieldByName('filler').AsString:=Trim(DName); + FieldByName('filltime').AsDateTime:=SGetServerDateTime(ADOQueryTmp); + end + else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(FMainid); + SSetsaveSqlNew(ADOQueryCmd,'JYOrderWT_Main',Panel1,2); + FieldByName('status').AsString:=''; + if ifFP.Checked=True then + begin + FieldByName('ifFp').AsString:='T'; + end + else + begin + FieldByName('ifFp').AsString:='F'; + end; + if ifzy.Checked=True then + begin + FieldByName('ifzy').AsString:='T'; + end + else + begin + FieldByName('ifzy').AsString:='F'; + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderWT_Main where WTNO='''+Trim(WTNO.Text)+''''); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ίеظ!','ʾ'); + Exit; + end; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,FSubid,'HY','JYOrderWT_Sub',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + FSubid:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderWT_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(FSubid)+''''); + Open; + if IsEmpty then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubid); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,Order_Sub,'JYOrderWT_Sub',0); + fieldbyname('SordQty1').Value:=Order_Sub.fieldbyname('SordQty1').AsFloat; + fieldbyname('SordQty2').Value:=Order_Sub.fieldbyname('SordQty2').AsFloat; + fieldbyname('SordQty3').Value:=Order_Sub.fieldbyname('SordQty3').AsFloat; + fieldbyname('SordQty4').Value:=Order_Sub.fieldbyname('SordQty4').AsFloat; + fieldbyname('PRTprice').Value:=Order_Sub.fieldbyname('PRTprice').AsFloat; + fieldbyname('Money').Value:=Order_Sub.fieldbyname('Money').AsFloat; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(FSubid); + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.initdata(); +begin + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderwt_Main'); + sql.Add('where Mainid='''+trim(FMainid)+''''); + Open; + if not IsEmpty then + begin + SCSHDataNew(ADOQueryTmp,Panel1,2); + MPRTBZNote.Text:=Trim(fieldbyname('MPRTBZNote').AsString); + if FieldByName('iffp').AsString='T' then + iffp.Checked:=True + else + iffp.Checked:=False; + if FieldByName('ifzy').AsString='T' then + ifzy.Checked:=True + else + ifzy.Checked:=False; + end + else + begin + shiptime.DateTime:=SGetServerDateTime(ADOQueryCmd); + DLYDate.DateTime:=SGetServerDateTime(ADOQueryCmd); + goodsdate.DateTime:=SGetServerDateTime(ADOQueryCmd); + Validtime.DateTime:=SGetServerDateTime(ADOQueryCmd); + end; + end; + with ADOQueryTmp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrderWT_Sub '); + sql.Add('where Mainid='''+trim(FMainid)+''''); + open; + end; + SCreateCDS20(ADOQueryTmp,Order_Sub); + SInitCDSData20(ADOQueryTmp,Order_Sub); +end; +procedure TFrmOrderInPut_HYWT_Sub.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TFrmOrderInPut_HYWT_Sub.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alclient; +end; + +procedure TFrmOrderInPut_HYWT_Sub.FormDestroy(Sender: TObject); +begin + FrmOrderInPut_HYWT_Sub:=nil; +end; + +procedure TFrmOrderInPut_HYWT_Sub.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1); + InitData(); +end; + +procedure TFrmOrderInPut_HYWT_Sub.TBCloseClick(Sender: TObject); +begin + close; + WriteCxGrid(Self.Caption+Tv1.Name,Tv1); +end; + +procedure TFrmOrderInPut_HYWT_Sub.TaddClick(Sender: TObject); +begin + with order_Sub do + begin + Append; + + Post; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.TBSaveClick(Sender: TObject); +begin + if WTNo.Text='' then + begin + Application.MessageBox('ίеŲΪ','ʾ'); + exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + SaveData(); +end; + +procedure TFrmOrderInPut_HYWT_Sub.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CustomerNoName'; + flagname:='Ӫλ'; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.V1BGTypePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGTYPE'; + flagname:='װʽ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('BGTYPE').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.V1SordQty1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SordQty1'; + flagname:='ɽ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('SordQty1').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.PayaddressBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Payaddress'; + flagname:='˷Ѹ'; + if ShowModal=1 then + begin + Payaddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.vesselBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='vessel'; + flagname:=''; + if ShowModal=1 then + begin + vessel.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.DLYaddressBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Payaddress'; + flagname:='װص'; + if ShowModal=1 then + begin + DLYaddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.conDefstr1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Payaddress'; + flagname:='ַ'; + if ShowModal=1 then + begin + conDefstr1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.voyBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='voy'; + flagname:=''; + if ShowModal=1 then + begin + voy.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.ExportBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Export'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + Export.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.PODBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Export'; + flagname:='Ŀĸ'; + if ShowModal=1 then + begin + POD.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.MPRTBZNoteDblClick(Sender: TObject); +var i: Integer; +begin + i:=0; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='MPRTBZNote'; + flagname:='ע'; + if ShowModal=1 then + begin + MPRTBZNote.Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + i:=i+1; + MPRTBZNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString) + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.TDELClick(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',1)=2 then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderWT_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TFrmOrderInPut_HYWT_Sub.CYNOBtnClick(Sender: TObject); +var + ConMainId:string; +begin + ConMainId:=''; + frmProductOrderNewList_CY_SEL:=TfrmProductOrderNewList_CY_SEL.create(self); + with frmProductOrderNewList_CY_SEL do + begin + FFInt:=1; + if showmodal=1 then + begin + ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring); + end; + free; + end; + iF ConMainId='' then exit; + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6,C.condefstr10,C.priceNote,C.Payment,C.ShippMent, '); + sql.Add('PriceUnit1=(select top 1 PriceUnit from JYordercon_sub X where X.mainID=C.mainid)'); + sql.Add('from JYOrderCY_sub A '); + sql.Add('inner join JYOrderCY_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where B.mainID like '''+'%'+Trim(ConMainId)+'%'+''''); + Open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + ConNo.Text:=Trim(ADOQueryTmp.fieldbyname('ConNo').AsString); + WTNO.Text:='WT_'+Trim(ADOQueryTmp.fieldbyname('ConNo').AsString); + orderNo.Text:=Trim(ADOQueryTmp.fieldbyname('orderNo').AsString); + CYNO.Text:=Trim(ADOQueryTmp.fieldbyname('CYNO').AsString); + DLYDate.DateTime:=ADOQueryTmp.fieldbyname('DLYDate').AsDateTime; + CustomerNoName.Text:=Trim(ADOQueryTmp.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOQueryTmp.fieldbyname('CustomerNo').AsString); + KHCONNO.Text:=Trim(ADOQueryTmp.fieldbyname('KHCONNO').AsString); + ConPerson1.Text:=Trim(ADOQueryTmp.fieldbyname('ConPerson2').AsString); + conDefstr1.Text:=Trim(ADOQueryTmp.fieldbyname('conDefstr1').AsString); + BLNo.Text:=Trim(ADOQueryTmp.fieldbyname('orddefstr3').AsString); + end; + Order_Sub.EmptyDataSet; + with ADOQueryTmp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOQueryTmp.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOQueryTmp.fieldbyname('PRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOQueryTmp.fieldbyname('PRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOQueryTmp.fieldbyname('PRTspec').AsString); + FieldByName('SordQty3').Value:=Trim(ADOQueryTmp.fieldbyname('PRTOrderQty').AsString); + FieldByName('PRTColor').Value:=Trim(ADOQueryTmp.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOQueryTmp.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=Trim(ADOQueryTmp.fieldbyname('PRTPrice').AsString); + FieldByName('PriceUnit').Value:=Trim(ADOQueryTmp.fieldbyname('PriceUnit1').AsString); + FieldByName('SOrdDefNote4').Value:=Trim(ADOQueryTmp.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; +end; + +procedure TFrmOrderInPut_HYWT_Sub.orderNoBtnClick(Sender: TObject); +begin + frmProductOrderListSel:=TfrmProductOrderListSel.create(self); + with frmProductOrderListSel do + begin + if showmodal=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select B.*,A.*,c.KhconNo,C.ConPerson2,C.ConPerson3,C.conDefstr2,C.conDefstr6 from JYOrder_sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + sql.Add('left join JYOrderCon_Main C on C.conNO=B.conNO '); + sql.Add('where B.mainID like '''+'%'+Trim(Order_Main.fieldbyname('mainID').asstring)+'%'+''''); + Open; + IF not IsEmpty then + begin + ConNo.Text:=Trim(ADOQueryCmd.fieldbyname('ConNo').AsString); + orderNo.Text:=Trim(ADOQueryCmd.fieldbyname('orderNo').AsString); + WTNO.Text:='WT_'+Trim(ADOQueryCmd.fieldbyname('ConNo').AsString); + CustomerNoName.Text:=Trim(ADOQueryCmd.fieldbyname('CustomerNoName').AsString); + CustomerNoName.TxtCode:=Trim(ADOQueryCmd.fieldbyname('CustomerNo').AsString); + DLYDate.DateTime:=ADOQueryCmd.fieldbyname('DLYDate').AsDateTime; + ConPerson1.Text:=Trim(ADOQueryCmd.fieldbyname('ConPerson2').AsString); + KHCONNO.Text:=Trim(ADOQueryCmd.fieldbyname('KHCONNO').AsString); + ConPerson2.Text:=Trim(ADOQueryCmd.fieldbyname('ConPerson3').AsString); + conDefstr1.Text:=Trim(ADOQueryCmd.fieldbyname('conDefstr2').AsString); + end; + Order_Sub.EmptyDataSet; + with ADOQueryCmd do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + FieldByName('XHNO').Value:=Trim(ADOQueryCmd.fieldbyname('XHNO').AsString); + FieldByName('PRTCode').Value:=Trim(ADOQueryCmd.fieldbyname('MPRTCode').AsString); + FieldByName('PRTCodeName').Value:=Trim(ADOQueryCmd.fieldbyname('MPRTCodeName').AsString); + FieldByName('PRTspec').Value:=Trim(ADOQueryCmd.fieldbyname('MPRTspec').AsString); + FieldByName('PRTColor').Value:=Trim(ADOQueryCmd.fieldbyname('PRTColor').AsString); + FieldByName('OrderUnit').Value:=Trim(ADOQueryCmd.fieldbyname('OrderUnit').AsString); + FieldByName('PRTPrice').Value:=ADOQueryCmd.fieldbyname('PRTPrice').AsFloat; + FieldByName('PriceUnit').Value:=Trim(ADOQueryCmd.fieldbyname('PriceUnit').AsString); + FieldByName('SordQty3').Value:=ADOQueryCmd.fieldbyname('PRTOrderQty').AsFloat; + FieldByName('SOrdDefNote4').Value:=Trim(ADOQueryCmd.fieldbyname('subID').AsString); + Post; + end; + Next; + end; + end; + end; + end; + Free; + end; +end; + +end. diff --git a/贸易管理/U_testdll.dfm b/贸易管理/U_testdll.dfm new file mode 100644 index 0000000..b1d8f4c --- /dev/null +++ b/贸易管理/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 153 + Top = 124 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 783 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/贸易管理/U_testdll.pas b/贸易管理/U_testdll.pas new file mode 100644 index 0000000..e602573 --- /dev/null +++ b/贸易管理/U_testdll.pas @@ -0,0 +1,106 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(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;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('TradeManage.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('sa'), + PChar('dsa'), + PChar('bsa'), + PChar('tsa'), + PChar('d1sa'), + PChar('d2sa'), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; + +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/贸易管理/WFBOrder.cfg b/贸易管理/WFBOrder.cfg new file mode 100644 index 0000000..08e3903 --- /dev/null +++ b/贸易管理/WFBOrder.cfg @@ -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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\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 diff --git a/贸易管理/WFBOrder.dof b/贸易管理/WFBOrder.dof new file mode 100644 index 0000000..1b7a527 --- /dev/null +++ b/贸易管理/WFBOrder.dof @@ -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:\selfware_83398\selfware\ֿ\Ŀ\self\޷IJ\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 diff --git a/贸易管理/WFBOrder.res b/贸易管理/WFBOrder.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/贸易管理/WFBOrder.res differ diff --git a/贸易管理/WFBProduction.cfg b/贸易管理/WFBProduction.cfg new file mode 100644 index 0000000..6c57635 --- /dev/null +++ b/贸易管理/WFBProduction.cfg @@ -0,0 +1,38 @@ +-$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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/贸易管理/WFBProduction.dof b/贸易管理/WFBProduction.dof new file mode 100644 index 0000000..7640062 --- /dev/null +++ b/贸易管理/WFBProduction.dof @@ -0,0 +1,141 @@ +[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= +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:\selfware_83398\selfware\ֿ\Ŀ\self\޷IJ\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 +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/贸易管理/WFBProduction.res b/贸易管理/WFBProduction.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/贸易管理/WFBProduction.res differ diff --git a/贸易管理/getpic.dfm b/贸易管理/getpic.dfm new file mode 100644 index 0000000..8bd5b65 --- /dev/null +++ b/贸易管理/getpic.dfm @@ -0,0 +1,155 @@ +object FormGetPic: TFormGetPic + Left = 244 + Top = 118 + BorderIcons = [biSystemMenu] + BorderStyle = bsSingle + Caption = #33719#21462#22270#29255 + ClientHeight = 449 + ClientWidth = 670 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Image2: TImage + Left = 464 + Top = 8 + Width = 160 + Height = 120 + end + object SpeedButton1: TSpeedButton + Left = 500 + Top = 334 + Width = 80 + Height = 22 + Caption = #25171#24320#22270#29255'...' + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 500 + Top = 380 + Width = 80 + Height = 22 + Caption = #30830#23450 + Enabled = False + OnClick = SpeedButton2Click + end + object SpeedButton3: TSpeedButton + Left = 500 + Top = 426 + Width = 80 + Height = 22 + Caption = #25918#24323 + OnClick = SpeedButton3Click + end + object SpeedButton4: TSpeedButton + Left = 500 + Top = 358 + Width = 80 + Height = 22 + Caption = #22270#29255#21478#23384'...' + OnClick = SpeedButton4Click + end + object SpeedButton5: TSpeedButton + Left = 500 + Top = 404 + Width = 80 + Height = 22 + Caption = #21024#38500 + OnClick = SpeedButton5Click + end + object ScrollBox1: TScrollBox + Left = 5 + Top = 5 + Width = 440 + Height = 440 + HorzScrollBar.Visible = False + VertScrollBar.Visible = False + TabOrder = 0 + object Image1: TImage + Left = 0 + Top = 0 + Width = 437 + Height = 436 + Cursor = crSizeAll + AutoSize = True + Center = True + IncrementalDisplay = True + OnMouseDown = Image1MouseDown + OnMouseMove = Image1MouseMove + end + end + object Button1: TButton + Left = 464 + Top = 252 + Width = 81 + Height = 21 + Caption = #25171#24320#25668#20687#22836 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 560 + Top = 252 + Width = 81 + Height = 21 + Caption = #25235#22270 + TabOrder = 2 + OnClick = Button2Click + end + object Twain: TDelphiTwain + OnTwainAcquire = TwainTwainAcquire + TransferMode = ttmMemory + SourceCount = 0 + Info.MajorVersion = 1 + Info.MinorVersion = 0 + Info.Language = tlUserLocale + Info.CountryCode = 1 + Info.Groups = [tgControl, tgImage] + Info.VersionInfo = 'Application name' + Info.Manufacturer = 'Application manufacturer' + Info.ProductFamily = 'App product family' + Info.ProductName = 'App product name' + LibraryLoaded = False + SourceManagerLoaded = False + Left = 518 + Top = 160 + end + object OpenPictureDialog1: TOpenPictureDialog + Left = 568 + Top = 152 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 504 + Top = 280 + end + object SaveDialog1: TSavePictureDialog + Filter = 'JPG'#22270#29255#26684#24335' (*.JPG)|*.JPG' + Left = 568 + Top = 299 + end + object adoqueryImage: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 488 + Top = 184 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 500 + Top = 198 + end +end diff --git a/贸易管理/getpic.pas b/贸易管理/getpic.pas new file mode 100644 index 0000000..10ad52c --- /dev/null +++ b/贸易管理/getpic.pas @@ -0,0 +1,596 @@ +unit getpic; + +interface + +uses + Windows, Messages, SysUtils, strUtils,Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs, + DelphiTwain, Buttons, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP; + +type + TFormGetPic = class(TForm) + Twain: TDelphiTwain; + ScrollBox1: TScrollBox; + Image1: TImage; + OpenPictureDialog1: TOpenPictureDialog; + Image2: TImage; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + Button1: TButton; + Button2: TButton; + ADOQuery1: TADOQuery; + SpeedButton4: TSpeedButton; + SaveDialog1: TSavePictureDialog; + adoqueryImage: TADOQuery; + IdFTP1: TIdFTP; + SpeedButton5: TSpeedButton; + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TwainTwainAcquire(Sender: TObject; const Index: Integer; + Image: TBitmap; var Cancel: Boolean); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton2Click(Sender: TObject); + procedure SpeedButton3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure SpeedButton4Click(Sender: TObject); + procedure Initimage(); + procedure SpeedButton5Click(Sender: TObject); + private + hWndC : THandle; + CapturingAVI : bool; + { Private declarations } + ClickPos: TPoint; + SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer; + procedure CreThumb(Width, Height: Integer); + function SaveImage():Boolean; + public + FilePath:string; + FileName:string; + FTFType:string; + pat1:string; + pic1:string; + fkeyNo:string; + fFlileFlag:string; + { Public declarations } + MyJpeg: TJPEGImage; +// JPStream: TMemoryStream; + end; + +var + FormGetPic: TFormGetPic; + +implementation +uses U_DataLink,U_Fun10; +const WM_CAP_START = WM_USER; +const WM_CAP_STOP = WM_CAP_START + 68; +const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; +const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; +const WM_CAP_SAVEDIB = WM_CAP_START + 25; +const WM_CAP_GRAB_FRAME = WM_CAP_START + 60; +const WM_CAP_SEQUENCE = WM_CAP_START + 62; +const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; +const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 ; +const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 ; +const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 ; +const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6; +const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2; +const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3; +const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5; +const WM_CAP_SET_SCALE=WM_CAP_START+ 53 ; +const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 ; +function capCreateCaptureWindowA(lpszWindowName : PCHAR; +dwStyle : longint; +x : integer; +y : integer; +nWidth : integer; +nHeight : integer; +ParentWin : HWND; +nId : integer): HWND; +STDCALL EXTERNAL 'AVICAP32.DLL'; + +{$R *.dfm} + +procedure TFormGetPic.Initimage(); +var + jpg:TJpegImage; + myStream: TADOBlobStream; + sFieldName:string; + JPStream: TMemoryStream; +begin + jpg:=TJpegImage.Create(); + JPStream := TMemoryStream.Create; + try + + with adoqueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo))); + open; + IF not IsEmpty then + begin + IF not fieldbyname(pic1).IsNull then + begin + myStream:=tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)),bmread); + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + myStream.Free; + + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + JPStream.Clear; + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag+'\'+ Trim(fieldbyname(pat1).AsString), JPStream); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + + if IdFTP1.Connected then IdFTP1.Quit; + JPStream.Position := 0; + jpg.LoadFromStream(JPStream); + Image1.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.free; + JPStream.Free; + end; +end; + +function TFormGetPic.SaveImage():Boolean; +var + myStream: TADOBlobStream; + maxNo:string; + fNewFileName:string; +begin + fNewFileName:=formatdatetime('yyyyMMddhhnnsszzz',now())+ExtractFileExt(FilePath); + IF fkeyNO='' then fkeyNO:=fNewFileName; + result:=false; + try + with adoqueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo))); + sql.Add('and TFType='+quotedstr(trim(FTFType))); + open; + if RecordCount<=0 then + begin + Append; + if GetLSNo(ADOQuery1,maxNo,'FJ','TP_File',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + fieldByName('TFID').AsString := maxNo; + fieldByName('WBID').AsString := fkeyNO; + end + else + begin + edit; + end; + fieldByName(pat1).AsString :=trim(fNewFileName); + fieldByName('Filler').AsString :=trim(dName); + fieldByName('TFType').AsString :=trim(FTFType); + myStream := TADOBlobStream.Create(TBlobField(FieldByName(pic1)), bmWrite); + MyJpeg.Assign(Image2.Picture.Graphic); + MyJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; + + if FilePath <> '' then + begin + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(FilePath, fFlileFlag+'\' + Trim(fNewFileName)); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; + + result:=true; + except + myStream.Free; + end; +end; + +procedure TFormGetPic.ToolButton1Click(Sender: TObject); +var + Ini: TIniFile; +begin + if Twain.LoadLibrary then + begin + {Load source manager} + Twain.SourceManagerLoaded := TRUE; + {Allow user to select source} + SelectedSource := Twain.SelectSource; + if SelectedSource <> -1 then + begin + Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini'); + try + Ini.WriteInteger( 'SCANNER', 'Scanner', SelectedSource); + finally + Ini.Free; + end; + end {if SelectedSource <> -1} + end + else + ShowMessage('δװɨ'); +end; + +procedure TFormGetPic.ToolButton3Click(Sender: TObject); +begin + if Twain.LoadLibrary then + begin + {Load source manager} + Twain.SourceManagerLoaded := TRUE; + + if SelectedSource <> -1 then + begin + {Load source, select transference method and enable (display interface)} + Twain.Source[SelectedSource].Loaded := TRUE; + Twain.Source[SelectedSource].SetICapUnits(tuInches); + Twain.Source[SelectedSource].SetImagelayoutFrame(PicLeft/25.4, PicTop/25.4, (PicLeft+PicWidth)/25.4, (PicTop+PicHeight)/25.4); + Twain.Source[SelectedSource].SetIYResolution(200); + Twain.Source[SelectedSource].SetIXResolution(200); + Twain.Source[SelectedSource].TransferMode := ttmMemory; + Twain.Source[SelectedSource].EnableSource(FALSE, TRUE); + while Twain.Source[SelectedSource].Enabled do Application.ProcessMessages; + end; {if SelectedSource <> -1} +// Twain.UnloadLibrary; + end + else + ShowMessage('δװɨ'); +end; + +procedure TFormGetPic.TwainTwainAcquire(Sender: TObject; + const Index: Integer; Image: TBitmap; var Cancel: Boolean); +begin + Image1.Picture.Assign(Image); + Cancel := TRUE; + CreThumb(150, 150); + SpeedButton2.Enabled := TRUE; +end; + +procedure TFormGetPic.FormShow(Sender: TObject); +var + Ini: TIniFile; +begin + { Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini'); + try + SelectedSource := Ini.ReadInteger( 'SCANNER', 'Scanner', 0); + PicLeft := Ini.ReadInteger( 'SCANNER', 'Left', 0); + PicTop := Ini.ReadInteger( 'SCANNER', 'Top', 0); + PicWidth := Ini.ReadInteger( 'SCANNER', 'Width', 100); + PicHeight := Ini.ReadInteger( 'SCANNER', 'Height', 100); + finally + Ini.Free; + end; } + Initimage(); +end; + +{ +procedure TFormGetPic.ToolButton6Click(Sender: TObject); +var + Ini: TIniFile; +begin + FormGetPos := TFormGetPos.Create(Self); + FormGetPos.SpinEdit1.Value := PicLeft; + FormGetPos.SpinEdit2.Value := PicTop; + FormGetPos.SpinEdit3.Value := PicWidth; + FormGetPos.SpinEdit4.Value := PicHeight; + if FormGetPos.ShowModal = 1 then + begin + PicLeft := FormGetPos.SpinEdit1.Value; + PicTop := FormGetPos.SpinEdit2.Value; + PicWidth := FormGetPos.SpinEdit3.Value; + PicHeight := FormGetPos.SpinEdit4.Value; + + Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini'); + try + Ini.WriteInteger( 'SCANNER', 'Left', PicLeft); + Ini.WriteInteger( 'SCANNER', 'Top', PicTop); + Ini.WriteInteger( 'SCANNER', 'Width', PicWidth); + Ini.WriteInteger( 'SCANNER', 'Height', PicHeight); + finally + Ini.Free; + end; + end; + FormGetPos.Free; +end; +} + +procedure TFormGetPic.CreThumb(Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := Image1.Picture.Graphic.Width/Image1.Picture.Graphic.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)); +// StretchDraw original image + ARect := Rect(AWidthOffset, AHeightOffset, AWidth+AWidthOffset, AHeight+AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic); +// Assign back to the Jpeg, and save to the file + Image2.Picture.Assign(BitMap); +// MyJpeg1.Assign(Image2.Picture.Graphic); + finally + Bitmap.Free; + end; +end; + +procedure TFormGetPic.FormCreate(Sender: TObject); +begin + MyJpeg := TJpegImage.Create; +// MyJpeg1 := TJpegImage.Create; + Button2.Enabled:=false; +end; + +procedure TFormGetPic.FormDestroy(Sender: TObject); +begin +// MyJpeg1.Free; + MyJpeg.Free; +end; + +procedure TFormGetPic.Image1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + ClickPos.x := X; + ClickPos.y := Y; +end; + +procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +var + NewPos: TPoint; +begin + {The left button was pressed} + if ssLeft in Shift then + begin + {Calculate new position} + NewPos.X := Image1.Left + x - ClickPos.x; + NewPos.Y := Image1.Top + y - ClickPos.y; + if NewPos.x + Image1.Width < ScrollBox1.Width then + NewPos.x := ScrollBox1.Width - Image1.Width; + if NewPos.y + Image1.Height < ScrollBox1.Height then + NewPos.y := ScrollBox1.Height - Image1.Height; + if NewPos.X > 0 then NewPos.X := 0; + if NewPos.Y > 0 then NewPos.Y := 0; + + Image1.Top := NewPos.Y; + Image1.Left := NewPos.X; + end {if ssLeft in Shift} +end; + +procedure TFormGetPic.SpeedButton1Click(Sender: TObject); +begin + if OpenPictureDialog1.Execute then + begin + Image1.Top := 0; + Image1.Left := 0; + Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); + FilePath:=OpenPictureDialog1.FileName; + FileName:=ExtractFileName(FilePath); + // CreThumb(240, 180); + CreThumb(400, 300); + SpeedButton2.Enabled := TRUE; + end; +end; + +procedure TFormGetPic.SpeedButton2Click(Sender: TObject); +begin + + IF SaveImage() then + begin + ModalResult := 1; + end + else + begin + application.MessageBox('ݱʧܣ','ʾϢ',0) + end; +// JPStream := TMemoryStream.Create; +// MyJPeg.Assign(Image1.Picture.Graphic); +// MyJPeg.SaveToStream(JPStream); + +end; + +procedure TFormGetPic.SpeedButton3Click(Sender: TObject); +begin + ModalResult := 2; +end; + +procedure TFormGetPic.Button1Click(Sender: TObject); +begin + hWndC := 0; + try + hWndC := capCreateCaptureWindowA('My Own Capture Window', + WS_CHILD or WS_VISIBLE , + ScrollBox1.Left, + ScrollBox1.Top, + ScrollBox1.Width, + ScrollBox1.Height, + FormGetPic.Handle, + 0); + if hWndC <> 0 then + begin + SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0); + SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0); + SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0); + SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0); + SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0); + SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0); + //SendMessage(hWndC, WM_CAP_SEQUENCE_NOFILE, 1, 0); + SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0); + SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0); + Button1.Enabled:=false; + Button2.Enabled:=true; + end + else + begin + application.MessageBox('ͷʧܣ','Ϣ',MB_ICONERROR); + end; + except + end; + application.ProcessMessages; +end; + +procedure TFormGetPic.Button2Click(Sender: TObject); +var + sFieldName:string; + MBMP:TBitmap; + MJPG:TJpegImage; +begin + + sFieldName:='D:\ץͼ'; + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + sFieldName:=sFieldName+'\'+formatdateTime('yyyyMMddhhnnss',SGetServerDateTime(ADOQuery1)); + + FileName:=ExtractFileName(sFieldName); + if hWndC <> 0 then + begin + SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar(sFieldName+'.BMP'))); + SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0); + hWndC := 0; + application.ProcessMessages; + Button1.Enabled:=true; + Button2.Enabled:=false; + try + MBMP:= TBitmap.Create; + MJPG:= TJpegImage.Create; + MBMP.LoadFromFile(pchar(sFieldName+'.BMP')); + MJPG.assign(MBMP); + Image1.Picture.Bitmap.Assign(MJPG); + application.ProcessMessages; + MJPG.SaveToFile(pchar(sFieldName+'.JPG')); + CreThumb(240, 180); + finally + MBMP.Free; + MJPG.Free; + if Fileexists(pchar(sFieldName+'.BMP')) then DeleteFile(pchar(sFieldName+'.BMP')); + FilePath:=sFieldName+'.JPG'; + FileName:=ExtractFileName(FilePath); + end; + SpeedButton2.Enabled:=true; + end; +end; + +procedure TFormGetPic.SpeedButton4Click(Sender: TObject); +var + MJPG:TJpegImage; + pathFile:string; +begin + if Image1.Picture.Graphic=nil then exit; + + MJPG:= TJpegImage.Create; + try + SaveDialog1.FileName:=FileName; + if SaveDialog1.Execute then + begin + if SaveDialog1.FileName<>'' then + begin + pathFile:=trim(SaveDialog1.FileName); + + IF (RightStr(UPPERCASE(pathFile),4)<>'.JPG') and (RightStr(UPPERCASE(pathFile),5)<>'.JPEG') then + begin + pathFile:=pathFile+'.JPG'; + end; + MJPG.Assign(Image1.Picture.Graphic); + if fileexists(pathFile) then + begin + if application.MessageBox(pchar('ļ['+trim(pathFile)+']ѴڣǷҪ滻'),'ʾϢ',MB_YESNO+mb_iconinformation+MB_DEFBUTTON2)=idyes then + MJPG.SaveToFile(pathFile); + end + else + MJPG.SaveToFile(pathFile); + + end; + end; + finally + MJPG.Free; + end; +end; + +procedure TFormGetPic.SpeedButton5Click(Sender: TObject); +begin + + try + with adoqueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo))); + open; + if RecordCount>0 then + begin + edit; + fieldByName(pat1).Value:=null; + FieldByName(pic1).Value:=null; + post; + Image1.Picture.Assign(nil); + Image2.Picture.Assign(nil); + end; + end; + except + end; +end; + +end. diff --git a/贸易管理/testDll.cfg b/贸易管理/testDll.cfg new file mode 100644 index 0000000..6c57635 --- /dev/null +++ b/贸易管理/testDll.cfg @@ -0,0 +1,38 @@ +-$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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/贸易管理/testDll.dof b/贸易管理/testDll.dof new file mode 100644 index 0000000..f452c6e --- /dev/null +++ b/贸易管理/testDll.dof @@ -0,0 +1,136 @@ +[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= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\·չó׹\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= diff --git a/贸易管理/testDll.dpr b/贸易管理/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/贸易管理/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/贸易管理/testDll.res b/贸易管理/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/贸易管理/testDll.res differ